/* scacalos.tc - 1/22/11, 3/6/2011 - tct
/* decode / encode binary / readable messages
/* motivated by a facebook post by Frank Scacalossi */

main [
 char scac(13000),scaco(13000),mf(20),mfo(20),de,lf(1);int err,bytesread
 pl "enter file containing message to be decoded / encoded : ";gs(mf)
 ps "enter output file : ";gs(mfo)
 mf(strlen(mf))=mfo(strlen(mfo))=0
 if ((err=fopen(1,mf,13000,1))!=0) [pl"open failed";exit]
 if ((err=fopen(2,mfo,13000,2))!=0) [pl"open failed";exit]
 bytesread=readfile mf,scac,scac+13000,1
 ps "decoding binary or encoding readable (d/e) : ";de=getchar
 if de=='d' scacalos scac,scaco
 if de=='e' solacacs scac,scaco
 writefile mfo,scaco,scaco+strlen(scaco)-1,2
]

scacalos char scac(0),scaco(0) [int i,j,t(1500),u;char w(1)
 u=split t,scac," "
 for (i=0;i<u;++i) [w(0)=bintochar(t(i));strcat(scaco,w)]
]

solacacs char scac(0),scaco(0) [int i;char d(8)
 for (i=0;i<strlen(scac);++i) [
  chartobin(scac(i),d);strcat(scaco,d);strcat(scaco," ")
]]

chartobin char c,d(0) [int j
 for (j=0;j<8;++j) [d(7-j)=c%2+'0';c=c/2]
]

bintochar char s(0) [int j,d
 for (j=7;j;--j) d=d+(s(j)-'0')*pow(2,7-j)
 return '@'+d-64
]

pow int b,e [int i,p
 p=1;while (++i<=e) p=p*b
 return p
]

split int t(0);char s(0),d(0) [int y,ix,tx,sl,ds
 ds=strlen(d);t(0)=s;sl=strlen(s)
 while (sl-tx) [
  ix=index(s+tx,sl-tx,d,ds)
  tx=tx+ix+ds-1;t(++y)=s+tx;s(tx-ds)=0
  ]
 return y
]