Mercurial > octave-nkf

comparison src/ov-range.h @ 5042:3914c4ad3ffa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-10-01 19:59:40 by jwe]
author jwe
date Fri, 01 Oct 2004 19:59:40 +0000
parents c638c144d4da
children cab27aa905c4
comparison
equal deleted inserted replaced
5041:b2ce28713791 5042:3914c4ad3ffa
128 128
129 bool is_real_type (void) const { return true; } 129 bool is_real_type (void) const { return true; }
130 130
131 bool valid_as_scalar_index (void) const 131 bool valid_as_scalar_index (void) const
132 { 132 {
133 double b = range.base ();
133 return (range.nelem () == 1 134 return (range.nelem () == 1
134 && ! xisnan (range.base ()) 135 && ! xisnan (b) && D_NINT (b) == b && NINT (b) == 1);
135 && NINT (range.base ()) == 1);
136 } 136 }
137 137
138 bool valid_as_zero_index (void) const 138 bool valid_as_zero_index (void) const
139 { 139 {
140 double b = range.base ();
140 return (range.nelem () == 1 141 return (range.nelem () == 1
141 && ! xisnan (range.base ()) 142 && ! xisnan (b) && D_NINT (b) == b && NINT (b) == 0);
142 && NINT (range.base ()) == 0);
143 } 143 }
144 144
145 bool is_numeric_type (void) const { return true; } 145 bool is_numeric_type (void) const { return true; }
146 146
147 // XXX DO ME XXX 147 // XXX DO ME XXX