Mercurial > hg > octave-lyh

comparison src/ov-range.cc @ 5759:ce79d238f142

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-04-13 13:04:32 by jwe]
author jwe
date Thu, 13 Apr 2006 13:04:33 +0000
parents c7d5a534afa5
children 8d7162924bd3
comparison
equal deleted inserted replaced
5758:65208d959bf1 5759:ce79d238f142
44 44
45 DEFINE_OCTAVE_ALLOCATOR (octave_range); 45 DEFINE_OCTAVE_ALLOCATOR (octave_range);
46 46
47 DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_range, "range", "double"); 47 DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_range, "range", "double");
48 48
49 static octave_value * 49 static octave_base_value *
50 default_numeric_conversion_function (const octave_value& a) 50 default_numeric_conversion_function (const octave_base_value& a)
51 { 51 {
52 CAST_CONV_ARG (const octave_range&); 52 CAST_CONV_ARG (const octave_range&);
53 53
54 return new octave_matrix (v.matrix_value ()); 54 return new octave_matrix (v.matrix_value ());
55 } 55 }
56 56
57 type_conv_fcn 57 octave_base_value::type_conv_fcn
58 octave_range::numeric_conversion_function (void) const 58 octave_range::numeric_conversion_function (void) const
59 { 59 {
60 return default_numeric_conversion_function; 60 return default_numeric_conversion_function;
61 } 61 }
62 62
63 octave_value * 63 octave_base_value *
64 octave_range::try_narrowing_conversion (void) 64 octave_range::try_narrowing_conversion (void)
65 { 65 {
66 octave_value *retval = 0; 66 octave_base_value *retval = 0;
67 67
68 switch (range.nelem ()) 68 switch (range.nelem ())
69 { 69 {
70 case 1: 70 case 1:
71 retval = new octave_scalar (range.base ()); 71 retval = new octave_scalar (range.base ());