version 1.1, 2019/03/26 19:17:29 |
version 1.11, 2019/04/12 09:01:48 |
|
|
#include <assert.h> |
#include <assert.h> |
#include <ctype.h> |
#include <ctype.h> |
#include <stdio.h> |
#include <stdio.h> |
|
#include <string.h> |
|
|
#include "node.h" |
#include "node.h" |
#include "macro.h" |
#include "macro.h" |
|
|
macro_open(struct format *f, const char *name) |
macro_open(struct format *f, const char *name) |
{ |
{ |
switch (f->linestate) { |
switch (f->linestate) { |
|
case LINE_MACRO: |
|
if (f->flags & FMT_NOSPC) { |
|
fputs(" Ns ", stdout); |
|
break; |
|
} |
|
if (f->flags & (FMT_CHILD | FMT_IMPL)) { |
|
putchar(' '); |
|
break; |
|
} |
|
/* FALLTHROUGH */ |
case LINE_TEXT: |
case LINE_TEXT: |
putchar('\n'); |
putchar('\n'); |
/* FALLTHROUGH */ |
/* FALLTHROUGH */ |
case LINE_NEW: |
case LINE_NEW: |
putchar('.'); |
putchar('.'); |
f->linestate = LINE_MACRO; |
f->linestate = LINE_MACRO; |
|
f->flags = 0; |
break; |
break; |
case LINE_MACRO: |
|
putchar(' '); |
|
break; |
|
} |
} |
fputs(name, stdout); |
fputs(name, stdout); |
|
f->flags &= FMT_IMPL; |
|
f->flags |= FMT_ARG; |
} |
} |
|
|
void |
void |
macro_close(struct format *f) |
macro_close(struct format *f) |
{ |
{ |
assert(f->linestate == LINE_MACRO); |
if (f->linestate != LINE_NEW) |
putchar('\n'); |
putchar('\n'); |
f->linestate = LINE_NEW; |
f->linestate = LINE_NEW; |
|
f->flags = 0; |
} |
} |
|
|
void |
void |
macro_line(struct format *f, const char *name) |
macro_line(struct format *f, const char *name) |
{ |
{ |
|
macro_close(f); |
macro_open(f, name); |
macro_open(f, name); |
macro_close(f); |
macro_close(f); |
} |
} |
|
|
/* |
/* |
* If the next node is a text node starting with closing punctuation, |
|
* emit the closing punctuation as a trailing macro argument. |
|
*/ |
|
void |
|
macro_closepunct(struct format *f, 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(f); |
|
} |
|
|
|
/* |
|
* Print an argument string on a macro line, collapsing whitespace. |
* Print an argument string on a macro line, collapsing whitespace. |
*/ |
*/ |
void |
void |
Line 150 macro_argline(struct format *f, const char *name, cons |
|
Line 144 macro_argline(struct format *f, const char *name, cons |
|
* Recursively append text from the children of a node to a macro line. |
* Recursively append text from the children of a node to a macro line. |
*/ |
*/ |
void |
void |
macro_addnode(struct format *f, struct pnode *pn, int flags) |
macro_addnode(struct format *f, struct pnode *n, int flags) |
{ |
{ |
|
struct pnode *nc; |
int quote_now; |
int quote_now; |
|
|
assert(f->linestate == LINE_MACRO); |
assert(f->linestate == LINE_MACRO); |
|
|
/* |
/* |
* If the only child is a text node, just add that text, |
* If this node or its only child is a text node, just add |
* letting macro_addarg() decide about quoting. |
* that text, letting macro_addarg() decide about quoting. |
*/ |
*/ |
|
|
pn = TAILQ_FIRST(&pn->childq); |
while ((nc = TAILQ_FIRST(&n->childq)) != NULL && |
if (pn != NULL && pn->node == NODE_TEXT && |
TAILQ_NEXT(nc, child) == NULL) |
TAILQ_NEXT(pn, child) == NULL) { |
n = nc; |
macro_addarg(f, pn->b, flags); |
|
|
if (n->node == NODE_TEXT || n->node == NODE_ESCAPE) { |
|
macro_addarg(f, n->b, flags); |
return; |
return; |
} |
} |
|
|
Line 192 macro_addnode(struct format *f, struct pnode *pn, int |
|
Line 189 macro_addnode(struct format *f, struct pnode *pn, int |
|
* inserting whitespace between nodes. |
* inserting whitespace between nodes. |
*/ |
*/ |
|
|
while (pn != NULL) { |
while (nc != NULL) { |
if (pn->node == NODE_TEXT) |
macro_addnode(f, nc, flags); |
macro_addarg(f, pn->b, flags); |
nc = TAILQ_NEXT(nc, child); |
else |
|
macro_addnode(f, pn, flags); |
|
pn = TAILQ_NEXT(pn, child); |
|
flags |= ARG_SPACE; |
flags |= ARG_SPACE; |
} |
} |
if (quote_now) |
if (quote_now) |
Line 205 macro_addnode(struct format *f, struct pnode *pn, int |
|
Line 199 macro_addnode(struct format *f, struct pnode *pn, int |
|
} |
} |
|
|
void |
void |
macro_nodeline(struct format *f, const char *name, struct pnode *pn, int flags) |
macro_nodeline(struct format *f, const char *name, struct pnode *n, int flags) |
{ |
{ |
macro_open(f, name); |
macro_open(f, name); |
macro_addnode(f, pn, ARG_SPACE | flags); |
macro_addnode(f, n, ARG_SPACE | flags); |
macro_close(f); |
macro_close(f); |
|
} |
|
|
|
|
|
/* |
|
* Print a word on the current text line if one is open, or on a new text |
|
* line otherwise. The flag ARG_SPACE inserts spaces between words. |
|
*/ |
|
void |
|
print_text(struct format *f, const char *word, int flags) |
|
{ |
|
switch (f->linestate) { |
|
case LINE_NEW: |
|
break; |
|
case LINE_TEXT: |
|
if (flags & ARG_SPACE) |
|
putchar(' '); |
|
break; |
|
case LINE_MACRO: |
|
macro_close(f); |
|
break; |
|
} |
|
if (f->linestate == LINE_NEW && (*word == '.' || *word == '\'')) |
|
fputs("\\&", stdout); |
|
while (*word != '\0') { |
|
putchar(*word); |
|
if (*word++ == '\\') |
|
putchar('e'); |
|
} |
|
f->linestate = LINE_TEXT; |
|
f->flags = 0; |
|
} |
|
|
|
/* |
|
* Recursively print the content of a node on a text line. |
|
*/ |
|
void |
|
print_textnode(struct format *f, struct pnode *n) |
|
{ |
|
struct pnode *nc; |
|
|
|
if (n->node == NODE_TEXT || n->node == NODE_ESCAPE) |
|
print_text(f, n->b, ARG_SPACE); |
|
else |
|
TAILQ_FOREACH(nc, &n->childq, child) |
|
print_textnode(f, nc); |
} |
} |