guile/guile-core/scripts PROGRAM generate-autol...

[Thien-Thi Nguyen]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Thien-Thi Nguyen <address@hidden>       01/07/09 12:37:05

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

Log message:
        Remove authorship comment.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/scripts/PROGRAM.diff?cvsroot=OldCVS&tr1=1.2&tr2=1.3&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/scripts/generate-autoload.diff?cvsroot=OldCVS&tr1=1.2&tr2=1.3&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/scripts/use2dot.diff?cvsroot=OldCVS&tr1=1.2&tr2=1.3&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/scripts/punify.diff?cvsroot=OldCVS&tr1=1.2&tr2=1.3&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/scripts/display-commentary.diff?cvsroot=OldCVS&tr1=1.2&tr2=1.3&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/scripts/doc-snarf.diff?cvsroot=OldCVS&tr1=1.2&tr2=1.3&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/scripts/read-scheme-source.diff?cvsroot=OldCVS&tr1=1.2&tr2=1.3&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/scripts/snarf-check-and-output-texi.diff?cvsroot=OldCVS&tr1=1.2&tr2=1.3&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.2 
guile/guile-core/scripts/snarf-check-and-output-texi:1.3
--- guile/guile-core/scripts/snarf-check-and-output-texi:1.2    Sun Jun 24 
20:30:32 2001
+++ guile/guile-core/scripts/snarf-check-and-output-texi        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: Michael Livshin
-
 ;;; Code:
 
 (define-module (scripts snarf-check-and-output-texi)
@@ -65,7 +63,7 @@
                                                     (loop (stream-cdr s)))
                                                    (else (cons (stream-car s) 
(stream-cdr s))))))
                                              (port->stream port read)))))
-    
+
     (unless (stream-null? input)
       (let ((token (stream-car input)))
         (if (eq? (car token) 'snarf_cookie)
@@ -74,10 +72,10 @@
           (loop (stream-cdr input)))))))
 
 (define (dispatch-top-cookie input cont)
-    
+
   (when (stream-null? input)
     (error 'syntax "premature end of file"))
-  
+
   (let ((token (stream-car input)))
     (cond
       ((eq? (car token) 'brace_open)
@@ -90,10 +88,10 @@
 
 (define (consume-upto-cookie process input cont)
   (let loop ((acc '()) (input input))
-       
+
     (when (stream-null? input)
       (error 'syntax "premature end of file in directive context"))
-                
+
     (let ((token (stream-car input)))
       (cond
         ((eq? (car token) 'snarf_cookie)
@@ -109,13 +107,13 @@
 
     (when (stream-null? input)
       (error 'syntax "premature end of file in multiline context"))
-                
+
     (let ((token (stream-car input)))
       (cond
         ((eq? (car token) 'brace_close)
          (end-multiline)
          (cont (stream-cdr input)))
-        
+
         (else (consume-upto-cookie process-multiline-directive
                                    input
                                    loop))))))
@@ -136,7 +134,7 @@
   (set! *args* #f)
   (set! *sig* #f)
   (set! *docstring* #f))
-    
+
 (define (end-multiline)
   (let* ((req (car *sig*))
          (opt (cadr *sig*))
@@ -196,13 +194,13 @@
 
   (define do-args
     (match-lambda
-     
+
      (('(paren_close . paren_close))
       '())
-     
+
      (('(comma . comma) rest ...)
       (do-args rest))
-     
+
      (('(id . SCM) ('id . name) rest ...)
       (cons name (do-args rest)))
 
@@ -210,21 +208,21 @@
 
   (define do-arglist
     (match-lambda
-     
+
      (('(paren_open . paren_open) '(id . void) '(paren_close . paren_close))
       '())
-     
+
      (('(paren_open . paren_open) rest ...)
       (do-args rest))
-     
+
      (x (error (format #f "invalid arglist syntax: ~A" (map cdr x))))))
 
   (define do-command
     (match-lambda
-     
+
      (('fname ('string . name))
       (set! *function-name* (texi-quote name)))
-     
+
      (('type ('id . type))
       (set! *snarf-type* type))
 
@@ -245,19 +243,19 @@
 
   (define do-directive
     (match-lambda
-     
+
      ((('id . command) rest ...)
       (do-command (cons command rest)))
-     
+
      ((('string . string) ...)
       (set! *docstring* string))
-     
+
      (x (error (format #f "unknown doc attribute syntax: ~A" x)))))
 
   (do-directive l))
 
 (define (process-singleline l)
-    
+
   (define do-argpos
     (match-lambda
      ((('id . name) ('int . pos) ('int . line))
@@ -267,13 +265,13 @@
             (display (format #f "~A:~A: wrong position for argument ~A: ~A 
(should be ~A)\n"
                              *file* line name pos (+ idx 1)))))))
      (x #f)))
-  
+
   (define do-command
     (match-lambda
      (('(id . argpos) rest ...)
       (do-argpos rest))
      (x (error (format #f "unknown check: ~A" x)))))
-  
+
   (when *function-name*
     (do-command l)))
 
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 ...]