home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 22 gnu / 22-gnu.zip / less3292.zip / mkfuncs.awk < prev    next >
Text File  |  1996-04-22  |  158b  |  10 lines
  1. BEGIN { FS="("; state = 0 }
  2.  
  3. /^    public/ { ftype = $0; state = 1 }
  4.  
  5. { if (state == 1)
  6.     state = 2
  7.   else if (state == 2)
  8.     { print ftype,$1,"();"; state = 0 }
  9. }
  10.