File: init_from_cil.ml

package info (click to toggle)
frama-c 20161101%2Bsilicon%2Bdfsg-5
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 42,324 kB
  • ctags: 35,695
  • sloc: ml: 200,142; ansic: 31,465; makefile: 2,334; sh: 1,643; lisp: 259; python: 85; asm: 26
file content (8 lines) | stat: -rw-r--r-- 221 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
 
let run () =
  let a = Ast.get () in
  let prj = Project.create "foo" in
  File.init_project_from_cil_file prj a;
  Project.set_current prj;
  Printer.pp_file Format.std_formatter (Ast.get())

let () = Db.Main.extend run