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