Changeset b7e7b6 in git


Ignore:
Timestamp:
Nov 12, 1998, 2:06:12 PM (26 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'c7af8613769b29c741d6c338945669719f1fc4f8')
Children:
2fd320abe8b11d78bfff30b9030f09777bc383e4
Parents:
91e2e33c189055d4e968189857f0ddf082bcd407
Message:
*mschulze/hannes: added pcv routines


git-svn-id: file:///usr/local/Singular/svn/trunk@2668 2c84dea3-7e68-4137-9b89-c4e89433aadc
Location:
Singular
Files:
2 added
1 edited

Legend:

Unmodified
Added
Removed
  • Singular/extra.cc

    r91e2e3 rb7e7b6  
    22*  Computer Algebra System SINGULAR      *
    33*****************************************/
    4 /* $Id: extra.cc,v 1.73 1998-11-09 15:43:01 obachman Exp $ */
     4/* $Id: extra.cc,v 1.74 1998-11-12 13:06:11 Singular Exp $ */
    55/*
    66* ABSTRACT: general interface to internals of Singular ("system" command)
     
    4848#include "kstd1.h"
    4949#include "syz.h"
    50 #include "lamat.h"
    5150
    5251// Define to enable many more system commands
     
    7069#include <dlfcn.h>
    7170#endif /* HAVE_DYNAMIC_LOADING */
     71
     72#ifdef HAVE_PCV
     73#include "pcv.h"
     74#endif
    7275
    7376// see clapsing.cc for a description of the `FACTORY_*' options
     
    396399    char *sys_cmd=(char *)(h->Data());
    397400    h=h->next;
    398 /*==================== latest ==================================*/
    399     if(strcmp(sys_cmd,"la")==0)
    400     {
    401       if (h!=NULL)
    402       {
    403         int i0=-1, i1=-1;
    404         leftv hh=h->next;
    405         if ((hh!=NULL)&&(hh->Typ()==INT_CMD))
    406         {
    407           i0=(int)hh->Data();
    408           if ((hh->next!=NULL) &&(hh->next->Typ()==INT_CMD))
    409             i1=(int)hh->next->Data();
    410         }
    411         if(h->Typ()==IDEAL_CMD)
    412         {
    413         // "la",<ideal>[,<int d0>[,<int d1>]]:
    414         // convert ideal from deg d0 to deg d1 to coeff-vectors
    415           if (i1==(-1))
    416           {
    417             i1=1024;
    418             if (i0==(-1)) i0=0;
    419           }
    420           ideal I=(ideal)(h->Data());
    421           laSet();
    422           ideal m=laI2Mo(I,i0,i1);
    423           laReset();
    424           res->rtyp=MODUL_CMD;
    425           res->data=(void *)m;
    426           return FALSE;
    427         }
    428         else
    429         if(h->Typ()==MODUL_CMD)
    430         {
    431         // "la",<module>[,<int c0>[,<int c1>]]:
    432         // convert module from comp c0 to comp c1 to ideal
    433           if (i1==(-1))
    434           {
    435             i1=32767;
    436             if (i0==(-1)) i0=1;
    437           }
    438           ideal M=(ideal)(h->Data());
    439           laSet();
    440           ideal I=laMo2I(M,i0,i1);
    441           laReset();
    442           res->rtyp=IDEAL_CMD;
    443           res->data=(void *)I;
    444           return FALSE;
    445         }
    446       }
    447       WerrorS("<ideal/module>[,<int>[,<int>]] expected");
    448       return TRUE;
    449     }
    450     else
     401/*==================== pcv ==================================*/
     402#ifdef HAVE_PCV
     403    if(strcmp(sys_cmd,"pcvConv")==0)
     404    {
     405      return iiPcvConv(res, h);
     406    }
     407    else if(strcmp(sys_cmd,"pcvDim")==0)
     408    {
     409      return iiPcvDim(res, h);
     410    }
     411    else if(strcmp(sys_cmd,"pcvBasis")==0)
     412    {
     413      return iiPcvBasis(res, h);
     414    }
     415    else if(strcmp(sys_cmd,"pcvOrd")==0)
     416    {
     417      return iiPcvOrd(res,h);
     418    }
     419    else
     420#endif
    451421/*==================== naIdeal ==================================*/
    452422    if(strcmp(sys_cmd,"naIdeal")==0)
Note: See TracChangeset for help on using the changeset viewer.