home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / TESTS / REFOUT / PREPARSE.REF < prev    next >
Text File  |  1996-06-04  |  6KB  |  336 lines
  1.  
  2. *** Yes
  3. > > > 
  4.  
  5. *** TESTING THE TOKENIZER ***
  6. *** Yes
  7. > > 
  8. true
  9. *** Yes
  10. V = 342.89.
  11. --1> 
  12. *** No
  13. > |    |    |    
  14. true
  15. *** Yes
  16. V = "toto".
  17. --1> 
  18. *** No
  19. > |    |    |    |    |    
  20. true
  21. *** Yes
  22. V = "_Re789".
  23. --1> 
  24. *** No
  25. > 
  26. true
  27. [simple_atom(!),
  28.  chaine( ),
  29.  simple_atom(#),
  30.  simple_atom($),
  31.  simple_atom(&),
  32.  quoted_atom( ),
  33.  (,
  34.  ),
  35.  simple_atom(*),
  36.  simple_atom(+),
  37.  ,,
  38.  simple_atom(-),
  39.  .,
  40.  simple_atom(/),
  41.  numb(0),
  42.  numb(1),
  43.  numb(2),
  44.  numb(3),
  45.  numb(4),
  46.  numb(5),
  47.  numb(6),
  48.  numb(7),
  49.  numb(8),
  50.  numb(9),
  51.  simple_atom(:),
  52.  ;,
  53.  simple_atom(<),
  54.  simple_atom(=),
  55.  simple_atom(>),
  56.  ?,
  57.  simple_atom(@),
  58.  variable(A),
  59.  variable(B),
  60.  variable(C),
  61.  variable(D),
  62.  variable(E),
  63.  variable(F),
  64.  variable(G),
  65.  variable(H),
  66.  variable(I),
  67.  variable(J),
  68.  variable(K),
  69.  variable(L),
  70.  variable(M),
  71.  variable(N),
  72.  variable(O),
  73.  variable(P),
  74.  variable(Q),
  75.  variable(R),
  76.  variable(S),
  77.  variable(T),
  78.  variable(U),
  79.  variable(V),
  80.  variable(W),
  81.  variable(X),
  82.  variable(Y),
  83.  variable(Z),
  84.  [,
  85.  simple_atom(\),
  86.  ],
  87.  simple_atom(^),
  88.  variable(@),
  89.  simple_atom(`),
  90.  simple_atom(a),
  91.  simple_atom(b),
  92.  simple_atom(c),
  93.  simple_atom(d),
  94.  simple_atom(e),
  95.  simple_atom(f),
  96.  simple_atom(g),
  97.  simple_atom(h),
  98.  simple_atom(i),
  99.  simple_atom(j),
  100.  simple_atom(k),
  101.  simple_atom(l),
  102.  simple_atom(m),
  103.  simple_atom(n),
  104.  simple_atom(o),
  105.  simple_atom(p),
  106.  simple_atom(q),
  107.  simple_atom(r),
  108.  simple_atom(s),
  109.  simple_atom(t),
  110.  simple_atom(u),
  111.  simple_atom(v),
  112.  simple_atom(w),
  113.  simple_atom(x),
  114.  simple_atom(y),
  115.  simple_atom(z),
  116.  {,
  117.  |,
  118.  },
  119.  simple_atom(~),
  120.  simple_atom(toto),
  121.  (,
  122.  simple_atom(tata),
  123.  ,,
  124.  variable(Arthur),
  125.  ),
  126.  numb(321),
  127.  numb(342.89),
  128.  numb(6.27e+215),
  129.  variable(_Re789),
  130.  simple_atom(-->),
  131.  quoted_atom(ert uioe qiou #$%),
  132.  variable(X),
  133.  simple_atom(=),
  134.  [,
  135.  numb(3),
  136.  ,,
  137.  numb(4),
  138.  ,,
  139.  numb(5),
  140.  ,,
  141.  quoted_atom(+),
  142.  ],
  143.  ?]
  144. *** Yes
  145. L = [simple_atom("!"),
  146.      chaine(" "),
  147.      simple_atom("#"),
  148.      simple_atom("$"),
  149.      simple_atom("&"),
  150.      quoted_atom(" "),
  151.      "(",
  152.      ")",
  153.      simple_atom("*"),
  154.      simple_atom("+"),
  155.      ",",
  156.      simple_atom("-"),
  157.      ".",
  158.      simple_atom("/"),
  159.      numb(0),
  160.      numb(1),
  161.      numb(2),
  162.      numb(3),
  163.      numb(4),
  164.      numb(5),
  165.      numb(6),
  166.      numb(7),
  167.      numb(8),
  168.      numb(9),
  169.      simple_atom(":"),
  170.      ";",
  171.      simple_atom("<"),
  172.      simple_atom("="),
  173.      simple_atom(">"),
  174.      "?",
  175.      simple_atom("@"),
  176.      variable("A"),
  177.      variable("B"),
  178.      variable("C"),
  179.      variable("D"),
  180.      variable("E"),
  181.      variable("F"),
  182.      variable("G"),
  183.      variable("H"),
  184.      variable("I"),
  185.      variable("J"),
  186.      variable("K"),
  187.      variable("L"),
  188.      variable("M"),
  189.      variable("N"),
  190.      variable("O"),
  191.      variable("P"),
  192.      variable("Q"),
  193.      variable("R"),
  194.      variable("S"),
  195.      variable("T"),
  196.      variable("U"),
  197.      variable("V"),
  198.      variable("W"),
  199.      variable("X"),
  200.      variable("Y"),
  201.      variable("Z"),
  202.      "[",
  203.      simple_atom("\"),
  204.      "]",
  205.      simple_atom("^"),
  206.      variable(@),
  207.      simple_atom("`"),
  208.      simple_atom("a"),
  209.      simple_atom("b"),
  210.      simple_atom("c"),
  211.      simple_atom("d"),
  212.      simple_atom("e"),
  213.      simple_atom("f"),
  214.      simple_atom("g"),
  215.      simple_atom("h"),
  216.      simple_atom("i"),
  217.      simple_atom("j"),
  218.      simple_atom("k"),
  219.      simple_atom("l"),
  220.      simple_atom("m"),
  221.      simple_atom("n"),
  222.      simple_atom("o"),
  223.      simple_atom("p"),
  224.      simple_atom("q"),
  225.      simple_atom("r"),
  226.      simple_atom("s"),
  227.      simple_atom("t"),
  228.      simple_atom("u"),
  229.      simple_atom("v"),
  230.      simple_atom("w"),
  231.      simple_atom("x"),
  232.      simple_atom("y"),
  233.      simple_atom("z"),
  234.      "{",
  235.      "|",
  236.      "}",
  237.      simple_atom("~"),
  238.      simple_atom("toto"),
  239.      "(",
  240.      simple_atom("tata"),
  241.      ",",
  242.      variable("Arthur"),
  243.      ")",
  244.      numb(321),
  245.      numb(342.89),
  246.      numb(6.27e+215),
  247.      variable("_Re789"),
  248.      simple_atom("-->"),
  249.      quoted_atom("ert uioe qiou #$%"),
  250.      variable("X"),
  251.      simple_atom("="),
  252.      "[",
  253.      numb(3),
  254.      ",",
  255.      numb(4),
  256.      ",",
  257.      numb(5),
  258.      ",",
  259.      quoted_atom("+"),
  260.      "]",
  261.      "?"].
  262.  
  263. --1> 
  264. *** No
  265. > 
  266.  
  267. *** TESTING THE EXPRESSIONS  ***
  268. *** Yes
  269. > > |    |    
  270. true
  271. [=(+(*(3,X),4),+(*(-(7),X),*(6,-(32,*(12,Y))))),
  272.  =(+(*(5,8),/(*(12,Y),+(13,*(4,T)))),28),
  273.  error]
  274.  
  275.  
  276. *** Yes
  277. L = [numb(_A: 3),
  278.      simple_atom(_B: "*"(_A,_C: "X")),
  279.      variable(_C),
  280.      simple_atom(_D: "+"(_B,_E: 4)),
  281.      numb(_E),
  282.      simple_atom(_F: "="(_D,
  283.                          _G: "+"(_H: "*"(_I: "-"(_J: 7),_K: "X"),
  284.                                  _L: "*"(_M: 6,
  285.                                          _N: "-"(_O: 32,
  286.                                                  _P: "*"(_Q: 12,_R: "Y")))))),
  287.      simple_atom(_I),
  288.      numb(_J),
  289.      simple_atom(_H),
  290.      variable(_K),
  291.      simple_atom(_G),
  292.      numb(_M),
  293.      simple_atom(_L),
  294.      "(",
  295.      numb(_O),
  296.      simple_atom(_N),
  297.      numb(_Q),
  298.      simple_atom(_P),
  299.      variable(_R),
  300.      ")",
  301.      ".",
  302.      numb(_S: 5),
  303.      simple_atom(_T: "*"(_S,_U: 8)),
  304.      numb(_U),
  305.      simple_atom(_V: "+"(_T,
  306.                          _W: "/"(_X: "*"(_Y: 12,_Z: "Y"),
  307.                                  _AA: "+"(_AB: 13,_AC: "*"(_AD: 4,_AE: "T"))))),
  308.      numb(_Y),
  309.      simple_atom(_X),
  310.      variable(_Z),
  311.      simple_atom(_W),
  312.      "(",
  313.      numb(_AB),
  314.      simple_atom(_AA),
  315.      numb(_AD),
  316.      simple_atom(_AC),
  317.      variable(_AE),
  318.      ")",
  319.      simple_atom(_AF: "="(_V,_AG: 28)),
  320.      numb(_AG),
  321.      ".",
  322.      numb(3),
  323.      simple_atom("*"),
  324.      numb(4),
  325.      simple_atom("-"),
  326.      numb(12),
  327.      simple_atom("*"),
  328.      variable("X"),
  329.      variable("Y"),
  330.      simple_atom("="),
  331.      numb(32),
  332.      "."], 
  333. List = [_F,_AF,error].
  334.  
  335. --1> 
  336.