371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov/* $Id: man_macro.c,v 1.114 2016/01/08 17:48:09 schwarze Exp $ */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore/*
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * Copyright (c) 2008, 2009, 2010, 2011 Kristaps Dzonsons <kristaps@bsd.lv>
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * Copyright (c) 2012, 2013, 2014, 2015 Ingo Schwarze <schwarze@openbsd.org>
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore * Copyright (c) 2013 Franco Fichtner <franco@lastsummer.de>
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore *
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 *
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov * 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
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov * 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 */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore#include "config.h"
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov#include <sys/types.h>
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore#include <assert.h>
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore#include <ctype.h>
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore#include <stdlib.h>
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore#include <string.h>
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore#include "mandoc.h"
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov#include "roff.h"
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov#include "man.h"
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore#include "libmandoc.h"
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov#include "roff_int.h"
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore#include "libman.h"
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankovstatic void blk_close(MACRO_PROT_ARGS);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankovstatic void blk_exp(MACRO_PROT_ARGS);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankovstatic void blk_imp(MACRO_PROT_ARGS);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankovstatic void in_line_eoln(MACRO_PROT_ARGS);
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankovstatic int man_args(struct roff_man *, int,
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore int *, char *, char **);
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankovstatic void rew_scope(struct roff_man *, int);
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amoreconst struct man_macro __man_macros[MAN_MAX] = {
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { in_line_eoln, MAN_NSCOPED }, /* br */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { in_line_eoln, MAN_BSCOPE }, /* TH */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { blk_imp, MAN_BSCOPE | MAN_SCOPED }, /* SH */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { blk_imp, MAN_BSCOPE | MAN_SCOPED }, /* SS */
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov { blk_imp, MAN_BSCOPE | MAN_SCOPED }, /* TP */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { blk_imp, MAN_BSCOPE }, /* LP */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { blk_imp, MAN_BSCOPE }, /* PP */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { blk_imp, MAN_BSCOPE }, /* P */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { blk_imp, MAN_BSCOPE }, /* IP */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { blk_imp, MAN_BSCOPE }, /* HP */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { in_line_eoln, MAN_SCOPED | MAN_JOIN }, /* SM */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { in_line_eoln, MAN_SCOPED | MAN_JOIN }, /* SB */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { in_line_eoln, 0 }, /* BI */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { in_line_eoln, 0 }, /* IB */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { in_line_eoln, 0 }, /* BR */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { in_line_eoln, 0 }, /* RB */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { in_line_eoln, MAN_SCOPED | MAN_JOIN }, /* R */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { in_line_eoln, MAN_SCOPED | MAN_JOIN }, /* B */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { in_line_eoln, MAN_SCOPED | MAN_JOIN }, /* I */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { in_line_eoln, 0 }, /* IR */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { in_line_eoln, 0 }, /* RI */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { in_line_eoln, MAN_NSCOPED }, /* sp */
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov { in_line_eoln, MAN_NSCOPED }, /* nf */
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov { in_line_eoln, MAN_NSCOPED }, /* fi */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { blk_close, MAN_BSCOPE }, /* RE */
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov { blk_exp, MAN_BSCOPE }, /* RS */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { in_line_eoln, 0 }, /* DT */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { in_line_eoln, 0 }, /* UC */
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov { in_line_eoln, MAN_NSCOPED }, /* PD */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { in_line_eoln, 0 }, /* AT */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { in_line_eoln, 0 }, /* in */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { in_line_eoln, 0 }, /* ft */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore { in_line_eoln, 0 }, /* OP */
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore { in_line_eoln, MAN_BSCOPE }, /* EX */
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore { in_line_eoln, MAN_BSCOPE }, /* EE */
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov { blk_exp, MAN_BSCOPE }, /* UR */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { blk_close, MAN_BSCOPE }, /* UE */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov { in_line_eoln, 0 }, /* ll */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore};
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amoreconst struct man_macro * const man_macros = __man_macros;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankovvoid
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankovman_unscope(struct roff_man *man, const struct roff_node *to)
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore{
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov struct roff_node *n;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov to = to->parent;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov n = man->last;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov while (n != to) {
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* Reached the end of the document? */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (to == NULL && ! (n->flags & MAN_VALID)) {
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (man->flags & (MAN_BLINE | MAN_ELINE) &&
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov man_macros[n->tok].flags & MAN_SCOPED) {
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov mandoc_vmsg(MANDOCERR_BLK_LINE,
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov man->parse, n->line, n->pos,
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov "EOF breaks %s",
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov man_macronames[n->tok]);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (man->flags & MAN_ELINE)
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov man->flags &= ~MAN_ELINE;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov else {
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov assert(n->type == ROFFT_HEAD);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov n = n->parent;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov man->flags &= ~MAN_BLINE;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov }
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov man->last = n;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov n = n->parent;
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov roff_node_delete(man, man->last);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov continue;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov }
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov if (n->type == ROFFT_BLOCK &&
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov man_macros[n->tok].fp == blk_exp)
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov mandoc_msg(MANDOCERR_BLK_NOEND,
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov man->parse, n->line, n->pos,
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov man_macronames[n->tok]);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov }
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore /*
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * We might delete the man->last node
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * in the post-validation phase.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * Save a pointer to the parent such that
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * we know where to continue the iteration.
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore man->last = n;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov n = n->parent;
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov man->last->flags |= MAN_VALID;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore }
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /*
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * If we ended up at the parent of the node we were
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * supposed to rewind to, that means the target node
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * got deleted, so add the next node we parse as a child
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * of the parent instead of as a sibling of the target.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov man->next = (man->last == to) ?
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov ROFF_NEXT_CHILD : ROFF_NEXT_SIBLING;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore}
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore/*
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * Rewinding entails ascending the parse tree until a coherent point,
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * for example, the `SH' macro will close out any intervening `SS'
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * scopes. When a scope is closed, it must be validated and actioned.
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankovstatic void
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankovrew_scope(struct roff_man *man, int tok)
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore{
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov struct roff_node *n;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov /* Preserve empty paragraphs before RS. */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov n = man->last;
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov if (tok == MAN_RS && n->child == NULL &&
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov (n->tok == MAN_P || n->tok == MAN_PP || n->tok == MAN_LP))
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov return;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov for (;;) {
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov if (n->type == ROFFT_ROOT)
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov return;
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov if (n->flags & MAN_VALID) {
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov n = n->parent;
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov continue;
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov }
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov if (n->type != ROFFT_BLOCK) {
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov if (n->parent->type == ROFFT_ROOT) {
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov man_unscope(man, n);
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov return;
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov } else {
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov n = n->parent;
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov continue;
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov }
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov }
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov if (tok != MAN_SH && (n->tok == MAN_SH ||
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov (tok != MAN_SS && (n->tok == MAN_SS ||
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov man_macros[n->tok].fp == blk_exp))))
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov return;
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov man_unscope(man, n);
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov n = man->last;
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov }
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore}
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore/*
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * Close out a generic explicit macro.
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankovvoid
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amoreblk_close(MACRO_PROT_ARGS)
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore{
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov int ntok;
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov const struct roff_node *nn;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov char *p;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov int nrew, target;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov nrew = 1;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore switch (tok) {
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov case MAN_RE:
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore ntok = MAN_RS;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if ( ! man_args(man, line, pos, buf, &p))
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov break;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov for (nn = man->last->parent; nn; nn = nn->parent)
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov if (nn->tok == ntok && nn->type == ROFFT_BLOCK)
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov nrew++;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov target = strtol(p, &p, 10);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (*p != '\0')
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov mandoc_vmsg(MANDOCERR_ARG_EXCESS, man->parse,
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov line, p - buf, "RE ... %s", p);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (target == 0)
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov target = 1;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov nrew -= target;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (nrew < 1) {
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov mandoc_vmsg(MANDOCERR_RE_NOTOPEN, man->parse,
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov line, ppos, "RE %d", target);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov return;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov }
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore break;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov case MAN_UE:
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore ntok = MAN_UR;
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore break;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore default:
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore abort();
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore }
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore for (nn = man->last->parent; nn; nn = nn->parent)
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov if (nn->tok == ntok && nn->type == ROFFT_BLOCK && ! --nrew)
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore break;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (nn == NULL) {
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov mandoc_msg(MANDOCERR_BLK_NOTOPEN, man->parse,
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov line, ppos, man_macronames[tok]);
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov rew_scope(man, MAN_PP);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov } else {
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov line = man->last->line;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov ppos = man->last->pos;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov ntok = man->last->tok;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov man_unscope(man, nn);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* Move a trailing paragraph behind the block. */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (ntok == MAN_LP || ntok == MAN_PP || ntok == MAN_P) {
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov *pos = strlen(buf);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov blk_imp(man, ntok, line, ppos, pos, buf);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov }
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov }
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore}
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankovvoid
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amoreblk_exp(MACRO_PROT_ARGS)
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore{
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov struct roff_node *head;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore char *p;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov int la;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov rew_scope(man, tok);
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov roff_block_alloc(man, line, ppos, tok);
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov head = roff_head_alloc(man, line, ppos, tok);
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov la = *pos;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (man_args(man, line, pos, buf, &p))
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov roff_word_alloc(man, line, la, p);
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (buf[*pos] != '\0')
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov mandoc_vmsg(MANDOCERR_ARG_EXCESS,
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov man->parse, line, *pos, "%s ... %s",
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov man_macronames[tok], buf + *pos);
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov man_unscope(man, head);
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov roff_body_alloc(man, line, ppos, tok);
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore}
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore/*
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov * Parse an implicit-block macro. These contain a ROFFT_HEAD and a
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov * ROFFT_BODY contained within a ROFFT_BLOCK. Rules for closing out other
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * scopes, such as `SH' closing out an `SS', are defined in the rew
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * routines.
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankovvoid
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amoreblk_imp(MACRO_PROT_ARGS)
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore{
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore int la;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore char *p;
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov struct roff_node *n;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov rew_scope(man, tok);
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov n = roff_block_alloc(man, line, ppos, tok);
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov if (n->tok == MAN_SH || n->tok == MAN_SS)
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov man->flags &= ~MAN_LITERAL;
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov n = roff_head_alloc(man, line, ppos, tok);
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore /* Add line arguments. */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore for (;;) {
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore la = *pos;
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore if ( ! man_args(man, line, pos, buf, &p))
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore break;
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov roff_word_alloc(man, line, la, p);
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore }
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov /*
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov * For macros having optional next-line scope,
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov * keep the head open if there were no arguments.
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov * For `TP', always keep the head open.
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov if (man_macros[tok].flags & MAN_SCOPED &&
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov (tok == MAN_TP || n == man->last)) {
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov man->flags |= MAN_BLINE;
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov return;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore }
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov /* Close out the head and open the body. */
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov man_unscope(man, n);
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov roff_body_alloc(man, line, ppos, tok);
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore}
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankovvoid
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amorein_line_eoln(MACRO_PROT_ARGS)
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore{
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore int la;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore char *p;
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov struct roff_node *n;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov roff_elem_alloc(man, line, ppos, tok);
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore n = man->last;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore for (;;) {
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (buf[*pos] != '\0' && (tok == MAN_br ||
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov tok == MAN_fi || tok == MAN_nf)) {
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov mandoc_vmsg(MANDOCERR_ARG_SKIP,
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov man->parse, line, *pos, "%s %s",
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov man_macronames[tok], buf + *pos);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov break;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov }
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (buf[*pos] != '\0' && man->last != n &&
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov (tok == MAN_PD || tok == MAN_ft || tok == MAN_sp)) {
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov mandoc_vmsg(MANDOCERR_ARG_EXCESS,
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov man->parse, line, *pos, "%s ... %s",
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov man_macronames[tok], buf + *pos);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov break;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov }
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore la = *pos;
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore if ( ! man_args(man, line, pos, buf, &p))
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore break;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (man_macros[tok].flags & MAN_JOIN &&
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov man->last->type == ROFFT_TEXT)
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov roff_word_append(man, p);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov else
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov roff_word_alloc(man, line, la, p);
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore }
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore /*
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore * Append MAN_EOS in case the last snipped argument
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore * ends with a dot, e.g. `.IR syslog (3).'
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore */
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore if (n != man->last &&
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov mandoc_eos(man->last->string, strlen(man->last->string)))
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore man->last->flags |= MAN_EOS;
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore /*
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * If no arguments are specified and this is MAN_SCOPED (i.e.,
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * next-line scoped), then set our mode to indicate that we're
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * waiting for terms to load into our context.
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (n == man->last && man_macros[tok].flags & MAN_SCOPED) {
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov assert( ! (man_macros[tok].flags & MAN_NSCOPED));
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore man->flags |= MAN_ELINE;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov return;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore }
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov assert(man->last->type != ROFFT_ROOT);
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov man->next = ROFF_NEXT_SIBLING;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov /* Rewind our element scope. */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore for ( ; man->last; man->last = man->last->parent) {
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov man_state(man, man->last);
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore if (man->last == n)
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore break;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore }
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore}
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankovvoid
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankovman_endparse(struct roff_man *man)
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore{
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov man_unscope(man, man->first);
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov man->flags &= ~MAN_LITERAL;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore}
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amorestatic int
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankovman_args(struct roff_man *man, int line, int *pos, char *buf, char **v)
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore{
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore char *start;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore assert(*pos);
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore *v = start = buf + *pos;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore assert(' ' != *start);
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore if ('\0' == *start)
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov return 0;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
698f87a48e2e945bfe5493ce168e0d0ae1cedd5cGarrett D'Amore *v = mandoc_getarg(man->parse, v, line, pos);
371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov return 1;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore}