Return to reg.c CVS log

Up to [MW Coherent from dump] / coherent / b / bin / troff

coherent

/*
 * reg.c
 * Nroff/Troff.
 * Register manipulation.
 */

#include "roff.h"

/*
 * Return a pointer to a number register of the given name.
 */
REG *
getnreg(name) char name[2];
{
	register REG *rp;

	if ((rp = findreg(name, RNUMR)) == NULL) {
		rp = makereg(name, RNUMR);
		rp->n_reg.r_nval = 0;
		rp->n_reg.r_form = '1';
		rp->n_reg.r_incr = 1;
	}
	return rp;
}

/*
 * Create a register of the given name and type.  If one
 * already exists, remove it.
 */
REG	*
makereg(name, type) char name[2]; int type;
{
	REG **rpp;
	register REG *rp;
	register MAC *mp, *lmp;

	if (rp = findreg(name, type)) {
#if	(DDEBUG & DBGREGS)
		printd(DBGREGS,"makereg: deleting old register %c%c\n",
			name[0], name[1]);
#endif
		if (rp->t_reg.r_type == RTEXT) {
			rp->t_reg.r_maxh = 0;
			rp->t_reg.r_maxw = 0;
			mp = rp->t_reg.r_macd.t_div.m_next;
			while (mp) {
				if (mp->t_div.m_type==MTEXT &&
				    mp->t_div.m_core!=NULL)
					nfree(mp->t_div.m_core);
				lmp = mp;
				mp = mp->t_div.m_next;
				nfree(lmp);
			}
		}
	} else {
#if	(DDEBUG & DBGREGS)
		printd(DBGREGS,"makereg: creating register %c%c, type %d\n",
				name[0],name[1],type);
#endif
		rpp = &regt[hash(name)];
		rp = (REG *) nalloc(sizeof *rp);
		rp->t_reg.r_type = type;
		rp->t_reg.r_name[0] = name[0];
		rp->t_reg.r_name[1] = name[1];
		rp->t_reg.r_maxh = 0;
		rp->t_reg.r_maxw = 0;
		rp->t_reg.r_next = *rpp;
		*rpp = rp;
	}
	return rp;
}

/*
 * Remove the given text register or request.
 * Return 1 if the register is found, else 0.
 */
reltreg(name) char name[2];
{
	MAC *lmp;
	register MAC *mp;
	register REG *rp, **lrp;

#if	(DDEBUG & DBGREGS)
	printd(DBGREGS, "reltreg: removing text register %c%c\n", name[0],name[1]);
#endif
	for (lrp = &regt[hash(name)]; rp = *lrp; lrp = &rp->t_reg.r_next) {
		if (rp->n_reg.r_name[0]==name[0] &&
		    rp->n_reg.r_name[1]==name[1]) {
			if (rp->n_reg.r_type != RTEXT)
				continue;
			mp = rp->t_reg.r_macd.t_div.m_next;
			while (mp) {
				if (mp->t_div.m_type==MTEXT &&
				    mp->t_div.m_core!=NULL)
					nfree(mp->t_div.m_core);
				lmp = mp;
				mp = mp->t_div.m_next;
				nfree(lmp);
			}
			*lrp = rp->t_reg.r_next;
			nfree(rp);
			return 1;
		}
	}
	return 0;
}

/*
 * Remove the given number register.
 * Return 1 if we found it, else 0.
 */
relnreg(name) char name[2];
{
	register REG *rp, **lrp;

#if	(DDEBUG & DBGREGS)
	printd(DBGREGS, "relnreg: removing number register %c%c\n",
		name[0],name[1]);
#endif
	for (lrp = &regt[hash(name)]; rp = *lrp; lrp = &rp->t_reg.r_next) {
		if (rp->n_reg.r_name[0]==name[0] &&
		    rp->n_reg.r_name[1]==name[1]) {
			if (rp->n_reg.r_type == RNUMR) {
				*lrp = rp->t_reg.r_next;
				nfree(rp);
				return 1;
			}
		}
	}
	return 0;
}

/*
 * Given a register name and a register type,
 * return a pointer to the register if it exists or NULL if not.
 */
REG *
findreg(name, type) char name[2]; int type;
{
	register REG *rp;

#if	(DDEBUG & DBGREGX)
	printd(DBGREGX, "findreg: looking for register %c%c, type %d --",
			name[0],name[1],type);
#endif
	for (rp=regt[hash(name)]; rp; rp=rp->t_reg.r_next)
		if (rp->n_reg.r_name[0]==name[0] &&
		    rp->n_reg.r_name[1]==name[1])
			if (rp->n_reg.r_type == type) {
#if	(DDEBUG & DBGREGX)
				printd(DBGREGX, "found\n");
#endif
				return rp;
			}
#if	(DDEBUG & DBGREGX)
	printd(DBGREGX, "not found\n");
#endif
	return NULL;
}

/*
 * Convert a string to a two character register name.
 */
argname(str, name) register char *str; char name[2];
{
	if ((name[0] = str[0]) == '\0')
		name[1] = '\0';
	else
		name[1] = str[1];
}

/* end of reg.c */

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.