unikernel/duniverse/ppxlib/astlib/pp/dune

@@ -0,0 +1,5 @@
+(executables
+ (names pp)
+ (flags :standard -w -3))
+
+(ocamllex pp_rewrite)

unikernel/duniverse/ppxlib/astlib/pp/pp.ml

@@ -0,0 +1,12 @@
+let () =
+  match Sys.argv with
+  | [| _; ocaml_version; fname |] ->
+      let is_current =
+        Filename.basename fname = Printf.sprintf "ast_%s.ml" ocaml_version
+      in
+      let ic = open_in_bin fname in
+      Printf.printf "# 1 %S\n" fname;
+      Pp_rewrite.rewrite is_current ocaml_version (Lexing.from_channel ic)
+  | _ ->
+      Printf.eprintf "%s: <ocaml-version> <file-name>\n" Sys.executable_name;
+      exit 2

unikernel/duniverse/ppxlib/astlib/pp/pp.mli

@@ -0,0 +1 @@
+(* empty *)

unikernel/duniverse/ppxlib/astlib/pp/pp_rewrite.mli

@@ -0,0 +1 @@
+val rewrite : bool -> string -> Lexing.lexbuf -> unit

unikernel/duniverse/ppxlib/astlib/pp/pp_rewrite.mll

@@ -0,0 +1,31 @@
+rule rewrite is_current ocaml_version = parse
+  |          "(*IF_CURRENT " ([^'*']* as s) "*)"
+    { let chunk = if is_current
+        then "             " ^ s ^          "  "
+        else Lexing.lexeme lexbuf
+      in
+      print_string chunk;
+      rewrite is_current ocaml_version lexbuf
+    }
+  |          "(*IF_AT_LEAST " ([^'*' ' ']* as v) " " (([^'*'] | '*' [^')'])* as s) "*)"
+    { let chunk = if (v <= ocaml_version)
+        then "              " ^ String.make (String.length v + 1) ' ' ^ s ^          "  "
+        else Lexing.lexeme lexbuf
+      in
+      print_string chunk;
+      rewrite is_current ocaml_version lexbuf
+    }
+  |          "(*IF_NOT_AT_LEAST " ([^'*' ' ']* as v) " " (([^'*'] | '*' [^')'])* as s) "*)"
+    { let chunk = if not (v <= ocaml_version)
+        then "                  " ^ String.make (String.length v + 1) ' ' ^ s ^          "  "
+        else Lexing.lexeme lexbuf
+      in
+      print_string chunk;
+      rewrite is_current ocaml_version lexbuf
+    }
+  | _ as c
+    { print_char c;
+      rewrite is_current ocaml_version lexbuf
+    }
+  | eof { () }
+