Changeset 24beed in git

Timestamp:

Apr 1, 2005, 10:15:55 AM (18 years ago)

Author:

Michael Brickenstein <bricken@…>

Branches:

(u'spielwiese', '8d54773d6c9e2f1d2593a28bc68b7eeab54ed529')

Children:

4300012b46cc6dcea6df914e0a1e94805f271937

Parents:

1903b7f98b7252fcf5bf02cbecaa4d79d4d87556

Message:

*bricken: MCpower


git-svn-id: file:///usr/local/Singular/svn/trunk@7805 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.219 2005-02-23 16:24:10 bricken Exp $ */
+/* $Id: extra.cc,v 1.220 2005-04-01 08:15:55 bricken Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -58 +58 @@
 #include "weight.h"
 #include "fast_mult.h"
+#include "digitech.h"
 #ifdef HAVE_SPECTRUM
 #include "spectrum.h"
@@ -1785 +1786 @@
       return(FALSE);
     }
-      else
+    else
+     
+                if (strcmp(sys_cmd, "MCpower")==0)
+    {
+      ring r = currRing;
+      poly f = (poly)h->Data();
+      h=h->next;
+      int n=(int)h->Data();
+      res->rtyp=POLY_CMD ;
+      res->data=(void*) pFastPowerMC(f,n,r);
+      return(FALSE);
+    }
+    else
+     
+                if (strcmp(sys_cmd, "bit_subst")==0)
+    {
+      ring r = currRing;
+      poly outer = (poly)h->Data();
+      h=h->next;
+      poly inner=(poly)h->Data();
+      res->rtyp=POLY_CMD ;
+      res->data=(void*) uni_subst_bits(outer, inner,r);
+      return(FALSE);
+    }
 /*==================== Error =================*/
       Werror( "system(\"%s\",...) %s", sys_cmd, feNotImplemented );