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

Diff for /OpenXM_contrib2/asir2000/io/io.c between version 1.2 and 1.3

version 1.2, 2000/01/18 05:55:07 version 1.3, 2000/03/16 04:55:20
Line 1 
Line 1 
 /* $OpenXM: OpenXM_contrib2/asir2000/io/io.c,v 1.1.1.1 1999/12/03 07:39:11 noro Exp $ */  /* $OpenXM: OpenXM_contrib2/asir2000/io/io.c,v 1.2 2000/01/18 05:55:07 noro Exp $ */
 #include <stdio.h>  #include <stdio.h>
 #include "ca.h"  #include "ca.h"
 #if defined(VISUAL) || MPI  #if defined(VISUAL) || MPI
 #include "wsio.h"  #include "wsio.h"
 #endif  #endif
   
 extern int little_endian;  extern int little_endian,lib_ox_need_conv;
 extern int ox_do_copy, ox_do_count, ox_count_length, ox_file_io, ox_need_conv;  extern int ox_do_copy, ox_do_count, ox_count_length, ox_file_io, ox_need_conv;
 extern char *ox_copy_bptr;  extern char *ox_copy_bptr;
   
Line 55  char *s;
Line 55  char *s;
         ox_copy_bptr = s;          ox_copy_bptr = s;
 }  }
   
 void ox_obj_to_buf(p)  /*
 Obj p;   * library mode functions
 {   * byte order is controlled by lib_ox_need_conv.
         ox_do_copy = 1; saveobj(0,p); ox_do_copy = 0;   */
 }  
   
 void ox_buf_to_obj(p)  
 Obj *p;  
 {  
         ox_do_copy = 1; loadobj(0,p); ox_do_copy = 0;  
 }  
   
 void ox_obj_to_buf_as_cmo(p)  void ox_obj_to_buf_as_cmo(p)
 Obj p;  Obj p;
 {  {
           ox_need_conv = lib_ox_need_conv;
         ox_do_copy = 1; write_cmo(0,p); ox_do_copy = 0;          ox_do_copy = 1; write_cmo(0,p); ox_do_copy = 0;
 }  }
   
 void ox_buf_to_obj_as_cmo(p)  void ox_buf_to_obj_as_cmo(p)
 Obj *p;  Obj *p;
 {  {
           ox_need_conv = lib_ox_need_conv;
         ox_do_copy = 1; read_cmo(0,p); ox_do_copy = 0;          ox_do_copy = 1; read_cmo(0,p); ox_do_copy = 0;
 }  }
   
Line 83  void ox_vl_to_buf(vl)
Line 78  void ox_vl_to_buf(vl)
 VL vl;  VL vl;
 {  {
         ox_do_copy = 1; savevl(0,vl); ox_do_copy = 0;          ox_do_copy = 1; savevl(0,vl); ox_do_copy = 0;
 }  
   
 void risa_to_cmo(obj,cmo)  
 Obj obj;  
 void **cmo;  
 {  
         int len;  
         void *buf;  
   
         len = count_as_cmo(obj);  
         *cmo = buf = (void *)MALLOC_ATOMIC(len);  
         ox_copy_init(buf);  
         ox_obj_to_buf_as_cmo(obj);  
 }  
   
 void cmo_to_risa(cmo,obj)  
 void *cmo;  
 Obj *obj;  
 {  
         ox_copy_init(cmo);  
         ox_buf_to_obj_as_cmo(obj);  
 }  }
   
 int gen_fread (ptr,size,nitems,stream)  int gen_fread (ptr,size,nitems,stream)
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>