Subversion Repositories Kolibri OS

Rev

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

  1. /**** REXX  ********   ZIP2EXE.CMD  **************  01/04/96 *********\
  2. |**  This exec will prepend the Info Zip unzipsfx.exe file to an    **|
  3. |**  existing ZIP file to create a self extracting zip.             **|
  4. |**                                                                 **|
  5. |**  The exec requires 1 argument, the name of the zip file to be   **|
  6. |**  acted upon.                                                    **|
  7. |**                                                                 **|
  8. |**  Put this exec into the path that contains your Info Zip        **|
  9. |**  executables.                                                   **|
  10. |**                                                                 **|
  11. \*********************************************************************/
  12. rc = 0
  13. /**  Start Argument processing  ** End Initialization               **/
  14. PARSE UPPER ARG zip_file
  15. IF zip_file = ""
  16. THEN
  17.   DO
  18.     SAY "You must specify the name of the file to be processed"
  19.     SAY "Please try again"
  20.     rc = 9
  21.     SIGNAL FINI
  22.   END
  23. IF POS(".ZIP",zip_file) = 0
  24. THEN
  25.   DO
  26.     sfx_file = zip_file||".EXE"
  27.     zip_file = zip_file||".ZIP"
  28.   END
  29. ELSE
  30.     sfx_file = SUBSTR(zip_file,1,LASTPOS(".",zip_file))||"EXE"
  31. zip_file = STREAM(zip_file,"C","QUERY EXISTS")
  32. IF zip_file = ""
  33. THEN
  34.   DO
  35.     SAY "The file "||ARG(1)||" Does not exist"
  36.     SAY "Processing terminated"
  37.     rc = 9
  38.     SIGNAL FINI
  39.   END
  40. /**  Start unzipsfx location    ** End Argument processing          **/
  41. PARSE UPPER SOURCE . . command_file
  42. unzipsfx = SUBSTR(command_file,1,LASTPOS("\",command_file))||,
  43.           "UNZIPSFX.EXE"
  44. IF STREAM(unzipsfx,"C","QUERY EXISTS") = ""
  45. THEN
  46.   DO
  47.     SAY "We are unable to locate the UNZIPSFX.EXE source"
  48.     SAY "Ensure that the ZIP2EXE command is in the directory",
  49.         "which contains UNZIPSFX.EXE"
  50.     rc = 9
  51.     SIGNAL FINI
  52.   END
  53. /**  Execute the command        ** End Argument processing          **/
  54. ADDRESS CMD "@COPY /b "||unzipsfx||"+"||zip_file,
  55.             sfx_file||" > NUL"
  56. IF rc = 0
  57. THEN
  58.   SAY sfx_file||" successfully created"
  59. ELSE
  60.   SAY sfx_file||" creation failed"
  61. FINI:
  62.   EXIT  rc
  63.