diff options
| author | Richard W.M. Jones <rjones@redhat.com> | 2012-09-24 09:24:33 +0100 |
|---|---|---|
| committer | Richard W.M. Jones <rjones@redhat.com> | 2012-09-24 09:34:37 +0100 |
| commit | a95d4261b8cedc31bfc3c5358be7b346b27d457b (patch) | |
| tree | 2bd6f4bd5b3f3b17ce9f5f6709d31fad46291db4 /generator | |
| parent | a3d7f5bc17aa3935a427812a49de60ecc0a345ca (diff) | |
| download | libguestfs-a95d4261b8cedc31bfc3c5358be7b346b27d457b.tar.gz libguestfs-a95d4261b8cedc31bfc3c5358be7b346b27d457b.tar.xz libguestfs-a95d4261b8cedc31bfc3c5358be7b346b27d457b.zip | |
generator: Allow an optional emacs-mode at the top of generated files.
Diffstat (limited to 'generator')
| -rw-r--r-- | generator/docstrings.ml | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/generator/docstrings.ml b/generator/docstrings.ml index 7a32cb9c..b94c0fe2 100644 --- a/generator/docstrings.ml +++ b/generator/docstrings.ml @@ -61,7 +61,7 @@ type comment_style = | ErlangStyle type license = GPLv2plus | LGPLv2plus -let generate_header ?(extra_inputs = []) comment license = +let generate_header ?(extra_inputs = []) ?emacs_mode comment license = let inputs = "generator/ *.ml" :: extra_inputs in let c = match comment with | CStyle -> pr "/* "; " *" @@ -70,7 +70,12 @@ let generate_header ?(extra_inputs = []) comment license = | OCamlStyle -> pr "(* "; " *" | HaskellStyle -> pr "{- "; " " | ErlangStyle -> pr "%% "; "% " in - pr "libguestfs generated file\n"; + pr "libguestfs generated file"; + (match emacs_mode with + | None -> () + | Some mode -> pr " -*- %s -*-" mode + ); + pr "\n"; pr "%s WARNING: THIS FILE IS GENERATED FROM:\n" c; List.iter (pr "%s %s\n" c) inputs; pr "%s ANY CHANGES YOU MAKE TO THIS FILE WILL BE LOST.\n" c; |