Mercurial > octave
view build-aux/mk-f77-def.in.sh @ 22189:829e0aafebdc
dump_demos.m: Change regex for replacement of double quotes, add dummy assert
author | Andreas Weber <andy.weber.aw@gmail.com> |
---|---|
date | Thu, 28 Jul 2016 16:54:54 +0200 |
parents | 7e8a410e6124 |
children | bac0d6f07a3e |
line wrap: on
line source
#! /bin/sh # # Copyright (C) 2006-2015 John W. Eaton # # This file is part of Octave. # # Octave is free software; you can redistribute it and/or modify it # under the terms of the GNU General Public License as published by the # Free Software Foundation; either version 3 of the License, or (at # your option) any later version. # # Octave is distributed in the hope that it will be useful, but WITHOUT # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or # FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License # for more details. # # You should have received a copy of the GNU General Public License # along with Octave; see the file COPYING. If not, see # <http://www.gnu.org/licenses/>. : ${SED=@SED@} : ${AWK=@AWK@} F77_TOLOWER="@F77_APPEND_UNDERSCORE@" F77_APPEND_UNDERSCORE="@F77_APPEND_UNDERSCORE@" F77_APPEND_EXTRA_UNDERSCORE="@F77_APPEND_EXTRA_UNDERSCORE@" if test x$F77_TOLOWER = xyes; then case_cmd=tolower else case_cmd=toupper fi if test x$F77_APPEND_UNDERSCORE = xyes; then uscore=_ else uscore= fi if test x$F77_APPEND_EXTRA_UNDERSCORE = xyes; then awkcmd="$AWK '{ if (\$0 ~ /_/) extra = \"_\"; else extra = \"\"; printf (\"%s%s%s\n\", $case_cmd (\$0), \"$uscore\", extra); }'" else awkcmd="$AWK '{ printf (\"%s%s\n\", tolower (\$0), \"$uscore\"); }'" fi if [ $# -gt 1 ]; then srcdir="$1" shift fi echo EXPORTS for arg do case "$arg" in *.f) ## There are TABS in this sed command. $SED -n -e 'y/ABCDEFGHIJLKMNOPQRSTUVWXYZ/abcdefghijlkmnopqrstuvwxyz/; s/^\( \| \)[ ]*\(.*function\|subroutine\|entry\)[ ]*\([^ (]*\).*$/\3/p' "$srcdir/$arg" | eval $awkcmd ;; esac done