Changeset 9bc0b8 in git for Singular/ipshell.cc

Timestamp:

Jan 18, 2005, 4:42:03 PM (19 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

98938cf102548c4f172c9c4cf0eaf2e960a689c8

Parents:

0f4db388e2f7d4a127c07f4aafae56d89ce7f4a3

Message:

*hannes; mpr_* ->kernel


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

File:

• Singular/ipshell.cc (modified) (5 diffs)

Singular/ipshell.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipshell.cc,v 1.93 2004-11-08 16:00:51 Singular Exp $ */
+/* $Id: ipshell.cc,v 1.94 2005-01-18 15:41:59 Singular Exp $ */
 /*
 * ABSTRACT:
@@ -206 +206 @@
     case QRING_CMD:
     case RING_CMD:
+                   if ((IDRING(h)==currRing) && (currRingHdl!=h))
+                     PrintS("(*)"); /* this is an alias to currRing */
 #ifdef RDEBUG
                    if (traceit &TRACE_SHOW_RINGS)
@@ -408 +410 @@
   if (changed)
   {
+    currRing=cr;
     currRingHdl=rFindHdl(cr,NULL,NULL);
+    if (currRingHdl==NULL) currRingHdl=sh;
   }
 
@@ -4288 +4292 @@
 idhdl rSimpleFindHdl(ring r, idhdl root, idhdl n=NULL)
 {
+  //idhdl next_best=NULL;
   idhdl h=root;
   while (h!=NULL)
@@ -4293 +4298 @@
     if (((IDTYP(h)==RING_CMD)||(IDTYP(h)==QRING_CMD))
     && (h!=n)
-    && (h->data.uring==r)
+    && (IDRING(h)==r)
     )
+    {
+   //   if (IDLEV(h)==myynest)
+   //     return h;
+   //   if ((IDLEV(h)==0) || (next_best==NULL))
+   //     next_best=h;
+   //   else if (IDLEV(next_best)<IDLEV(h))
+   //     next_best=h;
       return h;
+    }
     h=IDNEXT(h);
   }
+  //return next_best;
   return NULL;
 }