+ added original project files (Authors: h4tr3d & michael)

orig/torread.c

@@ -0,0 +1,178 @@
+/* $Id: torread.c 529 2009-09-11 08:44:53Z michael $ */
+#include <fcntl.h>
+#include <unistd.h>
+#include <sys/stat.h>
+#include <sys/mman.h>
+#include <stdint.h>
+#include <stdlib.h>
+
+const uint8_t sp=' ';
+const uint8_t ret='\n';
+const uint8_t quo='\"';
+const uint8_t scr='\\';
+const uint8_t hxp='x';
+const uint8_t blst='[';
+const uint8_t elst=']';
+const uint8_t bdct='(';
+const uint8_t edct=')';
+const uint8_t eqv='=';
+const int stdout=1;
+
+enum obj_type {OBJ_NUL, OBJ_INT, OBJ_STR, OBJ_LST, OBJ_DCT};
+
+void Byte2Hex(uint8_t ch);
+void PrintSpc(int num);
+enum obj_type DetType(const uint8_t* d, size_t shift);
+size_t FindSym(const uint8_t* d, uint8_t s, size_t shift, size_t len);
+size_t PrintInt(const uint8_t* d, size_t shift, size_t len);
+size_t PrintStr(const uint8_t* d, size_t shift, size_t len);
+size_t PrintLst(const uint8_t* d, size_t shift, size_t len, int skip);
+size_t PrintDct(const uint8_t* d, size_t shift, size_t len, int skip);
+size_t PrintObj(const uint8_t* d, size_t shift, size_t len, int skip);
+
+void Byte2Hex(uint8_t ch)
+{
+ static const uint8_t cnv[]={'0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F'};
+ write(stdout,cnv+((ch&(15<<4))>>4),1);
+ write(stdout,cnv+(ch&15),1);
+}
+
+void PrintSpc(int num)
+{
+ int i;
+ for(i=0;i<num;i++) write(stdout,&sp,1);
+}
+
+enum obj_type DetType(const uint8_t* d, size_t shift)
+{
+// write(2,d+shift,1);
+ if(d[shift]=='i') return OBJ_INT;
+ if(d[shift]=='l') return OBJ_LST;
+ if(d[shift]=='d') return OBJ_DCT;
+ if(d[shift]>=49 && d[shift]<=57) return OBJ_STR;
+ return OBJ_NUL;
+}
+
+size_t FindSym(const uint8_t* d, uint8_t s, size_t shift, size_t len)
+{
+ size_t i;
+ 
+ for(i=shift;i<len;i++) if(d[i]==s) return i;
+ exit(2);
+}
+
+size_t PrintObj(const uint8_t* d, size_t shift, size_t len, int skip)
+{
+ switch(DetType(d,shift))
+ {
+  case(OBJ_NUL): exit(2);
+  case(OBJ_INT): return PrintInt(d,shift,len);
+  case(OBJ_STR): return PrintStr(d,shift,len);
+  case(OBJ_LST): return PrintLst(d,shift,len,skip);
+  case(OBJ_DCT): return PrintDct(d,shift,len,skip);
+ }
+ exit(2);
+}
+
+size_t PrintInt(const uint8_t* d, size_t shift, size_t len)
+{
+ size_t e=FindSym(d,'e',shift,len);
+ write(stdout,d+shift+1,e-shift-1);
+ return e+1;
+}
+
+size_t PrintStr(const uint8_t* d, size_t shift, size_t len)
+{
+ size_t e=FindSym(d,':',shift,len);
+ int l=atoi((const char*)(d+shift));
+ if(e+l>=len) exit(2);
+ size_t p;
+ 
+ write(stdout,&quo,1);
+ for(p=e+1;p<=e+l;p++)
+ {
+  if(d[p]==127 || d[p]<32)
+  {
+   write(stdout,&scr,1);
+   write(stdout,&hxp,1);
+   Byte2Hex(d[p]);
+  }
+  else if(d[p]=='\\')
+  {
+   write(stdout,&scr,1);
+   write(stdout,&scr,1);
+  }
+  else if(d[p]=='\"')
+  {
+   write(stdout,&scr,1);
+   write(stdout,&quo,1);
+  }
+  else write(stdout,d+p,1);
+ }
+
+ write(stdout,&quo,1);
+ return e+l+1;
+}
+
+size_t PrintLst(const uint8_t* d, size_t shift, size_t len, int skip)
+{
+ size_t ishift=shift+1;
+ 
+ write(stdout,&blst,1);
+ write(stdout,&ret,1);
+ 
+ while(d[ishift]!='e')
+ {
+  PrintSpc(skip+1);
+  ishift=PrintObj(d,ishift,len,skip+1);
+  write(stdout,&ret,1);
+  if(ishift>=len) exit(2);
+ }
+ PrintSpc(skip);
+ write(stdout,&elst,1);
+ return ishift+1;
+}
+
+size_t PrintDct(const uint8_t* d, size_t shift, size_t len, int skip)
+{
+ size_t ishift=shift+1;
+ 
+ write(stdout,&bdct,1);
+ write(stdout,&ret,1);
+ 
+ while(d[ishift]!='e')
+ {
+  PrintSpc(skip+1);
+  if(DetType(d,ishift)!=OBJ_STR) exit(2);
+  ishift=PrintStr(d,ishift,len);
+  write(stdout,&sp,1);
+  write(stdout,&eqv,1);
+  write(stdout,&sp,1);
+  ishift=PrintObj(d,ishift,len,skip+1);
+  write(stdout,&ret,1);
+  if(ishift>=len) exit(2);
+ }
+ PrintSpc(skip);
+ write(stdout,&edct,1);
+ return ishift+1;
+}
+
+int main(int argc, char** argv)
+{
+ if(argc!=2) return 1;
+
+ int fd;
+ struct stat st;
+ uint8_t *pdata;
+ 
+ fd=open(argv[1],O_RDONLY); if(fd==-1) return 1;
+ if(fstat(fd,&st)!=0) return 1;
+ if(st.st_size==0) return 1;
+ pdata=(uint8_t*) mmap(0,st.st_size,PROT_READ,MAP_SHARED,fd,0);
+ PrintDct(pdata,0,st.st_size,0);
+ write(stdout,&ret,1);
+ munmap(pdata,st.st_size);
+ close(fd);
+
+ return 0;
+}

orig/torwrite.c

@@ -0,0 +1,169 @@
+/* $Id: torwrite.c 529 2009-09-11 08:44:53Z michael $ */
+#include <fcntl.h>
+#include <unistd.h>
+#include <sys/stat.h>
+#include <sys/mman.h>
+#include <stdint.h>
+#include <stdlib.h>
+
+const uint8_t sp=' ';
+const uint8_t ret='\n';
+const uint8_t quo='\"';
+const uint8_t scr='\\';
+const uint8_t hxp='x';
+const uint8_t blst='[';
+const uint8_t elst=']';
+const uint8_t bdct='(';
+const uint8_t edct=')';
+const uint8_t eqv='=';
+const int stdout=1;
+
+enum obj_type {OBJ_NUL, OBJ_INT, OBJ_STR, OBJ_LST, OBJ_DCT};
+
+size_t IntLen(const uint8_t* d, size_t shift, size_t len)
+{
+ size_t l=1;
+
+ while(d[shift+l]>=48 && d[shift+l]<=57)
+ {
+  l++;
+  if(shift+l==len) exit(2);
+ }
+ return l;
+}
+
+size_t StrLen(const uint8_t* d, size_t shift, size_t len)
+{
+ size_t l=0;
+ size_t sh=shift+1;
+
+ while(1)
+ {
+  if(d[sh]==quo) break;
+  if(d[sh]==scr)
+  {
+   if(d[sh+1]=='x') sh+=3;
+   else sh++;
+  }
+  sh++;
+  l++;
+  if(sh>=len) exit(2);
+ }
+ return l;
+}
+
+void PrintDec(size_t n)
+{
+ size_t num=n,rem;
+ size_t len=0;
+ uint8_t *out,*pout;
+
+ while(num!=0)
+ {
+  num/=10;
+  len++;
+ }
+
+ out=malloc(len);
+ pout=out+len-1;
+ num=n;
+
+ while(num!=0)
+ {
+  rem=num%10;
+  num/=10;
+  *pout--=rem+'0';
+ }
+ write(stdout,out,len);
+ free(out);
+}
+
+uint8_t Hex2N(uint8_t h)
+{
+ if(h>='0' && h<='9') return h-'0';
+ if(h>='A' && h<='F') return h-'A'+10;
+ if(h>='a' && h<='f') return h-'a'+10;
+ exit(2);
+}
+
+uint8_t Hex2Sym(const uint8_t *d, size_t sh)
+{
+ return (Hex2N(d[sh])<<4)|Hex2N(d[sh+1]);
+}
+
+int main(int argc, char** argv)
+{
+ if(argc!=2) return 1;
+
+ int fd;
+ struct stat st;
+ uint8_t *pdata;
+ uint8_t ch,c;
+ size_t shift=0,len;
+
+ fd=open(argv[1],O_RDONLY); if(fd==-1) return 1;
+ if(fstat(fd,&st)!=0) return 1;
+ if(st.st_size==0) return 1;
+ pdata=(uint8_t*) mmap(0,st.st_size,PROT_READ,MAP_SHARED,fd,0);
+
+ while(shift<st.st_size)
+ {
+  c=pdata[shift];
+  if(c==bdct) {ch='d'; write(stdout,&ch,1);}
+  if(c==blst) {ch='l'; write(stdout,&ch,1);}
+  if(c==edct || pdata[shift]==elst) {ch='e'; write(stdout,&ch,1);}
+  if((c>=48 && c<=57) || c=='+' || c=='-')
+  {
+   len=IntLen(pdata,shift,st.st_size);
+   ch='i'; write(stdout,&ch,1);
+   write(stdout,pdata+shift,len);
+   ch='e'; write(stdout,&ch,1);
+   shift+=len-1;
+  }
+  if(c==quo)
+  {
+   len=StrLen(pdata,shift,st.st_size);
+   PrintDec(len); ch=':'; write(stdout,&ch,1);
+   shift++;
+   while(1)
+   {
+    c=pdata[shift];
+    if(c==quo) break;
+    if(c==scr)
+    {
+     shift++;
+     c=pdata[shift];
+     if(c=='x')
+     {
+      shift++;
+      ch=Hex2Sym(pdata,shift);
+      shift++;
+     }
+     else
+     {
+      switch(c)
+      {
+      case('n'): {ch='\n'; break;}
+      case('a'): {ch='\a'; break;}
+      case('b'): {ch='\b'; break;}
+      case('e'): {ch='\e'; break;}
+      case('f'): {ch='\f'; break;}
+      case('r'): {ch='\r'; break;}
+      case('t'): {ch='\t'; break;}
+      case('v'): {ch='\v'; break;}
+      default: ch=c;
+      }
+     }
+    }
+    else ch=c;
+    write(stdout,&ch,1);
+    shift++;
+   }
+  }
+  shift++;
+ }
+
+ munmap(pdata,st.st_size);
+ close(fd);
+ return 0;
+}