OpenXM/src/ox_toolkit/cmo.c - diff

Return to cmo.c CVS log

Up to [local] / OpenXM / src / ox_toolkit

Diff for /OpenXM/src/ox_toolkit/cmo.c between version 1.17 and 1.20

-version 1.17, 2003/11/02 03:09:16
+version 1.20, 2005/07/26 12:52:04
 Line 1
 Line 1
 Line 1
  /* -*- mode: C; coding: euc-japan -*- */
- /* $OpenXM: OpenXM/src/ox_toolkit/cmo.c,v 1.16 2003/09/18 12:46:08 ohara Exp $ */
+ /* $OpenXM: OpenXM/src/ox_toolkit/cmo.c,v 1.19 2005/07/20 17:48:03 ohara Exp $ */
  /*
     This module includes functions for sending/receiveng CMO's.
 Line 110  cmo *list_nth(cmo_list* this, int n)
 Line 110  cmo *list_nth(cmo_list* this, int n)
 Line 110  cmo *list_nth(cmo_list* this, int n)
      return NULL;
  }
+ void **list_to_array(cmo_list *c)
+ {
+         int i;
+         int n = list_length(c);
+         void **array = MALLOC(sizeof(void *)*(n+1));
+         for(i=0; i<n; i++) {
+                 array[i] = list_nth(c, i);
+         }
+         array[n] = NULL;
+         return array;
+ }
+ void **list_to_array_map(cmo_list *c, void *(* mapf)(void *))
+ {
+         int i;
+         int n = list_length(c);
+         void **array = MALLOC(sizeof(void *)*(n+1));
+         for(i=0; i<n; i++) {
+                 array[i] = mapf(list_nth(c, i));
+         }
+         array[n] = NULL;
+         return array;
+ }
  /* for GNU mpz */
  void resize_mpz(mpz_ptr mpz, int size)
  {
-Line 165  cmo_list* new_cmo_list()
+Line 189  cmo_list* new_cmo_list()
 Line 165  cmo_list* new_cmo_list()
 Line 189  cmo_list* new_cmo_list()
      return c;
  }
+ cmo_list* new_cmo_list_set(void *array[], int n)
+ {
+     int i;
+     cmo_list* c = new_cmo_list();
+     for(i=0; i<n; i++) {
+         list_append(c, array[i]);
+     }
+     return c;
+ }
+ cmo_list* new_cmo_list_map(void *array[], int n, void *(* mapf)(void *))
+ {
+     int i;
+     cmo_list* c = new_cmo_list();
+     for(i=0; i<n; i++) {
+         list_append(c, (cmo *)mapf(array[i]));
+     }
+     return c;
+ }
  cmo_monomial32* new_cmo_monomial32()
  {
      cmo_monomial32* c = MALLOC(sizeof(cmo_monomial32));
-Line 225  cmo_zz* new_cmo_zz_size(int size)
+Line 269  cmo_zz* new_cmo_zz_size(int size)
 Line 225  cmo_zz* new_cmo_zz_size(int size)
 Line 269  cmo_zz* new_cmo_zz_size(int size)
      return c;
  }
+ cmo_qq* new_cmo_qq_noinit()
+ {
+     cmo_qq* c = MALLOC(sizeof(cmo_qq));
+     c->tag  = CMO_QQ;
+     c->num  = c->den = NULL;
+     return c;
+ }
+ cmo_qq* new_cmo_qq_set_mpq(mpq_ptr q)
+ {
+     cmo_qq* c = new_cmo_qq_noinit();
+     c->num = new_cmo_zz_set_mpz(mpq_numref(q));
+     c->den = new_cmo_zz_set_mpz(mpq_denref(q));
+     return c;
+ }
+ cmo_qq* new_cmo_qq_set_mpz(mpz_ptr num, mpz_ptr den)
+ {
+     cmo_qq* c = new_cmo_qq_noinit();
+     c->num = new_cmo_zz_set_mpz(num);
+     c->den = new_cmo_zz_set_mpz(den);
+     return c;
+ }
  cmo_zero* new_cmo_zero()
  {
      cmo_zero* m = MALLOC_ATOMIC(sizeof(cmo_zero));
-Line 235  cmo_zero* new_cmo_zero()
+Line 303  cmo_zero* new_cmo_zero()
 Line 235  cmo_zero* new_cmo_zero()
 Line 303  cmo_zero* new_cmo_zero()
  cmo_double *new_cmo_double(double d)
  {
      cmo_double* m = MALLOC_ATOMIC(sizeof(cmo_double));
-     m->tag = CMO_64BIT_MACHINE_DOUBLE;
+     m->tag = CMO_IEEE_DOUBLE_FLOAT;
      m->d = d;
      return m;
  }
-Line 397  char *new_string_set_cmo(cmo *m)
+Line 465  char *new_string_set_cmo(cmo *m)
 Line 397  char *new_string_set_cmo(cmo *m)
 Line 465  char *new_string_set_cmo(cmo *m)
          return new_string_set_cmo_null();
      case CMO_LIST:
          return new_string_set_cmo_list((cmo_list *)m);
-         case CMO_64BIT_MACHINE_DOUBLE:
+     case CMO_64BIT_MACHINE_DOUBLE:
+     case CMO_IEEE_DOUBLE_FLOAT:
          return new_string_set_cmo_double((cmo_double *)m);
      default:
          ox_printf("unconvertible <%s>\n", get_symbol_by_tag(m->tag));

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