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

Exchange of manual enhancements between stable and unstable branches.

Browse source
This commit is contained in:
Neil Jerram 2002-03-27 21:48:16 +00:00
parent 890f4dd7e3
commit 6dd447a368
12 changed files with 479 additions and 2901 deletions
Download patch file Download diff file Expand all files Collapse all files

5
scripts/ChangeLog
View file

@ -1,3 +1,8 @@
2002-03-24 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-03-14 Neil Jerram <neil@ossau.uklinux.net>
These changes add a @deffnx C function declaration and function

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)
(display "@deffn {Autoconf Macro}")
(for-each (lambda (line)
(display (if (string=? "#" (substring line 0 1))
(substring line 1)
line))
(display (cond ((and (>= (string-length line) 2)
(string=? "# " (substring line 0 2)))
(substring line 2))
((string=? "#" (substring line 0 1))
(substring line 1))
(else line)))
(newline))
lines)
(display "@end deffn")