unikernel/duniverse/dune_/test/blackbox-tests/test-cases/preprocess-with-action.t/pp/dune

@@ -0,0 +1,4 @@
+(executable
+ (name pp))
+
+(ocamllex pp)

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/preprocess-with-action.t/pp/pp.mll

@@ -0,0 +1,10 @@
+rule main = parse
+  | eof { () }
+  | "_STRING_" { Printf.printf "%S" "Hello, world!"; main lexbuf }
+  | _ as c { print_char c; main lexbuf }
+
+{
+  let () =
+    set_binary_mode_out stdout true;
+    main (Lexing.from_channel (open_in_bin Sys.argv.(1)))
+}