Mercurial > octave-nkf
diff src/data.cc @ 2800:9aeba8e006a4
[project @ 1997-03-09 09:50:20 by jwe]
author | jwe |
---|---|
date | Sun, 09 Mar 1997 09:50:39 +0000 |
parents | e93b4c32457b |
children | 8b262e771614 |
line wrap: on
line diff
--- a/src/data.cc Sat Mar 08 08:41:00 1997 +0000 +++ b/src/data.cc Sun Mar 09 09:50:39 1997 +0000 @@ -633,8 +633,8 @@ } else if (nargout == 2) { - retval(1) = (double) nc; - retval(0) = (double) nr; + retval(1) = static_cast<double> (nc); + retval(0) = static_cast<double> (nr); } } else if (nargin == 2 && nargout < 2) @@ -646,9 +646,9 @@ else { if (nd == 1) - retval(0) = (double) (args(0).rows ()); + retval(0) = static_cast<double> (args(0).rows ()); else if (nd == 2) - retval(0) = (double) (args(0).columns ()); + retval(0) = static_cast<double> (args(0).columns ()); else error ("size: invalid second argument -- expecting 1 or 2"); } @@ -798,7 +798,7 @@ { string s = args(1).string_value (); octave_value tmp = args(0).struct_elt_val (s, true); - retval = (double) tmp.is_defined (); + retval = static_cast<double> (tmp.is_defined ()); } else print_usage ("struct_contains");