Blob


1 #!/usr/bin/awk -f
2 #
3 # unpar - un-paragraphize text
4 # public domain
6 /^=>/ {
7 if (line != "") {
8 item = 0
9 print line
10 line = ""
11 }
12 print $0
13 next
14 }
16 /^\* / {
17 item = 1
18 if (line != "")
19 print line
20 line = $0
21 next
22 }
24 item && /^ +/ {
25 s = gensub(" +", "", "1", $0)
26 line = sprintf("%s %s", line, s)
27 next
28 }
30 // { item = 0 }
32 /^$/ {
33 if (line != "")
34 print line
35 line = ""
36 print ""
37 }
39 /^[[:blank:]]+/ {
40 if (line != "")
41 print line
42 line = ""
43 print $0
44 next
45 }
47 // {
48 if (line != "")
49 line = sprintf("%s %s", line, $0)
50 else
51 line = $0
52 }
54 END {
55 if (line)
56 print line
57 }