version 1.15, 2015/08/04 06:20:44 |
version 1.16, 2018/03/29 01:32:50 |
|
|
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* |
* |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/ftab.c,v 1.14 2005/09/21 23:39:32 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/ftab.c,v 1.15 2015/08/04 06:20:44 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
|
|
void Ptstart(), Ptstop(), Pquit(), Pdebug(); |
void Ptstart(), Ptstop(), Pquit(), Pdebug(); |
|
|
struct ftab nasysftab[] = { |
struct ftab nasysftab[] = { |
{"tstart",Ptstart,0}, |
{"tstart",Ptstart,0}, |
{"tstop",Ptstop,0}, |
{"tstop",Ptstop,0}, |
{"end",Pquit,0}, |
{"end",Pquit,0}, |
{"quit",Pquit,0}, |
{"quit",Pquit,0}, |
{"debug",Pdebug,0}, |
{"debug",Pdebug,0}, |
{0,0,0}, |
{0,0,0}, |
}; |
}; |
|
|
typedef struct ftab FTAB[]; |
typedef struct ftab FTAB[]; |
Line 69 help_tab, int_tab, list_tab, misc_tab, pdiv_tab, poly_ |
|
Line 69 help_tab, int_tab, list_tab, misc_tab, pdiv_tab, poly_ |
|
print_tab, puref_tab, rat_tab, reduct_tab, result_tab, |
print_tab, puref_tab, rat_tab, reduct_tab, result_tab, |
str_tab, subst_tab, time_tab, type_tab, var_tab, |
str_tab, subst_tab, time_tab, type_tab, var_tab, |
#if defined(INTERVAL) |
#if defined(INTERVAL) |
interval_tab, isolv_tab, |
interval_tab, isolv_tab, |
#endif |
#endif |
print2d_tab, tcp_tab, plot_tab, bf_tab, comp_tab, gf_tab, imat_tab, |
print2d_tab, tcp_tab, plot_tab, bf_tab, comp_tab, gf_tab, imat_tab, |
math_tab, mat_tab, numerical_tab, ec_tab, al_tab, round_tab, user_tab; |
math_tab, mat_tab, numerical_tab, ec_tab, al_tab, round_tab, user_tab; |
|
|
struct ftab *ftabs[] = { |
struct ftab *ftabs[] = { |
bf_tab, alg_tab, array_tab, cplx_tab, ctrl_tab, dp_tab, dp_supp_tab, fctr_tab, file_tab, |
bf_tab, alg_tab, array_tab, cplx_tab, ctrl_tab, dp_tab, dp_supp_tab, fctr_tab, file_tab, |
help_tab, int_tab, list_tab, misc_tab, pdiv_tab, poly_tab, |
help_tab, int_tab, list_tab, misc_tab, pdiv_tab, poly_tab, |
print_tab, puref_tab, rat_tab, reduct_tab, result_tab, |
print_tab, puref_tab, rat_tab, reduct_tab, result_tab, |
str_tab, subst_tab, time_tab, type_tab, var_tab, |
str_tab, subst_tab, time_tab, type_tab, var_tab, |
#if defined(INTERVAL) |
#if defined(INTERVAL) |
interval_tab, isolv_tab, |
interval_tab, isolv_tab, |
#endif |
#endif |
comp_tab, gf_tab, imat_tab, math_tab, mat_tab, tcp_tab, |
comp_tab, gf_tab, imat_tab, math_tab, mat_tab, tcp_tab, |
#if defined(DO_PLOT) |
#if defined(DO_PLOT) |
plot_tab, |
plot_tab, |
#endif |
#endif |
#if defined(LAPACK) |
#if defined(LAPACK) |
numerical_tab, |
numerical_tab, |
#endif |
#endif |
ec_tab, al_tab, round_tab, |
ec_tab, al_tab, round_tab, |
user_tab, |
user_tab, |
0, |
0, |
}; |
}; |
|
|
void sysf_init() { |
void sysf_init() { |
int i,j; |
int i,j; |
struct ftab *tab; |
struct ftab *tab; |
|
|
for ( j = 0, sysf = 0; tab = ftabs[j]; j++ ) |
for ( j = 0, sysf = 0; tab = ftabs[j]; j++ ) |
for ( i = 0; tab[i].name; i++ ) |
for ( i = 0; tab[i].name; i++ ) |
appendbinf(&sysf,tab[i].name,tab[i].f,tab[i].argc,tab[i].quote); |
appendbinf(&sysf,tab[i].name,tab[i].f,tab[i].argc,tab[i].quote); |
for ( i = 0, noargsysf = 0; nasysftab[i].name; i++ ) |
for ( i = 0, noargsysf = 0; nasysftab[i].name; i++ ) |
appendbinf(&noargsysf,nasysftab[i].name, nasysftab[i].f,nasysftab[i].argc,0); |
appendbinf(&noargsysf,nasysftab[i].name, nasysftab[i].f,nasysftab[i].argc,0); |
parif_init(); |
parif_init(); |
} |
} |