annotate libinterp/mkdefs @ 20595:c1a6c31ac29a

eliminate more simple uses of error_state * ov-classdef.cc: Eliminate simple uses of error_state.
author John W. Eaton <jwe@octave.org>
date Tue, 06 Oct 2015 00:20:02 -0400
parents a1c2d0cd5b14
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
6218
c1b66b74937d [project @ 2006-12-27 17:43:50 by jwe]
jwe
parents: 4299
diff changeset
1 #! /bin/sh
7019
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6218
diff changeset
2 #
19731
4197fc428c7d maint: Update copyright notices for 2015.
John W. Eaton <jwe@octave.org>
parents: 19627
diff changeset
3 # Copyright (C) 1996-2015 John W. Eaton
7019
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6218
diff changeset
4 #
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6218
diff changeset
5 # This file is part of Octave.
19627
446c46af4b42 strip trailing whitespace from most source files
John W. Eaton <jwe@octave.org>
parents: 17744
diff changeset
6 #
7019
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6218
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: 6218
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: 6218
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: 6218
diff changeset
10 # your option) any later version.
19627
446c46af4b42 strip trailing whitespace from most source files
John W. Eaton <jwe@octave.org>
parents: 17744
diff changeset
11 #
7019
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6218
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: 6218
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: 6218
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: 6218
diff changeset
15 # for more details.
19627
446c46af4b42 strip trailing whitespace from most source files
John W. Eaton <jwe@octave.org>
parents: 17744
diff changeset
16 #
7019
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6218
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: 6218
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: 6218
diff changeset
19 # <http://www.gnu.org/licenses/>.
2335
4a9feb849125 [project @ 1996-07-19 02:51:02 by jwe]
jwe
parents:
diff changeset
20
4299
02fcb550f20c [project @ 2003-01-16 20:15:14 by jwe]
jwe
parents: 3742
diff changeset
21 SED=${SED:-'sed'}
02fcb550f20c [project @ 2003-01-16 20:15:14 by jwe]
jwe
parents: 3742
diff changeset
22
9913
5cd48568ec59 src/Makefile.am: generate output in mkdefs script, not Makefile
John W. Eaton <jwe@octave.org>
parents: 7019
diff changeset
23 if [ $# -ne 2 ]; then
5cd48568ec59 src/Makefile.am: generate output in mkdefs script, not Makefile
John W. Eaton <jwe@octave.org>
parents: 7019
diff changeset
24 echo "usage: mkdefs srcdir file < preprocessed-file-contents" 1>&2
5cd48568ec59 src/Makefile.am: generate output in mkdefs script, not Makefile
John W. Eaton <jwe@octave.org>
parents: 7019
diff changeset
25 exit 1
5cd48568ec59 src/Makefile.am: generate output in mkdefs script, not Makefile
John W. Eaton <jwe@octave.org>
parents: 7019
diff changeset
26 fi
5cd48568ec59 src/Makefile.am: generate output in mkdefs script, not Makefile
John W. Eaton <jwe@octave.org>
parents: 7019
diff changeset
27
5cd48568ec59 src/Makefile.am: generate output in mkdefs script, not Makefile
John W. Eaton <jwe@octave.org>
parents: 7019
diff changeset
28 srcdir="$1"
5cd48568ec59 src/Makefile.am: generate output in mkdefs script, not Makefile
John W. Eaton <jwe@octave.org>
parents: 7019
diff changeset
29 file="$2";
5cd48568ec59 src/Makefile.am: generate output in mkdefs script, not Makefile
John W. Eaton <jwe@octave.org>
parents: 7019
diff changeset
30
5cd48568ec59 src/Makefile.am: generate output in mkdefs script, not Makefile
John W. Eaton <jwe@octave.org>
parents: 7019
diff changeset
31 echo "// DO NOT EDIT! Generated automatically by mkdefs."
5cd48568ec59 src/Makefile.am: generate output in mkdefs script, not Makefile
John W. Eaton <jwe@octave.org>
parents: 7019
diff changeset
32 case "$file" in
5cd48568ec59 src/Makefile.am: generate output in mkdefs script, not Makefile
John W. Eaton <jwe@octave.org>
parents: 7019
diff changeset
33 $srcdir/*)
15270
6615a46d90ec Fix which() reporting incorrect directory for functions in libinterp.
Rik <rik@octave.org>
parents: 15195
diff changeset
34 xsrcdir=`echo "$file" | sed "s,^$srcdir,libinterp,"`
9913
5cd48568ec59 src/Makefile.am: generate output in mkdefs script, not Makefile
John W. Eaton <jwe@octave.org>
parents: 7019
diff changeset
35 ;;
5cd48568ec59 src/Makefile.am: generate output in mkdefs script, not Makefile
John W. Eaton <jwe@octave.org>
parents: 7019
diff changeset
36 *)
20366
a1c2d0cd5b14 Fix encoded source file name for builtin functions
Mike Miller <mtmiller@octave.org>
parents: 19731
diff changeset
37 xsrcdir="$file"
9913
5cd48568ec59 src/Makefile.am: generate output in mkdefs script, not Makefile
John W. Eaton <jwe@octave.org>
parents: 7019
diff changeset
38 ;;
5cd48568ec59 src/Makefile.am: generate output in mkdefs script, not Makefile
John W. Eaton <jwe@octave.org>
parents: 7019
diff changeset
39 esac
5cd48568ec59 src/Makefile.am: generate output in mkdefs script, not Makefile
John W. Eaton <jwe@octave.org>
parents: 7019
diff changeset
40 echo " XDEFUN_FILE_NAME (\"$xsrcdir\")"
5cd48568ec59 src/Makefile.am: generate output in mkdefs script, not Makefile
John W. Eaton <jwe@octave.org>
parents: 7019
diff changeset
41 egrep '^(///*|/\*) *PKG_ADD:' $file
5cd48568ec59 src/Makefile.am: generate output in mkdefs script, not Makefile
John W. Eaton <jwe@octave.org>
parents: 7019
diff changeset
42
4299
02fcb550f20c [project @ 2003-01-16 20:15:14 by jwe]
jwe
parents: 3742
diff changeset
43 $SED -n -e '/^ *BEGIN_INSTALL_BUILTIN/{
2335
4a9feb849125 [project @ 1996-07-19 02:51:02 by jwe]
jwe
parents:
diff changeset
44 : loop
3742
078fde449ebc [project @ 2000-11-29 22:58:52 by jwe]
jwe
parents: 3321
diff changeset
45 s/BEGIN_INSTALL_BUILTIN//
078fde449ebc [project @ 2000-11-29 22:58:52 by jwe]
jwe
parents: 3321
diff changeset
46 s/^#[ \t][ \t]*[0-9][0-9]*.*$//
2335
4a9feb849125 [project @ 1996-07-19 02:51:02 by jwe]
jwe
parents:
diff changeset
47 /END_INSTALL_BUILTIN/b done
3742
078fde449ebc [project @ 2000-11-29 22:58:52 by jwe]
jwe
parents: 3321
diff changeset
48 p
078fde449ebc [project @ 2000-11-29 22:58:52 by jwe]
jwe
parents: 3321
diff changeset
49 n
2335
4a9feb849125 [project @ 1996-07-19 02:51:02 by jwe]
jwe
parents:
diff changeset
50 b loop
4a9feb849125 [project @ 1996-07-19 02:51:02 by jwe]
jwe
parents:
diff changeset
51 : done
4a9feb849125 [project @ 1996-07-19 02:51:02 by jwe]
jwe
parents:
diff changeset
52 s/END_INSTALL_BUILTIN//
4a9feb849125 [project @ 1996-07-19 02:51:02 by jwe]
jwe
parents:
diff changeset
53 p
3742
078fde449ebc [project @ 2000-11-29 22:58:52 by jwe]
jwe
parents: 3321
diff changeset
54 }'