OpenXM_contrib2/asir2000/builtin/ctrl.c - diff

Return to ctrl.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

Diff for /OpenXM_contrib2/asir2000/builtin/ctrl.c between version 1.56 and 1.57

version 1.56, 2018/03/28 07:44:05

version 1.57, 2018/03/28 07:58:17

Line 45

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/builtin/ctrl.c,v 1.55 2017/09/04 02:10:33 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/builtin/ctrl.c,v 1.56 2018/03/28 07:44:05 noro Exp $

#include "ca.h"

#include "parse.h"

Line 121 static struct keyval {

int *val;

char *desc;

} ctrls[] = {

{"error_in_timer",&error_in_timer,"If set to 1, the usual error handler is executed when the timer is expired."},

{"StrassenSize",&StrassenSize,"Determines the parameter in Strassen-Winograd matrix multiplication algorithm."},

{"allow_laurent",&allow_laurent,"If set to 1, negative exponents are allowed in monomials."},

{"asir_setenv",&asir_setenv,"Not used."},

{"bigfloat",&bigfloat,"If set to 1, MPFR bigfloat functions are used for floating point evaluation." },

{"cputime",&prtime,"If set to 1, the CPU time at the toplevel is shown." },

{"nez",&nez,"If set to 1, a new version of EZGCD implementation is used." },

{"debug_up",&debug_up,"If set to 1, some debug messages are printed in special functions for univariate polynomials."},

{"debug_window",&do_server_in_X11,"If set to 1, an input window for debugging remote server are shown."},

{"diag_period",&diag_period,"Determines the frequency of the intermediate inter-reduction in nd_gr()."},

{"double_output",&double_output,"If set to 1, floating point numbers are printed in the style ddd.ddd."},

{"echo",&echoback,"If set to 1, characters read by the input function are printed." },

{"bigfloat",&bigfloat,"If set to 1, MPFR bigfloat functions are used for floating point evaluation." },

{"error_in_timer",&error_in_timer,"If set to 1, the usual error handler is executed when the timer is expired."},

{"evalef",&evalef,"If set to 1, elementary functions are evaluated immediately."},

{"verbose",&Verbose,"If set to 1, a warning is printed if a function is redefined."},

{"f4_nocheck",&f4_nocheck,"If set to 1, correctness check of the result of modular computation are omitted in nd_f4()."},

{"quiet_mode",&do_quiet,"If set to 1, the copyright notices are not printed at the beginning of the session."},

{"fake_ox_reset",&No_ox_reset,"Determines the treatment of OX reset request for a server which does not implement the reset protocol."},

{"hideargs",&hideargs,"If set to 1, the arguments of a function call are not printed."},

{"fortran_output",&fortran_output,"If set to 1, ** is used instead of ^ for representing the power."},

{"hex",&hex_output,"If set to 1, integers are printed by the hexadecimal notation."},

{"debug_window",&do_server_in_X11,"If set to 1, an input window for debugging remote server are shown."},

{"hideargs",&hideargs,"If set to 1, the arguments of a function call are not printed."},

{"message",&do_message,"If set to 1, an opening message is printed in ox_asir and ox_plot."},

{"terse",&do_terse,"If set to 1, messages are not printed when user-defined callbacks are executed."},

{"new_hensel",&use_new_hensel,"If set to 1, a function hensel2() is used in the univariate factorizer over Q."},

{"debug_up",&debug_up,"If set to 1, some debug messages are printed in special functions for univariate polynomials."},

{"nez",&nez,"If set to 1, a new version of EZGCD implementation is used." },

{"no_debug_on_error",&no_debug_on_error,"If set to 1, the debug mode is not used."},

{"no_ox_reset",&No_ox_reset,"Determines the treatment of OX reset request for a server which does not implement the reset protocol."},

{"no_prompt",&do_quiet,"If set to 1, prompts are not shown."},

{"asir_setenv",&asir_setenv,"Not used."},

{"outputstyle",&outputstyle,"If set to 1, structured data such as matrices and vectors are printed in the style mat(...), vect(...)."},

{"ox_batch",&ox_batch,"If set to 1, the OX stream are not flushed at each sending of an OX data."},

{"ox_check",&ox_check,"If set to 1, mathcap check is done for OpenXM date communication."},

{"ox_exchange_mathcap",&ox_exchange_mathcap,"If set to 1, mathcaps are exchanged."},

{"f4_nocheck",&f4_nocheck,"If set to 1, correctness check of the result of modular computation are omitted in nd_f4()."},

{"StrassenSize",&StrassenSize,"Determines the parameter in Strassen-Winograd matrix multiplication algorithm."},

{"outputstyle",&outputstyle,"If set to 1, structured data such as matrices and vectors are printed in the style mat(...), vect(...)."},

{"double_output",&double_output,"If set to 1, floating point numbers are printed in the style ddd.ddd."},

{"real_digit",&real_digit,"Determines the number of digits to appear after the decimal point."},

{"real_binary",&real_binary,"If set to 1, a floating point number is printed by the binary notation."},

{"fortran_output",&fortran_output,"If set to 1, ** is used instead of ^ for representing the power."},

{"new_hensel",&use_new_hensel,"If set to 1, a function hensel2() is used in the univariate factorizer over Q."},

{"print_quote",&print_quote,"Determines the behavior of the printed form of a quote."},

{"quiet_mode",&do_quiet,"If set to 1, the copyright notices are not printed at the beginning of the session."},

{"real_binary",&real_binary,"If set to 1, a floating point number is printed by the binary notation."},

{"real_digit",&real_digit,"Determines the number of digits to appear after the decimal point."},

{"show_crossref",&show_crossref,"If set to 1, cross-references are shown when a program file is loaded."},

{"allow_laurent",&allow_laurent,"If set to 1, negative exponents are allowed in monomials."},

{"show_orderspec",&show_orderspec,"If set to 1, the specification of a composite term order is printed upon its creation."},

{"no_debug_on_error",&no_debug_on_error,"If set to 1, the debug mode is not used."},

{"terse",&do_terse,"If set to 1, messages are not printed when user-defined callbacks are executed."},

{"diag_period",&diag_period,"Determines the frequency of the intermediate inter-reduction in nd_gr()."},

{"verbose",&Verbose,"If set to 1, a warning is printed if a function is redefined."},

{"weight_check",&weight_check,"If set to 1, an overflow check for the given weight vector is done before starting the Groebner basis computation."},

{"no_ox_reset",&No_ox_reset,"Determines the treatment of OX reset request for a server which does not implement the reset protocol."},

{"fake_ox_reset",&No_ox_reset,"Determines the treatment of OX reset request for a server which does not implement the reset protocol."},

#if defined(DO_PLOT)

{"plot_by_bigfloat",&plot_by_bigfloat,"If set to 1, computation is done by using MPFR bigfloat functions in ox_plot."},

{"debug_plot",&debug_plot,"If set to 1, ox_plot is executed with the message window."},

Line 168 static struct keyval {

{0,0},

};

LIST create_control_values()

LIST create_control_values(int withdesc)

{

int n,i;

NODE top,top1,nd;

Line 182 LIST create_control_values()

MKSTR(key,ctrls[i].key);

MKSTR(desc,ctrls[i].desc);

STOQ(*(ctrls[i].val),val);

nd = mknode(3,key,val,desc);

if ( withdesc )

nd = mknode(3,key,val,desc);

else

nd = mknode(2,key,val);

MKLIST(list,nd);

MKNODE(top1,list,top);

top = top1;

Line 193 LIST create_control_values()

Line 196 LIST create_control_values()

void Pctrl(NODE arg,Q *rp)

{

int t,i,n;

int t,i,n,desc=0;

int nm,dv;

N num,den;

Q c;

Line 201 void Pctrl(NODE arg,Q *rp)

Line 204 void Pctrl(NODE arg,Q *rp)

char buf[BUFSIZ];

char *str;

STRING s;

NODE node,p;

NODE node,p,opt;

LIST list;

P f;

Obj value;

extern Q ox_pari_stream;

extern int ox_pari_stream_initialized;

extern P ox_pari_starting_function;

if ( !arg ) {

*rp = create_control_values();

if ( current_option ) {

for ( opt = current_option; opt; opt = NEXT(opt) ) {

p = BDY((LIST)BDY(opt));

key = BDY((STRING)BDY(p));

value = (Obj)BDY(NEXT(p));

if ( !strcmp(key,"desc") && value ) {

desc = value ? 1 : 0;

break;

}

*rp = create_control_values(desc);

return;

}

key = BDY((STRING)ARG0(arg));

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>