changeset 6949:88df962dc296

[project @ 2007-10-03 17:59:03 by jwe]
author jwe
date Wed, 03 Oct 2007 17:59:03 +0000
parents 755222bd2dbf
children 4fa8d8a804fb
files libcruft/ChangeLog libcruft/mkf77def.in
diffstat 2 files changed, 5 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/libcruft/ChangeLog	Wed Oct 03 16:50:37 2007 +0000
+++ b/libcruft/ChangeLog	Wed Oct 03 17:59:03 2007 +0000
@@ -1,3 +1,7 @@
+2007-10-03  John W. Eaton  <jwe@octave.org>
+
+	* mkf77def.in: Combine sed expressions.
+
 2007-09-26  David Bateman  <dbateman@free.fr>
 
 	* lapack/dgelsy.f,  lapack/dlatrz.f,  lapack/zlarz.f,
--- a/libcruft/mkf77def.in	Wed Oct 03 16:50:37 2007 +0000
+++ b/libcruft/mkf77def.in	Wed Oct 03 17:59:03 2007 +0000
@@ -25,7 +25,4 @@
   awkcmd="$AWK '{ printf (\"%s%s\n\", tolower (\$0), \"$uscore\"); }'"
 fi
 
-$SED -n \
-  -e 'y/ABCDEFGHIJLKMNOPQRSTUVWXYZ/abcdefghijlkmnopqrstuvwxyz/' \
-  -e 's/^\(      \|	\)[ 	]*\(.*function\|subroutine\|entry\)[ 	]*\([^ 	(]*\).*$/\3/p' | \
-  eval $awkcmd
+$SED -n -e 'y/ABCDEFGHIJLKMNOPQRSTUVWXYZ/abcdefghijlkmnopqrstuvwxyz/; s/^\(      \|	\)[ 	]*\(.*function\|subroutine\|entry\)[ 	]*\([^ 	(]*\).*$/\3/p' | eval $awkcmd