diff options
| author | Richard W.M. Jones <rjones@redhat.com> | 2012-11-20 13:55:46 +0000 |
|---|---|---|
| committer | Richard W.M. Jones <rjones@redhat.com> | 2012-11-20 13:55:50 +0000 |
| commit | 69c5f3045a7a25ef62f65b47a79c60e3de77fee0 (patch) | |
| tree | 507bedd2c790bd356cfa955a10bb88de082b2983 | |
| parent | 74105fdab11385c85d634f5d3ffe3acd165406a4 (diff) | |
| download | libguestfs-69c5f3045a7a25ef62f65b47a79c60e3de77fee0.tar.gz libguestfs-69c5f3045a7a25ef62f65b47a79c60e3de77fee0.tar.xz libguestfs-69c5f3045a7a25ef62f65b47a79c60e3de77fee0.zip | |
lua: Add LuaStyle of commenting to the generator.
| -rw-r--r-- | generator/docstrings.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/generator/docstrings.ml b/generator/docstrings.ml index b94c0fe2..431fbdf2 100644 --- a/generator/docstrings.ml +++ b/generator/docstrings.ml @@ -58,7 +58,7 @@ let copyright_years = (* Generate a header block in a number of standard styles. *) type comment_style = CStyle | CPlusPlusStyle | HashStyle | OCamlStyle | HaskellStyle - | ErlangStyle + | ErlangStyle | LuaStyle type license = GPLv2plus | LGPLv2plus let generate_header ?(extra_inputs = []) ?emacs_mode comment license = @@ -69,7 +69,8 @@ let generate_header ?(extra_inputs = []) ?emacs_mode comment license = | HashStyle -> pr "# "; "#" | OCamlStyle -> pr "(* "; " *" | HaskellStyle -> pr "{- "; " " - | ErlangStyle -> pr "%% "; "% " in + | ErlangStyle -> pr "%% "; "% " + | LuaStyle -> pr "-- "; "--" in pr "libguestfs generated file"; (match emacs_mode with | None -> () @@ -117,6 +118,7 @@ let generate_header ?(extra_inputs = []) ?emacs_mode comment license = | CStyle -> pr " */\n" | CPlusPlusStyle | ErlangStyle + | LuaStyle | HashStyle -> () | OCamlStyle -> pr " *)\n" | HaskellStyle -> pr "-}\n" |