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 / errors < prev    next >
Encoding:
Text File  |  1995-05-01  |  2.9 KB  |  106 lines
  1. #!vsl
  2.  
  3. // $Id: errors,v 1.1.1.1 1995/05/01 15:48:49 zeller Exp $ -- Testdatei fuer Fehlererkennung
  4.  
  5. // $Log: errors,v $
  6. # Revision 1.1.1.1  1995/05/01  15:48:49  zeller
  7. # DDD 0.9 distribution
  8. #
  9. // Revision 9.3  1993/06/25  12:03:35  zeller
  10. // Fix: Kommentare Log-Datei angepasst
  11. //
  12. // Revision 9.2  1993/05/22  20:22:25  zeller
  13. // %Q% added by apply-q-flag.sh 1.5
  14. //
  15. // Revision 9.1  1991/07/08  06:01:14  zeller
  16. // Installierte Version
  17. // 
  18. // Revision 8.1  1991/07/06  15:04:15  zeller
  19. // Installierte Version
  20. // 
  21. // Revision 4.1  1991/05/25  12:52:30  zeller
  22. // Neue Version mit folgenden Eigenschaften:
  23. // Let- und Where-Konstrukten;
  24. // Lokalen und globalen Funktionen, Overloading;
  25. // Erweiterten Fehlermeldungen.
  26. // 
  27. // Revision 3.3  1991/04/27  18:46:05  zeller
  28. // Pruefungen ueberarbeitet;
  29. // Pruefungen auf ungueltige Pattern hinzugefuegt
  30. // 
  31. // Revision 3.2  1991/04/27  14:46:31  zeller
  32. // Operatoren umgestellt: '|' -> ':', '!' -> '|' (wie gehabt)
  33. // 
  34. // Revision 3.1  1991/02/27  02:10:31  zeller
  35. // Umstellung auf neue Syntax (fast ganz wieder die alte)
  36. // 
  37. // Revision 2.2  1991/02/26  11:51:44  zeller
  38. // Umstellung von 'dispVSL' auf 'vsl'
  39. // 
  40. // Revision 2.1  1991/02/26  11:46:08  zeller
  41. // Anpassung auf neue Syntax (vorerst ungetestet)
  42. // 
  43. // Revision 1.6  1991/02/10  18:25:01  zeller
  44. // Letzte Definition muss global sein, um nicht geloescht zu werden
  45. // 
  46. // Revision 1.5  1991/01/23  19:01:31  zeller
  47. // Testfunktionen Pattern-Matching eingefuegt
  48. // 
  49. // Revision 1.4  1990/08/29  12:27:36  zeller
  50. // syntax_error_test() eingefuehrt
  51. // 
  52. // Revision 1.3  1990/08/28  19:24:44  zeller
  53. // main() entfernt
  54. // 
  55. // Revision 1.2  1990/08/26  13:46:03  zeller
  56. // ID's korrigiert
  57. // 
  58. // Revision 1.1  1990/08/26  13:44:05  zeller
  59. // Initial revision
  60. // 
  61.  
  62. #include <std.vsl>
  63.  
  64. // infinite_test (should generate a warning when optimizing)
  65. infinite_test() = "Hallo" & infinite_test();
  66.  
  67. // syntax_error_test (should generate an error)
  68. syntax_error_test() = "a" & @;
  69.  
  70. // undefined_test (should generate an error)
  71. undefined_test() = __never__defined();
  72.  
  73. // arg_test (should generate an error)
  74. arg_test(a) = b;
  75.  
  76. // multiple_arg_test (should generate an error)
  77. multiple_arg_test(a, a) = 0;
  78.  
  79. // multiple_definition_test (should generate an error)
  80. multiple_definition_test(a, b) = 0;
  81. multiple_definition_test(c, d) = 1;
  82.  
  83. // shadow_test (should generate a warning)
  84. shadow_test(...) = 0;
  85. shadow_test(a) = a;
  86.  
  87. // bad pattern test (should generate an error)
  88. nmt(a) = a * a;
  89. no_match_test(nmt(a)) = a;
  90.  
  91. // bad pattern test (should generate an error)
  92. mmt(a) = a & a;
  93. multiple_match_test(mmt(a)) = a;
  94.  
  95. // recursive match test (should generate an error)
  96. f(a) = 1;
  97. recursive_match_test(f(a)) = 0;
  98. recursive_match_test(recursive_match_test(a)) = 0;
  99.  
  100. errors_explanation() = 
  101.   "This is '$RCSfile: errors,v $ $Revision: 1.1.1.1 $'."
  102. | "You should have seen various errors while loading.";
  103.  
  104. errors_main() = errors_explanation();
  105. errors_main(...) -> errors_main();
  106.