Mercurial > octave
view libinterp/corefcn/mk-errno-list.sh @ 28217:87554d9ac6f8 stable
Warn if -v7.3 format is used for load/save (bug #45706).
* load-save.cc (Fload, Fsave): Document that -v7.3 format is not implemented.
* load-save.cc (load_save_system::parse_save_options): Detect '-v7.3' option
and issue an error() that format is not implemented.
* load-save.cc (load_save_system::load): Detect '-v7.3' option and issue an
error() that format is not implemented. Re-order if/elseif tree for clarity.
author | Rik <rik@octave.org> |
---|---|
date | Tue, 14 Apr 2020 11:09:42 -0700 |
parents | bd51beb6205e |
children | bbbe4dcc7200 |
line wrap: on
line source
#! /bin/sh # ######################################################################## # # Copyright (C) 2005-2020 The Octave Project Developers # # See the file COPYRIGHT.md in the top-level directory of this # distribution or <https://octave.org/copyright/>. # # 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 # <https://www.gnu.org/licenses/>. # ######################################################################## if [ $# -ne 2 ]; then echo "usage: get-errno-list [--perl PERL|--python PYTHON|--sed SED]" 1>&2 exit 1 fi if [ $1 = "--perl" ]; then PERL="$2" $PERL -e 'foreach $key (sort (keys (%!))) { $x .= "#if defined ($key)\n { \"$key\", $key },\n#endif\n"; } while (<>) { s/^ *\@SYSDEP_ERRNO_LIST\@/$x/; s/\@NO_EDIT_WARNING\@/DO NOT EDIT! Generated automatically from oct-errno.in.cc by mk-errno-list.sh/; print; }' elif [ $1 = "--python" ]; then PYTHON="$2" $PYTHON -c ' from errno import errorcode from sys import stdin, stdout t = "#if defined (%s)\n { \"%s\", %s },\n#endif\n" errstr = "" for v in sorted (errorcode.values ()): errstr += t % tuple (3 * [v]) noedit = "DO NOT EDIT! Generated automatically from oct-errno.in.cc by mk-errno-list.sh" repls = ("@SYSDEP_ERRNO_LIST@", errstr), ("@NO_EDIT_WARNING@", noedit) for l in stdin: stdout.write (reduce (lambda a, kv: a.replace (*kv), repls, l)) ' elif [ $1 = "--sed" ]; then SED="$2" $SED -e '/@SYSDEP_ERRNO_LIST@/D' \ -e 's/@NO_EDIT_WARNING@/DO NOT EDIT! Generated automatically from oct-errno.in.cc by mk-errno-list.sh/' fi exit $?