[BACK]Return to mathcap.c CVS log [TXT][DIR] Up to [local] / OpenXM / src / ox_toolkit

Diff for /OpenXM/src/ox_toolkit/mathcap.c between version 1.15 and 1.17

version 1.15, 2015/08/18 02:24:04 version 1.17, 2016/08/23 02:24:19
Line 1 
Line 1 
 /* -*- mode: C; coding: euc-japan -*- */  /* -*- mode: C; coding: euc-japan -*- */
 /* $OpenXM: OpenXM/src/ox_toolkit/mathcap.c,v 1.14 2015/08/04 05:24:44 noro Exp $ */  /* $OpenXM: OpenXM/src/ox_toolkit/mathcap.c,v 1.16 2016/06/29 05:07:23 ohara Exp $ */
   
 /* This module includes functions for handling mathcap databases. */  /* This module includes functions for handling mathcap databases. */
   
Line 40  static int cmotbl_a[] = {
Line 40  static int cmotbl_a[] = {
     CMO_MONOMIAL32,      CMO_MONOMIAL32,
     CMO_ZZ,      CMO_ZZ,
     CMO_QQ,      CMO_QQ,
     CMO_BIGFLOAT,      CMO_BIGFLOAT32,
     CMO_COMPLEX,      CMO_COMPLEX,
     CMO_IEEE_DOUBLE_FLOAT,      CMO_IEEE_DOUBLE_FLOAT,
     CMO_ZERO,      CMO_ZERO,
Line 77  static struct {
Line 77  static struct {
     char *hosttype;      char *hosttype;
     int  *cmo_tags;      int  *cmo_tags;
     int  *sm_cmds;      int  *sm_cmds;
 } sysinfo = {0, "NO VERSION", "NONAME", "UNKNOWN", cmotbl_a, smtbl_a};          char **opts;
   } sysinfo = {0, "NO VERSION", "NONAME", "UNKNOWN", cmotbl_a, smtbl_a, NULL};
   
 __inline__  __inline__
 static void table_init(table *m, int key)  static void table_init(table *m, int key)
Line 259  static int *new_int_array(int *array)
Line 260  static int *new_int_array(int *array)
   
 void mathcap_init(int ver, char *vstr, char *sysname, int cmos[], int sms[])  void mathcap_init(int ver, char *vstr, char *sysname, int cmos[], int sms[])
 {  {
       mathcap_init2(ver, vstr, sysname, cmos, sms, NULL);
   }
   
   /* src must be terminated by NULL */
   static char **clone_str_list(char **src)
   {
       int i,len;
       char **new = NULL;
       if(!src) {
           for(len=0; src[len]!=NULL; len++) {
           }
           new = (char **)MALLOC(sizeof(char *)*(len+1));
           new[len] = NULL;
           for(i=0; i<len; i++) {
               new[i] = (char *)MALLOC(strlen(src[i])+1);
               strcpy(new[i], src[i]);
           }
       }
       return new;
   }
   
   /* options must be terminated by NULL */
   void mathcap_init2(int ver, char *vstr, char *sysname, int cmos[], int sms[], char *options[])
   {
     char *host = getenv("HOSTTYPE");      char *host = getenv("HOSTTYPE");
     sysinfo.hosttype = (host != NULL)? new_string(host): "UNKNOWN";      sysinfo.hosttype = (host != NULL)? new_string(host): "UNKNOWN";
     sysinfo.sysname  = new_string(sysname);      sysinfo.sysname  = new_string(sysname);
Line 270  void mathcap_init(int ver, char *vstr, char *sysname, 
Line 295  void mathcap_init(int ver, char *vstr, char *sysname, 
     if (sms != NULL) {      if (sms != NULL) {
         sysinfo.sm_cmds = new_int_array(sms);          sysinfo.sm_cmds = new_int_array(sms);
     }      }
       sysinfo.opts = clone_str_list(options);
 }  }
   
 mathcap *new_mathcap()  mathcap *new_mathcap()
Line 277  mathcap *new_mathcap()
Line 303  mathcap *new_mathcap()
     mathcap *new = MALLOC(sizeof(mathcap));      mathcap *new = MALLOC(sizeof(mathcap));
     new->cmotbl = new_table(sysinfo.cmo_tags);      new->cmotbl = new_table(sysinfo.cmo_tags);
     new->smtbl  = new_table(sysinfo.sm_cmds);      new->smtbl  = new_table(sysinfo.sm_cmds);
       new->opts   = clone_str_list(sysinfo.opts);
     return new;      return new;
 }  }
   
Line 285  cmo_mathcap* mathcap_get(mathcap *this)
Line 312  cmo_mathcap* mathcap_get(mathcap *this)
 {  {
     cmo_list *mc = new_cmo_list();      cmo_list *mc = new_cmo_list();
     cmo_list *l3 = new_cmo_list();      cmo_list *l3 = new_cmo_list();
       cmo_list *si = sysinfo_get();
       cmo_list *sm=  table_get_all(this->smtbl);
       cmo_list *opts;
       int i;
   
     list_append(l3, (cmo *)list_appendl(new_cmo_list(),      list_append(l3, (cmo *)list_appendl(new_cmo_list(),
                                  new_cmo_int32(OX_DATA),                                   new_cmo_int32(OX_DATA),
                                  table_get_all(this->cmotbl), NULL));                                   table_get_all(this->cmotbl), NULL));
     list_appendl(mc, (cmo *)sysinfo_get(),      if(this->opts) {
                  (cmo *)table_get_all(this->smtbl), (cmo *)l3, NULL);          opts = new_cmo_list();
           for(i=0; this->opts[i]!=NULL; i++) {
               list_append(opts, (cmo *)new_cmo_string(this->opts[i]));
           }
           list_appendl(mc, (cmo *)si, (cmo *)sm, (cmo *)l3, (cmo *)opts, NULL);
       }else {
           list_appendl(mc, (cmo *)si, (cmo *)sm, (cmo *)l3, NULL);
       }
     return new_cmo_mathcap((cmo *)mc);      return new_cmo_mathcap((cmo *)mc);
 }  }
   

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.17

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