File: big_local_array_script.ml

package info (click to toggle)
frama-c 20140301%2Bneon%2Bdfsg-3
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 19,548 kB
  • ctags: 28,183
  • sloc: ml: 181,252; ansic: 13,776; makefile: 2,452; sh: 1,085; lisp: 178
file content (9 lines) | stat: -rw-r--r-- 277 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
 
let foo () =
  if Project.get_name (Project.current ()) <> "prj" then begin
    let prj = Project.create "prj" in
    let () = Project.set_current prj in
    File.init_from_c_files 
      [File.from_filename "tests/syntax/big_local_array.i"]
  end

let () = Db.Main.extend foo