version 1.105, 2019/04/12 04:17:11 |
version 1.113, 2019/04/12 16:40:53 |
Line 38 pnode_printtext(struct format *f, struct pnode *n) |
|
Line 38 pnode_printtext(struct format *f, struct pnode *n) |
|
struct pnode *nn; |
struct pnode *nn; |
char *cp; |
char *cp; |
int accept_arg; |
int accept_arg; |
char last; |
|
|
|
cp = n->b; |
cp = n->b; |
accept_arg = f->flags & FMT_ARG; |
accept_arg = f->flags & FMT_ARG; |
if (f->linestate == LINE_MACRO && n->spc == 0 && !accept_arg) { |
if (f->linestate == LINE_MACRO && !n->spc && !accept_arg) { |
for (;;) { |
for (;;) { |
if (*cp == '\0') |
if (*cp == '\0') |
return; |
return; |
Line 71 pnode_printtext(struct format *f, struct pnode *n) |
|
Line 70 pnode_printtext(struct format *f, struct pnode *n) |
|
*/ |
*/ |
|
|
if (f->linestate != LINE_MACRO && |
if (f->linestate != LINE_MACRO && |
(nn = TAILQ_NEXT(n, child)) != NULL && nn->spc == 0 && |
(nn = TAILQ_NEXT(n, child)) != NULL && nn->spc == 0) { |
(nn->node != NODE_TEXT && nn->node != NODE_ESCAPE)) { |
switch (pnode_class(nn->node)) { |
macro_open(f, "Pf"); |
case CLASS_LINE: |
accept_arg = 1; |
case CLASS_ENCL: |
f->flags |= FMT_CHILD; |
macro_open(f, "Pf"); |
nn->spc = 1; |
accept_arg = 1; |
|
f->flags |= FMT_CHILD; |
|
nn->spc = 1; |
|
break; |
|
default: |
|
break; |
|
} |
} |
} |
|
|
switch (f->linestate) { |
switch (f->linestate) { |
|
case LINE_NEW: |
|
break; |
case LINE_TEXT: |
case LINE_TEXT: |
if (n->spc) { |
if (n->spc) { |
if (n->node == NODE_TEXT) { |
if (n->node == NODE_TEXT) |
putchar('\n'); |
macro_close(f); |
last = '\n'; |
else |
break; |
putchar(' '); |
} |
|
putchar(' '); |
|
} |
} |
last = ' '; |
|
break; |
break; |
case LINE_MACRO: |
case LINE_MACRO: |
if (accept_arg) { |
if (accept_arg) |
putchar(' '); |
putchar(' '); |
last = ' '; |
else |
break; |
macro_close(f); |
} |
|
macro_close(f); |
|
/* FALLTHROUGH */ |
|
case LINE_NEW: |
|
f->linestate = LINE_TEXT; |
|
last = '\n'; |
|
break; |
break; |
} |
} |
|
|
if (n->node == NODE_ESCAPE) { |
if (n->node == NODE_ESCAPE) { |
fputs(n->b, stdout); |
fputs(n->b, stdout); |
|
if (f->linestate == LINE_NEW) |
|
f->linestate = LINE_TEXT; |
return; |
return; |
} |
} |
|
|
Line 118 pnode_printtext(struct format *f, struct pnode *n) |
|
Line 118 pnode_printtext(struct format *f, struct pnode *n) |
|
if (n->parent != NULL && n->parent->node == NODE_OPTION && *cp == '-') |
if (n->parent != NULL && n->parent->node == NODE_OPTION && *cp == '-') |
cp++; |
cp++; |
|
|
/* |
if (f->linestate == LINE_MACRO) |
* Print the text, skipping whitespace on new lines, |
macro_addarg(f, cp, 0); |
* escaping control characters on new lines, |
else |
* and escaping backslashes. |
print_text(f, cp, 0); |
*/ |
|
|
|
for (; *cp != '\0'; cp++) { |
|
if (last == '\n') { |
|
if (isspace((unsigned char)*cp)) |
|
continue; |
|
if (*cp == '\'' || *cp == '.') |
|
fputs("\\&", stdout); |
|
} |
|
putchar(last = *cp); |
|
if (last == '\\') |
|
putchar('e'); |
|
} |
|
} |
} |
|
|
static void |
static void |
Line 169 pnode_printpara(struct format *f, struct pnode *n) |
|
Line 156 pnode_printpara(struct format *f, struct pnode *n) |
|
macro_line(f, "Pp"); |
macro_line(f, "Pp"); |
} |
} |
|
|
|
static void |
|
pnode_printrefnamediv(struct format *f, struct pnode *n) |
|
{ |
|
struct pnode *nc, *nn; |
|
int comma; |
|
|
|
macro_line(f, "Sh NAME"); |
|
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. |
*/ |
*/ |
Line 592 pnode_printauthor(struct format *f, struct pnode *n) |
|
Line 600 pnode_printauthor(struct format *f, struct pnode *n) |
|
static void |
static void |
pnode_printlink(struct format *f, struct pnode *n) |
pnode_printlink(struct format *f, struct pnode *n) |
{ |
{ |
|
struct pnode *nc; |
const char *uri, *text; |
const char *uri, *text; |
|
|
uri = pnode_getattr_raw(n, ATTRKEY_LINKEND, NULL); |
uri = pnode_getattr_raw(n, ATTRKEY_LINKEND, NULL); |
if (uri != NULL) { |
if (uri != NULL) { |
if (TAILQ_FIRST(&n->childq) != NULL) { |
if (TAILQ_FIRST(&n->childq) != NULL) { |
print_textnode(f, n); |
TAILQ_FOREACH(nc, &n->childq, child) |
|
pnode_print(f, nc); |
text = ""; |
text = ""; |
} else { |
} else if ((text = pnode_getattr_raw(n, |
text = pnode_getattr_raw(n, ATTRKEY_ENDTERM, NULL); |
ATTRKEY_ENDTERM, NULL)) != NULL) { |
if (text != NULL) |
if (f->linestate == LINE_MACRO && f->flags & FMT_ARG) |
|
macro_addarg(f, text, ARG_SPACE); |
|
else |
print_text(f, text, ARG_SPACE); |
print_text(f, text, ARG_SPACE); |
} |
} |
if (text != NULL) { |
if (text != NULL) { |
macro_open(f, "Pq"); |
if (f->flags & FMT_IMPL) |
f->flags |= FMT_CHILD; |
macro_open(f, "Po"); |
|
else { |
|
macro_open(f, "Pq"); |
|
f->flags |= FMT_CHILD; |
|
} |
} |
} |
macro_open(f, "Sx"); |
macro_open(f, "Sx"); |
macro_addarg(f, uri, ARG_SPACE); |
macro_addarg(f, uri, ARG_SPACE); |
|
if (text != NULL && f->flags & FMT_IMPL) |
|
macro_open(f, "Pc"); |
pnode_unlinksub(n); |
pnode_unlinksub(n); |
return; |
return; |
} |
} |
Line 645 pnode_printprologue(struct format *f, struct ptree *tr |
|
Line 663 pnode_printprologue(struct format *f, struct ptree *tr |
|
} else |
} else |
pnode_printrefmeta(f, refmeta); |
pnode_printrefmeta(f, refmeta); |
macro_line(f, "Os"); |
macro_line(f, "Os"); |
|
|
if (tree->flags & TREE_EQN) { |
|
macro_line(f, "EQ"); |
|
print_text(f, "delim $$", 0); |
|
macro_line(f, "EN"); |
|
} |
|
} |
} |
|
|
/* |
/* |
Line 660 pnode_printprologue(struct format *f, struct ptree *tr |
|
Line 672 pnode_printprologue(struct format *f, struct ptree *tr |
|
static void |
static void |
pnode_printvarlistentry(struct format *f, struct pnode *n) |
pnode_printvarlistentry(struct format *f, struct pnode *n) |
{ |
{ |
struct pnode *nc; |
struct pnode *nc, *nn; |
int first = 1; |
int first = 1; |
|
|
macro_close(f); |
|
macro_open(f, "It"); |
macro_open(f, "It"); |
f->flags |= FMT_IMPL; |
f->flags |= FMT_IMPL; |
TAILQ_FOREACH(nc, &n->childq, child) { |
TAILQ_FOREACH_SAFE(nc, &n->childq, child, nn) { |
if (nc->node != NODE_TERM && nc->node != NODE_GLOSSTERM) |
if (nc->node != NODE_TERM && nc->node != NODE_GLOSSTERM) |
continue; |
continue; |
if ( ! first) |
if (first == 0) { |
macro_addarg(f, ",", 0); |
switch (f->linestate) { |
|
case LINE_NEW: |
|
break; |
|
case LINE_TEXT: |
|
print_text(f, ",", 0); |
|
break; |
|
case LINE_MACRO: |
|
macro_addarg(f, ",", 0); |
|
break; |
|
} |
|
} |
pnode_print(f, nc); |
pnode_print(f, nc); |
|
pnode_unlink(nc); |
first = 0; |
first = 0; |
} |
} |
macro_close(f); |
macro_close(f); |
TAILQ_FOREACH(nc, &n->childq, child) |
while ((nc = TAILQ_FIRST(&n->childq)) != NULL) { |
if (nc->node != NODE_TERM && nc->node != NODE_GLOSSTERM) |
pnode_print(f, nc); |
pnode_print(f, nc); |
pnode_unlink(nc); |
pnode_unlinksub(n); |
} |
|
macro_close(f); |
} |
} |
|
|
static void |
static void |
|
|
pnode_print(struct format *f, struct pnode *n) |
pnode_print(struct format *f, struct pnode *n) |
{ |
{ |
struct pnode *nc, *nn; |
struct pnode *nc, *nn; |
enum linestate sv; |
int was_impl; |
|
|
if (n == NULL) |
if (n == NULL) |
return; |
return; |
|
|
sv = f->linestate; |
was_impl = f->flags & FMT_IMPL; |
if (n->spc) |
if (n->spc) |
f->flags &= ~FMT_NOSPC; |
f->flags &= ~FMT_NOSPC; |
else |
else |
Line 857 pnode_print(struct format *f, struct pnode *n) |
|
Line 880 pnode_print(struct format *f, struct pnode *n) |
|
break; |
break; |
case NODE_EDITOR: |
case NODE_EDITOR: |
print_text(f, "editor:", ARG_SPACE); |
print_text(f, "editor:", ARG_SPACE); |
sv = LINE_TEXT; |
|
macro_open(f, "An"); |
macro_open(f, "An"); |
break; |
break; |
case NODE_EMAIL: |
case NODE_EMAIL: |
Line 887 pnode_print(struct format *f, struct pnode *n) |
|
Line 909 pnode_print(struct format *f, struct pnode *n) |
|
macro_open(f, "Fd"); |
macro_open(f, "Fd"); |
break; |
break; |
case NODE_INFORMALEQUATION: |
case NODE_INFORMALEQUATION: |
|
macro_line(f, "Bd -ragged -offset indent"); |
|
/* FALLTHROUGH */ |
|
case NODE_INLINEEQUATION: |
macro_line(f, "EQ"); |
macro_line(f, "EQ"); |
break; |
break; |
case NODE_INLINEEQUATION: |
|
if (f->linestate == LINE_NEW) |
|
f->linestate = LINE_TEXT; |
|
putchar('$'); |
|
break; |
|
case NODE_ITEMIZEDLIST: |
case NODE_ITEMIZEDLIST: |
pnode_printlist(f, n); |
pnode_printlist(f, n); |
break; |
break; |
Line 907 pnode_print(struct format *f, struct pnode *n) |
|
Line 927 pnode_print(struct format *f, struct pnode *n) |
|
pnode_printlink(f, n); |
pnode_printlink(f, n); |
break; |
break; |
case NODE_LITERAL: |
case NODE_LITERAL: |
macro_open(f, "Ql"); |
if (was_impl) |
|
macro_open(f, "So"); |
|
else { |
|
macro_open(f, "Ql"); |
|
f->flags |= FMT_IMPL; |
|
} |
break; |
break; |
case NODE_LITERALLAYOUT: |
case NODE_LITERALLAYOUT: |
macro_close(f); |
macro_close(f); |
macro_argline(f, "Bd", pnode_getattr(n, ATTRKEY_CLASS) == |
macro_argline(f, "Bd", pnode_getattr(n, ATTRKEY_CLASS) == |
ATTRVAL_MONOSPACED ? "-literal" : "-unfilled"); |
ATTRVAL_MONOSPACED ? "-literal" : "-unfilled"); |
break; |
break; |
|
case NODE_MARKUP: |
|
macro_open(f, "Ic"); |
|
break; |
case NODE_MML_MFENCED: |
case NODE_MML_MFENCED: |
pnode_printmathfenced(f, n); |
pnode_printmathfenced(f, n); |
break; |
break; |
Line 947 pnode_print(struct format *f, struct pnode *n) |
|
Line 975 pnode_print(struct format *f, struct pnode *n) |
|
pnode_unlinksub(n); |
pnode_unlinksub(n); |
break; |
break; |
case NODE_QUOTE: |
case NODE_QUOTE: |
macro_open(f, "Qo"); |
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: |
Line 959 pnode_print(struct format *f, struct pnode *n) |
|
Line 992 pnode_print(struct format *f, struct pnode *n) |
|
pnode_unlinksub(n); |
pnode_unlinksub(n); |
break; |
break; |
case NODE_REFNAME: |
case NODE_REFNAME: |
/* Suppress non-text children... */ |
/* More often, these appear inside NODE_REFNAMEDIV. */ |
macro_open(f, "Nm"); |
macro_open(f, "Nm"); |
macro_addnode(f, n, ARG_SPACE | ARG_SINGLE); |
|
pnode_unlinksub(n); |
|
break; |
break; |
case NODE_REFNAMEDIV: |
case NODE_REFNAMEDIV: |
macro_line(f, "Sh NAME"); |
pnode_printrefnamediv(f, n); |
break; |
break; |
case NODE_REFPURPOSE: |
case NODE_REFPURPOSE: |
macro_open(f, "Nd"); |
macro_open(f, "Nd"); |
Line 989 pnode_print(struct format *f, struct pnode *n) |
|
Line 1020 pnode_print(struct format *f, struct pnode *n) |
|
case NODE_SBR: |
case NODE_SBR: |
macro_line(f, "br"); |
macro_line(f, "br"); |
break; |
break; |
case NODE_SGMLTAG: |
|
macro_open(f, "Ic"); |
|
break; |
|
case NODE_TEXT: |
case NODE_TEXT: |
case NODE_ESCAPE: |
case NODE_ESCAPE: |
pnode_printtext(f, n); |
pnode_printtext(f, n); |
Line 1033 pnode_print(struct format *f, struct pnode *n) |
|
Line 1061 pnode_print(struct format *f, struct pnode *n) |
|
return; |
return; |
case NODE_INFORMALEQUATION: |
case NODE_INFORMALEQUATION: |
macro_line(f, "EN"); |
macro_line(f, "EN"); |
|
macro_line(f, "Ed"); |
break; |
break; |
case NODE_INLINEEQUATION: |
case NODE_INLINEEQUATION: |
fputs("$ ", stdout); |
macro_line(f, "EN"); |
f->linestate = sv; |
|
break; |
break; |
|
case NODE_LITERAL: |
|
if (was_impl) |
|
macro_open(f, "Sc"); |
|
else |
|
f->flags &= ~FMT_IMPL; |
|
break; |
case NODE_MEMBER: |
case NODE_MEMBER: |
if ((nn = TAILQ_NEXT(n, child)) != NULL && |
if ((nn = TAILQ_NEXT(n, child)) != NULL && |
nn->node != NODE_MEMBER) |
nn->node != NODE_MEMBER) |
Line 1065 pnode_print(struct format *f, struct pnode *n) |
|
Line 1099 pnode_print(struct format *f, struct pnode *n) |
|
fputs(" } ", stdout); |
fputs(" } ", stdout); |
break; |
break; |
case NODE_QUOTE: |
case NODE_QUOTE: |
if (sv == LINE_NEW) |
if (was_impl) |
macro_close(f); |
macro_open(f, "Dc"); |
sv = f->linestate; |
else |
macro_open(f, "Qc"); |
f->flags &= ~FMT_IMPL; |
if (sv == LINE_NEW) |
|
macro_close(f); |
|
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 (n->parent != NULL && |
|
n->parent->node == NODE_REFNAMEDIV && |
|
TAILQ_NEXT(n, child) != NULL && |
|
TAILQ_NEXT(n, child)->node == NODE_REFNAME) |
|
macro_addarg(f, ",", ARG_SPACE); |
|
if (sv == LINE_NEW) |
|
macro_close(f); |
|
break; |
break; |
case NODE_PREFACE: |
case NODE_PREFACE: |
case NODE_SECTION: |
case NODE_SECTION: |