1#!/usr/bin/awk 2# 3# $Id: mdoc2man.awk,v 1.9 2009/10/24 00:52:42 dtucker Exp $ 4# 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 11# 12# Copyright (c) 2003 Peter Stuge <stuge-mdoc2man@cdy.org> 13# 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. 17# 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. 25 26 27BEGIN { 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="" 40} 41 42function wtail() { 43 retval="" 44 while(w<nwords) { 45 if(length(retval)) 46 retval=retval OFS 47 retval=retval words[++w] 48 } 49 return retval 50} 51 52function add(str) { 53 for(;prenl;prenl--) 54 line=line "\n" 55 line=line str 56} 57 58! /^\./ { 59 for(;prenl;prenl--) 60 print "" 61 print 62 if(literal) 63 print ".br" 64 next 65} 66 67/^\.\\"/ { next } 68 69{ 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 96 } 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("]") 133 } 134 if(!skip) { 135 if(!nospace&&length(line)&&!(match(line," $")||prenl)) 136 add(OFS) 137 if(nospace==1) 138 nospace=0 139 } 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] = "" 145 } 146 } 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(", ") 181 } 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) 191 } 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) 204 } 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++ 213 } 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") 236 } 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") 256 w++ 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) { 280 w++ 281 if(match(words[w],"^Op$")) { 282 w++ 283 add("[") 284 words[nwords]=words[nwords] "]" 285 } 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 293 } 294 add(words[w]) 295 } else { 296 if(!plain) { 297 add("\\fB") 298 plain=1 299 } 300 add(words[w]) 301 } 302 if(!nospace) 303 add(OFS) 304 } 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")) { 326 w++ 327 breakw=1 328 } 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") 341 w++ 342 } 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 350 w++ 351 } else if(!skip) { 352 add(words[w]) 353 } 354 } 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="" 369 } 370} 371