Changeset 566fcb in git

Timestamp:

Aug 26, 1998, 7:09:10 PM (26 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

9c9fb9d01c2c2a1581d22ee36200b77b2e7bd41c

Parents:

ef2c6ce296a744da8b0012dbcc25e421ffdb812f

Message:

*** empty log message ***


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

File:

• Singular/subexpr.cc (modified) (16 diffs)

Singular/subexpr.cc

@@ -94 +94 @@
     if ((store!=NULL)&&(store!=this))
       store->CleanUp();
-    
+
     switch (t /*=Typ()*/)
       {
@@ -128 +128 @@
         case RESOLUTION_CMD:
           syPrint((syStrategy)d);
-          break;  
+          break;
         case STRING_CMD:
           ::Print("%-*.*s%s",spaces,spaces," ",(char *)d);
@@ -138 +138 @@
          {
            procinfov pi=(procinfov)d;
-           ::Print("%-*.*s// libname  : %s\n",spaces,spaces," ",
-                   piProcinfo(pi, "libname"));
-           ::Print("%-*.*s// procname : %s\n",spaces,spaces," ",
-                   piProcinfo(pi, "procname"));
-           ::Print("%-*.*s// type     : %s",spaces,spaces," ",
-                   piProcinfo(pi, "type"));
-           //      ::Print("%-*.*s// ref      : %s",spaces,spaces," ",
-           //   piProcinfo(pi, "ref"));
-           break;
+           ::Print("%-*.*s// libname  : %s\n",spaces,spaces," ",
+                   piProcinfo(pi, "libname"));
+           ::Print("%-*.*s// procname : %s\n",spaces,spaces," ",
+                   piProcinfo(pi, "procname"));
+           ::Print("%-*.*s// type     : %s",spaces,spaces," ",
+                   piProcinfo(pi, "type"));
+           //           ::Print("%-*.*s// ref      : %s",spaces,spaces," ",
+           //   piProcinfo(pi, "ref"));
+           break;
          }
        case POINTER_CMD:
@@ -213 +213 @@
   {
     PrintLn();
-  }  
+  }
 #ifdef SIQ
   if (rtyp!=COMMAND)
@@ -279 +279 @@
         break;
       case PROC_CMD:
-        piKill((procinfov)data);
-        break;
+        piKill((procinfov)data);
+        break;
       case LINK_CMD:
         slKill((si_link)data);
@@ -314 +314 @@
 #ifdef HAVE_RTIMER
         case VRTIMER:
-#endif          
+#endif
       case VOICE:
       case VMAXDEG:
@@ -328 +328 @@
       default:
         ::Print("CleanUp: unknown type %d\n",rtyp);  /* DEBUG */
-#endif          
+#endif
     } /* end switch: (rtyp) */
     data=NULL;
@@ -350 +350 @@
 #ifdef HAVE_RTIMER
       case VRTIMER:
-#endif          
+#endif
       case VOICE:
       case VMAXDEG:
@@ -516 +516 @@
           r->ref++;
           data=d;
-        }  
+        }
         else
         {
           WerrorS("invalid ring description");
-        }  
+        }
         break;
       }
@@ -582 +582 @@
   if ((a!=NULL) && (*a!=NULL))
     return (*a)->Copy();
-  return NULL;  
+  return NULL;
 }
 
@@ -665 +665 @@
       {
         return rString((ring)d);
-      }  
+      }
       default:
         #ifdef TEST
@@ -695 +695 @@
 #ifdef HAVE_RTIMER
       case VRTIMER:
-#endif          
+#endif
       case VOICE:
       case VMAXDEG:
@@ -703 +703 @@
         return INT_CMD;
       case LIB_CMD:
-        return STRING_CMD;  
+        return STRING_CMD;
       case VMINPOLY:
         return NUMBER_CMD;
@@ -824 +824 @@
                          if(h==NULL) return (void *)sNoName;
                          return IDSTRING(h);
-                       }  
+                       }
       case IDHDL:
         return IDDATA((idhdl)data);
@@ -913 +913 @@
         if (!errorreported)
           Werror("wrong range[%d,%d] in intmat(%dx%d)",e->start,e->next->start,
-                                                     MATROWS((matrix)d),MATCOLS((matrix)d));
+                                         MATROWS((matrix)d),MATCOLS((matrix)d));
       }
       else
@@ -1171 +1171 @@
     {
       BOOLEAN ok=FALSE;
-      poly p = ((currRingHdl!=NULL)&&(!noringvars)&&(IDLEV(currRingHdl)!=myynest))
-               /* ring required */  /* not in decl */    /* already in case 4/6 */
+      poly p = ((currRingHdl!=NULL)&&(!noringvars)
+                /* ring required */  /* not in decl */
+                &&(IDLEV(currRingHdl)!=myynest))
+                /* already in case 4/6 */
                      ? pmInit(id,ok) : (poly)NULL;
       if (ok)