Changeset a3bc95e in git for Singular/prCopy.cc
- Timestamp:
- Oct 9, 2001, 6:36:27 PM (23 years ago)
- Branches:
- (u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
- Children:
- 7497ef3773fc1afff892546445b1d82b1cf0fb05
- Parents:
- e58c4abd91b68d128331a23f3f9dd76dff924048
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/prCopy.cc
re58c4a ra3bc95e 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: prCopy.cc,v 1.1 1 2000-12-31 15:14:43 obachmanExp $ */4 /* $Id: prCopy.cc,v 1.12 2001-10-09 16:36:19 Singular Exp $ */ 5 5 /* 6 6 * ABSTRACT - implementation of functions for Copy/Move/Delete for Polys … … 16 16 #include "sbuckets.h" 17 17 18 static inline void 18 static inline void 19 19 prCopyEvector(poly dest, ring dest_r, poly src, ring src_r,int max) 20 20 { … … 41 41 { 42 42 poly res; 43 43 44 44 if (rField_has_simple_Alloc(currRing)) 45 45 res = pr_Copy_REqual_NSimple_NoSort(p, currRing, currRing); … … 92 92 else 93 93 res = pr_Move_NoREqual_NoNSimple_NoSort(p, src_r, currRing); 94 pTest(res); 95 return res; 96 } 97 94 pTest(res); 95 return res; 96 } 97 98 98 ///////////////////////////////////////////////////////////////////////// 99 99 // prHead … … 114 114 { 115 115 prCopyProc_t prproc; 116 if (rField_has_simple_Alloc(currRing)) 116 if (rField_has_simple_Alloc(currRing)) 117 117 prproc = pr_Copy_NoREqual_NSimple_NoSort; 118 118 else 119 prproc = pr_Copy_NoREqual_NoNSimple_NoSort; 120 119 prproc = pr_Copy_NoREqual_NoNSimple_NoSort; 120 121 121 return prHeadR(p, src_r, prproc); 122 122 } … … 124 124 ///////////////////////////////////////////////////////////////////////// 125 125 // idrCopy 126 static inline ideal 126 static inline ideal 127 127 idrCopy(ideal id, ring src_r, ring dest_r, prCopyProc_t prproc) 128 128 { … … 131 131 ideal res = idInit(IDELEMS(id), id->rank); 132 132 int i; 133 133 134 134 for (i=IDELEMS(id)-1; i>=0; i--) 135 135 { … … 145 145 ideal res; 146 146 prCopyProc_t prproc; 147 if (rField_has_simple_Alloc(currRing)) 147 if (rField_has_simple_Alloc(currRing)) 148 148 prproc = pr_Copy_REqual_NSimple_NoSort; 149 149 else … … 157 157 ideal res; 158 158 prCopyProc_t prproc; 159 if (rField_has_simple_Alloc(currRing)) 159 if (rField_has_simple_Alloc(currRing)) 160 160 prproc = pr_Copy_NoREqual_NSimple_Sort; 161 161 else … … 164 164 return res; 165 165 } 166 166 167 167 ideal idrCopyR_NoSort(ideal id, ring src_r) 168 168 { 169 169 ideal res; 170 170 prCopyProc_t prproc; 171 if (rField_has_simple_Alloc(currRing)) 171 if (rField_has_simple_Alloc(currRing)) 172 172 prproc = pr_Copy_NoREqual_NSimple_NoSort; 173 173 else … … 176 176 return res; 177 177 } 178 178 179 179 ///////////////////////////////////////////////////////////////////////// 180 180 // idrMove 181 static inline ideal 181 static inline ideal 182 182 idrMove(ideal &id, ring src_r, ring dest_r, prCopyProc_t prproc) 183 183 { 184 184 if (id == NULL) return NULL; 185 185 ideal res = id; 186 186 187 187 int i; 188 188 for (i=IDELEMS(id)-1; i>=0; i--) … … 196 196 prCopyProc_t prproc; 197 197 ideal res; 198 199 if (rField_has_simple_Alloc(currRing)) 198 199 if (rField_has_simple_Alloc(currRing)) 200 200 prproc = pr_Move_NoREqual_NSimple_Sort; 201 201 else … … 204 204 return res; 205 205 } 206 206 207 207 ideal idrMoveR_NoSort(ideal &id, ring src_r) 208 208 { 209 209 prCopyProc_t prproc; 210 210 ideal res; 211 212 if (rField_has_simple_Alloc(currRing)) 211 212 if (rField_has_simple_Alloc(currRing)) 213 213 prproc = pr_Move_NoREqual_NSimple_NoSort; 214 214 else
Note: See TracChangeset
for help on using the changeset viewer.