mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 12:20:26 +02:00
Code Activity

* snarf-guile-m4-docs (display-texi): Strip off `# ' from start of

Browse source 
docstring lines if possible, rather than just `#'.
This commit is contained in:
Neil Jerram 2002-03-08 13:19:42 +00:00
parent e12ed7aa92
commit 27c54e0b59
2 changed files with 11 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
scripts/ChangeLog
View file

@ -1,3 +1,8 @@
2002-03-03 Neil Jerram <neil@ossau.uklinux.net>
* snarf-guile-m4-docs (display-texi): Strip off `# ' from start of
docstring lines if possible, rather than just `#'.
2002-02-26 Thien-Thi Nguyen <ttn@giblet.glug.org> 2002-02-26 Thien-Thi Nguyen <ttn@giblet.glug.org>
* Makefile.am: Update path to pre-inst-guile automake frag. * Makefile.am: Update path to pre-inst-guile automake frag.

9
scripts/snarf-guile-m4-docs
View file

@ -43,9 +43,12 @@ exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
(define (display-texi lines) (define (display-texi lines)
(display "@deffn {Autoconf Macro}") (display "@deffn {Autoconf Macro}")
(for-each (lambda (line) (for-each (lambda (line)
(display (if (string=? "#" (substring line 0 1)) (display (cond ((and (>= (string-length line) 2)
(substring line 1) (string=? "# " (substring line 0 2)))
line)) (substring line 2))
((string=? "#" (substring line 0 1))
(substring line 1))
(else line)))
(newline)) (newline))
lines) lines)
(display "@end deffn") (display "@end deffn")