guile/guile-core/scripts use2dot snarf-check-an...

[Thien-Thi Nguyen]

CVSROOT:        /cvs
Module name:    guile
Branch:         branch_release-1-6
Changes by:     Thien-Thi Nguyen <address@hidden>       01/07/14 02:32:18

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

Log message:
        Re-add authorship info.

CVSWeb URLs:
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.1&tr2=1.2.2.2&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.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.1&tr2=1.2.2.2&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.1&tr2=1.2.2.2&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.1&tr2=1.2.2.2&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.1&tr2=1.2.2.2&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.1&tr2=1.2.2.2&r1=text&r2=text
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.1&tr2=1.2.2.2&r1=text&r2=text

Patches:
Index: guile/guile-core/scripts/PROGRAM
diff -u guile/guile-core/scripts/PROGRAM:1.2 
guile/guile-core/scripts/PROGRAM:1.3
--- guile/guile-core/scripts/PROGRAM:1.2        Mon May 14 12:25:32 2001
+++ guile/guile-core/scripts/PROGRAM    Mon Jul  9 12:37:05 2001
@@ -22,8 +22,6 @@
 ;; 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.2 
guile/guile-core/scripts/display-commentary:1.3
--- guile/guile-core/scripts/display-commentary:1.2     Mon May 14 12:25:32 2001
+++ guile/guile-core/scripts/display-commentary Mon Jul  9 12:37:05 2001
@@ -22,8 +22,6 @@
 ;; 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.2 
guile/guile-core/scripts/doc-snarf:1.3
--- guile/guile-core/scripts/doc-snarf:1.2      Mon May 14 12:25:32 2001
+++ guile/guile-core/scripts/doc-snarf  Mon Jul  9 12:37:05 2001
@@ -22,8 +22,6 @@
 ;; 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.2 
guile/guile-core/scripts/generate-autoload:1.3
--- guile/guile-core/scripts/generate-autoload:1.2      Mon May 14 12:25:32 2001
+++ guile/guile-core/scripts/generate-autoload  Mon Jul  9 12:37:05 2001
@@ -22,8 +22,6 @@
 ;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
 ;; Boston, MA 02111-1307 USA
 
-;;; Author: Thien-Thi Nguyen
-
 ;;; Commentary:
 
 ;; Usage: generate-autoload [OPTIONS] FILE1 FILE2 ...
Index: guile/guile-core/scripts/punify
diff -u guile/guile-core/scripts/punify:1.2 guile/guile-core/scripts/punify:1.3
--- guile/guile-core/scripts/punify:1.2 Mon May 14 12:25:32 2001
+++ guile/guile-core/scripts/punify     Mon Jul  9 12:37:05 2001
@@ -22,8 +22,6 @@
 ;; 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.2 
guile/guile-core/scripts/read-scheme-source:1.3
--- guile/guile-core/scripts/read-scheme-source:1.2     Mon May 14 12:25:32 2001
+++ guile/guile-core/scripts/read-scheme-source Mon Jul  9 12:37:05 2001
@@ -22,8 +22,6 @@
 ;; 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.3 
guile/guile-core/scripts/snarf-check-and-output-texi:1.4
--- guile/guile-core/scripts/snarf-check-and-output-texi:1.3    Mon Jul  9 
12:37:05 2001
+++ guile/guile-core/scripts/snarf-check-and-output-texi        Wed Jul 11 
15:14:49 2001
@@ -168,7 +168,7 @@
                             (if (> opt 0)
                               (format #t "]"))
                             (if (> var 0)
-                              (format #t "~A. ~A" (if (< var all) " " "")
+                              (format #t " . ~A"
                                       (car (last-pair *args*)))))))))))))))
       (format #t "\n~A\n" *function-name*)
       (format #t "@c snarfed from ~A:~A\n" *file* *line*)
@@ -263,7 +263,8 @@
         (when idx
           (unless (= (+ idx 1) pos)
             (display (format #f "~A:~A: wrong position for argument ~A: ~A 
(should be ~A)\n"
-                             *file* line name pos (+ idx 1)))))))
+                             *file* line name pos (+ idx 1))
+                     (current-error-port))))))
      (x #f)))
 
   (define do-command
Index: guile/guile-core/scripts/use2dot
diff -u guile/guile-core/scripts/use2dot:1.2 
guile/guile-core/scripts/use2dot:1.3
--- guile/guile-core/scripts/use2dot:1.2        Mon May 14 12:25:32 2001
+++ guile/guile-core/scripts/use2dot    Mon Jul  9 12:37:05 2001
@@ -22,8 +22,6 @@
 ;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
 ;; Boston, MA 02111-1307 USA
 
-;;; Author: Thien-Thi Nguyen based on PERL script by Keisuke Nishida
-
 ;;; Commentary:
 
 ;; Usage: use2dot [OPTIONS] [FILE ...]