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