home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / amigae / e_v3.2a / tools / ee / rexx / adoclookup.rexx next >
OS/2 REXX Batch file  |  1977-12-31  |  789b  |  40 lines
  1. /*
  2.  
  3. example script for ee
  4. load an autodoc according to the word under the cursor from a filelist which
  5. looks like this:
  6.  
  7. funcname autodocfile [linenumber]
  8.  
  9. OpenWindow autodocs:intuition/intuition.h 42
  10.  
  11. idea and first draft by Gregor Goldbach
  12.  
  13. */
  14.  
  15. ADDRESS 'EE.0'
  16. OPTIONS RESULTS
  17.  
  18. ARG datname
  19.  
  20. IF datname="" THEN datname="EE:rexx/autodoc/autodoclist.ee"
  21.  
  22. IF Open(autodoclist, datname, 'R') THEN
  23.   DO
  24.     LockWindow
  25.     GetWord
  26.     funcname=RESULT
  27.     posi=Index(funcname, '(')
  28.     IF posi>0 THEN funcname=Left(the_word, posi-1)
  29.     DO UNTIL (Word(the_line,1)=funcname)=1 | Eof(autodoclist)
  30.       the_line=Readln(autodoclist)
  31.       SAY the_line
  32.     END
  33.     the_file=Word(the_line,2)
  34.     OpenNew the_file
  35.     GotoLine Word(the_line, 3)
  36.     UnlockWindow
  37.   END
  38. ELSE
  39.   SAY 'Could not open file.'
  40.