home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / ADPro251-3.DMS / ADPro251-3.adf / ADProScripts.lha / Joinz.adpro < prev    next >
Encoding:
Text File  |  1994-01-31  |  1.9 KB  |  105 lines
  1. /*
  2. ** Joinz.adpro
  3. **
  4. ** $VER: Joinz.adpro 1.0.0 (16.11.93)
  5. **
  6. ** The ARexx program will rejoin chunks that were split apart by the
  7. ** Amiga Joinz program.
  8. **
  9. ** This program requires ADPro v2.5.0 (or higher) and the Amiga
  10. ** Joinz program.
  11. **
  12. ** Copyright © 1993 ASDG, Incorporated
  13. ** All Rights Reserved
  14. */
  15.  
  16.  
  17. ADDRESS "ADPro"
  18. OPTIONS RESULTS
  19.  
  20. NL = '0A'X
  21. SQ = '27'X
  22. DQ = '22'X
  23. TRUE  = 1
  24. FALSE = 0
  25. TempDefaults = "T:TempADProDefaults"
  26.  
  27.  
  28. /*
  29. ** Save the current environment.
  30. */
  31.  
  32. SAVE_DEFAULTS TempDefaults
  33.  
  34.  
  35. /*
  36. ** Specify the location of the Splitz program.
  37. */
  38.  
  39. JoinzFile = GETCLIP( "JoinzFile" )
  40. IF (JoinzFile = "") THEN DO
  41.     continue = FALSE
  42.     DO UNTIL (continue = TRUE)
  43.         CALL "FREDSCRIPTS:FREDFunctions/GetAFile" '"Enter Location of Joinz"' '"ADPRO:"' '"Joinz"' FALSE
  44.         JoinzFile = RESULT
  45.         IF (JoinzFile = DQ||DQ) THEN
  46.             CALL ErrorOut 10
  47.  
  48.         IF (EXISTS( JoinzFile )) THEN
  49.             continue = TRUE
  50.         ELSE DO
  51.             ADPRO_TO_FRONT
  52.  
  53.             OKAYN '"Joinz"' '"Joinz doesn''t exist in specified directory"' '"Retry|Cancel"'
  54.             IF (RC = 0) THEN
  55.                 CALL ErrorOut 10
  56.         END
  57.     END
  58.  
  59.     SETCLIP( "JoinzFile", JoinzFile )
  60. END
  61.  
  62. CALL "FREDSCRIPTS:FREDFunctions/GetAFile" '"Chunk location & base name"' '"ADPRO:"' TRUE
  63. chunkname = RESULT
  64. IF (chunkname = DQ||DQ) THEN DO
  65.     ADPRO_TO_FRONT
  66.     OKAY1 "Base name & location not specified."
  67.     CALL ErrorOut 10
  68. END
  69.  
  70. CALL "FREDSCRIPTS:FREDFunctions/GetAFile" '"Destination path & filename"' '"ADPRO:"' TRUE
  71. pathname = RESULT
  72. IF (pathname = DQ||DQ) THEN DO
  73.     ADPRO_TO_FRONT
  74.     OKAY1 "Filename & path not specified."
  75.     CALL ErrorOut 10
  76. END
  77.  
  78. ADDRESS COMMAND JoinzFile chunkname pathname
  79. IF (RC ~= 0) THEN DO
  80.     ADPRO_TO_FRONT
  81.     OKAY1 "Could not load Joinz."
  82.     CALL ErrorOut 10
  83. END
  84.  
  85. ADPRO_TO_FRONT
  86. OKAY1 "File has been joined."
  87.  
  88. CALL ErrorOut 0
  89.  
  90.  
  91. ErrorOut:
  92.     PARSE ARG ExitCode
  93.  
  94.     IF (EXISTS( TempDefaults )) THEN DO
  95.         LOAD_DEFAULTS TempDefaults
  96.         IF (RC ~= 0) THEN DO
  97.             ADPRO_TO_FRONT
  98.             OKAY1 "Error restoring settings."
  99.         END
  100.  
  101.         ADDRESS COMMAND "Delete >NIL:" TempDefaults
  102.     END
  103.  
  104.     EXIT ExitCode
  105.