comparison mc-parse.c @ 101:05f197a4573a

*** empty log message ***
author kono
date Sat, 15 Mar 2003 15:13:27 +0900
parents 07c2554e1cfa
children 3cf2f8c120b9
comparison
equal deleted inserted replaced
100:a9e6f2a2946f 101:05f197a4573a
3385 for (p = chptr; *s;) if (*s++ != *p++) return 0; 3385 for (p = chptr; *s;) if (*s++ != *p++) return 0;
3386 chptr = p; 3386 chptr = p;
3387 return 1; 3387 return 1;
3388 } 3388 }
3389 3389
3390 void
3391 extern_define(char *s,int dsp,int type)
3392 {
3393 NMTBL *nptr0;
3394 int i;
3395
3396 hash=0; name=namebuf; i=0;
3397 while((name[i++] = *s)) {
3398 hash=((7*hash) ^ *s++);
3399 }
3400 if (cheapp+i >= cheap+CHEAPSIZE) error(STRERR);
3401 name[i++] = 0;
3402 (nptr0 = gsearch())->sc = EXTRN;
3403 nptr0->dsp = dsp; nptr0->ty=type;
3404 }
3405
3390 static void 3406 static void
3391 macro_define(char *macro) 3407 macro_define(char *macro)
3392 { 3408 {
3393 char *chptr_save; 3409 char *chptr_save;
3394 int chsave; 3410 int chsave;