Mercurial > octave-nkf

annotate libcruft/mkf77def.in @ 6909:fc55a5e1760b ss-2-9-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-09-17 20:47:40 by jwe]
author jwe
date Mon, 17 Sep 2007 20:47:41 +0000
parents 2803c70d8d01
children 88df962dc296
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
6102
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
1 #! /bin/sh
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
2
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
3 SED=${SED:-'sed'}
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
4 AWK=${AWK:-'awk'}
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
5
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
6 F77_TOLOWER=%F77_APPEND_UNDERSCORE%
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
7 F77_APPEND_UNDERSCORE=%F77_APPEND_UNDERSCORE%
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
8 F77_APPEND_EXTRA_UNDERSCORE=%F77_APPEND_EXTRA_UNDERSCORE%
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
9
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
10 if $F77_TOLOWER; then
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
11 case_cmd="tolower";
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
12 else
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
13 case_cmd="toupper";
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
14 fi
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
15
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
16 if $F77_APPEND_UNDERSCORE; then
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
17 uscore="_";
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
18 else
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
19 uscore="";
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
20 fi
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
21
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
22 if $F77_APPEND_EXTRA_UNDERSCORE; then
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
23 awkcmd="$AWK '{ if (\$0 ~ /_/) extra = \"_\"; else extra = \"\"; printf (\"%s%s%s\n\", $case_cmd (\$0), \"$uscore\", extra); }'"
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
24 else
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
25 awkcmd="$AWK '{ printf (\"%s%s\n\", tolower (\$0), \"$uscore\"); }'"
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
26 fi
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
27
6116
b64fb24bf4a0 [project @ 2006-10-27 18:04:49 by jwe]
jwe
parents: 6102
diff changeset
28 $SED -n \
b64fb24bf4a0 [project @ 2006-10-27 18:04:49 by jwe]
jwe
parents: 6102
diff changeset
29 -e 'y/ABCDEFGHIJLKMNOPQRSTUVWXYZ/abcdefghijlkmnopqrstuvwxyz/' \
6118
2803c70d8d01 [project @ 2006-10-27 23:19:17 by jwe]
jwe
parents: 6116
diff changeset
30 -e 's/^\( \| \)[ ]*\(.*function\|subroutine\|entry\)[ ]*\([^ (]*\).*$/\3/p' | \
6102
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
31 eval $awkcmd