Changeset c3aa45 in git

Timestamp:

Apr 13, 2005, 5:01:53 PM (19 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'd1b01e9d51ade4b46b745d3bada5c5f3696be3a8')

Children:

a5d9313fca387991af1e54dedb6e74ba1c1c64ba

Parents:

8479a08a19d59224f0f20f0b7804e2af4b906631

Message:

*hannes: bivar stuff


git-svn-id: file:///usr/local/Singular/svn/trunk@7814 2c84dea3-7e68-4137-9b89-c4e89433aadc

Location:

factory

Files:

• variable.cc (modified) (2 diffs)
• variable.h (modified) (3 diffs)

factory/variable.cc

@@ -1 +1 @@
 /* emacs edit mode for this file is -*- C++ -*- */
-/* $Id: variable.cc,v 1.4 1997-06-19 12:21:52 schmidt Exp $ */
+/* $Id: variable.cc,v 1.5 2005-04-13 15:01:53 Singular Exp $ */
 
 #include <config.h>
@@ -246 +246 @@
     return default_name_ext;
 }
+
+int ExtensionLevel()
+{
+  if( var_names_ext == 0)
+    return 0;
+  return strlen( var_names_ext )-1;
+}
+
+void Reduce( bool on)
+{
+  int i;
+  for (i=ExtensionLevel(); i>0;i--)
+  {
+    Variable l(-i);
+    setReduce(l,on);
+  }
+}

factory/variable.h

@@ -1 +1 @@
 /* emacs edit mode for this file is -*- C++ -*- */
-/* $Id: variable.h,v 1.3 1997-06-19 12:21:49 schmidt Exp $ */
+/* $Id: variable.h,v 1.4 2005-04-13 15:01:53 Singular Exp $ */
 
 #ifndef INCL_VARIABLE_H
@@ -65 +65 @@
     friend ostream & operator << ( ostream & os, const Variable & v );
 #endif /* NOSTREAMIO */
+    friend void swap_levels();
     friend Variable rootOf( const CanonicalForm &, char name = '@' );
 };
@@ -76 +77 @@
 char getDefaultExtName();
 
+int ExtensionLevel();
+
 /*ENDPUBLIC*/