320 	register char *np,*op; register int ninbuf;  local
321 	dump(); np=pbuf-(p-inp); op=inp;
322 	if (bob(np+1)) {pperror("token too long"); np=pbeg; p=inp+BUFSIZ;}
323 	macdam += np-inp; outp=inp=np;
324 	while (op<p) *np++= *op++;
325 	p=np;
328 			op=instack[--mactop]; np=pbuf;
329 			do {while (*np++= *op++);} while (op<endbuf[mactop]); pend=np-1;
346 					np=p; *np++='\n';	/* shut off unterminated quoted string */
347 					while (--n>=0) *np++=')';	/* supply missing parens */
348 					pend=np; *np='\0'; if (plvl<0) plvl=0;
541 	register char *np,*op; register int d;  local
547 	if (fretop>0) np=bufstack[--fretop];
549 		np=malloc(BUFSIZ+1);
550 		if (np==NULL) {pperror("no space"); exit(exfail);}
551 		np[BUFSIZ]='\0';
553 	instack[mactop]=np; op=pend-BUFSIZ; if (op<p) op=p;
554 	for (;;) {while (*np++= *op++); if (eob(op)) break;} /* out with old */
555 	endbuf[mactop++]=np;	/* mark end of saved text */
556 	np=pbuf+BUFSIZ; op=pend-BUFSIZ; pend=np; if (op<p) op=p;
557 	while (outp<op) *--np= *--op; /* slide over new */
558 	if (bob(np)) pperror("token too long");
559 	d=np-outp; outp+=d; inp+=d; macdam+=d; return(p+d);
645 	char **pf,**qf; int b,c,params; struct symtab *np;  local
661 	np=slookup(pin,p,1);
662 	if (oldval=np->value) free(lastcopy);	/* was previously defined */
675 				--lineno[ifno]; --p; pperror("%s: missing )",np->name); break;
735 			--lineno[ifno]; ppwarn("%s redefined",np->name); ++lineno[ifno];
736 			np->value=psav-1;
738 	} else np->value=psav-1;
740 	if (np->value == psav-1) {
746 		np->value += newspace-space;
757 	register struct symtab *np;  local
761 	*--inp=SALT; outp=inp; ++flslvl; np=slookup(inp,p,0); --flslvl;
762 	if (np==defloc) {/* define */
764 	} else if (np==incloc) {/* include */
766 	} else if (np==ifnloc) {/* ifndef */
767 		++flslvl; p=skipbl(p); np=slookup(inp,p,0); --flslvl;
768 		if (flslvl==0 && np->value==0) ++trulvl;
770 	} else if (np==ifdloc) {/* ifdef */
771 		++flslvl; p=skipbl(p); np=slookup(inp,p,0); --flslvl;
772 		if (flslvl==0 && np->value!=0) ++trulvl;
774 	} else if (np==eifloc) {/* endif */
778 	} else if (np==elsloc) {/* else */
785 	} else if (np==udfloc) {/* undefine */
789 	} else if (np==ifloc) {/* if */
798 	} else if (np==lneloc) {/* line */
843 	} else if (np==identloc) {/* ident (for Sys 5r3 compat) */
927 	register char *np, *snp;  local
932 	np=namep; around=0; i=cinit;
933 	while (c= *np++) i += i+c; c=i;	/* c=i for register usage on pdp11 */
937 		np = namep;
938 		while (*snp++ == *np) if (*np++ == '\0') {
952 	register char *p3; char c2,c3; struct symtab *np;  local
957 	np=lookup(p1,enterf); *p3=c3; *p2=c2;
958 	if (np->value!=0 && flslvl==0) newp=subst(p2,np);
960 	return(np);