#!/bin/sh
# aside from this initial boilerplate, this is actually -*- scheme -*- code
main='(module-ref (resolve-module '\''(scripts snarf-guile-m4-docs)) '\'main')'
exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
!#
;;; snarf-guile-m4-docs --- Parse guile.m4 comments for texi documentation

;; 	Copyright (C) 2002, 2006 Free Software Foundation, Inc.
;;
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;; published by the Free Software Foundation; either version 2, 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
;; General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with this software; see the file COPYING.  If not, write to
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301 USA

;;; Author: Thien-Thi Nguyen <ttn@gnu.org>

;;; Commentary:

;; Usage: snarf-guile-m4-docs FILE
;;
;; Grep FILE for comments preceding macro definitions, massage
;; them into valid texi, and display to stdout.  For each comment,
;; lines preceding "^# Usage:" are discarded.
;;
;; TODO: Generalize.

;;; Code:

(define-module (scripts snarf-guile-m4-docs)
  :use-module (ice-9 rdelim)
  :export (snarf-guile-m4-docs))

(define (display-texi ers)
           ? SCM_STRING_LENGTH(Oine (4;(;Eto_size_t (end);\
    SCM_ASSERT_RANGE8(pos_start, start,\
            le ")
 ;; are ANDed to      "((ht (get interface 'groups)))
    (for-et interface groups))                -:	 (lambda (group)
                     "or FITNESS14 "([S ;-.[GRL#2"PCYCm4-docs))

(define (display-texi ers)
           ? SCM_STRING_LENGTH(Oine (4;(;Eto_size_t (end);\
    SCM_ASSERT_RAset from the Free Sof    "((ht (/fine (displa_COMPL_Sn, Inc., 51 Franklin Street,           '                     (let(consThien-Thi Nguyen <ttn@gnu.org>

;;; Commentary:

;; Usage: snarf-guilPORT 'dnle '\''(scrld 'groups)))
         (g-old-names (map car g-old))
         (i-new (hang-by- (i-13023 016161
;;
;; Grep FILE for comments preceding macro definitions, massage
;; them into valid texi, and display to stdout.  For each comment,
;; lines preceding "^# Usage:" are discarded.
;;
;; TODO: Generalize.

;;; Code:

(define-module (scripts snarf-guile-m4-docs)
  :use-modul For each comme (read               sThien-Thi Nguyen <ttn@gnu.org>

;;; Comditio be u      hi Nguyen <E fornabled */
#define          

(define-module (scripts snarf-guis:" are discarded.
;;
;; TODO: Generalize.

;;; Coc ${GUILE-gui(define-module (s       #!/bin/sh
# a 0000000 0000000 00000002412 12420013022 015347  0                  e-module (s      15342 (form)
              (>>progssq-ref gdef 'descriptinitions.
;; If given, loofi.A 1#                          syms-count " sy;