Data Structures | Typedefs | Functions | Variables
p_Procs.h File Reference
#include "polys/monomials/ring.h"

Go to the source code of this file.

Data Structures

struct  pProcs_s
 

Typedefs

typedef poly(* p_Copy_Proc_Ptr) (poly p, const ring r)
 
typedef void(* p_Delete_Proc_Ptr) (poly *p, const ring r)
 
typedef poly(* p_ShallowCopyDelete_Proc_Ptr) (poly p, const ring r, omBin dest_bin)
 
typedef poly(* p_Mult_nn_Proc_Ptr) (poly p, const number n, const ring r)
 
typedef poly(* pp_Mult_nn_Proc_Ptr) (poly p, const number n, const ring r)
 
typedef poly(* p_Mult_mm_Proc_Ptr) (poly p, const poly m, const ring r)
 
typedef poly(* pp_Mult_mm_Proc_Ptr) (poly p, const poly m, const ring r)
 
typedef poly(* pp_Mult_mm_Noether_Proc_Ptr) (poly p, const poly m, const poly spNoether, int &ll, const ring r)
 
typedef poly(* p_Add_q_Proc_Ptr) (poly p, poly q, int &shorter, const ring r)
 
typedef poly(* p_Minus_mm_Mult_qq_Proc_Ptr) (poly p, poly m, poly q, int &shorter, const poly spNoether, const ring r)
 
typedef poly(* p_Neg_Proc_Ptr) (poly p, const ring r)
 
typedef poly(* pp_Mult_Coeff_mm_DivSelect_Proc_Ptr) (poly p, const poly m, int &shorter, const ring r)
 
typedef poly(* pp_Mult_Coeff_mm_DivSelectMult_Proc_Ptr) (poly p, const poly m, const poly a, const poly b, int &shorter, const ring r)
 
typedef poly(* p_Merge_q_Proc_Ptr) (poly p, poly q, const ring r)
 
typedef void(* p_kBucketSetLm_Proc_Ptr) (kBucket_pt bucket)
 

Functions

void p_ProcsSet (ring r, p_Procs_s *p_Procs)
 
void p_Debug_GetSpecNames (const ring r, const char *&field, const char *&length, const char *&ord)
 
void p_Debug_GetProcNames (const ring r, p_Procs_s *p_Procs)
 

Variables

const BOOLEAN p_procs_dynamic
 

Data Structure Documentation

◆ pProcs_s

struct pProcs_s

Definition at line 40 of file p_Procs.h.

Data Fields
p_Add_q_Proc_Ptr p_Add_q
p_Copy_Proc_Ptr p_Copy
p_Delete_Proc_Ptr p_Delete
p_kBucketSetLm_Proc_Ptr p_kBucketSetLm
p_Merge_q_Proc_Ptr p_Merge_q
p_Minus_mm_Mult_qq_Proc_Ptr p_Minus_mm_Mult_qq
p_Mult_mm_Proc_Ptr p_mm_Mult
p_Mult_mm_Proc_Ptr p_Mult_mm
p_Mult_nn_Proc_Ptr p_Mult_nn
p_Neg_Proc_Ptr p_Neg
p_ShallowCopyDelete_Proc_Ptr p_ShallowCopyDelete
pp_Mult_mm_Proc_Ptr pp_mm_Mult
pp_Mult_Coeff_mm_DivSelect_Proc_Ptr pp_Mult_Coeff_mm_DivSelect
pp_Mult_Coeff_mm_DivSelectMult_Proc_Ptr pp_Mult_Coeff_mm_DivSelectMult
pp_Mult_mm_Proc_Ptr pp_Mult_mm
pp_Mult_mm_Noether_Proc_Ptr pp_Mult_mm_Noether
pp_Mult_nn_Proc_Ptr pp_Mult_nn

Typedef Documentation

◆ p_Add_q_Proc_Ptr

typedef poly(* p_Add_q_Proc_Ptr) (poly p, poly q, int &shorter, const ring r)

Definition at line 27 of file p_Procs.h.

◆ p_Copy_Proc_Ptr

typedef poly(* p_Copy_Proc_Ptr) (poly p, const ring r)

Definition at line 17 of file p_Procs.h.

◆ p_Delete_Proc_Ptr

typedef void(* p_Delete_Proc_Ptr) (poly *p, const ring r)

Definition at line 18 of file p_Procs.h.

◆ p_kBucketSetLm_Proc_Ptr

typedef void(* p_kBucketSetLm_Proc_Ptr) (kBucket_pt bucket)

Definition at line 38 of file p_Procs.h.

◆ p_Merge_q_Proc_Ptr

typedef poly(* p_Merge_q_Proc_Ptr) (poly p, poly q, const ring r)

Definition at line 37 of file p_Procs.h.

◆ p_Minus_mm_Mult_qq_Proc_Ptr

typedef poly(* p_Minus_mm_Mult_qq_Proc_Ptr) (poly p, poly m, poly q, int &shorter, const poly spNoether, const ring r)

Definition at line 28 of file p_Procs.h.

◆ p_Mult_mm_Proc_Ptr

typedef poly(* p_Mult_mm_Proc_Ptr) (poly p, const poly m, const ring r)

Definition at line 22 of file p_Procs.h.

◆ p_Mult_nn_Proc_Ptr

typedef poly(* p_Mult_nn_Proc_Ptr) (poly p, const number n, const ring r)

Definition at line 20 of file p_Procs.h.

◆ p_Neg_Proc_Ptr

typedef poly(* p_Neg_Proc_Ptr) (poly p, const ring r)

Definition at line 31 of file p_Procs.h.

◆ p_ShallowCopyDelete_Proc_Ptr

typedef poly(* p_ShallowCopyDelete_Proc_Ptr) (poly p, const ring r, omBin dest_bin)

Definition at line 19 of file p_Procs.h.

◆ pp_Mult_Coeff_mm_DivSelect_Proc_Ptr

typedef poly(* pp_Mult_Coeff_mm_DivSelect_Proc_Ptr) (poly p, const poly m, int &shorter, const ring r)

Definition at line 32 of file p_Procs.h.

◆ pp_Mult_Coeff_mm_DivSelectMult_Proc_Ptr

typedef poly(* pp_Mult_Coeff_mm_DivSelectMult_Proc_Ptr) (poly p, const poly m, const poly a, const poly b, int &shorter, const ring r)

Definition at line 35 of file p_Procs.h.

◆ pp_Mult_mm_Noether_Proc_Ptr

typedef poly(* pp_Mult_mm_Noether_Proc_Ptr) (poly p, const poly m, const poly spNoether, int &ll, const ring r)

Definition at line 24 of file p_Procs.h.

◆ pp_Mult_mm_Proc_Ptr

typedef poly(* pp_Mult_mm_Proc_Ptr) (poly p, const poly m, const ring r)

Definition at line 23 of file p_Procs.h.

◆ pp_Mult_nn_Proc_Ptr

typedef poly(* pp_Mult_nn_Proc_Ptr) (poly p, const number n, const ring r)

Definition at line 21 of file p_Procs.h.

Function Documentation

◆ p_Debug_GetProcNames()

void p_Debug_GetProcNames ( const ring  r,
p_Procs_s p_Procs 
)

Definition at line 233 of file p_Procs_Set.h.

234 {
235  set_names = 1;
236  p_ProcsSet(r, p_Procs); // changes p_Procs!!!
237  set_names = 0;
238 }
void p_ProcsSet(ring r, p_Procs_s *p_Procs)
Definition: p_Procs_Set.h:141
STATIC_VAR int set_names
Definition: p_Procs_Set.h:120

◆ p_Debug_GetSpecNames()

void p_Debug_GetSpecNames ( const ring  r,
const char *&  field,
const char *&  length,
const char *&  ord 
)

Definition at line 222 of file p_Procs_Set.h.

223 {
224  /*p_Field e_field =*/ (void) p_FieldIs(r);
225  /*p_Length e_length =*/ (void) p_LengthIs(r);
226  /*p_Ord e_ord =*/ (void) p_OrdIs(r);
227 
228  field = p_FieldEnum_2_String(p_FieldIs(r));
230  ord = p_OrdEnum_2_String(p_OrdIs(r));
231 }
static p_Field p_FieldIs(ring r)
Definition: p_Procs_Set.h:23
static const char * p_OrdEnum_2_String(p_Ord ord)
Definition: p_Procs_Impl.h:237
static p_Length p_LengthIs(ring r)
Definition: p_Procs_Set.h:40
static p_Ord p_OrdIs(ring r)
Definition: p_Procs_Set.h:73
static const char * p_LengthEnum_2_String(p_Length length)
Definition: p_Procs_Impl.h:219
static BOOLEAN length(leftv result, leftv arg)
Definition: interval.cc:263
static const char * p_FieldEnum_2_String(p_Field field)
Definition: p_Procs_Impl.h:198

◆ p_ProcsSet()

void p_ProcsSet ( ring  r,
p_Procs_s p_Procs 
)

Definition at line 141 of file p_Procs_Set.h.

142 {
143  p_Field field = p_FieldIs(r);
145  p_Ord ord = p_OrdIs(r);
146 
147  assume(p_Procs != NULL);
148  memset(p_Procs, 0, sizeof(p_Procs_s));
149  _p_procs = p_Procs;
150 
151  SetProcs(field, length, ord);
152  extern poly p_Mult_nn_pthread(poly p, const number n, const ring r);
153  #ifdef NV_OPS
154  if ((field==FieldZp) && (r->cf->ch>NV_MAX_PRIME))
155  {
156  // set all (mult/div.) routines to FieldGeneral-variants
157  SetProcs(FieldGeneral, length,ord); // p_Mult_nn, ...
158  // set all non-mult/div. routines to FieldZp-variants
159  SetProcs_nv(FieldZp, length,ord); // p_Delete, p_ShallowCopyDelete...
160  }
161  if (field==RingGeneral)
162  {
163  if (nCoeff_is_Domain(r->cf))
164  SetProcs_ring(FieldGeneral,length,ord);
165  // FieldGeneral vs. RingGeneral: HAVE_ZERODIVISORS
166  else
167  SetProcs_ring(RingGeneral,length,ord);
168  }
169  #endif
170 #ifdef HAVE_SHIFTBBA
171  if (r->isLPring)
172  {
173  _p_procs->pp_Mult_mm = shift_pp_Mult_mm;
174  _p_procs->p_Mult_mm = shift_p_Mult_mm;
175  _p_procs->p_mm_Mult = shift_p_mm_Mult;
176  _p_procs->pp_mm_Mult = shift_pp_mm_Mult;
177  _p_procs->p_Minus_mm_Mult_qq = shift_p_Minus_mm_Mult_qq;
178  // Unsupported procs:
179  _p_procs->pp_Mult_mm_Noether = shift_pp_Mult_mm_Noether_STUB;
180  _p_procs->pp_Mult_Coeff_mm_DivSelect = shift_pp_Mult_Coeff_mm_DivSelect_STUB;
181  _p_procs->pp_Mult_Coeff_mm_DivSelectMult = shift_pp_Mult_Coeff_mm_DivSelectMult_STUB;
182  }
183  else
184 #endif
185  {
186  _p_procs->p_mm_Mult=_p_procs->p_Mult_mm;
187  _p_procs->pp_mm_Mult=_p_procs->pp_Mult_mm;
188  }
189  CheckProc(p_Copy);
197  CheckProc(pp_Mult_mm_Noether);
199  CheckProc(p_Neg);
201  CheckProc(pp_Mult_Coeff_mm_DivSelectMult);
203  CheckProc(p_kBucketSetLm);
204 
205 /*
206  assume(p_Procs->pp_Mult_mm_Noether != pp_Mult_mm_Noether__FieldGeneral_LengthGeneral_OrdGeneral ||
207  p_Procs->p_Minus_mm_Mult_qq == p_Minus_mm_Mult_qq__FieldGeneral_LengthGeneral_OrdGeneral ||
208  r->OrdSgn == 1 || r->LexOrder);
209 */
210 #ifdef HAVE_PLURAL
211 #ifndef SING_NDEBUG
212  if (rIsPluralRing(r))
213  {
214  dReportError("Setting pProcs in p_ProcsSet (rDebugPrint!?)!!!");
215  nc_p_ProcsSet(r, _p_procs); // Setup non-commutative p_Procs table!
216  }
217 #endif
218 #endif
219 }
static p_Field p_FieldIs(ring r)
Definition: p_Procs_Set.h:23
poly shift_pp_Mult_Coeff_mm_DivSelectMult_STUB(poly p, const poly m, const poly a, const poly b, int &shorter, const ring r)
Definition: shiftop.cc:309
poly shift_p_mm_Mult(poly p, const poly m, const ring ri)
Definition: shiftop.cc:211
static poly p_Mult_mm(poly p, poly m, const ring r)
Definition: p_polys.h:1000
struct p_Procs_s p_Procs_s
Definition: ring.h:23
#define SetProcs(field, length, ord)
Definition: p_Procs_Impl.h:662
static poly pp_Mult_nn(poly p, number n, const ring r)
Definition: p_polys.h:951
static poly pp_Mult_mm(poly p, poly m, const ring r)
Definition: p_polys.h:990
#define CheckProc(which)
Definition: p_Procs_Set.h:124
poly shift_pp_Mult_Coeff_mm_DivSelect_STUB(poly p, const poly m, int &shorter, const ring r)
Definition: shiftop.cc:314
poly shift_pp_mm_Mult(poly p, const poly m, const ring ri)
Definition: shiftop.cc:144
static p_Length p_LengthIs(ring r)
Definition: p_Procs_Set.h:40
poly shift_pp_Mult_mm_Noether_STUB(poly p, const poly m, const poly spNoether, int &ll, const ring ri)
Definition: shiftop.cc:285
static p_Ord p_OrdIs(ring r)
Definition: p_Procs_Set.h:73
static poly p_Copy(poly p, const ring r)
returns a copy of p
Definition: p_polys.h:811
p_Length
Definition: p_Procs_Impl.h:122
poly shift_p_Mult_mm(poly p, const poly m, const ring ri)
Definition: shiftop.cc:88
poly shift_p_Minus_mm_Mult_qq(poly p, poly m, poly q, int &Shorter, const poly spNoether, const ring ri)
Definition: shiftop.cc:268
#define assume(x)
Definition: mod2.h:390
static BOOLEAN rIsPluralRing(const ring r)
we must always have this test!
Definition: ring.h:397
p_Field
Definition: p_Procs_Impl.h:106
#define SetProcs_ring(field, length, ord)
Definition: p_Procs_Impl.h:698
STATIC_VAR p_Procs_s * _p_procs
Definition: p_Procs_Set.h:116
static poly p_ShallowCopyDelete(poly p, const ring r, omBin bin)
Definition: p_polys.h:887
static poly p_Mult_nn(poly p, number n, const ring r)
Definition: p_polys.h:917
#define NV_MAX_PRIME
Definition: modulop.h:29
static void p_Delete(poly *p, const ring r)
Definition: p_polys.h:860
p_Ord
Definition: p_Procs_Impl.h:135
static FORCE_INLINE BOOLEAN nCoeff_is_Domain(const coeffs r)
returns TRUE, if r is a field or r has no zero divisors (i.e is a domain)
Definition: coeffs.h:761
#define NULL
Definition: omList.c:12
static poly p_Merge_q(poly p, poly q, const ring r)
Definition: p_polys.h:1151
static BOOLEAN length(leftv result, leftv arg)
Definition: interval.cc:263
void nc_p_ProcsSet(ring rGR, p_Procs_s *p_Procs)
Definition: old.gring.cc:3205
static poly p_Minus_mm_Mult_qq(poly p, const poly m, const poly q, int &lp, int lq, const poly spNoether, const ring r)
Definition: p_polys.h:1009
int dReportError(const char *fmt,...)
Definition: dError.cc:43
static poly p_Neg(poly p, const ring r)
Definition: p_polys.h:1046
poly shift_pp_Mult_mm(poly p, const poly m, const ring ri)
Definition: shiftop.cc:21
int p
Definition: cfModGcd.cc:4019
static poly p_Add_q(poly p, poly q, const ring r)
Definition: p_polys.h:895
static poly pp_Mult_Coeff_mm_DivSelect(poly p, const poly m, const ring r)
Definition: p_polys.h:1029

Variable Documentation

◆ p_procs_dynamic

const BOOLEAN p_procs_dynamic

Definition at line 30 of file p_Procs_Dynamic.cc.