Mercurial > hg > octave-nkf

comparison src/sparse.cc @ 12483:7a5aacf65f81

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rewrite error strings in src/ to use variables named in documentation.
author Rik <octave@nomad.inbox5.com>
date Sat, 26 Feb 2011 17:28:11 -0800
parents 12df7854fa7c
children 5b49cafe0599
comparison
equal deleted inserted replaced
12482:3244c6e0af4a 12483:7a5aacf65f81
128 { 128 {
129 m = args(0).idx_type_value (); 129 m = args(0).idx_type_value ();
130 n = args(1).idx_type_value (); 130 n = args(1).idx_type_value ();
131 } 131 }
132 else 132 else
133 error ("sparse: expecting scalar dimensions"); 133 error ("sparse: dimensions M,N must be scalar");
134 134
135 if (! error_state) 135 if (! error_state)
136 { 136 {
137 if (m >= 0 && n >= 0) 137 if (m >= 0 && n >= 0)
138 retval = SparseMatrix (m, n); 138 retval = SparseMatrix (m, n);
139 else 139 else
140 error ("sparse: dimensions must be nonnegative"); 140 error ("sparse: dimensions M,N must be positive or zero");
141 } 141 }
142 } 142 }
143 else if (nargin >= 3) 143 else if (nargin >= 3)
144 { 144 {
145 bool summation = true; 145 bool summation = true;
256 if (error_state) 256 if (error_state)
257 ; 257 ;
258 else if (m >= 0 && n >= 0 && nz >= 0) 258 else if (m >= 0 && n >= 0 && nz >= 0)
259 retval = SparseMatrix (dim_vector (m, n), nz); 259 retval = SparseMatrix (dim_vector (m, n), nz);
260 else 260 else
261 error ("spalloc: m,n,nz must be non-negative"); 261 error ("spalloc: M,N,NZ must be non-negative");
262 } 262 }
263 else 263 else
264 print_usage (); 264 print_usage ();
265 265
266 return retval; 266 return retval;