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 / lets < prev    next >
Encoding:
Text File  |  1995-05-01  |  2.0 KB  |  95 lines
  1. #!vsl
  2.  
  3. // $Id: lets,v 1.1.1.1 1995/05/01 15:48:49 zeller Exp $ 
  4. // Tester LET und WHERE
  5.  
  6. // $Log: lets,v $
  7. # Revision 1.1.1.1  1995/05/01  15:48:49  zeller
  8. # DDD 0.9 distribution
  9. #
  10. // Revision 9.3  1993/06/25  12:02:14  zeller
  11. // *** empty log message ***
  12. //
  13. // Revision 9.2  1993/05/22  20:22:35  zeller
  14. // %Q% added by apply-q-flag.sh 1.5
  15. //
  16. // Revision 9.1  1991/07/08  06:01:39  zeller
  17. // Installierte Version
  18. // 
  19. // Revision 8.1  1991/07/06  15:04:43  zeller
  20. // Installierte Version
  21. // 
  22. // Revision 4.2  1991/06/07  15:42:44  zeller
  23. // Tester let def1, def2 und where def1, def2 eingefuehrt
  24. // 
  25. // Revision 4.1  1991/05/25  12:53:45  zeller
  26. // Neue Version mit folgenden Eigenschaften:
  27. // Let- und Where-Konstrukten;
  28. // Lokalen und globalen Funktionen, Overloading;
  29. // Erweiterten Fehlermeldungen.
  30. // 
  31. // Revision 1.3  1991/05/23  19:04:50  zeller
  32. // Weitere (kryptische) Tests eingefuehrt
  33. // 
  34. // Revision 1.2  1991/05/23  18:54:57  zeller
  35. // Header verkuerzt
  36. // 
  37. // Revision 1.1  1991/05/23  10:43:06  zeller
  38. // Initial revision
  39. // 
  40.  
  41. #include <builtin.vsl>
  42.  
  43. l1 -> let hi = "hello, you" in hi;
  44.  
  45. l2() -> let hi = "hello, you" in hi;
  46.  
  47. l3() -> let hi = "hello" in hi & ", you";
  48.  
  49. l4(you) -> let hi = "hello" in hi & you;
  50.  
  51. l5(you) -> let him = you, hi = "hello" in hi & him;
  52.  
  53. l6(you) -> let hi = "hello" in let him = you in hi & him;
  54.  
  55. l7(you) -> let hi = "hello" in let ho = hi in ho & you;
  56.  
  57. l8(you) -> let you = "hello" & you in you;
  58.  
  59. w1 -> hi where hi = "hello, you";
  60.  
  61. w2() -> hi where hi = "hello, you";
  62.  
  63. w3() -> hi & ", you" where hi = "hello";
  64.  
  65. w4(you) -> hi & you where hi = "hello";
  66.  
  67. w5(you) -> hi & him where him = you, hi = "hello";
  68.  
  69. w6(you) -> hi & him where hi = "hello" where him = you;
  70.  
  71. w7(you) -> ho & you where ho = hi where hi = "hello";
  72.  
  73. w8(you) -> you where you = "hello" & you;
  74.  
  75. lw1 -> let hi = "hello" in hi & you where you = ", you";
  76.  
  77. all() -> 
  78.   l1 
  79. | l2() 
  80. | l3() 
  81. | l4(", you") 
  82. | l5(", you") 
  83. | l6(", you") 
  84. | l7(", you")
  85. | l8(", you")
  86. | w1 
  87. | w2() 
  88. | w3() 
  89. | w4(", you") 
  90. | w5(", you") 
  91. | w6(", you") 
  92. | w7(", you")
  93. | w8(", you")
  94. | lw1;
  95.