Commit 7cb78006 authored by Michael Sammler's avatar Michael Sammler
Browse files

hack printing of filenames

parent f4e721d4
Pipeline #50051 passed with stage
in 18 minutes and 40 seconds
...@@ -5,7 +5,7 @@ Set Default Proof Using "Type". ...@@ -5,7 +5,7 @@ Set Default Proof Using "Type".
(* Generated from [examples/binary_search.c]. *) (* Generated from [examples/binary_search.c]. *)
Section code. Section code.
Definition file_0 : string := "/local/home/mackie/andres/Jobs/MPI-SWS/repos/refinedc/include/refinedc.h". Definition file_0 : string := "???".
Definition file_1 : string := "examples/binary_search.c". Definition file_1 : string := "examples/binary_search.c".
Definition loc_2 : location_info := LocationInfo file_0 49 2 49 47. Definition loc_2 : location_info := LocationInfo file_0 49 2 49 47.
Definition loc_3 : location_info := LocationInfo file_0 49 9 49 46. Definition loc_3 : location_info := LocationInfo file_0 49 9 49 46.
......
...@@ -5,7 +5,7 @@ Set Default Proof Using "Type". ...@@ -5,7 +5,7 @@ Set Default Proof Using "Type".
(* Generated from [examples/btree.c]. *) (* Generated from [examples/btree.c]. *)
Section code. Section code.
Definition file_0 : string := "/local/home/mackie/andres/Jobs/MPI-SWS/repos/refinedc/include/refinedc.h". Definition file_0 : string := "???".
Definition file_1 : string := "examples/btree.c". Definition file_1 : string := "examples/btree.c".
Definition loc_2 : location_info := LocationInfo file_0 49 2 49 47. Definition loc_2 : location_info := LocationInfo file_0 49 2 49 47.
Definition loc_3 : location_info := LocationInfo file_0 49 9 49 46. Definition loc_3 : location_info := LocationInfo file_0 49 9 49 46.
......
...@@ -6,7 +6,7 @@ Set Default Proof Using "Type". ...@@ -6,7 +6,7 @@ Set Default Proof Using "Type".
(* Generated from [examples/intptr.c]. *) (* Generated from [examples/intptr.c]. *)
Section code. Section code.
Definition file_0 : string := "examples/intptr.c". Definition file_0 : string := "examples/intptr.c".
Definition file_1 : string := "/local/home/mackie/andres/Jobs/MPI-SWS/repos/refinedc/include/refinedc.h". Definition file_1 : string := "???".
Definition loc_2 : location_info := LocationInfo file_1 49 2 49 47. Definition loc_2 : location_info := LocationInfo file_1 49 2 49 47.
Definition loc_3 : location_info := LocationInfo file_1 49 9 49 46. Definition loc_3 : location_info := LocationInfo file_1 49 9 49 46.
Definition loc_4 : location_info := LocationInfo file_1 49 9 49 32. Definition loc_4 : location_info := LocationInfo file_1 49 9 49 32.
......
...@@ -5,7 +5,7 @@ Set Default Proof Using "Type". ...@@ -5,7 +5,7 @@ Set Default Proof Using "Type".
(* Generated from [examples/lock.c]. *) (* Generated from [examples/lock.c]. *)
Section code. Section code.
Definition file_0 : string := "/local/home/mackie/andres/Jobs/MPI-SWS/repos/refinedc/include/refinedc.h". Definition file_0 : string := "???".
Definition file_1 : string := "examples/lock.c". Definition file_1 : string := "examples/lock.c".
Definition loc_2 : location_info := LocationInfo file_0 49 2 49 47. Definition loc_2 : location_info := LocationInfo file_0 49 2 49 47.
Definition loc_3 : location_info := LocationInfo file_0 49 9 49 46. Definition loc_3 : location_info := LocationInfo file_0 49 9 49 46.
......
...@@ -5,7 +5,7 @@ Set Default Proof Using "Type". ...@@ -5,7 +5,7 @@ Set Default Proof Using "Type".
(* Generated from [examples/malloc1.c]. *) (* Generated from [examples/malloc1.c]. *)
Section code. Section code.
Definition file_0 : string := "/local/home/mackie/andres/Jobs/MPI-SWS/repos/refinedc/include/refinedc.h". Definition file_0 : string := "???".
Definition file_1 : string := "examples/malloc1.c". Definition file_1 : string := "examples/malloc1.c".
Definition loc_2 : location_info := LocationInfo file_0 49 2 49 47. Definition loc_2 : location_info := LocationInfo file_0 49 2 49 47.
Definition loc_3 : location_info := LocationInfo file_0 49 9 49 46. Definition loc_3 : location_info := LocationInfo file_0 49 9 49 46.
......
...@@ -5,7 +5,7 @@ Set Default Proof Using "Type". ...@@ -5,7 +5,7 @@ Set Default Proof Using "Type".
(* Generated from [examples/mpool.c]. *) (* Generated from [examples/mpool.c]. *)
Section code. Section code.
Definition file_0 : string := "/local/home/mackie/andres/Jobs/MPI-SWS/repos/refinedc/include/refinedc.h". Definition file_0 : string := "???".
Definition file_1 : string := "examples/mpool.c". Definition file_1 : string := "examples/mpool.c".
Definition loc_2 : location_info := LocationInfo file_0 49 2 49 47. Definition loc_2 : location_info := LocationInfo file_0 49 2 49 47.
Definition loc_3 : location_info := LocationInfo file_0 49 9 49 46. Definition loc_3 : location_info := LocationInfo file_0 49 9 49 46.
......
...@@ -5,7 +5,7 @@ Set Default Proof Using "Type". ...@@ -5,7 +5,7 @@ Set Default Proof Using "Type".
(* Generated from [examples/mpool_simpl.c]. *) (* Generated from [examples/mpool_simpl.c]. *)
Section code. Section code.
Definition file_0 : string := "/local/home/mackie/andres/Jobs/MPI-SWS/repos/refinedc/include/refinedc.h". Definition file_0 : string := "???".
Definition file_1 : string := "examples/mpool_simpl.c". Definition file_1 : string := "examples/mpool_simpl.c".
Definition loc_2 : location_info := LocationInfo file_0 49 2 49 47. Definition loc_2 : location_info := LocationInfo file_0 49 2 49 47.
Definition loc_3 : location_info := LocationInfo file_0 49 9 49 46. Definition loc_3 : location_info := LocationInfo file_0 49 9 49 46.
......
...@@ -6,7 +6,7 @@ Set Default Proof Using "Type". ...@@ -6,7 +6,7 @@ Set Default Proof Using "Type".
(* Generated from [examples/mutable_map.c]. *) (* Generated from [examples/mutable_map.c]. *)
Section code. Section code.
Definition file_0 : string := "examples/mutable_map.c". Definition file_0 : string := "examples/mutable_map.c".
Definition file_1 : string := "/local/home/mackie/andres/Jobs/MPI-SWS/repos/refinedc/include/refinedc.h". Definition file_1 : string := "???".
Definition loc_2 : location_info := LocationInfo file_1 49 2 49 47. Definition loc_2 : location_info := LocationInfo file_1 49 2 49 47.
Definition loc_3 : location_info := LocationInfo file_1 49 9 49 46. Definition loc_3 : location_info := LocationInfo file_1 49 9 49 46.
Definition loc_4 : location_info := LocationInfo file_1 49 9 49 32. Definition loc_4 : location_info := LocationInfo file_1 49 9 49 32.
......
...@@ -5,7 +5,7 @@ Set Default Proof Using "Type". ...@@ -5,7 +5,7 @@ Set Default Proof Using "Type".
(* Generated from [examples/ocaml_runtime.c]. *) (* Generated from [examples/ocaml_runtime.c]. *)
Section code. Section code.
Definition file_0 : string := "/local/home/mackie/andres/Jobs/MPI-SWS/repos/refinedc/include/refinedc.h". Definition file_0 : string := "???".
Definition file_1 : string := "examples/ocaml_runtime.c". Definition file_1 : string := "examples/ocaml_runtime.c".
Definition loc_2 : location_info := LocationInfo file_0 49 2 49 47. Definition loc_2 : location_info := LocationInfo file_0 49 2 49 47.
Definition loc_3 : location_info := LocationInfo file_0 49 9 49 46. Definition loc_3 : location_info := LocationInfo file_0 49 9 49 46.
......
...@@ -5,7 +5,7 @@ Set Default Proof Using "Type". ...@@ -5,7 +5,7 @@ Set Default Proof Using "Type".
(* Generated from [examples/paper_example_2_1.c]. *) (* Generated from [examples/paper_example_2_1.c]. *)
Section code. Section code.
Definition file_0 : string := "/local/home/mackie/andres/Jobs/MPI-SWS/repos/refinedc/include/refinedc.h". Definition file_0 : string := "???".
Definition file_1 : string := "examples/paper_example_2_1.c". Definition file_1 : string := "examples/paper_example_2_1.c".
Definition loc_2 : location_info := LocationInfo file_0 49 2 49 47. Definition loc_2 : location_info := LocationInfo file_0 49 2 49 47.
Definition loc_3 : location_info := LocationInfo file_0 49 9 49 46. Definition loc_3 : location_info := LocationInfo file_0 49 9 49 46.
......
...@@ -5,7 +5,7 @@ Set Default Proof Using "Type". ...@@ -5,7 +5,7 @@ Set Default Proof Using "Type".
(* Generated from [examples/paper_example_2_2.c]. *) (* Generated from [examples/paper_example_2_2.c]. *)
Section code. Section code.
Definition file_0 : string := "/local/home/mackie/andres/Jobs/MPI-SWS/repos/refinedc/include/refinedc.h". Definition file_0 : string := "???".
Definition file_1 : string := "examples/paper_example_2_2.c". Definition file_1 : string := "examples/paper_example_2_2.c".
Definition loc_2 : location_info := LocationInfo file_0 49 2 49 47. Definition loc_2 : location_info := LocationInfo file_0 49 2 49 47.
Definition loc_3 : location_info := LocationInfo file_0 49 9 49 46. Definition loc_3 : location_info := LocationInfo file_0 49 9 49 46.
......
...@@ -5,7 +5,7 @@ Set Default Proof Using "Type". ...@@ -5,7 +5,7 @@ Set Default Proof Using "Type".
(* Generated from [examples/queue.c]. *) (* Generated from [examples/queue.c]. *)
Section code. Section code.
Definition file_0 : string := "/local/home/mackie/andres/Jobs/MPI-SWS/repos/refinedc/include/refinedc.h". Definition file_0 : string := "???".
Definition file_1 : string := "examples/queue.c". Definition file_1 : string := "examples/queue.c".
Definition loc_2 : location_info := LocationInfo file_0 49 2 49 47. Definition loc_2 : location_info := LocationInfo file_0 49 2 49 47.
Definition loc_3 : location_info := LocationInfo file_0 49 9 49 46. Definition loc_3 : location_info := LocationInfo file_0 49 9 49 46.
......
...@@ -6,7 +6,7 @@ Set Default Proof Using "Type". ...@@ -6,7 +6,7 @@ Set Default Proof Using "Type".
(* Generated from [examples/reverse.c]. *) (* Generated from [examples/reverse.c]. *)
Section code. Section code.
Definition file_0 : string := "examples/reverse.c". Definition file_0 : string := "examples/reverse.c".
Definition file_1 : string := "/local/home/mackie/andres/Jobs/MPI-SWS/repos/refinedc/include/refinedc.h". Definition file_1 : string := "???".
Definition loc_2 : location_info := LocationInfo file_1 49 2 49 47. Definition loc_2 : location_info := LocationInfo file_1 49 2 49 47.
Definition loc_3 : location_info := LocationInfo file_1 49 9 49 46. Definition loc_3 : location_info := LocationInfo file_1 49 9 49 46.
Definition loc_4 : location_info := LocationInfo file_1 49 9 49 32. Definition loc_4 : location_info := LocationInfo file_1 49 9 49 32.
......
...@@ -5,7 +5,7 @@ Set Default Proof Using "Type". ...@@ -5,7 +5,7 @@ Set Default Proof Using "Type".
(* Generated from [examples/simple_union.c]. *) (* Generated from [examples/simple_union.c]. *)
Section code. Section code.
Definition file_0 : string := "/local/home/mackie/andres/Jobs/MPI-SWS/repos/refinedc/include/refinedc.h". Definition file_0 : string := "???".
Definition file_1 : string := "examples/simple_union.c". Definition file_1 : string := "examples/simple_union.c".
Definition loc_2 : location_info := LocationInfo file_0 49 2 49 47. Definition loc_2 : location_info := LocationInfo file_0 49 2 49 47.
Definition loc_3 : location_info := LocationInfo file_0 49 9 49 46. Definition loc_3 : location_info := LocationInfo file_0 49 9 49 46.
......
...@@ -5,7 +5,7 @@ Set Default Proof Using "Type". ...@@ -5,7 +5,7 @@ Set Default Proof Using "Type".
(* Generated from [examples/tagged_ptr.c]. *) (* Generated from [examples/tagged_ptr.c]. *)
Section code. Section code.
Definition file_0 : string := "/local/home/mackie/andres/Jobs/MPI-SWS/repos/refinedc/include/refinedc.h". Definition file_0 : string := "???".
Definition file_1 : string := "examples/tagged_ptr.c". Definition file_1 : string := "examples/tagged_ptr.c".
Definition loc_2 : location_info := LocationInfo file_0 49 2 49 47. Definition loc_2 : location_info := LocationInfo file_0 49 2 49 47.
Definition loc_3 : location_info := LocationInfo file_0 49 9 49 46. Definition loc_3 : location_info := LocationInfo file_0 49 9 49 46.
......
...@@ -5,7 +5,7 @@ Set Default Proof Using "Type". ...@@ -5,7 +5,7 @@ Set Default Proof Using "Type".
(* Generated from [examples/talk_demo1.c]. *) (* Generated from [examples/talk_demo1.c]. *)
Section code. Section code.
Definition file_0 : string := "/local/home/mackie/andres/Jobs/MPI-SWS/repos/refinedc/include/refinedc.h". Definition file_0 : string := "???".
Definition file_1 : string := "examples/talk_demo1.c". Definition file_1 : string := "examples/talk_demo1.c".
Definition loc_2 : location_info := LocationInfo file_0 49 2 49 47. Definition loc_2 : location_info := LocationInfo file_0 49 2 49 47.
Definition loc_3 : location_info := LocationInfo file_0 49 9 49 46. Definition loc_3 : location_info := LocationInfo file_0 49 9 49 46.
......
...@@ -5,7 +5,7 @@ Set Default Proof Using "Type". ...@@ -5,7 +5,7 @@ Set Default Proof Using "Type".
(* Generated from [examples/talk_demo2.c]. *) (* Generated from [examples/talk_demo2.c]. *)
Section code. Section code.
Definition file_0 : string := "/local/home/mackie/andres/Jobs/MPI-SWS/repos/refinedc/include/refinedc.h". Definition file_0 : string := "???".
Definition file_1 : string := "examples/talk_demo2.c". Definition file_1 : string := "examples/talk_demo2.c".
Definition loc_2 : location_info := LocationInfo file_0 49 2 49 47. Definition loc_2 : location_info := LocationInfo file_0 49 2 49 47.
Definition loc_3 : location_info := LocationInfo file_0 49 9 49 46. Definition loc_3 : location_info := LocationInfo file_0 49 9 49 46.
......
...@@ -5,7 +5,7 @@ Set Default Proof Using "Type". ...@@ -5,7 +5,7 @@ Set Default Proof Using "Type".
(* Generated from [examples/talk_demo3.c]. *) (* Generated from [examples/talk_demo3.c]. *)
Section code. Section code.
Definition file_0 : string := "/local/home/mackie/andres/Jobs/MPI-SWS/repos/refinedc/include/refinedc.h". Definition file_0 : string := "???".
Definition file_1 : string := "examples/talk_demo3.c". Definition file_1 : string := "examples/talk_demo3.c".
Definition loc_2 : location_info := LocationInfo file_0 49 2 49 47. Definition loc_2 : location_info := LocationInfo file_0 49 2 49 47.
Definition loc_3 : location_info := LocationInfo file_0 49 9 49 46. Definition loc_3 : location_info := LocationInfo file_0 49 9 49 46.
......
...@@ -6,7 +6,7 @@ Set Default Proof Using "Type". ...@@ -6,7 +6,7 @@ Set Default Proof Using "Type".
(* Generated from [examples/wrapping_add.c]. *) (* Generated from [examples/wrapping_add.c]. *)
Section code. Section code.
Definition file_0 : string := "/local/home/mackie/andres/Jobs/MPI-SWS/repos/refinedc/include/refinedc.h". Definition file_0 : string := "???".
Definition file_1 : string := "examples/wrapping_add.c". Definition file_1 : string := "examples/wrapping_add.c".
Definition loc_2 : location_info := LocationInfo file_0 49 2 49 47. Definition loc_2 : location_info := LocationInfo file_0 49 2 49 47.
Definition loc_3 : location_info := LocationInfo file_0 49 9 49 46. Definition loc_3 : location_info := LocationInfo file_0 49 9 49 46.
......
...@@ -325,7 +325,8 @@ let pp_code : import list -> Coq_ast.t pp = fun imports ff ast -> ...@@ -325,7 +325,8 @@ let pp_code : import list -> Coq_ast.t pp = fun imports ff ast ->
(locs, files) (locs, files)
in in
let pp_file_def (file, key) = let pp_file_def (file, key) =
fprintf ff "@;Definition file_%i : string := \"%s\"." key file (* FIXME! HACK!*)
fprintf ff "@;Definition file_%i : string := \"%s\"." key (if String.rcontains_from file 1 '/' then "???" else file)
in in
List.iter pp_file_def all_files; List.iter pp_file_def all_files;
let pp_loc_def d = let pp_loc_def d =
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment