RE: RE: MSVC compiler support [patch 11]: CRUFT.DLL exported symbols

[John W. Eaton]

On 27-Oct-2006, address@hidden wrote:

| > OK, I installed a modified version of this patch. My changes do not
| > assume a particular Fortran name mangling scheme, but instead use the
| > one found by configure. Doing that complicated things a bit. Since
| > it is fast and should no cause any harm on systems that don't need it,
| > I decided to always generate the cruft.defs file. If this causes
| > trouble, then maybe we can arrange to disable it on the systems that
| > are affected.
| 
| I tried it, but I had to apply the attached patch. The reason is due to
| the presence of the result type before the FUNCTION keyword.
| However, if I put a \".*\" to cope with it, the sed pattern catches other
| lines as well. To avoid that, I enforce strictly the 6 white spaces in front
| of lines of code.

Rather than restrict input to having just 6 spaces, I checked in the
following change.

Thanks,

jwe


Index: libcruft/mkf77def.in
===================================================================
RCS file: /cvs/octave/libcruft/mkf77def.in,v
retrieving revision 1.1
diff -u -u -r1.1 mkf77def.in
--- libcruft/mkf77def.in        26 Oct 2006 20:50:04 -0000      1.1
+++ libcruft/mkf77def.in        27 Oct 2006 14:20:35 -0000
@@ -25,5 +25,7 @@
   awkcmd="$AWK '{ printf (\"%s%s\n\", tolower (\$0), \"$uscore\"); }'"
 fi
 
-$SED -n -e 's/^[ 
\t]*\([Ff][Uu][Nn][Cc][Tt][Ii][Oo][Nn]\|[Ss][Uu][Bb][Rr][Oo][Uu][Tt][Ii][Nn][Ee]\|[Ee][Nn][Tt][Rr][Yy]\)[
 \t]*\([^ \t(]*\).*$/\2/p' | \
+$SED -n \
+  -e 'y/ABCDEFGHIJLKMNOPQRSTUVWXYZ/abcdefghijlkmnopqrstuvwxyz/' \
+  -e 's/^\(      \|\t\)[ \t]*\(.*function\|subroutine\|entry\)[ \t]*\([^ 
\t(]*\).*$/\3/p' | \
   eval $awkcmd