You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

179 lines
3.9 KiB

/* $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;
}