Changeset 2dbaba4 in git

Timestamp:

May 5, 2009, 11:54:38 AM (14 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

def568e9169e67d58842356d8b9718f9a255b706

Parents:

7bd06876c68417663814d23718236d06ed4f91b3

Message:

*hannes: ring dep. attribs (trac 134)


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

Location:

Singular

Files:

• attrib.cc (modified) (6 diffs)
• attrib.h (modified) (3 diffs)
• ipid.cc (modified) (2 diffs)
• ipshell.cc (modified) (3 diffs)
• subexpr.cc (modified) (2 diffs)

Singular/attrib.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: attrib.cc,v 1.33 2009-03-18 16:35:54 Singular Exp $ */
+/* $Id: attrib.cc,v 1.34 2009-05-05 09:54:38 Singular Exp $ */
 
 /*
@@ -194 +194 @@
 }
 
-void sattr::kill()
+void sattr::kill(const ring r)
 {
   omFree((ADDRESS)name);
@@ -206 +206 @@
   case MODUL_CMD:
   case MATRIX_CMD:
-    idDelete((ideal *)&data);
+    id_Delete((ideal *)&data,r);
     break;
   case POLY_CMD:
   case VECTOR_CMD:
-    pDelete((poly *)&data);
+    p_Delete((poly *)&data,r);
     break;
   case INT_CMD:
@@ -226 +226 @@
 }
 
-void sattr::killAll()
+void sattr::killAll(const ring r)
 {
   attr temp = this,temp1;
@@ -233 +233 @@
   {
     temp1 = temp->next;
-    temp->kill();
+    temp->kill(r);
     temp = temp1;
   }
 }
 
-void atKill(idhdl root,const char * name)
+void at_Kill(idhdl root,const char * name, const ring r)
 {
   attr temp = root->attribute->get(name);
@@ -254 +254 @@
       temp1->next = N;
     }
-    temp->kill();
-  }
-}
-
-void atKillAll(idhdl root)
-{
-  root->attribute->killAll();
+    temp->kill(r);
+  }
+}
+
+void at_KillAll(idhdl root, const ring r)
+{
+  root->attribute->killAll(r);
   root->attribute = NULL;
 }

Singular/attrib.h

@@ -4 +4 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: attrib.h,v 1.8 2008-03-19 17:44:29 Singular Exp $ */
+/* $Id: attrib.h,v 1.9 2009-05-05 09:54:37 Singular Exp $ */
 /*
 * ABSTRACT: attributes to leftv and idhdl
@@ -28 +28 @@
     attr set(const char * s, void * data, int t);
     attr get(const char * s);
-    void kill();
-    void killAll();
+    void kill(const ring r);
+    void killAll(const ring r);
 };
 
@@ -38 +38 @@
 void atSet(idhdl root,const char * name,void * data,int typ);
 void atSet(leftv root,const char * name,void * data,int typ);
-void atKillAll(idhdl root);
-void atKill(idhdl root,const char * name);
+void at_KillAll(idhdl root,const ring r);
+#define atKillAll(H) at_KillAll(H,currRing)
+void at_Kill(idhdl root,const char * name,const ring r);
+#define atKill(H,A) at_Kill(H,A,currRing)
 
 BOOLEAN atATTRIB1(leftv res,leftv a);

Singular/ipid.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipid.cc,v 1.85 2009-05-04 15:06:15 Singular Exp $ */
+/* $Id: ipid.cc,v 1.86 2009-05-05 09:54:38 Singular Exp $ */
 
 /*
@@ -539 +539 @@
   if (h->attribute!=NULL)
   {
-    atKillAll(h);
+    at_KillAll(h,r);
     //h->attribute=NULL;
   }

Singular/ipshell.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipshell.cc,v 1.204 2009-05-04 15:06:16 Singular Exp $ */
+/* $Id: ipshell.cc,v 1.205 2009-05-05 09:54:37 Singular Exp $ */
 /*
 * ABSTRACT:
@@ -5060 +5060 @@
     if (traceit &TRACE_SHOW_RINGS) Print("kill ring %lx\n",(long)r);
 #endif
-    if (r==currRing)
-    {
-      if (r->qideal!=NULL)
-      {
-        currQuotient=NULL;
-      }
-      if (ppNoether!=NULL) pDelete(&ppNoether);
-      if (sLastPrinted.RingDependend())
-      {
-        sLastPrinted.CleanUp();
-      }
-      if ((myynest>0) && (iiRETURNEXPR[myynest].RingDependend()))
-      {
-        WerrorS("return value depends on local ring variable (export missing ?)");
-        iiRETURNEXPR[myynest].CleanUp();
-      }
-      currRing=NULL;
-      currRingHdl=NULL;
-    }
     if (r->qideal!=NULL)
     {
@@ -5117 +5098 @@
     {
       killhdl2(r->idroot,&(r->idroot),r);
+    }
+    if (r==currRing)
+    {
+      // all dependend stuff is done, clean global vars:
+      if (r->qideal!=NULL)
+      {
+        currQuotient=NULL;
+      }
+      if (ppNoether!=NULL) pDelete(&ppNoether);
+      if (sLastPrinted.RingDependend())
+      {
+        sLastPrinted.CleanUp();
+      }
+      if ((myynest>0) && (iiRETURNEXPR[myynest].RingDependend()))
+      {
+        WerrorS("return value depends on local ring variable (export missing ?)");
+        iiRETURNEXPR[myynest].CleanUp();
+      }
+      currRing=NULL;
+      currRingHdl=NULL;
     }
 

Singular/subexpr.cc

@@ -5 +5 @@
 * ABSTRACT: handling of leftv
 */
-/* $Id: subexpr.cc,v 1.103 2009-02-20 18:39:21 Singular Exp $ */
+/* $Id: subexpr.cc,v 1.104 2009-05-05 09:54:38 Singular Exp $ */
 
 #include <stdlib.h>
@@ -406 +406 @@
         {
           t=attribute->next;
-          attribute->kill();
+          attribute->kill(currRing);
           attribute=t;
         }