Changeset 1b70fe in git


Ignore:
Timestamp:
Sep 10, 2013, 7:08:23 PM (10 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'f875bbaccd0831e36aaed09ff6adeb3eb45aeb94')
Children:
7a09e1d6d0251363fa537e336d28f280643b495f
Parents:
061ea6700f4772007cf2ff429e82b76923253bb9
git-author:
Hans Schoenemann <hannes@mathematik.uni-kl.de>2013-09-10 19:08:23+02:00
git-committer:
Hans Schoenemann <hannes@mathematik.uni-kl.de>2013-09-10 19:09:03+02:00
Message:
removed rIsExtension
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • Singular/ipshell.cc

    r061ea67 r1b70fe  
    17961796  }
    17971797#endif
    1798   else if (rIsExtension(r))
    1799   {
    1800     if ( r->cf->extRing!=NULL )// nCoeff_is_algExt(r->cf))
    1801     {
    1802       rDecomposeCF(&(L->m[0]), r->cf->extRing, r);
    1803     }
    1804     else
    1805     {
    1806       assume( nCoeff_is_GF(r->cf) );
    1807 
    1808       lists Lc=(lists)omAlloc0Bin(slists_bin);
    1809       Lc->Init(4);
    1810       // char:
    1811       Lc->m[0].rtyp=INT_CMD;
    1812       Lc->m[0].data=(void*)r->cf->m_nfCharQ;
    1813       // var:
    1814       lists Lv=(lists)omAlloc0Bin(slists_bin);
    1815       Lv->Init(1);
    1816       Lv->m[0].rtyp=STRING_CMD;
    1817       Lv->m[0].data=(void *)omStrDup(*rParameter(r));
    1818       Lc->m[1].rtyp=LIST_CMD;
    1819       Lc->m[1].data=(void*)Lv;
    1820       // ord:
    1821       lists Lo=(lists)omAlloc0Bin(slists_bin);
    1822       Lo->Init(1);
    1823       lists Loo=(lists)omAlloc0Bin(slists_bin);
    1824       Loo->Init(2);
    1825       Loo->m[0].rtyp=STRING_CMD;
    1826       Loo->m[0].data=(void *)omStrDup(rSimpleOrdStr(ringorder_lp));
    1827 
    1828       intvec *iv=new intvec(1); (*iv)[0]=1;
    1829       Loo->m[1].rtyp=INTVEC_CMD;
    1830       Loo->m[1].data=(void *)iv;
    1831 
    1832       Lo->m[0].rtyp=LIST_CMD;
    1833       Lo->m[0].data=(void*)Loo;
    1834 
    1835       Lc->m[2].rtyp=LIST_CMD;
    1836       Lc->m[2].data=(void*)Lo;
    1837       // q-ideal:
    1838       Lc->m[3].rtyp=IDEAL_CMD;
    1839       Lc->m[3].data=(void *)idInit(1,1);
    1840       // ----------------------
    1841       L->m[0].rtyp=LIST_CMD;
    1842       L->m[0].data=(void*)Lc;
    1843     }
    1844     if (L->m[0].rtyp==0)
    1845     {
    1846       //omFreeBin(slists_bin,(void *)L);
    1847       return NULL;
    1848     }
     1798  else if ( r->cf->extRing!=NULL )// nCoeff_is_algExt(r->cf))
     1799  {
     1800    rDecomposeCF(&(L->m[0]), r->cf->extRing, r);
     1801  }
     1802  else if(rField_is_GF(r))
     1803  {
     1804    lists Lc=(lists)omAlloc0Bin(slists_bin);
     1805    Lc->Init(4);
     1806    // char:
     1807    Lc->m[0].rtyp=INT_CMD;
     1808    Lc->m[0].data=(void*)r->cf->m_nfCharQ;
     1809    // var:
     1810    lists Lv=(lists)omAlloc0Bin(slists_bin);
     1811    Lv->Init(1);
     1812    Lv->m[0].rtyp=STRING_CMD;
     1813    Lv->m[0].data=(void *)omStrDup(*rParameter(r));
     1814    Lc->m[1].rtyp=LIST_CMD;
     1815    Lc->m[1].data=(void*)Lv;
     1816    // ord:
     1817    lists Lo=(lists)omAlloc0Bin(slists_bin);
     1818    Lo->Init(1);
     1819    lists Loo=(lists)omAlloc0Bin(slists_bin);
     1820    Loo->Init(2);
     1821    Loo->m[0].rtyp=STRING_CMD;
     1822    Loo->m[0].data=(void *)omStrDup(rSimpleOrdStr(ringorder_lp));
     1823
     1824    intvec *iv=new intvec(1); (*iv)[0]=1;
     1825    Loo->m[1].rtyp=INTVEC_CMD;
     1826    Loo->m[1].data=(void *)iv;
     1827
     1828    Lo->m[0].rtyp=LIST_CMD;
     1829    Lo->m[0].data=(void*)Loo;
     1830
     1831    Lc->m[2].rtyp=LIST_CMD;
     1832    Lc->m[2].data=(void*)Lo;
     1833    // q-ideal:
     1834    Lc->m[3].rtyp=IDEAL_CMD;
     1835    Lc->m[3].data=(void *)idInit(1,1);
     1836    // ----------------------
     1837    L->m[0].rtyp=LIST_CMD;
     1838    L->m[0].data=(void*)Lc;
    18491839  }
    18501840  else
  • libpolys/polys/monomials/ring.h

    r061ea67 r1b70fe  
    636636
    637637
    638 /* R, Q, Fp: FALSE */
    639 static inline BOOLEAN rIsExtension(const ring r)
    640 {
    641   assume(r != NULL);
    642   const coeffs C = r->cf;
    643   assume(C != NULL);
    644   return nCoeff_is_Extension(C) || nCoeff_is_GF(C) || nCoeff_is_long_C(C);
    645 }
    646 
    647638/// Tests whether '(r->cf->minpoly) == NULL'
    648639static inline BOOLEAN rMinpolyIsNULL(const ring r)
  • libpolys/polys/sparsmat.cc

    r061ea67 r1b70fe  
    311311  poly p;
    312312
    313   if ((d>100) || (rIsExtension(r)))
     313  if (d>100)
    314314    return sw;
    315315  if (!rField_is_Q(r))
Note: See TracChangeset for help on using the changeset viewer.