Merge branch 'obsd-master'
[tmux.git] / mdoc2man.awk
blob80e8d5ffa1fc05983fb384c7c0666330b11bc537
1 #!/usr/bin/awk
3 # $Id: mdoc2man.awk,v 1.9 2009/10/24 00:52:42 dtucker Exp $
5 # Version history:
6 # v4+ Adapted for OpenSSH Portable (see cvs Id and history)
7 # v3, I put the program under a proper license
8 # Dan Nelson <dnelson@allantgroup.com> added .An, .Aq and fixed a typo
9 # v2, fixed to work on GNU awk --posix and MacOS X
10 # v1, first attempt, didn't work on MacOS X
12 # Copyright (c) 2003 Peter Stuge <stuge-mdoc2man@cdy.org>
14 # Permission to use, copy, modify, and distribute this software for any
15 # purpose with or without fee is hereby granted, provided that the above
16 # copyright notice and this permission notice appear in all copies.
18 # THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
19 # WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
20 # MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
21 # ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
22 # WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
23 # ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
24 # OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
27 BEGIN {
28 optlist=0
29 oldoptlist=0
30 nospace=0
31 synopsis=0
32 reference=0
33 block=0
34 ext=0
35 extopt=0
36 literal=0
37 prenl=0
38 breakw=0
39 line=""
42 function wtail() {
43 retval=""
44 while(w<nwords) {
45 if(length(retval))
46 retval=retval OFS
47 retval=retval words[++w]
49 return retval
52 function add(str) {
53 for(;prenl;prenl--)
54 line=line "\n"
55 line=line str
58 ! /^\./ {
59 for(;prenl;prenl--)
60 print ""
61 print
62 if(literal)
63 print ".br"
64 next
67 /^\.\\"/ { next }
70 option=0
71 parens=0
72 angles=0
73 sub("^\\.","")
74 nwords=split($0,words)
75 for(w=1;w<=nwords;w++) {
76 skip=0
77 if(match(words[w],"^Li|Pf$")) {
78 skip=1
79 } else if(match(words[w],"^Xo$")) {
80 skip=1
81 ext=1
82 if(length(line)&&!(match(line," $")||prenl))
83 add(OFS)
84 } else if(match(words[w],"^Xc$")) {
85 skip=1
86 ext=0
87 if(!extopt)
88 prenl++
89 w=nwords
90 } else if(match(words[w],"^Bd$")) {
91 skip=1
92 if(match(words[w+1],"-literal")) {
93 literal=1
94 prenl++
95 w=nwords
97 } else if(match(words[w],"^Ed$")) {
98 skip=1
99 literal=0
100 } else if(match(words[w],"^Ns$")) {
101 skip=1
102 if(!nospace)
103 nospace=1
104 sub(" $","",line)
105 } else if(match(words[w],"^No$")) {
106 skip=1
107 sub(" $","",line)
108 add(words[++w])
109 } else if(match(words[w],"^Dq$")) {
110 skip=1
111 add("``")
112 add(words[++w])
113 while(w<nwords&&!match(words[w+1],"^[\\.,]"))
114 add(OFS words[++w])
115 add("''")
116 if(!nospace&&match(words[w+1],"^[\\.,]"))
117 nospace=1
118 } else if(match(words[w],"^Sq|Ql$")) {
119 skip=1
120 add("`" words[++w] "'")
121 if(!nospace&&match(words[w+1],"^[\\.,]"))
122 nospace=1
123 } else if(match(words[w],"^Oo$")) {
124 skip=1
125 extopt=1
126 if(!nospace)
127 nospace=1
128 add("[")
129 } else if(match(words[w],"^Oc$")) {
130 skip=1
131 extopt=0
132 add("]")
134 if(!skip) {
135 if(!nospace&&length(line)&&!(match(line," $")||prenl))
136 add(OFS)
137 if(nospace==1)
138 nospace=0
140 if(match(words[w],"^Dd$")) {
141 if(match(words[w+1],"^\\$Mdocdate:")) {
142 w++;
143 if(match(words[w+4],"^\\$$")) {
144 words[w+4] = ""
147 date=wtail()
148 next
149 } else if(match(words[w],"^Dt$")) {
150 id=wtail()
151 next
152 } else if(match(words[w],"^Ux$")) {
153 add("UNIX")
154 skip=1
155 } else if(match(words[w],"^Ox$")) {
156 add("OpenBSD")
157 skip=1
158 } else if(match(words[w],"^Os$")) {
159 add(".TH " id " \"" date "\" \"" wtail() "\"")
160 } else if(match(words[w],"^Sh$")) {
161 add(".SH")
162 synopsis=match(words[w+1],"SYNOPSIS")
163 } else if(match(words[w],"^Xr$")) {
164 add("\\fB" words[++w] "\\fP(" words[++w] ")" words[++w])
165 } else if(match(words[w],"^Rs$")) {
166 split("",refauthors)
167 nrefauthors=0
168 reftitle=""
169 refissue=""
170 refdate=""
171 refopt=""
172 refreport=""
173 reference=1
174 next
175 } else if(match(words[w],"^Re$")) {
176 prenl++
177 for(i=nrefauthors-1;i>0;i--) {
178 add(refauthors[i])
179 if(i>1)
180 add(", ")
182 if(nrefauthors>1)
183 add(" and ")
184 if(nrefauthors>0)
185 add(refauthors[0] ", ")
186 add("\\fI" reftitle "\\fP")
187 if(length(refissue))
188 add(", " refissue)
189 if(length(refreport)) {
190 add(", " refreport)
192 if(length(refdate))
193 add(", " refdate)
194 if(length(refopt))
195 add(", " refopt)
196 add(".")
197 reference=0
198 } else if(reference) {
199 if(match(words[w],"^%A$")) { refauthors[nrefauthors++]=wtail() }
200 if(match(words[w],"^%T$")) {
201 reftitle=wtail()
202 sub("^\"","",reftitle)
203 sub("\"$","",reftitle)
205 if(match(words[w],"^%N$")) { refissue=wtail() }
206 if(match(words[w],"^%D$")) { refdate=wtail() }
207 if(match(words[w],"^%O$")) { refopt=wtail() }
208 if(match(words[w],"^%R$")) { refreport=wtail() }
209 } else if(match(words[w],"^Nm$")) {
210 if(synopsis) {
211 add(".br")
212 prenl++
214 n=words[++w]
215 if(!length(name))
216 name=n
217 if(!length(n))
218 n=name
219 add("\\fB" n "\\fP")
220 if(!nospace&&match(words[w+1],"^[\\.,]"))
221 nospace=1
222 } else if(match(words[w],"^Nd$")) {
223 add("\\- " wtail())
224 } else if(match(words[w],"^Fl$")) {
225 add("\\fB\\-" words[++w] "\\fP")
226 if(!nospace&&match(words[w+1],"^[\\.,]"))
227 nospace=1
228 } else if(match(words[w],"^Ar$")) {
229 add("\\fI")
230 if(w==nwords)
231 add("file ...\\fP")
232 else {
233 add(words[++w] "\\fP")
234 while(match(words[w+1],"^\\|$"))
235 add(OFS words[++w] " \\fI" words[++w] "\\fP")
237 if(!nospace&&match(words[w+1],"^[\\.,]"))
238 nospace=1
239 } else if(match(words[w],"^Cm$")) {
240 add("\\fB" words[++w] "\\fP")
241 while(w<nwords&&match(words[w+1],"^[\\.,:;)]"))
242 add(words[++w])
243 } else if(match(words[w],"^Op$")) {
244 option=1
245 if(!nospace)
246 nospace=1
247 add("[")
248 } else if(match(words[w],"^Pp$")) {
249 prenl++
250 } else if(match(words[w],"^An$")) {
251 prenl++
252 } else if(match(words[w],"^Ss$")) {
253 add(".SS")
254 } else if(match(words[w],"^Pa$")&&!option) {
255 add("\\fI")
257 if(match(words[w],"^\\."))
258 add("\\&")
259 add(words[w] "\\fP")
260 while(w<nwords&&match(words[w+1],"^[\\.,:;)]"))
261 add(words[++w])
262 } else if(match(words[w],"^Dv$")) {
263 add(".BR")
264 } else if(match(words[w],"^Em|Ev$")) {
265 add(".IR")
266 } else if(match(words[w],"^Pq$")) {
267 add("(")
268 nospace=1
269 parens=1
270 } else if(match(words[w],"^Aq$")) {
271 add("<")
272 nospace=1
273 angles=1
274 } else if(match(words[w],"^S[xy]$")) {
275 add(".B " wtail())
276 } else if(match(words[w],"^Ic$")) {
277 plain=1
278 add("\\fB")
279 while(w<nwords) {
281 if(match(words[w],"^Op$")) {
283 add("[")
284 words[nwords]=words[nwords] "]"
286 if(match(words[w],"^Ar$")) {
287 add("\\fI" words[++w] "\\fP")
288 } else if(match(words[w],"^[\\.,]")) {
289 sub(" $","",line)
290 if(plain) {
291 add("\\fP")
292 plain=0
294 add(words[w])
295 } else {
296 if(!plain) {
297 add("\\fB")
298 plain=1
300 add(words[w])
302 if(!nospace)
303 add(OFS)
305 sub(" $","",line)
306 if(plain)
307 add("\\fP")
308 } else if(match(words[w],"^Bl$")) {
309 oldoptlist=optlist
310 if(match(words[w+1],"-bullet"))
311 optlist=1
312 else if(match(words[w+1],"-enum")) {
313 optlist=2
314 enum=0
315 } else if(match(words[w+1],"-tag"))
316 optlist=3
317 else if(match(words[w+1],"-item"))
318 optlist=4
319 else if(match(words[w+1],"-bullet"))
320 optlist=1
321 w=nwords
322 } else if(match(words[w],"^El$")) {
323 optlist=oldoptlist
324 } else if(match(words[w],"^Bk$")) {
325 if(match(words[w+1],"-words")) {
327 breakw=1
329 } else if(match(words[w],"^Ek$")) {
330 breakw=0
331 } else if(match(words[w],"^It$")&&optlist) {
332 if(optlist==1)
333 add(".IP \\(bu")
334 else if(optlist==2)
335 add(".IP " ++enum ".")
336 else if(optlist==3) {
337 add(".TP")
338 prenl++
339 if(match(words[w+1],"^Pa$|^Ev$")) {
340 add(".B")
343 } else if(optlist==4)
344 add(".IP")
345 } else if(match(words[w],"^Sm$")) {
346 if(match(words[w+1],"off"))
347 nospace=2
348 else if(match(words[w+1],"on"))
349 nospace=0
351 } else if(!skip) {
352 add(words[w])
355 if(match(line,"^\\.[^a-zA-Z]"))
356 sub("^\\.","",line)
357 if(parens)
358 add(")")
359 if(angles)
360 add(">")
361 if(option)
362 add("]")
363 if(ext&&!extopt&&!match(line," $"))
364 add(OFS)
365 if(!ext&&!extopt&&length(line)) {
366 print line
367 prenl=0
368 line=""