Changeset 50abaf2 in git

Timestamp:

May 18, 1998, 6:12:17 PM (25 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

556e5703ba87095d08ccdadba2c83b974f3104fd

Parents:

0dd3a92e88c6b26942b5b18ea48f03bddbe0b59c

Message:

1998-05-18  Olaf Bachmann  <obachman@mathematik.uni-kl.de>

	* extra.cc (jjSYSTEM): changed "whoami" --> "Singular", added
	"nblocks"


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

Files:

• Singular/ChangeLog (modified) (1 diff)
• Singular/extra.cc (modified) (3 diffs)
• Singular/ring.h (modified) (2 diffs)
• doc/reference.doc (modified) (previous)
• doc/types.doc (modified) (previous)

Singular/ChangeLog

@@ +1 @@
+1998-05-18  Olaf Bachmann  <obachman@mathematik.uni-kl.de>
+
+        * extra.cc (jjSYSTEM): changed "whoami" --> "Singular", added
+        "nblocks" 
+
 Sat May 16 14:14:20 MET DST 1998 hannes
 * avoid multiple objects of the same name (fix keepring)

Singular/extra.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: extra.cc,v 1.47 1998-05-14 13:04:12 Singular Exp $ */
+/* $Id: extra.cc,v 1.48 1998-05-18 16:12:14 obachman Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -99 +99 @@
 // ONLY documented system calls go here
 // Undocumented system calls go down into #ifdef HAVE_EXTENDED_SYSTEM
+/*==================== nblocks ==================================*/
+    if (strcmp((char*)(h->Data()), "nblocks") == 0)
+    {
+      ring r;
+      if (h->next == NULL)
+      {
+        if (currRingHdl != NULL)
+        {
+          r = IDRING(currRingHdl);
+        }
+        else
+        {
+          WerrorS("no ring active");
+          return TRUE;
+        }
+      }
+      else
+      {
+        if (h->next->Typ() != RING_CMD)
+        {
+          WerrorS("ring expected");
+          return TRUE;
+        }
+        r = (ring) h->next->Data();
+      }
+      res->rtyp = INT_CMD;
+      res->data = (void*) rBlocks(r) - 1;
+      return FALSE;
+    }
 /*==================== version ==================================*/
     if(strcmp((char*)(h->Data()),"version")==0)
@@ -245 +274 @@
     #endif
     #endif
-/*==================== whoami ==================================*/
-    if (strcmp((char*)(h->data), "whoami") == 0)
+/*==================== Singular ==================================*/
+    if (strcmp((char*)(h->data), "Singular") == 0)
     {
       res->rtyp=STRING_CMD;

Singular/ring.h

@@ -7 +7 @@
 * ABSTRACT - the interpreter related ring operations
 */
-/* $Id: ring.h,v 1.12 1998-04-03 17:38:42 Singular Exp $ */
+/* $Id: ring.h,v 1.13 1998-05-18 16:12:14 obachman Exp $ */
 
 /* includes */
@@ -41 +41 @@
 int    rSum(ring r1, ring r2, ring &sum);
 void   rComplete(ring r);
+int    rBlocks(ring r);