371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov/* $Id: roff.c,v 1.284 2016/01/08 17:48:10 schwarze Exp $ */
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov * Copyright (c) 2008-2012, 2014 Kristaps Dzonsons <kristaps@bsd.lv>
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * Copyright (c) 2010-2015 Ingo Schwarze <schwarze@openbsd.org>
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * Permission to use, copy, modify, and distribute this software for any
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * purpose with or without fee is hereby granted, provided that the above
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * copyright notice and this permission notice appear in all copies.
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHORS DISCLAIM ALL WARRANTIES
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore/* Maximum number of string expansions per line, to break infinite loops. */
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov/* --- data types --------------------------------------------------------- */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* MAN_br, MDOC_br */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* MAN_fi; ignored in mdoc(7) */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* MAN_ft; ignored in mdoc(7) */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* MAN_in; ignored in mdoc(7) */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* MAN_ll, MDOC_ll */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* MAN_nf; ignored in mdoc(7) */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* MAN_sp, MDOC_sp */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * An incredibly-simple string buffer.
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore char *p; /* nil-terminated buffer */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * A key-value roffstr pair as part of a singly-linked list.
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore * A single number register as part of a singly-linked list.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov int *rstack; /* stack of inverted `ie' values */
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore struct roffreg *regtab; /* number registers */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore struct roffkv *strtab; /* user-defined strings & macros */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore struct roffkv *xmbtab; /* multi-byte trans table (`tr') */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore struct roffstr *xtab; /* single-byte trans table (`tr') */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore const char *current_string; /* value of last called user macro */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore struct tbl_node *first_tbl; /* first table parsed */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore struct tbl_node *last_tbl; /* last table parsed */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore struct tbl_node *tbl; /* current table being parsed */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore struct eqn_node *last_eqn; /* last equation parsed */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore struct eqn_node *first_eqn; /* first equation parsed */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore struct eqn_node *eqn; /* current equation being parsed */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov int eqn_inline; /* current equation is inline */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov int rstacksz; /* current size limit of rstack */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov int format; /* current file in mdoc or man format */
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov int argc; /* number of args of the last macro */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore struct roffnode *parent; /* up one in stack */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore char *name; /* node name, e.g. macro name */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore int endspan; /* end-rules: next-line or infty */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore#define ROFF_ARGS struct roff *r, /* parse ctx */ \
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore roffproc text; /* process as child text of macro */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore roffproc sub; /* process as child of macro */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore#define ROFFMAC_STRUCT (1 << 0) /* always interpret */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore const char *name; /* predefined input name */
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov/* --- function prototypes ------------------------------------------------ */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amorestatic enum rofft roffhash_find(const char *, size_t);
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amorestatic void roffhash_init(void);
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amorestatic void roffnode_cleanscope(struct roff *);
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amorestatic void roffnode_push(struct roff *, enum rofft,
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore const char *, int, int);
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amorestatic enum rofferr roff_block_text(ROFF_ARGS);
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amorestatic enum rofferr roff_block_sub(ROFF_ARGS);
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amorestatic enum rofferr roff_cond_text(ROFF_ARGS);
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amorestatic enum rofferr roff_cond_sub(ROFF_ARGS);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankovstatic enum rofferr roff_eqndelim(struct roff *, struct buf *, int);
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankovstatic int roff_evalcond(struct roff *r, int, char *, int *);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov const char *, int *, int *, int);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov const char *, int *, int *, int);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankovstatic int roff_evalstrcond(const char *, int *);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankovstatic size_t roff_getname(struct roff *, char **, int, int);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankovstatic int roff_getnum(const char *, int *, int *, int);
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amorestatic int roff_getop(const char *, int *, char *);
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore const char *, size_t);
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov const char *name);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankovstatic const char *roff_getstrn(const struct roff *,
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore const char *, size_t);
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov const char *, size_t);
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amorestatic enum rofferr roff_line_ignore(ROFF_ARGS);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankovstatic enum rofft roff_parse(struct roff *, char *, int *,
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankovstatic enum rofferr roff_parsetext(struct buf *, int, int *);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankovstatic enum rofferr roff_res(struct roff *, struct buf *, int, int);
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore const char *, const char *, int);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankovstatic void roff_setstrn(struct roffkv **, const char *,
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov/* --- constant data ------------------------------------------------------ */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore/* See roffhash_find() */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov#define ROFFNUM_SCALE (1 << 0) /* Honour scaling in roff_getnum(). */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov#define ROFFNUM_WHITE (1 << 1) /* Skip whitespace in roff_evalnum(). */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { "ad", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "af", roff_line_ignore, NULL, NULL, 0, NULL },
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { "am", roff_block, roff_block_text, roff_block_sub, 0, NULL },
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { "am1", roff_block, roff_block_text, roff_block_sub, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "ami", roff_block, roff_block_text, roff_block_sub, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "ami1", roff_block, roff_block_text, roff_block_sub, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "asciify", roff_unsupp, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "backtrace", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "bd", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "bleedat", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "bp", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "breakchar", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "brnl", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "brpnl", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "ce", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "cflags", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "ch", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "class", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "color", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "composite", roff_unsupp, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "continue", roff_unsupp, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "cp", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "cropat", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "cs", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "cu", roff_line_ignore, NULL, NULL, 0, NULL },
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { "de", roff_block, roff_block_text, roff_block_sub, 0, NULL },
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { "de1", roff_block, roff_block_text, roff_block_sub, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "defcolor", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "dei", roff_block, roff_block_text, roff_block_sub, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "dei1", roff_block, roff_block_text, roff_block_sub, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "devicem", roff_unsupp, NULL, NULL, 0, NULL },
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { "el", roff_cond, roff_cond_text, roff_cond_sub, ROFFMAC_STRUCT, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "errprint", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "fallback", roff_line_ignore, NULL, NULL, 0, NULL },
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore { "fam", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "fcolor", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "fdeferlig", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "feature", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "fkern", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "fl", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "flig", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "fp", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "fps", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "fspacewidth", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "fspecial", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "ftr", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "fzoom", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "gcolor", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "hc", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "hcode", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "hidechar", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "hla", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "hlm", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "hpf", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "hpfa", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "hpfcode", roff_line_ignore, NULL, NULL, 0, NULL },
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore { "hw", roff_line_ignore, NULL, NULL, 0, NULL },
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { "hy", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "hylang", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "hylen", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "hym", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "hypp", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "hys", roff_line_ignore, NULL, NULL, 0, NULL },
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { "ie", roff_cond, roff_cond_text, roff_cond_sub, ROFFMAC_STRUCT, NULL },
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { "if", roff_cond, roff_cond_text, roff_cond_sub, ROFFMAC_STRUCT, NULL },
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { "ig", roff_block, roff_block_text, roff_block_sub, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "IX", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "kern", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "kernafter", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "kernbefore", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "kernpair", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "lc_ctype", roff_unsupp, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "letadj", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "lg", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "lhang", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "linetabs", roff_unsupp, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "ls", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "lt", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "mc", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "mediasize", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "minss", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "mk", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "na", roff_line_ignore, NULL, NULL, 0, NULL },
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { "ne", roff_line_ignore, NULL, NULL, 0, NULL },
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { "nh", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "nhychar", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "nroff", roff_line_ignore, NULL, NULL, 0, NULL },
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { "ns", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "os", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "padj", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "papersize", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "pc", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "pev", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "pl", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "pm", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "pn", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "pnr", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "po", roff_line_ignore, NULL, NULL, 0, NULL },
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { "ps", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "ptr", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "pvs", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "rd", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "recursionlimit", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "rfschar", roff_unsupp, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "rhang", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "rj", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "rs", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "rt", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "sentchar", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "shc", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "sizes", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "spacewidth", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "special", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "spreadwarn", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "ss", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "sty", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "substring", roff_unsupp, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "sv", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "tkf", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "tm", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "tm1", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "tmc", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "track", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "transchar", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "trimat", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "troff", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "uf", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "ul", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "unformat", roff_unsupp, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "unwatch", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "unwatchn", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "vpt", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "vs", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "warn", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "warnscale", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "watch", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "watchlength", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "watchn", roff_line_ignore, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { "xflag", roff_line_ignore, NULL, NULL, 0, NULL },
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { NULL, roff_userdef, NULL, NULL, 0, NULL },
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov/* not currently implemented: Ds em Eq LP Me PP pp Or Rd Sf SH */
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore "Ac", "Ad", "An", "Ao", "Ap", "Aq", "Ar", "At",
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore "Cd", "Cm", "Db", "Dc", "Dd", "Dl", "Do", "Dq",
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore "Fa", "Fc", "Fd", "Fl", "Fn", "Fo", "Fr", "Ft", "Fx",
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore "Ta", "Tn", "Ud", "Ux", "Va", "Vt", "Xc", "Xo", "Xr",
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov/* not currently implemented: BT DE DS ME MT PT SY TQ YS */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov "EE", "EN", "EQ", "EX", "HP", "I", "IB", "IP", "IR",
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov "R", "RB", "RE", "RI", "RS", "SB", "SH", "SM", "SS",
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore/* Array of injected predefined strings. */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amorestatic const struct predef predefs[PREDEFS_MAX] = {
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore#include "predefs.in"
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore/* See roffhash_find() */
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amorestatic int roffit_lines; /* number of lines to delay */
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amorestatic char *roffit_macro; /* nil-terminated macro line */
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov/* --- request table ------------------------------------------------------ */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore for (i = 0; i < (int)ROFF_USERDEF; i++) {
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore /* Do nothing. */ ;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * Look up a roff token by its name. Returns ROFF_MAX if no macro by
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * the nil-terminated string name could be found.
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * libroff has an extremely simple hashtable, for the time
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * being, which simply keys on the first character, which must
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * be printable, then walks a chain. It works well enough until
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore for ( ; n; n = n->next)
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore if (0 == strncmp(n->name, p, s) && '\0' == n->name[(int)s])
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov/* --- stack of request blocks -------------------------------------------- */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * Pop the current node off of the stack of roff instructions currently
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * Push a roff node onto the instruction stack. This must later be
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * removed with roffnode_pop().
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amoreroffnode_push(struct roff *r, enum rofft tok, const char *name,
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore p = mandoc_calloc(1, sizeof(struct roffnode));
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov/* --- roff parser state data management ---------------------------------- */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore for (i = 0; i < 128; i++)
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov r->format = r->options & (MPARSE_MDOC | MPARSE_MAN);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov r->format = options & (MPARSE_MDOC | MPARSE_MAN);
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov/* --- syntax tree state data management ---------------------------------- */
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov man->first = mandoc_calloc(1, sizeof(*man->first));
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankovroff_man_alloc(struct roff *roff, struct mparse *parse,
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov/* --- syntax tree handling ----------------------------------------------- */
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankovroff_node_alloc(struct roff_man *man, int line, int pos,
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankovroff_node_append(struct roff_man *man, struct roff_node *n)
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov switch (n->type) {
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov * Copy over the normalised-data pointer of our parent. Not
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov * everybody has one, but copying a null pointer is fine.
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankovroff_word_alloc(struct roff_man *man, int line, int pos, const char *word)
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov n = roff_node_alloc(man, line, pos, ROFFT_TEXT, TOKEN_NONE);
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankovroff_word_append(struct roff_man *man, const char *word)
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov mandoc_asprintf(&newstr, "%s %s", n->string, addstr);
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankovroff_elem_alloc(struct roff_man *man, int line, int pos, int tok)
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov n = roff_node_alloc(man, line, pos, ROFFT_ELEM, tok);
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankovroff_block_alloc(struct roff_man *man, int line, int pos, int tok)
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov n = roff_node_alloc(man, line, pos, ROFFT_BLOCK, tok);
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankovroff_head_alloc(struct roff_man *man, int line, int pos, int tok)
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov n = roff_node_alloc(man, line, pos, ROFFT_HEAD, tok);
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankovroff_body_alloc(struct roff_man *man, int line, int pos, int tok)
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov n = roff_node_alloc(man, line, pos, ROFFT_BODY, tok);
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankovroff_addeqn(struct roff_man *man, const struct eqn *eqn)
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov n = roff_node_alloc(man, eqn->ln, eqn->pos, ROFFT_EQN, TOKEN_NONE);
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankovroff_addtbl(struct roff_man *man, const struct tbl_span *tbl)
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov n = roff_node_alloc(man, tbl->line, 0, ROFFT_TBL, TOKEN_NONE);
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankovroff_node_unlink(struct roff_man *man, struct roff_node *n)
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov /* Adjust siblings. */
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov /* Adjust parent. */
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov /* Adjust parse point. */
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov if (n->type == ROFFT_BLOCK || n->type == ROFFT_ELEM)
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankovroff_node_delete(struct roff_man *man, struct roff_node *n)
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov /* Skip leading whitespace and escape sequences. */
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov /* Skip trailing whitespace. */
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov /* Skip empty strings. */
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov mandoc_asprintf(&cp, "%s %*s", *dest, (int)sz, cp);
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov/* --- main functions of the roff parser ---------------------------------- */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * In the current line, expand escape sequences that tend to get
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * used in numerical expressions and conditional requests.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * Also check the syntax of the remaining escape sequences.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankovroff_res(struct roff *r, struct buf *buf, int ln, int pos)
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov const char *start; /* start of the string to process */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov char *stesc; /* start of an escape sequence ('\\') */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore const char *stnam; /* start of the name, after "[(*" */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore const char *cp; /* end of the name, e.g. before ']' */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore const char *res; /* the string to be substituted */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov char *nbuf; /* new buffer to copy buf->buf to */
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore size_t maxl; /* expected length of the escape name */
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore size_t naml; /* actual length of the escape name */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov enum mandoc_esc esc; /* type of the escape sequence */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov int inaml; /* length returned from mandoc_escape() */
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore int expand_count; /* to avoid infinite loops */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov int arg_complete; /* argument not interrupted by eol */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov char term; /* character terminating the escape */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* Search backwards for the next backslash. */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* If it is escaped, skip it. */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* Decide whether to expand or to check only. */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* FALLTHROUGH */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * The third character decides the length
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore * of the name of the string or register.
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * Save a pointer to the name.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov switch (*++cp) {
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore /* Advance to the end of the name. */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * Retrieve the replacement string; if it is
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * undefined, resume searching for escapes.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* use even incomplete args */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore /* Replace the escape sequence by the string. */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* Prepare for the next replacement. */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov stesc = nbuf + (stesc - buf->buf) + strlen(res);
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov * Process text streams.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankovroff_parsetext(struct buf *buf, int pos, int *offs)
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov /* Spring the input line trap. */
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov isz = mandoc_asprintf(&p, "%s\n.%s", buf->buf, roffit_macro);
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov /* Convert all breakable hyphens into ASCII_HYPH. */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov while (*p != '\0') {
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (*p == '\0')
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (*p == '\\') {
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore /* Skip over escapes. */
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore esc = mandoc_escape((const char **)&p, NULL, NULL);
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov while (*p == '-')
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore } else if (p == start) {
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankovroff_parseln(struct roff *r, int ln, struct buf *buf, int *offs)
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* Handle in-line equation delimiters. */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* Expand some escape sequences. */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * First, if a scope is open and we're not a macro, pass the
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * text through the macro's filter.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * Equations process all content themselves.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * Tables process almost all content themselves, but we want
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * to warn about macros before passing it there.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov e = (*roffs[t].text)(r, t, buf, ln, pos, pos, offs);
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov return eqn_read(&r->eqn, ln, buf->buf, ppos, offs);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (r->tbl != NULL && ( ! ctl || buf->buf[pos] == '\0'))
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* Skip empty request lines. */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * If a scope is open, go to the child handler for that macro,
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * as it may want to preprocess before doing anything with it.
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * Don't do so if an equation is open.
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov return (*roffs[t].sub)(r, t, buf, ln, ppos, pos, offs);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* No scope is open. This is a new request or macro. */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* Tables ignore most macros. */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (r->tbl != NULL && (t == ROFF_MAX || t == ROFF_TS)) {
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov while (buf->buf[pos] != '\0' && buf->buf[pos] != ' ')
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov while (buf->buf[pos] != '\0' && buf->buf[pos] == ' ')
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * This is neither a roff request nor a user-defined macro.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * Let the standard macro set parsers handle it.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* Execute a roff request or a user defined macro. */
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov return (*roffs[t].proc)(r, t, buf, ln, ppos, pos, offs);
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * Parse a roff node's type from the input buffer. This must be in the
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * form of ".foo xxx" in the usual way.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankovroff_parse(struct roff *r, char *buf, int *pos, int ln, int ppos)
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if ('\0' == *cp || '"' == *cp || '\t' == *cp || ' ' == *cp)
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore t = (r->current_string = roff_getstrn(r, mac, maclen))
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore ? ROFF_USERDEF : roffhash_find(mac, maclen);
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov/* --- handling of request blocks ----------------------------------------- */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * A block-close `..' should only be invoked as a child of an
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * ignore macro, otherwise raise a warning and just ignore it.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* ROFF_am1 is remapped to ROFF_am in roff_block(). */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore /* ROFF_de1 is remapped to ROFF_de in roff_block(). */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov mandoc_vmsg(MANDOCERR_ARG_SKIP, r->parse, ln, pos,
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* Ignore groff compatibility mode for now. */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* Parse the macro name argument. */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* Resolve the macro name argument if it is indirect. */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (namesz && (tok == ROFF_dei || tok == ROFF_ami)) {
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if ((name = roff_getstrn(r, iname, namesz)) == NULL) {
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * At the beginning of a `de' macro, clear the existing string
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * with the same name, if there is one. New content will be
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * appended from roff_block_text() in multiline mode.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov roff_setstrn(&r->strtab, name, namesz, "", 0, 0);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* Get the custom end marker. */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* Resolve the end marker if it is indirect. */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (namesz && (tok == ROFF_dei || tok == ROFF_ami)) {
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if ((name = roff_getstrn(r, iname, namesz)) == NULL) {
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * First check whether a custom macro exists at this level. If
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * it does, then check against it. This is some of groff's
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * stranger behaviours. If we encountered a custom end-scope
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * tag and that tag also happens to be a "real" macro, then we
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * need to try interpreting it again as a real macro. If it's
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * not, then return ignore. Else continue.
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore for (i = pos, j = 0; r->last->end[j]; j++, i++)
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov while (buf->buf[i] == ' ' || buf->buf[i] == '\t')
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * If we have no custom end-query or lookup failed, then try
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * pulling it out of the hashtable.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov roff_setstr(r, r->last->name, buf->buf + ppos, 2);
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov return (*roffs[t].proc)(r, t, buf, ln, ppos, pos, offs);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov roff_setstr(r, r->last->name, buf->buf + pos, 2);
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore * Fully handle known macros when they are structurally
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore * required or when the conditional evaluated to true.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if ((t != ROFF_MAX) &&
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov return (*roffs[t].proc)(r, t, buf, ln, ppos, pos, offs);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * If `\}' occurs on a macro line without a preceding macro,
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * drop the line completely.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* Always check for the closing delimiter `\}'. */
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov/* --- handling of numeric and conditional expressions -------------------- */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * Parse a single signed integer number. Stop at the first non-digit.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * If there is at least one digit, return success and advance the
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * parse point, else return failure and let the parse point unchanged.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * Ignore overflows, treat them just like the C language.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankovroff_getnum(const char *v, int *pos, int *res, int flags)
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore n = v[p] == '-';
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (n || v[p] == '+')
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov while (isspace((unsigned char)v[p]))
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore for (*res = 0; isdigit((unsigned char)v[p]); p++)
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore if (p == *pos + n)
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* Each number may be followed by one optional scaling unit. */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov switch (v[p]) {
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * Evaluate a string comparison condition.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * The first character is the delimiter.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * Succeed if the string up to its second occurrence
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * matches the string up to its third occurence.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * Advance the cursor after the third occurrence
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * or lacking that, to the end of the line.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov s2 = s1 + 1; /* for scanning the first string */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov s3 = strchr(s2, *s1); /* for scanning the second string */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (*s3 == *s1) { /* found the final delimiter */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * Evaluate an optionally negated single character, numerical,
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * or string condition.
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankovroff_evalcond(struct roff *r, int ln, char *v, int *pos)
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore switch (v[*pos]) {
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov return (sz && roff_hasregn(r, name, sz)) == wanttrue;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (roff_evalnum(r, ln, v, pos, &number, ROFFNUM_SCALE))
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * An `.el' has no conditional body: it will consume the value
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * of the current rstack entry set in prior `ie' calls or
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * defaults to DENY.
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * If we're not an `el', however, then evaluate the conditional.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov (r->rstackpos < 0 ? 0 : r->rstack[r->rstackpos--]) :
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * An if-else will put the NEGATION of the current evaluated
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * conditional into the stack of rules.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov r->rstacksz, sizeof(int));
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore /* If the parent has false as its rule, then so do we. */
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore * Determine scope.
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore * If there is nothing on the line after the conditional,
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore * not even whitespace, use next-line scope.
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore /* An opening brace requests multiline scope. */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (buf->buf[pos] == '\\' && buf->buf[pos + 1] == '{') {
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore * Anything else following the conditional causes
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore * single-line scope. Warn if the scope contains
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore * nothing but trailing whitespace.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* Ignore groff compatibility mode for now. */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * The first word is the name of the string.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * If it is empty or terminated by an escape sequence,
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * abort the `ds' request without defining anything.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* Read past the initial double-quote, if any. */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore /* The rest is the value. */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov roff_setstrn(&r->strtab, name, namesz, string, strlen(string),
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * Parse a single operator, one or two characters long.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * If the operator is recognized, return success and advance the
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * parse point, else return failure and let the parse point unchanged.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * Evaluate either a parenthesized numeric expression
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * or a single signed integer number.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if ( ! roff_evalnum(r, ln, v, pos, res, flags | ROFFNUM_WHITE))
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * Omission of the closing parenthesis
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * is an error in validation mode,
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * but ignored in evaluation mode.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * Evaluate a complete numeric expression.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * Proceed left to right, there is no concept of precedence.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankovroff_evalnum(struct roff *r, int ln, const char *v,
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if ( ! roff_evalpar(r, ln, v, pos, &operand2, flags))
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov/* --- register management ------------------------------------------------ */
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amoreroff_setreg(struct roff *r, const char *name, int val, char sign)
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore /* Search for an existing register with the same name. */
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore /* Create a new register. */
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore reg = mandoc_malloc(sizeof(struct roffreg));
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * Handle some predefined read-only number registers.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * For now, return -1 if the requested register is not predefined;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * in case a predefined read-only register having the value -1
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * were to turn up, another special value would have to be chosen.
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankovroff_getregro(const struct roff *r, const char *name)
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov case '$': /* Number of arguments of the last macro evaluated. */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov case 'A': /* ASCII approximation mode is always off. */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov case 'g': /* Groff compatibility mode is always on. */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov case 'T': /* Some output device is always defined. */
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amoreroff_getreg(const struct roff *r, const char *name)
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if ('.' == name[0] && '\0' != name[1] && '\0' == name[2]) {
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amoreroff_getregn(const struct roff *r, const char *name, size_t len)
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankovroff_hasregn(const struct roff *r, const char *name, size_t len)
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (roff_evalnum(r, ln, val, NULL, &iv, ROFFNUM_SCALE))
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov/* --- handler functions for roff requests -------------------------------- */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov namesz = roff_getname(r, &cp, ln, (int)(cp - buf->buf));
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov roff_setstrn(&r->strtab, name, namesz, NULL, 0, 0);
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore /* Parse the number of lines. */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if ( ! roff_evalnum(r, ln, buf->buf, &pos, &iv, 0)) {
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * Arm the input line trap.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * Special-casing "an-trap" is an ugly workaround to cope
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * with DocBook stupidly fiddling with man(7) internals.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if ((r->options & (MPARSE_MDOC | MPARSE_QUICK)) == 0)
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * Handle in-line equation delimiters.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankovroff_eqndelim(struct roff *r, struct buf *buf, int pos)
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov const char *bef_pr, *bef_nl, *mac, *aft_nl, *aft_pr;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * Outside equations, look for an opening delimiter.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * If we are inside an equation, we already know it is
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * in-line, or this function wouldn't have been called;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * so look for a closing delimiter.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* Handle preceding text, protecting whitespace. */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * Prepare replacing the delimiter with an equation macro
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * and drop leading white space from the equation.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* Handle following text, protecting whitespace. */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* Do the actual replacement. */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov buf->sz = mandoc_asprintf(&cp1, "%s%s%s%s%s%s%s", buf->buf,
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* Toggle the in-line state of the eqn subsystem. */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov mandoc_vmsg(MANDOCERR_ARG_SKIP, r->parse, ln, pos,
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov mandoc_msg(MANDOCERR_BLK_NOTOPEN, r->parse, ln, ppos, "EN");
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore const char *p;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (*p != '\0')
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (*p == '\0') {
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov mandoc_msg(MANDOCERR_REQ_EMPTY, r->parse, ln, ppos, "tr");
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov while (*p != '\0') {
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov sizeof(struct roffstr));
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore r->xtab[(int)*first].p = mandoc_strndup(second, ssz);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov mandoc_vmsg(MANDOCERR_SO, r->parse, ln, ppos, "so %s", name);
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * Handle `so'. Be EXTREMELY careful, as we shouldn't be
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * opening anything that's not in our cwd or anything beneath
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * it. Thus, explicitly disallow traversing up the file-system
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * or using absolute paths.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (*name == '/' || strstr(name, "../") || strstr(name, "/..")) {
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov mandoc_vmsg(MANDOCERR_SO_PATH, r->parse, ln, ppos,
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov/* --- user defined strings and macros ------------------------------------ */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * Collect pointers to macro argument strings
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore * and NUL-terminate them.
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov for (i = 0; i < 9; i++) {
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov arg[i] = mandoc_getarg(r->parse, &cp, ln, &pos);
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * Expand macro arguments.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* Scan ahead for the next argument invocation. */
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov if (*cp == '*') { /* \\$* inserts all arguments */
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov } else { /* \\$1 .. \\$9 insert one argument */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * Determine the size of the expanded argument,
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * taking escaping of quotes into account.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * Determine the size of the rest of the
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * unexpanded macro, including the NUL.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * When shrinking, move before
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * releasing the storage.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * Resize the storage for the macro
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * and readjust the parse pointer.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * When growing, make room
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * for the expanded argument.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* Copy the expanded argument, escaping quotes. */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * Replace the macro invocation
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * by the expanded macro.
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov return buf->sz > 1 && buf->buf[buf->sz - 2] == '\n' ?
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amoreroff_getname(struct roff *r, char **cpp, int ln, int pos)
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* Read until end of name and terminate it with NUL. */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov mandoc_vmsg(MANDOCERR_NAMESC, r->parse, ln, pos,
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore /* Read past spaces. */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * Store *string into the user-defined string called *name.
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * To clear an existing entry, call with (*r, *name, NULL, 0).
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * append == 0: replace mode
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * append == 1: single-line append mode
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * append == 2: multiline append mode, append '\n' after each call
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amoreroff_setstr(struct roff *r, const char *name, const char *string,
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore roff_setstrn(&r->strtab, name, strlen(name), string,
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amoreroff_setstrn(struct roffkv **r, const char *name, size_t namesz,
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov const char *string, size_t stringsz, int append)
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore /* Search for an existing string with the same name. */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore /* Create a new string table entry. */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov } else if (0 == append) {
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * One additional byte for the '\n' in multiline mode,
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * and one for the terminating '\0'.
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore n->val.p = mandoc_realloc(n->val.p, oldch + newch);
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore /* Skip existing content in the destination buffer. */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore /* Append new content to the destination buffer. */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore while (i < (int)stringsz) {
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * Rudimentary roff copy mode:
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * Handle escaped backslashes.
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore if ('\\' == string[i] && '\\' == string[i + 1])
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore /* Append terminating bytes. */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amorestatic const char *
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amoreroff_getstrn(const struct roff *r, const char *name, size_t len)
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore const struct roffkv *n;
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov return n->val.p;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov for (i = 0; i < PREDEFS_MAX; i++)
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore for (n = r; n; n = nn) {
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov/* --- accessors and utility functions ------------------------------------ */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amoreconst struct eqn *
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * Duplicate an input string, making the appropriate character
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * conversations (as stipulated by `tr') along the way.
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * Returns a heap-allocated string with all the replacements made.
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amoreroff_strdup(const struct roff *r, const char *p)
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore else if ('\0' == *p)
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * Step through each character looking for term matches
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * (remember that a `tr' can be invoked with an escape, which is
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * a glyph but the escape is multi-character).
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * We only do this if the character hash has been initialised
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * and the string is >0 length.
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore while ('\0' != *p) {
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore if ('\\' != *p && r->xtab && r->xtab[(int)*p].p) {
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore } else if ('\\' != *p) {
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore /* Search for term matches. */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * A match has been found.
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * Append the match to the array and move
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * forward by its keysize.
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * Handle escapes carefully: we need to copy
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * over just the escape itself, or else we might
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * do replacements within the escape itself.
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * Make sure to pass along the bogus string.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * We bail out on bad escapes.
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * No need to warn: we already did so when
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * roff_res() was called.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * Find out whether a line is a macro line or not.
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore * If it is, adjust the current position and return one; if it isn't,
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore * return zero and don't change the current position.
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore * If the control character has been set with `.cc', then let that grain
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore * precedence.
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore * This is slighly contrary to groff, where using the non-breaking
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore * control character when `cc' has been invoked will cause the
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore * non-breaking macro contents to be printed verbatim.
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amoreroff_getcontrol(const struct roff *r, const char *cp, int *ppos)
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore if (0 != r->control && cp[pos] == r->control)
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore else if (0 != r->control)
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore else if ('\\' == cp[pos] && '.' == cp[pos + 1])