home *** CD-ROM | disk | FTP | other *** search
/ Programmer's ROM - The Computer Language Library / programmersrom.iso / ada / tools / wmgscmd.fls < prev    next >
Encoding:
Text File  |  1988-05-03  |  8.4 KB  |  235 lines
  1. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  2. --bldworld.com
  3. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  4. $SET VERIFY
  5. $set command TADA$DIR:TELESOFT
  6. $set command TMPP$DIR:NADA
  7. $!
  8. $!      The following VMS command file will rebuild the entire World
  9. $!  Map Generator System, using the Telesoft Ada pre-release 2.1
  10. $!  compiler.
  11. $!
  12. $!      Build Interactive_World
  13. $!
  14. $@intworld
  15. $!
  16. $!      Build Plotting_World
  17. $!
  18. $@pltworld
  19. $!
  20. $!      Build Latitude/Longitude Points File conversion tools.
  21. $!
  22. $@ptsworld
  23. $SET NOVERIFY
  24. $exit
  25. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  26. --intworld.com
  27. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  28. $SET VERIFY
  29. $!
  30. $!      The following VMS command file will rebuild the Interactive_World
  31. $!  tool of the World Map Generator System, using the Telesoft Ada pre-release 
  32. $!  2.1 compiler.
  33. $!
  34. $!      Build Interactive_World
  35. $!
  36. $!      Compile all the Ada package specifications.  The order of compilation
  37. $!  is SIGNIFICANT.  Consult the World Map Generator System User's Guide for
  38. $!  more details.
  39. $!
  40. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING menudraw.SP.
  41. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING menuPARSE.SP.
  42. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING menuFILEI.SP.
  43. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING worlddata.SP.
  44. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING graphic.SP.
  45. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING termfunct.SP.
  46. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING menutypes.SP.
  47. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING menutext.SP.
  48. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING menucurre.SP.
  49. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING worldmenu.SP.
  50. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING menuconst.SP.
  51. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING trigf.SP.
  52. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING floatch.SP.
  53. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING coref.SP.
  54. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING numpr.SP.
  55. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING WORLDMAP.SP.
  56. $!
  57. $!      Compile all the Ada package bodies and main subprograms.
  58. $!  Compilation order of the bodies are insignificant.
  59. $!
  60. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING menuPARSE
  61. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING menuFILEI
  62. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING menudraw
  63. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING worlddata
  64. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING termfunct
  65. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING menutypes
  66. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING menutext
  67. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING menucurre
  68. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING worldmenu
  69. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING menuconst
  70. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING trigf
  71. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING floatch
  72. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING coref
  73. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING numpr
  74. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING WORLDMAP
  75. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING WORLD
  76. $!
  77. $!      Set up a directory to hold all of the various terminal
  78. $! packages.  Compile all terminal packages and move them into the
  79. $! new directory.
  80. $!
  81. $CREATE/DIR [.TERMS]
  82. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING grprntrnx
  83. $COPY GRAPHIC.COD [.TERMS]GRprntrnx.COD
  84. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING grvt240
  85. $COPY GRAPHIC.COD [.TERMS]GRVT240.COD
  86. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING grvt241
  87. $COPY GRAPHIC.COD [.TERMS]GRVT241.COD
  88. $PU GRAPHIC.*
  89. $SET NOVERIFY
  90. $EXIT
  91. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  92. --pltworld.com
  93. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  94. $SET VERIFY
  95. $!
  96. $!      The following VMS command file will rebuild the Plotting_World
  97. $!  tool of the World Map Generator System, using the Telesoft Ada pre-release 
  98. $!  2.1 compiler.  This command file should only be executed AFTER the
  99. $!  intworld.com file has executed.
  100. $!
  101. $!      Build Plotting_World
  102. $!
  103. $!      Compile all the Ada package specifications.  The order of compilation
  104. $!  is SIGNIFICANT.  Consult the World Map Generator System User's Guide for
  105. $!  more details.
  106. $!
  107. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING plotmenu.sp.
  108. $!
  109. $!      Compile all the Ada package bodies and main subprograms.
  110. $!  Compilation order of the bodies are insignificant.
  111. $!
  112. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING plotmenu
  113. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING plot
  114. $SET NOVERIFY
  115. $EXIT
  116. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  117. --ptsworld.com
  118. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  119. $SET VERIFY
  120. $!
  121. $!      The following VMS command file will rebuild the Latitude/Longitude
  122. $!  point file tools of the World Map Generator System, using the Telesoft Ada 
  123. $!  pre-release 2.1 compiler.  This command file should only be executed AFTER 
  124. $!  pltworld.com and intworld.com files have executed.
  125. $!
  126. $!      Build tools
  127. $!
  128. $!
  129. $!      Compile all the Ada package bodies and main subprograms.
  130. $!  Compilation order of the bodies are insignificant.
  131. $!
  132. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING pointsrea
  133. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING symbolrea
  134. $ADA/MPP/DOTS/MPDOTS/NONOTIFY/SOURCE_LISTING symbolmer
  135. $SET NOVERIFY
  136. $EXIT
  137. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  138. --world.com
  139. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  140. $!
  141. $!      This VMS command file is used to invoke the Interactive_World
  142. $!  tool, or the World Map Generator System.
  143. $!
  144. $!      Interactive_World requires that the VT241(or VT240) terminal be
  145. $!  set in a nobroadcast, noecho mode.  The tool will not execute
  146. $!  correctly if the following commands are omitted:
  147. $!
  148. $      Set NoVerify
  149. $      Set Term/NoEcho
  150. $      Set Term/NoBroadcast
  151. $      On Control_Y Then Goto Done
  152. $      On Error     Then Goto Done
  153. $      On Warning   Then Goto Done
  154. $!
  155. $!      Change terminal types if requested.
  156. $!
  157. $      if P1 .Eqs. "VT241" Then Goto VT241
  158. $      if P1 .Eqs. "VT240" Then Goto VT240
  159. $      Goto Execute
  160. $ VT241:
  161. $      Copy/Nolog [.Terms]GrVT241.Cod Graphic.Cod
  162. $      Purge/Nolog Graphic.Cod
  163. $      Goto Execute
  164. $ VT240:
  165. $      Copy/Nolog [.Terms]GrVT240.Cod Graphic.Cod
  166. $      Purge/Nolog Graphic.Cod
  167. $!
  168. $ Execute:
  169. $!      Invoke Interactive_World, on termination or any errors goto
  170. $!  label DONE.
  171. $!
  172. $!
  173. $!      All graphic output to a VT240 or VT241 goes to the logical name
  174. $!  TD$VT241:.  If such a logical name has not been created, the following
  175. $!  assignment must be used.
  176. $      Assign/User TT: TD$VT241
  177. $!
  178. $      Assign/User TT: Sys$Input
  179. $      Texe World
  180. $ Done:
  181. $      Set Term/Echo
  182. $      Set Term/Broadcast
  183. $!
  184. $!      Interactive_World set the terminal to 132 column mode, lets reset
  185. $!  reset the terminal to 80 columns.
  186. $!
  187. $      Set Term/Width=80
  188. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  189. --plot.com
  190. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  191. $!      This VMS command file is used to invoke the World plotting
  192. $!  tool, a part of the World Map Generator System.
  193. $!
  194. $      Set NoVerify
  195. $      Set Term/NoBroadcast
  196. $      On Control_Y Then Goto Done
  197. $      On Error     Then Goto Done
  198. $      On Warning   Then Goto Done
  199. $!
  200. $!      Change the graphic terminal type to the printronix.
  201. $!
  202. $      Copy/Nolog/Noreplace [.Terms]GrPrntrnx.Cod Graphic.Cod
  203. $!
  204. $!      Invoke Interactive_World, on termination or any errors goto
  205. $!  label DONE.
  206. $!
  207. $      Assign/User TT: Sys$Input
  208. $      Texe Plot
  209. $!
  210. $!      Restore the graphics package for interactive terminal use
  211. $!  and reset the terminal for messages.
  212. $ Done:
  213. $      Delete/Noconfirm/Nolog Graphic.COD;0
  214. $      Set Term/Broadcast
  215. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  216. --terms.com
  217. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  218. $ SET DEFAULT DBA3:[LOPER.WIS.ULTRA.TERMS]
  219. $ CUR_DRIVE :== DBA3:
  220. $ CUR_PATH  :== LOPER.WIS.ULTRA.TERMS
  221. $ LAST_DRIVE :== DBA3:
  222. $ LAST_PATH :== LOPER.WIS.ULTRA
  223. $ FROM :== TERMS
  224. $ THIS :== @DBA3:[LOPER.WIS.ULTRA]TERMS
  225. $ UP :== @DBA3:[LOPER.WIS]ULTRA
  226. $ WRITE SYS$OUTPUT ""
  227. $ SEARCH = F$SEARCH("*.DIR")
  228. $ IF SEARCH .EQS. "" THEN GOTO LEAF
  229. $ DIRECTORY /NOTRAILING/BRIEF *.DIR
  230. $ EXIT
  231. $ LEAF:
  232. $ SHOW DEFAULT
  233. $ WRITE SYS$OUTPUT "THERE ARE NO SUB-DIRECTORIES FROM THIS NODE."
  234.  
  235.