Mercurial > hg > octave-nkf

comparison src/ov-ch-mat.cc @ 3136:af7ec9d3a5e6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1998-02-01 20:11:06 by jwe]
author jwe
date Sun, 01 Feb 1998 20:11:08 +0000
parents 4e7bea116f24
children 30770ba4457a
comparison
equal deleted inserted replaced
3135:267b3a5c6b28 3136:af7ec9d3a5e6
47 octave_char_matrix::t_name ("char matrix"); 47 octave_char_matrix::t_name ("char matrix");
48 48
49 bool 49 bool
50 octave_char_matrix::valid_as_scalar_index (void) const 50 octave_char_matrix::valid_as_scalar_index (void) const
51 { 51 {
52 // XXX FIXME XXX 52 bool retval = false;
53 return false; 53 error ("octave_char_matrix::valid_as_scalar_index(): not implemented");
54 return retval;
54 } 55 }
55 56
56 bool 57 bool
57 octave_char_matrix::valid_as_zero_index (void) const 58 octave_char_matrix::valid_as_zero_index (void) const
58 { 59 {
59 // XXX FIXME XXX 60 bool retval = false;
60 return false; 61 error ("octave_char_matrix::valid_as_zero_index(): not implemented");
62 return retval;
61 } 63 }
62 64
63 bool 65 bool
64 octave_char_matrix::is_true (void) const 66 octave_char_matrix::is_true (void) const
65 { 67 {
66 // XXX FIXME XXX 68 bool retval = false;
67 return false; 69
70 if (rows () == 0 || columns () == 0)
71 {
72 int flag = Vpropagate_empty_matrices;
73
74 if (flag < 0)
75 warning ("empty matrix used in conditional expression");
76 else if (flag == 0)
77 error ("empty matrix used in conditional expression");
78 }
79 else
80 {
81 Matrix m = (matrix.all ()) . all ();
82
83 retval = (m.rows () == 1 && m.columns () == 1 && m (0, 0) != 0.0);
84 }
85
86 return retval;
68 } 87 }
69 88
70 double 89 double
71 octave_char_matrix::double_value (bool) const 90 octave_char_matrix::double_value (bool) const
72 { 91 {