home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / epmsmp.zip / FINDFUNC.E < prev    next >
Text File  |  1996-02-07  |  900b  |  27 lines
  1. ; Find the next function defined in the current file.  Piggy-backs on
  2. ; EPM 6's TAGS support.  This is intended to be included from your
  3. ; MYSTUFF.E, so that we don't have to worry about including the MYCNF.E
  4. ; to determine the value of the WANT_TAGS configuration constant.
  5. ;                        Larry Margolis
  6.  
  7. compile if WANT_TAGS  -- Requires tag support
  8. defc findfunc
  9.  compile if WANT_TAGS = 'DYNALINK'     -- We might need to link the tags support
  10.    if not isadefproc('proc_search') then
  11.       'linkverify tags'
  12.       if rc<0 then
  13.          return
  14.       endif
  15.    endif
  16.  compile endif -- WANT_TAGS = 'DYNALINK'
  17.    ext=filetype()
  18.    if not tags_supported(ext) then
  19.       sayerror "Don't know how to do tags for file of type '"ext"'"
  20.       return
  21.    endif
  22.    proc_name=''
  23.    rc=proc_search(proc_name,1,ext)
  24.    if rc then sayerror rc; endif
  25. compile endif -- WANT_TAGS
  26.  
  27.