2.22. toolstest.bas

[<<<] [>>>]

This program tests two function pairs from the module t. The program creates a three-dimensional array, then converts it to string and saves the string into a file. After the file is loaded into memory and converted back.

Example toolstest.bas : 

import t.bas


sub PrintVar(V,level)
  local i,j


  if IsArray(V) Then
   for i=lbound(V) to ubound(V)
     print space(level)
     print i,"->"
     PrintVar V[i],level+1
   next i
   exit sub
  end if


  print V,"\n"
end sub



for i=1 to 5
for j=1 to 5
for k=1 to 5
 a[i,j,k] = i*j*k
next k
next j
next i



s = t::Array2StringMD5(a)


t::SaveString "savedarray.bin",s


s = undef


q = t::LoadString("savedarray.bin")


t::String2ArrayMD5 b,q


PrintVar b,1

Result executing toolstest.bas :

Possible error messages sent to stderr:
[<<<] [>>>]