unikernel/duniverse/seq/src/select_version.ml

@@ -0,0 +1,16 @@
+let () =
+  let version =
+    Scanf.sscanf Sys.ocaml_version "%d.%d" (fun major minor -> (major, minor))
+  in
+  let basename = if version < (4, 07) then "seq_redef" else "seq_alias" in 
+  let file =
+    match Sys.argv.(1) with
+    | "intf" -> basename ^ ".mli"
+    | "impl" -> basename ^ ".ml"
+    | _ -> assert false
+  in
+  let ic = open_in_bin file in
+  let length = in_channel_length ic in
+  let content = really_input_string ic length in
+  close_in ic;
+  print_string content