home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / awk / awk320.zip / FMT.AWK < prev    next >
Text File  |  1990-02-08  |  440b  |  23 lines
  1. # fmt - format
  2. #    input:  text
  3. #    output: text formatted into lines of <= 60 characters
  4.  
  5. # AKW p120
  6.  
  7. /./  { for (i = 1; i <= NF; i++) addword($i) }
  8. /^$/ { printline(); print "" }
  9. END  { printline() }
  10.  
  11. function addword(w) {
  12.     if (length(line) + length(w) > 60)
  13.         printline()
  14.     line = line " " w
  15. }
  16.  
  17. function printline() {
  18.     if (length(line) > 0) {
  19.         print substr(line, 2)
  20.         line = ""
  21.     }
  22. }
  23.