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

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

压缩解压

开发平台：

MultiPlatform

ccunzip.exec：源码内容
  1. /* CCUNZIP  EXEC   Compile unzip 5.4 for VM/CMS                           */
  2. /*                 Author: George Petrov, 11 Apr 1995 (VMCOMPIL EXEC) */
  3. /* Modified for IBM C V3R1 by Ian E. Gorman, 2 Nov 1998
  4.    Facilities for compiling and testing were provided by
  5.       OmniMark Technologies Corporation, Ottawa, Canada
  6. */
  7. Address Command
  8. Signal On Error
  10. /* Allow longnames, compile re-entrant code.
  11.    global.c and vmmvs.c require EXTENDED features */
  12. CCopts = 'LONGNAME RENT LANGLVL(EXTENDED) NOEXECOPS'
  14. /* UNZIP options -- VM_CMS, REENTRANT */
  15. CCopts = CCopts 'DEFINE(VM_CMS,REENTRANT)'
  17. /* Link the load module to run in more or less than 16MB memory */
  18. LINKopts = 'AMODE ANY RMODE ANY RLDSAVE'
  21. 'GLOBAL TXTLIB  SCEELKED CMSLIB'
  22. 'GLOBAL LOADLIB SCEERUN'
  25. /* produce the TEXT (object) files */
  26. linklist=''
  27. modname='UNZIP'
  28. Say 'Building' modname 'MODULE...'
  29. Call Compile 'UNZIP'
  30. Call Compile 'CRC32'
  31. Call Compile 'CRCTAB'
  32. Call Compile 'CRYPT'
  33. Call Compile 'ENVARGS'
  34. Call Compile 'EXPLODE'
  35. Call Compile 'EXTRACT'
  36. Call Compile 'FILEIO'
  37. Call Compile 'GLOBALS'
  38. Call Compile 'INFLATE'
  39. Call Compile 'PROCESS'
  40. Call Compile 'LIST'
  41. Call Compile 'MATCH'
  42. Call Compile 'TTYIO'
  43. Call Compile 'UNREDUCE'
  44. Call Compile 'UNSHRINK'
  45. Call Compile 'ZIPINFO'
  46. Call Compile 'VMMVS'
  48. Say 'Linking...'
  49. 'EXEC CMOD' linklist '(MODNAME' modname LINKopts
  50. Say modname 'built successfully.'
  53. /* Make ZIPINFO from UNZIP */
  54. modname = 'ZIPINFO'
  55. 'COPYFILE UNZIP MODULE A ZIPINFO MODULE A (OLDDATE REPLACE'
  56. Say modname 'built successfully.'
  57. Say 'Done.'
  59. Exit rc
  63. error:
  64. Say 'Error' rc 'during compilation!'
  65. Say 'Error in line' sigl':'
  66. Say '   'Sourceline(sigl)
  67. Exit rc
  71. Compile:  Procedure Expose CCopts LINKopts linklist
  72. Parse arg filename filetype filemode .
  73. If filetype='' Then filetype='C'
  74. linklist = linklist filename
  76. Say 'Compiling' filename filetype filemode '...'
  77. 'EXEC CC' filename filetype filemode '('CCopts
  78. Return rc