diff options
| author | Richard W.M. Jones <rjones@redhat.com> | 2011-09-20 18:03:58 +0100 |
|---|---|---|
| committer | Richard W.M. Jones <rjones@redhat.com> | 2011-09-21 15:21:58 +0100 |
| commit | 84763d7fca3668c62ee3fe53d0e00a5a672f687b (patch) | |
| tree | 823b91a69e995438e4af670099408d3285a02176 /generator/generator_docstrings.ml | |
| parent | 917f947590c92318fee2545ba88245d0de012e31 (diff) | |
Add Erlang bindings.
Diffstat (limited to 'generator/generator_docstrings.ml')
| -rw-r--r-- | generator/generator_docstrings.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/generator/generator_docstrings.ml b/generator/generator_docstrings.ml index baccdd64..406bd55e 100644 --- a/generator/generator_docstrings.ml +++ b/generator/generator_docstrings.ml @@ -62,6 +62,7 @@ let copyright_years = (* Generate a header block in a number of standard styles. *) type comment_style = CStyle | CPlusPlusStyle | HashStyle | OCamlStyle | HaskellStyle + | ErlangStyle type license = GPLv2plus | LGPLv2plus let generate_header ?(extra_inputs = []) comment license = @@ -71,7 +72,8 @@ let generate_header ?(extra_inputs = []) comment license = | CPlusPlusStyle -> pr "// "; "//" | HashStyle -> pr "# "; "#" | OCamlStyle -> pr "(* "; " *" - | HaskellStyle -> pr "{- "; " " in + | HaskellStyle -> pr "{- "; " " + | ErlangStyle -> pr "%% "; "% " in pr "libguestfs generated file\n"; pr "%s WARNING: THIS FILE IS GENERATED FROM:\n" c; List.iter (pr "%s %s\n" c) inputs; @@ -113,6 +115,7 @@ let generate_header ?(extra_inputs = []) comment license = (match comment with | CStyle -> pr " */\n" | CPlusPlusStyle + | ErlangStyle | HashStyle -> () | OCamlStyle -> pr " *)\n" | HaskellStyle -> pr "-}\n" |