OpenXM_contrib2/asir2018/builtin/user.c - diff

Return to user.c CVS log

Up to [local] / OpenXM_contrib2 / asir2018 / builtin

-version 1.1, 2018/09/19 05:45:06
+version 1.2, 2018/09/24 22:26:43
 Line 1
 Line 1
 Line 1
- /* $OpenXM$ */
+ /* $OpenXM: OpenXM_contrib2/asir2018/builtin/user.c,v 1.1 2018/09/19 05:45:06 noro Exp $ */
  /* a sample file for adding builtin functions */
 Line 74  void partial_derivative(VL vl,P p,V v,P *r)
 Line 74  void partial_derivative(VL vl,P p,V v,P *r)
 Line 74  void partial_derivative(VL vl,P p,V v,P *r)
    }
  }
  */
+ void dsave(char *name,Obj a)
+ {
+   extern int ox_file_io;
+   VL vl;
+   FILE *fp = fopen(name,"wb");
+   ox_file_io = 1; /* network byte order is used */
+   get_vars_recursive(a,&vl);
+   savevl(fp,CO);
+   saveobj(fp,a);
+   fclose(fp);
+   ox_file_io = 0;
+ }