home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 9 Archive / 09-Archive.zip / zip22.zip / tandem / make < prev    next >
Text File  |  1997-10-06  |  2KB  |  80 lines
  1. ?tacl routine
  2. #FRAME
  3. load /keep 1/ $data9.daveszip.commacs
  4.  
  5. #PUSH file prev options OK model zip obj accel
  6. #PUSH #DEFAULTS
  7. VOLUME $DATA9.DAVESZIP
  8. load /keep 1/ macros
  9.  
  10. #SET OK -1
  11.  
  12. #SET options [#REST]
  13. [#IF NOT [#EMPTYV options] |THEN| #CHARINSV options 1 ","]
  14. #OUTPUT Compiler Options: [options]
  15.  
  16. [#IF [#MATCH *WIDE* [options]]
  17. |THEN|
  18.   #SET model WIDE
  19.   #SET zip ZIPW
  20. |ELSE|
  21.   #SET model LARGE
  22.   #SET zip ZIPL
  23. ]
  24. #SET accel $DATA9.DAVES.ZIP
  25.  
  26. #OUTPUT Making ZIP using [model] memory model
  27.  
  28. #SET file [#FILENAMES /MAXIMUM 1/ *C]
  29. [#loop |while| NOT [#EMPTYV file]
  30. |do|
  31.   #SETV prev file
  32.   CC [file] $T.#ZIP [options]
  33.   [#IF [tacl^completioncode] > 1 |THEN| #set OK 0 ]
  34.   #SET file [#FILENAMES /MAXIMUM 1, PREVIOUS [prev]/ *C]
  35. ]
  36.  
  37. [#IF OK |THEN|
  38.   BBZIPLIB
  39.   [#IF [tacl^completioncode] > 0 |THEN| #SET OK 0]
  40. ]
  41.  
  42. #PUSH #PROCESSFILESECURITY
  43. VOLUME ,"NUNU"
  44.  
  45. [#IF OK |THEN|
  46.   BBZIP [zip] [model]
  47.   [#IF [tacl^completioncode] > 0 |THEN| #SET OK 0]
  48. ]
  49.  
  50. [#IF OK |THEN|
  51.   secure^file [accel] "UUUU" SUPER.DAVES
  52.   accel^file [zip] [accel]
  53.   [#IF [tacl^completioncode] > 0 |THEN| #SET OK 0]
  54. ]
  55.  
  56. [#IF OK
  57.   |THEN| #OUTPUT Successfully produced Accelerated Object [accel]
  58.          secure^file [accel] "UUUU" SUPER.DAVES
  59.   |ELSE| #OUTPUT Failed to produce Accelerated Object [accel]
  60. ]
  61.  
  62. #OUTPUT Finished
  63.  
  64. #OUTPUT Setting up additonal utilities
  65. == ZIPNOTE
  66. CC ZIPNOTEC $T.#ZIP [options]
  67. #SET zip ZIPNOTE
  68. #SET accel $DATA9.DAVES.ZIPNOTE
  69. [#IF OK |THEN|
  70.   BBANY [zip] [model]
  71.   [#IF [tacl^completioncode] > 0 |THEN| #SET OK 0]
  72. ]
  73. [#IF OK |THEN|
  74.   secure^file [accel] "UUUU" SUPER.DAVES
  75.   accel^file [zip] [accel]
  76.   [#IF [tacl^completioncode] > 0 |THEN| #SET OK 0]
  77. ]
  78.  
  79. #UNFRAME
  80.