mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

*** empty log message ***

Browse source
This commit is contained in:
Michael Livshin 2000-05-22 17:46:51 +00:00
parent a564e775fc
commit cf00e803d4
2 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/ChangeLog
View file

@ -1,8 +1,12 @@
2000-05-22 Michael Livshin <mlivshin@bigfoot.com>
* guile-doc-snarf.in: put the preprocessed file through sed to
trim all lines to 512 chars. I hope it doesn't break anybody's
shell. we'll see.
trim all lines to 1024 chars. I hope it doesn't break anybody's
sed. we'll see. (note: this is lossy trimming, i.e. the spill
isn't wrapped around but actually chopped off. this seemed to me
safe because the current snarfer doesn't understand multi-line
cookies anyway. in the long term, it would be nice not to depend
on AWK for anything.)
* gc.h (SCM_[SET_]CELL_{WORD,OBJECT}, SCM_VALIDATE_CELL): reverted
the previous change to this macros, after deciding to torture the

2
libguile/guile-doc-snarf.in
View file

@ -28,6 +28,6 @@ ${AWK} -f guile-func-name-check "$fullfilename"
## We must use a temporary file here, instead of a pipe, because we
## need to know if CPP exits with a non-zero status.
${CPP} -DSCM_MAGIC_SNARFER "$@" | \
sed 's/^\(................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................\).*/\1/g' \
sed 's/^\(.\{128\}.\{128\}.\{128\}.\{128\}.\{128\}.\{128\}.\{128\}.\{128\}\).*/\1/g' \
> ${temp} || exit $?
< ${temp} ${AWK} -f `dirname $0`/guile-snarf.awk `basename ${dot_doc}`