home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 August / PCWorld_2000-08_cd.bin / Software / TemaCD / freedos / full.bin / SOURCE / UNZ532 / TANDEM / MACROS < prev    next >
Text File  |  1997-08-01  |  6KB  |  233 lines
  1. ?section ADD^LIST routine
  2. [#IF [#ARGUMENT /VALUE item/ WORD/SPACE/]]
  3. #APPEND bin ADD * FROM [item]
  4. #SET itime [#FILEINFO /MODIFICATION/ [item]]
  5. [#IF itime > ntime |THEN| #SETV ntime itime]
  6.  
  7. ?section BBZIPLIB MACRO
  8. #FRAME
  9. #push bin item ntime itime libtime
  10. #SET ntime 0
  11.  
  12. #OUTPUT Building ZIPLIB
  13. #APPEND bin CLEAR
  14. add^list BITSO
  15. add^list CRC32O
  16. add^list CRCTABO
  17. add^list DEFLATEO
  18. add^list FILEIOO
  19. add^list GLOBALSO
  20. add^list MKTIMEO
  21. add^list TANDEMO
  22. add^list TREESO
  23. add^list TTYIOO
  24. add^list UTILO
  25. add^list ZIPFILEO
  26. add^list ZIPUPO
  27. #APPEND bin INFO UNRESOLVED *
  28. #APPEND bin BUILD ZIPLIB ! , LIST * OFF
  29.  
  30. #SET libtime [#FILEINFO /MODIFICATION/ ZIPLIB]
  31. [#IF libtime < ntime
  32. |THEN|
  33.   #OUTPUT ZIPLIB needs re-building
  34.   BIND /NAME,INV BIN/
  35.   [#CASE [tacl^completioncode]
  36.   | 0         | #OUTPUT Bound ZIPLIB OK
  37.   | 1         | #OUTPUT ZIPLIB: BIND Failed with Warnings
  38.   | OTHERWISE | #OUTPUT ZIPLIB: BIND Failed with ERRORS !
  39.   ]
  40. |ELSE|
  41.   #OUTPUT ZIPLIB is up to date
  42. ]
  43.  
  44. #UNFRAME
  45.  
  46. ?section BBZIP MACRO
  47. #FRAME
  48. #push bin ziptime build
  49. #SET build 0
  50. #OUTPUT Building %1% with %2% memory model
  51. #APPEND bin CLEAR
  52. #APPEND bin ADD * FROM ZIPO
  53. #APPEND bin select search ($system.system.c%2%, ZIPLIB)
  54. #APPEND bin select runnable object on
  55. #APPEND bin select list * off
  56. #APPEND bin set heap 20 pages
  57. #APPEND bin set symbols on
  58. #APPEND bin set saveabend on
  59. #APPEND bin set inspect on
  60. #APPEND bin info unresolved *
  61. #APPEND bin BUILD %1%   !
  62.  
  63. #SET ziptime [#FILEINFO /MODIFICATION/ %1%]
  64. [#IF ziptime < [#FILEINFO /MODIFICATION/ ZIPO] |THEN|
  65.   #OUTPUT %1% is older than ZIPO
  66.   #SET build -1
  67. ]
  68. [#IF ziptime < [#FILEINFO /MODIFICATION/ ZIPLIB] |THEN|
  69.   #OUTPUT %1% is older than ZIPLIB
  70.   #SET build -1
  71. ]
  72. [#IF build
  73. |THEN|
  74.   #OUTPUT %1% is out of date, re-building
  75.   BIND /NAME,INV BIN/
  76.   [#CASE [tacl^completioncode]
  77.   | 0         | #OUTPUT Bound %1% OK
  78.   | 1         | #OUTPUT %1%: BIND Failed with Warnings
  79.   | OTHERWISE | #OUTPUT %1%: BIND Failed with ERRORS !
  80.   ]
  81. |ELSE|
  82.   #OUTPUT %1% is up to date, no re-build required
  83. ]
  84.  
  85. #UNFRAME
  86.  
  87. ?section BBANY MACRO
  88. #FRAME
  89. #push bin memory anytime build
  90. #SET build 0
  91. #SETMANY memory, %2% LARGE
  92. #OUTPUT Building %1% with [memory] memory model
  93. #APPEND bin CLEAR
  94. #APPEND bin ADD * FROM %1%O
  95. #APPEND bin select search ($system.system.c[memory],ZIPLIB)
  96. #APPEND bin select runnable object on
  97. #APPEND bin select list * off
  98. #APPEND bin set heap 20 pages
  99. #APPEND bin set symbols on
  100. #APPEND bin set saveabend on
  101. #APPEND bin set inspect on
  102. #APPEND bin info unresolved *
  103. #APPEND bin BUILD %1%   !
  104.  
  105. #SET anytime [#FILEINFO /MODIFICATION/ %1%]
  106. [#IF anytime < [#FILEINFO /MODIFICATION/ %1%O] |THEN|
  107.   #OUTPUT %1% is older than %1%O
  108.   #SET build -1
  109. ]
  110. [#IF anytime < [#FILEINFO /MODIFICATION/ ZIPLIB] |THEN|
  111.   #OUTPUT %1% is older than ZIPLIB
  112.   #SET build -1
  113. ]
  114. [#IF build
  115. |THEN|
  116.   #OUTPUT %1% is out of date, re-building
  117.   BIND /NAME,INV BIN/
  118.   [#CASE [tacl^completioncode]
  119.   | 0         | #OUTPUT Bound %1% OK
  120.   | 1         | #OUTPUT %1%: BIND Failed with Warnings
  121.   | OTHERWISE | #OUTPUT %1%: BIND Failed with ERRORS !
  122.   ]
  123. |ELSE|
  124.   #OUTPUT %1% is up to date, no re-build required
  125. ]
  126.  
  127. #UNFRAME
  128.  
  129.  
  130. ?section BBUNZIPLIB MACRO
  131. #FRAME
  132. #push bin item ntime itime libtime
  133. #SET ntime 0
  134.  
  135. #OUTPUT Building UNZIPLIB
  136. #APPEND bin CLEAR
  137. add^list CRC32O
  138. add^list CRCTABO
  139. add^list ENVARGSO
  140. add^list EXPLODEO
  141. add^list EXTRACTO
  142. add^list FILEIOO
  143. add^list GLOBALSO
  144. add^list INFLATEO
  145. add^list LISTO
  146. add^list MATCHO
  147. add^list PROCESSO
  148. add^list TANDEMO
  149. add^list TTYIOO
  150. ==add^list UNREDUCO
  151. add^list UNSHRINO
  152. add^list ZIPINFOO
  153. #APPEND bin INFO UNRESOLVED *
  154. #APPEND bin BUILD UNZIPLIB ! , LIST * OFF
  155.  
  156. #SET libtime [#FILEINFO /MODIFICATION/ UNZIPLIB]
  157. [#IF libtime < ntime
  158. |THEN|
  159.   #OUTPUT UNZIPLIB needs re-building
  160.   BIND /NAME,INV BIN/
  161.   [#CASE [tacl^completioncode]
  162.   | 0         | #OUTPUT Bound UNZIPLIB OK
  163.   | 1         | #OUTPUT UNZIPLIB: BIND Failed with Warnings
  164.   | OTHERWISE | #OUTPUT UNZIPLIB: BIND Failed with ERRORS !
  165.   ]
  166. |ELSE|
  167.   #OUTPUT UNZIPLIB is up to date
  168. ]
  169.  
  170. #UNFRAME
  171.  
  172. ?section BBUNZIP MACRO
  173. #FRAME
  174. #push bin ziptime build
  175. #SET build 0
  176. #OUTPUT Building %1% with %2% memory model
  177. #APPEND bin CLEAR
  178. #APPEND bin ADD * FROM UNZIPO
  179. #APPEND bin select search ($system.system.c%2%,UNZIPLIB)
  180. #APPEND bin select runnable object on
  181. #APPEND bin select list * off
  182. #APPEND bin set heap 20 pages
  183. #APPEND bin set symbols on
  184. #APPEND bin set saveabend on
  185. #APPEND bin set inspect on
  186. #APPEND bin info unresolved *
  187. #APPEND bin BUILD %1%   !
  188.  
  189. #SET ziptime [#FILEINFO /MODIFICATION/ %1%]
  190. [#IF ziptime < [#FILEINFO /MODIFICATION/ UNZIPO] |THEN|
  191.   #OUTPUT %1% is older than UNZIPO
  192.   #SET build -1
  193. ]
  194. [#IF ziptime < [#FILEINFO /MODIFICATION/ UNZIPLIB] |THEN|
  195.   #OUTPUT %1% is older than UNZIPLIB
  196.   #SET build -1
  197. ]
  198. [#IF build
  199. |THEN|
  200.   #OUTPUT %1% is out of date, re-building
  201.   BIND /NAME,INV BIN/
  202.   [#CASE [tacl^completioncode]
  203.   | 0         | #OUTPUT Bound %1% OK
  204.   | 1         | #OUTPUT %1%: BIND Failed with Warnings
  205.   | OTHERWISE | #OUTPUT %1%: BIND Failed with ERRORS !
  206.   ]
  207. |ELSE|
  208.   #OUTPUT %1% is up to date, no re-build required
  209. ]
  210.  
  211. #UNFRAME
  212.  
  213. ?section accel^file MACRO
  214. #FRAME
  215. #PUSH buf
  216. [#IF [#FILEINFO /MODIFICATION/ %1%]
  217.    > [#FILEINFO /MODIFICATION/ %2%]
  218. |THEN|
  219.   #OUTPUT %2% is older than %1%
  220.   #OUTPUT Accelerating %1% to %2%
  221.   AXCEL /IN [general_seg_subvol].DUMMY, OUTV buf/ %1%,%2%
  222.   #OUTPUTV buf
  223.   [#CASE [tacl^completioncode]
  224.   | 0         | #OUTPUT Accelerated %2% OK
  225.   | 1         | #OUTPUT %2%: AXCEL Failed with Warnings
  226.   | OTHERWISE | #OUTPUT %2%: AXCEL Failed with ERRORS !
  227.   ]
  228. |ELSE|
  229.   #OUTPUT %2% is up to date
  230. ]
  231.  
  232. #UNFRAME
  233.