Lines Matching refs:pin
644 register char *pin,*psav,*cf; local
656 p=skipbl(p); pin=inp;
657 if ((toktyp+COFF)[*pin]!=IDENT) {
661 np=slookup(pin,p,1);
663 b=1; cf=pin;
666 if (cf!=p) xmac2(c,*cf,-1+(cf-pin),|=);
667 else xmac2(c,0,-1+(cf-pin),|=);
669 params=0; outp=inp=p; p=cotoken(p); pin=inp;
670 if (*pin=='(') {/* with parameters; identify the formals */
673 p=skipbl(p); pin=inp;
674 if (*pin=='\n') {
677 if (*pin==')') break;
678 if (*pin==',') continue;
679 if ((toktyp+COFF)[*pin]!=IDENT) {
680 c= *p; *p='\0'; pperror("bad formal: %s",pin); *p=c;
682 c= *p; *p='\0'; pperror("too many formals: %s",pin); *p=c;
684 *pf++=cf; while (pin<p) *cf++= *pin++; *cf++='\0'; ++params;
688 } else if (*pin=='\n') {--lineno[ifno]; --p;}
700 outp=inp=p; p=cotoken(p); pin=inp;
701 if (*pin=='\\' && pin[1]=='\n') {putc('\n',fout); continue;} /* ignore escaped lf */
702 if (*pin=='\n') break;
704 if ((toktyp+COFF)[*pin]==IDENT) {
706 if (equfrm(*qf,pin,p)) {
707 *psav++=qf-formal+1; *psav++=WARN; pin=p; break;
710 } else if (*pin=='"' || *pin=='\''
712 || *pin=='`'
715 char quoc= *pin;
716 for (*psav++= *pin++; pin<p && *pin!=quoc; ) {
717 while (pin<p && !isid(*pin)) *psav++= *pin++;
718 cf=pin; while (cf<p && isid(*cf)) ++cf;
720 if (equfrm(*qf,pin,cf)) {
721 *psav++=qf-formal+1; *psav++=WARN; pin=cf; break;
724 while (pin<cf) *psav++= *pin++;
728 while (pin<p) *psav++= *pin++;
739 --flslvl; inp=pin;