unikernel/duniverse/ocaml-cstruct/ppx_test/with-sexp/dune

@@ -0,0 +1,11 @@
+(executable
+ (name ppx_cstruct_and_sexp)
+ (preprocess
+  (pps ppx_cstruct ppx_sexp_conv -- -no-check))
+ (libraries cstruct sexplib cstruct-sexp))
+
+(rule
+ (alias runtest)
+ (package ppx_cstruct)
+ (action
+  (run ./ppx_cstruct_and_sexp.exe)))

unikernel/duniverse/ocaml-cstruct/ppx_test/with-sexp/ppx_cstruct_and_sexp.ml

@@ -0,0 +1,11 @@
+[%%cstruct type foo = {
+  magic: uint8_t [@len 16];
+}[@@little_endian]]
+
+open Sexplib.Std
+type t = int [@@deriving sexp]
+
+type bar = {
+  buf: Cstruct_sexp.t;
+  string: string;
+} [@@deriving sexp]