mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-15 16:20:17 +02:00
Code Activity

Move author tag outside commentary; nfc.

Browse source
This commit is contained in:
Thien-Thi Nguyen 2001-05-14 19:25:32 +00:00
parent dfdf58267a
commit e8cd769d38
7 changed files with 18 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

4
scripts/PROGRAM
View file

@ -22,6 +22,8 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
;; Boston, MA 02111-1307 USA
;;; Author: J.R.Hacker
;;; Commentary:
;; Usage: PROGRAM [ARGS]
@ -29,8 +31,6 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
;; PROGRAM does something.
;;
;; TODO: Write it!
;;
;; Author: J.R.Hacker
;;; Code:

4
scripts/display-commentary
View file

@ -22,13 +22,13 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
;; 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 ...
;;
;; Display Commentary section from FILE1, FILE2 and so on.
;;
;; Author: Thien-Thi Nguyen
;;; Code:

4
scripts/doc-snarf
View file

@ -22,6 +22,8 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
;; Boston, MA 02111-1307 USA
;;; Author: Martin Grabmueller
;;; Commentary:
;; Usage: doc-snarf FILE
@ -75,8 +77,6 @@ This procedure foos, or bars, depending on the argument @var{braz}.
;; More parameterization.
;; ../libguile/guile-doc-snarf emulation
;;; Author: Martin Grabmueller
(define doc-snarf-version "0.0.2") ; please update before publishing!
;;; Code:

4
scripts/generate-autoload
View file

@ -22,6 +22,8 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
;; 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 ...
@ -55,8 +57,6 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
;; (generate-autoload "generate-autoload")
;; (generate-autoload "--target" "(my module)" "generate-autoload")
;; (apply generate-autoload "--target" "(my module)" '("foo" "bar" "baz"))
;;
;; Author: Thien-Thi Nguyen
;;; Code:

4
scripts/punify
View file

@ -22,6 +22,8 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
;; Boston, MA 02111-1307 USA
;;; Author: Thien-Thi Nguyen
;;; Commentary:
;; Usage: punify FILE1 FILE2 ...
@ -38,8 +40,6 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
;; TODO: Read from stdin.
;; Handle vectors.
;; Identifier punification.
;;
;; Author: Thien-Thi Nguyen
;;; Code:

11
scripts/read-scheme-source
View file

@ -22,6 +22,8 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
;; 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 ...
@ -35,7 +37,7 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
;;
;; (quote (filename FILENAME))
;;
;; (quote (comment :leading-parens N
;; (quote (comment :leading-semicolons N
;; :text LINE))
;;
;; (quote (whitespace :text LINE))
@ -77,8 +79,6 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
;;
;; TODO: Add option "--clump-comments", maybe w/ different clumping styles.
;; Make `annotate!' extensible.
;;
;; Author: Thien-Thi Nguyen
;;; Code:
@ -154,8 +154,9 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
((regexp-exec all-comment-rx line)
=> (lambda (m)
(nb! `'(comment
:leading-parens ,(let ((m1 (vector-ref m 1)))
(- (cdr m1) (car m1)))
:leading-semicolons
,(let ((m1 (vector-ref m 1)))
(- (cdr m1) (car m1)))
:text ,line))))
(else
(unread-string line p)

4
scripts/use2dot
View file

@ -22,6 +22,8 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
;; 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 ...]
@ -51,8 +53,6 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
;; - add `--load-synonyms' option
;; - add `--ignore-module' option
;; - handle arbitrary command-line key/value configuration
;;
;; Author: Thien-Thi Nguyen based on PERL script by Keisuke Nishida
;;; Code: