[BACK]Return to ctrl.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2018 / builtin

Diff for /OpenXM_contrib2/asir2018/builtin/ctrl.c between version 1.4 and 1.7

version 1.4, 2019/03/27 06:41:45 version 1.7, 2022/04/03 00:49:25
Line 45 
Line 45 
  * 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/asir2018/builtin/ctrl.c,v 1.3 2019/03/06 10:43:25 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2018/builtin/ctrl.c,v 1.6 2022/01/27 01:29:31 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
Line 120  extern int ASIRLOADPATH_LEN;
Line 120  extern int ASIRLOADPATH_LEN;
 extern int No_ox_reset;  extern int No_ox_reset;
 extern int plot_by_bigfloat;  extern int plot_by_bigfloat;
 extern int debug_plot;  extern int debug_plot;
   extern int debug_pari;
   
 static struct keyval {  static struct keyval {
   char *key;    char *key;
Line 141  static struct keyval {
Line 142  static struct keyval {
   {"f4_nocheck",&f4_nocheck,"If set to 1, correctness check of the result of modular computation are omitted in nd_f4()."},    {"f4_nocheck",&f4_nocheck,"If set to 1, correctness check of the result of modular computation are omitted in nd_f4()."},
   {"fake_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."},
   {"fortran_output",&fortran_output,"If set to 1, ** is used instead of ^ for representing the power."},    {"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."},    {"hex",&hex_output,"If set to 1 (to 2), integers are printed by the hexadecimal (binary) notation."},
   {"hideargs",&hideargs,"If set to 1, the arguments of a function call are not printed."},    {"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."},    {"message",&do_message,"If set to 1, an opening message is printed in ox_asir and ox_plot."},
   {"new_hensel",&use_new_hensel,"If set to 1, a function hensel2() is used in the univariate factorizer over Q."},    {"new_hensel",&use_new_hensel,"If set to 1, a function hensel2() is used in the univariate factorizer over Q."},
Line 170  static struct keyval {
Line 171  static struct keyval {
   {"zerorewrite",&zerorewrite,""},    {"zerorewrite",&zerorewrite,""},
   {"itvplotsize",&Itvplot,""},    {"itvplotsize",&Itvplot,""},
 #endif  #endif
     {"debug_pari",&debug_pari,"If set to 1, ox_pari is executed with the message window."},
   {0,0},    {0,0},
 };  };
   
Line 439  static char *get_lang()
Line 441  static char *get_lang()
     char *c, *p, *q;      char *c, *p, *q;
     c = setlocale(LC_ALL, NULL); /* saving current locale */      c = setlocale(LC_ALL, NULL); /* saving current locale */
     p = setlocale(LC_ALL, "");      p = setlocale(LC_ALL, "");
     q = (char *)MALLOC(strlen(p)+1);      if ( p != 0 ) {
     strcpy(q,p);        q = (char *)MALLOC(strlen(p)+1);
         strcpy(q,p);
       } else {
         q = (char *)MALLOC(2);
         strcpy(q,"C");
       }
     setlocale(LC_ALL, c);        /* restoring current locale */      setlocale(LC_ALL, c);        /* restoring current locale */
     return q;      return q;
 }  }
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.7
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>