Changeset 4ad0d6 in git for Singular/ipid.cc

Timestamp:

Jul 21, 1998, 7:18:19 PM (26 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

0d09b74c44f80a4e38a69d9155eb393b81538ee7

Parents:

14236163c0be8d199836dd2bdc6edc8b993636d0

Message:

* hannes: fixes for TCL (qring,...)


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

File:

• Singular/ipid.cc (modified) (6 diffs)

Singular/ipid.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipid.cc,v 1.12 1998-06-13 12:44:40 krueger Exp $ */
+/* $Id: ipid.cc,v 1.13 1998-07-21 17:18:19 Singular Exp $ */
 
 /*
@@ -123 +123 @@
       case RESOLUTION_CMD:
         len=sizeof(ssyStrategy);
-        break;   
+        break;
+      case PROC_CMD:
+        len=sizeof(procinfo);
+        break;
     //other types: without init (int,script,poly,def,package)
     }
@@ -131 +134 @@
     }
   }
-  if(t == PROC_CMD)
-  {
-    IDPROC(h) = (procinfo *)Alloc(sizeof(procinfo));
-    memset(IDPROC(h),0,sizeof(*IDPROC(h)));
+  // additional settings:--------------------------------------
+  if (t == QRING_CMD)
+  {
+    IDRING(h)=rCopy(currRing);
+    /* QRING_CMD is ring dep => currRing !=NULL */
+  }
+  else if (t == PROC_CMD)
+  {
     IDPROC(h)->language=LANG_NONE;
   }
+  // --------------------------------------------------------
   return  h;
 }
@@ -570 +578 @@
     FreeL((ADDRESS)pi->libname);
     FreeL((ADDRESS)pi->procname);
-    if( pi->language == LANG_SINGULAR) { 
+    if( pi->language == LANG_SINGULAR)
+    {
       FreeL((ADDRESS)pi->data.s.body);
     }
-    if( pi->language == LANG_C) {
+    if( pi->language == LANG_C)
+    {
     }
     memset((void *) pi, 0, sizeof(procinfo));
@@ -600 +610 @@
   namehdl ns = (namerec *)Alloc0(sizeof(namerec));
   ns->next   = this;
-  if(this==NULL && !init) {
+  if(this==NULL && !init)
+  {
     printf("PUSH: this is NULL and init not set.\n");
     init=TRUE;
   }
-  if(init) {
+  if(init)
+  {
     ns->pack   = (ip_package *)Alloc0(sizeof(ip_package));
     ns->isroot = TRUE;
     ns->lev    = 1;
-  } else {
+  }
+  elses
+  {
     ns->pack   = pack;
     ns->lev    = this->lev+1;
@@ -618 +632 @@
   if(ns->isroot) ns->root=ns; else ns->root = this->root;
   namespaceroot = ns;
-  if(init && ns->isroot) {
-    idhdl pl = enterid( mstrdup("toplevel"),0, PACKAGE_CMD, 
+  if(init && ns->isroot)
+  {
+    idhdl pl = enterid( mstrdup("toplevel"),0, PACKAGE_CMD,
                       &NSROOT(namespaceroot), TRUE );
-    
   }
   return(namespaceroot);