comparison src/pt-const.h @ 212:6188aa8d1fec

[project @ 1993-11-13 03:44:55 by jwe]
author jwe
date Sat, 13 Nov 1993 03:44:55 +0000
parents 380cb9ccc889
children a99f28f5e351
comparison
equal deleted inserted replaced
211:4adbab9c31cd 212:6188aa8d1fec
353 void check_vector_assign (int rhs_nr, int rhs_nc, int ilen, 353 void check_vector_assign (int rhs_nr, int rhs_nc, int ilen,
354 const char *rm); 354 const char *rm);
355 355
356 void do_vector_assign (tree_constant& rhs, int i); 356 void do_vector_assign (tree_constant& rhs, int i);
357 void do_vector_assign (tree_constant& rhs, idx_vector& i); 357 void do_vector_assign (tree_constant& rhs, idx_vector& i);
358 void do_vector_assign (tree_constant& rhs, Range& i, int imax); 358 void do_vector_assign (tree_constant& rhs, Range& i);
359 359
360 void do_matrix_assignment 360 void do_matrix_assignment
361 (tree_constant& rhs, int i, tree_constant& j_arg); 361 (tree_constant& rhs, int i, tree_constant& j_arg);
362 void do_matrix_assignment 362 void do_matrix_assignment
363 (tree_constant& rhs, idx_vector& i, tree_constant& j_arg); 363 (tree_constant& rhs, idx_vector& i, tree_constant& j_arg);
364 void do_matrix_assignment 364 void do_matrix_assignment
365 (tree_constant& rhs, Range& i, int imax, tree_constant& j_arg); 365 (tree_constant& rhs, Range& i, tree_constant& j_arg);
366 void do_matrix_assignment 366 void do_matrix_assignment
367 (tree_constant& rhs, constant_type i, tree_constant& j_arg); 367 (tree_constant& rhs, constant_type i, tree_constant& j_arg);
368 368
369 void do_matrix_assignment (tree_constant& rhs, int i, int j); 369 void do_matrix_assignment (tree_constant& rhs, int i, int j);
370 void do_matrix_assignment (tree_constant& rhs, int i, idx_vector& jv); 370 void do_matrix_assignment (tree_constant& rhs, int i, idx_vector& jv);
423 tree_constant do_vector_index (const tree_constant& i_arg) const; 423 tree_constant do_vector_index (const tree_constant& i_arg) const;
424 424
425 tree_constant do_matrix_index (int i, const tree_constant& i_arg) const; 425 tree_constant do_matrix_index (int i, const tree_constant& i_arg) const;
426 tree_constant do_matrix_index (const idx_vector& i, 426 tree_constant do_matrix_index (const idx_vector& i,
427 const tree_constant& i_arg) const; 427 const tree_constant& i_arg) const;
428 tree_constant do_matrix_index (const Range& i, int imax, 428 tree_constant do_matrix_index (const Range& i,
429 const tree_constant& i_arg) const; 429 const tree_constant& i_arg) const;
430 tree_constant do_matrix_index (constant_type i, 430 tree_constant do_matrix_index (constant_type i,
431 const tree_constant& i_arg) const; 431 const tree_constant& i_arg) const;
432 432
433 tree_constant do_matrix_index (int i, int j) const; 433 tree_constant do_matrix_index (int i, int j) const;
712 && rep->type_tag != tree_constant_rep::unknown_constant 712 && rep->type_tag != tree_constant_rep::unknown_constant
713 && (rows () == 0 || columns () == 0)); 713 && (rows () == 0 || columns () == 0));
714 } 714 }
715 715
716 int is_zero_by_zero (void) const 716 int is_zero_by_zero (void) const
717 { return (rows () == 0 && columns () == 0); } 717 {
718 return (rep->type_tag != tree_constant_rep::magic_colon
719 && rep->type_tag != tree_constant_rep::unknown_constant
720 && rows () == 0
721 && columns () == 0);
722 }
718 723
719 724
720 tree_constant all (void) const { return rep->all (); } 725 tree_constant all (void) const { return rep->all (); }
721 tree_constant any (void) const { return rep->any (); } 726 tree_constant any (void) const { return rep->any (); }
722 tree_constant isstr (void) const { return rep->isstr (); } 727 tree_constant isstr (void) const { return rep->isstr (); }