diff options
| -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" |