Category

Development Platform
Home > SourceCode/Document > Compress-Decompress algrithms > View Code
make
Package: unzip540.zip　[view]
Upload User: andy_li
Upload Date: 2007-01-06
Package Size: 1019k
Code Size: 1k
Category:

Compress-Decompress algrithms

Development Platform:

MultiPlatform

make：Code Content
  1. ?tacl routine
  2. #FRAME
  3. load /keep 1/ commacs
  5. #PUSH file prev options OK model unzip accel
  6. #PUSH #DEFAULTS
  8. load /keep 1/ macros
  10. #SET OK -1
  12. #SET options [#REST]
  13. [#IF NOT [#EMPTYV options] |THEN| #CHARINSV options 1 ","]
  14. #OUTPUT Compiler Options: [options]
  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
  26. #OUTPUT Making UNZIP using [model] memory model
  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. ]
  37. [#IF OK |THEN|
  38.   BBUNZIPLIB
  39.   [#IF [tacl^completioncode] > 0 |THEN| #SET OK 0]
  40. ]
  42. #PUSH #PROCESSFILESECURITY
  43. VOLUME ,"NUNU"
  45. [#IF OK |THEN|
  46.   BBUNZIP [unzip] [model]
  47.   [#IF [tacl^completioncode] > 0 |THEN| #SET OK 0]
  48. ]
  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. ]
  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. ]
  62. #OUTPUT Finished
  64. #UNFRAME