Changeset 81fb5ae in git


Ignore:
Timestamp:
Oct 14, 2016, 2:24:06 PM (8 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
Children:
90cf60ed7f7213e1344c3ca3b2f843d7460f55c3
Parents:
7ffb4bcdad71af1ab7691d1c8544911a9b902128
Message:
chg: seperate cring (4_1) from cnumber, cpoly, cmatrix (4_2)
Files:
12 edited

Legend:

Unmodified
Added
Removed

  • Singular/dyn_modules/Order/singular.cc

    r7ffb4b r81fb5ae  
    1212#include <coeffs/bigintmat.h>
    1313
    14 #ifdef SINGULAR_4_1
     14#ifdef SINGULAR_4_2
    1515static int nforder_type_id=0;
    1616n_coeffType nforder_type =n_unknown;

  • Singular/iparith.cc

    r7ffb4b r81fb5ae  
    38503850  return FALSE;
    38513851}
    3852 #ifdef SINGULAR_4_1
     3852#ifdef SINGULAR_4_2
    38533853static BOOLEAN jjDET_N2(leftv res, leftv v)
    38543854{
    … …  
    50755075    case BIGINTMAT_CMD:
    50765076    case NUMBER_CMD:
    5077     #ifdef SINGULAR_4_1
     5077    #ifdef SINGULAR_4_2
    50785078    case CNUMBER_CMD:
    50795079    #endif
    … …  
    62236223  return FALSE;
    62246224}
    6225 #ifdef SINGULAR_4_1
     6225#ifdef SINGULAR_4_2
    62266226static BOOLEAN jjRANDOM_CF(leftv res, leftv u, leftv v, leftv w)
    62276227// <coeff>, par1, par2 -> number2
    … …  
    78847884static BOOLEAN jjRING_PL(leftv res, leftv a)
    78857885{
    7886   Print("construct ring\n");
     7886  //Print("construct ring\n");
    78877887  if (a->Typ()!=CRING_CMD)
    78887888  {
    … …  
    88248824  //if (tok==PRINT_EXPR) return "print_expr";
    88258825  if (tok==IDHDL) return "identifier";
    8826   #ifdef SINGULAR_4_1
    8827   //if (tok==CRING_CMD) return "Ring";
    8828   #endif
    88298826  if (tok>MAX_TOK) return getBlackboxName(tok);
    88308827  unsigned i;

  • Singular/ipassign.cc

    r7ffb4b r81fb5ae  
    406406  return FALSE;
    407407}
    408 #ifdef SINGULAR_4_1
     408#ifdef SINGULAR_4_2
    409409static BOOLEAN jiA_NUMBER2(leftv res, leftv a, Subexpr e)
    410410{

  • Singular/ipconv.cc

    r7ffb4b r81fb5ae  
    176176}
    177177
    178 #ifdef SINGULAR_4_1
     178#ifdef SINGULAR_4_2
    179179static void * iiI2NN(void *data)
    180180{
    … …  
    219219}
    220220
    221 #ifdef SINGULAR_4_1
     221#ifdef SINGULAR_4_2
    222222static void * iiBI2NN(void *data)
    223223{
    … …  
    269269#endif
    270270
    271 #ifdef SINGULAR_4_1
     271#ifdef SINGULAR_4_2
    272272static void * iiNN2N(void *data)
    273273{
    … …  
    285285#endif
    286286
    287 #ifdef SINGULAR_4_1
     287#ifdef SINGULAR_4_2
    288288static void * iiNN2P(void *data)
    289289{

  • Singular/ipid.cc

    r7ffb4b r81fb5ae  
    135135  {
    136136    //the type with init routines:
    137 #ifdef SINGULAR_4_1
     137#ifdef SINGULAR_4_2
    138138    case CNUMBER_CMD:
    139139      return (void*)n2Init(0,NULL);

  • Singular/ipshell.cc

    r7ffb4b r81fb5ae  
    7474#ifdef SINGULAR_4_1
    7575#include <Singular/number2.h>
     76#endif
     77#ifdef SINGULAR_4_2
    7678#include <coeffs/bigintmat.h>
    7779#endif
    … …  
    225227#endif
    226228                   break;
    227 #ifdef SINGULAR_4_1
     229#ifdef SINGULAR_4_2
    228230    case CNUMBER_CMD:
    229231                   {  number2 n=(number2)IDDATA(h);

  • Singular/misc_ip.cc

    r7ffb4b r81fb5ae  
    11751175}
    11761176
    1177 #ifdef SINGULAR_4_1
     1177#ifdef SINGULAR_4_2
    11781178static n_coeffType n_pAE=n_unknown;
    11791179static BOOLEAN ii_pAE_init(leftv res,leftv a)
    … …  
    11911191  }
    11921192}
     1193#endif
     1194#ifdef SINGULAR_4_1
    11931195#ifdef HAVE_FLINT
    11941196static n_coeffType n_FlintZn=n_unknown;
    … …  
    12651267  {
    12661268    n_coeffType type;
    1267     #ifdef SINGULAR_4_1
     1269    #ifdef SINGULAR_4_2
    12681270    type = nRegister(n_polyExt, n2pInitChar);
    12691271    assume(type == n_polyExt);
    … …  
    13071309  feSetOptValue(FE_OPT_CPUS, cpus);
    13081310
    1309 #ifdef SINGULAR_4_1
    13101311// default coeffs
    13111312  {
    … …  
    13191320    //h=enterid(omStrDup("CC"),0/*level*/, CRING_CMD,&(basePack->idroot),FALSE /*init*/,FALSE /*search*/);
    13201321    //IDDATA(h)=(char*)nInitChar(n_long_C,NULL);
    1321     n_coeffType t=nRegister(n_unknown,n_AEInitChar);
     1322    n_coeffType t;
     1323#ifdef SINGULAR_4_2
     1324    t=nRegister(n_unknown,n_AEInitChar);
    13221325    if (t!=n_unknown)
    13231326    {
    … …  
    13361339      iiAddCproc("kernel","pAE",FALSE,ii_pAE_init);
    13371340    }
     1341#endif
     1342#ifdef SINGULAR_4_1
    13381343    #ifdef HAVE_FLINT
    13391344    t=nRegister(n_unknown,flintQ_InitChar);
    … …  
    13491354    }
    13501355    #endif
    1351   }
    1352 #endif
     1356#endif
     1357  }
    13531358// setting routines for PLURAL QRINGS:
    13541359// allowing to use libpolys without libSingular(kStd)

  • Singular/number2.cc

    r7ffb4b r81fb5ae  
    11#include "kernel/mod2.h" // general settings/macros
    2 
    32#ifdef SINGULAR_4_1
    43#include <reporter/reporter.h>  // for Print, WerrorS
    … …  
    7574}
    7675
     76BOOLEAN jjEQUAL_CR(leftv res, leftv a, leftv b)
     77{
     78  coeffs a2=(coeffs)a->Data();
     79  coeffs b2=(coeffs)b->Data();
     80  res->data=(void*)(long)(a2==b2);
     81  return FALSE;
     82}
     83
     84#ifdef SINGULAR_4_2
    7785// -----------------------------------------------------------
    7886// interpreter stuff for Number/number2
    … …  
    378386}
    379387
    380 BOOLEAN jjEQUAL_CR(leftv res, leftv a, leftv b)
    381 {
    382   coeffs a2=(coeffs)a->Data();
    383   coeffs b2=(coeffs)b->Data();
    384   res->data=(void*)(long)(a2==b2);
    385   return FALSE;
    386 }
    387388// -----------------------------------------------------------
    388389// operations with Number/number2
    … …  
    511512
    512513#endif
     514#endif

  • Singular/number2.h

    r7ffb4b r81fb5ae  
    44#include <kernel/mod2.h>
    55
    6 #ifdef SINGULAR_4_1
    76#include <omalloc/omalloc.h>
    87#include <coeffs/coeffs.h>
    98#include <kernel/structs.h>
     9#ifdef SINGULAR_4_2
    1010struct snumber2;
    1111struct spoly2;
    … …  
    2727static inline poly2 p2Init(long i, ring c)
    2828{ poly2 N=(poly2)omAlloc0(sizeof(spoly2)); if (c!=NULL) { N->cf=c; N->n=p_ISet(i,c);} return N;}
    29 
    30 char *crString(coeffs c);
    31 
    32 void crPrint(coeffs cf);
    33 
    34 BOOLEAN jjCRING_Zp(leftv res, leftv a, leftv b);
    35 BOOLEAN jjCRING_Zm(leftv res, leftv a, leftv b);
    36 
    37 BOOLEAN jjEQUAL_CR(leftv res, leftv a, leftv b); // compare cring
    3829
    3930// type conversion:
    … …  
    6556BOOLEAN jjCMATRIX_3(leftv, leftv, leftv,leftv);
    6657#endif
     58#ifdef SINGULAR_4_1
     59char *crString(coeffs c);
     60
     61void crPrint(coeffs cf);
     62
     63BOOLEAN jjCRING_Zp(leftv res, leftv a, leftv b);
     64BOOLEAN jjCRING_Zm(leftv res, leftv a, leftv b);
     65
     66BOOLEAN jjEQUAL_CR(leftv res, leftv a, leftv b); // compare cring
    6767#endif
     68
     69#endif

  • Singular/subexpr.cc

    r7ffb4b r81fb5ae  
    110110          crPrint((coeffs)d);
    111111          break;
     112#endif
     113#ifdef SINGULAR_4_2
    112114        case CNUMBER_CMD:
    113115          n2Print((number2)d);
    … …  
    424426        return (void*)d;
    425427      }
     428#endif
     429#ifdef SINGULAR_4_2
    426430    case CNUMBER_CMD:
    427431      return (void*)n2Copy((number2)d);
    … …  
    513517        break;
    514518      }
     519#endif
     520#ifdef SINGULAR_4_2
    515521    case CNUMBER_CMD:
    516522      {
    … …  
    818824
    819825        #ifdef SINGULAR_4_1
     826        case CRING_CMD:
     827          return nCoeffString((coeffs)d);
     828        #endif
     829        #ifdef SINGULAR_4_2
    820830        case CNUMBER_CMD:
    821831          return n2String((number2)d,typed);
    822         case CRING_CMD:
    823           return nCoeffString((coeffs)d);
    824832        case CMATRIX_CMD:
    825833          {
    … …  
    10391047  switch (t)
    10401048  {
    1041 #ifdef SINGULAR_4_1
     1049#ifdef SINGULAR_4_2
    10421050    case CMATRIX_CMD:
    10431051    {
    … …  
    11331141}
    11341142
    1135 #ifdef SINGULAR_4_1
     1143#ifdef SINGULAR_4_2
    11361144static snumber2 iiNumber2Data[4];
    11371145static int iiCmatrix_index=0;
    … …  
    12471255      break;
    12481256    }
    1249 #ifdef SINGULAR_4_1
     1257#ifdef SINGULAR_4_2
    12501258    case CMATRIX_CMD:
    12511259    {

  • Singular/table.h

    r7ffb4b r81fb5ae  
    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
     28#ifdef SINGULAR_4_2
    2929,{D(jjNUMBER2_OP1),'-',             CNUMBER_CMD,    CNUMBER_CMD   , ALLOW_PLURAL |ALLOW_RING}
    3030,{D(jjPOLY2_OP1),  '-',             CPOLY_CMD,      CPOLY_CMD     , ALLOW_PLURAL |ALLOW_RING}
    … …  
    3636,{D(jjUMINUS_IV),  '-',             INTMAT_CMD,     INTMAT_CMD    , ALLOW_PLURAL |ALLOW_RING}
    3737,{D(jjUMINUS_BIM), '-',             BIGINTMAT_CMD,  BIGINTMAT_CMD , ALLOW_PLURAL |ALLOW_RING}
    38 #ifdef SINGULAR_4_1
     38#ifdef SINGULAR_4_2
    3939,{D(jjUMINUS_BIM), '-',             CMATRIX_CMD,    CMATRIX_CMD ,   ALLOW_PLURAL |ALLOW_RING}
    4040#endif
    … …  
    5656,{D(jjrCharStr),   CHARSTR_CMD,     STRING_CMD,     RING_CMD      , ALLOW_PLURAL |ALLOW_RING}
    5757,{D(jjOpenClose),  CLOSE_CMD,       NONE,           LINK_CMD      , ALLOW_PLURAL |ALLOW_RING}
    58 #ifdef SINGULAR_4_1
     58#ifdef SINGULAR_4_2
    5959,{D(jjDUMMY),      CMATRIX_CMD,     CMATRIX_CMD,    CMATRIX_CMD ,   ALLOW_PLURAL |ALLOW_RING}
    6060#endif
    … …  
    6565,{D(jjCOLS_IV),    COLS_CMD,        INT_CMD,        INTMAT_CMD    , ALLOW_PLURAL |ALLOW_RING}
    6666,{D(jjCOLS_BIM),   COLS_CMD,        INT_CMD,        BIGINTMAT_CMD , ALLOW_PLURAL |ALLOW_RING}
    67 #ifdef SINGULAR_4_1
     67#ifdef SINGULAR_4_2
    6868,{D(jjCOLS_BIM),   COLS_CMD,        INT_CMD,        CMATRIX_CMD , ALLOW_PLURAL |ALLOW_RING}
    6969#endif
    … …  
    8484,{D(jjCOUNT_L),    COUNT_CMD,       INT_CMD,        LIST_CMD      , ALLOW_PLURAL |ALLOW_RING}
    8585,{D(jjCOUNT_RG),   COUNT_CMD,       INT_CMD,        RING_CMD      , ALLOW_PLURAL |ALLOW_RING}
    86 #ifdef SINGULAR_4_1
     86#ifdef SINGULAR_4_2
    8787,{D(jjR2_CR),      CRING_CMD,       CRING_CMD,      RING_CMD      , ALLOW_PLURAL |ALLOW_RING}
    8888#endif
    … …  
    9797,{D(jjDENOMINATOR),DENOMINATOR_CMD, NUMBER_CMD,     NUMBER_CMD    , ALLOW_PLURAL |ALLOW_RING}
    9898,{D(jjNUMERATOR),  NUMERATOR_CMD,   NUMBER_CMD,     NUMBER_CMD    , ALLOW_PLURAL |ALLOW_RING}
    99 #ifdef SINGULAR_4_1
     99#ifdef SINGULAR_4_2
    100100,{D(jjDET_N2),     DET_CMD,         CNUMBER_CMD,    CMATRIX_CMD   , ALLOW_PLURAL |ALLOW_RING}
    101101#endif
    … …  
    185185,{D(jjNAMES),      NAMES_CMD,       LIST_CMD,       RING_CMD      , ALLOW_PLURAL |ALLOW_RING}
    186186,{D(jjNOT),        NOT,             INT_CMD,        INT_CMD       , ALLOW_PLURAL |ALLOW_RING}
    187 #ifdef SINGULAR_4_1
     187#ifdef SINGULAR_4_2
    188188,{D(jjN2_N),       NUMBER_CMD,      NUMBER_CMD,     CNUMBER_CMD   , ALLOW_PLURAL |ALLOW_RING}
    189189#endif
    … …  
    201201,{D(jjPAR1),       PAR_CMD,         NUMBER_CMD,     INT_CMD       , ALLOW_PLURAL |ALLOW_RING}
    202202,{D(jjPARDEG),     PARDEG_CMD,      INT_CMD,        NUMBER_CMD    , ALLOW_PLURAL |ALLOW_RING}
    203 #ifdef SINGULAR_4_1
     203#ifdef SINGULAR_4_2
    204204,{D(jjN2_CR),      PARENT_CMD,      CRING_CMD,      CNUMBER_CMD    , ALLOW_PLURAL |ALLOW_RING}
    205205,{D(jjP2_R),       PARENT_CMD,      RING_CMD,       CPOLY_CMD      , ALLOW_PLURAL |ALLOW_RING}
    … …  
    228228,{D(jjRINGLIST),   RINGLIST_CMD,    LIST_CMD,       RING_CMD      , ALLOW_PLURAL |ALLOW_RING}
    229229#ifdef SINGULAR_4_1
    230 ,{D(jjRING_LIST),  RING_LIST_CMD,   LIST_CMD,       RING_CMD      , ALLOW_PLURAL |ALLOW_RING}
    231230,{D(jjRINGLIST_C), RING_LIST_CMD,   LIST_CMD,       CRING_CMD     , ALLOW_PLURAL |ALLOW_RING}
    232231#endif
    … …  
    239238,{D(jjROWS_IV),    ROWS_CMD,        INT_CMD,        INTMAT_CMD    , ALLOW_PLURAL |ALLOW_RING}
    240239,{D(jjROWS_BIM),   ROWS_CMD,        INT_CMD,        BIGINTMAT_CMD , ALLOW_PLURAL |ALLOW_RING}
    241 #ifdef SINGULAR_4_1
     240#ifdef SINGULAR_4_2
    242241,{D(jjROWS_BIM),   ROWS_CMD,        INT_CMD,        CMATRIX_CMD , ALLOW_PLURAL |ALLOW_RING}
    243242#endif
    … …  
    267266,{D(jjTRANSP_IV),  TRANSPOSE_CMD,   INTMAT_CMD,     INTMAT_CMD    , ALLOW_PLURAL |ALLOW_RING}
    268267,{D(jjTRANSP_BIM), TRANSPOSE_CMD,   BIGINTMAT_CMD,  BIGINTMAT_CMD , ALLOW_PLURAL |ALLOW_RING}
    269 #ifdef SINGULAR_4_1
     268#ifdef SINGULAR_4_2
    270269,{D(jjTRANSP_BIM), TRANSPOSE_CMD,   CMATRIX_CMD,    CMATRIX_CMD ,   ALLOW_PLURAL |ALLOW_RING}
    271270#endif
    … …  
    319318,{D(jjPLUS_IV),   '+',            INTVEC_CMD,     INTVEC_CMD, INTVEC_CMD, ALLOW_PLURAL | ALLOW_RING}
    320319,{D(jjPLUS_IV),   '+',            INTMAT_CMD,     INTMAT_CMD, INTMAT_CMD, ALLOW_PLURAL | ALLOW_RING}
    321 #ifdef SINGULAR_4_1
     320#ifdef SINGULAR_4_2
    322321,{D(jjNUMBER2_OP2),'+',           CNUMBER_CMD,    CNUMBER_CMD,CNUMBER_CMD, ALLOW_PLURAL | ALLOW_RING}
    323322,{D(jjNUMBER2_OP2),'+',           CNUMBER_CMD,    DEF_CMD,    CNUMBER_CMD, ALLOW_PLURAL | ALLOW_RING}
    … …  
    345344,{D(jjMINUS_IV),  '-',            INTVEC_CMD,     INTVEC_CMD, INTVEC_CMD, ALLOW_PLURAL | ALLOW_RING}
    346345,{D(jjMINUS_IV),  '-',            INTMAT_CMD,     INTMAT_CMD, INTMAT_CMD, ALLOW_PLURAL | ALLOW_RING}
    347 #ifdef SINGULAR_4_1
     346#ifdef SINGULAR_4_2
    348347,{D(jjNUMBER2_OP2),'-',           CNUMBER_CMD,    CNUMBER_CMD,CNUMBER_CMD, ALLOW_PLURAL | ALLOW_RING}
    349348,{D(jjNUMBER2_OP2),'-',           CNUMBER_CMD,    INT_CMD,    CNUMBER_CMD, ALLOW_PLURAL | ALLOW_RING}
    … …  
    394393,{D(jjTIMES_IV),  '*',            INTMAT_CMD,     INTMAT_CMD, INTMAT_CMD, ALLOW_PLURAL | ALLOW_RING}
    395394,{D(jjTIMES_IV),  '*',            INTMAT_CMD,     INTVEC_CMD, INTMAT_CMD, ALLOW_PLURAL | ALLOW_RING}
    396 #ifdef SINGULAR_4_1
     395#ifdef SINGULAR_4_2
    397396,{D(jjNUMBER2_OP2),'*',           CNUMBER_CMD,    CNUMBER_CMD,CNUMBER_CMD, ALLOW_PLURAL | ALLOW_RING}
    398397,{D(jjNUMBER2_OP2),'*',           CNUMBER_CMD,    INT_CMD,    CNUMBER_CMD, ALLOW_PLURAL | ALLOW_RING}
    … …  
    416415,{D(jjCRING_Zp),  '/',            CRING_CMD,      CRING_CMD,  INT_CMD, ALLOW_PLURAL | ALLOW_RING}
    417416,{D(jjCRING_Zm),  '/',            CRING_CMD,      CRING_CMD,  BIGINT_CMD, ALLOW_PLURAL | ALLOW_RING}
     417#endif
     418#ifdef SINGULAR_4_2
    418419,{D(jjNUMBER2_OP2),'/',           CNUMBER_CMD,    CNUMBER_CMD,CNUMBER_CMD, ALLOW_PLURAL | ALLOW_RING}
    419420,{D(jjNUMBER2_OP2),'/',           CNUMBER_CMD,    INT_CMD,    CNUMBER_CMD, ALLOW_PLURAL | ALLOW_RING}
    … …  
    431432,{D(jjOP_IV_I),   '%',            INTMAT_CMD,     INTMAT_CMD, INT_CMD, ALLOW_PLURAL | ALLOW_RING}
    432433,{D(jjMOD_N),     '%',            NUMBER_CMD,     NUMBER_CMD, NUMBER_CMD, ALLOW_PLURAL | ALLOW_RING}
    433 #ifdef SINGULAR_4_1
     434#ifdef SINGULAR_4_2
    434435,{D(jjNUMBER2_OP2),'%',           CNUMBER_CMD,    CNUMBER_CMD,CNUMBER_CMD, ALLOW_PLURAL | ALLOW_RING}
    435436,{D(jjNUMBER2_OP2),'%',           CNUMBER_CMD,    INT_CMD,    CNUMBER_CMD, ALLOW_PLURAL | ALLOW_RING}
    … …  
    443444,{D(jjPOWER_P),   '^',            POLY_CMD,       POLY_CMD,   INT_CMD, ALLOW_PLURAL | ALLOW_RING}
    444445,{D(jjPOWER_ID),  '^',            IDEAL_CMD,      IDEAL_CMD,  INT_CMD, ALLOW_PLURAL | ALLOW_RING}
    445 #ifdef SINGULAR_4_1
     446#ifdef SINGULAR_4_2
    446447,{D(jjNUMBER2_POW),'^',           CNUMBER_CMD,    CNUMBER_CMD,INT_CMD, ALLOW_PLURAL | ALLOW_RING}
    447448,{D(jjPOLY2_POW), '^',            CPOLY_CMD,      CPOLY_CMD,  INT_CMD, ALLOW_PLURAL | ALLOW_RING}
    … …  
    497498,{D(jjCOMPARE_IV),EQUAL_EQUAL,    INT_CMD,        INTMAT_CMD, INTMAT_CMD, ALLOW_PLURAL | ALLOW_RING}
    498499,{D(jjCOMPARE_BIM),EQUAL_EQUAL,   INT_CMD,        BIGINTMAT_CMD, BIGINTMAT_CMD, ALLOW_PLURAL | ALLOW_RING}
     500#ifdef SINGULAR_4_2
     501,{D(jjCOMPARE_BIM),EQUAL_EQUAL,   INT_CMD,        CMATRIX_CMD, CMATRIX_CMD, ALLOW_PLURAL | ALLOW_RING}
     502#endif
    499503#ifdef SINGULAR_4_1
    500 ,{D(jjCOMPARE_BIM),EQUAL_EQUAL,   INT_CMD,        CMATRIX_CMD, CMATRIX_CMD, ALLOW_PLURAL | ALLOW_RING}
    501504,{D(jjEQUAL_CR),  EQUAL_EQUAL,    INT_CMD,        CRING_CMD,  CRING_CMD, ALLOW_PLURAL | ALLOW_RING}
    502505#endif
    … …  
    558561,{D(jjCHINREM_ID),CHINREM_CMD,    ANY_TYPE/*set by p*/,LIST_CMD,INTVEC_CMD, ALLOW_PLURAL |NO_RING}
    559562,{D(jjCHINREM_ID),CHINREM_CMD,    ANY_TYPE/*set by p*/,LIST_CMD,LIST_CMD, ALLOW_PLURAL |NO_RING}
    560 #ifdef SINGULAR_4_1
     563#ifdef SINGULAR_4_2
    561564,{D(jjNUMBER2CR), CNUMBER_CMD,    CNUMBER_CMD,     INT_CMD,    CRING_CMD, ALLOW_PLURAL |ALLOW_RING}
    562565,{D(jjNUMBER2CR), CNUMBER_CMD,    CNUMBER_CMD,     BIGINT_CMD, CRING_CMD, ALLOW_PLURAL |ALLOW_RING}
    … …  
    653656,{D(jjRES),       MRES_CMD,       RESOLUTION_CMD, MODUL_CMD,  INT_CMD, ALLOW_PLURAL |ALLOW_RING}
    654657//,{D(nuMPResMat),  MPRES_CMD,      MODUL_CMD,      IDEAL_CMD,  INT_CMD, NO_PLURAL |ALLOW_RING}
    655 #ifdef SINGULAR_4_1
     658#ifdef SINGULAR_4_2
    656659,{D(jjNUMBER2CR), CNUMBER_CMD,    CNUMBER_CMD,    INT_CMD,    CRING_CMD, ALLOW_PLURAL |ALLOW_RING}
    657660,{D(jjNUMBER2CR), CNUMBER_CMD,    CNUMBER_CMD,    BIGINT_CMD, CRING_CMD, ALLOW_PLURAL |ALLOW_RING}
    … …  
    731734,{D(jjBRACK_Ma_IV_I),  '[',        POLY_CMD,   MATRIX_CMD, INTVEC_CMD, INT_CMD, ALLOW_PLURAL |ALLOW_RING}
    732735,{D(jjBRACK_Ma_IV_IV), '[',        POLY_CMD,   MATRIX_CMD, INTVEC_CMD, INTVEC_CMD, ALLOW_PLURAL |ALLOW_RING}
    733 #ifdef SINGULAR_4_1
     736#ifdef SINGULAR_4_2
    734737,{D(jjBRACK_Bim),      '[',        CNUMBER_CMD, CMATRIX_CMD, INT_CMD, INT_CMD, ALLOW_PLURAL |ALLOW_RING}
    735738#endif
    … …  
    743746,{D(jjCOEFFS3_KB),     COEFFS_CMD, MATRIX_CMD, IDEAL_CMD,  IDEAL_CMD,  POLY_CMD, ALLOW_PLURAL |ALLOW_RING}
    744747,{D(jjCOEFFS3_KB),     COEFFS_CMD, MATRIX_CMD, MODUL_CMD,  MODUL_CMD,  POLY_CMD, ALLOW_PLURAL |ALLOW_RING}
    745 #ifdef SINGULAR_4_1
     748#ifdef SINGULAR_4_2
    746749,{D(jjCMATRIX_3),     CMATRIX_CMD, CMATRIX_CMD,INT_CMD,    INT_CMD,   CRING_CMD, ALLOW_PLURAL |ALLOW_RING}
    747750#endif
    … …  
    782785,{D(jjPREIMAGE),       PREIMAGE_CMD, IDEAL_CMD, RING_CMD,  ANY_TYPE,   ANY_TYPE, ALLOW_PLURAL |ALLOW_RING}
    783786,{D(jjRANDOM_Im),      RANDOM_CMD, INTMAT_CMD, INT_CMD,    INT_CMD,    INT_CMD, ALLOW_PLURAL |ALLOW_RING}
    784 #ifdef SINGULAR_4_1
     787#ifdef SINGULAR_4_2
    785788,{D(jjRANDOM_CF),      RANDOM_CMD, CNUMBER_CMD, CNUMBER_CMD, CNUMBER_CMD, CRING_CMD, ALLOW_PLURAL |ALLOW_RING}
    786789#endif
    … …  
    834837,{D(jjBREAK1),    BREAKPOINT_CMD,  NONE,               -2      , ALLOW_PLURAL |ALLOW_RING}
    835838,{D(iiBranchTo),  BRANCHTO_CMD,    NONE,               -2      , ALLOW_PLURAL |ALLOW_RING}
    836 #ifdef SINGULAR_4_1
     839#ifdef SINGULAR_4_2
    837840,{D(jjCALL3ARG),  CMATRIX_CMD,     CMATRIX_CMD,        3       , ALLOW_PLURAL |ALLOW_RING}
    838841,{D(jjCALL2ARG),  CNUMBER_CMD,     CNUMBER_CMD,        2       , ALLOW_PLURAL |ALLOW_RING}
    … …  
    923926  { "cleardenom",  0, CONTENT_CMD ,       CMD_1},
    924927  { "close",       0, CLOSE_CMD ,         CMD_1},
    925 #ifdef SINGULAR_4_1
     928#ifdef SINGULAR_4_2
    926929  { "Matrix",     0, CMATRIX_CMD ,       ROOT_DECL_LIST},
    927930  { "Number",     0, CNUMBER_CMD ,       ROOT_DECL_LIST},
    … …  
    934937  { "contract",    0, CONTRACT_CMD ,      CMD_2},
    935938  { "convhull",    0, NEWTONPOLY_CMD,     CMD_1},
     939#ifdef SINGULAR_4_1
     940  { "cring",        0, CRING_CMD,          ROOT_DECL},
     941#endif
    936942  { "dbprint",     0, DBPRINT_CMD ,       CMD_M},
    937943  { "def",         0, DEF_CMD ,           ROOT_DECL},
    … …  
    10191025  { "map",         0, MAP_CMD ,           RING_DECL},
    10201026  { "matrix",      0, MATRIX_CMD ,        MATRIX_CMD},
    1021 #ifdef SINGULAR_4_1
    1022   { "Matrix",     0, CMATRIX_CMD ,       ROOT_DECL_LIST},
    1023 #endif
    10241027  { "maxideal",    0, MAXID_CMD ,         CMD_1},
    10251028  { "memory",      0, MEMORY_CMD ,        CMD_1},
    … …  
    10571060  { "nrows",       0, ROWS_CMD ,          CMD_1},
    10581061  { "number",      0, NUMBER_CMD ,        RING_DECL},
    1059 #ifdef SINGULAR_4_1
    1060   { "Number",     0, CNUMBER_CMD ,       ROOT_DECL_LIST},
    1061 #endif
    10621062  { "numerator",   0, NUMERATOR_CMD ,     CMD_1},
    10631063  { "nvars",       0, NVARS_CMD ,         CMD_1},
    … …  
    11001100  { "RETURN",      0, END_GRAMMAR ,       RETURN},
    11011101  { "ring",        0, RING_CMD ,          RING_CMD},
    1102 #ifdef SINGULAR_4_1
    1103   { "Ring",        0, CRING_CMD,          ROOT_DECL},
    1104 #endif
    11051102  { "ringlist",    0, RINGLIST_CMD ,      CMD_1},
    11061103  #ifdef SINGULAR_4_1
    … …  
    12521249// list -> resolution
    12531250   { LIST_CMD,        RESOLUTION_CMD, NULL_VAL ,  D(iiL2R) },
    1254 #ifdef SINGULAR_4_1
     1251#ifdef SINGULAR_4_2
    12551252   { INT_CMD,         CNUMBER_CMD,    D(iiI2NN) , NULL_VAL },
    12561253   { BIGINT_CMD,      CNUMBER_CMD,    D(iiBI2NN) , NULL_VAL },
    … …  
    12941291,{D(jiA_INTVEC),   INTMAT_CMD,     INTMAT_CMD }
    12951292,{D(jiA_BIGINTMAT),BIGINTMAT_CMD,  BIGINTMAT_CMD}
    1296 #ifdef SINGULAR_4_1
     1293#ifdef SINGULAR_4_2
    12971294,{D(jiA_BIGINTMAT),CMATRIX_CMD,    CMATRIX_CMD}
    12981295#endif
    12991296,{D(jiA_NUMBER),   NUMBER_CMD,     NUMBER_CMD }
    1300 #ifdef SINGULAR_4_1
     1297#ifdef SINGULAR_4_2
    13011298,{D(jiA_NUMBER2),  CNUMBER_CMD,    CNUMBER_CMD }
    13021299//,{D(jiA_NUMBER2_I),CNUMBER_CMD,    INT_CMD }
    … …  
    13121309,{D(jiA_PACKAGE),  PACKAGE_CMD,    PACKAGE_CMD }
    13131310,{D(jiA_DEF),      DEF_CMD,        DEF_CMD }
    1314 #ifdef SINGULAR_4_1
     1311#ifdef SINGULAR_4_2
    13151312,{D(jiA_NUMBER2_I),CNUMBER_CMD,    INT_CMD }
    13161313,{D(jiA_NUMBER2_N),CNUMBER_CMD,    NUMBER_CMD }

  • libpolys/misc/auxiliary.h

    r7ffb4b r81fb5ae  
    3636#define SI_BIGINT_VARIANT 1
    3737
    38 /* preparation for versio 4.1.0: */
     38/* preparation for versio 4.1.0: cring (4_1), cpoly, cnumber, cmatrix (4_2) */
    3939#undef SINGULAR_4_1
     40#undef SINGULAR_4_2
    4041
    4142#ifndef SIZEOF_LONG
Note: See TracChangeset for help on using the changeset viewer.