home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / CAMS304.ZIP / XCAMS.BAT < prev   
Encoding:
DOS Batch File  |  1988-12-09  |  4.6 KB  |  127 lines
  1. ECHO OFF
  2. IF NOT EXIST CAMS.SCR GOTO CLEARIT
  3. TYPE CAMS.SCR
  4. PAUSE >NUL
  5. :CLEARIT
  6. CLS
  7. ECHO     ┌─────────────────────────────────────────────────────────────────────┐
  8. ECHO     │        C O M P U T E R    G E O M E T R Y    C O M P A N Y          │
  9. ECHO     │                                                                     │
  10. ECHO     │                              C A M S                                │
  11. ECHO     ├─────────────────────────────────────────────────────────────────────┤
  12. IF %1T == T GOTO ERROR
  13. IF EXIST CAMS.TBL GOTO NEXT1
  14. COPY C:\CAMS\CAMS.TBL > NUL
  15. :NEXT1
  16. IF NOT EXIST %1.NC GOTO ERROR
  17. IF %2T == T    GOTO NOLIST
  18. IF %2T == MT   GOTO NOLIST
  19. IF %2T == LT   GOTO   LIST
  20. IF %2T == PT   GOTO NOLIST
  21. IF %2T == LPT  GOTO   LIST
  22. IF %2T == MLT  GOTO   LIST
  23. IF %2T == MPT  GOTO NOLIST
  24. IF %2T == MLPT GOTO   LIST
  25. :ERROR
  26. ECHO     │ The correct command for the execution of the CAMS system is:        │
  27. ECHO     │                                                                     │
  28. ECHO     │        XCAMS  {name}  [MLP/ML/MP/LP/M/L/P] [plotter] [machine]      │
  29. ECHO     │                                                                     │
  30. ECHO     │   e.g. XCAMS  CAMPLATE  LP  VIDEO                                   │
  31. ECHO     │                                                                     │
  32. ECHO     │ {name} ... The source file name (without extension) - required      │
  33. ECHO     │  M     ... Machine output --- [machine] name is required            │
  34. ECHO     │  L     ... Listing output --- produces {name}.LST                   │
  35. ECHO     │  P     ... Plotter output --- [plotter] name is required            │
  36. ECHO     │  NOTE: ... Options omitting the "L" will print to the screen        │
  37. ECHO     ├─────────────────────────────────────────────────────────────────────┤
  38. ECHO     │                                                                     │
  39. ECHO     │ Your command ... XCAMS %1 %2 %3 %4
  40. ECHO     │                                                                     │
  41. IF %1T == T GOTO NONE
  42. IF EXIST %1.NC GOTO ERROR2
  43. ECHO     │   The source file is not accessible via the specified path  . . .   │
  44. GOTO ERROR3
  45. :NONE
  46. ECHO     │   You must specify an argument for {name} . . . . . . . . . . . .   │
  47. GOTO ERROR3
  48. :ERROR2
  49. ECHO     │   The option characters (M,L,P) must be omitted or entered as shown │
  50. :ERROR3
  51. ECHO     └─────────────────────────────────────────────────────────────────────┘
  52. GOTO END
  53. :LIST
  54. ECHO     │         CAMS processing  - please stand-by . . . . . . . . . . . .  │
  55. ECHO     └─────────────────────────────────────────────────────────────────────┘
  56. ECHO ON
  57. C:\CAMS\CAMS1 %1.NC  > %1.LST
  58. C:\CAMS\CAMS2 %1.PRO >> %1.LST
  59. ECHO OFF
  60. IF %2T == LT GOTO DONE
  61. GOTO NEXT2
  62. :NOLIST
  63. ECHO     │         CAMS processing  - please stand-by . . . . . . . . . . . .  │
  64. ECHO     └─────────────────────────────────────────────────────────────────────┘
  65. ECHO ON
  66. C:\CAMS\CAMS1 %1.NC
  67. C:\CAMS\CAMS2 %1.PRO
  68. ECHO OFF
  69. IF %2T == T GOTO DONE
  70. :NEXT2
  71. IF %2T == MT   GOTO NOPLOT
  72. IF %2T == MLT  GOTO NOPLOT
  73. IF EXIST C:\CAMS\%3PP.EXE GOTO PLOT2
  74. ECHO     ┌─────────────────────────────────────────────────────────────────────┐
  75. ECHO     │         %3 Plotter is not available  . . . . .
  76. ECHO     └─────────────────────────────────────────────────────────────────────┘
  77. GOTO PLOT3
  78. :PLOT2
  79. C:\CAMS\%3PP %1.CLF
  80. :PLOT3
  81. IF %2T == PT GOTO DONE
  82. IF %2T == LPT GOTO DONE
  83. :NOPLOT
  84. IF %2T == MT   GOTO  POST3
  85. IF %2T == MLT  GOTO  POST3
  86. IF EXIST C:\CAMS\%4PP.EXE GOTO POST1
  87. ECHO     ┌─────────────────────────────────────────────────────────────────────┐
  88. ECHO     │         %4 Postprocessor is not available  . .
  89. ECHO     └─────────────────────────────────────────────────────────────────────┘
  90. GOTO DONE
  91. :POST1
  92. IF %2T == MLPT  GOTO POST1L
  93. ECHO ON
  94. C:\CAMS\%4PP %1.CLF
  95. ECHO OFF
  96. GOTO DONE
  97. :POST1L
  98. ECHO ON
  99. C:\CAMS\%4PP %1.CLF >> %1.LST
  100. ECHO OFF
  101. GOTO DONE
  102. :POST3
  103. IF EXIST C:\CAMS\%3PP.EXE GOTO POST2
  104. ECHO     ┌─────────────────────────────────────────────────────────────────────┐
  105. ECHO     │         %3 Postprocessor is not available  . .
  106. ECHO     └─────────────────────────────────────────────────────────────────────┘
  107. GOTO DONE
  108. :POST2
  109. IF %2T == MLT  GOTO POST3L
  110. ECHO ON
  111. C:\CAMS\%3PP %1.CLF
  112. ECHO OFF
  113. GOTO DONE
  114. :POST3L
  115. ECHO ON
  116. C:\CAMS\%3PP %1.CLF >> %1.LST
  117. ECHO OFF
  118. :DONE
  119. ECHO     ┌─────────────────────────────────────────────────────────────────────┐
  120. ECHO     │                    CAMS processing completed                        │
  121. ECHO     └─────────────────────────────────────────────────────────────────────┘
  122. :END
  123. IF EXIST %1.CAN ERASE %1.CAN > NUL
  124. IF EXIST %1.PRO ERASE %1.PRO > NUL
  125. IF EXIST %1.CLF ERASE %1.CLF > NUL
  126. ECHO ON
  127.