inital commit

bin/dune

@@ -0,0 +1,5 @@
+(executable
+ (name main)
+ (public_name vanity-demo)
+ (libraries vanity))
+

bin/main.ml

@@ -0,0 +1,45 @@
+open Vanity
+
+type profile = {
+  name : string;
+  flags : Pipeline.optimisation_flags;
+  relation : Relation.relation;
+}
+
+let safe_flags =
+  { Pipeline.default_flags with unsafe_repr_eq = false; unsafe_strict_unroll = false }
+
+let profiles =
+  [
+    { name = "safe"; flags = safe_flags; relation = Relation.Boxed_unboxed };
+    { name = "specialise-only"; flags = { safe_flags with inline = false; repr_lower = false }; relation = Relation.Baseline };
+    { name = "inline-no-repr-leak"; flags = { safe_flags with inline = true }; relation = Relation.Boxed_unboxed };
+    { name = "unsafe-inline"; flags = { safe_flags with unsafe_repr_eq = true }; relation = Relation.Boxed_unboxed };
+    { name = "unsafe-unbox"; flags = Pipeline.default_flags; relation = Relation.Boxed_unboxed };
+    { name = "unsafe-strictness"; flags = { safe_flags with inline = false; unsafe_strict_unroll = true }; relation = Relation.Boxed_unboxed };
+  ]
+
+let run_case (case : Corpus.case) =
+  let audit = Audit.audit_case case in
+  Printf.printf
+    "case %s\nclassification %s\nverdict %s\nsource %s\ntarget %s\n\n"
+    case.Corpus.name
+    (Audit.failure_mode_to_string audit.Audit.failure_mode)
+    (Reporting.verdict_to_string audit.Audit.comparison.Relation.verdict)
+    (Reporting.string_of_source_outcome audit.Audit.source_trace.Source.outcome)
+    (Reporting.string_of_target_outcome audit.Audit.target_trace.Target.outcome)
+
+let run_profile profile =
+  let result = Gen.run_campaign profile.flags profile.relation ~count:160 ~max_depth:4 () in
+  Printf.printf
+    "profile %s\nrelated %d/%d\nviolations %d\n\n"
+    profile.name
+    result.Gen.related
+    result.Gen.total
+    (result.Gen.total - result.Gen.related)
+
+let () =
+  Printf.printf "corpus\n\n";
+  List.iter run_case Corpus.all;
+  Printf.printf "profiles\n\n";
+  List.iter run_profile profiles