Explore (un)marshaling binary data from the compiler

cristianoc · cristianoc · commit f42ed891af17 · 2023-04-06T16:26:15.000+02:00
dune build marshal_test.bc.js

node ./_build/default/marshal_test.bc.js
diff --git a/dune b/dune
@@ -1 +1 @@
-(dirs jscomp res_syntax)
+(executable (name marshal_test) (modes js))
diff --git a/marshal_test.ml b/marshal_test.ml
@@ -0,0 +1,7 @@
+let marshal v = Marshal.to_bytes v []
+
+let unmarshal x = Obj.magic(Marshal.from_bytes x 0)
+
+let s = marshal (1,2,3)
+let v = unmarshal s
+

Original file line number	Diff line number	Diff line change
`@@ -1 +1 @@`
`1`		`-(dirs jscomp res_syntax)`
	`1`	`+(executable (name marshal_test) (modes js))`