Mercurial > octave-nkf

comparison src/pt-cbinop.cc @ 11586:12df7854fa7c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
strip trailing whitespace from source files
author John W. Eaton <jwe@octave.org>
date Thu, 20 Jan 2011 17:24:59 -0500
parents fd0a3ac60b0e
children 82f3a0c27569
comparison
equal deleted inserted replaced
11585:1473d0cf86d2 11586:12df7854fa7c
33 #include "pt-walk.h" 33 #include "pt-walk.h"
34 34
35 // If a tree expression is a transpose or hermitian transpose, return 35 // If a tree expression is a transpose or hermitian transpose, return
36 // the argument and corresponding operator. 36 // the argument and corresponding operator.
37 37
38 static octave_value::unary_op 38 static octave_value::unary_op
39 strip_trans_herm (tree_expression *&exp) 39 strip_trans_herm (tree_expression *&exp)
40 { 40 {
41 if (exp->is_unary_expression ()) 41 if (exp->is_unary_expression ())
42 { 42 {
43 tree_unary_expression *uexp = 43 tree_unary_expression *uexp =
44 dynamic_cast<tree_unary_expression *> (exp); 44 dynamic_cast<tree_unary_expression *> (exp);
45 45
46 octave_value::unary_op op = uexp->op_type (); 46 octave_value::unary_op op = uexp->op_type ();
47 47
48 if (op == octave_value::op_transpose 48 if (op == octave_value::op_transpose
55 } 55 }
56 else 56 else
57 return octave_value::unknown_unary_op; 57 return octave_value::unknown_unary_op;
58 } 58 }
59 59
60 static octave_value::unary_op 60 static octave_value::unary_op
61 strip_not (tree_expression *&exp) 61 strip_not (tree_expression *&exp)
62 { 62 {
63 if (exp->is_unary_expression ()) 63 if (exp->is_unary_expression ())
64 { 64 {
65 tree_unary_expression *uexp = 65 tree_unary_expression *uexp =
66 dynamic_cast<tree_unary_expression *> (exp); 66 dynamic_cast<tree_unary_expression *> (exp);
67 67
68 octave_value::unary_op op = uexp->op_type (); 68 octave_value::unary_op op = uexp->op_type ();
69 69
70 if (op == octave_value::op_not) 70 if (op == octave_value::op_not)