From e6f5ec35cc2aae6498f7daae5b32adb7e3dd6aae Mon Sep 17 00:00:00 2001 From: "Richard W.M. Jones" Date: Mon, 29 Jul 2019 12:14:23 +0100 Subject: [PATCH] generator: copywrites -> copyrights --- generator/bindtests.ml | 4 ++-- generator/docstrings.ml | 4 ++-- generator/docstrings.mli | 2 +- generator/rust.ml | 4 ++-- 4 files changed, 7 insertions(+), 7 deletions(-) diff --git a/generator/bindtests.ml b/generator/bindtests.ml index bc00cdfe2..a4dc72555 100644 --- a/generator/bindtests.ml +++ b/generator/bindtests.ml @@ -984,8 +984,8 @@ and generate_php_bindtests () = dump "bindtests" and generate_rust_bindtests () = - let copywrites = ["Hiroyuki Katsura "] in - generate_header ~copywrites:copywrites CStyle GPLv2plus; + let copyrights = ["Hiroyuki Katsura "] in + generate_header ~copyrights:copyrights CStyle GPLv2plus; pr "extern crate guestfs;\n"; pr "use guestfs::*;\n"; diff --git a/generator/docstrings.ml b/generator/docstrings.ml index 09c460091..11b12bfe5 100644 --- a/generator/docstrings.ml +++ b/generator/docstrings.ml @@ -76,7 +76,7 @@ type comment_style = | ErlangStyle | LuaStyle | PODStyle type license = GPLv2plus | LGPLv2plus -let generate_header ?(copywrites = ["Red Hat Inc."]) ?(inputs = []) ?emacs_mode comment license = +let generate_header ?(copyrights = ["Red Hat Inc."]) ?(inputs = []) ?emacs_mode comment license = let c = match comment with | CStyle -> pr "/* "; " *" | CPlusPlusStyle -> pr "// "; "//" @@ -104,7 +104,7 @@ let generate_header ?(copywrites = ["Red Hat Inc."]) ?(inputs = []) ?emacs_mode pr "%s\n" c; List.iter (fun x -> pr "%s Copyright (C) %s %s\n" c copyright_years x; - ) copywrites; + ) copyrights; pr "%s\n" c; (match license with | GPLv2plus -> diff --git a/generator/docstrings.mli b/generator/docstrings.mli index e8c13d6ea..7acb3a678 100644 --- a/generator/docstrings.mli +++ b/generator/docstrings.mli @@ -31,4 +31,4 @@ val version_added : Types.action -> string option val copyright_years : string -val generate_header : ?copywrites:string list -> ?inputs:string list -> ?emacs_mode:string -> comment_style -> license -> unit +val generate_header : ?copyrights:string list -> ?inputs:string list -> ?emacs_mode:string -> comment_style -> license -> unit diff --git a/generator/rust.ml b/generator/rust.ml index 25948bdf0..a3f1627f5 100644 --- a/generator/rust.ml +++ b/generator/rust.ml @@ -29,7 +29,7 @@ open Structs open C open Events -let copywrites = ["Hiroyuki Katsura "] +let copyrights = ["Hiroyuki Katsura "] (* Utilities for Rust *) (* Are there corresponding functions to them? *) @@ -53,7 +53,7 @@ let translate_bad_symbols s = s let generate_rust () = - generate_header ~copywrites:copywrites CStyle LGPLv2plus; + generate_header ~copyrights:copyrights CStyle LGPLv2plus; pr " use crate::base::*;