Commits

Dmitry Grebeniuk  committed 56644db

renames of Cd_Ser.*

  • Participants
  • Parent commits cf5b945

Comments (0)

Files changed (1)

File src/cd_Ser.ml

 
 
 
-value ti_add_ser_deser
- : #ti 'a -> unit
- = fun ti ->
-     (
-         uti_add_meth (ti :> uti) "ser.marshal" &
-           ubox (ti_abs ti ti_string) &
-             (ti_ser_td ti ti#type_desc)
-     ;
-         uti_add_meth (ti :> uti) "deser.marshal" &
-           ubox (ti_abs ti_string ti) &
-             (ti_deser_td ti ti#type_desc)
-     )
-;
-
-
-value ti_ser
+value ti_ser_marshal
  : #ti 'a -> 'a -> string
  = fun ti ->
      get_meth_typed1 "ser.marshal" ti ti ti_string
 ;
 
 
-value ti_deser
+value ti_deser_marshal
  : #ti 'a -> string -> 'a
  = fun ti ->
      get_meth_typed1 "deser.marshal" ti ti_string ti
 ;
 
+
+value ti_add_marshal_struc
+  ?(ser=False) ?(deser=False) (ti : #ti 'a) () : unit
+  =
+    ( if ser
+      then
+        uti_add_meth (ti :> uti) "ser.marshal" &
+          ubox (ti_abs ti ti_string) &
+            (ti_ser_td ti ti#type_desc)
+      else ()
+    ; if deser
+      then
+        uti_add_meth (ti :> uti) "deser.marshal" &
+          ubox (ti_abs ti_string ti) &
+            (ti_deser_td ti ti#type_desc)
+      else ()
+    )
+;