# HG changeset patch
# User David Bateman <dbateman@free.fr>
# Date 1224085959 14400
# Node ID f8a885ccd5b47ed6a8f8ef08a22b8e9e257dbbf1
# Parent  8a5fbd656f554acfaa1ff5ea4894589dba26dc61
allow multiple args for inferiorto and superiorto

diff --git a/src/ChangeLog b/src/ChangeLog
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2008-10-15  David Bateman  <dbateman@free.fr>
+
+	* ov-class.c (Fsuperiorto, Finferiorto): Allow more than one class
+	to be defined at a time.
+
 2008-10-12  David Bateman  <dbateman@free.fr>
 
 	* pt-colon.cc (octave_value tree_colon_expression::make_range 
diff --git a/src/ov-class.cc b/src/ov-class.cc
--- a/src/ov-class.cc
+++ b/src/ov-class.cc
@@ -1342,9 +1342,10 @@
 
 DEFUN (superiorto, args, ,
   "-*- texinfo -*-\n\
-@deftypefn {Built-in Function} {} superiorto (@var{class_name})\n\
+@deftypefn {Built-in Function} {} superiorto (@var{class_name}, @dots{})\n\
 When called from a class constructor, mark the object currently\n\
 constructed as having a higher precedence than @var{class_name}.\n\
+More that one such class can be specified in a single call.\n\
 This function may only be called from a class constructor.\n\
 @end deftypefn")
 {
@@ -1354,9 +1355,9 @@
 
   if (fcn && fcn->is_class_constructor ())
     {
-      if (args.length () == 1)
+      for (int i = 0; i < args.length(); i++)
 	{
-	  std::string class_name = args(0).string_value ();
+	  std::string class_name = args(i).string_value ();
 
 	  if (! error_state)
 	    {
@@ -1366,8 +1367,11 @@
 
 		  if (! symbol_table::set_class_relationship (this_class_name,
 							      class_name))
-		    error ("superiorto: precedence already set for %s and %s",
-			   this_class_name.c_str (), class_name.c_str ());
+		    {
+		      error ("superiorto: precedence already set for %s and %s",
+			     this_class_name.c_str (), class_name.c_str ());
+		      break;
+		    }
 		}
 	      else
 		{
@@ -1376,10 +1380,11 @@
 		}
 	    }
 	  else
-	    error ("superiorto: expecting argument to be class name");
+	    {
+	      error ("superiorto: expecting argument to be class name");
+	      break;
+	    }
 	}
-      else
-	print_usage ();
     }
   else
     error ("superiorto: invalid call from outside class constructor");
@@ -1389,9 +1394,10 @@
 
 DEFUN (inferiorto, args, ,
   "-*- texinfo -*-\n\
-@deftypefn {Built-in Function} {} inferiorto (@var{class_name})\n\
+@deftypefn {Built-in Function} {} inferiorto (@var{class_name}, @dots{})\n\
 When called from a class constructor, mark the object currently\n\
 constructed as having a lower precedence than @var{class_name}.\n\
+More that one such class can be specified in a single call.\n\
 This function may only be called from a class constructor.\n\
 @end deftypefn")
 {
@@ -1401,9 +1407,9 @@
 
   if (fcn && fcn->is_class_constructor ())
     {
-      if (args.length () == 1)
+      for (int i = 0; i < args.length(); i++)
 	{
-	  std::string class_name = args(0).string_value ();
+	  std::string class_name = args(i).string_value ();
 
 	  if (! error_state)
 	    {
@@ -1416,17 +1422,24 @@
 
 		  if (! symbol_table::set_class_relationship (this_class_name,
 							      class_name))
-		    error ("inferiorto: precedence already set for %s and %s",
-			   this_class_name.c_str (), class_name.c_str ());
+		    {
+		      error ("inferiorto: precedence already set for %s and %s",
+			     this_class_name.c_str (), class_name.c_str ());
+		      break;
+		    }
 		}
 	      else
-		error ("inferiorto: cannot give user-defined class lower precedence than built-in class");
+		{
+		  error ("inferiorto: cannot give user-defined class lower precedence than built-in class");
+		  break;
+		}
 	    }
 	  else
-	    error ("inferiorto: expecting argument to be class name");
+	    {
+	      error ("inferiorto: expecting argument to be class name");
+	      break;
+	    }
 	}
-      else
-	print_usage ();
     }
   else
     error ("inferiorto: invalid call from outside class constructor");