home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cpp_libs / intrvews / xgrab.lha / xgrab / data / exectest < prev    next >
Encoding:
Text File  |  1990-03-06  |  2.3 KB  |  106 lines
  1. # GRAB Graph Layout and Browser System
  2. #
  3. # Copyright (c) 1989, Tera Computer Company
  4. #
  5. # Note: this file will not work as is, currently, because the language does
  6. # not handle comments
  7.  
  8. if (.node and .NodeLabel = "E")
  9. then 
  10.     display .;
  11.     continue;
  12. elsif (.edge and .EdgeLabel = "ag")
  13. then 
  14.     set .foo = "heyhuh";
  15.     break;
  16. elsif "true" and not "false" and 
  17.       ((.node and (.NodeLabel = "K" or .NodeLabel = "H")) or (.edge and 
  18.     "ij3" = .EdgeLabel))
  19. then 
  20.     set .foo = "heyhey";
  21. else
  22.     set .foo = "heyho";
  23. endif
  24.  
  25. if (not .edge and .NodeLabel = "F" and .parents.NodeLabel = "A")
  26. then 
  27.     set .parents.bar = "Ha-ha-ha";
  28.     hide .in.source.;
  29. endif
  30.  
  31. if (.edge and .EdgeLabel = "bm" and .source.NodeLabel = "B")
  32. then 
  33.     set .foo = "heyhe";
  34. endif
  35.  
  36. if (.edge and .EdgeLabel = "bm" and .sink.NodeLabel = "M")
  37. then 
  38.     set .sink.bar = "he-de-he-de-ho";
  39.     focus .sink.;
  40. endif
  41.  
  42. if (.edge and .EdgeLabel = "kd2" and .sink.NodeLabel = "D")
  43. then 
  44.     expand .source.;
  45. endif
  46.  
  47. if (.edge and .EdgeLabel = "kd2" and .source.NodeLabel = "K")
  48. then 
  49.     set .source.bar = "hi-de-hi-de-ho";
  50.     coalesce .sink. .source.;
  51. endif
  52.  
  53. if (.node and .NodeLabel = "C" and .out.EdgeLabel = "cd")
  54. then 
  55.     set .children.out.bar = "hohoho";
  56.     expand .;
  57. endif
  58.  
  59. if (.node and .NodeLabel = "L" and .in.EdgeLabel = "dl")
  60. then 
  61.     set .parents.in.bar = "fefifofum";
  62.     expand .;
  63. endif
  64.  
  65. if (.node and .NodeLabel = "C" and .out.source.NodeLabel = "C")
  66. then 
  67.     set .out.source.parents.bar = "tralala";
  68.     display .parents.children.;
  69. endif
  70.  
  71. if (.node and .NodeLabel = "C" and .out.sink.NodeLabel = "D")
  72. then 
  73.     set .out.sink.children.blah = "falala";
  74.     focus .;
  75. endif
  76.  
  77. if (.node and .NodeLabel = "L" and .in.source.NodeLabel = "D")
  78. then 
  79.     set .parents.in.blah = "skoobedebop";
  80.     coalesce . .;
  81. endif
  82.  
  83. if (.node and .NodeLabel = "L" and .in.sink.NodeLabel = "L")
  84. then
  85.     set .in.source.children.in.blah = "humhum";
  86.     expand .;
  87. endif
  88.  
  89. if (.node and .NodeLabel = "L" and .descendants.NodeLabel = "M")
  90. then 
  91.    set .ancestors.baz = "shoobedo";
  92.    display .children.parents.;
  93. endif
  94.  
  95. if (.node and .NodeLabel = "L" and .children.NodeLabel = "M")
  96. then 
  97.     set .parents.baz = "yabbadabbado";
  98.     hide .descendants.;
  99. endif
  100.  
  101. if (.node and .NodeLabel = "B" and .ancestors.NodeLabel = "N")
  102. then 
  103.     set .descendants.baz = "rowrowrow";
  104.     display .children.;
  105. endif
  106.