add remaining non-trivial copyright notices

[clinton/guile-figl.git] / maint / update-enumerations

diff --git a/maint/update-enumerations b/maint/update-enumerations
index 68e9a58..943f705 100755 (executable)
--- a/maint/update-enumerations
+++ b/maint/update-enumerations
@@ -1,6 +1,30 @@
 #!/usr/bin/env guile
 !#
 
+;;; figl
+;;; Copyright (C) 2013 Andy Wingo <wingo@pobox.com>
+;;; Copyright (C) 2013 Daniel Hartwig <mandyke@gmail.com>
+;;; 
+;;; Figl is free software: you can redistribute it and/or modify it
+;;; under the terms of the GNU Lesser General Public License as
+;;; published by the Free Software Foundation, either version 3 of the
+;;; License, or (at your option) any later version.
+;;; 
+;;; Figl is distributed in the hope that it will be useful, but WITHOUT
+;;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+;;; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General
+;;; Public License for more details.
+;;; 
+;;; You should have received a copy of the GNU Lesser General Public
+;;; License along with this program.  If not, see
+;;; <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+;;
+;; Generate Scheme enumerations for the GL API.
+;;
+;;; Code:
+
 (use-modules (figl parse)
              (figl config)
              (ice-9 match)
@@ -75,6 +99,7 @@
   (display "\
 ;;; figl                           -*- mode: scheme; coding: utf-8 -*-
 ;;; Copyright (C) 2013 Andy Wingo <wingo@pobox.com>
+;;; Copyright (C) 2013 Daniel Hartwig <mandyke@gmail.com>
 ;;;
 ;;; Figl is free software: you can redistribute it and/or modify it
 ;;; under the terms of the GNU Lesser General Public License as
@@ -121,6 +146,15 @@
    enums))
 
 (define (write-texi mod-name enums port)
+  ;; FIXME: stexi->texi seems to have some issues with multiline
+  ;; comments, otherwise this notice should appear in the fragment
+  ;; itself.  Maybe I am not doing it right.
+  (display
+   (string-append
+    "@c This is part of the Figl Reference Manual.\n"
+    "@c Copyright (c) 2013 Andy Wingo and others\n"
+    "@c See the file figl.texi for copying conditions.\n")
+   port)
   (display
    (stexi->texi
     `(*fragment*
@@ -149,7 +183,7 @@
                `(defmac (% (name ,(symbol->string (gl-enumeration-category enum)))
                            (arguments "enum"))
                   (para
-                   "Enumerated value.  The symbolic " (var "enum") "argument "
+                   "Enumerated value.  The symbolic " (var "enum") " argument "
                    "is replaced with its corresponding numeric value at "
                    "compile-time.  The symbolic arguments known to this "
                    "enumerated value form are:")