guile/guile-core/scripts PROGRAM README display...

[Thien-Thi Nguyen]

CVSROOT:        /cvs
Module name:    guile
Branch:         branch_release-1-6
Changes by:     Thien-Thi Nguyen <address@hidden>       01/07/31 22:04:45

Modified files:
        guile-core/scripts: PROGRAM README display-commentary doc-snarf 
                            generate-autoload punify read-scheme-source 
                            snarf-check-and-output-texi use2dot 

Log message:
        In boilerplate, use -l$0.  Thanks to Daniel Skarda.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/scripts/PROGRAM.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.2.2.2&tr2=1.2.2.3&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/scripts/README.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.1&tr2=1.1.4.1&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/scripts/display-commentary.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.2.2.2&tr2=1.2.2.3&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/scripts/doc-snarf.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.2.2.2&tr2=1.2.2.3&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/scripts/generate-autoload.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.2.2.3&tr2=1.2.2.4&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/scripts/punify.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.2.2.2&tr2=1.2.2.3&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/scripts/read-scheme-source.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.2.2.2&tr2=1.2.2.3&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/scripts/snarf-check-and-output-texi.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.2.2.3&tr2=1.2.2.4&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/scripts/use2dot.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.2.2.2&tr2=1.2.2.3&r1=text&r2=text

Patches:
Index: guile/guile-core/scripts/PROGRAM
diff -u guile/guile-core/scripts/PROGRAM:1.3 
guile/guile-core/scripts/PROGRAM:1.4
--- guile/guile-core/scripts/PROGRAM:1.3        Mon Jul  9 12:37:05 2001
+++ guile/guile-core/scripts/PROGRAM    Sat Jul 14 02:40:10 2001
@@ -22,6 +22,8 @@
 ;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
 ;; Boston, MA 02111-1307 USA
 
+;;; Author: J.R.Hacker
+
 ;;; Commentary:
 
 ;; Usage: PROGRAM [ARGS]
Index: guile/guile-core/scripts/display-commentary
diff -u guile/guile-core/scripts/display-commentary:1.3 
guile/guile-core/scripts/display-commentary:1.4
--- guile/guile-core/scripts/display-commentary:1.3     Mon Jul  9 12:37:05 2001
+++ guile/guile-core/scripts/display-commentary Sat Jul 14 02:40:10 2001
@@ -22,6 +22,8 @@
 ;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
 ;; Boston, MA 02111-1307 USA
 
+;;; Author: Thien-Thi Nguyen
+
 ;;; Commentary:
 
 ;; Usage: display-commentary FILE1 FILE2 ...
Index: guile/guile-core/scripts/doc-snarf
diff -u guile/guile-core/scripts/doc-snarf:1.3 
guile/guile-core/scripts/doc-snarf:1.4
--- guile/guile-core/scripts/doc-snarf:1.3      Mon Jul  9 12:37:05 2001
+++ guile/guile-core/scripts/doc-snarf  Sat Jul 14 02:40:10 2001
@@ -22,6 +22,8 @@
 ;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
 ;; Boston, MA 02111-1307 USA
 
+;;; Author: Martin Grabmueller
+
 ;;; Commentary:
 
 ;; Usage: doc-snarf FILE
Index: guile/guile-core/scripts/generate-autoload
diff -u guile/guile-core/scripts/generate-autoload:1.4 
guile/guile-core/scripts/generate-autoload:1.5
--- guile/guile-core/scripts/generate-autoload:1.4      Sat Jul 14 02:40:10 2001
+++ guile/guile-core/scripts/generate-autoload  Sun Jul 22 04:08:18 2001
@@ -38,9 +38,10 @@
 ;;
 ;; For each file, a symbol triggers an autoload if it is found in one
 ;; of these situations:
-;;  - in the `:export' clause of a `define-module' form;
-;;  - in a top-level `export' or `export-syntax' form;
-;;  - in a `define-public' form.
+;;  - in the `:export' clause of a `define-module' form
+;;  - in a top-level `export' or `export-syntax' form
+;;  - in a `define-public' form
+;;  - in a `defmacro-public' form
 ;;
 ;; The module name is inferred from the `define-module' form.  If either the
 ;; module name or the exports list cannot be determined, no autoload entry is
@@ -96,6 +97,13 @@
                 ((and (list? form)
                       (< 2 (length form))
                       (eq? 'define-public (car form))
+                      (symbol? (cadr form)))
+                 (loop (read p)
+                       module-name
+                       (cons (cadr form) exports)))
+                ((and (list? form)
+                      (< 3 (length form))
+                      (eq? 'defmacro-public (car form))
                       (symbol? (cadr form)))
                  (loop (read p)
                        module-name
Index: guile/guile-core/scripts/punify
diff -u guile/guile-core/scripts/punify:1.3 guile/guile-core/scripts/punify:1.4
--- guile/guile-core/scripts/punify:1.3 Mon Jul  9 12:37:05 2001
+++ guile/guile-core/scripts/punify     Sat Jul 14 02:40:10 2001
@@ -22,6 +22,8 @@
 ;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
 ;; Boston, MA 02111-1307 USA
 
+;;; Author: Thien-Thi Nguyen
+
 ;;; Commentary:
 
 ;; Usage: punify FILE1 FILE2 ...
Index: guile/guile-core/scripts/read-scheme-source
diff -u guile/guile-core/scripts/read-scheme-source:1.3 
guile/guile-core/scripts/read-scheme-source:1.4
--- guile/guile-core/scripts/read-scheme-source:1.3     Mon Jul  9 12:37:05 2001
+++ guile/guile-core/scripts/read-scheme-source Sat Jul 14 02:40:10 2001
@@ -22,6 +22,8 @@
 ;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
 ;; Boston, MA 02111-1307 USA
 
+;;; Author: Thien-Thi Nguyen
+
 ;;; Commentary:
 
 ;; Usage: read-scheme-source FILE1 FILE2 ...
Index: guile/guile-core/scripts/snarf-check-and-output-texi
diff -u guile/guile-core/scripts/snarf-check-and-output-texi:1.4 
guile/guile-core/scripts/snarf-check-and-output-texi:1.5
--- guile/guile-core/scripts/snarf-check-and-output-texi:1.4    Wed Jul 11 
15:14:49 2001
+++ guile/guile-core/scripts/snarf-check-and-output-texi        Sat Jul 14 
02:40:10 2001
@@ -22,6 +22,8 @@
 ;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
 ;; Boston, MA 02111-1307 USA
 
+;;; Author: Michael Livshin
+
 ;;; Code:
 
 (define-module (scripts snarf-check-and-output-texi)
Index: guile/guile-core/scripts/use2dot
diff -u guile/guile-core/scripts/use2dot:1.3 
guile/guile-core/scripts/use2dot:1.4
--- guile/guile-core/scripts/use2dot:1.3        Mon Jul  9 12:37:05 2001
+++ guile/guile-core/scripts/use2dot    Sat Jul 14 02:40:10 2001
@@ -22,6 +22,8 @@
 ;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
 ;; Boston, MA 02111-1307 USA
 
+;;; Author: Thien-Thi Nguyen
+
 ;;; Commentary:
 
 ;; Usage: use2dot [OPTIONS] [FILE ...]