octave-avbm: src/utils.cc comparison

[project @ 2003-07-30 19:15:31 by jwe]

comparison

equal deleted inserted replaced

-:87c2e107f811
+:7afd4bf05aa8
 // should be considered fatal; return 1 if this is ok.
 int
 empty_arg (const char *name, int nr, int nc)
 {
-int is_empty = 0;
+return (nr == 0 || nc == 0);
-if (nr == 0 || nc == 0)
-{
-int flag = Vpropagate_empty_matrices;
-if (flag < 0)
-	{
-	  gripe_empty_arg (name, 0);
-	  is_empty = 1;
-	}
-else if (flag == 0)
-	{
-	  gripe_empty_arg (name, 1);
-	  is_empty = -1;
-	}
-else
-	is_empty = 1;
-}
-return is_empty;
 }
 // See if the given file is in the path.
 std::string
 error ("%s: expecting two scalar arguments", warn_for);
 else
 check_dimensions (nr, nc, warn_for); // May set error_state.
 }
+Matrix
+identity_matrix (int nr, int nc)
+{
+Matrix m (nr, nc, 0.0);
+if (nr > 0 && nc > 0)
+{
+int n = std::min (nr, nc);
+for (int i = 0; i < n; i++)
+	m (i, i) = 1.0;
+}
+return m;
+}
 extern int
 octave_format (std::ostream& os, const char *fmt, ...)
 {
 int retval = -1;

Mercurial > hg > octave-avbm