Skip to content
Snippets Groups Projects
Commit 365dcde6 authored by Allan Blanchard's avatar Allan Blanchard
Browse files

[kernel] Deprecates Db.Main

parent de3304d8
No related branches found
No related tags found
No related merge requests found
Showing
with 20 additions and 20 deletions
...@@ -109,4 +109,4 @@ let all_sizes () = ...@@ -109,4 +109,4 @@ let all_sizes () =
Kernel.result "## Sizes ##@.%a" Kernel.result "## Sizes ##@.%a"
(Pretty_utils.pp_list ~pre:"@[<v>" ~suf:"@]" ~sep:"@ " pp) res (Pretty_utils.pp_list ~pre:"@[<v>" ~suf:"@]" ~sep:"@ " pp) res
let () = Db.Main.extend all_sizes let () = Boot.Main.extend all_sizes
...@@ -72,4 +72,4 @@ let create_mode () = ...@@ -72,4 +72,4 @@ let create_mode () =
frama-c. *) frama-c. *)
let () = Cmdline.run_after_configuring_stage create_mode let () = Cmdline.run_after_configuring_stage create_mode
let () = Db.Main.extend run let () = Boot.Main.extend run
...@@ -64,4 +64,4 @@ let create_syntactic_check_project () = ...@@ -64,4 +64,4 @@ let create_syntactic_check_project () =
ignore ignore
(File.create_project_from_visitor "syntactic check" (new non_zero_divisor)) (File.create_project_from_visitor "syntactic check" (new non_zero_divisor))
let () = Db.Main.extend create_syntactic_check_project let () = Boot.Main.extend create_syntactic_check_project
let () = Db.Main.extend run let () = Boot.Main.extend run
...@@ -8,4 +8,4 @@ let run () = ...@@ -8,4 +8,4 @@ let run () =
let msg = Printexc.to_string exc in let msg = Printexc.to_string exc in
Printf.eprintf "There was an error: %s\n" msg Printf.eprintf "There was an error: %s\n" msg
let () = Db.Main.extend run let () = Boot.Main.extend run
...@@ -17,4 +17,4 @@ let run () = ...@@ -17,4 +17,4 @@ let run () =
let msg = Printexc.to_string exc in let msg = Printexc.to_string exc in
Printf.eprintf "There was an error: %s\n" msg Printf.eprintf "There was an error: %s\n" msg
let () = Db.Main.extend run let () = Boot.Main.extend run
...@@ -15,4 +15,4 @@ let run () = ...@@ -15,4 +15,4 @@ let run () =
in in
Self.result "11 * 5 = %d" product Self.result "11 * 5 = %d" product
let () = Db.Main.extend run let () = Boot.Main.extend run
...@@ -40,4 +40,4 @@ let run () = ...@@ -40,4 +40,4 @@ let run () =
let msg = Printexc.to_string exc in let msg = Printexc.to_string exc in
Printf.eprintf "There was an error: %s\n" msg Printf.eprintf "There was an error: %s\n" msg
let () = Db.Main.extend run let () = Boot.Main.extend run
...@@ -2,4 +2,4 @@ let run () = ...@@ -2,4 +2,4 @@ let run () =
if Hello_options.Enabled.get() then if Hello_options.Enabled.get() then
Hello_print.output "Hello, world!" Hello_print.output "Hello, world!"
let () = Db.Main.extend run let () = Boot.Main.extend run
...@@ -2,4 +2,4 @@ let run () = ...@@ -2,4 +2,4 @@ let run () =
if Hello_options.Enabled.get() then if Hello_options.Enabled.get() then
Hello_print.output "Hello world!" (* removed comma *) Hello_print.output "Hello world!" (* removed comma *)
let () = Db.Main.extend run let () = Boot.Main.extend run
...@@ -13,4 +13,4 @@ let run () = ...@@ -13,4 +13,4 @@ let run () =
Hello_print.output "Hello, world!" Hello_print.output "Hello, world!"
(** Definition of the entry point of the hello plug-in. *) (** Definition of the entry point of the hello plug-in. *)
let () = Db.Main.extend run let () = Boot.Main.extend run
...@@ -6,4 +6,4 @@ let run () = ...@@ -6,4 +6,4 @@ let run () =
Visitor.visitFramacFileSameGlobals (new print_cfg fmt) (Ast.get ()); Visitor.visitFramacFileSameGlobals (new print_cfg fmt) (Ast.get ());
close_out chan close_out chan
let () = Db.Main.extend run let () = Boot.Main.extend run
...@@ -4,4 +4,4 @@ let run () = ...@@ -4,4 +4,4 @@ let run () =
Visitor.visitFramacFileSameGlobals (new print_cfg fmt) (Ast.get ()); Visitor.visitFramacFileSameGlobals (new print_cfg fmt) (Ast.get ());
close_out chan close_out chan
let () = Db.Main.extend run let () = Boot.Main.extend run
...@@ -50,4 +50,4 @@ let run () = ...@@ -50,4 +50,4 @@ let run () =
Visitor.visitFramacFileSameGlobals (new print_cfg fmt) (Ast.get ()); Visitor.visitFramacFileSameGlobals (new print_cfg fmt) (Ast.get ());
close_out chan close_out chan
let () = Db.Main.extend run let () = Boot.Main.extend run
...@@ -71,4 +71,4 @@ let run () = ...@@ -71,4 +71,4 @@ let run () =
Visitor.visitFramacFileSameGlobals (new print_cfg fmt) (Ast.get ()); Visitor.visitFramacFileSameGlobals (new print_cfg fmt) (Ast.get ());
close_out chan close_out chan
let () = Db.Main.extend run let () = Boot.Main.extend run
...@@ -79,4 +79,4 @@ let run () = ...@@ -79,4 +79,4 @@ let run () =
Visitor.visitFramacFileSameGlobals (new print_cfg fmt) (Ast.get ()); Visitor.visitFramacFileSameGlobals (new print_cfg fmt) (Ast.get ());
close_out chan close_out chan
let () = Db.Main.extend run let () = Boot.Main.extend run
...@@ -2,4 +2,4 @@ let run () = ...@@ -2,4 +2,4 @@ let run () =
if Options.Gui.get() then if Options.Gui.get() then
Gui.show () Gui.show ()
let () = Db.Main.extend run let () = Boot.Main.extend run
...@@ -2,4 +2,4 @@ let run () = ...@@ -2,4 +2,4 @@ let run () =
if Options.Gui.get() then if Options.Gui.get() then
Gui.show () Gui.show ()
let () = Db.Main.extend run let () = Boot.Main.extend run
...@@ -2,4 +2,4 @@ let run () = ...@@ -2,4 +2,4 @@ let run () =
if Options.Gui.get() then if Options.Gui.get() then
Gui.show () Gui.show ()
let () = Db.Main.extend run let () = Boot.Main.extend run
...@@ -300,4 +300,4 @@ let run () = ...@@ -300,4 +300,4 @@ let run () =
in in
print_json outfp funinfos_json print_json outfp funinfos_json
let () = Db.Main.extend run let () = Boot.Main.extend run
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment