Changeset c16aa0 in git
- Timestamp:
- Sep 15, 2010, 6:57:37 PM (13 years ago)
- Branches:
- (u'spielwiese', '8d54773d6c9e2f1d2593a28bc68b7eeab54ed529')
- Children:
- 2f6fc61a1a128638d659e6d6e3d666b11f9e763a
- Parents:
- c722540c7b58ede1c51a513cbac110db441c9c7f
- Location:
- Singular
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/extra.cc
rc72254 rc16aa0 3291 3291 #endif 3292 3292 /*==================== gcd-varianten =================*/ 3293 #ifdef HAVE_FACTORY 3293 3294 if (strcmp(sys_cmd, "gcd") == 0) 3294 3295 { … … 3327 3328 } 3328 3329 else 3330 #endif 3329 3331 /*==================== subring =================*/ 3330 3332 if (strcmp(sys_cmd, "subring") == 0) … … 3341 3343 else 3342 3344 /*==================== HNF =================*/ 3345 #ifdef HAVE_FACTORY 3343 3346 if (strcmp(sys_cmd, "HNF") == 0) 3344 3347 { … … 3361 3364 } 3362 3365 else 3366 #endif 3363 3367 #ifdef ix86_Win 3364 3368 /*==================== Python Singular =================*/ -
Singular/interpolation.cc
rc72254 rc16aa0 14 14 #include <Singular/ipid.h> 15 15 #include <kernel/ring.h> 16 #include <factory.h> 16 #ifdef HAVE_FACTORY 17 //#include <factory.h> 18 #endif 17 19 18 20 //memory management … … 1038 1040 modp_number TakePrime (modp_number p) // takes "previous" (smaller) prime 1039 1041 { 1040 modp_number d; 1042 #ifdef HAVE_FACTORY 1041 1043 myp_index--; 1042 1044 return cf_getSmallPrime(myp_index); 1045 #else 1046 return IsPrime(p-1); 1047 #endif 1043 1048 } 1044 1049 … … 1621 1626 bool correct_gen=false; 1622 1627 if (only_modp) modp_cycles=1; 1628 #ifdef HAVE_FACTORY 1623 1629 myp_index=cf_getNumSmallPrimes (); 1630 #endif 1624 1631 1625 1632 while ((!correct_gen)&&(myp_index>1)) -
Singular/iparith.cc
rc72254 rc16aa0 1754 1754 return r; 1755 1755 } 1756 #ifdef HAVE_FACTORY 1756 1757 static BOOLEAN jjCHINREM_BI(leftv res, leftv u, leftv v) 1757 1758 { … … 1781 1782 else return TRUE; 1782 1783 } 1784 #endif 1783 1785 #if 0 1784 1786 static BOOLEAN jjCHINREM_P(leftv res, leftv u, leftv v) … … 1844 1846 } 1845 1847 #endif 1848 #ifdef HAVE_FACTORY 1846 1849 static BOOLEAN jjCHINREM_ID(leftv res, leftv u, leftv v) 1847 1850 { … … 1922 1925 else return TRUE; 1923 1926 } 1927 #endif 1924 1928 static BOOLEAN jjCOEF(leftv res, leftv u, leftv v) 1925 1929 { … … 3625 3629 ,{jjBRACKET, BRACKET_CMD, POLY_CMD, POLY_CMD, POLY_CMD, ALLOW_PLURAL | NO_RING} 3626 3630 #endif 3631 #ifdef HAVE_FACTORY 3627 3632 ,{jjCHINREM_BI,CHINREM_CMD, BIGINT_CMD, INTVEC_CMD, INTVEC_CMD, ALLOW_PLURAL |ALLOW_RING} 3628 3633 //,{jjCHINREM_P, CHINREM_CMD, POLY_CMD, LIST_CMD, INTVEC_CMD, ALLOW_PLURAL} 3629 3634 ,{jjCHINREM_ID,CHINREM_CMD, ANY_TYPE/*set by p*/,LIST_CMD,INTVEC_CMD, ALLOW_PLURAL |NO_RING} 3630 3635 ,{jjCHINREM_ID,CHINREM_CMD, ANY_TYPE/*set by p*/,LIST_CMD,LIST_CMD, ALLOW_PLURAL |NO_RING} 3636 #else 3637 ,{jjWRONG2, CHINREM_CMD, BIGINT_CMD, INTVEC_CMD, INTVEC_CMD, ALLOW_PLURAL |ALLOW_RING} 3638 #endif 3631 3639 ,{jjCOEF, COEF_CMD, MATRIX_CMD, POLY_CMD, POLY_CMD, ALLOW_PLURAL |ALLOW_RING} 3632 3640 ,{jjCOEFFS_Id, COEFFS_CMD, MATRIX_CMD, IDEAL_CMD, POLY_CMD, ALLOW_PLURAL |ALLOW_RING} … … 5621 5629 ,{jjSort_Id, SORTVEC_CMD, INTVEC_CMD, IDEAL_CMD , ALLOW_PLURAL |ALLOW_RING} 5622 5630 ,{jjSort_Id, SORTVEC_CMD, INTVEC_CMD, MODUL_CMD , ALLOW_PLURAL |ALLOW_RING} 5631 #ifdef HAVE_FACTORY 5623 5632 ,{jjSQR_FREE, SQR_FREE_CMD, IDEAL_CMD, POLY_CMD , NO_PLURAL |ALLOW_RING} 5633 #else 5634 ,{jjWRONG, SQR_FREE_CMD, IDEAL_CMD, POLY_CMD , NO_PLURAL |ALLOW_RING} 5635 #endif 5624 5636 ,{jjSTD, STD_CMD, IDEAL_CMD, IDEAL_CMD , ALLOW_PLURAL |ALLOW_RING} 5625 5637 ,{jjSTD, STD_CMD, MODUL_CMD, MODUL_CMD , ALLOW_PLURAL |ALLOW_RING} -
Singular/ipshell.cc
rc72254 rc16aa0 2674 2674 #endif 2675 2675 2676 #ifdef HAVE_FACTORY 2676 2677 BOOLEAN jjRESULTANT(leftv res, leftv u, leftv v, leftv w) 2677 2678 { … … 2684 2685 return (res->data==NULL); 2685 2686 } 2687 #endif 2686 2688 2687 2689 // from semic.cc
Note: See TracChangeset
for help on using the changeset viewer.