Changeset 50abaf2 in git for Singular/extra.cc

Timestamp:

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

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

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

File:

• Singular/extra.cc (modified) (3 diffs)

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;