usr.bin/mandoc/roff.c

145 			 int ln, /* parse line */ \
1237 roff_parse_comment(struct roff *r, struct buf *buf, int ln, int pos, char ec)
1307 			mandoc_msg(MANDOCERR_RCS_REP, ln,
1319 		    ln, (int)(ep - buf->buf), NULL);
1327 		n = roff_node_alloc(r->man, ln, stesc + 1 - buf->buf,
1357 roff_expand(struct roff *r, struct buf *buf, int ln, int pos, char ec)
1406 		if (roff_escape(buf->buf, ln, pos, &iesc, &inam,
1464 			mandoc_msg(MANDOCERR_STR_UNDEF, ln, iesc,
1470 				mandoc_msg(MANDOCERR_ARG_UNDEF, ln, iesc,
1486 				mandoc_msg(MANDOCERR_ARG_NONUM, ln, iesc,
1530 			    roff_evalnum(r, ln, buf->buf + iarg, &npos,
1537 			mandoc_msg(MANDOCERR_UNSUPP, ln, iesc,
1591 			mandoc_msg(MANDOCERR_ROFFLOOP, ln, iesc, NULL);
1624 roff_getarg(struct roff *r, char **cpp, int ln, int *pos)
1695 		mandoc_msg(MANDOCERR_ARG_QUOTE, ln, *pos, NULL);
1709 		mandoc_msg(MANDOCERR_SPACE_EOL, ln, *pos, NULL);
1718 	if (roff_expand(r, &buf, ln, 0, '\\') == ROFF_IGN) {
1796 roff_parseln(struct roff *r, int ln, struct buf *buf, int *offs, size_t len)
1812 		mandoc_msg(MANDOCERR_TEXT_LONG, ln, (int)len - 1,
1828 	e = roff_parse_comment(r, buf, ln, pos, r->escape);
1833 	e = roff_expand(r, buf, ln, pos, r->escape);
1850 		e = (*roffs[t].text)(r, t, buf, ln, pos, pos, offs);
1861 		tbl_read(r->tbl, ln, buf->buf, ppos);
1862 		roff_addtbl(r->man, ln, r->tbl);
1873 		mandoc_msg(MANDOCERR_COMMENT_BAD, ln, pos, NULL);
1885 		return (*roffs[t].sub)(r, t, buf, ln, ppos, pos, offs);
1890 	t = roff_parse(r, buf->buf, &pos, ln, ppos);
1891 	return roff_req_or_macro(r, t, buf, ln, spos, pos, offs);
1907 		    ln, ppos, "%s", buf->buf + ppos);
1914 		tbl_read(r->tbl, ln, buf->buf, pos);
1915 		roff_addtbl(r->man, ln, r->tbl);
1940 	return (*roffs[tok].proc)(r, tok, buf, ln, ppos, pos, offs);
1989 roff_parse(struct roff *r, char *buf, int *pos, int ln, int ppos)
2003 	maclen = roff_getname(r, &cp, ln, ppos);
2039 		mandoc_msg(MANDOCERR_BLK_NOTOPEN, ln, ppos, "..");
2055 		mandoc_msg(MANDOCERR_BLK_NOTOPEN, ln, ppos, "..");
2069 		roff_cond_checkend(r, tok, buf, ln, ppos, pos, &rr);
2073 		mandoc_msg(MANDOCERR_ARG_SKIP, ln, pos,
2103 roff_ccond(struct roff *r, int ln, int ppos)
2106 		mandoc_msg(MANDOCERR_BLK_NOTOPEN, ln, ppos, "\\}");
2117 		mandoc_msg(MANDOCERR_BLK_NOTOPEN, ln, ppos, "\\}");
2122 		mandoc_msg(MANDOCERR_BLK_NOTOPEN, ln, ppos, "\\}");
2156 		namesz = roff_getname(r, &cp, ln, ppos);
2167 			    ln, (int)(iname - buf->buf),
2177 		    ln, ppos, "%s", roff_name[tok]);
2181 	roffnode_push(r, tok, name, ln, ppos);
2227 	namesz = roff_getname(r, &cp, ln, ppos);
2236 			    ln, (int)(iname - buf->buf),
2249 		    ln, pos, ".%s ... %s", roff_name[tok], cp);
2281 			if (roff_parse(r, buf->buf, &pos, ln, ppos) !=
2290 	t = roff_parse(r, buf->buf, &pos, ln, ppos);
2292 		return roff_cblock(r, t, buf, ln, ppos, pos, offs);
2356 			if (roff_ccond(r, ln, ep - buf->buf))
2382 	irc = roff_cond_checkend(r, tok, buf, ln, ppos, pos, &rr);
2384 	t = roff_parse(r, buf->buf, &pos, ln, ppos);
2403 		irc |= roff_req_or_macro(r, t, buf, ln, spos, pos, offs);
2419 	irc = roff_cond_checkend(r, tok, buf, ln, ppos, pos, &rr);
2547 roff_evalcond(struct roff *r, int ln, char *v, int *pos)
2617 		sz = roff_getname(r, &cp, ln, cp - v);
2634 	if (roff_evalnum(r, ln, v, pos, &number, ROFFNUM_SCALE))
2653 	mandoc_msg(MANDOCERR_REQ_INSEC, ln, ppos, "%s", roff_name[tok]);
2661 	mandoc_msg(MANDOCERR_REQ_UNSUPP, ln, ppos, "%s", roff_name[tok]);
2670 	roffnode_push(r, tok, NULL, ln, ppos);
2682 	    roff_evalcond(r, ln, buf->buf, &pos);
2736 		    ln, ppos, "%s", roff_name[tok]);
2772 	namesz = roff_getname(r, &string, ln, pos);
2863 roff_evalpar(struct roff *r, int ln,
2871 	if ( ! roff_evalnum(r, ln, v, pos, res, flags | ROFFNUM_WHITE))
2893 roff_evalnum(struct roff *r, int ln, const char *v,
2908 	if ( ! roff_evalpar(r, ln, v, pos, res, flags))
2923 		if ( ! roff_evalpar(r, ln, v, pos, &operand2, flags))
2946 					ln, *pos, "%s", v);
2955 					ln, *pos, "%s", v);
3156 	keysz = roff_getname(r, &val, ln, pos);
3165 	if (roff_evalnum(r, ln, val, &len, &iv, ROFFNUM_SCALE) == 0)
3171 	if (roff_evalnum(r, ln, step, NULL, &is, 0) == 0)
3188 	namesz = roff_getname(r, &cp, ln, pos);
3218 		namesz = roff_getname(r, &cp, ln, (int)(cp - buf->buf));
3234 	if ( ! roff_evalnum(r, ln, buf->buf, &pos, &iv, 0)) {
3236 		    ln, ppos, "%s", buf->buf + 1);
3291 		mandoc_msg(MANDOCERR_BLK_NOTOPEN, ln, ppos, "TE");
3311 		mandoc_msg(MANDOCERR_BLK_NOTOPEN, ln, ppos, "T&");
3313 		tbl_restart(ln, ppos, r->tbl);
3391 	n = roff_node_alloc(r->man, ln, ppos, ROFFT_EQN, TOKEN_NONE);
3392 	if (ln > r->man->last->line)
3407 		mandoc_msg(MANDOCERR_ARG_SKIP, ln, pos,
3420 		mandoc_msg(MANDOCERR_BLK_NOTOPEN, ln, ppos, "EN");
3422 		mandoc_msg(MANDOCERR_ARG_SKIP, ln, pos,
3431 		mandoc_msg(MANDOCERR_BLK_BROKEN, ln, ppos, "TS breaks TS");
3435 	r->tbl = tbl_alloc(ppos, ln, r->last_tbl);
3449 	roff_elem_alloc(r->man, ln, ppos, tok);
3451 		mandoc_msg(MANDOCERR_ARG_SKIP, ln, pos,
3479 	roff_elem_alloc(r->man, ln, ppos, tok);
3490 			    ln, (int)(cp - buf->buf),
3492 		roff_word_alloc(r->man, ln, pos, buf->buf + pos);
3497 			roff_word_alloc(r->man, ln, pos, "1");
3501 		if (roff_evalnum(r, ln, r->man->last->string, &npos,
3504 			    ln, pos, "ce %s", buf->buf + pos);
3528 	roff_elem_alloc(r->man, ln, ppos, tok);
3536 		roff_word_alloc(r->man, ln, sp - buf->buf, sp);
3555 	newsz = roff_getname(r, &oldn, ln, pos);
3560 	oldsz = roff_getname(r, &end, ln, oldn - buf->buf);
3579 	mandoc_msg(MANDOCERR_BLK_NOTOPEN, ln, pos, "break");
3595 		    ln, p - buf->buf, "cc ... %s", p);
3614 		mandoc_msg(MANDOCERR_CHAR_ARG, ln, pos, "char %s", kp);
3650 		    ln, (int)(vp - buf->buf), "%s", vp);
3683 			mandoc_msg(MANDOCERR_ARG_EXCESS, ln,
3695 		    ln, pos, "eo %s", buf->buf + pos);
3718 			mandoc_msg(MANDOCERR_MC_ESC, ln, pos,
3730 		mandoc_msg(MANDOCERR_MC_DIST, ln, (int)(cp - buf->buf),
3737 	roff_elem_alloc(r->man, ln, ppos, tok);
3740 		roff_word_alloc(r->man, ln, pos, buf->buf + pos);
3765 		mandoc_msg(MANDOCERR_REQ_EMPTY, ln, ppos, "tr");
3785 			mandoc_msg(MANDOCERR_TR_ODD, ln,
3821 	mandoc_msg(MANDOCERR_REQ_NOMAC, ln, ppos, "return");
3837 	oldsz = roff_getname(r, &newn, ln, pos);
3842 	newsz = roff_getname(r, &end, ln, newn - buf->buf);
3884 	    roff_evalnum(r, ln, buf->buf, &pos, &levels, 0) == 0) {
3886 		    ln, pos, "shift %s", buf->buf + pos);
3890 		mandoc_msg(MANDOCERR_REQ_NOMAC, ln, ppos, "shift");
3896 		    ln, argpos, "%d, but max is %d", levels, ctx->argc);
3900 		mandoc_msg(MANDOCERR_ARG_NEG, ln, argpos, "shift %d", levels);
3919 	mandoc_msg(MANDOCERR_SO, ln, ppos, "so %s", name);
3929 		mandoc_msg(MANDOCERR_SO_PATH, ln, ppos, ".so %s", name);
3978 		arg = roff_getarg(r, &src, ln, &pos);
4027 roff_getname(struct roff *r, char **cpp, int ln, int pos)
4060 			mandoc_msg(MANDOCERR_NAMESC, ln, pos,