Mercurial > hg > octave-lyh

comparison libcruft/mkf77def.in @ 9817:932b0efeb81b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
restore rules to create libcruft/cruft.def
author John W. Eaton <jwe@octave.org>
date Fri, 13 Nov 2009 22:47:15 -0500
parents 4270ded9ddc6
children 64270d3ad469
comparison
equal deleted inserted replaced
9816:b1462c588dd5 9817:932b0efeb81b
19 # <http://www.gnu.org/licenses/>. 19 # <http://www.gnu.org/licenses/>.
20 20
21 SED=${SED:-'sed'} 21 SED=${SED:-'sed'}
22 AWK=${AWK:-'awk'} 22 AWK=${AWK:-'awk'}
23 23
24 F77_TOLOWER=%F77_APPEND_UNDERSCORE% 24 F77_TOLOWER="@F77_APPEND_UNDERSCORE@"
25 F77_APPEND_UNDERSCORE=%F77_APPEND_UNDERSCORE% 25 F77_APPEND_UNDERSCORE="@F77_APPEND_UNDERSCORE@"
26 F77_APPEND_EXTRA_UNDERSCORE=%F77_APPEND_EXTRA_UNDERSCORE% 26 F77_APPEND_EXTRA_UNDERSCORE="@F77_APPEND_EXTRA_UNDERSCORE@"
27 27
28 if $F77_TOLOWER; then 28 if $F77_TOLOWER; then
29 case_cmd="tolower"; 29 case_cmd="tolower";
30 else 30 else
31 case_cmd="toupper"; 31 case_cmd="toupper";
41 awkcmd="$AWK '{ if (\$0 ~ /_/) extra = \"_\"; else extra = \"\"; printf (\"%s%s%s\n\", $case_cmd (\$0), \"$uscore\", extra); }'" 41 awkcmd="$AWK '{ if (\$0 ~ /_/) extra = \"_\"; else extra = \"\"; printf (\"%s%s%s\n\", $case_cmd (\$0), \"$uscore\", extra); }'"
42 else 42 else
43 awkcmd="$AWK '{ printf (\"%s%s\n\", tolower (\$0), \"$uscore\"); }'" 43 awkcmd="$AWK '{ printf (\"%s%s\n\", tolower (\$0), \"$uscore\"); }'"
44 fi 44 fi
45 45
46 $SED -n -e 'y/ABCDEFGHIJLKMNOPQRSTUVWXYZ/abcdefghijlkmnopqrstuvwxyz/; s/^\( \| \)[ ]*\(.*function\|subroutine\|entry\)[ ]*\([^ (]*\).*$/\3/p' | eval $awkcmd 46 if [ $# -gt 1 ]; then
47 srcdir="$1"
48 shift
49 fi
50
51 echo EXPORTS
52 for arg
53 do
54 $SED -n -e 'y/ABCDEFGHIJLKMNOPQRSTUVWXYZ/abcdefghijlkmnopqrstuvwxyz/; s/^\( \| \)[ ]*\(.*function\|subroutine\|entry\)[ ]*\([^ (]*\).*$/\3/p' "$srcdir/$arg" | eval $awkcmd
55 done