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

Diff for /OpenXM_contrib2/asir2000/builtin/ctrl.c between version 1.43 and 1.53

version 1.43, 2014/05/26 09:34:06 version 1.53, 2017/08/31 02:36:20
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/asir2000/builtin/ctrl.c,v 1.42 2014/05/13 15:02:28 ohara Exp $   * $OpenXM: OpenXM_contrib2/asir2000/builtin/ctrl.c,v 1.52 2016/08/26 04:56:07 takayama Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
 #include <string.h>  #include <string.h>
 #if defined(VISUAL)  #if defined(VISUAL) || defined(__MINGW32__)
 #include <windows.h>  #include <windows.h>
   #include <winnls.h>
 #else  #else
   #include <locale.h>
 #include <unistd.h>  #include <unistd.h>
 #include <sys/types.h>  #include <sys/types.h>
 #include <sys/socket.h>  #include <sys/socket.h>
Line 67  static struct {
Line 69  static struct {
         char *arch;          char *arch;
         char *release;          char *release;
         char *full;          char *full;
           char *lang;
 } sysinfo;  } sysinfo;
   
 void Pctrl();  void Pctrl();
Line 81  struct ftab ctrl_tab[] = {
Line 84  struct ftab ctrl_tab[] = {
 };  };
   
 extern int error_in_timer;  extern int error_in_timer;
 extern int prtime,nez,echoback,bigfloat;  extern int prtime,nez,echoback,bigfloat,evalef;
 extern int debug_up;  extern int debug_up;
 extern int GC_max_heap_size,Verbose,hideargs,hex_output,do_server_in_X11;  extern int GC_max_heap_size,Verbose,hideargs,hex_output,do_server_in_X11;
 extern int do_message,do_terse;  extern int do_message,do_terse;
Line 109  extern int diag_period;
Line 112  extern int diag_period;
 extern int weight_check;  extern int weight_check;
 extern char **ASIRLOADPATH;  extern char **ASIRLOADPATH;
 extern int ASIRLOADPATH_LEN;  extern int ASIRLOADPATH_LEN;
   extern int No_ox_reset;
   
 static struct {  static struct {
         char *key;          char *key;
Line 118  static struct {
Line 122  static struct {
         {"cputime",&prtime},          {"cputime",&prtime},
         {"nez",&nez},          {"nez",&nez},
         {"echo",&echoback},          {"echo",&echoback},
 #if defined(PARI)  
         {"bigfloat",&bigfloat},          {"bigfloat",&bigfloat},
 #endif          {"evalef",&evalef},
         {"verbose",&Verbose},          {"verbose",&Verbose},
         {"quiet_mode",&do_quiet},          {"quiet_mode",&do_quiet},
         {"hideargs",&hideargs},          {"hideargs",&hideargs},
Line 149  static struct {
Line 152  static struct {
         {"no_debug_on_error",&no_debug_on_error},          {"no_debug_on_error",&no_debug_on_error},
         {"diag_period",&diag_period},          {"diag_period",&diag_period},
         {"weight_check",&weight_check},          {"weight_check",&weight_check},
           {"no_ox_reset",&No_ox_reset},
           {"fake_ox_reset",&No_ox_reset},
 #if defined(INTERVAL)  #if defined(INTERVAL)
         {"zerorewrite",&zerorewrite},          {"zerorewrite",&zerorewrite},
         {"itvplotsize",&Itvplot},          {"itvplotsize",&Itvplot},
Line 156  static struct {
Line 161  static struct {
         {0,0},          {0,0},
 };  };
   
 void Pctrl(arg,rp)  void Pctrl(NODE arg,Q *rp)
 NODE arg;  
 Q *rp;  
 {  {
         int t,i,n;          int t,i,n;
         int nm,dv;          int nm,dv;
Line 170  Q *rp;
Line 173  Q *rp;
         STRING s;          STRING s;
         NODE node,p;          NODE node,p;
         LIST list;          LIST list;
           P f;
           extern Q ox_pari_stream;
           extern int ox_pari_stream_initialized;
           extern P ox_pari_starting_function;
   
         if ( !arg ) {          if ( !arg ) {
                 *rp = 0;                  *rp = 0;
Line 234  Q *rp;
Line 241  Q *rp;
                                         MKNODE(node,s,p);                                          MKNODE(node,s,p);
                                 }                                  }
                                 MKLIST(list,node);                                  MKLIST(list,node);
                                 *rp = list;                                  *rp = (Q)list;
                         }                          }
                 } else {                  } else {
                         list = (LIST)ARG1(arg);                          list = (LIST)ARG1(arg);
Line 258  Q *rp;
Line 265  Q *rp;
                         }                          }
                 }                  }
                 return;                  return;
           } else if ( !strcmp(key,"oxpari_id") ) {
           if ( argc(arg) == 1 ) {
               if(!ox_pari_stream_initialized) {
                   t=-1;
                   STOQ(t,*rp);
               }else {
                   *rp = ox_pari_stream;
               }
           }else {
                           c = (Q)ARG1(arg);
                           if ( !c || ( NUM(c) && INT(c) && SGN(c)>0 ) ) {
                                   ox_pari_stream_initialized = 1;
                                   ox_pari_stream = c;
                                   *rp = c;
                           }else {
                   t=-1;
                   STOQ(t,*rp);
                           }
                   }
                   return;
           } else if ( !strcmp(key,"oxpari_start") ) {
           if ( argc(arg) == 1 ) {
                           *rp = (Q)ox_pari_starting_function;
                   } else {
                           f = (P)ARG1(arg);
                           if ( !f || OID(f) == O_P) {
                                   ox_pari_starting_function = f;
                                   *rp = (Q)f;
                           }else {
                                   *rp = 0;
                           }
                   }
                   return;
         }          }
         for ( i = 0; ctrls[i].key; i++ )          for ( i = 0; ctrls[i].key; i++ )
                 if ( !strcmp(key,ctrls[i].key) )                  if ( !strcmp(key,ctrls[i].key) )
Line 278  void Psysinfo(LIST *rp)
Line 318  void Psysinfo(LIST *rp)
 {  {
     int i;      int i;
     NODE n,p;      NODE n,p;
     STRING s[6];      STRING s[7];
   
     get_sysinfo();      get_sysinfo();
     MKSTR(s[0],sysinfo.type);  MKSTR(s[1],sysinfo.kernel);   MKSTR(s[2],sysinfo.name);      MKSTR(s[0],sysinfo.type);  MKSTR(s[1],sysinfo.kernel);   MKSTR(s[2],sysinfo.name);
     MKSTR(s[3],sysinfo.arch);  MKSTR(s[4],sysinfo.release);  MKSTR(s[5],sysinfo.full);      MKSTR(s[3],sysinfo.arch);  MKSTR(s[4],sysinfo.release);  MKSTR(s[5],sysinfo.full);
     for(i=5,p=NULL; i>=0; i--,p=n) {      MKSTR(s[6],sysinfo.lang);
       for(i=6,p=NULL; i>=0; i--,p=n) {
         MKNODE(n,s[i],p);          MKNODE(n,s[i],p);
     }      }
     MKLIST(*rp,n);      MKLIST(*rp,n);
 }  }
   
 #if !defined(VISUAL)  #if !defined(VISUAL) && !defined(__MINGW32__)
   
   static char *get_lang()
   {
       char *c, *p, *q;
       c = setlocale(LC_ALL, NULL); /* saving current locale */
       p = setlocale(LC_ALL, "");
       q = (char *)MALLOC(strlen(p)+1);
       strcpy(q,p);
       setlocale(LC_ALL, c);        /* restoring current locale */
       return q;
   }
   
 static char *myuname(char *option)  static char *myuname(char *option)
 {  {
     char buf[BUFSIZ];      char buf[BUFSIZ];
Line 345  static void get_sysinfo()
Line 398  static void get_sysinfo()
     sysinfo.arch   = u.machine;      sysinfo.arch   = u.machine;
     sysinfo.release= u.release;      sysinfo.release= u.release;
     sysinfo.full   = myuname("-a");      sysinfo.full   = myuname("-a");
       sysinfo.lang   = get_lang();
 }  }
   
 #else  #else
Line 384  static char *osname95(int major, int minor)
Line 438  static char *osname95(int major, int minor)
     return "unknown";      return "unknown";
 }  }
   
   static char *get_lang()
   {
       char lang[BUFSIZ];
       char *s;
       if(GetLocaleInfo(GetUserDefaultLCID(), LOCALE_SISO639LANGNAME, lang, BUFSIZ)) {
           s = (char *)MALLOC(strlen(lang)+1);
           strcpy(s,lang);
           return s;
       }
       return "en"; // English
   }
   
 static void get_sysinfo()  static void get_sysinfo()
 {  {
     int arch64 = 0;      int arch64 = 0;
Line 430  static void get_sysinfo()
Line 496  static void get_sysinfo()
     s = (char *)MALLOC(strlen(buf)+1);      s = (char *)MALLOC(strlen(buf)+1);
     strcpy(s, buf);      strcpy(s, buf);
     sysinfo.full = s;      sysinfo.full = s;
       sysinfo.lang = get_lang();
 }  }
   
 #endif  #endif
Legend:
Removed from v.1.43  
changed lines
  Added in v.1.53
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>