Mercurial > hg > octave-nkf

annotate scripts/deprecated/struct_contains.m @ 11745:df16538e1b93 release-3-0-x

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
don't embed newline in warning messages in deprecated functions (part 2)
author John W. Eaton <jwe@octave.org>
date Wed, 09 Apr 2008 13:05:10 -0400
parents 72830070a17b
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
11740
72830070a17b update copyright dates
John W. Eaton <jwe@octave.org>
parents: 11737
diff changeset
1 ## Copyright (C) 2003, 2005, 2007, 2008 John W. Eaton
4358
83d4452bc522 [project @ 2003-02-23 02:16:53 by jwe]
jwe
parents:
diff changeset
2 ##
83d4452bc522 [project @ 2003-02-23 02:16:53 by jwe]
jwe
parents:
diff changeset
3 ## This file is part of Octave.
83d4452bc522 [project @ 2003-02-23 02:16:53 by jwe]
jwe
parents:
diff changeset
4 ##
83d4452bc522 [project @ 2003-02-23 02:16:53 by jwe]
jwe
parents:
diff changeset
5 ## Octave is free software; you can redistribute it and/or modify it
83d4452bc522 [project @ 2003-02-23 02:16:53 by jwe]
jwe
parents:
diff changeset
6 ## under the terms of the GNU General Public License as published by
7016
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 5307
diff changeset
7 ## the Free Software Foundation; either version 3 of the License, or (at
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 5307
diff changeset
8 ## your option) any later version.
4358
83d4452bc522 [project @ 2003-02-23 02:16:53 by jwe]
jwe
parents:
diff changeset
9 ##
83d4452bc522 [project @ 2003-02-23 02:16:53 by jwe]
jwe
parents:
diff changeset
10 ## Octave is distributed in the hope that it will be useful, but
83d4452bc522 [project @ 2003-02-23 02:16:53 by jwe]
jwe
parents:
diff changeset
11 ## WITHOUT ANY WARRANTY; without even the implied warranty of
83d4452bc522 [project @ 2003-02-23 02:16:53 by jwe]
jwe
parents:
diff changeset
12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
83d4452bc522 [project @ 2003-02-23 02:16:53 by jwe]
jwe
parents:
diff changeset
13 ## General Public License for more details.
83d4452bc522 [project @ 2003-02-23 02:16:53 by jwe]
jwe
parents:
diff changeset
14 ##
83d4452bc522 [project @ 2003-02-23 02:16:53 by jwe]
jwe
parents:
diff changeset
15 ## You should have received a copy of the GNU General Public License
7016
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 5307
diff changeset
16 ## along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 5307
diff changeset
17 ## <http://www.gnu.org/licenses/>.
4358
83d4452bc522 [project @ 2003-02-23 02:16:53 by jwe]
jwe
parents:
diff changeset
18
83d4452bc522 [project @ 2003-02-23 02:16:53 by jwe]
jwe
parents:
diff changeset
19 ## -*- texinfo -*-
83d4452bc522 [project @ 2003-02-23 02:16:53 by jwe]
jwe
parents:
diff changeset
20 ## @deftypefn {Function File} {} struct_contains (@var{expr}, @var{name})
83d4452bc522 [project @ 2003-02-23 02:16:53 by jwe]
jwe
parents:
diff changeset
21 ## This function has been deprecated. Use isfield instead.
83d4452bc522 [project @ 2003-02-23 02:16:53 by jwe]
jwe
parents:
diff changeset
22 ## @end deftypefn
83d4452bc522 [project @ 2003-02-23 02:16:53 by jwe]
jwe
parents:
diff changeset
23
83d4452bc522 [project @ 2003-02-23 02:16:53 by jwe]
jwe
parents:
diff changeset
24 ## Author: jwe
83d4452bc522 [project @ 2003-02-23 02:16:53 by jwe]
jwe
parents:
diff changeset
25
11736
9d412bc1d54f note version when functions were deprecated
John W. Eaton <jwe@octave.org>
parents: 7017
diff changeset
26 ## Deprecated in version 3.0
9d412bc1d54f note version when functions were deprecated
John W. Eaton <jwe@octave.org>
parents: 7017
diff changeset
27
4358
83d4452bc522 [project @ 2003-02-23 02:16:53 by jwe]
jwe
parents:
diff changeset
28 function retval = struct_contains (varargin)
83d4452bc522 [project @ 2003-02-23 02:16:53 by jwe]
jwe
parents:
diff changeset
29
11737
dd93a39fa8fe Add warning to rest of deprecated functions
David Bateman <dbateman@free.fr>
parents: 11736
diff changeset
30 persistent warned = false;
dd93a39fa8fe Add warning to rest of deprecated functions
David Bateman <dbateman@free.fr>
parents: 11736
diff changeset
31 if (! warned)
dd93a39fa8fe Add warning to rest of deprecated functions
David Bateman <dbateman@free.fr>
parents: 11736
diff changeset
32 warned = true;
dd93a39fa8fe Add warning to rest of deprecated functions
David Bateman <dbateman@free.fr>
parents: 11736
diff changeset
33 warning ("Octave:deprecated-function",
11745
df16538e1b93 don't embed newline in warning messages in deprecated functions (part 2)
John W. Eaton <jwe@octave.org>
parents: 11740
diff changeset
34 "struct_contains is obsolete and will be removed from a future version of Octave; please use isfield instead");
11737
dd93a39fa8fe Add warning to rest of deprecated functions
David Bateman <dbateman@free.fr>
parents: 11736
diff changeset
35 endif
dd93a39fa8fe Add warning to rest of deprecated functions
David Bateman <dbateman@free.fr>
parents: 11736
diff changeset
36
4358
83d4452bc522 [project @ 2003-02-23 02:16:53 by jwe]
jwe
parents:
diff changeset
37 retval = isfield (varargin{:});
83d4452bc522 [project @ 2003-02-23 02:16:53 by jwe]
jwe
parents:
diff changeset
38
83d4452bc522 [project @ 2003-02-23 02:16:53 by jwe]
jwe
parents:
diff changeset
39 endfunction