diff options
| author | Richard Jones <rjones@redhat.com> | 2009-12-31 11:22:26 +0000 |
|---|---|---|
| committer | Richard Jones <rjones@redhat.com> | 2009-12-31 11:24:57 +0000 |
| commit | 677e021225d05e92034a68cb9a9b487e5331d35d (patch) | |
| tree | 8999170fe73bf0c9f07e04fbe17660e881e6bcd9 /src | |
| parent | 2e2eb15df010bbcc605c86b0714ad1ca796fc96d (diff) | |
| download | libguestfs-677e021225d05e92034a68cb9a9b487e5331d35d.tar.gz libguestfs-677e021225d05e92034a68cb9a9b487e5331d35d.tar.xz libguestfs-677e021225d05e92034a68cb9a9b487e5331d35d.zip | |
generated code: Set copyright years to 2009-xxxx when current year > 2009.
Diffstat (limited to 'src')
| -rwxr-xr-x | src/generator.ml | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/src/generator.ml b/src/generator.ml index b3e397e8..55b4b8bb 100755 --- a/src/generator.ml +++ b/src/generator.ml @@ -1,6 +1,6 @@ #!/usr/bin/env ocaml (* libguestfs - * Copyright (C) 2009 Red Hat Inc. + * Copyright (C) 2009-2010 Red Hat Inc. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by @@ -4810,6 +4810,10 @@ let check_functions () = let chan = ref Pervasives.stdout let pr fs = ksprintf (output_string !chan) fs +let copyright_years = + let this_year = 1900 + (localtime (time ())).tm_year in + if this_year > 2009 then sprintf "2009-%04d" this_year else "2009" + (* Generate a header block in a number of standard styles. *) type comment_style = CStyle | HashStyle | OCamlStyle | HaskellStyle type license = GPLv2 | LGPLv2 @@ -4826,7 +4830,7 @@ let generate_header ?(extra_inputs = []) comment license = List.iter (pr "%s %s\n" c) inputs; pr "%s ANY CHANGES YOU MAKE TO THIS FILE WILL BE LOST.\n" c; pr "%s\n" c; - pr "%s Copyright (C) 2009 Red Hat Inc.\n" c; + pr "%s Copyright (C) %s Red Hat Inc.\n" c copyright_years; pr "%s\n" c; (match license with | GPLv2 -> @@ -8264,7 +8268,7 @@ sub new { =head1 COPYRIGHT -Copyright (C) 2009 Red Hat Inc. +Copyright (C) %s Red Hat Inc. =head1 LICENSE @@ -8278,7 +8282,7 @@ L<http://libguestfs.org>, L<Sys::Guestfs::Lib(3)>. =cut -" +" copyright_years and generate_perl_prototype name style = (match fst style with |