version 1.80, 2019/04/02 16:24:23 |
version 1.147, 2019/05/01 17:20:47 |
|
|
#include <ctype.h> |
#include <ctype.h> |
#include <stdio.h> |
#include <stdio.h> |
#include <stdlib.h> |
#include <stdlib.h> |
|
#include <string.h> |
|
|
|
#include "xmalloc.h" |
#include "node.h" |
#include "node.h" |
#include "macro.h" |
#include "macro.h" |
#include "format.h" |
#include "format.h" |
Line 32 static void pnode_print(struct format *, struct pnode |
|
Line 34 static void pnode_print(struct format *, struct pnode |
|
|
|
|
|
static void |
static void |
pnode_printpara(struct format *p, struct pnode *pn) |
pnode_printtext(struct format *f, struct pnode *n) |
{ |
{ |
struct pnode *pp; |
struct pnode *nn; |
|
char *cp; |
|
int accept_arg; |
|
|
if ((pp = TAILQ_PREV(pn, pnodeq, child)) == NULL && |
para_check(f); |
(pp = pn->parent) == NULL) |
cp = n->b; |
return; |
accept_arg = f->flags & FMT_ARG; |
|
if (f->linestate == LINE_MACRO && !accept_arg && |
|
(n->flags & NFLAG_SPC) == 0) { |
|
for (;;) { |
|
if (*cp == '\0') |
|
return; |
|
if (strchr("!),.:;?]", *cp) == NULL) |
|
break; |
|
printf(" %c", *cp++); |
|
} |
|
if (isspace((unsigned char)*cp)) { |
|
while (isspace((unsigned char)*cp)) |
|
cp++; |
|
macro_close(f); |
|
} else { |
|
fputs(" Ns", stdout); |
|
f->flags &= FMT_IMPL; |
|
accept_arg = 1; |
|
} |
|
} |
|
if (f->linestate == LINE_MACRO && !accept_arg && |
|
(f->flags & (FMT_CHILD | FMT_IMPL)) == 0) |
|
macro_close(f); |
|
|
switch (pp->node) { |
/* |
case NODE_ENTRY: |
* Text preceding a macro without intervening whitespace |
case NODE_LISTITEM: |
* requires a .Pf macro. |
return; |
* Set the spacing flag to avoid a redundant .Ns macro. |
case NODE_PREFACE: |
*/ |
case NODE_SECTION: |
|
if (p->level < 3) |
if (f->linestate != LINE_MACRO && |
return; |
(nn = TAILQ_NEXT(n, child)) != NULL && |
|
(nn->flags & NFLAG_SPC) == 0) { |
|
switch (pnode_class(nn->node)) { |
|
case CLASS_LINE: |
|
case CLASS_ENCL: |
|
macro_open(f, "Pf"); |
|
accept_arg = 1; |
|
f->flags |= FMT_CHILD; |
|
nn->flags |= NFLAG_SPC; |
|
break; |
|
default: |
|
break; |
|
} |
|
} |
|
|
|
switch (f->linestate) { |
|
case LINE_NEW: |
break; |
break; |
default: |
case LINE_TEXT: |
|
if (n->flags & NFLAG_SPC) { |
|
if (n->flags & NFLAG_LINE && |
|
pnode_class(n->node) == CLASS_TEXT) |
|
macro_close(f); |
|
else |
|
putchar(' '); |
|
} |
break; |
break; |
|
case LINE_MACRO: |
|
if (accept_arg == 0) |
|
macro_close(f); |
|
else if (n->flags & NFLAG_SPC || |
|
(f->flags & FMT_ARG) == 0 || |
|
(nn = TAILQ_PREV(n, pnodeq, child)) == NULL || |
|
pnode_class(nn->node) != CLASS_TEXT) |
|
putchar(' '); |
|
break; |
} |
} |
macro_line(p, "Pp"); |
|
|
if (n->node == NODE_ESCAPE) { |
|
fputs(n->b, stdout); |
|
if (f->linestate == LINE_NEW) |
|
f->linestate = LINE_TEXT; |
|
return; |
|
} |
|
|
|
/* |
|
* Remove the prefix '-' from <option> elements |
|
* because the arguments of .Fl macros do not need it. |
|
*/ |
|
|
|
if (n->parent != NULL && n->parent->node == NODE_OPTION && *cp == '-') |
|
cp++; |
|
|
|
if (f->linestate == LINE_MACRO) |
|
macro_addarg(f, cp, 0); |
|
else |
|
print_text(f, cp, 0); |
} |
} |
|
|
|
static void |
|
pnode_printimagedata(struct format *f, struct pnode *n) |
|
{ |
|
const char *cp; |
|
|
|
if ((cp = pnode_getattr_raw(n, ATTRKEY_FILEREF, NULL)) == NULL) |
|
cp = pnode_getattr_raw(n, ATTRKEY_ENTITYREF, NULL); |
|
if (cp != NULL) { |
|
print_text(f, "[image:", ARG_SPACE); |
|
print_text(f, cp, ARG_SPACE); |
|
print_text(f, "]", 0); |
|
} else |
|
print_text(f, "[image]", ARG_SPACE); |
|
} |
|
|
|
static void |
|
pnode_printrefnamediv(struct format *f, struct pnode *n) |
|
{ |
|
struct pnode *nc, *nn; |
|
int comma; |
|
|
|
f->parastate = PARA_HAVE; |
|
macro_line(f, "Sh NAME"); |
|
f->parastate = PARA_HAVE; |
|
comma = 0; |
|
TAILQ_FOREACH_SAFE(nc, &n->childq, child, nn) { |
|
if (nc->node != NODE_REFNAME) |
|
continue; |
|
if (comma) |
|
macro_addarg(f, ",", ARG_SPACE); |
|
macro_open(f, "Nm"); |
|
macro_addnode(f, nc, ARG_SPACE); |
|
pnode_unlink(nc); |
|
comma = 1; |
|
} |
|
macro_close(f); |
|
} |
|
|
/* |
/* |
* If the SYNOPSIS macro has a superfluous title, kill it. |
* If the SYNOPSIS macro has a superfluous title, kill it. |
*/ |
*/ |
static void |
static void |
pnode_printrefsynopsisdiv(struct format *p, struct pnode *pn) |
pnode_printrefsynopsisdiv(struct format *f, struct pnode *n) |
{ |
{ |
struct pnode *pp, *pq; |
struct pnode *nc, *nn; |
|
|
TAILQ_FOREACH_SAFE(pp, &pn->childq, child, pq) |
TAILQ_FOREACH_SAFE(nc, &n->childq, child, nn) |
if (pp->node == NODE_TITLE) |
if (nc->node == NODE_TITLE) |
pnode_unlink(pp); |
pnode_unlink(nc); |
|
|
macro_line(p, "Sh SYNOPSIS"); |
f->parastate = PARA_HAVE; |
|
macro_line(f, "Sh SYNOPSIS"); |
|
f->parastate = PARA_HAVE; |
} |
} |
|
|
/* |
/* |
* Start a hopefully-named `Sh' section. |
* Start a hopefully-named `Sh' section. |
*/ |
*/ |
static void |
static void |
pnode_printrefsect(struct format *p, struct pnode *pn) |
pnode_printsection(struct format *f, struct pnode *n) |
{ |
{ |
struct pnode *pp; |
struct pnode *nc, *ncc; |
const char *title; |
|
int flags, level; |
int flags, level; |
|
|
if (pn->parent == NULL) |
if (n->parent == NULL) |
return; |
return; |
|
|
level = ++p->level; |
level = ++f->level; |
flags = ARG_SPACE; |
flags = ARG_SPACE; |
if (level == 1) |
switch (n->node) { |
flags |= ARG_UPPER; |
case NODE_SECTION: |
if (level < 3) { |
case NODE_APPENDIX: |
switch (pn->node) { |
if (level == 1) |
case NODE_CAUTION: |
flags |= ARG_UPPER; |
case NODE_NOTE: |
break; |
case NODE_TIP: |
case NODE_SIMPLESECT: |
case NODE_WARNING: |
if (level < 2) |
|
level = 2; |
|
break; |
|
case NODE_NOTE: |
|
if (level < 3) |
level = 3; |
level = 3; |
break; |
break; |
default: |
default: |
break; |
abort(); |
} |
|
} |
} |
|
|
TAILQ_FOREACH(pp, &pn->childq, child) |
TAILQ_FOREACH(nc, &n->childq, child) |
if (pp->node == NODE_TITLE) |
if (nc->node == NODE_TITLE) |
break; |
break; |
|
|
if (pp == NULL) { |
|
switch (pn->node) { |
|
case NODE_PREFACE: |
|
title = "Preface"; |
|
break; |
|
case NODE_CAUTION: |
|
title = "Caution"; |
|
break; |
|
case NODE_NOTE: |
|
title = "Note"; |
|
break; |
|
case NODE_TIP: |
|
title = "Tip"; |
|
break; |
|
case NODE_WARNING: |
|
title = "Warning"; |
|
break; |
|
default: |
|
title = "Unknown"; |
|
break; |
|
} |
|
} |
|
|
|
switch (level) { |
switch (level) { |
case 1: |
case 1: |
macro_open(p, "Sh"); |
macro_close(f); |
|
f->parastate = PARA_HAVE; |
|
macro_open(f, "Sh"); |
break; |
break; |
case 2: |
case 2: |
macro_open(p, "Ss"); |
macro_close(f); |
|
f->parastate = PARA_HAVE; |
|
macro_open(f, "Ss"); |
break; |
break; |
default: |
default: |
pnode_printpara(p, pn); |
if (f->parastate == PARA_MID) |
macro_open(p, "Sy"); |
f->parastate = PARA_WANT; |
|
macro_open(f, "Sy"); |
break; |
break; |
} |
} |
|
macro_addnode(f, nc, flags); |
|
macro_close(f); |
|
|
if (pp != NULL) { |
/* |
macro_addnode(p, pp, flags); |
* DocBook has no equivalent for -split mode, |
pnode_unlink(pp); |
* so just switch the default in the AUTHORS section. |
} else |
*/ |
macro_addarg(p, title, ARG_SPACE | ARG_QUOTED); |
|
macro_close(p); |
if (nc != NULL) { |
|
if (level == 1 && |
|
(ncc = TAILQ_FIRST(&nc->childq)) != NULL && |
|
ncc->node == NODE_TEXT && |
|
strcasecmp(ncc->b, "AUTHORS") == 0) |
|
macro_line(f, "An -nosplit"); |
|
pnode_unlink(nc); |
|
} |
|
f->parastate = level > 2 ? PARA_WANT : PARA_HAVE; |
} |
} |
|
|
/* |
/* |
* Start a reference, extracting the title and volume. |
* Start a reference, extracting the title and volume. |
*/ |
*/ |
static void |
static void |
pnode_printciterefentry(struct format *p, struct pnode *pn) |
pnode_printciterefentry(struct format *f, struct pnode *n) |
{ |
{ |
struct pnode *pp, *title, *manvol; |
struct pnode *nc, *title, *manvol; |
|
|
title = manvol = NULL; |
title = manvol = NULL; |
TAILQ_FOREACH(pp, &pn->childq, child) { |
TAILQ_FOREACH(nc, &n->childq, child) { |
if (pp->node == NODE_MANVOLNUM) |
if (nc->node == NODE_MANVOLNUM) |
manvol = pp; |
manvol = nc; |
else if (pp->node == NODE_REFENTRYTITLE) |
else if (nc->node == NODE_REFENTRYTITLE) |
title = pp; |
title = nc; |
} |
} |
macro_open(p, "Xr"); |
macro_open(f, "Xr"); |
if (title == NULL) |
if (title == NULL) |
macro_addarg(p, "unknown", ARG_SPACE); |
macro_addarg(f, "unknown", ARG_SPACE); |
else |
else |
macro_addnode(p, title, ARG_SPACE | ARG_SINGLE); |
macro_addnode(f, title, ARG_SPACE | ARG_SINGLE); |
if (manvol == NULL) |
if (manvol == NULL) |
macro_addarg(p, "1", ARG_SPACE); |
macro_addarg(f, "1", ARG_SPACE); |
else |
else |
macro_addnode(p, manvol, ARG_SPACE | ARG_SINGLE); |
macro_addnode(f, manvol, ARG_SPACE | ARG_SINGLE); |
macro_close(p); |
pnode_unlinksub(n); |
pnode_unlinksub(pn); |
|
} |
} |
|
|
static void |
|
pnode_printrefmeta(struct format *p, struct pnode *pn) |
|
{ |
|
struct pnode *pp, *title, *manvol; |
|
|
|
title = manvol = NULL; |
|
TAILQ_FOREACH(pp, &pn->childq, child) { |
|
if (pp->node == NODE_MANVOLNUM) |
|
manvol = pp; |
|
else if (pp->node == NODE_REFENTRYTITLE) |
|
title = pp; |
|
} |
|
macro_open(p, "Dt"); |
|
if (title == NULL) |
|
macro_addarg(p, "UNKNOWN", ARG_SPACE); |
|
else |
|
macro_addnode(p, title, ARG_SPACE | ARG_SINGLE | ARG_UPPER); |
|
if (manvol == NULL) |
|
macro_addarg(p, "1", ARG_SPACE); |
|
else |
|
macro_addnode(p, manvol, ARG_SPACE | ARG_SINGLE); |
|
macro_close(p); |
|
pnode_unlink(pn); |
|
} |
|
|
|
static void |
|
pnode_printfuncdef(struct format *p, struct pnode *pn) |
|
{ |
|
struct pnode *pp, *ftype, *func; |
|
|
|
ftype = func = NULL; |
|
TAILQ_FOREACH(pp, &pn->childq, child) { |
|
if (pp->node == NODE_TEXT) |
|
ftype = pp; |
|
else if (pp->node == NODE_FUNCTION) |
|
func = pp; |
|
} |
|
if (ftype != NULL) |
|
macro_argline(p, "Ft", ftype->b); |
|
macro_open(p, "Fo"); |
|
if (func == NULL) |
|
macro_addarg(p, "UNKNOWN", ARG_SPACE); |
|
else |
|
macro_addnode(p, func, ARG_SPACE | ARG_SINGLE); |
|
macro_close(p); |
|
} |
|
|
|
/* |
/* |
* The <mml:mfenced> node is a little peculiar. |
* The <mml:mfenced> node is a little peculiar. |
* First, it can have arbitrary open and closing tokens, which default |
* First, it can have arbitrary open and closing tokens, which default |
Line 230 pnode_printfuncdef(struct format *p, struct pnode *pn) |
|
Line 293 pnode_printfuncdef(struct format *p, struct pnode *pn) |
|
* Second, >1 arguments are separated by commas. |
* Second, >1 arguments are separated by commas. |
*/ |
*/ |
static void |
static void |
pnode_printmathfenced(struct format *p, struct pnode *pn) |
pnode_printmathfenced(struct format *f, struct pnode *n) |
{ |
{ |
struct pnode *pp; |
struct pnode *nc; |
|
|
printf("left %s ", pnode_getattr_raw(pn, ATTRKEY_OPEN, "(")); |
printf("left %s ", pnode_getattr_raw(n, ATTRKEY_OPEN, "(")); |
|
|
pp = TAILQ_FIRST(&pn->childq); |
nc = TAILQ_FIRST(&n->childq); |
pnode_print(p, pp); |
pnode_print(f, nc); |
|
|
while ((pp = TAILQ_NEXT(pp, child)) != NULL) { |
while ((nc = TAILQ_NEXT(nc, child)) != NULL) { |
putchar(','); |
putchar(','); |
pnode_print(p, pp); |
pnode_print(f, nc); |
} |
} |
printf("right %s ", pnode_getattr_raw(pn, ATTRKEY_CLOSE, ")")); |
printf("right %s ", pnode_getattr_raw(n, ATTRKEY_CLOSE, ")")); |
pnode_unlinksub(pn); |
pnode_unlinksub(n); |
} |
} |
|
|
/* |
/* |
Line 254 pnode_printmathfenced(struct format *p, struct pnode * |
|
Line 317 pnode_printmathfenced(struct format *p, struct pnode * |
|
* particular eqn(7) word. |
* particular eqn(7) word. |
*/ |
*/ |
static void |
static void |
pnode_printmath(struct format *p, struct pnode *pn) |
pnode_printmath(struct format *f, struct pnode *n) |
{ |
{ |
struct pnode *pp; |
struct pnode *nc; |
|
|
pp = TAILQ_FIRST(&pn->childq); |
nc = TAILQ_FIRST(&n->childq); |
pnode_print(p, pp); |
pnode_print(f, nc); |
|
|
switch (pn->node) { |
switch (n->node) { |
case NODE_MML_MSUP: |
case NODE_MML_MSUP: |
fputs(" sup ", stdout); |
fputs(" sup ", stdout); |
break; |
break; |
Line 275 pnode_printmath(struct format *p, struct pnode *pn) |
|
Line 338 pnode_printmath(struct format *p, struct pnode *pn) |
|
break; |
break; |
} |
} |
|
|
pp = TAILQ_NEXT(pp, child); |
nc = TAILQ_NEXT(nc, child); |
pnode_print(p, pp); |
pnode_print(f, nc); |
pnode_unlinksub(pn); |
pnode_unlinksub(n); |
} |
} |
|
|
static void |
static void |
pnode_printfuncprototype(struct format *p, struct pnode *pn) |
pnode_printfuncprototype(struct format *f, struct pnode *n) |
{ |
{ |
struct pnode *pp, *fdef; |
struct pnode *fdef, *fps, *ftype, *nc, *nn; |
|
|
TAILQ_FOREACH(fdef, &pn->childq, child) |
/* |
if (fdef->node == NODE_FUNCDEF) |
* Extract <funcdef> child and ignore <void> child. |
|
* Leave other children in place, to be treated as parameters. |
|
*/ |
|
|
|
fdef = NULL; |
|
TAILQ_FOREACH_SAFE(nc, &n->childq, child, nn) { |
|
switch (nc->node) { |
|
case NODE_FUNCDEF: |
|
if (fdef == NULL) { |
|
fdef = nc; |
|
TAILQ_REMOVE(&n->childq, nc, child); |
|
nc->parent = NULL; |
|
} |
break; |
break; |
|
case NODE_VOID: |
|
pnode_unlink(nc); |
|
break; |
|
default: |
|
break; |
|
} |
|
} |
|
|
if (fdef != NULL) |
/* |
pnode_printfuncdef(p, fdef); |
* If no children are left, the function is void; use .Fn. |
|
* Otherwise, use .Fo. |
|
*/ |
|
|
|
nc = TAILQ_FIRST(&n->childq); |
|
if (fdef != NULL) { |
|
ftype = TAILQ_FIRST(&fdef->childq); |
|
if (ftype != NULL && ftype->node == NODE_TEXT) { |
|
macro_argline(f, "Ft", ftype->b); |
|
pnode_unlink(ftype); |
|
} |
|
if (nc == NULL) { |
|
macro_open(f, "Fn"); |
|
macro_addnode(f, fdef, ARG_SPACE | ARG_SINGLE); |
|
macro_addarg(f, "void", ARG_SPACE); |
|
macro_close(f); |
|
} else |
|
macro_nodeline(f, "Fo", fdef, ARG_SINGLE); |
|
pnode_unlink(fdef); |
|
} else if (nc == NULL) |
|
macro_line(f, "Fn UNKNOWN void"); |
else |
else |
macro_line(p, "Fo UNKNOWN"); |
macro_line(f, "Fo UNKNOWN"); |
|
|
TAILQ_FOREACH(pp, &pn->childq, child) |
if (nc == NULL) |
if (pp->node == NODE_PARAMDEF) |
return; |
macro_nodeline(p, "Fa", pp, ARG_SINGLE); |
|
|
|
macro_line(p, "Fc"); |
while (nc != NULL) { |
pnode_unlinksub(pn); |
if ((fps = pnode_takefirst(nc, NODE_FUNCPARAMS)) != NULL) { |
|
macro_open(f, "Fa \""); |
|
macro_addnode(f, nc, ARG_QUOTED); |
|
macro_addarg(f, "(", ARG_QUOTED); |
|
macro_addnode(f, fps, ARG_QUOTED); |
|
macro_addarg(f, ")", ARG_QUOTED); |
|
putchar('"'); |
|
macro_close(f); |
|
} else |
|
macro_nodeline(f, "Fa", nc, ARG_SINGLE); |
|
pnode_unlink(nc); |
|
nc = TAILQ_FIRST(&n->childq); |
|
} |
|
macro_line(f, "Fc"); |
} |
} |
|
|
/* |
/* |
Line 310 pnode_printfuncprototype(struct format *p, struct pnod |
|
Line 424 pnode_printfuncprototype(struct format *p, struct pnod |
|
* ellipsis following an argument) and optionality. |
* ellipsis following an argument) and optionality. |
*/ |
*/ |
static void |
static void |
pnode_printarg(struct format *p, struct pnode *pn) |
pnode_printarg(struct format *f, struct pnode *n) |
{ |
{ |
struct pnode *pp; |
struct pnode *nc; |
struct pattr *ap; |
struct pattr *a; |
int isop, isrep; |
int isop, isrep, was_impl; |
|
|
isop = 1; |
isop = 1; |
isrep = 0; |
isrep = was_impl = 0; |
TAILQ_FOREACH(ap, &pn->attrq, child) { |
TAILQ_FOREACH(a, &n->attrq, child) { |
if (ap->key == ATTRKEY_CHOICE && |
if (a->key == ATTRKEY_CHOICE && |
(ap->val == ATTRVAL_PLAIN || ap->val == ATTRVAL_REQ)) |
(a->val == ATTRVAL_PLAIN || a->val == ATTRVAL_REQ)) |
isop = 0; |
isop = 0; |
else if (ap->key == ATTRKEY_REP && ap->val == ATTRVAL_REPEAT) |
else if (a->key == ATTRKEY_REP && a->val == ATTRVAL_REPEAT) |
isrep = 1; |
isrep = 1; |
} |
} |
if (isop) |
if (isop) { |
macro_open(p, "Op"); |
if (f->flags & FMT_IMPL) { |
|
was_impl = 1; |
TAILQ_FOREACH(pp, &pn->childq, child) { |
macro_open(f, "Oo"); |
if (pp->node == NODE_TEXT) |
} else { |
macro_open(p, "Ar"); |
macro_open(f, "Op"); |
pnode_print(p, pp); |
f->flags |= FMT_IMPL; |
if (isrep && pp->node == NODE_TEXT) |
} |
macro_addarg(p, "...", ARG_SPACE); |
|
} |
} |
pnode_unlinksub(pn); |
TAILQ_FOREACH(nc, &n->childq, child) { |
|
if (nc->node == NODE_TEXT) |
|
macro_open(f, "Ar"); |
|
pnode_print(f, nc); |
|
} |
|
if (isrep && f->linestate == LINE_MACRO) |
|
macro_addarg(f, "...", ARG_SPACE); |
|
if (isop) { |
|
if (was_impl) |
|
macro_open(f, "Oc"); |
|
else |
|
f->flags &= ~FMT_IMPL; |
|
} |
|
pnode_unlinksub(n); |
} |
} |
|
|
static void |
static void |
pnode_printgroup(struct format *p, struct pnode *pn) |
pnode_printgroup(struct format *f, struct pnode *n) |
{ |
{ |
struct pnode *pp, *np; |
struct pnode *nc; |
struct pattr *ap; |
struct pattr *a; |
int isop, sv; |
int bar, isop, isrep, was_impl; |
|
|
isop = 1; |
isop = 1; |
TAILQ_FOREACH(ap, &pn->attrq, child) |
isrep = was_impl = 0; |
if (ap->key == ATTRKEY_CHOICE && |
TAILQ_FOREACH(a, &n->attrq, child) { |
(ap->val == ATTRVAL_PLAIN || ap->val == ATTRVAL_REQ)) { |
if (a->key == ATTRKEY_CHOICE && |
|
(a->val == ATTRVAL_PLAIN || a->val == ATTRVAL_REQ)) |
isop = 0; |
isop = 0; |
break; |
else if (a->key == ATTRKEY_REP && a->val == ATTRVAL_REPEAT) |
|
isrep = 1; |
|
} |
|
if (isop) { |
|
if (f->flags & FMT_IMPL) { |
|
was_impl = 1; |
|
macro_open(f, "Oo"); |
|
} else { |
|
macro_open(f, "Op"); |
|
f->flags |= FMT_IMPL; |
} |
} |
|
} else if (isrep) { |
/* |
if (f->flags & FMT_IMPL) { |
* Make sure we're on a macro line. |
was_impl = 1; |
* This will prevent pnode_print() for putting us on a |
macro_open(f, "Bro"); |
* subsequent line. |
} else { |
*/ |
macro_open(f, "Brq"); |
sv = p->linestate == LINE_NEW; |
f->flags |= FMT_IMPL; |
if (isop) |
|
macro_open(p, "Op"); |
|
else if (sv) |
|
macro_open(p, "No"); |
|
|
|
/* |
|
* Keep on printing text separated by the vertical bar as long |
|
* as we're within the same origin node as the group. |
|
* This is kind of a nightmare. |
|
* Eh, DocBook... |
|
* FIXME: if there's a "Fl", we don't cut off the leading "-" |
|
* like we do in pnode_print(). |
|
*/ |
|
TAILQ_FOREACH(pp, &pn->childq, child) { |
|
pnode_print(p, pp); |
|
np = TAILQ_NEXT(pp, child); |
|
while (np != NULL) { |
|
if (pp->node != np->node) |
|
break; |
|
macro_addarg(p, "|", ARG_SPACE); |
|
macro_addnode(p, np, ARG_SPACE); |
|
pp = np; |
|
np = TAILQ_NEXT(np, child); |
|
} |
} |
} |
} |
if (sv) |
bar = 0; |
macro_close(p); |
TAILQ_FOREACH(nc, &n->childq, child) { |
pnode_unlinksub(pn); |
if (bar && f->linestate == LINE_MACRO) |
|
macro_addarg(f, "|", ARG_SPACE); |
|
pnode_print(f, nc); |
|
bar = 1; |
|
} |
|
if (isop) { |
|
if (was_impl) |
|
macro_open(f, "Oc"); |
|
else |
|
f->flags &= ~FMT_IMPL; |
|
} else if (isrep) { |
|
if (was_impl) |
|
macro_open(f, "Brc"); |
|
else |
|
f->flags &= ~FMT_IMPL; |
|
} |
|
if (isrep && f->linestate == LINE_MACRO) |
|
macro_addarg(f, "...", ARG_SPACE); |
|
pnode_unlinksub(n); |
} |
} |
|
|
static void |
static void |
|
pnode_printsystemitem(struct format *f, struct pnode *n) |
|
{ |
|
switch (pnode_getattr(n, ATTRKEY_CLASS)) { |
|
case ATTRVAL_IPADDRESS: |
|
break; |
|
case ATTRVAL_SYSTEMNAME: |
|
macro_open(f, "Pa"); |
|
break; |
|
case ATTRVAL_EVENT: |
|
default: |
|
macro_open(f, "Sy"); |
|
break; |
|
} |
|
} |
|
|
|
static void |
pnode_printauthor(struct format *f, struct pnode *n) |
pnode_printauthor(struct format *f, struct pnode *n) |
{ |
{ |
struct pnode *nc, *ncn; |
struct pnode *nc, *nn; |
int have_contrib, have_name; |
int have_contrib, have_name; |
|
|
/* |
/* |
Line 401 pnode_printauthor(struct format *f, struct pnode *n) |
|
Line 548 pnode_printauthor(struct format *f, struct pnode *n) |
|
*/ |
*/ |
|
|
have_contrib = have_name = 0; |
have_contrib = have_name = 0; |
TAILQ_FOREACH_SAFE(nc, &n->childq, child, ncn) { |
TAILQ_FOREACH_SAFE(nc, &n->childq, child, nn) { |
switch (nc->node) { |
switch (nc->node) { |
case NODE_CONTRIB: |
case NODE_CONTRIB: |
if (have_contrib) |
if (have_contrib) |
Line 430 pnode_printauthor(struct format *f, struct pnode *n) |
|
Line 577 pnode_printauthor(struct format *f, struct pnode *n) |
|
*/ |
*/ |
|
|
macro_open(f, "An"); |
macro_open(f, "An"); |
TAILQ_FOREACH_SAFE(nc, &n->childq, child, ncn) { |
TAILQ_FOREACH_SAFE(nc, &n->childq, child, nn) { |
if (nc->node == NODE_PERSONNAME || have_name == 0) { |
if (nc->node == NODE_PERSONNAME || have_name == 0) { |
macro_addnode(f, nc, ARG_SPACE); |
macro_addnode(f, nc, ARG_SPACE); |
pnode_unlink(nc); |
pnode_unlink(nc); |
Line 443 pnode_printauthor(struct format *f, struct pnode *n) |
|
Line 590 pnode_printauthor(struct format *f, struct pnode *n) |
|
*/ |
*/ |
|
|
if ((nc = pnode_findfirst(n, NODE_EMAIL)) != NULL) { |
if ((nc = pnode_findfirst(n, NODE_EMAIL)) != NULL) { |
pnode_print(f, nc); |
f->flags |= FMT_CHILD; |
|
macro_open(f, "Aq Mt"); |
|
macro_addnode(f, nc, ARG_SPACE); |
pnode_unlink(nc); |
pnode_unlink(nc); |
} |
} |
|
|
Line 460 pnode_printauthor(struct format *f, struct pnode *n) |
|
Line 609 pnode_printauthor(struct format *f, struct pnode *n) |
|
} |
} |
|
|
static void |
static void |
pnode_printprologue(struct format *p, struct ptree *tree) |
pnode_printxref(struct format *f, struct pnode *n) |
{ |
{ |
struct pnode *refmeta; |
const char *linkend; |
|
|
refmeta = tree->root == NULL ? NULL : |
linkend = pnode_getattr_raw(n, ATTRKEY_LINKEND, NULL); |
pnode_findfirst(tree->root, NODE_REFMETA); |
if (linkend != NULL) { |
|
macro_open(f, "Sx"); |
|
macro_addarg(f, linkend, ARG_SPACE); |
|
} |
|
} |
|
|
macro_line(p, "Dd $Mdocdate" "$"); |
static void |
if (refmeta == NULL) { |
pnode_printlink(struct format *f, struct pnode *n) |
macro_open(p, "Dt"); |
{ |
macro_addarg(p, |
struct pnode *nc; |
pnode_getattr_raw(tree->root, ATTRKEY_ID, "UNKNOWN"), |
const char *uri, *text; |
ARG_SPACE | ARG_SINGLE | ARG_UPPER); |
|
macro_addarg(p, "1", ARG_SPACE); |
|
macro_close(p); |
|
} else |
|
pnode_printrefmeta(p, refmeta); |
|
macro_line(p, "Os"); |
|
|
|
if (tree->flags & TREE_EQN) { |
uri = pnode_getattr_raw(n, ATTRKEY_LINKEND, NULL); |
macro_line(p, "EQ"); |
if (uri != NULL) { |
print_text(p, "delim $$", 0); |
if (TAILQ_FIRST(&n->childq) != NULL) { |
macro_line(p, "EN"); |
TAILQ_FOREACH(nc, &n->childq, child) |
|
pnode_print(f, nc); |
|
text = ""; |
|
} else if ((text = pnode_getattr_raw(n, |
|
ATTRKEY_ENDTERM, NULL)) != NULL) { |
|
if (f->linestate == LINE_MACRO && f->flags & FMT_ARG) |
|
macro_addarg(f, text, ARG_SPACE); |
|
else |
|
print_text(f, text, ARG_SPACE); |
|
} |
|
if (text != NULL) { |
|
if (f->flags & FMT_IMPL) |
|
macro_open(f, "Po"); |
|
else { |
|
macro_open(f, "Pq"); |
|
f->flags |= FMT_CHILD; |
|
} |
|
} |
|
macro_open(f, "Sx"); |
|
macro_addarg(f, uri, ARG_SPACE); |
|
if (text != NULL && f->flags & FMT_IMPL) |
|
macro_open(f, "Pc"); |
|
pnode_unlinksub(n); |
|
return; |
} |
} |
|
uri = pnode_getattr_raw(n, ATTRKEY_XLINK_HREF, NULL); |
|
if (uri == NULL) |
|
uri = pnode_getattr_raw(n, ATTRKEY_URL, NULL); |
|
if (uri != NULL) { |
|
macro_open(f, "Lk"); |
|
macro_addarg(f, uri, ARG_SPACE | ARG_SINGLE); |
|
if (TAILQ_FIRST(&n->childq) != NULL) |
|
macro_addnode(f, n, ARG_SPACE | ARG_SINGLE); |
|
pnode_unlinksub(n); |
|
} |
} |
} |
|
|
|
static void |
|
pnode_printolink(struct format *f, struct pnode *n) |
|
{ |
|
const char *uri, *ptr, *local; |
|
|
|
uri = pnode_getattr_raw(n, ATTRKEY_TARGETDOC, NULL); |
|
ptr = pnode_getattr_raw(n, ATTRKEY_TARGETPTR, NULL); |
|
local = pnode_getattr_raw(n, ATTRKEY_LOCALINFO, NULL); |
|
if (uri == NULL) { |
|
uri = ptr; |
|
ptr = NULL; |
|
} |
|
if (uri == NULL) { |
|
uri = local; |
|
local = NULL; |
|
} |
|
if (uri == NULL) |
|
return; |
|
|
|
macro_open(f, "Lk"); |
|
macro_addarg(f, uri, ARG_SPACE | ARG_SINGLE); |
|
macro_addnode(f, n, ARG_SPACE | ARG_SINGLE); |
|
if (ptr != NULL || local != NULL) { |
|
macro_close(f); |
|
macro_open(f, "Pq"); |
|
if (ptr != NULL) |
|
macro_addarg(f, ptr, ARG_SPACE); |
|
if (local != NULL) |
|
macro_addarg(f, local, ARG_SPACE); |
|
} |
|
pnode_unlinksub(n); |
|
} |
|
|
|
static void |
|
pnode_printprologue(struct format *f, struct pnode *root) |
|
{ |
|
struct pnode *name, *nc; |
|
|
|
nc = TAILQ_FIRST(&root->childq); |
|
assert(nc->node == NODE_DATE); |
|
macro_nodeline(f, "Dd", nc, 0); |
|
pnode_unlink(nc); |
|
|
|
macro_open(f, "Dt"); |
|
name = TAILQ_FIRST(&root->childq); |
|
assert(name->node == NODE_REFENTRYTITLE); |
|
macro_addnode(f, name, ARG_SPACE | ARG_SINGLE | ARG_UPPER); |
|
TAILQ_REMOVE(&root->childq, name, child); |
|
name->parent = NULL; |
|
nc = TAILQ_FIRST(&root->childq); |
|
assert (nc->node == NODE_MANVOLNUM); |
|
macro_addnode(f, nc, ARG_SPACE | ARG_SINGLE); |
|
pnode_unlink(nc); |
|
|
|
macro_line(f, "Os"); |
|
|
|
nc = TAILQ_FIRST(&root->childq); |
|
if (nc != NULL && nc->node == NODE_TITLE) { |
|
macro_line(f, "Sh NAME"); |
|
macro_nodeline(f, "Nm", name, ARG_SINGLE); |
|
macro_nodeline(f, "Nd", nc, 0); |
|
pnode_unlink(nc); |
|
} |
|
pnode_unlink(name); |
|
f->parastate = PARA_HAVE; |
|
} |
|
|
/* |
/* |
* We can have multiple <term> elements within a <varlistentry>, which |
* We can have multiple <term> elements within a <varlistentry>, which |
* we should comma-separate as list headers. |
* we should comma-separate as list headers. |
*/ |
*/ |
static void |
static void |
pnode_printvarlistentry(struct format *p, struct pnode *pn) |
pnode_printvarlistentry(struct format *f, struct pnode *n) |
{ |
{ |
struct pnode *pp; |
struct pnode *nc, *nn, *ncc; |
int first = 1; |
int comma; |
|
|
macro_open(p, "It"); |
macro_open(f, "It"); |
TAILQ_FOREACH(pp, &pn->childq, child) { |
f->parastate = PARA_HAVE; |
if (pp->node != NODE_TERM) |
f->flags |= FMT_IMPL; |
|
comma = -1; |
|
TAILQ_FOREACH_SAFE(nc, &n->childq, child, nn) { |
|
if (nc->node != NODE_TERM && nc->node != NODE_GLOSSTERM) |
continue; |
continue; |
if ( ! first) |
if (comma != -1) { |
macro_addarg(p, ",", 0); |
switch (f->linestate) { |
pnode_print(p, pp); |
case LINE_NEW: |
first = 0; |
break; |
|
case LINE_TEXT: |
|
print_text(f, ",", 0); |
|
break; |
|
case LINE_MACRO: |
|
macro_addarg(f, ",", comma); |
|
break; |
|
} |
|
} |
|
f->parastate = PARA_HAVE; |
|
comma = (ncc = TAILQ_FIRST(&nc->childq)) == NULL || |
|
pnode_class(ncc->node) == CLASS_TEXT ? 0 : ARG_SPACE; |
|
pnode_print(f, nc); |
|
pnode_unlink(nc); |
} |
} |
macro_close(p); |
macro_close(f); |
TAILQ_FOREACH(pp, &pn->childq, child) |
f->parastate = PARA_HAVE; |
if (pp->node != NODE_TERM) |
while ((nc = TAILQ_FIRST(&n->childq)) != NULL) { |
pnode_print(p, pp); |
pnode_print(f, nc); |
pnode_unlinksub(pn); |
pnode_unlink(nc); |
|
} |
|
macro_close(f); |
|
f->parastate = PARA_HAVE; |
} |
} |
|
|
static void |
static void |
pnode_printtitle(struct format *p, struct pnode *pn) |
pnode_printtitle(struct format *f, struct pnode *n) |
{ |
{ |
struct pnode *pp, *pq; |
struct pnode *nc, *nn; |
|
|
TAILQ_FOREACH_SAFE(pp, &pn->childq, child, pq) { |
TAILQ_FOREACH_SAFE(nc, &n->childq, child, nn) { |
if (pp->node == NODE_TITLE) { |
if (nc->node == NODE_TITLE) { |
pnode_printpara(p, pp); |
if (f->parastate == PARA_MID) |
pnode_print(p, pp); |
f->parastate = PARA_WANT; |
pnode_unlink(pp); |
macro_nodeline(f, "Sy", nc, 0); |
|
pnode_unlink(nc); |
} |
} |
} |
} |
} |
} |
|
|
static void |
static void |
pnode_printrow(struct format *p, struct pnode *pn) |
pnode_printrow(struct format *f, struct pnode *n) |
{ |
{ |
struct pnode *pp; |
struct pnode *nc; |
|
|
macro_line(p, "Bl -dash -compact"); |
macro_line(f, "Bl -dash -compact"); |
TAILQ_FOREACH(pp, &pn->childq, child) { |
TAILQ_FOREACH(nc, &n->childq, child) { |
macro_line(p, "It"); |
macro_line(f, "It"); |
pnode_print(p, pp); |
pnode_print(f, nc); |
} |
} |
macro_line(p, "El"); |
macro_line(f, "El"); |
pnode_unlink(pn); |
pnode_unlink(n); |
} |
} |
|
|
static void |
static void |
pnode_printtable(struct format *p, struct pnode *pn) |
pnode_printtgroup1(struct format *f, struct pnode *n) |
{ |
{ |
struct pnode *pp; |
struct pnode *nc; |
|
|
pnode_printtitle(p, pn); |
macro_line(f, "Bl -bullet -compact"); |
macro_line(p, "Bl -ohang"); |
while ((nc = pnode_findfirst(n, NODE_ENTRY)) != NULL) { |
while ((pp = pnode_findfirst(pn, NODE_ROW)) != NULL) { |
macro_line(f, "It"); |
macro_line(p, "It Table Row"); |
f->parastate = PARA_HAVE; |
pnode_printrow(p, pp); |
pnode_print(f, nc); |
|
f->parastate = PARA_HAVE; |
|
pnode_unlink(nc); |
} |
} |
macro_line(p, "El"); |
macro_line(f, "El"); |
pnode_unlinksub(pn); |
pnode_unlinksub(n); |
} |
} |
|
|
static void |
static void |
pnode_printlist(struct format *p, struct pnode *pn) |
pnode_printtgroup2(struct format *f, struct pnode *n) |
{ |
{ |
struct pnode *pp; |
struct pnode *nr, *ne; |
|
|
pnode_printtitle(p, pn); |
f->parastate = PARA_HAVE; |
macro_argline(p, "Bl", |
macro_line(f, "Bl -tag -width Ds"); |
pn->node == NODE_ORDEREDLIST ? "-enum" : "-bullet"); |
while ((nr = pnode_findfirst(n, NODE_ROW)) != NULL) { |
TAILQ_FOREACH(pp, &pn->childq, child) { |
if ((ne = pnode_findfirst(n, NODE_ENTRY)) == NULL) |
macro_line(p, "It"); |
break; |
pnode_print(p, pp); |
macro_open(f, "It"); |
|
f->flags |= FMT_IMPL; |
|
f->parastate = PARA_HAVE; |
|
pnode_print(f, ne); |
|
macro_close(f); |
|
pnode_unlink(ne); |
|
f->parastate = PARA_HAVE; |
|
pnode_print(f, nr); |
|
f->parastate = PARA_HAVE; |
|
pnode_unlink(nr); |
} |
} |
macro_line(p, "El"); |
macro_line(f, "El"); |
pnode_unlinksub(pn); |
f->parastate = PARA_WANT; |
|
pnode_unlinksub(n); |
} |
} |
|
|
static void |
static void |
pnode_printvariablelist(struct format *p, struct pnode *pn) |
pnode_printtgroup(struct format *f, struct pnode *n) |
{ |
{ |
struct pnode *pp; |
struct pnode *nc; |
|
|
pnode_printtitle(p, pn); |
switch (atoi(pnode_getattr_raw(n, ATTRKEY_COLS, "0"))) { |
macro_line(p, "Bl -tag -width Ds"); |
case 1: |
TAILQ_FOREACH(pp, &pn->childq, child) { |
pnode_printtgroup1(f, n); |
if (pp->node == NODE_VARLISTENTRY) |
return; |
pnode_print(p, pp); |
case 2: |
|
pnode_printtgroup2(f, n); |
|
return; |
|
default: |
|
break; |
|
} |
|
|
|
f->parastate = PARA_HAVE; |
|
macro_line(f, "Bl -ohang"); |
|
while ((nc = pnode_findfirst(n, NODE_ROW)) != NULL) { |
|
macro_line(f, "It Table Row"); |
|
pnode_printrow(f, nc); |
|
} |
|
macro_line(f, "El"); |
|
f->parastate = PARA_WANT; |
|
pnode_unlinksub(n); |
|
} |
|
|
|
static void |
|
pnode_printlist(struct format *f, struct pnode *n) |
|
{ |
|
struct pnode *nc; |
|
|
|
pnode_printtitle(f, n); |
|
f->parastate = PARA_HAVE; |
|
macro_argline(f, "Bl", |
|
n->node == NODE_ORDEREDLIST ? "-enum" : "-bullet"); |
|
TAILQ_FOREACH(nc, &n->childq, child) { |
|
macro_line(f, "It"); |
|
f->parastate = PARA_HAVE; |
|
pnode_print(f, nc); |
|
f->parastate = PARA_HAVE; |
|
} |
|
macro_line(f, "El"); |
|
f->parastate = PARA_WANT; |
|
pnode_unlinksub(n); |
|
} |
|
|
|
static void |
|
pnode_printvariablelist(struct format *f, struct pnode *n) |
|
{ |
|
struct pnode *nc; |
|
|
|
pnode_printtitle(f, n); |
|
f->parastate = PARA_HAVE; |
|
macro_line(f, "Bl -tag -width Ds"); |
|
TAILQ_FOREACH(nc, &n->childq, child) { |
|
if (nc->node == NODE_VARLISTENTRY) |
|
pnode_printvarlistentry(f, nc); |
else |
else |
macro_nodeline(p, "It", pp, 0); |
macro_nodeline(f, "It", nc, 0); |
} |
} |
macro_line(p, "El"); |
macro_line(f, "El"); |
pnode_unlinksub(pn); |
f->parastate = PARA_WANT; |
|
pnode_unlinksub(n); |
} |
} |
|
|
/* |
/* |
Line 595 pnode_printvariablelist(struct format *p, struct pnode |
|
Line 923 pnode_printvariablelist(struct format *p, struct pnode |
|
* whatever), don't print inline macros. |
* whatever), don't print inline macros. |
*/ |
*/ |
static void |
static void |
pnode_print(struct format *p, struct pnode *pn) |
pnode_print(struct format *f, struct pnode *n) |
{ |
{ |
struct pnode *pp; |
struct pnode *nc, *nn; |
const char *ccp; |
int was_impl; |
char *cp; |
|
int last; |
|
enum linestate sv; |
|
|
|
if (pn == NULL) |
if (n == NULL) |
return; |
return; |
|
|
sv = p->linestate; |
if (n->flags & NFLAG_LINE && |
|
(f->nofill || (f->flags & (FMT_ARG | FMT_IMPL)) == 0)) |
|
macro_close(f); |
|
|
switch (pn->node) { |
was_impl = f->flags & FMT_IMPL; |
case NODE_APPLICATION: |
if (n->flags & NFLAG_SPC) |
macro_open(p, "Nm"); |
f->flags &= ~FMT_NOSPC; |
break; |
else |
|
f->flags |= FMT_NOSPC; |
|
|
|
switch (n->node) { |
case NODE_ARG: |
case NODE_ARG: |
pnode_printarg(p, pn); |
pnode_printarg(f, n); |
break; |
break; |
case NODE_AUTHOR: |
case NODE_AUTHOR: |
pnode_printauthor(p, pn); |
pnode_printauthor(f, n); |
break; |
break; |
case NODE_AUTHORGROUP: |
case NODE_AUTHORGROUP: |
macro_line(p, "An -split"); |
macro_line(f, "An -split"); |
break; |
break; |
case NODE_BOOKINFO: |
case NODE_BLOCKQUOTE: |
macro_line(p, "Sh NAME"); |
f->parastate = PARA_HAVE; |
|
macro_line(f, "Bd -ragged -offset indent"); |
|
f->parastate = PARA_HAVE; |
break; |
break; |
case NODE_CITEREFENTRY: |
case NODE_CITEREFENTRY: |
pnode_printciterefentry(p, pn); |
pnode_printciterefentry(f, n); |
break; |
break; |
case NODE_CITETITLE: |
case NODE_CITETITLE: |
macro_open(p, "%T"); |
macro_open(f, "%T"); |
break; |
break; |
case NODE_CODE: |
|
macro_open(p, "Li"); |
|
break; |
|
case NODE_COMMAND: |
case NODE_COMMAND: |
macro_open(p, "Nm"); |
macro_open(f, "Nm"); |
break; |
break; |
case NODE_CONSTANT: |
case NODE_CONSTANT: |
macro_open(p, "Dv"); |
macro_open(f, "Dv"); |
break; |
break; |
|
case NODE_COPYRIGHT: |
|
print_text(f, "Copyright", ARG_SPACE); |
|
fputs(" \\(co", stdout); |
|
break; |
case NODE_EDITOR: |
case NODE_EDITOR: |
print_text(p, "editor:", ARG_SPACE); |
print_text(f, "editor:", ARG_SPACE); |
macro_open(p, "An"); |
pnode_printauthor(f, n); |
break; |
break; |
case NODE_EMAIL: |
case NODE_EMAIL: |
macro_open(p, "Aq Mt"); |
if (was_impl) |
|
macro_open(f, "Ao Mt"); |
|
else { |
|
macro_open(f, "Aq Mt"); |
|
f->flags |= FMT_IMPL; |
|
} |
break; |
break; |
case NODE_EMPHASIS: |
case NODE_EMPHASIS: |
case NODE_FIRSTTERM: |
case NODE_FIRSTTERM: |
macro_open(p, "Em"); |
case NODE_GLOSSTERM: |
|
if ((nc = TAILQ_FIRST(&n->childq)) != NULL && |
|
pnode_class(nc->node) < CLASS_LINE) |
|
macro_open(f, "Em"); |
|
if (n->node == NODE_GLOSSTERM) |
|
f->parastate = PARA_HAVE; |
break; |
break; |
case NODE_ENVAR: |
case NODE_ENVAR: |
macro_open(p, "Ev"); |
macro_open(f, "Ev"); |
break; |
break; |
case NODE_ESCAPE: |
case NODE_ERRORNAME: |
if (p->linestate == LINE_NEW) |
macro_open(f, "Er"); |
p->linestate = LINE_TEXT; |
|
else |
|
putchar(' '); |
|
fputs(pn->b, stdout); |
|
break; |
break; |
case NODE_FILENAME: |
case NODE_FILENAME: |
macro_open(p, "Pa"); |
macro_open(f, "Pa"); |
break; |
break; |
|
case NODE_FOOTNOTE: |
|
macro_line(f, "Bo"); |
|
f->parastate = PARA_HAVE; |
|
break; |
case NODE_FUNCTION: |
case NODE_FUNCTION: |
macro_open(p, "Fn"); |
macro_open(f, "Fn"); |
break; |
break; |
case NODE_FUNCPROTOTYPE: |
case NODE_FUNCPROTOTYPE: |
pnode_printfuncprototype(p, pn); |
pnode_printfuncprototype(f, n); |
break; |
break; |
case NODE_FUNCSYNOPSISINFO: |
case NODE_FUNCSYNOPSISINFO: |
macro_open(p, "Fd"); |
macro_open(f, "Fd"); |
break; |
break; |
case NODE_INFORMALEQUATION: |
case NODE_IMAGEDATA: |
macro_line(p, "EQ"); |
pnode_printimagedata(f, n); |
break; |
break; |
|
case NODE_INFORMALEQUATION: |
|
f->parastate = PARA_HAVE; |
|
macro_line(f, "Bd -ragged -offset indent"); |
|
f->parastate = PARA_HAVE; |
|
/* FALLTHROUGH */ |
case NODE_INLINEEQUATION: |
case NODE_INLINEEQUATION: |
if (p->linestate == LINE_NEW) |
macro_line(f, "EQ"); |
p->linestate = LINE_TEXT; |
|
putchar('$'); |
|
break; |
break; |
case NODE_ITEMIZEDLIST: |
case NODE_ITEMIZEDLIST: |
pnode_printlist(p, pn); |
pnode_printlist(f, n); |
break; |
break; |
case NODE_GROUP: |
case NODE_GROUP: |
pnode_printgroup(p, pn); |
pnode_printgroup(f, n); |
break; |
break; |
case NODE_KEYSYM: |
case NODE_KEYSYM: |
macro_open(p, "Sy"); |
case NODE_PRODUCTNAME: |
|
macro_open(f, "Sy"); |
break; |
break; |
case NODE_LEGALNOTICE: |
|
macro_line(p, "Sh LEGAL NOTICE"); |
|
break; |
|
case NODE_LINK: |
case NODE_LINK: |
ccp = pnode_getattr_raw(pn, ATTRKEY_LINKEND, NULL); |
pnode_printlink(f, n); |
if (ccp == NULL) |
break; |
break; |
|
macro_argline(p, "Sx", ccp); |
|
return; |
|
case NODE_LITERAL: |
case NODE_LITERAL: |
macro_open(p, "Li"); |
if (n->parent != NULL && n->parent->node == NODE_QUOTE) |
|
macro_open(f, "Li"); |
|
else if (was_impl) |
|
macro_open(f, "So Li"); |
|
else { |
|
macro_open(f, "Ql"); |
|
f->flags |= FMT_IMPL; |
|
} |
break; |
break; |
case NODE_LITERALLAYOUT: |
case NODE_LITERALLAYOUT: |
macro_argline(p, "Bd", pnode_getattr(pn, ATTRKEY_CLASS) == |
macro_close(f); |
|
f->parastate = PARA_HAVE; |
|
macro_argline(f, "Bd", pnode_getattr(n, ATTRKEY_CLASS) == |
ATTRVAL_MONOSPACED ? "-literal" : "-unfilled"); |
ATTRVAL_MONOSPACED ? "-literal" : "-unfilled"); |
|
f->parastate = PARA_HAVE; |
break; |
break; |
|
case NODE_MARKUP: |
|
macro_open(f, "Ic"); |
|
break; |
case NODE_MML_MFENCED: |
case NODE_MML_MFENCED: |
pnode_printmathfenced(p, pn); |
pnode_printmathfenced(f, n); |
break; |
break; |
case NODE_MML_MROW: |
case NODE_MML_MROW: |
case NODE_MML_MI: |
case NODE_MML_MI: |
case NODE_MML_MN: |
case NODE_MML_MN: |
case NODE_MML_MO: |
case NODE_MML_MO: |
if (TAILQ_EMPTY(&pn->childq)) |
if (TAILQ_EMPTY(&n->childq)) |
break; |
break; |
fputs(" { ", stdout); |
fputs(" { ", stdout); |
break; |
break; |
case NODE_MML_MFRAC: |
case NODE_MML_MFRAC: |
case NODE_MML_MSUB: |
case NODE_MML_MSUB: |
case NODE_MML_MSUP: |
case NODE_MML_MSUP: |
pnode_printmath(p, pn); |
pnode_printmath(f, n); |
break; |
break; |
|
case NODE_OLINK: |
|
pnode_printolink(f, n); |
|
break; |
case NODE_OPTION: |
case NODE_OPTION: |
macro_open(p, "Fl"); |
if ((nc = TAILQ_FIRST(&n->childq)) != NULL && |
|
pnode_class(nc->node) < CLASS_LINE) |
|
macro_open(f, "Fl"); |
break; |
break; |
case NODE_ORDEREDLIST: |
case NODE_ORDEREDLIST: |
pnode_printlist(p, pn); |
pnode_printlist(f, n); |
break; |
break; |
case NODE_PARA: |
case NODE_PARA: |
pnode_printpara(p, pn); |
if (f->parastate == PARA_MID) |
|
f->parastate = PARA_WANT; |
break; |
break; |
|
case NODE_PARAMDEF: |
case NODE_PARAMETER: |
case NODE_PARAMETER: |
macro_nodeline(p, "Fa", pn, ARG_SINGLE); |
/* More often, these appear inside NODE_FUNCPROTOTYPE. */ |
pnode_unlinksub(pn); |
macro_open(f, "Fa"); |
|
macro_addnode(f, n, ARG_SPACE | ARG_SINGLE); |
|
pnode_unlinksub(n); |
break; |
break; |
case NODE_QUOTE: |
case NODE_QUOTE: |
macro_open(p, "Qo"); |
if ((nc = TAILQ_FIRST(&n->childq)) != NULL && |
|
nc->node == NODE_FILENAME && |
|
TAILQ_NEXT(nc, child) == NULL) { |
|
if (n->flags & NFLAG_SPC) |
|
nc->flags |= NFLAG_SPC; |
|
} else if (was_impl) |
|
macro_open(f, "Do"); |
|
else { |
|
macro_open(f, "Dq"); |
|
f->flags |= FMT_IMPL; |
|
} |
break; |
break; |
case NODE_PROGRAMLISTING: |
case NODE_PROGRAMLISTING: |
case NODE_SCREEN: |
case NODE_SCREEN: |
macro_line(p, "Bd -literal"); |
case NODE_SYNOPSIS: |
|
f->parastate = PARA_HAVE; |
|
macro_line(f, "Bd -literal"); |
|
f->parastate = PARA_HAVE; |
break; |
break; |
case NODE_REFENTRYINFO: |
case NODE_SYSTEMITEM: |
/* Suppress. */ |
pnode_printsystemitem(f, n); |
pnode_unlinksub(pn); |
|
break; |
break; |
case NODE_REFMETA: |
|
abort(); |
|
break; |
|
case NODE_REFNAME: |
case NODE_REFNAME: |
/* Suppress non-text children... */ |
/* More often, these appear inside NODE_REFNAMEDIV. */ |
macro_open(p, "Nm"); |
macro_open(f, "Nm"); |
macro_addnode(p, pn, ARG_SPACE | ARG_SINGLE); |
|
pnode_unlinksub(pn); |
|
break; |
break; |
case NODE_REFNAMEDIV: |
case NODE_REFNAMEDIV: |
macro_line(p, "Sh NAME"); |
pnode_printrefnamediv(f, n); |
break; |
break; |
case NODE_REFPURPOSE: |
case NODE_REFPURPOSE: |
macro_open(p, "Nd"); |
macro_open(f, "Nd"); |
break; |
break; |
case NODE_REFSYNOPSISDIV: |
case NODE_REFSYNOPSISDIV: |
pnode_printrefsynopsisdiv(p, pn); |
pnode_printrefsynopsisdiv(f, n); |
break; |
break; |
case NODE_PREFACE: |
|
case NODE_SECTION: |
case NODE_SECTION: |
|
case NODE_SIMPLESECT: |
|
case NODE_APPENDIX: |
case NODE_NOTE: |
case NODE_NOTE: |
case NODE_TIP: |
pnode_printsection(f, n); |
case NODE_CAUTION: |
|
case NODE_WARNING: |
|
pnode_printrefsect(p, pn); |
|
break; |
break; |
case NODE_REPLACEABLE: |
case NODE_REPLACEABLE: |
macro_open(p, "Ar"); |
macro_open(f, "Ar"); |
break; |
break; |
case NODE_SBR: |
case NODE_SBR: |
macro_line(p, "br"); |
if (f->parastate == PARA_MID) |
|
macro_line(f, "br"); |
break; |
break; |
case NODE_SGMLTAG: |
case NODE_SUBSCRIPT: |
macro_open(p, "Li"); |
if (f->linestate == LINE_MACRO) |
|
macro_addarg(f, "_", 0); |
|
else |
|
print_text(f, "_", 0); |
|
if ((nc = TAILQ_FIRST(&n->childq)) != NULL) |
|
nc->flags &= ~(NFLAG_LINE | NFLAG_SPC); |
break; |
break; |
case NODE_STRUCTNAME: |
case NODE_SUPERSCRIPT: |
macro_open(p, "Vt"); |
fputs("\\(ha", stdout); |
|
if ((nc = TAILQ_FIRST(&n->childq)) != NULL) |
|
nc->flags &= ~(NFLAG_LINE | NFLAG_SPC); |
break; |
break; |
case NODE_TABLE: |
|
case NODE_INFORMALTABLE: |
|
pnode_printtable(p, pn); |
|
break; |
|
case NODE_TEXT: |
case NODE_TEXT: |
if (pn->bsz == 0) { |
case NODE_ESCAPE: |
assert(pn->real != pn->b); |
pnode_printtext(f, n); |
break; |
|
} |
|
if (p->linestate == LINE_NEW) |
|
p->linestate = LINE_TEXT; |
|
else |
|
putchar(' '); |
|
|
|
/* |
|
* Output all characters, squeezing out whitespace |
|
* between newlines. |
|
* XXX: all whitespace, including tabs (?). |
|
* Remember to escape control characters and escapes. |
|
*/ |
|
cp = pn->b; |
|
|
|
/* |
|
* There's often a superfluous "-" in its <option> tags |
|
* before the actual flags themselves. |
|
* "Fl" does this for us, so remove it. |
|
*/ |
|
if (pn->parent != NULL && |
|
pn->parent->node == NODE_OPTION && |
|
*cp == '-') |
|
cp++; |
|
for (last = '\n'; *cp != '\0'; ) { |
|
if (last == '\n') { |
|
/* Consume all whitespace. */ |
|
if (isspace((unsigned char)*cp)) { |
|
while (isspace((unsigned char)*cp)) |
|
cp++; |
|
continue; |
|
} else if (*cp == '\'' || *cp == '.') |
|
fputs("\\&", stdout); |
|
} |
|
putchar(last = *cp++); |
|
/* If we're a character escape, escape us. */ |
|
if (last == '\\') |
|
putchar('e'); |
|
} |
|
break; |
break; |
|
case NODE_TGROUP: |
|
pnode_printtgroup(f, n); |
|
break; |
case NODE_TITLE: |
case NODE_TITLE: |
if (pn->parent->node == NODE_BOOKINFO) |
case NODE_SUBTITLE: |
macro_open(p, "Nd"); |
if (f->parastate == PARA_MID) |
|
f->parastate = PARA_WANT; |
|
macro_nodeline(f, "Sy", n, 0); |
|
pnode_unlinksub(n); |
break; |
break; |
case NODE_TYPE: |
case NODE_TYPE: |
macro_open(p, "Vt"); |
macro_open(f, "Vt"); |
break; |
break; |
case NODE_USERINPUT: |
|
macro_open(p, "Li"); |
|
break; |
|
case NODE_VARIABLELIST: |
case NODE_VARIABLELIST: |
pnode_printvariablelist(p, pn); |
pnode_printvariablelist(f, n); |
break; |
break; |
case NODE_VARLISTENTRY: |
|
pnode_printvarlistentry(p, pn); |
|
break; |
|
case NODE_VARNAME: |
case NODE_VARNAME: |
macro_open(p, "Va"); |
macro_open(f, "Va"); |
break; |
break; |
|
case NODE_VOID: |
|
print_text(f, "void", ARG_SPACE); |
|
break; |
|
case NODE_XREF: |
|
pnode_printxref(f, n); |
|
break; |
|
case NODE_CAUTION: |
|
case NODE_LEGALNOTICE: |
|
case NODE_PREFACE: |
|
case NODE_TIP: |
|
case NODE_WARNING: |
|
abort(); |
default: |
default: |
break; |
break; |
} |
} |
|
|
TAILQ_FOREACH(pp, &pn->childq, child) |
if (pnode_class(n->node) == CLASS_NOFILL) |
pnode_print(p, pp); |
f->nofill++; |
|
|
switch (pn->node) { |
TAILQ_FOREACH(nc, &n->childq, child) |
|
pnode_print(f, nc); |
|
|
|
switch (n->node) { |
|
case NODE_EMAIL: |
|
if (was_impl) { |
|
f->flags &= ~FMT_NOSPC; |
|
macro_open(f, "Ac"); |
|
} else |
|
f->flags &= ~FMT_IMPL; |
|
break; |
|
case NODE_ESCAPE: |
|
case NODE_TERM: |
|
case NODE_TEXT: |
|
/* Accept more arguments to the previous macro. */ |
|
return; |
|
case NODE_FOOTNOTE: |
|
f->parastate = PARA_HAVE; |
|
macro_line(f, "Bc"); |
|
break; |
|
case NODE_GLOSSTERM: |
|
f->parastate = PARA_HAVE; |
|
break; |
case NODE_INFORMALEQUATION: |
case NODE_INFORMALEQUATION: |
macro_line(p, "EN"); |
macro_line(f, "EN"); |
|
macro_line(f, "Ed"); |
break; |
break; |
case NODE_INLINEEQUATION: |
case NODE_INLINEEQUATION: |
fputs("$ ", stdout); |
macro_line(f, "EN"); |
p->linestate = sv; |
|
break; |
break; |
|
case NODE_LITERAL: |
|
if (n->parent != NULL && n->parent->node == NODE_QUOTE) |
|
/* nothing */; |
|
else if (was_impl) { |
|
f->flags &= ~FMT_NOSPC; |
|
macro_open(f, "Sc"); |
|
} else |
|
f->flags &= ~FMT_IMPL; |
|
break; |
|
case NODE_MEMBER: |
|
if ((nn = TAILQ_NEXT(n, child)) != NULL && |
|
nn->node != NODE_MEMBER) |
|
nn = NULL; |
|
switch (f->linestate) { |
|
case LINE_TEXT: |
|
if (nn != NULL) |
|
print_text(f, ",", 0); |
|
break; |
|
case LINE_MACRO: |
|
if (nn != NULL) |
|
macro_addarg(f, ",", ARG_SPACE); |
|
macro_close(f); |
|
break; |
|
case LINE_NEW: |
|
break; |
|
} |
|
break; |
case NODE_MML_MROW: |
case NODE_MML_MROW: |
case NODE_MML_MI: |
case NODE_MML_MI: |
case NODE_MML_MN: |
case NODE_MML_MN: |
case NODE_MML_MO: |
case NODE_MML_MO: |
if (TAILQ_EMPTY(&pn->childq)) |
if (TAILQ_EMPTY(&n->childq)) |
break; |
break; |
fputs(" } ", stdout); |
fputs(" } ", stdout); |
break; |
break; |
case NODE_APPLICATION: |
case NODE_PARA: |
case NODE_ARG: |
if (f->parastate == PARA_MID) |
case NODE_AUTHOR: |
f->parastate = PARA_WANT; |
case NODE_CITEREFENTRY: |
|
case NODE_CITETITLE: |
|
case NODE_CODE: |
|
case NODE_COMMAND: |
|
case NODE_CONSTANT: |
|
case NODE_EDITOR: |
|
case NODE_EMAIL: |
|
case NODE_EMPHASIS: |
|
case NODE_ENVAR: |
|
case NODE_FILENAME: |
|
case NODE_FIRSTTERM: |
|
case NODE_FUNCTION: |
|
case NODE_FUNCSYNOPSISINFO: |
|
case NODE_KEYSYM: |
|
case NODE_LITERAL: |
|
case NODE_OPTION: |
|
case NODE_PARAMETER: |
|
case NODE_REPLACEABLE: |
|
case NODE_REFPURPOSE: |
|
case NODE_SGMLTAG: |
|
case NODE_STRUCTNAME: |
|
case NODE_TYPE: |
|
case NODE_USERINPUT: |
|
case NODE_VARNAME: |
|
if (sv != LINE_MACRO && p->linestate == LINE_MACRO) |
|
macro_closepunct(p, pn); |
|
break; |
break; |
case NODE_QUOTE: |
case NODE_QUOTE: |
if (sv == LINE_NEW) |
if ((nc = TAILQ_FIRST(&n->childq)) != NULL && |
macro_close(p); |
nc->node == NODE_FILENAME && |
sv = p->linestate; |
TAILQ_NEXT(nc, child) == NULL) |
macro_open(p, "Qc"); |
/* nothing */; |
if (sv == LINE_NEW) |
else if (was_impl) { |
macro_close(p); |
f->flags &= ~FMT_NOSPC; |
|
macro_open(f, "Dc"); |
|
} else |
|
f->flags &= ~FMT_IMPL; |
break; |
break; |
case NODE_REFNAME: |
|
/* |
|
* If we're in the NAME macro and we have multiple |
|
* <refname> macros in sequence, then print out a |
|
* trailing comma before the newline. |
|
*/ |
|
if (pn->parent != NULL && |
|
pn->parent->node == NODE_REFNAMEDIV && |
|
TAILQ_NEXT(pn, child) != NULL && |
|
TAILQ_NEXT(pn, child)->node == NODE_REFNAME) |
|
macro_addarg(p, ",", ARG_SPACE); |
|
if (sv == LINE_NEW) |
|
macro_close(p); |
|
break; |
|
case NODE_PREFACE: |
|
case NODE_SECTION: |
case NODE_SECTION: |
|
case NODE_SIMPLESECT: |
|
case NODE_APPENDIX: |
case NODE_NOTE: |
case NODE_NOTE: |
case NODE_TIP: |
if (n->parent != NULL) |
case NODE_CAUTION: |
f->level--; |
case NODE_WARNING: |
|
p->level--; |
|
break; |
break; |
|
case NODE_BLOCKQUOTE: |
case NODE_LITERALLAYOUT: |
case NODE_LITERALLAYOUT: |
case NODE_PROGRAMLISTING: |
case NODE_PROGRAMLISTING: |
case NODE_SCREEN: |
case NODE_SCREEN: |
macro_line(p, "Ed"); |
case NODE_SYNOPSIS: |
|
f->parastate = PARA_HAVE; |
|
macro_line(f, "Ed"); |
|
f->parastate = PARA_WANT; |
break; |
break; |
case NODE_TITLE: |
case NODE_TITLE: |
if (pn->parent->node == NODE_BOOKINFO) |
case NODE_SUBTITLE: |
macro_line(p, "Sh AUTHORS"); |
f->parastate = PARA_WANT; |
break; |
break; |
|
case NODE_YEAR: |
|
if ((nn = TAILQ_NEXT(n, child)) != NULL && |
|
nn->node == NODE_YEAR && |
|
f->linestate == LINE_TEXT) { |
|
print_text(f, ",", 0); |
|
nn->flags |= NFLAG_SPC; |
|
if ((nc = TAILQ_FIRST(&nn->childq)) != NULL) |
|
nc->flags |= NFLAG_SPC; |
|
} |
default: |
default: |
break; |
break; |
} |
} |
|
f->flags &= ~FMT_ARG; |
|
if (pnode_class(n->node) == CLASS_NOFILL) |
|
f->nofill--; |
} |
} |
|
|
void |
void |
ptree_print(struct ptree *tree) |
ptree_print_mdoc(struct ptree *tree) |
{ |
{ |
struct format formatter; |
struct format formatter; |
|
|
formatter.level = 0; |
formatter.level = formatter.nofill = 0; |
formatter.linestate = LINE_NEW; |
formatter.linestate = LINE_NEW; |
pnode_printprologue(&formatter, tree); |
formatter.parastate = PARA_HAVE; |
|
pnode_printprologue(&formatter, tree->root); |
pnode_print(&formatter, tree->root); |
pnode_print(&formatter, tree->root); |
if (formatter.linestate != LINE_NEW) |
if (formatter.linestate != LINE_NEW) |
putchar('\n'); |
putchar('\n'); |