diff src/pt-exp.cc @ 2086:bfb775fb6fe8

[project @ 1996-04-25 05:55:19 by jwe]
author jwe
date Thu, 25 Apr 1996 05:55:19 +0000
parents 003570e69c7b
children 97a566037a75
line wrap: on
line diff
--- a/src/pt-exp.cc
+++ b/src/pt-exp.cc
@@ -59,10 +59,10 @@
   delete id;
 }
 
-tree_constant
+octave_value
 tree_prefix_expression::eval (bool print)
 {
-  tree_constant retval;
+  octave_value retval;
 
   if (error_state)
     return retval;
@@ -77,7 +77,7 @@
 	  retval = id->eval (print);
 	  if (error_state)
 	    {
-	      retval = tree_constant ();
+	      retval = octave_value ();
 	      if (error_state)
 		eval_error ();
 	    }
@@ -143,10 +143,10 @@
   delete id;
 }
 
-tree_constant
+octave_value
 tree_postfix_expression::eval (bool print)
 {
-  tree_constant retval;
+  octave_value retval;
 
   if (error_state)
     return retval;
@@ -157,7 +157,7 @@
       id->bump_value (etype);
       if (error_state)
 	{
-	  retval = tree_constant ();
+	  retval = octave_value ();
 	  if (error_state)
 	    eval_error ();
 	}
@@ -217,13 +217,13 @@
 
 // Unary expressions.
 
-tree_constant
+octave_value
 tree_unary_expression::eval (bool /* print */)
 {
   if (error_state)
-    return tree_constant ();
+    return octave_value ();
 
-  tree_constant retval;
+  octave_value retval;
 
   switch (etype)
     {
@@ -233,7 +233,7 @@
     case tree_expression::transpose:
       if (op)
 	{
-	  tree_constant u = op->eval (false);
+	  octave_value u = op->eval (false);
 	  if (error_state)
 	    eval_error ();
 	  else if (u.is_defined ())
@@ -241,7 +241,7 @@
 	      retval = do_unary_op (u, etype);
 	      if (error_state)
 		{
-		  retval = tree_constant ();
+		  retval = octave_value ();
 		  if (error_state)
 		    eval_error ();
 		}
@@ -335,13 +335,13 @@
 
 // Binary expressions.
  
-tree_constant
+octave_value
 tree_binary_expression::eval (bool /* print */)
 {
   if (error_state)
-    return tree_constant ();
+    return octave_value ();
 
-  tree_constant retval;
+  octave_value retval;
 
   switch (etype)
     {
@@ -365,12 +365,12 @@
     case tree_expression::or:
       if (op1)
 	{
-	  tree_constant a = op1->eval (false);
+	  octave_value a = op1->eval (false);
 	  if (error_state)
 	    eval_error ();
 	  else if (a.is_defined () && op2)
 	    {
-	      tree_constant b = op2->eval (false);
+	      octave_value b = op2->eval (false);
 	      if (error_state)
 		eval_error ();
 	      else if (b.is_defined ())
@@ -378,7 +378,7 @@
 		  retval = do_binary_op (a, b, etype);
 		  if (error_state)
 		    {
-		      retval = tree_constant ();
+		      retval = octave_value ();
 		      if (error_state)
 			eval_error ();
 		    }
@@ -393,7 +393,7 @@
 	bool result = false;
 	if (op1)
 	  {
-	    tree_constant a = op1->eval (false);
+	    octave_value a = op1->eval (false);
 	    if (error_state)
 	      {
 		eval_error ();
@@ -426,7 +426,7 @@
 
 	    if (op2)
 	      {
-		tree_constant b = op2->eval (false);
+		octave_value b = op2->eval (false);
 		if (error_state)
 		  {
 		    eval_error ();
@@ -442,7 +442,7 @@
 	      }
 	  }
       done:
-	retval = tree_constant ((double) result);
+	retval = octave_value ((double) result);
       }
       break;
 
@@ -628,19 +628,19 @@
   return lhs->ident ();
 }
 
-tree_constant
+octave_value
 tree_simple_assignment_expression::eval (bool print)
 {
   assert (etype == tree_expression::assignment);
 
-  tree_constant retval;
+  octave_value retval;
 
   if (error_state)
     return retval;
 
   if (rhs)
     {
-      tree_constant rhs_val = rhs->eval (false);
+      octave_value rhs_val = rhs->eval (false);
       if (error_state)
 	{
 	  eval_error ();
@@ -660,7 +660,7 @@
 	{
 	  // Extract the arguments into a simple vector.
 
-	  Octave_object args = index->convert_to_const_vector ();
+	  octave_value_list args = index->convert_to_const_vector ();
 
 	  if (error_state)
 	    eval_error ();
@@ -757,15 +757,15 @@
   return retval;
 }
 
-tree_constant
+octave_value
 tree_colon_expression::eval (bool /* print */)
 {
-  tree_constant retval;
+  octave_value retval;
 
   if (error_state || ! op1 || ! op2)
     return retval;
 
-  tree_constant tmp = op1->eval (false);
+  octave_value tmp = op1->eval (false);
 
   if (tmp.is_undefined ())
     {
@@ -820,13 +820,13 @@
 	}
     }
 
-  retval = tree_constant (base, limit, inc);
+  retval = octave_value (base, limit, inc);
 
   if (error_state)
     {
       if (error_state)
 	eval_error ("evaluating colon expression");
-      return tree_constant ();
+      return octave_value ();
     }
 
   return retval;