home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / SASC6571.LZX / rexx / findsym.se < prev    next >
Encoding:
Text File  |  1996-12-24  |  416 b   |  27 lines
  1. /* SE AREXX macro */
  2. options results
  3. 'GW'  /* Get word under cursor */
  4. options
  5. parm = result
  6.  
  7. address command
  8.  
  9. 'sc:c/gst >t:gstout sc:include/all.gst ' || parm
  10.  
  11. gstrc = rc
  12.  
  13. dummy1 = open('gstout','t:gstout','read')
  14. where  = readln('gstout')
  15. dummy1 = close('gstout')
  16.  
  17. address
  18.  
  19. if(gstrc == 0) then do
  20.    parse var where file dummy1 line dummy2
  21.    'OW "' || file || '\n"'
  22.    'LL "' || line || '\n"'
  23. end
  24.  
  25. 'DM' || where
  26.  
  27.