V7M/src/cmd/prep/prep1.c

# include <stdio.h>
# include "prep.h"
# define SKIP 0
# define COLLECT 1
# define SKIP2 2

int	tlno = 1;

coll()
{
	cs = COLLECT;
	temp[t1].beg = &line[l];
	return;
}

save()
{
	extern	only;
	char	*pt1,*pt2,cbuf[30];
	int	val;

	if(cs != COLLECT) {
		cs = SKIP;
		return;
	}
	cs = SKIP;
	line[l] = '\0';
	temp[t1].ct = &line[l] - temp[t1].beg;
	pt1 = temp[t1].beg-1;
	pt2 = cbuf-1;

	wdnum++;
	while(*++pt2 = *++pt1)
		if(*pt2 >= 'A' && *pt2 <= 'Z')
			*pt2 |= 040;

	if(igflg){
		val = search(cbuf,temp[t1].ct,&itab,0);
		if(!val == !only) goto yes;

		line[l] = c;
		return;
	}
yes:
	temp[t1++].wdno = wdnum;
	line[l] = c;
	return;
}

ctout()
{
	register int	ct;
	register char	*t2;
	int	t3;
	long	xxx;

	if(lflag) {
		fprintf(stderr, "line too long:  line %d\n",lno);
		lflag = 0;
	}
	if(cs == COLLECT)	save();

	t3 = t1;
	t1 = -1;
	while(++t1 < t3) {
		if(wdflg){
			xxx = temp[t1].wdno;
			conf(xxx, WIDTH, num);
			put(num,WIDTH+1);
		}
		ct = temp[t1].ct;
		t2 = temp[t1].beg - 1;
/*		fprintf(stderr, "out: %s	%d\n", temp[t1].beg, ct);	/*DEBUG*/
		while(ct--)
			if(*++t2 >= 'A' && *t2 <= 'Z')
				*t2 |= 040;

		ct = temp[t1].ct;
		while(*--t2 == '\'' && san == 0)
			ct--;

		put(temp[t1].beg, ct);
		put("\n", 1);
	}
	t1 = 0;
	l = -1;
	lno += tlno;
	tlno = 1;
	cs = SKIP;
	return;
}

conf(n,width,buf) 
	long n;
	char	*buf;
{
	long	a;
	auto i;

	i = width;
	while(i--)	buf[i] = ' ';

	a = n/10;
	if(a)
		width = conf(a, --width, buf);
	else
		width--;
	buf[width] = n%10 + '0';

	return(++width);
}

hyphen()
{
/*	fprintf(stderr, "hyphen\n");	/*DEBUG*/
	flag[++fl] = hyp1;
	return(1);
}

hyp1()
{
/*	fprintf(stderr, "hyp1 c = %o\n",c);	/*DEBUG*/
	if(c !=  '\n') {
		fl--;
		l--;
		save();
		l++;
		punc();
		return(0);
	} else {
		l -= 2;
		flag[fl] = hyp2;
		hsw = 1;
		return(1);
	}
}

hyp2()
{
	extern	(*acts[])();
/*	fprintf(stderr, "hyp2 c = %o l = %d\n",c,l);	/*DEBUG*/
	if(hsw && (tab[2][c] == 0)) {
		l--;
		if(c == '\n')	tlno++;
		return(1);
	}
	hsw = 0;
	if(c == '\n'){
		l--;
		return(1);
	}
	if(tab[cs][c]) {
		line[l] = '\n';
		(*acts[OUT])();
		fl--;
		return(0);
	}
	return(1);
}

gobble2()
{
	static	ct2;

	if(cs == COLLECT)	save();

	if(flag[fl] != gobble2) {
		ct2 = 1;
		flag[++fl] = gobble2;
		return(1);
	}
	if(ct2--)	return(1);

	fl--;
	cs = SKIP;
	return(1);
}

bslash()
{
	if(cs == COLLECT)	save();
	cs = SKIP2;
	return(1);
}

bsp()
{
	flag[++fl] = bsp1;
	return(1);
}

bsp1()
{
	fl--;
	if(c == '"')	return(1);

	line[--l] = c;
	return(0);
}

punc()
{

	if(cs == COLLECT)
		save();
	if(puncfl) {
		temp[t1].beg = &line[l];
		temp[t1].ct = 1;
		temp[t1++].wdno = 0;
	}
}

search(symbol,length,params,install)
	char	*symbol;
	int	length;
	struct	htab	*params;
	int	install;
{
	char	*sp,*p;
	static	int	*hptr,hsiz,nsym;
	static	int	ssiz;
	static	int	curb;
	static	char	*symt;
	auto	h,i,j;

	if(hptr != params->hptr) {
		hptr = params->hptr;
		hsiz = params->hsiz;
		symt = params->symt;
		ssiz = params->ssiz;
		curb = params->curb;
		nsym = params->nsym;
	}

	symbol[length] = '\0';
/*fprintf(stderr, "ssiz = %d; nsym = %d; %s\n", ssiz, nsym, symbol);/*DEBUG*/
	sp = symbol;

	i = length;
	h = 1;
	while(i--)
		h *= *sp++;

	if(h == 0100000) {
		h = 1;
	} else {
		h = h<0?(-h)%hsiz:h%hsiz;
	}
	if(h == 0)	h++;
/*		fprintf(stderr, "%s %d\n",symbol,h);	/*DEBUG*/

	while((p = &symt[hptr[h]]) > symt) {
		j = length + 2;
		sp = symbol;
		while(--j) {
			if(*p++ != *sp++)	goto no;
		}
		return(*p);
no:
		h++;
		if(h >= hsiz)	h -= hsiz;
	}
	if(install) {
		if(++nsym >= hsiz) {
			fprintf(stderr, "Too many symbols in ignore/only file.\n");
			exit(1);
		}

		hptr[h] = curb;
		length++;
		if((curb + length) >= ssiz) {
			fprintf(stderr, "i/o file too big; ssiz = %d\n", ssiz);
			exit(1);
		}

		while(length--)
			symt[curb++] = *symbol++;
		symt[curb++] = install;
		params->curb = curb;
		params->nsym = nsym;
	}
	return(0);
}