Mercurial > hg > octave-nkf

comparison src/pt-pr-code.cc @ 2372:b21b42c25350

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-10-12 00:15:08 by jwe]
author jwe
date Sat, 12 Oct 1996 00:15:08 +0000
parents 6abec42e52f6
children 4516c3b75851
comparison
equal deleted inserted replaced
2371:dd29ab8af9e7 2372:b21b42c25350
558 { 558 {
559 ::error ("visit_oct_obj: internal error"); 559 ::error ("visit_oct_obj: internal error");
560 } 560 }
561 561
562 void 562 void
563 tree_print_code::visit_octave_value (octave_value& val) 563 tree_print_code::visit_constant (tree_constant& val)
564 { 564 {
565 indent (); 565 indent ();
566 566
567 bool in_parens = val.is_in_parens (); 567 bool in_parens = val.is_in_parens ();
568 568
1032 if (in_parens) 1032 if (in_parens)
1033 os << "("; 1033 os << "(";
1034 1034
1035 tree_expression *op = expr.operand (); 1035 tree_expression *op = expr.operand ();
1036 1036
1037 tree_expression::type etype = expr.expression_type (); 1037 if (expr.is_prefix_op ())
1038 1038 {
1039 switch (etype) 1039 os << expr.oper ();
1040 { 1040
1041 case tree_expression::hermitian:
1042 case tree_expression::transpose:
1043 if (op) 1041 if (op)
1044 op->accept (*this); 1042 op->accept (*this);
1045 os << expr.oper (); 1043 }
1046 break; 1044 else
1047 1045 {
1048 case tree_expression::not:
1049 case tree_expression::uminus:
1050 default:
1051 os << expr.oper ();
1052 if (op) 1046 if (op)
1053 op->accept (*this); 1047 op->accept (*this);
1054 break; 1048
1049 os << expr.oper ();
1055 } 1050 }
1056 1051
1057 if (in_parens) 1052 if (in_parens)
1058 os << ")"; 1053 os << ")";
1059 } 1054 }