Changeset 9c19da in git


Ignore:
Timestamp:
Jul 24, 2007, 11:58:47 AM (17 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
Children:
94e04af50522d33463ebadf3874a50da60718e71
Parents:
c05b4689f61a550030ad7875a6d3867cac06ba4c
Message:
*hannes: cleanup


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

Legend:

Unmodified
Added
Removed

  • Singular/iparith.cc

    rc05b46 r9c19da  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: iparith.cc,v 1.452 2007-07-23 16:46:29 motsak Exp $ */
     4/* $Id: iparith.cc,v 1.453 2007-07-24 09:58:47 Singular Exp $ */
    55
    66/*
    … …  
    6363#endif
    6464
    65 
    6665#include "ipshell.h"
    67 
    6866#include "mpr_inout.h"
    69 
    7067
    7168#ifdef HAVE_PLURAL
    … …  
    148145{
    149146  cmdnames *sCmds;             /**< array of existing commands */
    150 
    151147#ifndef GENTABLE
    152148  struct sValCmd1 *psValCmd1;
    … …  
    155151  struct sValCmdM *psValCmdM;
    156152#endif /* GENTABLE */
    157 
    158153  int nCmdUsed;      /**< number of commands used */
    159154  int nCmdAllocated; /**< number of commands-slots allocated */
    … …  
    807802#ifdef HAVE_NS
    808803  idhdl packhdl;
    809 
    810804  switch(u->Typ())
    811805  {
    … …  
    819813        syMake(u,u->name,NULL);
    820814        // else: use next case !!! no break !!!
    821 
    822815      case PACKAGE_CMD:
    823816        packhdl = (idhdl)u->data;
    … …  
    840833        memset(v, 0, sizeof(sleftv));
    841834        break;
    842 
    843835      case DEF_CMD:
    844836        break;
    845 
    846837      default:
    847838        WerrorS("<package>::<id> expected");
    … …  
    10091000  poly a;
    10101001  poly b;
    1011 
    10121002  if (v->next==NULL)
    10131003  {
    … …  
    13931383  int i;
    13941384  sleftv t;
    1395 
    13961385  memset(&t,0,sizeof(t));
    13971386  t.rtyp=INT_CMD;
    … …  
    17211710      h=((poly)c->m[i].Data());
    17221711      if (pLmCmp(r,h)==0)
    1723       { 
     1712      {
    17241713        x[i]=pGetCoeff(h);
    17251714        h=pLmFreeAndNext(h);
    … …  
    17521741  intvec* p=(intvec*)v->Data();
    17531742  int rl=p->length();
    1754   poly r=NULL,h; 
     1743  poly r=NULL,h;
    17551744  ideal result;
    17561745  ideal *x=(ideal *)omAlloc(rl*sizeof(ideal));
    … …  
    18021791  poly p = pInit();
    18031792  int i;
    1804 
    18051793  for (i=1; i<=pVariables; i++)
    18061794  {
    … …  
    21252113  int p0=ABS(uu),p1=ABS(vv);
    21262114  int r;
    2127 
    21282115  while ( p1!=0 )
    21292116  {
    … …  
    24042391  return FALSE;
    24052392}
    2406 
    24072393#ifdef HAVE_PLURAL
    24082394static BOOLEAN jjPlural_num_poly(leftv res, leftv a, leftv b)
    … …  
    24102396  return nc_CallPlural(NULL,NULL,(poly)a->Data(),(poly)b->Data(),currRing);
    24112397}
    2412 
    24132398static BOOLEAN jjPlural_num_mat(leftv res, leftv a, leftv b)
    24142399{
    24152400  return nc_CallPlural(NULL,(matrix)b->Data(),(poly)a->Data(),NULL,currRing);
    24162401}
    2417 
    24182402static BOOLEAN jjPlural_mat_poly(leftv res, leftv a, leftv b)
    24192403{
    24202404  return nc_CallPlural((matrix)a->Data(),NULL,NULL,(poly)b->Data(),currRing);
    24212405}
    2422 
    24232406static BOOLEAN jjPlural_mat_mat(leftv res, leftv a, leftv b)
    24242407{
    24252408  return nc_CallPlural((matrix)a->Data(),(matrix)b->Data(),NULL,NULL,currRing);
    24262409}
    2427 
    24282410static BOOLEAN jjBRACKET(leftv res, leftv a, leftv b)
    24292411{
    … …  
    24372419  return FALSE;
    24382420}
    2439 
    24402421static BOOLEAN jjOPPOSE(leftv res, leftv a, leftv b)
    24412422{
    … …  
    25482529{
    25492530  assumeStdFlag(v);
    2550   ideal Q = currQuotient;
    2551 
    2552 #ifdef HAVE_PLURAL
    2553 //   if(rIsSCA(currRing))
    2554 //     Q = currRing->nc->SCAQuotient();
    2555 #endif
    2556  
    2557   res->data = (char *)kNF((ideal)v->Data(),Q,(poly)u->Data());
     2531  res->data = (char *)kNF((ideal)v->Data(),currQuotient,(poly)u->Data());
    25582532  return FALSE;
    25592533}
    … …  
    25652539  ideal vi=(ideal)v->Data();
    25662540  idTest(vi);
    2567   ideal Q = currQuotient;
    2568 
    2569 #ifdef HAVE_PLURAL
    2570 //   if(rIsSCA(currRing))
    2571 //     Q = currRing->nc->SCAQuotient();
    2572 #endif
    2573  
    2574   res->data = (char *)kNF(vi,Q,ui);
     2541  res->data = (char *)kNF(vi,currQuotient,ui);
    25752542  return FALSE;
    25762543}
    … …  
    26112578    }
    26122579  }
    2613 
    26142580  intvec *ww=NULL;
    26152581  int add_row_shift=0;
    … …  
    27372703     (*ww) -= add_row_shift;
    27382704  }
    2739 
    27402705  if ((iiOp == RES_CMD) || (iiOp == MRES_CMD))
    27412706  {
    … …  
    29792944  BITSET save_test=test;
    29802945  test|=Sy_bit(OPT_SB_1);
    2981 
    2982   ideal Q = currQuotient;
    2983 
    2984 #ifdef HAVE_PLURAL
    2985 //   if(rIsSCA(currRing))
    2986 //     Q = currRing->nc->SCAQuotient();
    2987 #endif
    2988 
    2989   result=kStd(i1,Q,hom,&w,NULL,0,IDELEMS(i1)-ii0);
     2946  result=kStd(i1,currQuotient,hom,&w,NULL,0,IDELEMS(i1)-ii0);
    29902947  test=save_test;
    29912948  idDelete(&i1);
    … …  
    32553212,{jjFIND2,     FIND_CMD,       INT_CMD,        STRING_CMD, STRING_CMD ALLOW_PLURAL}
    32563213,{jjFWALK,     FWALK_CMD,      IDEAL_CMD,      RING_CMD,   DEF_CMD NO_PLURAL}
    3257 
    32583214,{jjGCD_I,     GCD_CMD,        INT_CMD,        INT_CMD,    INT_CMD ALLOW_PLURAL}
    32593215,{jjGCD_N,     GCD_CMD,        NUMBER_CMD,     NUMBER_CMD, NUMBER_CMD ALLOW_PLURAL}
    … …  
    34873443    nlDelete(&n,NULL);
    34883444    return bo;
    3489   } 
     3445  }
    34903446}
    34913447static BOOLEAN jjBI2P(leftv res, leftv u)
    … …  
    38993855static BOOLEAN jjINTERRED(leftv res, leftv v)
    39003856{
    3901   ideal Q = currQuotient;
    3902  
    3903 #ifdef HAVE_PLURAL
    3904 //   if(rIsSCA(currRing))
    3905 //     Q = currRing->nc->SCAQuotient();
    3906 #endif
    3907  
    3908   ideal result=kInterRed((ideal)(v->Data()), Q);
     3857  ideal result=kInterRed((ideal)(v->Data()), currQuotient);
    39093858  if (TEST_OPT_PROT) { PrintLn(); mflush(); }
    39103859  res->data = result;
    … …  
    40493998    res->data = (char *)jjLONG2N(om_Info.MaxBytesSystem);
    40503999    break;
    4051 
    40524000  default:
    40534001    omPrintStats(stdout);
    … …  
    40824030  int t=v->Typ();
    40834031  ideal r,m;
    4084   ideal Q = currQuotient;
    4085 
    4086 #ifdef HAVE_PLURAL
    4087 //   if(rIsSCA(currRing))
    4088 //     Q = currRing->nc->SCAQuotient();
    4089 #endif
    4090  
    4091   r=kMin_std((ideal)v->Data(),Q,testHomog,NULL,m);
     4032  r=kMin_std((ideal)v->Data(),currQuotient,testHomog,NULL,m);
    40924033  lists l=(lists)omAllocBin(slists_bin);
    40934034  l->Init(2);
    … …  
    43224263#else
    43234264  const bool bIsSCA = false;
    4324 #endif 
    4325    
     4265#endif
     4266
    43264267  if ((currQuotient!=NULL) && !bIsSCA)
    43274268  {
    … …  
    43794320    }
    43804321  }
    4381   ideal Q = currQuotient;
    4382 
    4383 #ifdef HAVE_PLURAL
    4384 //   if(rIsSCA(currRing))
    4385 //     Q = currRing->nc->SCAQuotient();
    4386 #endif
    4387  
    4388   result=kStd(v_id,Q,hom,&w);
     4322  result=kStd(v_id,currQuotient,hom,&w);
    43894323  idSkipZeroes(result);
    43904324  res->data = (char *)result;
    … …  
    44464380  return FALSE;
    44474381}
    4448 
    44494382#ifdef HAVE_PLURAL
    4450 
    44514383static BOOLEAN jjOPPOSITE(leftv res, leftv a)
    44524384{
    … …  
    44594391  return FALSE;
    44604392}
    4461 
    44624393static BOOLEAN jjENVELOPE(leftv res, leftv a)
    44634394{
    … …  
    44834414  return FALSE;
    44844415}
    4485 
    44864416static BOOLEAN jjTWOSTD(leftv res, leftv a)
    44874417{
    … …  
    58045734{
    58055735  assumeStdFlag(v);
    5806   ideal Q = currQuotient;
    5807 
    5808 #ifdef HAVE_PLURAL
    5809 //   if(rIsSCA(currRing))
    5810 //     Q = currRing->nc->SCAQuotient();
    5811 #endif
    5812  
    5813   res->data = (char *)kNF((ideal)v->Data(),Q,(poly)u->Data(),
     5736  res->data = (char *)kNF((ideal)v->Data(),currQuotient,(poly)u->Data(),
    58145737    0,(int)(long)w->Data());
    58155738  return FALSE;
    … …  
    58185741{
    58195742  assumeStdFlag(v);
    5820   ideal Q = currQuotient;
    5821 
    5822 #ifdef HAVE_PLURAL
    5823 //   if(rIsSCA(currRing))
    5824 //     Q = currRing->nc->SCAQuotient();
    5825 #endif
    5826 
    5827  
    5828   res->data = (char *)kNF((ideal)v->Data(),Q,(ideal)u->Data(),
     5743  res->data = (char *)kNF((ideal)v->Data(),currQuotient,(ideal)u->Data(),
    58295744    0,(int)(long)w->Data());
    58305745  return FALSE;
    … …  
    79527867            memcpy(&d->arg2,a->next,sizeof(sleftv));
    79537868            a->next->Init();
    7954             a->next->next=d->arg2.next;
     7869            a->next->next=d->arg2.next;
    79557870            d->arg2.next=NULL;
    79567871            /* no break */
    79577872          case 1:
    79587873            a->Init();
    7959             a->next=d->arg1.next;
     7874            a->next=d->arg1.next;
    79607875            d->arg1.next=NULL;
    79617876        }
    7962         if (d->argc>3) a->next=NULL;
     7877        if (d->argc>3) a->next=NULL;
    79637878        a->name=NULL;
    79647879        a->rtyp=0;
Note: See TracChangeset for help on using the changeset viewer.