Changeset 4a51c1 in git


Ignore:
Timestamp:
Jul 29, 2014, 1:08:38 PM (10 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '8c6038b526213d378981739e978a9f7b485dab94')
Children:
9c11211fa09366479bbae388a1da45574bcffa98
Parents:
bf4bb581d0e7ab485afcc8791f9242c5b1493b8c
git-author:
Hans Schoenemann <hannes@mathematik.uni-kl.de>2014-07-29 13:08:38+02:00
git-committer:
Hans Schoenemann <hannes@mathematik.uni-kl.de>2014-07-29 13:09:20+02:00
Message:
changes for SINGULAR_4_1 (cnumber, cmatrix)
Files:
8 edited

Legend:

Unmodified
Added
Removed
  • Singular/gentable.cc

    rbf4bb5 r4a51c1  
    126126const char * Tok2Cmdname(int tok)
    127127{
    128   int i = 0;
    129128  if (tok < 0)
    130129  {
     
    141140  //if (tok==PRINT_EXPR) return "print_expr";
    142141  if (tok==IDHDL) return "identifier";
    143   if (tok==CRING_CMD) return "ring(cf)";
     142  if (tok==CRING_CMD) return "(c)ring";
    144143  // we do not blackbox objects during table generation:
    145144  //if (tok>MAX_TOK) return getBlackboxName(tok);
     145  int i = 0;
    146146  while (cmds[i].tokval!=0)
    147147  {
     
    152152    i++;
    153153  }
     154  i=0;// try again for old/alias names:
     155  while (cmds[i].tokval!=0)
     156  {
     157    if (cmds[i].tokval == tok)
     158    {
     159      return cmds[i].name;
     160    }
     161    i++;
     162  }
     163  #if 0
     164  char *s=(char*)malloc(10);
     165  sprintf(s,"(%d)",tok);
     166  return s;
     167  #else
    154168  return cmds[0].name;
     169  #endif
    155170}
    156171/*---------------------------------------------------------------------*/
  • Singular/iparith.cc

    rbf4bb5 r4a51c1  
    7070#include <Singular/misc_ip.h>
    7171#include <Singular/linearAlgebra_ip.h>
     72
     73#ifdef SINGULAR_4_1
     74#include <Singular/number2.h>
     75#endif
    7276
    7377#  include <Singular/fglm.h>
     
    801805  if (res->data==NULL)
    802806  {
    803     WerrorS("bigintmat size not compatible");
     807    WerrorS("bigintmat/cmatrix not compatible");
    804808    return TRUE;
    805809  }
     
    894898  if (res->data==NULL)
    895899  {
    896     WerrorS("bigintmat size not compatible");
     900    WerrorS("bigintmat/cmatrix not compatible");
    897901    return TRUE;
    898902  }
     
    10131017  if (res->data==NULL)
    10141018  {
    1015     WerrorS("bigintmat size not compatible");
     1019    WerrorS("bigintmat/cmatrix not compatible");
    10161020    return TRUE;
    10171021  }
     
    85098513const char * Tok2Cmdname(int tok)
    85108514{
    8511   int i = 0;
    85128515  if (tok <= 0)
    85138516  {
     
    85248527  //if (tok==PRINT_EXPR) return "print_expr";
    85258528  if (tok==IDHDL) return "identifier";
    8526   if (tok==CRING_CMD) return "ring(cf)";
     8529  if (tok==CRING_CMD) return "(c)ring";
    85278530  if (tok>MAX_TOK) return getBlackboxName(tok);
     8531  int i;
    85288532  for(i=0; i<sArithBase.nCmdUsed; i++)
    85298533    //while (sArithBase.sCmds[i].tokval!=0)
     
    85318535    if ((sArithBase.sCmds[i].tokval == tok)&&
    85328536        (sArithBase.sCmds[i].alias==0))
     8537    {
     8538      return sArithBase.sCmds[i].name;
     8539    }
     8540  }
     8541  // try gain for alias/old names:
     8542  for(i=0; i<sArithBase.nCmdUsed; i++)
     8543  {
     8544    if (sArithBase.sCmds[i].tokval == tok)
    85338545    {
    85348546      return sArithBase.sCmds[i].name;
  • Singular/ipassign.cc

    rbf4bb5 r4a51c1  
    5757#include "blackbox.h"
    5858
     59#ifdef SINGULAR_4_1
     60#include <Singular/number2.h>
     61#endif
    5962
    6063
     
    403406  return FALSE;
    404407}
     408#ifdef SINGULAR_4_1
     409static BOOLEAN jiA_NUMBER2(leftv res, leftv a, Subexpr e)
     410{
     411  number2 n=(number2)a->CopyD(CNUMBER_CMD);
     412  if (e==NULL)
     413  {
     414    if (res->data!=NULL)
     415    {
     416      number2 nn=(number2)res->data;
     417      n2Delete(nn);
     418    }
     419    res->data=(void *)n;
     420    jiAssignAttr(res,a);
     421  }
     422  else
     423  {
     424    int i=e->start-1;
     425    if (i<0)
     426    {
     427      Werror("index[%d] must be positive",i+1);
     428      return TRUE;
     429    }
     430    bigintmat *iv=(bigintmat *)res->data;
     431    if (e->next==NULL)
     432    {
     433      WerrorS("only one index given");
     434      return TRUE;
     435    }
     436    else
     437    {
     438      int c=e->next->start;
     439      if ((i>=iv->rows())||(c<1)||(c>iv->cols()))
     440      {
     441        Werror("wrong range [%d,%d] in cmatrix %s(%d,%d)",i+1,c,res->Name(),iv->rows(),iv->cols());
     442        return TRUE;
     443      }
     444      else if (iv->basecoeffs()==n->cf)
     445      {
     446        n_Delete((number *)&BIMATELEM(*iv,i+1,c),iv->basecoeffs());
     447        BIMATELEM(*iv,i+1,c) = n->n;
     448      }
     449      else
     450      {
     451        WerrorS("different base");
     452        return TRUE;
     453      }
     454    }
     455  }
     456  jiAssignAttr(res,a);
     457  return FALSE;
     458}
     459#endif
    405460static BOOLEAN jiA_BIGINT(leftv res, leftv a, Subexpr e)
    406461{
  • Singular/ipid.cc

    rbf4bb5 r4a51c1  
    3838#include <Singular/blackbox.h>
    3939
     40#ifdef SINGULAR_4_1
     41#include <Singular/number2.h>
     42#endif
    4043#ifdef HAVE_DYNAMIC_LOADING
    4144#include <polys/mod_raw.h>
     
    133136  {
    134137    //the type with init routines:
     138#ifdef SINGULAR_4_1
     139    case CNUMBER_CMD:
     140      return (void*)n2Init(0,NULL);
     141    case CMATRIX_CMD:
     142#endif
     143    case BIGINTMAT_CMD:
     144      return (void *)new bigintmat();
    135145    case INTVEC_CMD:
    136146    case INTMAT_CMD:
    137147      return (void *)new intvec();
    138     case BIGINTMAT_CMD:
    139       return (void *)new bigintmat();
    140148    case NUMBER_CMD:
    141149      return (void *) nInit(0);
  • Singular/ipshell.cc

    rbf4bb5 r4a51c1  
    7474#endif
    7575
     76#ifdef SINGULAR_4_1
     77#include <Singular/number2.h>
     78#include <libpolys/coeffs/bigintmat.h>
     79#endif
    7680leftv iiCurrArgs=NULL;
    7781idhdl iiCurrProc=NULL;
     
    221225#endif
    222226                   break;
     227#ifdef SINGULAR_4_1
     228    case CNUMBER_CMD:
     229                   {  number2 n=(number2)IDDATA(h);
     230                      Print(" (%s)",n->cf->cfCoeffName(n->cf));
     231                      break;
     232                   }
     233    case CMATRIX_CMD:
     234                   {  bigintmat *b=(bigintmat*)IDDATA(h);
     235                      Print(" %d x %d (%s)",
     236                        b->rows(),b->cols(),
     237                        b->basecoeffs()->cfCoeffName(b->basecoeffs()));
     238                      break;
     239                   }
     240#endif
    223241    /*default:     break;*/
    224242  }
     
    429447          h=IDRING(h)->idroot;
    430448        }
    431         else if((IDTYP(h)==PACKAGE_CMD) || (IDTYP(h)==POINTER_CMD))
     449        else if(IDTYP(h)==PACKAGE_CMD)
    432450        {
    433           //Print("list_cmd:package or pointer\n");
     451          //Print("list_cmd:package\n");
    434452          all=TRUE;typ=PROC_CMD;fullname=TRUE;really_all=TRUE;
    435453          h=IDPACKAGE(h)->idroot;
  • Singular/subexpr.cc

    rbf4bb5 r4a51c1  
    112112        case CRING_CMD:
    113113          crPrint((coeffs)d);
     114          break;
     115        case CNUMBER_CMD:
     116          n2Print((number2)d);
    114117          break;
    115118        case CMATRIX_CMD: // like BIGINTMAT
     
    202205           break;
    203206         }
    204        case POINTER_CMD:
    205          { package pack = (package)d;
    206          PrintNSpaces(spaces);
    207          PrintS("// PointerTest\n");
    208          PrintNSpaces(spaces);
    209          ::Print("// %s\n",IDID(pack->idroot));
    210          //::Print(((char *)(pack->idroot)->data), spaces);
    211          break;
    212          }
    213207       case LINK_CMD:
    214208          {
     
    290284    {
    291285      if((t/*Typ()*/!=LINK_CMD)
    292       && (t/*Typ()*/!=POINTER_CMD)
    293286      && (t/*Typ()*/!=PACKAGE_CMD)
    294287      && (t/*Typ()*/!=DEF_CMD)
     
    326319    switch (rtyp)
    327320    {
    328       case POINTER_CMD:
    329321      case PACKAGE_CMD:
    330322      case IDHDL:
     
    399391        return (void*)d;
    400392      }
     393    case CNUMBER_CMD:
     394      return (void*)n2Copy((number2)d);
    401395    case CMATRIX_CMD: // like BIGINTMAT
    402396#endif
     
    413407    case STRING_CMD:
    414408        return (void *)omStrDup((char *)d);
    415     case POINTER_CMD:
    416       return d;
    417409    case PACKAGE_CMD:
    418410      return  (void *)paCopy((package) d);
     
    474466      nKillChar((coeffs)d);
    475467      break;
     468    case CNUMBER_CMD:
     469      {
     470        number2 n=(number2)d;
     471        n2Delete(n);
     472        break;
     473      }
    476474    case CMATRIX_CMD: //like BIGINTMAT
    477475#endif
     
    507505      omFree(d);
    508506      break;
    509     //case POINTER_CMD:
    510     //  return d;
    511507    //case PACKAGE_CMD:
    512508    //  return  (void *)paCopy((package) d);
     
    575571    case DEF_CMD:
    576572    case ALIAS_CMD:
    577     case POINTER_CMD:
    578573    case PACKAGE_CMD:
    579574    case IDHDL:
     
    11321127      case IDHDL:
    11331128        return IDDATA((idhdl)data);
    1134       case POINTER_CMD:
    1135         return IDDATA((idhdl)data);
    11361129      case COMMAND:
    11371130        //return NULL;
  • Singular/table.h

    rbf4bb5 r4a51c1  
    2626,{D(jjUMINUS_BI),   '-',            BIGINT_CMD,     BIGINT_CMD    , ALLOW_PLURAL |ALLOW_RING}
    2727,{D(jjUMINUS_N),   '-',             NUMBER_CMD,     NUMBER_CMD    , ALLOW_PLURAL |ALLOW_RING}
     28#ifdef SINGULAR_4_1
     29,{D(jjNUMBER2_OP1),'-',             CNUMBER_CMD,    CNUMBER_CMD   , ALLOW_PLURAL |ALLOW_RING}
     30#endif
    2831,{D(jjUMINUS_P),   '-',             POLY_CMD,       POLY_CMD      , ALLOW_PLURAL |ALLOW_RING}
    2932,{D(jjUMINUS_P),   '-',             VECTOR_CMD,     VECTOR_CMD    , ALLOW_PLURAL |ALLOW_RING}
     
    3235,{D(jjUMINUS_IV),  '-',             INTMAT_CMD,     INTMAT_CMD    , ALLOW_PLURAL |ALLOW_RING}
    3336,{D(jjUMINUS_BIM), '-',             BIGINTMAT_CMD,  BIGINTMAT_CMD , ALLOW_PLURAL |ALLOW_RING}
     37#ifdef SINGULAR_4_1
     38,{D(jjUMINUS_BIM), '-',             CMATRIX_CMD,    CMATRIX_CMD ,   ALLOW_PLURAL |ALLOW_RING}
     39#endif
    3440,{D(jjPROC1),      '(',             ANY_TYPE/*set by p*/,PROC_CMD , ALLOW_PLURAL |ALLOW_RING}
    3541// and the procedures with 1 argument:
     
    169175,{D(jjNAMES),      NAMES_CMD,       LIST_CMD,       QRING_CMD     , ALLOW_PLURAL |ALLOW_RING}
    170176,{D(jjNOT),        NOT,             INT_CMD,        INT_CMD       , ALLOW_PLURAL |ALLOW_RING}
     177#ifdef SINGULAR_4_1
     178,{D(jjN2_N),       NUMBER_CMD,      NUMBER_CMD,     CNUMBER_CMD   , ALLOW_PLURAL |ALLOW_RING}
     179#endif
    171180,{D(jjDUMMY),      NUMBER_CMD,      NUMBER_CMD,     NUMBER_CMD    , ALLOW_PLURAL |ALLOW_RING}
    172181,{D(jjP2N),        NUMBER_CMD,      NUMBER_CMD,     POLY_CMD      , ALLOW_PLURAL |ALLOW_RING}
     
    208217,{D(jjRINGLIST),   RINGLIST_CMD,    LIST_CMD,       RING_CMD      , ALLOW_PLURAL |ALLOW_RING}
    209218,{D(jjRINGLIST),   RINGLIST_CMD,    LIST_CMD,       QRING_CMD     , ALLOW_PLURAL |ALLOW_RING}
     219#ifdef SINGULAR_4_1
     220,{D(jjN2_CR),      RING_CMD,        CRING_CMD,      CNUMBER_CMD   , ALLOW_PLURAL |ALLOW_RING}
     221,{D(jjCM_CR),      RING_CMD,        CRING_CMD,      CMATRIX_CMD   , ALLOW_PLURAL |ALLOW_RING}
     222#endif
    210223,{D(jjDUMMY),      RING_CMD,        RING_CMD,       RING_CMD      , ALLOW_PLURAL |ALLOW_RING}
    211224,{D(jjLISTRING),   RING_CMD,        RING_CMD,       LIST_CMD      , ALLOW_PLURAL |ALLOW_RING}
     
    243256,{D(jjTRANSP_IV),  TRANSPOSE_CMD,   INTMAT_CMD,     INTMAT_CMD    , ALLOW_PLURAL |ALLOW_RING}
    244257,{D(jjTRANSP_BIM), TRANSPOSE_CMD,   BIGINTMAT_CMD,  BIGINTMAT_CMD , ALLOW_PLURAL |ALLOW_RING}
     258#ifdef SINGULAR_4_1
     259,{D(jjTRANSP_BIM), TRANSPOSE_CMD,   CMATRIX_CMD,    CMATRIX_CMD ,   ALLOW_PLURAL |ALLOW_RING}
     260#endif
    245261,{D(jjmpTransp),   TRANSPOSE_CMD,   MATRIX_CMD,     MATRIX_CMD    , ALLOW_PLURAL |ALLOW_RING}
    246262,{D(jjidTransp),   TRANSPOSE_CMD,   MODUL_CMD,      MODUL_CMD     , ALLOW_PLURAL |ALLOW_RING}
     
    274290,{D(jjPLUS_BI),   '+',            BIGINT_CMD,     BIGINT_CMD, BIGINT_CMD, ALLOW_PLURAL | ALLOW_RING}
    275291,{D(jjPLUS_N),    '+',            NUMBER_CMD,     NUMBER_CMD, NUMBER_CMD, ALLOW_PLURAL | ALLOW_RING}
     292#ifdef SINGULAR_4_1
     293,{D(jjNUMBER2_OP2),'+',           CNUMBER_CMD,    CNUMBER_CMD,CNUMBER_CMD, ALLOW_PLURAL | ALLOW_RING}
     294#endif
    276295,{D(jjPLUS_P),    '+',            POLY_CMD,       POLY_CMD,   POLY_CMD, ALLOW_PLURAL | ALLOW_RING}
    277296,{D(jjPLUS_P),    '+',            VECTOR_CMD,     VECTOR_CMD, VECTOR_CMD, ALLOW_PLURAL | ALLOW_RING}
     
    293312,{D(jjOP_BIM_BI),  '+',           BIGINTMAT_CMD,  BIGINTMAT_CMD, BIGINT_CMD, ALLOW_PLURAL | ALLOW_RING}
    294313,{D(jjOP_BI_BIM),  '+',           BIGINTMAT_CMD,  BIGINT_CMD, BIGINTMAT_CMD, ALLOW_PLURAL | ALLOW_RING}
     314#ifdef SINGULAR_4_1
     315,{D(jjPLUS_BIM),  '+',            CMATRIX_CMD,    CMATRIX_CMD, CMATRIX_CMD, ALLOW_PLURAL | ALLOW_RING}
     316#endif
    295317,{D(lAdd),        '+',            LIST_CMD,       LIST_CMD,   LIST_CMD, ALLOW_PLURAL | ALLOW_RING}
    296318,{D(jjRSUM),      '+',            RING_CMD,       RING_CMD,   RING_CMD, ALLOW_PLURAL | ALLOW_RING}
     
    301323,{D(jjMINUS_BI),  '-',            BIGINT_CMD,     BIGINT_CMD, BIGINT_CMD, ALLOW_PLURAL | ALLOW_RING}
    302324,{D(jjMINUS_N),   '-',            NUMBER_CMD,     NUMBER_CMD, NUMBER_CMD, ALLOW_PLURAL | ALLOW_RING}
     325#ifdef SINGULAR_4_1
     326,{D(jjNUMBER2_OP2),'-',           CNUMBER_CMD,    CNUMBER_CMD,CNUMBER_CMD, ALLOW_PLURAL | ALLOW_RING}
     327#endif
    303328,{D(jjMINUS_P),   '-',            POLY_CMD,       POLY_CMD,   POLY_CMD, ALLOW_PLURAL | ALLOW_RING}
    304329,{D(jjMINUS_P),   '-',            VECTOR_CMD,     VECTOR_CMD, VECTOR_CMD, ALLOW_PLURAL | ALLOW_RING}
     
    314339,{D(jjOP_BIM_BI),  '-',           BIGINTMAT_CMD,  BIGINTMAT_CMD, BIGINT_CMD, ALLOW_PLURAL | ALLOW_RING}
    315340,{D(jjOP_BI_BIM),  '-',           BIGINTMAT_CMD,  BIGINT_CMD, BIGINTMAT_CMD, ALLOW_PLURAL | ALLOW_RING}
     341#ifdef SINGULAR_4_1
     342,{D(jjMINUS_BIM), '-',            CMATRIX_CMD,    CMATRIX_CMD,CMATRIX_CMD, ALLOW_PLURAL | ALLOW_RING}
     343#endif
    316344,{  jjWRONG2 ,    '-',            NONE,           IDEAL_CMD,  IDEAL_CMD, ALLOW_PLURAL | ALLOW_RING}
    317345,{  jjWRONG2 ,    '-',            NONE,           MODUL_CMD,  MODUL_CMD, ALLOW_PLURAL | ALLOW_RING}
     
    319347,{D(jjTIMES_BI),  '*',            BIGINT_CMD,     BIGINT_CMD, BIGINT_CMD, ALLOW_PLURAL | ALLOW_RING}
    320348,{D(jjTIMES_N),   '*',            NUMBER_CMD,     NUMBER_CMD, NUMBER_CMD, ALLOW_PLURAL | ALLOW_RING}
     349#ifdef SINGULAR_4_1
     350,{D(jjNUMBER2_OP2),'*',           CNUMBER_CMD,    CNUMBER_CMD,CNUMBER_CMD, ALLOW_PLURAL | ALLOW_RING}
     351#endif
    321352,{D(jjTIMES_P),   '*',            POLY_CMD,       POLY_CMD,   POLY_CMD, ALLOW_PLURAL | ALLOW_RING}
    322353,{D(jjTIMES_P),   '*',            VECTOR_CMD,     POLY_CMD,   VECTOR_CMD, ALLOW_PLURAL | ALLOW_RING}
     
    352383,{D(jjOP_BIM_BI),  '*',           BIGINTMAT_CMD,  BIGINTMAT_CMD, BIGINT_CMD, ALLOW_PLURAL | ALLOW_RING}
    353384,{D(jjOP_BI_BIM),  '*',           BIGINTMAT_CMD,  BIGINT_CMD, BIGINTMAT_CMD, ALLOW_PLURAL | ALLOW_RING}
     385#ifdef SINGULAR_4_1
     386,{D(jjTIMES_BIM), '*',            CMATRIX_CMD,    CMATRIX_CMD, CMATRIX_CMD, ALLOW_PLURAL | ALLOW_RING}
     387#endif
    354388,{D(jjDIV_N),     '/',            NUMBER_CMD,     NUMBER_CMD, NUMBER_CMD, ALLOW_PLURAL | ALLOW_RING}
     389#ifdef SINGULAR_4_1
     390,{D(jjNUMBER2_OP2),'/',           CNUMBER_CMD,    CNUMBER_CMD,CNUMBER_CMD, ALLOW_PLURAL | ALLOW_RING}
     391#endif
    355392,{D(jjDIV_P),     '/',            POLY_CMD,       POLY_CMD,   POLY_CMD, ALLOW_PLURAL | ALLOW_RING}
    356393,{D(jjDIV_P),     '/',            VECTOR_CMD,     VECTOR_CMD, POLY_CMD, ALLOW_PLURAL | ALLOW_RING}
     
    369406,{D(jjOP_IV_I),   '%',            INTMAT_CMD,     INTMAT_CMD, INT_CMD, ALLOW_PLURAL | ALLOW_RING}
    370407,{D(jjMOD_N),     '%',            NUMBER_CMD,     NUMBER_CMD, NUMBER_CMD, ALLOW_PLURAL | ALLOW_RING}
     408#ifdef SINGULAR_4_1
     409,{D(jjNUMBER2_OP2),'%',           CNUMBER_CMD,    CNUMBER_CMD,CNUMBER_CMD, ALLOW_PLURAL | ALLOW_RING}
     410#endif
    371411,{D(jjPOWER_I),   '^',            INT_CMD,        INT_CMD,    INT_CMD, ALLOW_PLURAL | ALLOW_RING}
    372412,{D(jjPOWER_BI),   '^',           BIGINT_CMD,     BIGINT_CMD, INT_CMD, ALLOW_PLURAL | ALLOW_RING}
    373413,{D(jjPOWER_N),   '^',            NUMBER_CMD,     NUMBER_CMD, INT_CMD, ALLOW_PLURAL | ALLOW_RING}
     414#ifdef SINGULAR_4_1
     415,{D(jjNUMBER2_OP2),'^',           CNUMBER_CMD,    CNUMBER_CMD,INT_CMD, ALLOW_PLURAL | ALLOW_RING}
     416#endif
    374417,{D(jjPOWER_P),   '^',            POLY_CMD,       POLY_CMD,   INT_CMD, ALLOW_PLURAL | ALLOW_RING}
    375418,{D(jjPOWER_ID),  '^',            IDEAL_CMD,      IDEAL_CMD,  INT_CMD, ALLOW_PLURAL | ALLOW_RING}
     
    418461,{D(jjCOMPARE_IV),EQUAL_EQUAL,    INT_CMD,        INTMAT_CMD, INTMAT_CMD, ALLOW_PLURAL | ALLOW_RING}
    419462,{D(jjCOMPARE_BIM),EQUAL_EQUAL,   INT_CMD,        BIGINTMAT_CMD, BIGINTMAT_CMD, ALLOW_PLURAL | ALLOW_RING}
     463#ifdef SINGULAR_4_1
     464,{D(jjCOMPARE_BIM),EQUAL_EQUAL,   INT_CMD,        CMATRIX_CMD, CMATRIX_CMD, ALLOW_PLURAL | ALLOW_RING}
     465#endif
    420466,{D(jjEQUAL_Ma),  EQUAL_EQUAL,    INT_CMD,        MATRIX_CMD, MATRIX_CMD, ALLOW_PLURAL | ALLOW_RING}
    421467,{  jjWRONG2 ,    EQUAL_EQUAL,    0,              IDEAL_CMD,  IDEAL_CMD, ALLOW_PLURAL | ALLOW_RING}
     
    471517,{D(jjCHINREM_ID),CHINREM_CMD,    ANY_TYPE/*set by p*/,LIST_CMD,INTVEC_CMD, ALLOW_PLURAL |NO_RING}
    472518,{D(jjCHINREM_ID),CHINREM_CMD,    ANY_TYPE/*set by p*/,LIST_CMD,LIST_CMD, ALLOW_PLURAL |NO_RING}
     519#ifdef SINGULAR_4_1
     520,{D(jjNUMBER2CR), CNUMBER_CMD,    CNUMBER_CMD,     INT_CMD,    CRING_CMD, ALLOW_PLURAL |ALLOW_RING}
     521,{D(jjNUMBER2CR), CNUMBER_CMD,    CNUMBER_CMD,     BIGINT_CMD, CRING_CMD, ALLOW_PLURAL |ALLOW_RING}
     522,{D(jjNUMBER2CR), CNUMBER_CMD,    CNUMBER_CMD,     NUMBER_CMD, CRING_CMD, ALLOW_PLURAL |ALLOW_RING}
     523#endif
    473524,{D(jjCOEF),      COEF_CMD,       MATRIX_CMD,     POLY_CMD,   POLY_CMD, ALLOW_PLURAL |ALLOW_RING}
    474525,{D(jjCOEFFS_Id), COEFFS_CMD,     MATRIX_CMD,     IDEAL_CMD,  POLY_CMD, ALLOW_PLURAL |ALLOW_RING}
     
    575626,{D(jjPlural_mat_poly), NC_ALGEBRA_CMD,RING_CMD,  MATRIX_CMD, POLY_CMD  , NO_PLURAL |NO_RING}
    576627,{D(jjPlural_mat_mat),  NC_ALGEBRA_CMD,RING_CMD,  MATRIX_CMD, MATRIX_CMD, NO_PLURAL |NO_RING}
    577 #endif
    578 #ifdef HAVE_PLURAL
    579628,{D(jjOPPOSE),    OPPOSE_CMD,     ANY_TYPE/*set by p*/, RING_CMD,   DEF_CMD, ALLOW_PLURAL |NO_RING}
    580629,{D(jjOPPOSE),    OPPOSE_CMD,     ANY_TYPE/*set by p*/, QRING_CMD,   DEF_CMD, ALLOW_PLURAL |NO_RING}
     
    633682,{D(jjBRACK_Im),       '[',        INT_CMD,    INTMAT_CMD, INT_CMD,    INT_CMD, ALLOW_PLURAL |ALLOW_RING}
    634683,{D(jjBRACK_Bim),      '[',        BIGINT_CMD, BIGINTMAT_CMD, INT_CMD, INT_CMD, ALLOW_PLURAL |ALLOW_RING}
     684#ifdef SINGULAR_4_1
     685,{D(jjBRACK_Bim),      '[',        CNUMBER_CMD, CMATRIX_CMD, INT_CMD, INT_CMD, ALLOW_PLURAL |ALLOW_RING}
     686#endif
    635687,{D(jjBRACK_Ma_I_IV),  '[',        INT_CMD,    INTMAT_CMD, INT_CMD,    INTVEC_CMD, ALLOW_PLURAL |ALLOW_RING}
    636688,{D(jjBRACK_Ma_I_IV),  '[',        BIGINT_CMD, BIGINTMAT_CMD, INT_CMD,    INTVEC_CMD, ALLOW_PLURAL |ALLOW_RING}
     
    652704,{D(jjCOEFFS3_KB),     COEFFS_CMD, MATRIX_CMD, IDEAL_CMD,  IDEAL_CMD,  POLY_CMD, ALLOW_PLURAL |ALLOW_RING}
    653705,{D(jjCOEFFS3_KB),     COEFFS_CMD, MATRIX_CMD, MODUL_CMD,  MODUL_CMD,  POLY_CMD, ALLOW_PLURAL |ALLOW_RING}
     706#ifdef SINGULAR_4_1
     707,{D(jjCMATRIX_3),     CMATRIX_CMD, CMATRIX_CMD,INT_CMD,    INT_CMD,   CRING_CMD, ALLOW_PLURAL |ALLOW_RING}
     708#endif
    654709,{D(jjELIMIN_HILB),    ELIMINATION_CMD,IDEAL_CMD, IDEAL_CMD, POLY_CMD, INTVEC_CMD, NO_PLURAL |ALLOW_RING}
    655710,{D(jjELIMIN_HILB),    ELIMINATION_CMD,MODUL_CMD, MODUL_CMD, POLY_CMD, INTVEC_CMD, NO_PLURAL |ALLOW_RING}
     
    735790,{D(jjBREAK0),    BREAKPOINT_CMD,  NONE,               0       , ALLOW_PLURAL |ALLOW_RING}
    736791,{D(jjBREAK1),    BREAKPOINT_CMD,  NONE,               -2      , ALLOW_PLURAL |ALLOW_RING}
     792#ifdef SINGULAR_4_1
     793,{D(jjCALL3ARG),  CMATRIX_CMD,     CMATRIX_CMD,        3       , ALLOW_PLURAL |ALLOW_RING}
     794,{D(jjCALL2ARG),  CNUMBER_CMD,     CNUMBER_CMD,        2       , ALLOW_PLURAL |ALLOW_RING}
     795#endif
    737796,{D(jjCALL2ARG),  COEF_CMD,        MATRIX_CMD,         2       , ALLOW_PLURAL |ALLOW_RING}
    738797,{D(jjCOEF_M),    COEF_CMD,        NONE,               4       , ALLOW_PLURAL |ALLOW_RING}
     
    814873  { "cleardenom",  0, CONTENT_CMD ,       CMD_1},
    815874  { "close",       0, CLOSE_CMD ,         CMD_1},
     875#ifdef SINGULAR_4_1
     876  { "cmatrix",     0, CMATRIX_CMD ,       ROOT_DECL_LIST},
     877  { "cnumber",     0, CNUMBER_CMD ,       ROOT_DECL_LIST},
     878#endif
    816879  { "coef",        0, COEF_CMD ,          CMD_M},
    817880  { "coeffs",      0, COEFFS_CMD ,        CMD_23},
     
    11681231,{D(jiA_DEF),      DEF_CMD,        DEF_CMD }
    11691232#ifdef SINGULAR_4_1
     1233,{D(jiA_BIGINTMAT),CMATRIX_CMD,    CMATRIX_CMD}
     1234,{D(jiA_NUMBER2),  CNUMBER_CMD,    CNUMBER_CMD }
    11701235,{D(jiA_CRING),    CRING_CMD,      CRING_CMD }
    11711236#endif
  • libpolys/coeffs/longrat.cc

    rbf4bb5 r4a51c1  
    30283028}
    30293029
     3030char * nlCoeffName(const coeffs r)
     3031{
     3032  if (r->cfDiv==nlDiv) return (char*)"QQ";
     3033  else                 return (char*)"ZZ";
     3034}
    30303035
    30313036
     
    30403045  r->cfKillChar = ndKillChar; /* dummy */
    30413046  r->cfCoeffString=nlCoeffString;
     3047  r->cfCoeffName=nlCoeffName;
    30423048
    30433049  r->cfInitMPZ = nlInitMPZ;
Note: See TracChangeset for help on using the changeset viewer.