octave-nkf: liboctave/cruft/mkf77def.in annotate

annotate liboctave/cruft/mkf77def.in @ 20761:b7ac1e94266e

maint: Further clean up of functions in ode/private dir. * AbsRel_Norm.m, fuzzy_compare.m, integrate_adaptive.m, integrate_const.m, integrate_n_steps.m, ode_struct_value_check.m, odepkg_event_handle.m, odepkg_structure_check.m, runge_kutta_45_dorpri.m: Place latest copyright first in file. Use two spaces before beginning single-line comment. Use parentheses around variable to be tested in switch stmt. Use space between function name and opening parenthesis.

author	Rik <rik@octave.org>
date	Mon, 05 Oct 2015 12:03:16 -0700
parents	4197fc428c7d
children

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 #
19898 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

Mercurial > hg > octave-nkf

annotate liboctave/cruft/mkf77def.in @ 20761:b7ac1e94266e