- Timestamp:
- May 11, 2011, 1:29:30 PM (12 years ago)
- Branches:
- (u'spielwiese', 'a7324b6e0b44a1a8ed3fa4d9ca3e2ff210ddd52c')
- Children:
- ca1eb1a729253498d9506a95c9dc7fbaa646acc6
- Parents:
- 50612e2a61efff5f199e310834c46d4452b2cf8d
- git-author:
- Hans Schoenemann <hannes@mathematik.uni-kl.de>2011-05-11 13:29:30+02:00
- git-committer:
- Mohamed Barakat <mohamed.barakat@rwth-aachen.de>2011-11-09 12:36:03+01:00
- Location:
- libpolys/coeffs
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
libpolys/coeffs/ffields.cc
r50612e2 r121fd9 184 184 * the generating element `z` 185 185 */ 186 number nfPar (int i, const coeffs r) 187 { 186 number nfPar (int i, const coeffs) 187 { 188 assume(i==1); 188 189 return (number)1; 189 190 } -
libpolys/coeffs/gnumpc.cc
r50612e2 r121fd9 42 42 { 43 43 assume( getCoeffType(r) == ID ); 44 assume(i==1); 44 45 45 46 gmp_complex* n= new gmp_complex( (long)0, (long)1 ); … … 371 372 omFree( (void *)out ); 372 373 } 373 }374 375 376 377 /// test, whether r is an instance of nInitCoeffs(n, parameter)378 static BOOLEAN ngcCoeffsEqual(const coeffs r, n_coeffType n, void*)379 {380 assume( getCoeffType(r) == ID );381 382 return (n == ID);383 374 } 384 375 … … 419 410 #endif 420 411 421 n->nCoeffIsEqual = n gcCoeffsEqual;412 n->nCoeffIsEqual = ndCoeffIsEqual; 422 413 423 414 … … 489 480 /// TODO: Any variables? 490 481 if( p == NULL ) 491 n->complex_parameter = "i"; //??482 n->complex_parameter = omStrDup((char*)"i"); 492 483 else 493 484 n->complex_parameter = omStrDup( (char*) p ); -
libpolys/coeffs/gnumpfl.cc
r50612e2 r121fd9 381 381 } 382 382 383 /// test, whether r is an instance of nInitCoeffs(n, parameter)384 static BOOLEAN ngfCoeffsEqual(const coeffs r, n_coeffType n, void*)385 {386 assume( getCoeffType(r) == ID );387 388 return (n == ID);389 }390 391 383 BOOLEAN ngfInitChar(coeffs n, void *) 392 384 { … … 421 413 #endif 422 414 423 n->nCoeffIsEqual = n gfCoeffsEqual;415 n->nCoeffIsEqual = ndCoeffIsEqual; 424 416 return FALSE; 425 417 } -
libpolys/coeffs/longrat.cc
r50612e2 r121fd9 499 499 //} 500 500 501 int nlSize(number a, const coeffs r)501 int nlSize(number a, const coeffs) 502 502 { 503 503 if (a==INT_TO_SR(0)) … … 2098 2098 } 2099 2099 2100 LINLINE BOOLEAN nlIsZero (number a, const coeffs r)2100 LINLINE BOOLEAN nlIsZero (number a, const coeffs) 2101 2101 { 2102 2102 return (a==INT_TO_SR(0)); … … 2107 2107 * copy a to b 2108 2108 */ 2109 LINLINE number nlCopy(number a, const coeffs r)2109 LINLINE number nlCopy(number a, const coeffs) 2110 2110 { 2111 2111 if ((SR_HDL(a) & SR_INT)||(a==NULL)) … … 2517 2517 } 2518 2518 2519 static BOOLEAN nlCoeffsEqual(const coeffs r, n_coeffType n, void * parameter)2520 {2521 /* test, if r is an instance of nInitCoeffs(n,parameter) */2522 return (n==n_Q);2523 }2524 2525 2519 void nlCoeffWrite (const coeffs r) 2526 2520 { … … 2534 2528 r->cfKillChar=NULL; 2535 2529 r->cfSetChar=NULL; 2536 r->nCoeffIsEqual=n lCoeffsEqual;2530 r->nCoeffIsEqual=ndCoeffIsEqual; 2537 2531 r->cfKillChar = ndKillChar; /* dummy */ 2538 2532 … … 2586 2580 #endif 2587 2581 2588 r->nCoeffIsEqual = nlCoeffsEqual;2589 2590 2582 // the variables: general stuff (required) 2591 2583 r->nNULL = INT_TO_SR(0); -
libpolys/coeffs/numbers.cc
r50612e2 r121fd9 93 93 int ndParDeg(number n, const coeffs r) { return 0; } 94 94 95 number ndGcd(number a, number b, const coeffs r) { return n_Init(1,r); }96 97 number ndIntMod(number a, number b, const coeffs r) { return n_Init(0,r); }98 99 number ndGetDenom(number & n, const coeffs r) { return n_Init(1,r); }95 number ndGcd(number, number, const coeffs r) { return n_Init(1,r); } 96 97 number ndIntMod(number, number, const coeffs r) { return n_Init(0,r); } 98 99 number ndGetDenom(number &, const coeffs r) { return n_Init(1,r); } 100 100 number ndGetNumerator(number &a,const coeffs r) { return n_Copy(a,r); } 101 101 … … 136 136 #endif 137 137 138 number ndInit_bigint(number i, const coeffs dummy, const coeffs dst)138 number ndInit_bigint(number, const coeffs, const coeffs) 139 139 { 140 140 Werror("no conversion from bigint to this field"); 141 141 return NULL; 142 } 143 144 145 BOOLEAN ndCoeffIsEqual(const coeffs r, n_coeffType n, void *) 146 { 147 /* test, if r is an instance of nInitCoeffs(n,parameter) */ 148 /* if paramater is not needed */ 149 return (n==r->type); 142 150 } 143 151 -
libpolys/coeffs/numbers.h
r50612e2 r121fd9 74 74 number ndInit_bigint(number i, const coeffs dummy, const coeffs dst); 75 75 76 BOOLEAN ndCoeffIsEqual(const coeffs r, n_coeffType n, void * parameter); 77 76 78 /// Test whether a is a zero divisor in r 77 79 /// i.e. not coprime with char. of r -
libpolys/coeffs/shortfl.cc
r50612e2 r121fd9 12 12 #include <string.h> 13 13 #include <coeffs/coeffs.h> 14 #include <coeffs/numbers.h> 14 15 #include <reporter/reporter.h> 15 16 #include <coeffs/numbers.h> … … 540 541 return NULL; 541 542 } 542 543 544 545 546 547 /// test, whether r is an instance of nInitCoeffs(n, parameter)548 static BOOLEAN nrCoeffsEqual(const coeffs r, n_coeffType n, void*)549 {550 assume( getCoeffType(r) == ID );551 552 return (n == ID);553 }554 555 543 556 544 BOOLEAN nrInitChar(coeffs n, void*) … … 587 575 #endif 588 576 589 n->nCoeffIsEqual = n rCoeffsEqual;577 n->nCoeffIsEqual = ndCoeffIsEqual; 590 578 591 579 // TODO: Any variables?
Note: See TracChangeset
for help on using the changeset viewer.