unikernel/duniverse/dune_/test/blackbox-tests/utils/dunepp.mll

@@ -0,0 +1,29 @@
+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;
+    let (input, pp_cwd, deps) =
+      match Array.to_list Sys.argv with
+      | _ :: input :: pp_cwd :: deps -> (input, Some pp_cwd, deps)
+      | _ :: [input] -> (input, None, [])
+      | _ -> assert false
+    in
+    begin match pp_cwd with
+    | None -> ()
+    | Some _ -> Printf.eprintf "running preprocessor in %s\n" (Sys.getcwd ())
+    end;
+    ListLabels.iter deps ~f:(fun f ->
+      Printf.eprintf "dep %s exists = %b\n" f (Sys.file_exists f);
+      begin match pp_cwd with
+      | None -> ()
+      | Some pp_cwd ->
+        let f = Filename.concat pp_cwd f in
+        Printf.eprintf "dep %s exists = %b\n" f (Sys.file_exists f)
+      end
+    );
+    main (Lexing.from_channel (open_in_bin input))
+}