Changeset 5d32fd in git for Singular/extra.cc

Timestamp:

Nov 24, 1999, 7:13:23 PM (24 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

4b72f66b46b8b566048c1a700efc18093f7225f0

Parents:

e514ee03b6532cbf576ae3600314e75f2b3c5a8f

Message:

* hannes: move spectrum-stuff to a library and extra.cc, step I


git-svn-id: file:///usr/local/Singular/svn/trunk@3917 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.119 1999-11-24 17:09:34 Singular Exp $ */
+/* $Id: extra.cc,v 1.120 1999-11-24 18:13:20 Singular Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -52 +52 @@
 #include "distrib.h"
 #include "prCopy.h"
+#ifdef HAVE_SPECTRUM
+#include "spectrum.h"
+#endif
+
 
 // Define to enable many more system commands
@@ -441 +445 @@
    else
    {
+/*==================== spectrum =============================*/
+   #ifdef HAVE_SPECTRUM
+   if(strcmp(sys_cmd,"spectrum") == 0)
+   {
+     if (h->Typ()!=POLY_CMD)
+     {
+       WerrorS("poly expected");
+       return TRUE;
+     }
+     if (h->next==NULL)
+       return spectrumProc(res,h);
+     if (h->next->Typ()!=INT_CMD)
+     {
+       WerrorS("poly,int expected");
+       return TRUE;
+     }
+     if(((int)h->next->Data())==1)
+       return spectrumfProc(res,h);
+     return spectrumProc(res,h);
+   }
+   else
+   {
+   #endif
 /*================= Extended system call ========================*/
 #ifdef HAVE_EXTENDED_SYSTEM