FM / scripts

/usr/share/guile/2.0/scripts

Name	Size	Mode	Actions
api-diff.scm	7670	0644	edit dl rm
autofrisk.scm	7857	0644	edit dl rm
compile.scm	7682	0644	edit dl rm
disassemble.scm	1423	0644	edit dl rm
display-commentary.scm	2450	0644	edit dl rm
doc-snarf.scm	15194	0644	edit dl rm
frisk.scm	11710	0644	edit dl rm
generate-autoload.scm	5879	0644	edit dl rm
help.scm	6428	0644	edit dl rm
lint.scm	9848	0644	edit dl rm
list.scm	3230	0644	edit dl rm
punify.scm	2949	0644	edit dl rm
read-rfc822.scm	5083	0644	edit dl rm
read-scheme-source.scm	11957	0644	edit dl rm
read-text-outline.scm	10663	0644	edit dl rm
scan-api.scm	8283	0644	edit dl rm
snarf-check-and-output-texi.scm	10172	0644	edit dl rm
snarf-guile-m4-docs.scm	2926	0644	edit dl rm
summarize-guile-TODO.scm	8452	0644	edit dl rm
use2dot.scm	4019	0644	edit dl rm

Edit: /usr/share/guile/2.0/scripts/display-commentary.scm (2450B)

;;; display-commentary --- As advertized

;; 	Copyright (C) 2001, 2006, 2011 Free Software Foundation, Inc.
;;
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public License
;; as published by the Free Software Foundation; either version 3, or
;; (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;; Lesser General Public License for more details.
;;
;; You should have received a copy of the GNU Lesser General Public
;; License along with this software; see the file COPYING.LESSER.  If
;; not, write to the Free Software Foundation, Inc., 51 Franklin
;; Street, Fifth Floor, Boston, MA 02110-1301 USA

;;; Author: Thien-Thi Nguyen

;;; Commentary:

;; Usage: display-commentary REF1 REF2 ...
;;
;; Display Commentary section from REF1, REF2 and so on.
;; Each REF may be a filename or module name (list of symbols).
;; In the latter case, a filename is computed by searching `%load-path'.

;;; Code:

(define-module (scripts display-commentary)
  :use-module (ice-9 documentation)
  :export (display-commentary))

(define %summary "Display the Commentary section from a file or module.")

(define (display-commentary-one file)
  (format #t "~A commentary:\n~A" file (file-commentary file)))

(define (module-name->filename-frag ls) ; todo: export or move
  (let ((ls (map symbol->string ls)))
    (let loop ((ls (cdr ls)) (acc (car ls)))
      (if (null? ls)
          acc
          (loop (cdr ls) (string-append acc "/" (car ls)))))))

(define (display-module-commentary module-name)
  (cond ((%search-load-path (module-name->filename-frag module-name))
         => (lambda (file)
              (format #t "module ~A\n" module-name)
              (display-commentary-one file)))))

(define (display-commentary . refs)
  (for-each (lambda (ref)
              (cond ((string? ref)
                     (if (equal? 0 (string-index ref #\())
                         (display-module-commentary
                          (with-input-from-string ref read))
                         (display-commentary-one ref)))
                    ((list? ref)
                     (display-module-commentary ref))))
            refs))

(define main display-commentary)

;;; display-commentary ends here

;;; display-commentary --- As advertized ;; Copyright (C) 2001, 2006, 2011 Free Software Foundation, Inc. ;; ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU Lesser General Public License ;; as published by the Free Software Foundation; either version 3, or ;; (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;; Lesser General Public License for more details. ;; ;; You should have received a copy of the GNU Lesser General Public ;; License along with this software; see the file COPYING.LESSER. If ;; not, write to the Free Software Foundation, Inc., 51 Franklin ;; Street, Fifth Floor, Boston, MA 02110-1301 USA ;;; Author: Thien-Thi Nguyen ;;; Commentary: ;; Usage: display-commentary REF1 REF2 ... ;; ;; Display Commentary section from REF1, REF2 and so on. ;; Each REF may be a filename or module name (list of symbols). ;; In the latter case, a filename is computed by searching `%load-path'. ;;; Code: (define-module (scripts display-commentary) :use-module (ice-9 documentation) :export (display-commentary)) (define %summary "Display the Commentary section from a file or module.") (define (display-commentary-one file) (format #t "~A commentary:\n~A" file (file-commentary file))) (define (module-name->filename-frag ls) ; todo: export or move (let ((ls (map symbol->string ls))) (let loop ((ls (cdr ls)) (acc (car ls))) (if (null? ls) acc (loop (cdr ls) (string-append acc "/" (car ls))))))) (define (display-module-commentary module-name) (cond ((%search-load-path (module-name->filename-frag module-name)) => (lambda (file) (format #t "module ~A\n" module-name) (display-commentary-one file))))) (define (display-commentary . refs) (for-each (lambda (ref) (cond ((string? ref) (if (equal? 0 (string-index ref #\()) (display-module-commentary (with-input-from-string ref read)) (display-commentary-one ref))) ((list? ref) (display-module-commentary ref)))) refs)) (define main display-commentary) ;;; display-commentary ends here