introspector

bin/dune

@@ -1,5 +1,7 @@
 (executable
  (public_name gbnf_parser)
  (name main)
- (libraries gbnf_parser))
+ (libraries gbnf_parser)
+(preprocess  (pps ppx-introspector) )
+)
 

dune

@@ -1,10 +1,12 @@
 (env
  (_
   (flags
-   (:standard -warn-error -9-27-26 -dtypedtree -dparsetree -dlambda -annot  -dsource -dump-into-file -drawlambda  -dprofile))))
+   (:standard -warn-error -9-27-26 -dtypedtree -dparsetree -dlambda -annot  -dsource -dump-into-file -drawlambda  ))))
 
 
 
 (library
- (name grammar))
+ (name grammar)
+ (preprocess  (pps ppx-introspector) )
+)
 

dune-project

@@ -1,6 +1,7 @@
 (lang dune 3.5)
 
 (name gbnf_parser)
+(version 0b7449c-dirty)
 (using menhir 2.0)
 (generate_opam_files true)
 

gbnf_parser.opam

@@ -1,5 +1,6 @@
 # This file is generated by dune, edit dune-project instead
 opam-version: "2.0"
+version: "0b7449c-dirty"
 synopsis: "A short synopsis"
 description: "A longer description"
 authors: ["James Michael DuPont"]

lib/ast.ml

@@ -1,6 +1,6 @@
-open Sexplib.Std
+(* open Sexplib.Std *)
 
 type sexp =
   | Atom of string
   | List of sexp list
-  [@@deriving sexp]
+  (* [@@deriving sexp] *)

lib/dune

@@ -25,9 +25,6 @@
 (library
  (name gbnf_parser)
 
- (libraries  menhirLib)
-
+ (libraries  menhirLib batteries ocaml_ocaml_types )
+ (preprocess  (pps ppx-introspector) )
 )
-
-
-

lib/sentenceParser_describe.ml

@@ -15,15 +15,6 @@
     unsafe_string = false;
     cookies = [("inline_tests", "enabled"); ("library-name", "gbnf_parser")]
   }]
-let () =
-  Ppx_module_timer_runtime.record_start Ppx_module_timer_runtime.__MODULE__
-let () =
-  Ppx_bench_lib.Benchmark_accumulator.Current_libname.set "gbnf_parser"
-let () =
-  Expect_test_collector.Current_file.set
-    ~absolute_filename:"lib/sentenceParser.ml"
-let () =
-  Ppx_inline_test_lib.set_lib_and_partition "gbnf_parser" "sentenceParser.ml"
 
 module MenhirBasics =
   struct
@@ -1443,8 +1434,8 @@ module Incremental =
       (Obj.magic (MenhirInterpreter.start 0 initial_position) : Syntax.partial_grammar
                                                                   MenhirInterpreter.checkpoint)
   end
-let () = Ppx_inline_test_lib.unset_lib "gbnf_parser"
-let () = Expect_test_collector.Current_file.unset ()
-let () = Ppx_bench_lib.Benchmark_accumulator.Current_libname.unset ()
-let () =
-  Ppx_module_timer_runtime.record_until Ppx_module_timer_runtime.__MODULE__
+(* let () = Ppx_inline_test_lib.unset_lib "gbnf_parser" *)
+(* let () = Expect_test_collector.Current_file.unset () *)
+(* let () = Ppx_bench_lib.Benchmark_accumulator.Current_libname.unset () *)
+(* let () = *)
+(*   Ppx_module_timer_runtime.record_until Ppx_module_timer_runtime.__MODULE__ *)