diff options
author | Yann Herklotz <git@yannherklotz.com> | 2020-02-14 15:46:43 +0000 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2020-02-14 15:46:43 +0000 |
commit | dbf7dc1e44056bef6f36c3c27705e8d2d93575a2 (patch) | |
tree | 7923e36847a817001de776fa19852b43da2ca484 /extraction | |
parent | f699e63e3c54eec51067fc9e74f85341ed3b75af (diff) | |
download | vericert-dbf7dc1e44056bef6f36c3c27705e8d2d93575a2.tar.gz vericert-dbf7dc1e44056bef6f36c3c27705e8d2d93575a2.zip |
Add project files and compcert interconnect
Diffstat (limited to 'extraction')
-rw-r--r-- | extraction/driver.ml | 19 | ||||
-rw-r--r-- | extraction/driver.mli | 0 |
2 files changed, 19 insertions, 0 deletions
diff --git a/extraction/driver.ml b/extraction/driver.ml new file mode 100644 index 0000000..f14a876 --- /dev/null +++ b/extraction/driver.ml @@ -0,0 +1,19 @@ +(* let parse_c_file sourcename ifile = + (* Simplification options *) + let simplifs = + "b" (* blocks: mandatory *) + ^ (if false then "s" else "") + ^ (if false then "f" else "") + ^ (if false then "p" else "") + in + (* Parsing and production of a simplified C AST *) + let ast = Parse.preprocessed_file simplifs sourcename ifile in + (* Conversion to Csyntax *) + let csyntax = Timing.time "CompCert C generation" C2C.convertProgram ast in + (* Save CompCert C AST if requested *) + PrintCsyntax.print_if csyntax; + csyntax + *) +open Compcert.Allocation + +let _ = print_endline "Hello world" diff --git a/extraction/driver.mli b/extraction/driver.mli new file mode 100644 index 0000000..e69de29 --- /dev/null +++ b/extraction/driver.mli |