version 1.67, 2015/09/26 00:54:04 |
version 1.90, 2021/08/10 12:55:04 |
|
|
/* $Id$ */ |
/* $Id$ */ |
/* |
/* |
* Copyright (c) 2008, 2009, 2011, 2014 Kristaps Dzonsons <kristaps@bsd.lv> |
* Copyright (c) 2008, 2009, 2011, 2014 Kristaps Dzonsons <kristaps@bsd.lv> |
* Copyright (c) 2013, 2014, 2015 Ingo Schwarze <schwarze@openbsd.org> |
* Copyright (c) 2013-2015, 2017-2021 Ingo Schwarze <schwarze@openbsd.org> |
* |
* |
* Permission to use, copy, modify, and distribute this software for any |
* Permission to use, copy, modify, and distribute this software for any |
* purpose with or without fee is hereby granted, provided that the above |
* purpose with or without fee is hereby granted, provided that the above |
|
|
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN |
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN |
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF |
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF |
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. |
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. |
|
* |
|
* Formatting module to let mandoc(1) show |
|
* a human readable representation of the syntax tree. |
*/ |
*/ |
#include "config.h" |
#include "config.h" |
|
|
|
|
#include "roff.h" |
#include "roff.h" |
#include "mdoc.h" |
#include "mdoc.h" |
#include "man.h" |
#include "man.h" |
|
#include "tbl.h" |
|
#include "eqn.h" |
#include "main.h" |
#include "main.h" |
|
|
|
static void print_attr(const struct roff_node *); |
static void print_box(const struct eqn_box *, int); |
static void print_box(const struct eqn_box *, int); |
|
static void print_cellt(enum tbl_cellt); |
static void print_man(const struct roff_node *, int); |
static void print_man(const struct roff_node *, int); |
|
static void print_meta(const struct roff_meta *); |
static void print_mdoc(const struct roff_node *, int); |
static void print_mdoc(const struct roff_node *, int); |
static void print_span(const struct tbl_span *, int); |
static void print_span(const struct tbl_span *, int); |
|
|
|
|
void |
void |
tree_mdoc(void *arg, const struct roff_man *mdoc) |
tree_mdoc(void *arg, const struct roff_meta *mdoc) |
{ |
{ |
|
print_meta(mdoc); |
|
putchar('\n'); |
print_mdoc(mdoc->first->child, 0); |
print_mdoc(mdoc->first->child, 0); |
} |
} |
|
|
void |
void |
tree_man(void *arg, const struct roff_man *man) |
tree_man(void *arg, const struct roff_meta *man) |
{ |
{ |
|
print_meta(man); |
|
if (man->hasbody == 0) |
|
puts("body = empty"); |
|
putchar('\n'); |
print_man(man->first->child, 0); |
print_man(man->first->child, 0); |
} |
} |
|
|
static void |
static void |
|
print_meta(const struct roff_meta *meta) |
|
{ |
|
if (meta->title != NULL) |
|
printf("title = \"%s\"\n", meta->title); |
|
if (meta->name != NULL) |
|
printf("name = \"%s\"\n", meta->name); |
|
if (meta->msec != NULL) |
|
printf("sec = \"%s\"\n", meta->msec); |
|
if (meta->vol != NULL) |
|
printf("vol = \"%s\"\n", meta->vol); |
|
if (meta->arch != NULL) |
|
printf("arch = \"%s\"\n", meta->arch); |
|
if (meta->os != NULL) |
|
printf("os = \"%s\"\n", meta->os); |
|
if (meta->date != NULL) |
|
printf("date = \"%s\"\n", meta->date); |
|
} |
|
|
|
static void |
print_mdoc(const struct roff_node *n, int indent) |
print_mdoc(const struct roff_node *n, int indent) |
{ |
{ |
const char *p, *t; |
const char *p, *t; |
Line 74 print_mdoc(const struct roff_node *n, int indent) |
|
Line 105 print_mdoc(const struct roff_node *n, int indent) |
|
t = "block"; |
t = "block"; |
break; |
break; |
case ROFFT_HEAD: |
case ROFFT_HEAD: |
t = "block-head"; |
t = "head"; |
break; |
break; |
case ROFFT_BODY: |
case ROFFT_BODY: |
if (n->end) |
if (n->end) |
t = "body-end"; |
t = "body-end"; |
else |
else |
t = "block-body"; |
t = "body"; |
break; |
break; |
case ROFFT_TAIL: |
case ROFFT_TAIL: |
t = "block-tail"; |
t = "tail"; |
break; |
break; |
case ROFFT_ELEM: |
case ROFFT_ELEM: |
t = "elem"; |
t = "elem"; |
Line 91 print_mdoc(const struct roff_node *n, int indent) |
|
Line 122 print_mdoc(const struct roff_node *n, int indent) |
|
case ROFFT_TEXT: |
case ROFFT_TEXT: |
t = "text"; |
t = "text"; |
break; |
break; |
|
case ROFFT_COMMENT: |
|
t = "comment"; |
|
break; |
case ROFFT_TBL: |
case ROFFT_TBL: |
break; |
break; |
case ROFFT_EQN: |
case ROFFT_EQN: |
Line 102 print_mdoc(const struct roff_node *n, int indent) |
|
Line 136 print_mdoc(const struct roff_node *n, int indent) |
|
|
|
switch (n->type) { |
switch (n->type) { |
case ROFFT_TEXT: |
case ROFFT_TEXT: |
|
case ROFFT_COMMENT: |
p = n->string; |
p = n->string; |
break; |
break; |
case ROFFT_BODY: |
case ROFFT_BODY: |
p = mdoc_macronames[n->tok]; |
p = roff_name[n->tok]; |
break; |
break; |
case ROFFT_HEAD: |
case ROFFT_HEAD: |
p = mdoc_macronames[n->tok]; |
p = roff_name[n->tok]; |
break; |
break; |
case ROFFT_TAIL: |
case ROFFT_TAIL: |
p = mdoc_macronames[n->tok]; |
p = roff_name[n->tok]; |
break; |
break; |
case ROFFT_ELEM: |
case ROFFT_ELEM: |
p = mdoc_macronames[n->tok]; |
p = roff_name[n->tok]; |
if (n->args) { |
if (n->args) { |
argv = n->args->argv; |
argv = n->args->argv; |
argc = n->args->argc; |
argc = n->args->argc; |
} |
} |
break; |
break; |
case ROFFT_BLOCK: |
case ROFFT_BLOCK: |
p = mdoc_macronames[n->tok]; |
p = roff_name[n->tok]; |
if (n->args) { |
if (n->args) { |
argv = n->args->argv; |
argv = n->args->argv; |
argc = n->args->argc; |
argc = n->args->argc; |
Line 157 print_mdoc(const struct roff_node *n, int indent) |
|
Line 192 print_mdoc(const struct roff_node *n, int indent) |
|
if (argv[i].sz > 0) |
if (argv[i].sz > 0) |
printf(" ]"); |
printf(" ]"); |
} |
} |
|
print_attr(n); |
putchar(' '); |
|
if (MDOC_LINE & n->flags) |
|
putchar('*'); |
|
printf("%d:%d\n", n->line, n->pos + 1); |
|
} |
} |
|
|
if (n->eqn) |
if (n->eqn) |
print_box(n->eqn->root->first, indent + 4); |
print_box(n->eqn->first, indent + 4); |
if (n->child) |
if (n->child) |
print_mdoc(n->child, indent + |
print_mdoc(n->child, indent + |
(n->type == ROFFT_BLOCK ? 2 : 4)); |
(n->type == ROFFT_BLOCK ? 2 : 4)); |
Line 194 print_man(const struct roff_node *n, int indent) |
|
Line 224 print_man(const struct roff_node *n, int indent) |
|
case ROFFT_TEXT: |
case ROFFT_TEXT: |
t = "text"; |
t = "text"; |
break; |
break; |
|
case ROFFT_COMMENT: |
|
t = "comment"; |
|
break; |
case ROFFT_BLOCK: |
case ROFFT_BLOCK: |
t = "block"; |
t = "block"; |
break; |
break; |
case ROFFT_HEAD: |
case ROFFT_HEAD: |
t = "block-head"; |
t = "head"; |
break; |
break; |
case ROFFT_BODY: |
case ROFFT_BODY: |
t = "block-body"; |
t = "body"; |
break; |
break; |
case ROFFT_TBL: |
case ROFFT_TBL: |
break; |
break; |
Line 214 print_man(const struct roff_node *n, int indent) |
|
Line 247 print_man(const struct roff_node *n, int indent) |
|
|
|
switch (n->type) { |
switch (n->type) { |
case ROFFT_TEXT: |
case ROFFT_TEXT: |
|
case ROFFT_COMMENT: |
p = n->string; |
p = n->string; |
break; |
break; |
case ROFFT_ELEM: |
case ROFFT_ELEM: |
/* FALLTHROUGH */ |
|
case ROFFT_BLOCK: |
case ROFFT_BLOCK: |
/* FALLTHROUGH */ |
|
case ROFFT_HEAD: |
case ROFFT_HEAD: |
/* FALLTHROUGH */ |
|
case ROFFT_BODY: |
case ROFFT_BODY: |
p = man_macronames[n->tok]; |
p = roff_name[n->tok]; |
break; |
break; |
case ROFFT_ROOT: |
case ROFFT_ROOT: |
p = "root"; |
p = "root"; |
Line 243 print_man(const struct roff_node *n, int indent) |
|
Line 274 print_man(const struct roff_node *n, int indent) |
|
} else { |
} else { |
for (i = 0; i < indent; i++) |
for (i = 0; i < indent; i++) |
putchar(' '); |
putchar(' '); |
printf("%s (%s) ", p, t); |
printf("%s (%s)", p, t); |
if (MAN_LINE & n->flags) |
print_attr(n); |
putchar('*'); |
|
printf("%d:%d\n", n->line, n->pos + 1); |
|
} |
} |
|
|
if (n->eqn) |
if (n->eqn) |
print_box(n->eqn->root->first, indent + 4); |
print_box(n->eqn->first, indent + 4); |
if (n->child) |
if (n->child) |
print_man(n->child, indent + |
print_man(n->child, indent + |
(n->type == ROFFT_BLOCK ? 2 : 4)); |
(n->type == ROFFT_BLOCK ? 2 : 4)); |
Line 259 print_man(const struct roff_node *n, int indent) |
|
Line 287 print_man(const struct roff_node *n, int indent) |
|
} |
} |
|
|
static void |
static void |
|
print_attr(const struct roff_node *n) |
|
{ |
|
putchar(' '); |
|
if (n->flags & NODE_DELIMO) |
|
putchar('('); |
|
if (n->flags & NODE_LINE) |
|
putchar('*'); |
|
printf("%d:%d", n->line, n->pos + 1); |
|
if (n->flags & NODE_DELIMC) |
|
putchar(')'); |
|
if (n->flags & NODE_EOS) |
|
putchar('.'); |
|
if (n->flags & NODE_ID) { |
|
printf(" ID"); |
|
if (n->flags & NODE_HREF) |
|
printf("=HREF"); |
|
} else if (n->flags & NODE_HREF) |
|
printf(" HREF"); |
|
else if (n->tag != NULL) |
|
printf(" STRAYTAG"); |
|
if (n->tag != NULL) |
|
printf("=%s", n->tag); |
|
if (n->flags & NODE_BROKEN) |
|
printf(" BROKEN"); |
|
if (n->flags & NODE_NOFILL) |
|
printf(" NOFILL"); |
|
if (n->flags & NODE_NOSRC) |
|
printf(" NOSRC"); |
|
if (n->flags & NODE_NOPRT) |
|
printf(" NOPRT"); |
|
putchar('\n'); |
|
} |
|
|
|
static void |
print_box(const struct eqn_box *ep, int indent) |
print_box(const struct eqn_box *ep, int indent) |
{ |
{ |
int i; |
int i; |
Line 276 print_box(const struct eqn_box *ep, int indent) |
|
Line 338 print_box(const struct eqn_box *ep, int indent) |
|
|
|
t = NULL; |
t = NULL; |
switch (ep->type) { |
switch (ep->type) { |
case EQN_ROOT: |
|
t = "eqn-root"; |
|
break; |
|
case EQN_LISTONE: |
|
case EQN_LIST: |
case EQN_LIST: |
t = "eqn-list"; |
t = "eqn-list"; |
break; |
break; |
Line 325 print_box(const struct eqn_box *ep, int indent) |
|
Line 383 print_box(const struct eqn_box *ep, int indent) |
|
} |
} |
|
|
static void |
static void |
|
print_cellt(enum tbl_cellt pos) |
|
{ |
|
switch(pos) { |
|
case TBL_CELL_LEFT: |
|
putchar('L'); |
|
break; |
|
case TBL_CELL_LONG: |
|
putchar('a'); |
|
break; |
|
case TBL_CELL_CENTRE: |
|
putchar('c'); |
|
break; |
|
case TBL_CELL_RIGHT: |
|
putchar('r'); |
|
break; |
|
case TBL_CELL_NUMBER: |
|
putchar('n'); |
|
break; |
|
case TBL_CELL_SPAN: |
|
putchar('s'); |
|
break; |
|
case TBL_CELL_DOWN: |
|
putchar('^'); |
|
break; |
|
case TBL_CELL_HORIZ: |
|
putchar('-'); |
|
break; |
|
case TBL_CELL_DHORIZ: |
|
putchar('='); |
|
break; |
|
case TBL_CELL_MAX: |
|
putchar('#'); |
|
break; |
|
} |
|
} |
|
|
|
static void |
print_span(const struct tbl_span *sp, int indent) |
print_span(const struct tbl_span *sp, int indent) |
{ |
{ |
const struct tbl_dat *dp; |
const struct tbl_dat *dp; |
|
const struct tbl_cell *cp; |
int i; |
int i; |
|
|
|
if (sp->prev == NULL) { |
|
for (i = 0; i < indent; i++) |
|
putchar(' '); |
|
printf("%d", sp->opts->cols); |
|
if (sp->opts->opts & TBL_OPT_CENTRE) |
|
fputs(" center", stdout); |
|
if (sp->opts->opts & TBL_OPT_EXPAND) |
|
fputs(" expand", stdout); |
|
if (sp->opts->opts & TBL_OPT_ALLBOX) |
|
fputs(" allbox", stdout); |
|
if (sp->opts->opts & TBL_OPT_BOX) |
|
fputs(" box", stdout); |
|
if (sp->opts->opts & TBL_OPT_DBOX) |
|
fputs(" doublebox", stdout); |
|
if (sp->opts->opts & TBL_OPT_NOKEEP) |
|
fputs(" nokeep", stdout); |
|
if (sp->opts->opts & TBL_OPT_NOSPACE) |
|
fputs(" nospaces", stdout); |
|
if (sp->opts->opts & TBL_OPT_NOWARN) |
|
fputs(" nowarn", stdout); |
|
printf(" (tbl options) %d:1\n", sp->line); |
|
} |
|
|
for (i = 0; i < indent; i++) |
for (i = 0; i < indent; i++) |
putchar(' '); |
putchar(' '); |
|
|
switch (sp->pos) { |
switch (sp->pos) { |
case TBL_SPAN_HORIZ: |
case TBL_SPAN_HORIZ: |
putchar('-'); |
putchar('-'); |
return; |
putchar(' '); |
|
break; |
case TBL_SPAN_DHORIZ: |
case TBL_SPAN_DHORIZ: |
putchar('='); |
putchar('='); |
return; |
putchar(' '); |
|
break; |
default: |
default: |
|
for (cp = sp->layout->first; cp != NULL; cp = cp->next) |
|
print_cellt(cp->pos); |
|
putchar(' '); |
|
for (dp = sp->first; dp; dp = dp->next) { |
|
if ((cp = dp->layout) == NULL) |
|
putchar('*'); |
|
else { |
|
printf("%d", cp->col); |
|
print_cellt(dp->layout->pos); |
|
switch (cp->font) { |
|
case ESCAPE_FONTBOLD: |
|
putchar('b'); |
|
break; |
|
case ESCAPE_FONTITALIC: |
|
putchar('i'); |
|
break; |
|
case ESCAPE_FONTBI: |
|
fputs("bi", stdout); |
|
break; |
|
case ESCAPE_FONTCR: |
|
putchar('c'); |
|
break; |
|
case ESCAPE_FONTCB: |
|
fputs("cb", stdout); |
|
break; |
|
case ESCAPE_FONTCI: |
|
fputs("ci", stdout); |
|
break; |
|
default: |
|
abort(); |
|
} |
|
if (cp->flags & TBL_CELL_TALIGN) |
|
putchar('t'); |
|
if (cp->flags & TBL_CELL_UP) |
|
putchar('u'); |
|
if (cp->flags & TBL_CELL_BALIGN) |
|
putchar('d'); |
|
if (cp->flags & TBL_CELL_WIGN) |
|
putchar('z'); |
|
if (cp->flags & TBL_CELL_EQUAL) |
|
putchar('e'); |
|
if (cp->flags & TBL_CELL_WMAX) |
|
putchar('x'); |
|
} |
|
switch (dp->pos) { |
|
case TBL_DATA_HORIZ: |
|
case TBL_DATA_NHORIZ: |
|
putchar('-'); |
|
break; |
|
case TBL_DATA_DHORIZ: |
|
case TBL_DATA_NDHORIZ: |
|
putchar('='); |
|
break; |
|
default: |
|
putchar(dp->block ? '{' : '['); |
|
if (dp->string != NULL) |
|
fputs(dp->string, stdout); |
|
putchar(dp->block ? '}' : ']'); |
|
break; |
|
} |
|
if (dp->hspans) |
|
printf(">%d", dp->hspans); |
|
if (dp->vspans) |
|
printf("v%d", dp->vspans); |
|
putchar(' '); |
|
} |
break; |
break; |
} |
} |
|
|
for (dp = sp->first; dp; dp = dp->next) { |
|
switch (dp->pos) { |
|
case TBL_DATA_HORIZ: |
|
/* FALLTHROUGH */ |
|
case TBL_DATA_NHORIZ: |
|
putchar('-'); |
|
continue; |
|
case TBL_DATA_DHORIZ: |
|
/* FALLTHROUGH */ |
|
case TBL_DATA_NDHORIZ: |
|
putchar('='); |
|
continue; |
|
default: |
|
break; |
|
} |
|
printf("[\"%s\"", dp->string ? dp->string : ""); |
|
if (dp->spans) |
|
printf("(%d)", dp->spans); |
|
if (NULL == dp->layout) |
|
putchar('*'); |
|
putchar(']'); |
|
putchar(' '); |
|
} |
|
|
|
printf("(tbl) %d:1\n", sp->line); |
printf("(tbl) %d:1\n", sp->line); |
} |
} |