home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / util / mg-3b.lha / mg-3b / REXX / markrexxfunction.mg < prev    next >
Encoding:
Text File  |  1990-06-02  |  521 b   |  30 lines
  1. /*
  2.  * First hack at marking a rexx function.
  3.  */
  4. trace ?I
  5. options results
  6. options failat 2
  7.  
  8. /* Save our current location */
  9. 'set-mark'
  10. 'rexx-line'
  11. do while left(result, 2) ~= "/*"
  12.     'next-line'
  13.     if rc ~= 0 then break
  14.     'rexx-line'
  15.     end
  16.  
  17. /* Found the top of the next function, or the end of the buffer, so mark it */
  18. 'beginning-of-line'
  19. 'set-mark'
  20.  
  21. /* Now, move back to the top of this function */
  22. 'previous-line'
  23. 'rexx-line'
  24. do while left(result, 2) ~= "/*"
  25.     'previous-line'
  26.     if rc != 0 then break
  27.     'rexx-line'
  28.     end
  29. exit 0
  30.