Ignore:
Timestamp:
Jul 18, 2012, 3:28:22 PM (11 years ago)
Author:
Oleksandr Motsak <motsak@…>
Branches:
(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'c987db42cd2ec943b97ac5746c99892ceddf909c')
Children:
91ecf187772d8c5893550eabd5abde87d2f29b9c
Parents:
975db1808b2b0917d858a9096710abc55c256aec
git-author:
Oleksandr Motsak <motsak@mathematik.uni-kl.de>2012-07-18 15:28:22+02:00
git-committer:
Oleksandr Motsak <motsak@mathematik.uni-kl.de>2012-07-18 15:41:07+02:00
Message:
Added stubs for putting the actual code (TODO!), where required (i.e. described) by Hans

chg: descriptions for the output number (n_ClearContent & n_ClearDenominators)
chg: publicly available default implementations ndClearContent & ndClearDenominators for fallback calls
File:
1 edited

Legend:

Unmodified
Added
Removed
  • libpolys/polys/ext_fields/algext.cc

    r975db18 rde88371  
    831831}
    832832
     833static void naClearContent(ICoeffsEnumerator& /*numberCollectionEnumerator*/, number& c, const coeffs cf)
     834{
     835  assume(cf != NULL);
     836  assume(getCoeffType(cf) == ID);
     837  assume(nCoeff_is_Q_a(cf)); // only over Q[a]/m(a), while the default impl. is used over Zp[a]/m(a) !
     838  // all coeffs are given by integers!!!
     839
     840  c = n_Init(1, cf);
     841  assume(FALSE); // TODO: NOT YET IMPLEMENTED!!!
     842
     843//   numberCollectionEnumerator.Reset();
     844//
     845//   c = numberCollectionEnumerator.Current();
     846//
     847//   n_Normalize(c, r);
     848//
     849//   if (!n_IsOne(c, r))
     850//   {   
     851//     numberCollectionEnumerator.Current() = n_Init(1, r); // ???
     852//
     853//     number inv = n_Invers(c, r);
     854//
     855//     while( numberCollectionEnumerator.MoveNext() )
     856//     {
     857//       number &n = numberCollectionEnumerator.Current();
     858//       n_Normalize(n, r); // ?
     859//       n_InpMult(n, inv, r);
     860//     }
     861//
     862//     n_Delete(&inv, r);
     863//   }
     864}
     865
     866
    833867BOOLEAN naInitChar(coeffs cf, void * infoStruct)
    834868{
     
    914948  cf->cfParameter = naParameter;
    915949
     950  if( nCoeff_is_Q(R->cf) )
     951    cf->cfClearContent = naClearContent;
     952 
    916953  return FALSE;
    917954}
Note: See TracChangeset for help on using the changeset viewer.