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

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

压缩解压

开发平台：

MultiPlatform

unzvmc.exec：源码内容
  1. /* VMCOMPIL EXEC   Unzip compile for VM/CMS                           */
  2. /*                 Author : George Petrov, 11 Apr 1995                */
  3.  
  4. signal on error
  5.  
  6. parms = '(long def(VM_CMS)'
  7. /* Add local options */
  8. /* "TARGET(COMPAT)" is required for V2.2 compiler */
  9. parms = parms 'TARGET(COMPAT) SOURCE'
  10.  
  11.  
  12. say 'Compiling UNZIP C...'
  13. 'cc unzip c 'parms
  14. say 'Compiling CRC32 C...'
  15. 'cc crc32 c 'parms
  16. say 'Compiling CRCTAB C...'
  17. 'cc crctab c 'parms
  18. say 'Compiling CRYPT C...'
  19. 'cc crypt c 'parms
  20. say 'Compiling ENVARGS C...'
  21. 'cc envargs c 'parms
  22. say 'Compiling EXPLODE C...'
  23. 'cc explode c 'parms
  24. say 'Compiling EXTRACT C...'
  25. 'cc extract c 'parms
  26. say 'Compiling FILEIO C...'
  27. 'cc fileio c 'parms
  28. say 'Compiling GLOBALS C...'
  29. 'cc globals c 'parms
  30. say 'Compiling INFLATE C...'
  31. 'cc inflate c 'parms
  32. say 'Compiling PROCESS C...'
  33. 'cc process c 'parms
  34. say 'Compiling LIST C...'
  35. 'cc list c 'parms
  36. say 'Compiling MATCH C...'
  37. 'cc match c 'parms
  38. say 'Compiling TTYIO C...'
  39. 'cc ttyio c 'parms
  40. say 'Compiling UNREDUCE C...'
  41. 'cc unreduce c 'parms
  42. say 'Compiling UNSHRINK C...'
  43. 'cc unshrink c 'parms
  44. say 'Compiling ZIPINFO C...'
  45. 'cc zipinfo c 'parms
  46. say 'Compiling VMMVS C...'
  47. 'cc vmmvs c 'parms
  48.  
  49. say 'Linking all files...'
  50. 'cmod unzip unzip crc32 crctab crypt envargs explode extract fileio globals',
  51.            'inflate list match process ttyio unreduce unshrink zipinfo vmmvs'
  52. say 'All Done!'
  53. say "To run enter : UNZIP parms"
  54. exit rc
  55.  
  56. error:
  57. say 'Error during compilation!'
  58. exit rc