home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 1 / FFMCD01.bin / bbs / libdisks / d700t799 / disk718.lha / Less / less-177 / src.lha / src / mkfuncs.awk < prev    next >
Encoding:
AWK Script  |  1992-03-11  |  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.