Mercurial > octave-nkf

comparison src/OPERATORS/op-class.cc @ 9931:fb6b6fcafa62

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
untabify files in src/OPERATORS directory
author John W. Eaton <jwe@octave.org>
date Mon, 07 Dec 2009 14:49:48 -0500
parents eb63fbe60fab
children ac4b97c6bf8b
comparison
equal deleted inserted replaced
9930:1ddc25c3623a 9931:fb6b6fcafa62
1 /* 1 /*
2 2
3 Copyright (C) 2007, 2008 John W. Eaton 3 Copyright (C) 2007, 2008, 2009 John W. Eaton
4 4
5 This file is part of Octave. 5 This file is part of Octave.
6 6
7 Octave is free software; you can redistribute it and/or modify it 7 Octave is free software; you can redistribute it and/or modify it
8 under the terms of the GNU General Public License as published by the 8 under the terms of the GNU General Public License as published by the
48 \ 48 \
49 octave_value meth = symbol_table::find_method (#name, class_name); \ 49 octave_value meth = symbol_table::find_method (#name, class_name); \
50 \ 50 \
51 if (meth.is_defined ()) \ 51 if (meth.is_defined ()) \
52 { \ 52 { \
53 octave_value_list args; \ 53 octave_value_list args; \
54 \ 54 \
55 args(0) = a; \ 55 args(0) = a; \
56 \ 56 \
57 octave_value_list tmp = feval (meth.function_value (), args, 1); \ 57 octave_value_list tmp = feval (meth.function_value (), args, 1); \
58 \ 58 \
59 if (tmp.length () > 0) \ 59 if (tmp.length () > 0) \
60 retval = tmp(0); \ 60 retval = tmp(0); \
61 } \ 61 } \
62 else \ 62 else \
63 error ("%s method not defined for %s class", \ 63 error ("%s method not defined for %s class", \
64 #name, class_name.c_str ()); \ 64 #name, class_name.c_str ()); \
65 \ 65 \
85 \ 85 \
86 octave_value meth = symbol_table::find_method (#name, dispatch_type); \ 86 octave_value meth = symbol_table::find_method (#name, dispatch_type); \
87 \ 87 \
88 if (meth.is_defined ()) \ 88 if (meth.is_defined ()) \
89 { \ 89 { \
90 octave_value_list args; \ 90 octave_value_list args; \
91 \ 91 \
92 args(1) = a2; \ 92 args(1) = a2; \
93 args(0) = a1; \ 93 args(0) = a1; \
94 \ 94 \
95 octave_value_list tmp = feval (meth.function_value (), args, 1); \ 95 octave_value_list tmp = feval (meth.function_value (), args, 1); \
96 \ 96 \
97 if (tmp.length () > 0) \ 97 if (tmp.length () > 0) \
98 retval = tmp(0); \ 98 retval = tmp(0); \
99 } \ 99 } \
100 else \ 100 else \
101 error ("%s method not defined for %s class", \ 101 error ("%s method not defined for %s class", \
102 #name, dispatch_type.c_str ()); \ 102 #name, dispatch_type.c_str ()); \
103 \ 103 \