=================================================================== Modification le : Thu Nov 15 18:54:42 MET 2001 Par : fred =================================================================== Update of /users/outil/alliance/cvsroot/alliance/sources/genlib In directory odroz:/users/cao/fred/alliance/sources/genlib Modified Files: genlib.c mgn330.h Log Message: Adding a way to delete references =================================================================== Index: genlib.c =================================================================== RCS file: /users/outil/alliance/cvsroot/alliance/sources/genlib/genlib.c,v retrieving revision 1.17 retrieving revision 1.18 diff -r1.17 -r1.18 2081a2082,2115 > void genDEL_PHREF(type, pattern) > char *type; > char *pattern; > { > char *s; > int n; > phref_list *r, *rr; > > if (WORK_PHFIG == NULL) { > (void)fflush(stdout); > (void)fputs("*** genlib error ***\n", stderr); > (void)fputs("DEL_PHREF impossible : missing DEF_PHFIG\n", stderr); > EXIT(1); > } > if (pattern == NULL) { > (void)fflush(stdout); > (void)fputs("*** genlib error ***\n", stderr); > (void)fputs("DEL_PHREF impossible : null pattern not allowed\n", stderr); > EXIT(1); > } > > s = strchr(pattern, "*"); > if (s == NULL) > n = strlen(pattern); > else > n = s - pattern; > > for (r = WORK_PHFIG->PHREF; r; r = rr) { > rr = r->NEXT; > if (!strcmp(r->FIGNAME, type) && !strncmp(r->NAME, pattern, n)) > WORK_PHFIG->PHREF = delphref(WORK_PHFIG, r); > } > } > Index: mgn330.h =================================================================== RCS file: /users/outil/alliance/cvsroot/alliance/sources/genlib/mgn330.h,v retrieving revision 1.4 retrieving revision 1.5 diff -r1.4 -r1.5 67a68 > extern void genDEL_PHREF(); 185a187 =================================================================== Ce message est envoyé au personnes abonnées à alliance-programmers Pour plus d'information sur cette mailling-list, visitez : http://www-asim.lip6.fr/alliance/mailing-lists/