home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Cruncher / XPKAT10.LHA / XPKatana / Arexx / FW-Pack_kat.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-12-20  |  2.2 KB  |  69 lines
  1. /******************************************************************************
  2. *                                                                             *
  3. *                           FWKatanaPACK.rexx V1.0                            *
  4. *                                                                             *
  5. *           ARexx Interface Script for Final Writer, using XPKatana           *
  6. *                                                                             *
  7. *          This script compress and save files made by Final Writer.          *
  8. *            XPKatana's "Pack ?" is used to bring up a requester.             *
  9. *                                                                             *
  10. *                   Uses ARexx Ports "KATANA" and "FINALW.1"                  *
  11. *                                                                             *
  12. *        Written by Rémi Létourneau & Eric Sauvageau, December 20th 1995      *
  13. *                                                                             *
  14. ******************************************************************************/
  15.  
  16.   OPTIONS RESULTS
  17.   SIGNAL ON ERROR
  18.  
  19. /* Change this as needed */
  20. PACKER = "NUKE"    /* Packer to use */
  21.  
  22. XPKATANA_PATH = "SYS:Utilities/XPKatana"
  23.  
  24.  
  25. /* FIRST, we have TO actually Verify is XPKatana is running.           */
  26.   If ~SHOW('p',"KATANA") Then Do
  27.  
  28. /* IF XPKatana is not already running, start it in iconified state. */
  29.         start = 1
  30.         ADDRESS COMMAND "run <>NIL: "||XPKATANA_PATH||" ICONIFY"
  31.         ADDRESS COMMAND "WaitForPort KATANA"
  32.   END
  33.  
  34.  
  35. /* Speak to the Final Writer Port that started this script and save    */
  36. /* the file with the filename that we got from XPKatana's Requester    */
  37.   ADDRESS "FINALW.1"
  38.   SAVE "T:FWXPK_TMP"
  39.  
  40.  
  41. /* Go back to XPKatana */
  42.   ADDRESS 'KATANA'
  43.  
  44. /* Get the source file */
  45.   SETSOURCE "T:FWXPK_TMP"
  46.  
  47. /* Set the packer */
  48.   SETPACKER PACKER 100
  49.  
  50. /* Set XPKatana to "No progress window", "Handle Suffix" and 
  51.    "Delete source." */
  52.   SETFLAGS NOPROGRESS 1 SUFFIX 1 DELSOURCE 1
  53.  
  54. /* Pack the file, asking for the destination filename   */
  55.  
  56.   PACK "?"
  57.  
  58.   /* error = result
  59.   If error = "ABORT" Then Do
  60.      Say "Packing aborted or failed!"
  61.   End
  62.   Else Do
  63.     Say "Packed."
  64.   End
  65.   */
  66.  
  67. /* Quit XPKatana */
  68.   If start = 1 Then  Quit
  69.