Mercurial > hg > octave-lyh

comparison src/pt-colon.cc @ 11586:12df7854fa7c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
strip trailing whitespace from source files
author John W. Eaton <jwe@octave.org>
date Thu, 20 Jan 2011 17:24:59 -0500
parents fd0a3ac60b0e
children 72c96de7a403
comparison
equal deleted inserted replaced
11585:1473d0cf86d2 11586:12df7854fa7c
110 const octave_value& ov_limit, 110 const octave_value& ov_limit,
111 const octave_value& ov_increment) const 111 const octave_value& ov_increment) const
112 { 112 {
113 octave_value retval; 113 octave_value retval;
114 114
115 if (ov_base.is_object () || ov_limit.is_object () || 115 if (ov_base.is_object () || ov_limit.is_object () ||
116 ov_increment.is_object ()) 116 ov_increment.is_object ())
117 { 117 {
118 octave_value_list tmp1; 118 octave_value_list tmp1;
119 tmp1(2) = ov_limit; 119 tmp1(2) = ov_limit;
120 tmp1(1) = ov_increment; 120 tmp1(1) = ov_increment;
123 octave_value fcn = symbol_table::find_function ("colon", tmp1); 123 octave_value fcn = symbol_table::find_function ("colon", tmp1);
124 124
125 if (fcn.is_defined ()) 125 if (fcn.is_defined ())
126 { 126 {
127 octave_value_list tmp2 = fcn.do_multi_index_op (1, tmp1); 127 octave_value_list tmp2 = fcn.do_multi_index_op (1, tmp1);
128 128
129 if (! error_state) 129 if (! error_state)
130 retval = tmp2 (0); 130 retval = tmp2 (0);
131 } 131 }
132 else 132 else
133 ::error ("can not find overloaded colon function"); 133 ::error ("can not find overloaded colon function");
209 octave_value fcn = symbol_table::find_function ("colon", tmp1); 209 octave_value fcn = symbol_table::find_function ("colon", tmp1);
210 210
211 if (fcn.is_defined ()) 211 if (fcn.is_defined ())
212 { 212 {
213 octave_value_list tmp2 = fcn.do_multi_index_op (1, tmp1); 213 octave_value_list tmp2 = fcn.do_multi_index_op (1, tmp1);
214 214
215 if (! error_state) 215 if (! error_state)
216 retval = tmp2 (0); 216 retval = tmp2 (0);
217 } 217 }
218 else 218 else
219 ::error ("can not find overloaded colon function"); 219 ::error ("can not find overloaded colon function");