FWD » Core Development » Base Language

def var txt    as char.

def var e-txt  as char  format "x(16)".

def var i-file as char   init "binary_string_input.txt".

def var o-file as char   init "encoded.txt".

def var sz     as int.

def var idx    as int.

def var i      as int.

def var remain as int.

def var ptr    as memptr.

def stream out.

output stream out to value(o-file).

file-information:filename = i-file.

remain = file-information:file-size.

set-size(ptr) = 1024.

idx = 1.

do while (idx <= remain):

   /* read 1 byte that tells us the size of the following binary string */

   copy-lob from file i-file starting at idx for 1 to ptr.

   sz = get-byte(ptr, 1).

   idx = idx + 1.

   /* empty string is size 0 */

   if sz > 0 then

   do:

      /* read in the "string" which may have null chars */

      copy-lob from file i-file starting at idx for sz to ptr.

   end.

   idx = idx + sz.

   /* this is the only known way to get a null char into a character var! */

   txt = get-string(ptr, 1, sz).

   if length(txt) ne sz then message "PROBLEM!" length(txt) sz. 

   /* chr(0) returns empty string so this is not the best approach */

   /*

   txt = "".

   do i = 1 to sz:

      txt = txt + chr(get-byte(ptr, i)).

   end.

   */

   e-txt = encode(txt).

   put stream out unformatted e-txt skip.

end.

output stream out close.

/* de-allocate memory */

set-size(ptr) = 0.