[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.42 and 1.48

version 1.42, 2014/05/13 15:02:28 version 1.48, 2015/08/14 13:51:54
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.41 2014/05/12 02:35:35 ohara Exp $   * $OpenXM: OpenXM_contrib2/asir2000/builtin/ctrl.c,v 1.47 2015/08/06 10:01:51 fujimoto 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>
 #include <sys/wait.h>  #include <sys/wait.h>
   #include <sys/utsname.h>
 #endif  #endif
   
 static struct {  static struct {
Line 66  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 80  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 117  static struct {
Line 121  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 277  void Psysinfo(LIST *rp)
Line 280  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 *uname(char *option)  
   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)
   {
     char buf[BUFSIZ];      char buf[BUFSIZ];
     char *s;      char *s;
     int fd[2], status;      int fd[2], status, pid;
     *buf = 0;      *buf = 0;
     if (socketpair(AF_UNIX, SOCK_STREAM, 0, fd) < 0) {      if (socketpair(AF_UNIX, SOCK_STREAM, 0, fd) < 0) {
         *buf = 0; return "";          *buf = 0; return NULL;
     }      }
     if (fork() == 0) {      pid = fork();
       if (pid < 0) {
           return NULL;
       }else if (pid == 0) {
         dup2(fd[1], 1);          dup2(fd[1], 1);
           close(2);
         execlp("uname", "uname", option, NULL);          execlp("uname", "uname", option, NULL);
     }      }
       waitpid(pid, &status, 0);
       if (status) { /* error */
           return NULL;
       }
     s = buf;      s = buf;
     if( !read(fd[0], s, BUFSIZ-1) || (s = strchr(s, '\n')) ) {      if( !read(fd[0], s, BUFSIZ-1) || (s = strchr(s, '\n')) ) {
         *s = 0;          *s = 0;
     }      }
     wait(&status);  
     close(fd[0]);      close(fd[0]);
     close(fd[1]);      close(fd[1]);
     s = (char *)MALLOC(strlen(buf)+1);      s = (char *)MALLOC(strlen(buf)+1);
Line 316  static char *uname(char *option)
Line 339  static char *uname(char *option)
   
 static void get_sysinfo()  static void get_sysinfo()
 {  {
       static struct utsname u;
     static int initialized = 0;      static int initialized = 0;
     if (initialized) {      if (initialized) {
         return;          return;
     }      }
     initialized = 1;      initialized = 1;
     sysinfo.kernel = uname(NULL);      uname(&u);
       sysinfo.kernel = u.sysname;
 #if defined(__DARWIN__)  #if defined(__DARWIN__)
     sysinfo.type   = "macosx";      sysinfo.type   = "macosx";
     sysinfo.name   = sysinfo.kernel;      sysinfo.name   = sysinfo.kernel;
 #else  #else
     sysinfo.type   = "unix";      sysinfo.type   = "unix";
     sysinfo.name   = uname("-o"); // not work on Darwin      sysinfo.name   = myuname("-o"); // not work on Darwin
       if (!sysinfo.name) {
           sysinfo.name = sysinfo.kernel;
       }
 #endif  #endif
     sysinfo.arch   = uname("-m");      sysinfo.arch   = u.machine;
     sysinfo.release= uname("-r");      sysinfo.release= u.release;
     sysinfo.full   = uname("-a");      sysinfo.full   = myuname("-a");
       sysinfo.lang   = get_lang();
 }  }
   
 #else  #else
Line 371  static char *osname95(int major, int minor)
Line 400  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 417  static void get_sysinfo()
Line 458  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.42  
changed lines
  Added in v.1.48
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>