home *** CD-ROM | disk | FTP | other *** search
/ Aminet 10 / aminetcdnumber101996.iso / Aminet / util / rexx / AGGrep.lha / TTXEditAtLine.rexx < prev   
OS/2 REXX Batch file  |  1995-09-21  |  1KB  |  48 lines
  1. /* TTX EDIT AT LINE
  2. **
  3. ** This program takes as it's argument the filename and a line number in the form
  4. ** file|linenum.  It then opens turbotext with that file and at that line number
  5. **
  6. ** Brian Gragg 9/20/95
  7. **********************************************************************************/
  8.  
  9. version_string = "$VER: TTXEditAtLine  9/20/95  V1.0 © 1995 Brian Gragg"
  10.  
  11. PARSE ARG filename "|" linenum
  12.  
  13. IF ~Exists(filename) THEN DO
  14.     SAY "Couldn't Find file: "filename
  15.     EXIT(10)
  16.     END
  17.  
  18. file = Upper(SubStr(filename,1 + Max(LastPos("/",filename), LastPos(":",filename))))
  19.  
  20. OPTIONS RESULTS 
  21. IF ~Show('P',"TURBOTEXT") THEN DO
  22.     ADDRESS COMMAND "turbotext:ttx BACKGROUND NOWINDOW"
  23.     ADDRESS COMMAND "sys:rexxc/waitforport TURBOTEXT"
  24.     END
  25. ADDRESS "TURBOTEXT" 
  26.  
  27. 'GetDocuments'
  28. list = RESULT
  29. UList= Upper(list)
  30.  
  31. posn = Find(UList, '"'||file||'"')
  32.  
  33. IF posn=0 THEN DO
  34.     'OpenDoc PUBSCREEN "TURBOTEXT"' filename
  35.     port = RESULT
  36.     ADDRESS COMMAND 'sys:rexxc/waitforport 'port
  37.     END
  38. ELSE
  39.     port = Word(list, 1 + posn)
  40.     
  41. ADDRESS Value port
  42.  
  43. 'Screen2Front'
  44. 'Window2Front'
  45. 'ActivateWindow'
  46. 'CenterView'
  47. 'Move' linenum
  48.