home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 1 / FFMCD01.bin / bbs / libdisks / d800t899 / disk890.lha / FileRexx / RequestFile.ttx < prev    next >
Encoding:
Text File  |  1993-07-16  |  3.1 KB  |  139 lines
  1.  
  2. /**
  3.  ** RequestFile.ttx
  4.  **
  5.  ** I've made fixed definitions for the port-name of FileRexx, and also for
  6.  ** the file-pattern, the Filerequester should use for displaying.
  7.  **
  8.  ** In order to get FileRexx started by this script, the program has to be
  9.  ** in the system-path, or you have to specify the full path.
  10.  **
  11.  ** $VER: RequestFile.ttx 2.0 (Sunday 25 Apr 1993)
  12.  **/
  13.  
  14. OPTIONS RESULTS
  15.  
  16. /* Start FileRexx if it is not already running */
  17. IF ~SHOW('P','FILEREXX') THEN
  18.   ADDRESS COMMAND 'Run <NIL: >NIL: FileRexx REXXHOST'
  19.  
  20. ARG tool
  21.  
  22. GetFilePath
  23. name = result
  24.  
  25. SELECT
  26.   WHEN tool = "LOAD" THEN DO
  27.     ADDRESS FILEREXX
  28.     'GetFile TITLE="Open File..." FILE='||name
  29.     ADDRESS
  30.     IF Result~="" THEN OpenFile Result
  31.   END
  32.  
  33.   WHEN tool = "NEWDOC" THEN DO
  34.     OpenDoc
  35.     GetPort '""'
  36.     ADDRESS (Result)
  37.     ADDRESS FILEREXX
  38.     'GetFile TITLE="Open File..." FILE='||name
  39.     ADDRESS
  40.     IF Result~="" THEN OpenFile Result
  41.   END
  42.  
  43.   WHEN tool = "NEWDEF" THEN DO
  44.     name = "S:Support/TTX_Startup.dfn"
  45.     ADDRESS FILEREXX
  46.     'GetFile PAT=#?.dfn TITLE="Select new Definition-File..." FILE='||name
  47.     ADDRESS
  48.     IF Result~="" THEN OpenDefinitions Result
  49.   END
  50.  
  51.   WHEN tool = "EXEMAC" THEN DO
  52.     name = "REXX:Documentize.ttx"
  53.     ADDRESS FILEREXX
  54.     'GetFile PAT=#?.ttx TITLE="Execute an ARexxMacro..." FILE='||name
  55.     ADDRESS
  56.     IF Result~="" THEN ExecARexxMacro Result
  57.   END
  58.  
  59.   WHEN tool = "NEWMAC" THEN DO
  60.     name = "S:Macros/"
  61.     ADDRESS FILEREXX
  62.     'GetFile PAT=#?.mac TITLE="Open an Macro-File..." FILE='||name
  63.     ADDRESS
  64.     IF Result~="" THEN OpenMacro Result
  65.   END
  66.  
  67.   WHEN tool = "SAVMAC" THEN DO
  68.     name = "S:Macros/"
  69.     ADDRESS FILEREXX
  70.     'GetFileSave PAT=#?.mac TITLE="Save an Macro-File..." FILE='||name
  71.     ADDRESS
  72.     IF Result~="" THEN SaveMacro Result
  73.   END
  74.  
  75.   WHEN tool = "NEWPRF" THEN DO
  76.     name = "S:Support/TTX_Startup.prf"
  77.     ADDRESS FILEREXX
  78.     'GetFile PAT=#?.prf TITLE="Open an Prefs-File..." FILE='||name
  79.     ADDRESS
  80.     IF Result~="" THEN OpenPrefs Result
  81.   END
  82.  
  83.   WHEN tool = "SAVPRF" THEN DO
  84.     name = "S:Support/TTX_Startup.prf"
  85.     ADDRESS FILEREXX
  86.     'GetFileSave PAT=#?.prf TITLE="Save an Prefs-File..." FILE='||name
  87.     ADDRESS
  88.     IF Result~="" THEN SavePrefs Result
  89.   END
  90.  
  91.   WHEN tool = "INSERT" THEN DO
  92.     ADDRESS FILEREXX
  93.     'GetFile TITLE="Select File to insert..." FILE='||name
  94.     ADDRESS
  95.     IF Result~="" THEN DO
  96.       OpenClip Result
  97.       IF RC = 0 THEN PasteClip
  98.     END
  99.   END
  100.  
  101.   WHEN tool = "SAVCLP" THEN DO
  102.     name = "RAM:TTX_Clip.con"
  103.     ADDRESS FILEREXX
  104.     'GetFileSave TITLE="Save Clip as..." FILE='||name
  105.     ADDRESS
  106.     IF Result~="" THEN SaveClip "NOBACKUP" Result
  107.   END
  108.  
  109.   WHEN tool = "SAVE" THEN DO
  110.     IF (fileName ~= "") THEN DO
  111.       SaveFile
  112.       EXIT
  113.     END
  114.     ADDRESS FILEREXX
  115.     'GetFileSave TITLE="Save File..." FILE='||name
  116.     ADDRESS
  117.     IF Result~="" THEN DO
  118.       SetFilePath Result
  119.       SaveFile
  120.     END
  121.   END
  122.  
  123.   WHEN tool = "SAVEAS" THEN DO
  124.     ADDRESS FILEREXX
  125.     'GetFileSave TITLE="Save File As..." FILE='||name
  126.     ADDRESS
  127.     IF Result~="" THEN DO
  128.       SetFilePath Result
  129.       SaveFile
  130.     END
  131.   END
  132.  
  133.   OTHERWISE DO
  134.     BeepScreen
  135.     RequestBool "Error:" "Syntax Error!"
  136.     EXIT
  137.   END
  138. END
  139.