#include pps/lrblib.tc
#include pps/library.tc

[

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

4/4/20 4/25,27/21

]

main [
 char scac(2000),scaco(2000),mf(30),mfo(30),de
 pl "enter file be decoded / encoded : "
 gs mf
 ps "enter output file : "
 gs mfo
 readfile mf,scac,2000
 ps "decoding binary or encoding readable (d/e) : "
 de = getchar
 if de == 'd' decode scac,scaco
 if de == 'e' encode scac,scaco
 writefile mfo,scaco,strlen(scaco)
 printf "%c%s%c",10,scaco,10
 ]

decode char scac(0),scaco(0) [
 int i,j,t(1500),u
 char w(1)
 int len
 len = strlen scac
 // get rid of non space char
 while scac(len) != ' ' len = len - 1
 scac(len + 1) = 0
 u = split t,scac," "
 while i < u [
  w(0) = btoc t(i)
  strcat scaco,w
  i = i+1
  ]
 ]

encode char scac(0),scaco(0) [
 int i
 char d(8)
 char nl(1);nl(0)=10
 while i < strlen(scac) [
  ctob scac(i),d
  strcat scaco,d
  strcat scaco," "
  i = i+1
  ]
 strcat scaco,nl
 ]

ctob char c,d(0) [
 int j
 while j < 8 [
  d(7-j) = c%2+'0'
  c = c/2
  j = j+1
  ]
 ]

btoc char s(0) [
 int j,d
 j = 7
 while j [
  d = d+(s(j)-'0')*pow 2,7-j
  j = j-1
  ]
 return '@'+d-64
 ]

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