home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 600-699 / ff645.lha / DMD / REXX / ARPFileReq.dme < prev    next >
Text File  |  1992-04-26  |  2KB  |  64 lines
  1. /* ARPFileReq.dme © 1992 Fergus Duniho */
  2.  
  3. /* Various operations that use the ARP File Requester
  4.  * N.B.:  This macro requires ARP and RexxArpLib. */
  5.  
  6. Parse Arg HAIL
  7.  
  8. P = GetEnv('P')
  9. N = GetEnv('N')
  10. C = ''
  11. Q = GetF()
  12. Select
  13.     When HAIL = "Append Block to File" Then Do
  14.         bsave 'T:TEXT'
  15.         C = 'C:Type >>'Q 'T:TEXT'
  16.     End
  17.     When HAIL = "Copy Files" Then Do
  18.         HAIL = "Pick Destination"
  19.         C = 'C:Copy' Q GetF()
  20.     End
  21.     When HAIL = "Crunch Files" Then C = 'C:Runback C:Crunch' Q 'EFF 1 NOSUFF NOPER'
  22.     When HAIL = "Delete Files" Then Do Forever
  23.         A = FileList(F, D, , E)
  24.         Do X = 1 to A; Call Delete D.X; End
  25.         F = F || ".info"
  26.         A = FileList(F, D, , E)
  27.         Do X = 1 to A; Call Delete D.X; End
  28.         Call GetF
  29.     End
  30.     When HAIL = "Move or Rename Files" Then Do
  31.         HAIL = "Destination or New Name"
  32.         C = 'C:Move' Q GetF()
  33.     End
  34.     When HAIL = "PPMore" Then C = 'C:Runback C:PPMore' Q
  35.     When HAIL = "Print File" Then C = 'C:Runback C:Copy' Q 'PRT:'
  36.     When HAIL = "Run Program" Then C = 'C:Runback' Q
  37.     When HAIL = "Saveas & Crunch" Then Do
  38.         saveas 'T:TEXT'
  39.         'title `Crunching - Please Wait.'
  40.         C = 'C:Crunch T:TEXT' Q 'EFF 1 COL 0 NOSUFF NOPER'
  41.     End
  42.     When HAIL = "Set Font" Then Do
  43.         F = "setfont" Delstr(P, Length(P), 1) || ".font" N
  44.         F
  45.     End
  46. End
  47. If C ~= '' Then Address Command C
  48. Call Delete 'T:TEXT'
  49. Exit
  50.  
  51. GetF:
  52.     If Index(P, ':') = 0 Then P = Pragma('D')
  53.     P = Strip(P,'T','/')
  54.     F = GetFile(22,19,Strip(P,'T','/'),N,HAIL)
  55.     If F = "" Then Exit
  56.     L=Pos('*',F)
  57.     Do While L>0
  58.         F = Insert('#?', Delstr(F,L,1), L-1)
  59.         L=Pos('*',F)
  60.     End
  61.     P = Left(F, 1 + Length(F) - Verify(Reverse(F), ':/', 'M'))
  62.     N = Delstr(F, 1, Length(P))
  63. Return '"' || F || '"'
  64.