[Pkg-octave-commit] [SCM] octave-symbolic branch, master, updated. a718b53403d9f164f8c2a3df521385a01d28a11b

[bensapp]

The following commit has been merged in the master branch:
commit a606515cc4b9e981cbab3ae804f767da5fb260f5
Author: bensapp <bensapp at 416fae20-06d0-4450-9b69-c6c34d4b5f03>
Date:   Wed Mar 27 01:05:30 2002 +0000

    *** empty log message ***
    
    
    git-svn-id: https://octave.svn.sourceforge.net/svnroot/octave/trunk/octave-forge/main/symbolic@235 416fae20-06d0-4450-9b69-c6c34d4b5f03

diff --git a/ov-relational.cc b/ov-relational.cc
new file mode 100644
index 0000000..50b08dc
--- /dev/null
+++ b/ov-relational.cc
@@ -0,0 +1,69 @@
+/*
+ 
+Copyright (C) 2002 Ben Sapp
+
+This program is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2 of the License, or
+(at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program; if not, write to the Free Software
+Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+
+*/
+
+#include <octave/config.h>
+#include "ov-relational.h"
+
+octave_relational::octave_relational (const GiNaC::ex & lhs, 
+				  const GiNaC::ex & rhs, 
+				  GiNaC::relational::operators op=GiNaC::relational::equal)
+{
+  rel = GiNaC::relational(lhs, rhs, op);
+}
+
+octave_relational::octave_relational (const octave_ex & lhs, 
+				  const octave_ex & rhs, 
+				  GiNaC::relational::operators op=GiNaC::relational::equal)
+{
+  rel = GiNaC::relational(lhs.ex_value (), rhs.ex_value ());
+}
+
+octave_relational::octave_relational (const octave_ex & lhs, 
+				  const GiNaC::ex & rhs, 
+				  GiNaC::relational::operators op=GiNaC::relational::equal)
+{
+  rel = GiNaC::relational(lhs.ex_value (), rhs, op);
+}
+
+octave_relational::octave_relational (const GiNaC::ex & lhs, 
+				  const octave_ex & rhs, 
+				  GiNaC::relational::operators op=GiNaC::relational::equal)
+{
+  rel = GiNaC::relational(lhs, rhs.ex_value (), op); 
+}
+
+void
+octave_relational::print (ostream& os, bool pr_as_read_syntax) const
+{
+  GiNaC::print_context pr(os);
+ 
+  rel.print(pr); 
+}
+
+
+DEFINE_OCTAVE_ALLOCATOR (octave_relational);
+
+DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_relational, "relational");
+
+/*
+;;; Local Variables: ***
+;;; mode: C++ ***
+;;; End: ***
+*/

-- 
octave-symbolic