Mercurial > octave
view src/ov-type-conv.h @ 13112:969ed305dde5
Remove all blank lines with "format compact"
* pr-output.h (Vcompact_format): New global variable.
* pr-output.cc (Vcompact_format): No longer a static variable.
(pr_scale_header, pr_col_num_header, octave_print_internal): Use
Vcompact_format to eliminate some newlines. (Vformat): Document this change.
* ov-base.cc (octave_base_value::print_name_tag,
octave_base_value::print_with_name): Use Vcompact_format variable to
omit newlines.
* ov-class.cc (octave_class::print_name_tag): Ditto.
* ov-range.cc (octave_range::print_name_tag): Ditto.
* ov-struct.cc (octave_scalar_struct::print_raw): Ditto.
author | Jordi Gutiérrez Hermoso <jordigh@octave.org> |
---|---|
date | Tue, 06 Sep 2011 21:15:16 -0500 |
parents | 12df7854fa7c |
children | 72c96de7a403 |
line wrap: on
line source
/* Copyright (C) 2004-2011 John W. Eaton This file is part of Octave. Octave is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3 of the License, or (at your option) any later version. Octave is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with Octave; see the file COPYING. If not, see <http://www.gnu.org/licenses/>. */ #if !defined (octave_ov_type_conv_h) #define octave_ov_type_conv_h 1 static octave_value octave_type_conv_body (const octave_value &arg, const std::string& name, int t_result) { int t_arg = arg.type_id (); octave_value retval; if (t_arg == t_result || arg.class_name () == name) { retval = arg; } else { octave_base_value::type_conv_fcn cf1 = octave_value_typeinfo::lookup_type_conv_op (t_arg, t_result); if (cf1) { octave_base_value *tmp (cf1 (*(arg.internal_rep ()))); if (tmp) { retval = octave_value (tmp); retval.maybe_mutate (); } } else { octave_base_value::type_conv_fcn cf2 = arg.numeric_conversion_function (); if (cf2) { octave_base_value *tmp (cf2 (*(arg.internal_rep ()))); if (tmp) { octave_value xarg (tmp); retval = octave_type_conv_body (xarg, name, t_result); } } } } return retval; } #define OCTAVE_TYPE_CONV_BODY3(NAME, MATRIX_RESULT_T, SCALAR_RESULT_T) \ \ octave_value retval; \ \ int nargin = args.length (); \ \ if (nargin == 1) \ { \ const octave_value arg = args(0); \ \ int t_result = MATRIX_RESULT_T::static_type_id (); \ \ retval = octave_type_conv_body (arg, #NAME, t_result); \ if (retval.is_undefined ()) \ { \ std::string arg_tname = arg.type_name (); \ \ std::string result_tname = arg.numel () == 1 \ ? SCALAR_RESULT_T::static_type_name () \ : MATRIX_RESULT_T::static_type_name (); \ \ gripe_invalid_conversion (arg_tname, result_tname); \ } \ } \ else \ print_usage (); \ \ return retval #define OCTAVE_TYPE_CONV_BODY(NAME) \ OCTAVE_TYPE_CONV_BODY3 (NAME, octave_ ## NAME ## _matrix, \ octave_ ## NAME ## _scalar) #endif