Mercurial > octave-nkf

comparison src/pt-mat.h @ 2971:f2be17e6f1ea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1997-05-15 18:55:44 by jwe]
author jwe
date Thu, 15 May 1997 18:55:47 +0000
parents 8bb31a2b480b
children 20f5cec4f11c
comparison
equal deleted inserted replaced
2970:b9e64477f703 2971:f2be17e6f1ea
40 40
41 // General matrices. This allows us to construct matrices from 41 // General matrices. This allows us to construct matrices from
42 // other matrices, variables, and functions. 42 // other matrices, variables, and functions.
43 43
44 class 44 class
45 tree_matrix_row : public SLList<tree_expression *> 45 tree_matrix : public tree_expression, public SLList<tree_argument_list *>
46 { 46 {
47 public: 47 public:
48 48
49 tree_matrix_row (tree_expression *e = 0) : SLList<tree_expression *> () 49 tree_matrix (tree_argument_list *row = 0)
50 { 50 : tree_expression (), SLList<tree_argument_list *> ()
51 if (e)
52 append (e);
53 }
54
55 ~tree_matrix_row (void) { }
56
57 bool all_elements_are_constant (void) const;
58
59 tree_return_list *to_return_list (void);
60
61 void accept (tree_walker& tw);
62 };
63
64 class
65 tree_matrix : public tree_expression, public SLList<tree_matrix_row *>
66 {
67 public:
68
69 tree_matrix (tree_matrix_row *mr = 0)
70 : tree_expression (), SLList<tree_matrix_row *> ()
71 { 51 {
72 if (mr) 52 if (row)
73 append (mr); 53 append (row);
74 } 54 }
75 55
76 ~tree_matrix (void) { } 56 ~tree_matrix (void) { }
77 57
78 bool all_elements_are_constant (void) const; 58 bool all_elements_are_constant (void) const;
79 59
80 octave_value eval (bool print = false); 60 bool rvalue_ok (void) const
61 { return true; }
62
63 octave_value rvalue (void);
64
65 octave_value_list rvalue (int nargout);
81 66
82 void accept (tree_walker& tw); 67 void accept (tree_walker& tw);
83 }; 68 };
84 69
85 #endif 70 #endif