* guile-doc-snarf.in: use cut instead of sed, that's much much

faster.  also, don't call basename more than needed.  and, to gain
a couple of microseconds more, don't call cat needlessly.  (thanks
to Brad Knotwell).

diff --git a/THANKS b/THANKS
index 05b5810..f2dce37 100644 (file)
--- a/THANKS
+++ b/THANKS
@@ -9,3 +9,4 @@ Contributors since the last release:
 
 For fixes or providing information which led to a fix:
 
+       Brad Knotwell

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index d575c7c..16631dd 100644 (file)
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,10 @@
+2000-06-21  Michael Livshin  <mlivshin@bigfoot.com>
+
+       * guile-doc-snarf.in: use cut instead of sed, that's much much
+       faster.  also, don't call basename more than needed.  and, to gain 
+       a couple of microseconds more, don't call cat needlessly.  (thanks 
+       to Brad Knotwell).
+
 2000-06-21  Dirk Herrmann  <D.Herrmann@tu-bs.de>
 
        * guile-snarf.awk.in, guile-snarf.in, snarf.h:  Rename SCM__I to

diff --git a/libguile/guile-doc-snarf.in b/libguile/guile-doc-snarf.in
index 89dcc04..cce78ed 100755 (executable)
--- a/libguile/guile-doc-snarf.in
+++ b/libguile/guile-doc-snarf.in
@@ -28,5 +28,4 @@ ${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 "$@" > ${temp} || exit $?
-cat ${temp} | sed 's/^\(.\{128\}.\{128\}.\{128\}.\{128\}.\{128\}.\{128\}.\{128\}.\{128\}\).*/\1/g' | \
-${AWK} -f `dirname $0`/guile-snarf.awk `basename ${dot_doc}`
+cut -c1-1023 ${temp} | ${AWK} -f `dirname $0`/guile-snarf.awk ${dot_doc}