home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 200-299 / ff254.lzh / Etale / rdr.txed < prev    next >
Text File  |  1989-10-19  |  1KB  |  34 lines
  1. /*  rdr.txed  --  TxEd macro to open file reader on document being       */
  2. /*                edited without leaving TxEd                            */
  3. /*  Suggestion: Put 'mac +0 rdr' in your "Startup.txed" file to          */
  4. /*              run THIS macro off the "0" key on the numeric pad.       */
  5. /*              Place this file and "Startup.txed" in your "rexx:"       */
  6. /*              directory.  You need "full" ARexx and TxEd Plus, v 2.02  */
  7. 'lock 1'
  8. 'write'             /*  We do want to see all the changes  */
  9. options results
  10. 'status D'
  11. dir = result
  12. 'status F'
  13. file = result
  14. dire = right(dir, 1)
  15. ndir = dir
  16. if dire ~= ":" then ndir = dir||"/"
  17. full = ndir||file
  18. 'status R'
  19. curpos = result
  20. parse var curpos "row " line " col " cln
  21. 'backward 0'
  22. 'status R'
  23. curpos = result
  24. parse var curpos "row " rown " col " coln
  25. taga = "echo > env:efrline "||"22"x||rown||"22"x
  26. address command taga
  27. tagb = "efr <env:efrline >NULL: g "||"22"x||full||"22"x
  28. address command tagb
  29. tagc = "'jump "||line||" "||cln||"'"
  30. interpret tagc
  31. 'lock 0'
  32. msg file
  33. exit         
  34.