Subversion Repositories Kolibri OS

Rev

Blame | Last modification | View Log | Download | RSS feed

  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 CRYPT C...'
  17. 'cc crypt c 'parms
  18. say 'Compiling ENVARGS C...'
  19. 'cc envargs c 'parms
  20. say 'Compiling EXPLODE C...'
  21. 'cc explode c 'parms
  22. say 'Compiling EXTRACT C...'
  23. 'cc extract c 'parms
  24. say 'Compiling FILEIO C...'
  25. 'cc fileio c 'parms
  26. say 'Compiling GLOBALS C...'
  27. 'cc globals c 'parms
  28. say 'Compiling INFLATE C...'
  29. 'cc inflate c 'parms
  30. say 'Compiling PROCESS C...'
  31. 'cc process c 'parms
  32. say 'Compiling LIST C...'
  33. 'cc list c 'parms
  34. say 'Compiling MATCH C...'
  35. 'cc match c 'parms
  36. say 'Compiling TTYIO C...'
  37. 'cc ttyio c 'parms
  38. say 'Compiling UNREDUCE C...'
  39. 'cc unreduce c 'parms
  40. say 'Compiling UNSHRINK C...'
  41. 'cc unshrink c 'parms
  42. say 'Compiling ZIPINFO C...'
  43. 'cc zipinfo c 'parms
  44. say 'Compiling VMMVS C...'
  45. 'cc vmmvs c 'parms
  46.  
  47. say 'Linking all files...'
  48. 'cmod unzip unzip crc32 crypt envargs explode extract fileio globals',
  49.            'inflate list match process ttyio unreduce unshrink zipinfo vmmvs'
  50. say 'All Done!'
  51. say "To run enter : UNZIP parms"
  52. exit rc
  53.  
  54. error:
  55. say 'Error during compilation!'
  56. exit rc
  57.