home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume16 / less5 / part01 / mkfuncs.awk < prev    next >
Encoding:
AWK Script  |  1988-09-22  |  158 b   |  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.