From cf00e803d49e64feb99c23a909f0f788b62ba8a4 Mon Sep 17 00:00:00 2001 From: Michael Livshin Date: Mon, 22 May 2000 17:46:51 +0000 Subject: [PATCH] *** empty log message *** --- libguile/ChangeLog | 8 ++++++-- libguile/guile-doc-snarf.in | 2 +- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/libguile/ChangeLog b/libguile/ChangeLog index efd2f647f..c714a3cc5 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,8 +1,12 @@ 2000-05-22 Michael Livshin * 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 diff --git a/libguile/guile-doc-snarf.in b/libguile/guile-doc-snarf.in index c4af89754..6a111d38f 100755 --- a/libguile/guile-doc-snarf.in +++ b/libguile/guile-doc-snarf.in @@ -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}`