home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / debugger / ddd-1.000 / ddd-1 / ddd-1.4b / vsllib / DEMOS / std < prev   
Encoding:
Text File  |  1995-05-01  |  4.8 KB  |  172 lines

  1. #!vsl
  2.  
  3. // $Id: std,v 1.1.1.1 1995/05/01 15:48:48 zeller Exp $ 
  4. // Testdatei fuer "std.vsl"
  5.  
  6. // $Log: std,v $
  7. # Revision 1.1.1.1  1995/05/01  15:48:48  zeller
  8. # DDD 0.9 distribution
  9. #
  10. // Revision 9.3  1993/06/25  11:59:07  zeller
  11. // Fix: Kommentare Log-Datei angepasst
  12. //
  13. // Revision 9.3  1993/06/25  11:59:07  zeller
  14. // Fix: Kommentare Log-Datei angepasst
  15. //
  16. // Revision 9.2  1993/05/22  20:22:45  zeller
  17. // %Q% added by apply-q-flag.sh 1.5
  18. //
  19. // Revision 9.1  1991/07/08  06:02:03  zeller
  20. // Installierte Version
  21. // 
  22. // Revision 8.1  1991/07/06  15:05:03  zeller
  23. // Installierte Version
  24. // 
  25. // Revision 4.1  1991/05/25  12:52:25  zeller
  26. // Neue Version mit folgenden Eigenschaften:
  27. // Let- und Where-Konstrukten;
  28. // Lokalen und globalen Funktionen, Overloading;
  29. // Erweiterten Fehlermeldungen.
  30. // 
  31. // Revision 3.4  1991/04/27  14:46:17  zeller
  32. // Operatoren umgestellt: '|' -> ':', '!' -> '|' (wie gehabt)
  33. // 
  34. // Revision 3.3  1991/04/17  10:04:29  zeller
  35. // Versionsangabe korrigiert
  36. // 
  37. // Revision 3.2  1991/04/17  09:57:05  zeller
  38. // member() entfernt, tab.vsl eingebunden
  39. // 
  40. // Revision 3.1  1991/02/27  02:10:10  zeller
  41. // Umstellung auf neue Syntax (fast ganz wieder die alte)
  42. // 
  43. // Revision 2.2  1991/02/26  11:51:27  zeller
  44. // Umstellung von 'dispVSL' auf 'vsl'
  45. // 
  46. // Revision 2.1  1991/02/26  11:45:47  zeller
  47. // Anpassung auf neue Syntax (vorerst ungetestet)
  48. // 
  49. // Revision 1.12  1991/02/10  18:24:51  zeller
  50. // Letzte Definition muss global sein, um nicht geloescht zu werden
  51. // 
  52. // Revision 1.11  1991/01/29  15:26:57  zeller
  53. // Version eingefuehrt
  54. // 
  55. // Revision 1.10  1990/09/16  15:59:49  zeller
  56. // Tests fuer "and" und "or" eingefuehrt
  57. // 
  58. // Revision 1.9  1990/09/07  16:17:50  zeller
  59. // Bool'sche Tests eingefuehrt
  60. // 
  61. // Revision 1.8  1990/08/29  13:10:48  zeller
  62. // neu: overline_test(), crossline_test(), erweiterter tab_test()
  63. // 
  64. // Revision 1.7  1990/08/29  12:27:24  zeller
  65. // tab_test() eingefuehrt
  66. // 
  67. // Revision 1.6  1990/08/28  19:24:37  zeller
  68. // main() entfernt
  69. // 
  70. // Revision 1.5  1990/08/28  15:08:08  zeller
  71. // ID angepasst
  72. // 
  73. // Revision 1.4  1990/08/27  17:19:12  zeller
  74. // tab_test() ausgeklammert
  75. // 
  76. // Revision 1.3  1990/08/27  16:23:36  zeller
  77. // tab_test() ausgeklammert
  78. // 
  79. // Revision 1.2  1990/08/26  13:46:07  zeller
  80. // ID's korrigiert
  81. // 
  82. // Revision 1.1  1990/08/26  13:44:02  zeller
  83. // Initial revision
  84. // 
  85.  
  86. #include <std.vsl>
  87. #include <tab.vsl>
  88.  
  89. // synonym_test
  90. syn4(...) = halign(...);
  91. syn3(...) = syn4(...);
  92. syn2(...) = syn3(...);
  93. syn1(...) = syn2(...);
  94. syn0(...) = syn1(...);
  95. synonym_test() = syn0("1", "2", "3", "4");
  96.  
  97. // list_test
  98. list(a) = a;
  99. list(a, ...) = a & list(...);
  100. list_test() = list("1", "2", "3", "4");
  101.  
  102. // concat_test
  103. concat_test() = "1" "2" "3" "4";
  104.  
  105. // cstring_test
  106. cstring_test() = "Quotes \"\" and Backslashes \\";
  107.  
  108. // fix_test
  109. fix_test() = hfix(vfix(rule() ^ 50));
  110.  
  111. // comma_test
  112. comma_test() = commalist("1", "2", "3", "4");
  113.  
  114. // frame_test
  115. frame_test() = thickframe(doubleframe(10) & vwhite() & doubleframe(10));
  116.  
  117. // underline_test
  118. underline_test() = "This should be " & underline("underlined") & ".";
  119.  
  120. // overline_test
  121. overline_test() = "This should be " & overline("overlined") & ".";
  122.  
  123. // crossline_test
  124. crossline_test() = "This should be " & crossline("crossed") & ".";
  125.  
  126. // doublestrike_test
  127. doublestrike_test() = "This should be " & doublestrike("doublestriked") & ".";
  128.  
  129. // tab_test
  130. tab_test() = tab(
  131. [
  132.     [frame(hcenter("1")),   frame(w_flush("1")),   frame(e_flush("1"))],
  133.      [frame(hcenter("22")),  frame(w_flush("22")),  frame(e_flush("22"))],
  134.      [frame(hcenter("333")), frame(w_flush("333")), frame(e_flush("333"))]
  135. ]
  136. );
  137.  
  138. // true_test
  139. bool(a) = if a then "T " else "F " fi;
  140.  
  141. true_test() =  bool(true) & bool(false or true) 
  142.     & bool(true or false) & bool(true and true)
  143.     & bool("1" = "1") & bool(2 + 2 = 4) & bool(not(2 + 2 = 5));
  144.  
  145. false_test() = bool(false) & bool(true and false) 
  146.     & bool(false and true) & bool(false or false)
  147.     & bool("1" = "2") & bool(2 + 2 = 5) & bool(not(2 + 2 = 4));
  148.  
  149. // all tests
  150. all_std_tests() = 
  151.   synonym_test()          & vcenter(" // synonym_test()")
  152. | list_test()             & vcenter(" // list_test()")
  153. | concat_test()            & vcenter(" // concat_test()")
  154. | comma_test()            & vcenter(" // comma_test()")
  155. | frame_test()            & vcenter(" // frame_test()")
  156. | tab_test()            & vcenter(" // tab_test()")
  157. | overline_test()        & vcenter(" // overline_test()")
  158. | underline_test()        & vcenter(" // underline_test()")
  159. | crossline_test()        & vcenter(" // crossline_test()")
  160. | doublestrike_test()    & vcenter(" // doublestrike_test()")
  161. | true_test()            & vcenter(" // true_test()")
  162. | false_test()            & vcenter(" // false_test()")
  163. ;
  164.  
  165. std_explanation() =
  166.   "This is '$RCSfile: std,v $ $Revision: 1.1.1.1 $', based on '" & std_version() & "' and '" & 
  167.   tab_version() & "'."
  168. | "Each test should yield the string '1234'.";
  169.  
  170. std_main() = std_explanation() | all_std_tests();
  171. std_main(_...) -> std_main();
  172.