| parse.c (85587) | parse.c (107806) |
|---|---|
| 1/**************************************************************** 2Copyright (C) Lucent Technologies 1997 3All Rights Reserved 4 5Permission to use, copy, modify, and distribute this software and 6its documentation for any purpose and without fee is hereby 7granted, provided that the above copyright notice appear in all 8copies and that both that the copyright notice and this --- 239 unchanged lines hidden (view full) --- 248 v->sval = (char *) st; 249 n = 0; /* count arguments */ 250 for (p = vl; p; p = p->nnext) 251 n++; 252 v->fval = n; 253 dprintf( ("defining func %s (%d args)\n", v->nval, n) ); 254} 255 | 1/**************************************************************** 2Copyright (C) Lucent Technologies 1997 3All Rights Reserved 4 5Permission to use, copy, modify, and distribute this software and 6its documentation for any purpose and without fee is hereby 7granted, provided that the above copyright notice appear in all 8copies and that both that the copyright notice and this --- 239 unchanged lines hidden (view full) --- 248 v->sval = (char *) st; 249 n = 0; /* count arguments */ 250 for (p = vl; p; p = p->nnext) 251 n++; 252 v->fval = n; 253 dprintf( ("defining func %s (%d args)\n", v->nval, n) ); 254} 255 |
| 256int isarg(char *s) /* is s in argument list for current function? */ | 256int isarg(const char *s) /* is s in argument list for current function? */ |
| 257{ /* return -1 if not, otherwise arg # */ 258 extern Node *arglist; 259 Node *p = arglist; 260 int n; 261 262 for (n = 0; p != 0; p = p->nnext, n++) 263 if (strcmp(((Cell *)(p->narg[0]))->nval, s) == 0) 264 return n; --- 12 unchanged lines hidden --- | 257{ /* return -1 if not, otherwise arg # */ 258 extern Node *arglist; 259 Node *p = arglist; 260 int n; 261 262 for (n = 0; p != 0; p = p->nnext, n++) 263 if (strcmp(((Cell *)(p->narg[0]))->nval, s) == 0) 264 return n; --- 12 unchanged lines hidden --- |