home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 9 Archive / 09-Archive.zip / unzip540.zip / tandem / make < prev    next >
Text File  |  1998-01-29  |  1KB  |  65 lines
  1. ?tacl routine
  2. #FRAME
  3. load /keep 1/ commacs
  4.  
  5. #PUSH file prev options OK model unzip accel
  6. #PUSH #DEFAULTS
  7.  
  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 unzip UNZIPW
  20. |ELSE|
  21.   #SET model LARGE
  22.   #SET unzip UNZIPL
  23. ]
  24. #SET accel UNZIP
  25.  
  26. #OUTPUT Making UNZIP 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.#UNZIP [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.   BBUNZIPLIB
  39.   [#IF [tacl^completioncode] > 0 |THEN| #SET OK 0]
  40. ]
  41.  
  42. #PUSH #PROCESSFILESECURITY
  43. VOLUME ,"NUNU"
  44.  
  45. [#IF OK |THEN|
  46.   BBUNZIP [unzip] [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 [unzip] [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. #UNFRAME
  65.