Changeset 24beed in git


Ignore:
Timestamp:
Apr 1, 2005, 10:15:55 AM (19 years ago)
Author:
Michael Brickenstein <bricken@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '0bc2210f8055033868008a3836878db65ec6f89e')
Children:
4300012b46cc6dcea6df914e0a1e94805f271937
Parents:
1903b7f98b7252fcf5bf02cbecaa4d79d4d87556
Message:
*bricken: MCpower


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

Legend:

Unmodified
Added
Removed
  • Singular/extra.cc

    r1903b7 r24beed  
    22*  Computer Algebra System SINGULAR      *
    33*****************************************/
    4 /* $Id: extra.cc,v 1.219 2005-02-23 16:24:10 bricken Exp $ */
     4/* $Id: extra.cc,v 1.220 2005-04-01 08:15:55 bricken Exp $ */
    55/*
    66* ABSTRACT: general interface to internals of Singular ("system" command)
     
    5858#include "weight.h"
    5959#include "fast_mult.h"
     60#include "digitech.h"
    6061#ifdef HAVE_SPECTRUM
    6162#include "spectrum.h"
     
    17851786      return(FALSE);
    17861787    }
    1787       else
     1788    else
     1789     
     1790                if (strcmp(sys_cmd, "MCpower")==0)
     1791    {
     1792      ring r = currRing;
     1793      poly f = (poly)h->Data();
     1794      h=h->next;
     1795      int n=(int)h->Data();
     1796      res->rtyp=POLY_CMD ;
     1797      res->data=(void*) pFastPowerMC(f,n,r);
     1798      return(FALSE);
     1799    }
     1800    else
     1801     
     1802                if (strcmp(sys_cmd, "bit_subst")==0)
     1803    {
     1804      ring r = currRing;
     1805      poly outer = (poly)h->Data();
     1806      h=h->next;
     1807      poly inner=(poly)h->Data();
     1808      res->rtyp=POLY_CMD ;
     1809      res->data=(void*) uni_subst_bits(outer, inner,r);
     1810      return(FALSE);
     1811    }
    17881812/*==================== Error =================*/
    17891813      Werror( "system(\"%s\",...) %s", sys_cmd, feNotImplemented );
Note: See TracChangeset for help on using the changeset viewer.