Lines Matching refs:c
88 register int c; local
93 if (type[(c = skipws())] != LET)
96 if ((dp = lookid(c)) == NULL) /* If not known now */
104 if ((c = get()) == '(') { /* With arguments? */
109 else if ((c = skipws()) == ')')
111 else if (type[c] != LET) /* Bad formal syntax */
113 scanid(c); /* Get the formal param */
116 } while ((c = skipws()) == ','); /* Get another argument */
117 if (c != ')') /* Must end at ) */
119 c = ' '; /* Will skip to body */
128 if (type[c] == SPA) /* At whitespace? */
129 c = skipws(); /* Not any more. */
132 while (c != EOF_CHAR && c != '\n') { /* Compile macro body */
135 if (c == COM_SEP) { /* Token concatenation? */
137 c = get();
139 if (c == '#') { /* Token concatenation? */
143 c = skipws(); /* Eat whitespace */
145 if (type[c] == LET) /* Another token here? */
147 else if (type[c] == DIG) { /* Digit string after? */
148 while (type[c] == DIG) { /* Stuff the digits */
149 save(c);
150 c = get();
156 ciwarn("Strange character after # (%d.)", c);
162 switch (type[c]) {
164 checkparm(c, dp); /* Might be a formal */
169 scannumber(c, save); /* Scan it off */
174 stparmscan(c, dp); /* Do string magic */
176 stparmscan(c);
182 if ((c = get()) == '\n')
184 save(c);
194 else if (c == '\t')
195 c = ' '; /* Normalize tabs */
198 save(c);
201 c = get();
236 void checkparm(int c, DEFBUF* dp) argument
248 scanid(c); /* Get parm to token[] */
275 register int c; local
285 while ((c = get()) != delim
286 && c != '\n'
287 && c != EOF_CHAR) {
288 if (type[c] == LET) /* Maybe formal parm */
289 checkparm(c, dp);
291 save(c);
292 if (c == '\\')
297 if (c != delim)
299 save(c);
342 register int c; local
344 if (type[(c = skipws())] != LET)
347 scanid(c); /* Get name to token[] */
372 void charput(int c) argument
380 *parmp++ = (char)c;
401 register int c; local
422 c = get();
457 while ((c = skipws()) == '\n') /* Look for (, skipping */
459 if (c != '(') {
493 register int c; local
497 while ((c = skipws()) == '\n') /* Skip over whitespace */
499 if (c == ')') { /* At end of all args? */
510 for (;; c = cget()) { /* Collect arg's bytes */
511 if (c == EOF_CHAR) {
515 else if (c == '\\') { /* Quote next character */
516 charput(c); /* Save the \ for later */
520 else if (type[c] == QUO) { /* Start of string? */
521 scanstring(c, charput); /* Scan it off */
524 else if (c == '(') /* Worry about balance */
526 else if (c == ')') { /* Other side too */
533 else if (c == ',' && paren == 0) /* Comma delimits args */
535 else if (c == '\n') /* Newline inside arg? */
537 charput(c); /* Store this one */
554 register int c; /* Current character */ local
570 while ((c = (*inp++ & 0xFF)) != EOS) {
572 if (c == DEL) {
573 c = (*inp++ & 0xFF);
575 if (c >= MAC_PARM && c <= (MAC_PARM + PAR_MAC)) {
577 string_magic = (c == (MAC_PARM + PAR_MAC));
579 c = (*inp++ & 0xFF);
583 if ((c -= MAC_PARM) < nargs) {
584 size = strlen(parlist[c]);
590 if (string_magic && defp[-1] == parlist[c][0]) {
591 strcpy(defp-1, parlist[c]);
595 strcpy(defp, parlist[c]);
605 *defp++ = (char)c;