开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 压缩解压 > 查看源码
make
资源名称：unzip540.zip　[点击查看]
上传用户：andy_li
上传日期：2007-01-06
资源大小：1019k
文件大小：1k
源码类别：

压缩解压

开发平台：

MultiPlatform

make：源码内容
  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