diff options
Diffstat (limited to 'plugins/extraction/table.ml')
| -rw-r--r-- | plugins/extraction/table.ml | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/plugins/extraction/table.ml b/plugins/extraction/table.ml index 3fb183995d..1fd4840feb 100644 --- a/plugins/extraction/table.ml +++ b/plugins/extraction/table.ml @@ -547,6 +547,18 @@ let _ = declare_bool_option optwrite = (fun b -> conservative_types_ref := b) } +(* Allows to print a comment at the beginning of the output files *) +let file_comment_ref = ref "" +let file_comment () = !file_comment_ref + +let _ = declare_string_option + {optsync = true; + optdepr = false; + optname = "Extraction File Comment"; + optkey = ["Extraction"; "File"; "Comment"]; + optread = (fun () -> !file_comment_ref); + optwrite = (fun s -> file_comment_ref := s) } + (*s Extraction Lang *) type lang = Ocaml | Haskell | Scheme |