[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/scripts PROGRAM generate-autol...
From: |
Thien-Thi Nguyen |
Subject: |
guile/guile-core/scripts PROGRAM generate-autol... |
Date: |
Mon, 09 Jul 2001 12:37:05 -0700 |
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 ...]