Mercurial > octave-nkf

annotate liboctave/cruft/mkf77def.in @ 20654:b65888ec820e draft default tip gccjit

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
dmalcom gcc jit import
author Stefan Mahr <dac922@gmx.de>
date Fri, 27 Feb 2015 16:59:36 +0100
parents 4197fc428c7d
children
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
7019
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6949
diff changeset
2 #
19731
4197fc428c7d maint: Update copyright notices for 2015.
John W. Eaton <jwe@octave.org>
parents: 17744
diff changeset
3 # Copyright (C) 2006-2015 John W. Eaton
7019
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6949
diff changeset
4 #
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6949
diff changeset
5 # This file is part of Octave.
12174
db1f49eaba6b whitespace fixes
John W. Eaton <jwe@octave.org>
parents: 11523
diff changeset
6 #
7019
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6949
diff changeset
7 # Octave is free software; you can redistribute it and/or modify it
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6949
diff changeset
8 # under the terms of the GNU General Public License as published by the
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6949
diff changeset
9 # Free Software Foundation; either version 3 of the License, or (at
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6949
diff changeset
10 # your option) any later version.
12174
db1f49eaba6b whitespace fixes
John W. Eaton <jwe@octave.org>
parents: 11523
diff changeset
11 #
7019
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6949
diff changeset
12 # Octave is distributed in the hope that it will be useful, but WITHOUT
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6949
diff changeset
13 # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6949
diff changeset
14 # FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6949
diff changeset
15 # for more details.
12174
db1f49eaba6b whitespace fixes
John W. Eaton <jwe@octave.org>
parents: 11523
diff changeset
16 #
7019
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6949
diff changeset
17 # You should have received a copy of the GNU General Public License
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6949
diff changeset
18 # along with Octave; see the file COPYING. If not, see
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6949
diff changeset
19 # <http://www.gnu.org/licenses/>.
6102
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
20
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
21 SED=${SED:-'sed'}
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
22 AWK=${AWK:-'awk'}
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
23
9817
932b0efeb81b restore rules to create libcruft/cruft.def
John W. Eaton <jwe@octave.org>
parents: 7019
diff changeset
24 F77_TOLOWER="@F77_APPEND_UNDERSCORE@"
932b0efeb81b restore rules to create libcruft/cruft.def
John W. Eaton <jwe@octave.org>
parents: 7019
diff changeset
25 F77_APPEND_UNDERSCORE="@F77_APPEND_UNDERSCORE@"
932b0efeb81b restore rules to create libcruft/cruft.def
John W. Eaton <jwe@octave.org>
parents: 7019
diff changeset
26 F77_APPEND_EXTRA_UNDERSCORE="@F77_APPEND_EXTRA_UNDERSCORE@"
6102
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
27
16068
b309a5da17f5 use yes/no instead of true/false in confgure scripts
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
28 if test x$F77_TOLOWER = xyes; then
6102
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
29 case_cmd="tolower";
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
30 else
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
31 case_cmd="toupper";
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
32 fi
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
33
16068
b309a5da17f5 use yes/no instead of true/false in confgure scripts
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
34 if test x$F77_APPEND_UNDERSCORE = xyes; then
6102
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
35 uscore="_";
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
36 else
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
37 uscore="";
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
38 fi
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
39
16068
b309a5da17f5 use yes/no instead of true/false in confgure scripts
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
40 if test x$F77_APPEND_EXTRA_UNDERSCORE = xyes; then
6102
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
41 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
42 else
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
43 awkcmd="$AWK '{ printf (\"%s%s\n\", tolower (\$0), \"$uscore\"); }'"
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
44 fi
ef9569e10d8b [project @ 2006-10-26 20:50:04 by jwe]
jwe
parents:
diff changeset
45
9817
932b0efeb81b restore rules to create libcruft/cruft.def
John W. Eaton <jwe@octave.org>
parents: 7019
diff changeset
46 if [ $# -gt 1 ]; then
932b0efeb81b restore rules to create libcruft/cruft.def
John W. Eaton <jwe@octave.org>
parents: 7019
diff changeset
47 srcdir="$1"
932b0efeb81b restore rules to create libcruft/cruft.def
John W. Eaton <jwe@octave.org>
parents: 7019
diff changeset
48 shift
932b0efeb81b restore rules to create libcruft/cruft.def
John W. Eaton <jwe@octave.org>
parents: 7019
diff changeset
49 fi
932b0efeb81b restore rules to create libcruft/cruft.def
John W. Eaton <jwe@octave.org>
parents: 7019
diff changeset
50
932b0efeb81b restore rules to create libcruft/cruft.def
John W. Eaton <jwe@octave.org>
parents: 7019
diff changeset
51 echo EXPORTS
932b0efeb81b restore rules to create libcruft/cruft.def
John W. Eaton <jwe@octave.org>
parents: 7019
diff changeset
52 for arg
932b0efeb81b restore rules to create libcruft/cruft.def
John W. Eaton <jwe@octave.org>
parents: 7019
diff changeset
53 do
9822
64270d3ad469 mkf77def.in: only process *.f files
John W. Eaton <jwe@octave.org>
parents: 9817
diff changeset
54 case "$arg" in
64270d3ad469 mkf77def.in: only process *.f files
John W. Eaton <jwe@octave.org>
parents: 9817
diff changeset
55 *.f)
12174
db1f49eaba6b whitespace fixes
John W. Eaton <jwe@octave.org>
parents: 11523
diff changeset
56 ## There are TABS in this sed command.
9822
64270d3ad469 mkf77def.in: only process *.f files
John W. Eaton <jwe@octave.org>
parents: 9817
diff changeset
57 $SED -n -e 'y/ABCDEFGHIJLKMNOPQRSTUVWXYZ/abcdefghijlkmnopqrstuvwxyz/; s/^\( \| \)[ ]*\(.*function\|subroutine\|entry\)[ ]*\([^ (]*\).*$/\3/p' "$srcdir/$arg" | eval $awkcmd
64270d3ad469 mkf77def.in: only process *.f files
John W. Eaton <jwe@octave.org>
parents: 9817
diff changeset
58 ;;
64270d3ad469 mkf77def.in: only process *.f files
John W. Eaton <jwe@octave.org>
parents: 9817
diff changeset
59 esac
9817
932b0efeb81b restore rules to create libcruft/cruft.def
John W. Eaton <jwe@octave.org>
parents: 7019
diff changeset
60 done