home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 August / PCWorld_2000-08_cd.bin / Software / TemaCD / freedos / full.bin / SOURCE / UNZ532 / CMSMVS / UNZVMC.EXC < prev    next >
Text File  |  1996-07-23  |  1KB  |  59 lines

  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
  59.