annotate libinterp/mk-pkg-add @ 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 227d582fa300
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
16847
474e6d189de1 use SED in scripts/mk-pkg-add script, use set -e consistently
John W. Eaton <jwe@octave.org>
parents: 15195
diff changeset
1 #! /bin/sh
7019
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6926
diff changeset
2 #
19731
4197fc428c7d maint: Update copyright notices for 2015.
John W. Eaton <jwe@octave.org>
parents: 19627
diff changeset
3 # Copyright (C) 2005-2015 John W. Eaton
7019
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6926
diff changeset
4 #
4270ded9ddc6 [project @ 2007-10-13 01:42:20 by jwe]
jwe
parents: 6926
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: 6926
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: 6926
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: 6926
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: 6926
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: 6926
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: 6926
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: 6926
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: 6926
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: 6926
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: 6926
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: 6926
diff changeset
19 # <http://www.gnu.org/licenses/>.
5534
e107161b8ca3 [project @ 2005-11-11 17:44:05 by jwe]
jwe
parents:
diff changeset
20
16847
474e6d189de1 use SED in scripts/mk-pkg-add script, use set -e consistently
John W. Eaton <jwe@octave.org>
parents: 15195
diff changeset
21 set -e
474e6d189de1 use SED in scripts/mk-pkg-add script, use set -e consistently
John W. Eaton <jwe@octave.org>
parents: 15195
diff changeset
22
5534
e107161b8ca3 [project @ 2005-11-11 17:44:05 by jwe]
jwe
parents:
diff changeset
23 SED=${SED:-'sed'}
e107161b8ca3 [project @ 2005-11-11 17:44:05 by jwe]
jwe
parents:
diff changeset
24
e107161b8ca3 [project @ 2005-11-11 17:44:05 by jwe]
jwe
parents:
diff changeset
25 for f in "$@"; do
e107161b8ca3 [project @ 2005-11-11 17:44:05 by jwe]
jwe
parents:
diff changeset
26 if [ -f $f ]; then
e107161b8ca3 [project @ 2005-11-11 17:44:05 by jwe]
jwe
parents:
diff changeset
27
e107161b8ca3 [project @ 2005-11-11 17:44:05 by jwe]
jwe
parents:
diff changeset
28 ## Compute and print the autoloads.
19627
446c46af4b42 strip trailing whitespace from most source files
John W. Eaton <jwe@octave.org>
parents: 17744
diff changeset
29
5534
e107161b8ca3 [project @ 2005-11-11 17:44:05 by jwe]
jwe
parents:
diff changeset
30 base=`basename $f | $SED 's/\.df$//'`
5865
4e6be3c306f1 [project @ 2006-06-25 16:59:27 by jwe]
jwe
parents: 5796
diff changeset
31 fcns=`$SED -n -e 's/^ *XDEFUN_DLD_INTERNAL *( *\([^, ]*\)[, ].*$/\1/p' \
4e6be3c306f1 [project @ 2006-06-25 16:59:27 by jwe]
jwe
parents: 5796
diff changeset
32 -e 's/^ *XDEFUNX_DLD_INTERNAL *( *"\([^"]*\)".*$/\1/p' $f | \
20354
227d582fa300 build: Sort generated PKG_ADD contents consistently
Mike Miller <mtmiller@octave.org>
parents: 19731
diff changeset
33 LC_COLLATE=C sort -u`
5534
e107161b8ca3 [project @ 2005-11-11 17:44:05 by jwe]
jwe
parents:
diff changeset
34 if [ -n "$fcns" ]; then
e107161b8ca3 [project @ 2005-11-11 17:44:05 by jwe]
jwe
parents:
diff changeset
35 for n in $fcns; do
10317
42d098307c30 untabify additional source files
John W. Eaton <jwe@octave.org>
parents: 7019
diff changeset
36 if [ "$n" = "$base" ]; then
42d098307c30 untabify additional source files
John W. Eaton <jwe@octave.org>
parents: 7019
diff changeset
37 true
42d098307c30 untabify additional source files
John W. Eaton <jwe@octave.org>
parents: 7019
diff changeset
38 else
6926
c05fbb1b7e1f [project @ 2007-09-26 19:56:54 by dbateman]
dbateman
parents: 5865
diff changeset
39 echo "autoload (\"$n\", \"$base.oct\");"
10317
42d098307c30 untabify additional source files
John W. Eaton <jwe@octave.org>
parents: 7019
diff changeset
40 fi
5534
e107161b8ca3 [project @ 2005-11-11 17:44:05 by jwe]
jwe
parents:
diff changeset
41 done
e107161b8ca3 [project @ 2005-11-11 17:44:05 by jwe]
jwe
parents:
diff changeset
42 fi
e107161b8ca3 [project @ 2005-11-11 17:44:05 by jwe]
jwe
parents:
diff changeset
43
e107161b8ca3 [project @ 2005-11-11 17:44:05 by jwe]
jwe
parents:
diff changeset
44 ## Process PKG_ADD directives after autoloads so that all
e107161b8ca3 [project @ 2005-11-11 17:44:05 by jwe]
jwe
parents:
diff changeset
45 ## necessary functions can be found before they are used.
e107161b8ca3 [project @ 2005-11-11 17:44:05 by jwe]
jwe
parents:
diff changeset
46
e107161b8ca3 [project @ 2005-11-11 17:44:05 by jwe]
jwe
parents:
diff changeset
47 $SED -n -e 's,^//* *PKG_ADD: *,,p' \
e107161b8ca3 [project @ 2005-11-11 17:44:05 by jwe]
jwe
parents:
diff changeset
48 -e 's,^/\* *PKG_ADD: *\(.*\) *\*/ *$,\1,p' $f
e107161b8ca3 [project @ 2005-11-11 17:44:05 by jwe]
jwe
parents:
diff changeset
49
e107161b8ca3 [project @ 2005-11-11 17:44:05 by jwe]
jwe
parents:
diff changeset
50 fi
e107161b8ca3 [project @ 2005-11-11 17:44:05 by jwe]
jwe
parents:
diff changeset
51 done
e107161b8ca3 [project @ 2005-11-11 17:44:05 by jwe]
jwe
parents:
diff changeset
52
e107161b8ca3 [project @ 2005-11-11 17:44:05 by jwe]
jwe
parents:
diff changeset
53 exit $?