version 1.74, 2019/03/26 18:32:07 |
version 1.95, 2019/04/07 15:06:56 |
|
|
#include <stdlib.h> |
#include <stdlib.h> |
|
|
#include "node.h" |
#include "node.h" |
|
#include "macro.h" |
#include "format.h" |
#include "format.h" |
|
|
/* |
/* |
* The implementation of the mdoc(7) formatter. |
* The implementation of the mdoc(7) formatter. |
*/ |
*/ |
|
|
enum linestate { |
|
LINE_NEW = 0, |
|
LINE_TEXT, |
|
LINE_MACRO |
|
}; |
|
|
|
struct format { |
|
int level; /* Header level, starting at 1. */ |
|
enum linestate linestate; |
|
}; |
|
|
|
static void pnode_print(struct format *, struct pnode *); |
static void pnode_print(struct format *, struct pnode *); |
|
|
|
|
static void |
static void |
macro_open(struct format *p, const char *name) |
pnode_printtext(struct format *f, struct pnode *n) |
{ |
{ |
switch (p->linestate) { |
struct pnode *nn; |
case LINE_TEXT: |
char *cp; |
putchar('\n'); |
char last; |
/* FALLTHROUGH */ |
|
case LINE_NEW: |
if (n->bsz == 0) { |
putchar('.'); |
assert(n->real < n->b); |
p->linestate = LINE_MACRO; |
return; |
break; |
|
case LINE_MACRO: |
|
putchar(' '); |
|
break; |
|
} |
} |
fputs(name, stdout); |
|
} |
|
|
|
static void |
/* |
macro_close(struct format *p) |
* Text preceding a macro without intervening whitespace |
{ |
* requires a .Pf macro. |
assert(p->linestate == LINE_MACRO); |
* Set the spacing flag to avoid a redundant .Ns macro. |
putchar('\n'); |
*/ |
p->linestate = LINE_NEW; |
|
} |
|
|
|
static void |
if (f->linestate != LINE_MACRO && |
macro_line(struct format *p, const char *name) |
(nn = TAILQ_NEXT(n, child)) != NULL && nn->spc == 0 && |
{ |
(nn->node != NODE_TEXT && nn->node != NODE_ESCAPE)) { |
macro_open(p, name); |
macro_open(f, "Pf"); |
macro_close(p); |
nn->spc = 1; |
} |
|
|
|
#define ARG_SPACE 1 /* Insert whitespace before this argument. */ |
|
#define ARG_SINGLE 2 /* Quote argument if it contains whitespace. */ |
|
#define ARG_QUOTED 4 /* We are already in a quoted argument. */ |
|
#define ARG_UPPER 8 /* Covert argument to upper case. */ |
|
/* |
|
* Print an argument string on a macro line, collapsing whitespace. |
|
*/ |
|
static void |
|
macro_addarg(struct format *p, const char *arg, int flags) |
|
{ |
|
const char *cp; |
|
|
|
assert(p->linestate == LINE_MACRO); |
|
|
|
/* Quote if requested and necessary. */ |
|
|
|
if ((flags & (ARG_SINGLE | ARG_QUOTED)) == ARG_SINGLE) { |
|
for (cp = arg; *cp != '\0'; cp++) |
|
if (isspace((unsigned char)*cp)) |
|
break; |
|
if (*cp != '\0') { |
|
if (flags & ARG_SPACE) { |
|
putchar(' '); |
|
flags &= ~ ARG_SPACE; |
|
} |
|
putchar('"'); |
|
flags = ARG_QUOTED; |
|
} |
|
} |
} |
|
|
for (cp = arg; *cp != '\0'; cp++) { |
if (f->linestate == LINE_NEW) { |
|
last = '\n'; |
/* Collapse whitespace. */ |
f->linestate = LINE_TEXT; |
|
} else { |
if (isspace((unsigned char)*cp)) { |
last = ' '; |
flags |= ARG_SPACE; |
if (n->spc || f->linestate == LINE_MACRO) |
continue; |
|
} else if (flags & ARG_SPACE) { |
|
putchar(' '); |
putchar(' '); |
flags &= ~ ARG_SPACE; |
|
} |
|
|
|
/* Escape us if we look like a macro. */ |
|
|
|
if ((flags & ARG_QUOTED) == 0 && |
|
(cp == arg || isspace((unsigned char)cp[-1])) && |
|
isupper((unsigned char)cp[0]) && |
|
islower((unsigned char)cp[1]) && |
|
(cp[2] == '\0' || cp[2] == ' ' || |
|
(islower((unsigned char)cp[2]) && |
|
(cp[3] == '\0' || cp[3] == ' ')))) |
|
fputs("\\&", stdout); |
|
|
|
if (*cp == '"') |
|
fputs("\\(dq", stdout); |
|
else if (flags & ARG_UPPER) |
|
putchar(toupper((unsigned char)*cp)); |
|
else |
|
putchar(*cp); |
|
if (*cp == '\\') |
|
putchar('e'); |
|
} |
} |
} |
|
|
|
static void |
if (n->node == NODE_ESCAPE) { |
macro_argline(struct format *p, const char *name, const char *arg) |
fputs(n->b, stdout); |
{ |
|
macro_open(p, name); |
|
macro_addarg(p, arg, ARG_SPACE); |
|
macro_close(p); |
|
} |
|
|
|
/* |
|
* Recursively append text from the children of a node to a macro line. |
|
*/ |
|
static void |
|
macro_addnode(struct format *p, struct pnode *pn, int flags) |
|
{ |
|
int quote_now; |
|
|
|
assert(p->linestate == LINE_MACRO); |
|
|
|
/* |
|
* If the only child is a text node, just add that text, |
|
* letting macro_addarg() decide about quoting. |
|
*/ |
|
|
|
pn = TAILQ_FIRST(&pn->childq); |
|
if (pn != NULL && pn->node == NODE_TEXT && |
|
TAILQ_NEXT(pn, child) == NULL) { |
|
macro_addarg(p, pn->b, flags); |
|
return; |
return; |
} |
} |
|
|
/* |
/* |
* If we want the argument quoted and are not already |
* Remove the prefix '-' from <option> elements |
* in a quoted context, quote now. |
* because the arguments of .Fl macros do not need it. |
*/ |
*/ |
|
|
quote_now = 0; |
cp = n->b; |
if (flags & ARG_SINGLE) { |
if (n->parent != NULL && n->parent->node == NODE_OPTION && *cp == '-') |
if ((flags & ARG_QUOTED) == 0) { |
cp++; |
if (flags & ARG_SPACE) { |
|
putchar(' '); |
|
flags &= ~ARG_SPACE; |
|
} |
|
putchar('"'); |
|
flags |= ARG_QUOTED; |
|
quote_now = 1; |
|
} |
|
flags &= ~ARG_SINGLE; |
|
} |
|
|
|
/* |
/* |
* Iterate to child and sibling nodes, |
* Print the text, skipping whitespace on new lines, |
* inserting whitespace between nodes. |
* escaping control characters on new lines, |
|
* and escaping backslashes. |
*/ |
*/ |
|
|
while (pn != NULL) { |
for (; *cp != '\0'; cp++) { |
if (pn->node == NODE_TEXT) |
if (last == '\n') { |
macro_addarg(p, pn->b, flags); |
if (isspace((unsigned char)*cp)) |
else |
continue; |
macro_addnode(p, pn, flags); |
if (*cp == '\'' || *cp == '.') |
pn = TAILQ_NEXT(pn, child); |
fputs("\\&", stdout); |
flags |= ARG_SPACE; |
} |
|
putchar(last = *cp); |
|
if (last == '\\') |
|
putchar('e'); |
} |
} |
if (quote_now) |
|
putchar('"'); |
|
} |
} |
|
|
static void |
static void |
macro_nodeline(struct format *p, const char *name, struct pnode *pn, int flags) |
|
{ |
|
macro_open(p, name); |
|
macro_addnode(p, pn, ARG_SPACE | flags); |
|
macro_close(p); |
|
} |
|
|
|
/* |
|
* If the next node is a text node starting with closing punctuation, |
|
* emit the closing punctuation as a trailing macro argument. |
|
*/ |
|
static void |
|
macro_closepunct(struct format *p, struct pnode *pn) |
|
{ |
|
if ((pn = TAILQ_NEXT(pn, child)) != NULL && |
|
pn->node == NODE_TEXT && pn->bsz > 0 && |
|
(pn->b[0] == ',' || pn->b[0] == '.') && |
|
(pn->bsz == 1 || isspace((unsigned char)pn->b[1]))) { |
|
putchar(' '); |
|
putchar(pn->b[0]); |
|
pn->b++; |
|
pn->bsz--; |
|
} |
|
macro_close(p); |
|
} |
|
|
|
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 346 pnode_printrefsect(struct format *p, struct pnode *pn) |
|
Line 196 pnode_printrefsect(struct format *p, struct pnode *pn) |
|
|
|
switch (level) { |
switch (level) { |
case 1: |
case 1: |
|
macro_close(p); |
macro_open(p, "Sh"); |
macro_open(p, "Sh"); |
break; |
break; |
case 2: |
case 2: |
|
macro_close(p); |
macro_open(p, "Ss"); |
macro_open(p, "Ss"); |
break; |
break; |
default: |
default: |
Line 389 pnode_printciterefentry(struct format *p, struct pnode |
|
Line 241 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 405 pnode_printrefmeta(struct format *p, struct pnode *pn) |
|
Line 256 pnode_printrefmeta(struct format *p, struct pnode *pn) |
|
else if (pp->node == NODE_REFENTRYTITLE) |
else if (pp->node == NODE_REFENTRYTITLE) |
title = pp; |
title = pp; |
} |
} |
|
macro_close(p); |
macro_open(p, "Dt"); |
macro_open(p, "Dt"); |
if (title == NULL) |
if (title == NULL) |
macro_addarg(p, "UNKNOWN", ARG_SPACE); |
macro_addarg(p, "UNKNOWN", ARG_SPACE); |
Line 419 pnode_printrefmeta(struct format *p, struct pnode *pn) |
|
Line 271 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 506 pnode_printfuncprototype(struct format *p, struct pnod |
|
Line 350 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 607 pnode_printgroup(struct format *p, struct pnode *pn) |
|
Line 451 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 628 pnode_printprologue(struct format *p, struct ptree *tr |
|
Line 542 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 643 pnode_printvarlistentry(struct format *p, struct pnode |
|
Line 557 pnode_printvarlistentry(struct format *p, struct pnode |
|
struct pnode *pp; |
struct pnode *pp; |
int first = 1; |
int first = 1; |
|
|
|
macro_close(p); |
macro_open(p, "It"); |
macro_open(p, "It"); |
TAILQ_FOREACH(pp, &pn->childq, child) { |
TAILQ_FOREACH(pp, &pn->childq, child) { |
if (pp->node != NODE_TERM) |
if (pp->node != NODE_TERM) |
Line 688 pnode_printrow(struct format *p, struct pnode *pn) |
|
Line 603 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_close(f); |
|
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 727 pnode_printvariablelist(struct format *p, struct pnode |
|
Line 688 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 746 pnode_print(struct format *p, struct pnode *pn) |
|
Line 707 pnode_print(struct format *p, struct pnode *pn) |
|
{ |
{ |
struct pnode *pp; |
struct pnode *pp; |
const char *ccp; |
const char *ccp; |
char *cp; |
|
int last; |
|
enum linestate sv; |
enum linestate sv; |
|
|
if (pn == NULL) |
if (pn == NULL) |
return; |
return; |
|
|
|
p->spc = pn->spc; |
sv = p->linestate; |
sv = p->linestate; |
|
|
switch (pn->node) { |
switch (pn->node) { |
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 780 pnode_print(struct format *p, struct pnode *pn) |
|
Line 737 pnode_print(struct format *p, struct pnode *pn) |
|
case NODE_CITETITLE: |
case NODE_CITETITLE: |
macro_open(p, "%T"); |
macro_open(p, "%T"); |
break; |
break; |
case NODE_CODE: |
|
macro_open(p, "Li"); |
|
break; |
|
case NODE_COMMAND: |
case NODE_COMMAND: |
macro_open(p, "Nm"); |
macro_open(p, "Nm"); |
break; |
break; |
Line 790 pnode_print(struct format *p, struct pnode *pn) |
|
Line 744 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); |
|
sv = LINE_TEXT; |
macro_open(p, "An"); |
macro_open(p, "An"); |
break; |
break; |
case NODE_EMAIL: |
case NODE_EMAIL: |
Line 803 pnode_print(struct format *p, struct pnode *pn) |
|
Line 758 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_ERRORNAME: |
|
macro_open(p, "Er"); |
|
break; |
case NODE_FILENAME: |
case NODE_FILENAME: |
macro_open(p, "Pa"); |
macro_open(p, "Pa"); |
break; |
break; |
Line 815 pnode_print(struct format *p, struct pnode *pn) |
|
Line 773 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 844 pnode_print(struct format *p, struct pnode *pn) |
|
Line 800 pnode_print(struct format *p, struct pnode *pn) |
|
macro_argline(p, "Sx", ccp); |
macro_argline(p, "Sx", ccp); |
return; |
return; |
case NODE_LITERAL: |
case NODE_LITERAL: |
macro_open(p, "Li"); |
macro_open(p, "Ql"); |
break; |
break; |
case NODE_LITERALLAYOUT: |
case NODE_LITERALLAYOUT: |
|
macro_close(p); |
macro_argline(p, "Bd", pnode_getattr(pn, ATTRKEY_CLASS) == |
macro_argline(p, "Bd", pnode_getattr(pn, ATTRKEY_CLASS) == |
ATTRVAL_MONOSPACED ? "-literal" : "-unfilled"); |
ATTRVAL_MONOSPACED ? "-literal" : "-unfilled"); |
break; |
break; |
Line 875 pnode_print(struct format *p, struct pnode *pn) |
|
Line 832 pnode_print(struct format *p, struct pnode *pn) |
|
case NODE_PARA: |
case NODE_PARA: |
pnode_printpara(p, pn); |
pnode_printpara(p, pn); |
break; |
break; |
|
case NODE_PARAMDEF: |
case NODE_PARAMETER: |
case NODE_PARAMETER: |
macro_nodeline(p, "Fa", pn, ARG_SINGLE); |
macro_nodeline(p, "Fa", pn, ARG_SINGLE); |
pnode_unlinksub(pn); |
pnode_unlinksub(pn); |
Line 884 pnode_print(struct format *p, struct pnode *pn) |
|
Line 842 pnode_print(struct format *p, struct pnode *pn) |
|
break; |
break; |
case NODE_PROGRAMLISTING: |
case NODE_PROGRAMLISTING: |
case NODE_SCREEN: |
case NODE_SCREEN: |
|
case NODE_SYNOPSIS: |
macro_line(p, "Bd -literal"); |
macro_line(p, "Bd -literal"); |
break; |
break; |
case NODE_REFENTRYINFO: |
case NODE_REFENTRYINFO: |
/* Suppress. */ |
/* Suppress. */ |
pnode_unlinksub(pn); |
pnode_unlinksub(pn); |
break; |
break; |
case NODE_REFMETA: |
|
abort(); |
|
break; |
|
case NODE_REFNAME: |
case NODE_REFNAME: |
/* Suppress non-text children... */ |
/* Suppress non-text children... */ |
macro_open(p, "Nm"); |
macro_open(p, "Nm"); |
Line 923 pnode_print(struct format *p, struct pnode *pn) |
|
Line 879 pnode_print(struct format *p, struct pnode *pn) |
|
macro_line(p, "br"); |
macro_line(p, "br"); |
break; |
break; |
case NODE_SGMLTAG: |
case NODE_SGMLTAG: |
macro_open(p, "Li"); |
macro_open(p, "Ic"); |
break; |
break; |
case NODE_STRUCTNAME: |
case NODE_TEXT: |
macro_open(p, "Vt"); |
case NODE_ESCAPE: |
|
pnode_printtext(p, pn); |
break; |
break; |
case NODE_TABLE: |
case NODE_TGROUP: |
case NODE_INFORMALTABLE: |
pnode_printtgroup(p, pn); |
pnode_printtable(p, pn); |
|
break; |
break; |
case NODE_TEXT: |
case NODE_TITLE: |
if (pn->bsz == 0) { |
if (pn->parent->node == NODE_BOOKINFO) { |
assert(pn->real != pn->b); |
macro_open(p, "Nd"); |
break; |
break; |
} |
} |
if (p->linestate == LINE_NEW) |
pnode_printpara(p, pn); |
p->linestate = LINE_TEXT; |
macro_nodeline(p, "Sy", pn, 0); |
else |
pnode_unlinksub(pn); |
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_TITLE: |
|
if (pn->parent->node == NODE_BOOKINFO) |
|
macro_open(p, "Nd"); |
|
break; |
|
case NODE_TYPE: |
case NODE_TYPE: |
macro_open(p, "Vt"); |
macro_open(p, "Vt"); |
break; |
break; |
case NODE_USERINPUT: |
|
macro_open(p, "Li"); |
|
break; |
|
case NODE_VARIABLELIST: |
case NODE_VARIABLELIST: |
pnode_printvariablelist(p, pn); |
pnode_printvariablelist(p, pn); |
break; |
break; |
case NODE_VARLISTENTRY: |
|
pnode_printvarlistentry(p, pn); |
|
break; |
|
case NODE_VARNAME: |
case NODE_VARNAME: |
macro_open(p, "Va"); |
macro_open(p, "Va"); |
break; |
break; |
Line 1009 pnode_print(struct format *p, struct pnode *pn) |
|
Line 921 pnode_print(struct format *p, struct pnode *pn) |
|
fputs("$ ", stdout); |
fputs("$ ", stdout); |
p->linestate = sv; |
p->linestate = sv; |
break; |
break; |
|
case NODE_MEMBER: |
|
if ((pp = TAILQ_NEXT(pn, child)) != NULL && |
|
pp->node != NODE_MEMBER) |
|
pp = NULL; |
|
switch (p->linestate) { |
|
case LINE_TEXT: |
|
if (pp != NULL) |
|
print_text(p, ",", 0); |
|
break; |
|
case LINE_MACRO: |
|
if (pp != NULL) |
|
macro_addarg(p, ",", ARG_SPACE); |
|
macro_close(p); |
|
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: |
Line 1022 pnode_print(struct format *p, struct pnode *pn) |
|
Line 952 pnode_print(struct format *p, struct pnode *pn) |
|
case NODE_AUTHOR: |
case NODE_AUTHOR: |
case NODE_CITEREFENTRY: |
case NODE_CITEREFENTRY: |
case NODE_CITETITLE: |
case NODE_CITETITLE: |
case NODE_CODE: |
|
case NODE_COMMAND: |
case NODE_COMMAND: |
case NODE_CONSTANT: |
case NODE_CONSTANT: |
case NODE_EDITOR: |
case NODE_EDITOR: |
case NODE_EMAIL: |
case NODE_EMAIL: |
case NODE_EMPHASIS: |
case NODE_EMPHASIS: |
case NODE_ENVAR: |
case NODE_ENVAR: |
|
case NODE_ERRORNAME: |
case NODE_FILENAME: |
case NODE_FILENAME: |
case NODE_FIRSTTERM: |
case NODE_FIRSTTERM: |
case NODE_FUNCTION: |
case NODE_FUNCTION: |
Line 1040 pnode_print(struct format *p, struct pnode *pn) |
|
Line 970 pnode_print(struct format *p, struct pnode *pn) |
|
case NODE_REPLACEABLE: |
case NODE_REPLACEABLE: |
case NODE_REFPURPOSE: |
case NODE_REFPURPOSE: |
case NODE_SGMLTAG: |
case NODE_SGMLTAG: |
case NODE_STRUCTNAME: |
|
case NODE_TYPE: |
case NODE_TYPE: |
case NODE_USERINPUT: |
|
case NODE_VARNAME: |
case NODE_VARNAME: |
if (sv != LINE_MACRO && p->linestate == LINE_MACRO) |
if (sv != LINE_MACRO && p->linestate == LINE_MACRO && |
|
(pn->parent == NULL || pn->parent->node != NODE_MEMBER)) |
macro_closepunct(p, pn); |
macro_closepunct(p, pn); |
break; |
break; |
case NODE_QUOTE: |
case NODE_QUOTE: |
Line 1080 pnode_print(struct format *p, struct pnode *pn) |
|
Line 1009 pnode_print(struct format *p, struct pnode *pn) |
|
case NODE_LITERALLAYOUT: |
case NODE_LITERALLAYOUT: |
case NODE_PROGRAMLISTING: |
case NODE_PROGRAMLISTING: |
case NODE_SCREEN: |
case NODE_SCREEN: |
|
case NODE_SYNOPSIS: |
macro_line(p, "Ed"); |
macro_line(p, "Ed"); |
break; |
break; |
case NODE_TITLE: |
case NODE_TITLE: |