home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / TESTS / IN / PREPARSE.IN < prev    next >
Text File  |  1996-06-04  |  580b  |  25 lines

  1.  
  2. nl,nl,write("*** TESTING THE TOKENIZER ***") ?
  3.  
  4. nl,write(call_once(number(V,0 =>[51,52,50,46,56,57,48],rest=>[]))) ?
  5.  
  6. nl,write((call_once( non_quoted_atom(V,0 =>[116,
  7.      111,
  8.      116,
  9.      111],rest=>[]))))?
  10.  
  11. nl,write((call_once( variable(V, 0 =>[95,
  12.      82,
  13.      101,
  14.      55,
  15.      56,
  16.      57],rest=>[]))))?
  17.  
  18. nl,write(call_once(tokenize("FILES/preparser.1",L))), nl, pretty_write(L) ?
  19.  
  20. nl,nl, write("*** TESTING THE EXPRESSIONS  ***") ?
  21.  
  22. nl,tokenize("FILES/preparser.2",L), 
  23. write(call_once(list_express( 0 => L, list => List, rest => []))),
  24. nl,pretty_write(List), nl,nl ?
  25.