version 1.75, 2019/03/26 19:17:29 |
version 1.86, 2019/04/03 15:05:08 |
Line 32 static void pnode_print(struct format *, struct pnode |
|
Line 32 static void pnode_print(struct format *, struct pnode |
|
|
|
|
|
static void |
static void |
print_text(struct format *p, const char *word) |
|
{ |
|
switch (p->linestate) { |
|
case LINE_NEW: |
|
break; |
|
case LINE_TEXT: |
|
putchar(' '); |
|
break; |
|
case LINE_MACRO: |
|
macro_close(p); |
|
break; |
|
} |
|
fputs(word, stdout); |
|
p->linestate = LINE_TEXT; |
|
} |
|
|
|
static void |
|
pnode_printpara(struct format *p, struct pnode *pn) |
pnode_printpara(struct format *p, struct pnode *pn) |
{ |
{ |
struct pnode *pp; |
struct pnode *pp; |
Line 189 pnode_printciterefentry(struct format *p, struct pnode |
|
Line 172 pnode_printciterefentry(struct format *p, struct pnode |
|
macro_addarg(p, "1", ARG_SPACE); |
macro_addarg(p, "1", ARG_SPACE); |
else |
else |
macro_addnode(p, manvol, ARG_SPACE | ARG_SINGLE); |
macro_addnode(p, manvol, ARG_SPACE | ARG_SINGLE); |
macro_close(p); |
|
pnode_unlinksub(pn); |
pnode_unlinksub(pn); |
} |
} |
|
|
Line 219 pnode_printrefmeta(struct format *p, struct pnode *pn) |
|
Line 201 pnode_printrefmeta(struct format *p, struct pnode *pn) |
|
} |
} |
|
|
static void |
static void |
pnode_printfuncdef(struct format *p, struct pnode *pn) |
pnode_printfuncdef(struct format *f, struct pnode *n) |
{ |
{ |
struct pnode *pp, *ftype, *func; |
struct pnode *nc; |
|
|
ftype = func = NULL; |
nc = TAILQ_FIRST(&n->childq); |
TAILQ_FOREACH(pp, &pn->childq, child) { |
if (nc != NULL && nc->node == NODE_TEXT) { |
if (pp->node == NODE_TEXT) |
macro_argline(f, "Ft", nc->b); |
ftype = pp; |
pnode_unlink(nc); |
else if (pp->node == NODE_FUNCTION) |
|
func = pp; |
|
} |
} |
if (ftype != NULL) |
macro_nodeline(f, "Fo", n, ARG_SINGLE); |
macro_argline(p, "Ft", ftype->b); |
pnode_unlinksub(n); |
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); |
|
} |
} |
|
|
/* |
/* |
Line 306 pnode_printfuncprototype(struct format *p, struct pnod |
|
Line 280 pnode_printfuncprototype(struct format *p, struct pnod |
|
if (fdef->node == NODE_FUNCDEF) |
if (fdef->node == NODE_FUNCDEF) |
break; |
break; |
|
|
if (fdef != NULL) |
if (fdef != NULL) { |
pnode_printfuncdef(p, fdef); |
pnode_printfuncdef(p, fdef); |
else |
pnode_unlink(fdef); |
|
} else |
macro_line(p, "Fo UNKNOWN"); |
macro_line(p, "Fo UNKNOWN"); |
|
|
TAILQ_FOREACH(pp, &pn->childq, child) |
TAILQ_FOREACH(pp, &pn->childq, child) |
if (pp->node == NODE_PARAMDEF) |
macro_nodeline(p, "Fa", pp, ARG_SINGLE); |
macro_nodeline(p, "Fa", pp, ARG_SINGLE); |
|
|
|
macro_line(p, "Fc"); |
macro_line(p, "Fc"); |
pnode_unlinksub(pn); |
pnode_unlinksub(pn); |
Line 407 pnode_printgroup(struct format *p, struct pnode *pn) |
|
Line 381 pnode_printgroup(struct format *p, struct pnode *pn) |
|
} |
} |
|
|
static void |
static void |
|
pnode_printauthor(struct format *f, struct pnode *n) |
|
{ |
|
struct pnode *nc, *ncn; |
|
int have_contrib, have_name; |
|
|
|
/* |
|
* Print <contrib> children up front, before the .An scope, |
|
* and figure out whether we a name of a person. |
|
*/ |
|
|
|
have_contrib = have_name = 0; |
|
TAILQ_FOREACH_SAFE(nc, &n->childq, child, ncn) { |
|
switch (nc->node) { |
|
case NODE_CONTRIB: |
|
if (have_contrib) |
|
print_text(f, ",", 0); |
|
print_textnode(f, nc); |
|
pnode_unlink(nc); |
|
have_contrib = 1; |
|
break; |
|
case NODE_PERSONNAME: |
|
have_name = 1; |
|
break; |
|
default: |
|
break; |
|
} |
|
} |
|
if (TAILQ_FIRST(&n->childq) == NULL) |
|
return; |
|
|
|
if (have_contrib) |
|
print_text(f, ":", 0); |
|
|
|
/* |
|
* If we have a name, print it in the .An scope and leave |
|
* all other content for child handlers, to print after the |
|
* scope. Otherwise, print everything in the scope. |
|
*/ |
|
|
|
macro_open(f, "An"); |
|
TAILQ_FOREACH_SAFE(nc, &n->childq, child, ncn) { |
|
if (nc->node == NODE_PERSONNAME || have_name == 0) { |
|
macro_addnode(f, nc, ARG_SPACE); |
|
pnode_unlink(nc); |
|
} |
|
} |
|
|
|
/* |
|
* If there is an email address, |
|
* print it on the same macro line. |
|
*/ |
|
|
|
if ((nc = pnode_findfirst(n, NODE_EMAIL)) != NULL) { |
|
pnode_print(f, nc); |
|
pnode_unlink(nc); |
|
} |
|
|
|
/* |
|
* If there are still unprinted children, end the scope |
|
* with a comma. Otherwise, leave the scope open in case |
|
* a text node follows that starts with closing punctuation. |
|
*/ |
|
|
|
if (TAILQ_FIRST(&n->childq) != NULL) { |
|
macro_addarg(f, ",", ARG_SPACE); |
|
macro_close(f); |
|
} |
|
} |
|
|
|
static void |
pnode_printprologue(struct format *p, struct ptree *tree) |
pnode_printprologue(struct format *p, struct ptree *tree) |
{ |
{ |
struct pnode *refmeta; |
struct pnode *refmeta; |
Line 428 pnode_printprologue(struct format *p, struct ptree *tr |
|
Line 472 pnode_printprologue(struct format *p, struct ptree *tr |
|
|
|
if (tree->flags & TREE_EQN) { |
if (tree->flags & TREE_EQN) { |
macro_line(p, "EQ"); |
macro_line(p, "EQ"); |
print_text(p, "delim $$"); |
print_text(p, "delim $$", 0); |
macro_line(p, "EN"); |
macro_line(p, "EN"); |
} |
} |
} |
} |
Line 488 pnode_printrow(struct format *p, struct pnode *pn) |
|
Line 532 pnode_printrow(struct format *p, struct pnode *pn) |
|
} |
} |
|
|
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"); |
pnode_print(f, nc); |
pnode_printrow(p, pp); |
pnode_unlink(nc); |
} |
} |
macro_line(p, "El"); |
macro_line(f, "El"); |
pnode_unlinksub(pn); |
pnode_unlinksub(n); |
} |
} |
|
|
static void |
static void |
|
pnode_printtgroup2(struct format *f, struct pnode *n) |
|
{ |
|
struct pnode *nr, *ne; |
|
|
|
macro_line(f, "Bl -tag -width Ds"); |
|
while ((nr = pnode_findfirst(n, NODE_ROW)) != NULL) { |
|
if ((ne = pnode_findfirst(n, NODE_ENTRY)) == NULL) |
|
break; |
|
macro_open(f, "It"); |
|
pnode_print(f, ne); |
|
macro_close(f); |
|
pnode_unlink(ne); |
|
pnode_print(f, nr); |
|
pnode_unlink(nr); |
|
} |
|
macro_line(f, "El"); |
|
pnode_unlinksub(n); |
|
} |
|
|
|
static void |
|
pnode_printtgroup(struct format *f, struct pnode *n) |
|
{ |
|
struct pnode *nc; |
|
|
|
switch (atoi(pnode_getattr_raw(n, ATTRKEY_COLS, "0"))) { |
|
case 1: |
|
pnode_printtgroup1(f, n); |
|
return; |
|
case 2: |
|
pnode_printtgroup2(f, n); |
|
return; |
|
default: |
|
break; |
|
} |
|
|
|
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"); |
|
pnode_unlinksub(n); |
|
} |
|
|
|
static void |
pnode_printlist(struct format *p, struct pnode *pn) |
pnode_printlist(struct format *p, struct pnode *pn) |
{ |
{ |
struct pnode *pp; |
struct pnode *pp; |
Line 527 pnode_printvariablelist(struct format *p, struct pnode |
|
Line 616 pnode_printvariablelist(struct format *p, struct pnode |
|
macro_line(p, "Bl -tag -width Ds"); |
macro_line(p, "Bl -tag -width Ds"); |
TAILQ_FOREACH(pp, &pn->childq, child) { |
TAILQ_FOREACH(pp, &pn->childq, child) { |
if (pp->node == NODE_VARLISTENTRY) |
if (pp->node == NODE_VARLISTENTRY) |
pnode_print(p, pp); |
pnode_printvarlistentry(p, pp); |
else |
else |
macro_nodeline(p, "It", pp, 0); |
macro_nodeline(p, "It", pp, 0); |
} |
} |
Line 559 pnode_print(struct format *p, struct pnode *pn) |
|
Line 648 pnode_print(struct format *p, struct pnode *pn) |
|
case NODE_APPLICATION: |
case NODE_APPLICATION: |
macro_open(p, "Nm"); |
macro_open(p, "Nm"); |
break; |
break; |
case NODE_ANCHOR: |
|
/* Don't print anything! */ |
|
return; |
|
case NODE_ARG: |
case NODE_ARG: |
pnode_printarg(p, pn); |
pnode_printarg(p, pn); |
break; |
break; |
case NODE_AUTHOR: |
case NODE_AUTHOR: |
macro_open(p, "An"); |
pnode_printauthor(p, pn); |
break; |
break; |
case NODE_AUTHORGROUP: |
case NODE_AUTHORGROUP: |
macro_line(p, "An -split"); |
macro_line(p, "An -split"); |
Line 590 pnode_print(struct format *p, struct pnode *pn) |
|
Line 676 pnode_print(struct format *p, struct pnode *pn) |
|
macro_open(p, "Dv"); |
macro_open(p, "Dv"); |
break; |
break; |
case NODE_EDITOR: |
case NODE_EDITOR: |
print_text(p, "editor:"); |
print_text(p, "editor:", ARG_SPACE); |
macro_open(p, "An"); |
macro_open(p, "An"); |
break; |
break; |
case NODE_EMAIL: |
case NODE_EMAIL: |
Line 603 pnode_print(struct format *p, struct pnode *pn) |
|
Line 689 pnode_print(struct format *p, struct pnode *pn) |
|
case NODE_ENVAR: |
case NODE_ENVAR: |
macro_open(p, "Ev"); |
macro_open(p, "Ev"); |
break; |
break; |
|
case NODE_ESCAPE: |
|
if (p->linestate == LINE_NEW) |
|
p->linestate = LINE_TEXT; |
|
else |
|
putchar(' '); |
|
fputs(pn->b, stdout); |
|
break; |
case NODE_FILENAME: |
case NODE_FILENAME: |
macro_open(p, "Pa"); |
macro_open(p, "Pa"); |
break; |
break; |
Line 615 pnode_print(struct format *p, struct pnode *pn) |
|
Line 708 pnode_print(struct format *p, struct pnode *pn) |
|
case NODE_FUNCSYNOPSISINFO: |
case NODE_FUNCSYNOPSISINFO: |
macro_open(p, "Fd"); |
macro_open(p, "Fd"); |
break; |
break; |
case NODE_INDEXTERM: |
|
return; |
|
case NODE_INFORMALEQUATION: |
case NODE_INFORMALEQUATION: |
macro_line(p, "EQ"); |
macro_line(p, "EQ"); |
break; |
break; |
Line 728 pnode_print(struct format *p, struct pnode *pn) |
|
Line 819 pnode_print(struct format *p, struct pnode *pn) |
|
case NODE_STRUCTNAME: |
case NODE_STRUCTNAME: |
macro_open(p, "Vt"); |
macro_open(p, "Vt"); |
break; |
break; |
case NODE_TABLE: |
|
case NODE_INFORMALTABLE: |
|
pnode_printtable(p, pn); |
|
break; |
|
case NODE_TEXT: |
case NODE_TEXT: |
if (pn->bsz == 0) { |
if (pn->bsz == 0) { |
assert(pn->real != pn->b); |
assert(pn->real != pn->b); |
Line 775 pnode_print(struct format *p, struct pnode *pn) |
|
Line 862 pnode_print(struct format *p, struct pnode *pn) |
|
putchar('e'); |
putchar('e'); |
} |
} |
break; |
break; |
|
case NODE_TGROUP: |
|
pnode_printtgroup(p, pn); |
|
break; |
case NODE_TITLE: |
case NODE_TITLE: |
if (pn->parent->node == NODE_BOOKINFO) |
if (pn->parent->node == NODE_BOOKINFO) { |
macro_open(p, "Nd"); |
macro_open(p, "Nd"); |
|
break; |
|
} |
|
pnode_printpara(p, pn); |
|
macro_nodeline(p, "Sy", pn, 0); |
|
pnode_unlinksub(pn); |
break; |
break; |
case NODE_TYPE: |
case NODE_TYPE: |
macro_open(p, "Vt"); |
macro_open(p, "Vt"); |
Line 787 pnode_print(struct format *p, struct pnode *pn) |
|
Line 882 pnode_print(struct format *p, struct pnode *pn) |
|
break; |
break; |
case NODE_VARIABLELIST: |
case NODE_VARIABLELIST: |
pnode_printvariablelist(p, pn); |
pnode_printvariablelist(p, pn); |
break; |
|
case NODE_VARLISTENTRY: |
|
pnode_printvarlistentry(p, pn); |
|
break; |
break; |
case NODE_VARNAME: |
case NODE_VARNAME: |
macro_open(p, "Va"); |
macro_open(p, "Va"); |