Return to function.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / parse

Annotation of OpenXM_contrib2/asir2000/parse/function.c, Revision 1.1.1.1

1.1       noro        1: /* $OpenXM: OpenXM/src/asir99/parse/function.c,v 1.2 1999/11/18 05:42:03 noro Exp $ */
                      2: #include "ca.h"
                      3: #include "parse.h"
                      4:
                      5: void appendbinf(flistp,name,func,argc)
                      6: NODE *flistp;
                      7: char *name;
                      8: void (*func)();
                      9: int argc;
                     10: {
                     11:        FUNC t;
                     12:        NODE n;
                     13:
                     14:        t = (FUNC)MALLOC(sizeof(struct oFUNC));
                     15:        t->name = name; t->id = A_BIN; t->argc = argc; t->f.binf = func;
                     16:        MKNODE(n,t,*flistp); *flistp = n;
                     17: }
                     18:
                     19: void appendparif(flistp,name,func,type)
                     20: NODE *flistp;
                     21: char *name;
                     22: int (*func)();
                     23: int type;
                     24: {
                     25:        FUNC t;
                     26:        NODE n;
                     27:
                     28:        t = (FUNC)MALLOC(sizeof(struct oFUNC));
                     29:        t->name = name; t->id = A_PARI; t->type = type; t->f.binf = (void (*)())func;
                     30:        MKNODE(n,t,*flistp); *flistp = n;
                     31: }
                     32:
                     33: void appendsysf(name,func,argc)
                     34: char *name;
                     35: void (*func)();
                     36: int argc;
                     37: {
                     38:        appendbinf(&sysf,name,func,argc);
                     39: }
                     40:
                     41: void appendubinf(name,func,argc)
                     42: char *name;
                     43: void (*func)();
                     44: int argc;
                     45: {
                     46:        appendbinf(&ubinf,name,func,argc);
                     47: }
                     48:
                     49: void dcptolist(dc,listp)
                     50: DCP dc;
                     51: LIST *listp;
                     52: {
                     53:        NODE node,tnode,ln0,ln1;
                     54:        LIST l;
                     55:
                     56:        for ( node = 0; dc; dc = NEXT(dc) ) {
                     57:                NEXTNODE(node,tnode);
                     58:                MKNODE(ln1,DEG(dc),0); MKNODE(ln0,COEF(dc),ln1);
                     59:                MKLIST(l,ln0); BDY(tnode) = (pointer)l;
                     60:        }
                     61:        NEXT(tnode) = 0; MKLIST(l,node); *listp = l;
                     62: }