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

Diff for /OpenXM/src/ox_toolkit/cmo.c between version 1.6 and 1.10

version 1.6, 2003/01/17 06:49:53 version 1.10, 2003/03/30 08:05:22
Line 1 
Line 1 
 /* -*- mode: C; coding: euc-japan -*- */  /* -*- mode: C; coding: euc-japan -*- */
 /* $OpenXM: OpenXM/src/ox_toolkit/cmo.c,v 1.5 2003/01/13 12:03:12 ohara Exp $ */  /* $OpenXM: OpenXM/src/ox_toolkit/cmo.c,v 1.9 2003/03/23 20:17:34 ohara Exp $ */
   
 /*  /*
    This module includes functions for sending/receiveng CMO's.     This module includes functions for sending/receiveng CMO's.
Line 19  static char*        new_string_set_cmo_null();
Line 19  static char*        new_string_set_cmo_null();
 static char*        new_string_set_cmo_int32(int integer);  static char*        new_string_set_cmo_int32(int integer);
 static char*        new_string_set_cmo_list(cmo_list *c);  static char*        new_string_set_cmo_list(cmo_list *c);
 static char*        new_string_set_cmo_zz(cmo_zz *c);  static char*        new_string_set_cmo_zz(cmo_zz *c);
   static char*        new_string_set_cmo_double(cmo_double *m);
   
 /* functions for a cmo_list */  /* functions for a cmo_list */
 static cell* new_cell(cmo *ob)  static cell* new_cell(cmo *ob)
Line 324  static char *new_string_set_cmo_list(cmo_list *m)
Line 325  static char *new_string_set_cmo_list(cmo_list *m)
     return s;      return s;
 }  }
   
   static char *new_string_set_cmo_double(cmo_double *m)
   {
       char buff[1024];
       char *s;
   
       sprintf(buff, "%lf", m->d);
       s = malloc(strlen(buff)+1);
       strcpy(s, buff);
   
       return s;
   }
   
 char *new_string_set_cmo(cmo *m)  char *new_string_set_cmo(cmo *m)
 {  {
     symbol_t symp;  
     switch(m->tag) {      switch(m->tag) {
     case CMO_ZZ:      case CMO_ZZ:
         return new_string_set_cmo_zz((cmo_zz *)m);          return new_string_set_cmo_zz((cmo_zz *)m);
Line 338  char *new_string_set_cmo(cmo *m)
Line 350  char *new_string_set_cmo(cmo *m)
         return new_string_set_cmo_null();          return new_string_set_cmo_null();
     case CMO_LIST:      case CMO_LIST:
         return new_string_set_cmo_list((cmo_list *)m);          return new_string_set_cmo_list((cmo_list *)m);
           case CMO_64BIT_MACHINE_DOUBLE:
           return new_string_set_cmo_int32(m);
     default:      default:
 #ifdef DEBUG          ox_printf("unconvertible <%s>\n", get_symbol_by_tag(m->tag));
         symp = lookup_by_tag(m->tag);  
         ox_printf("I do not know how to convert %s to a string.\n", symp->key);  
 #endif  
         /* yet not implemented. */          /* yet not implemented. */
         return NULL;          return NULL;
     }      }
 }  }
   

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.10

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