mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

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

Browse source 
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).
This commit is contained in:
Michael Livshin 2000-06-21 15:14:00 +00:00
parent c7b6388d1e
commit 7f40b48a9f
3 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

1
THANKS
View file

@ -9,3 +9,4 @@ Contributors since the last release:
For fixes or providing information which led to a fix: For fixes or providing information which led to a fix:
Brad Knotwell

7
libguile/ChangeLog
View file

@ -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> 2000-06-21 Dirk Herrmann <D.Herrmann@tu-bs.de>
* guile-snarf.awk.in, guile-snarf.in, snarf.h: Rename SCM__I to * guile-snarf.awk.in, guile-snarf.in, snarf.h: Rename SCM__I to

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

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