Return to ftab.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

Annotation of OpenXM_contrib2/asir2000/builtin/ftab.c, Revision 1.1.1.1

1.1       noro        1: /* $OpenXM: OpenXM/src/asir99/builtin/ftab.c,v 1.1.1.1 1999/11/10 08:12:25 noro Exp $ */
                      2: #include "ca.h"
                      3: #include "parse.h"
                      4:
                      5: #if defined(THINK_C)
                      6: #define DO_PLOT 1
                      7: #endif
                      8:
                      9: #if 0
                     10: struct ftab sysftab[] = {
                     11:        {"modfctr",Pmodfctr,2},
                     12:        {"modsqfr",Pmodsqfr,2},
                     13:        {"ddd",Pddd,2},
                     14: /*     {"sacinit",Psacinit,-1},
                     15:        {"sacp",Psacp,1},
                     16:        {"sacprod",Psacprod,1},
                     17:        {"sacfctr",Psacfctr,1}, */
                     18:        {0,0,0}
                     19: };
                     20: #endif
                     21:
                     22: void Ptstart(), Ptstop(), Pquit(), Pdebug();
                     23:
                     24: struct ftab nasysftab[] = {
                     25:        {"tstart",Ptstart,0},
                     26:        {"tstop",Ptstop,0},
                     27:        {"end",Pquit,0},
                     28:        {"quit",Pquit,0},
                     29:        {"debug",Pdebug,0},
                     30:        {0,0,0},
                     31: };
                     32:
                     33: #if !defined(THINK_C)
                     34: typedef struct ftab FTAB[];
                     35:
                     36: extern FTAB
                     37: alg_tab, array_tab, cplx_tab, ctrl_tab, dp_tab, dp_supp_tab, fctr_tab, file_tab,
                     38: help_tab, int_tab, list_tab, misc_tab, pdiv_tab, poly_tab,
                     39: print_tab, puref_tab, rat_tab, reduct_tab, result_tab,
                     40: str_tab, subst_tab, time_tab, type_tab, var_tab,
                     41: print2d_tab, tcp_tab, plot_tab, pari_tab, comp_tab, gf_tab, math_tab,
                     42: numerical_tab, ec_tab, al_tab;
                     43: #else
                     44: extern struct ftab
                     45: alg_tab[], array_tab[], cplx_tab[], ctrl_tab[], dp_tab[], dp_supp_tab[], fctr_tab[], file_tab[],
                     46: help_tab[], int_tab[], list_tab[], misc_tab[], pdiv_tab[], poly_tab[],
                     47: print_tab[], puref_tab[], rat_tab[], reduct_tab[], result_tab[],
                     48: str_tab[], subst_tab[], time_tab[], type_tab[], var_tab[],
                     49: plot_tab[], pari_tab[], comp_tab[], gf_tab[], math_tab[],
                     50: numerical_tab[], ec_tab[], al_tab[];
                     51: #endif
                     52:
                     53: struct ftab *ftabs[] = {
                     54:        alg_tab, array_tab, cplx_tab, ctrl_tab, dp_tab, dp_supp_tab, fctr_tab, file_tab,
                     55:        help_tab, int_tab, list_tab, misc_tab, pdiv_tab, poly_tab,
                     56:        print_tab, puref_tab, rat_tab, reduct_tab, result_tab,
                     57:        str_tab, subst_tab, time_tab, type_tab, var_tab, pari_tab, comp_tab, gf_tab,    math_tab,
                     58: #if DO_PLOT
                     59:        plot_tab,
                     60: #endif
                     61: #if INET
                     62:        tcp_tab,
                     63: #endif
                     64: #if 0
                     65:        print2d_tab,
                     66: #endif
                     67: #if LAPACK
                     68:        numerical_tab,
                     69: #endif
                     70:        ec_tab, al_tab,
                     71:        0,
                     72: };
                     73:
                     74: void sysf_init() {
                     75:        int i,j;
                     76:        struct ftab *tab;
                     77:
                     78:        for ( j = 0, sysf = 0; tab = ftabs[j]; j++ )
                     79:                for ( i = 0; tab[i].name; i++ )
                     80:                        appendbinf(&sysf,tab[i].name,tab[i].f,tab[i].argc);
                     81:        for ( i = 0, noargsysf = 0; nasysftab[i].name; i++ )
                     82:                appendbinf(&noargsysf,nasysftab[i].name, nasysftab[i].f,nasysftab[i].argc);
                     83:        parif_init();
                     84: }