# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1258463529 18000
# Node ID 64270d3ad46985ad67c613772c53d0736334f756
# Parent  84199c9fc69c3335dab7e6a5c4b26f738f78e484
mkf77def.in: only process *.f files

diff -r 84199c9fc69c -r 64270d3ad469 libcruft/ChangeLog
--- a/libcruft/ChangeLog	Tue Nov 17 04:08:23 2009 +0100
+++ b/libcruft/ChangeLog	Tue Nov 17 08:12:09 2009 -0500
@@ -1,3 +1,7 @@
+2009-11-17  John W. Eaton  <jwe@octave.org>
+
+	* mkf77def.in: Only process files with names that match *.f.
+
 2009-11-13  John W. Eaton  <jwe@octave.org>
 
 	* Makefile.am: Restore rules for building cruft.def.
diff -r 84199c9fc69c -r 64270d3ad469 libcruft/mkf77def.in
--- a/libcruft/mkf77def.in	Tue Nov 17 04:08:23 2009 +0100
+++ b/libcruft/mkf77def.in	Tue Nov 17 08:12:09 2009 -0500
@@ -51,5 +51,9 @@
 echo EXPORTS
 for arg
 do
-  $SED -n -e 'y/ABCDEFGHIJLKMNOPQRSTUVWXYZ/abcdefghijlkmnopqrstuvwxyz/; s/^\(      \|	\)[ 	]*\(.*function\|subroutine\|entry\)[ 	]*\([^ 	(]*\).*$/\3/p' "$srcdir/$arg" | eval $awkcmd
+  case "$arg" in
+    *.f)
+      $SED -n -e 'y/ABCDEFGHIJLKMNOPQRSTUVWXYZ/abcdefghijlkmnopqrstuvwxyz/; s/^\(      \|	\)[ 	]*\(.*function\|subroutine\|entry\)[ 	]*\([^ 	(]*\).*$/\3/p' "$srcdir/$arg" | eval $awkcmd
+    ;;
+  esac
 done