1 | #ifndef KBPOLYPROCS_H |
---|
2 | #define KBPOLYPROCS_H |
---|
3 | /**************************************** |
---|
4 | * Computer Algebra System SINGULAR * |
---|
5 | ****************************************/ |
---|
6 | /* $Id: kbPolyProcs.h,v 1.2 1999-05-26 16:20:16 obachman Exp $ */ |
---|
7 | #include "mod2.h" |
---|
8 | #include "mmheap.h" |
---|
9 | #include "ring.h" |
---|
10 | |
---|
11 | |
---|
12 | /////////////////////////////////////////////////////////////////////// |
---|
13 | /// |
---|
14 | /// Procedures for spolys and poly reductions |
---|
15 | /// |
---|
16 | typedef void (*kb_n_Mult_p_Proc)(number n, poly p); |
---|
17 | extern void kb_n_Mult_p_General(number n, poly p); |
---|
18 | |
---|
19 | typedef void (*kb_p_Add_q_Proc)(poly *p, int *lp, |
---|
20 | poly* q, int* lq, |
---|
21 | memHeap heap = NULL); |
---|
22 | extern void kb_p_Add_q_General(poly *p, int *lp, |
---|
23 | poly *q, int *lq, |
---|
24 | memHeap heap = NULL); |
---|
25 | |
---|
26 | typedef poly (*kb_p_Mult_m_Proc)(poly p, |
---|
27 | poly m, |
---|
28 | poly spNoether, |
---|
29 | memHeap heap = NULL); |
---|
30 | extern poly kb_p_Mult_m_General(poly p, |
---|
31 | poly m, |
---|
32 | poly spNoether, |
---|
33 | memHeap heap = NULL); |
---|
34 | |
---|
35 | typedef void (*kb_p_Minus_m_Mult_q_Proc)(poly *p, int *lp, |
---|
36 | poly m, |
---|
37 | poly q, int lq, |
---|
38 | poly spNoether, |
---|
39 | kb_p_Mult_m_Proc kb_p_Mult_m, |
---|
40 | memHeap heap = NULL); |
---|
41 | extern void kb_p_Minus_m_Mult_q_General(poly *p, int *lp, |
---|
42 | poly m, |
---|
43 | poly q, int lq, |
---|
44 | poly spNoether, |
---|
45 | kb_p_Mult_m_Proc kb_p_Mult_m, |
---|
46 | memHeap heap = NULL); |
---|
47 | |
---|
48 | typedef struct skbPolyProcs kbPolyProcs; |
---|
49 | typedef kbPolyProcs * kbPolyProcs_pt; |
---|
50 | struct skbPolyProcs |
---|
51 | { |
---|
52 | kb_n_Mult_p_Proc n_Mult_p; |
---|
53 | kb_p_Add_q_Proc p_Add_q; |
---|
54 | kb_p_Mult_m_Proc p_Mult_m; |
---|
55 | kb_p_Minus_m_Mult_q_Proc p_Minus_m_Mult_q; |
---|
56 | }; |
---|
57 | |
---|
58 | extern void kbSetPolyProcs(kbPolyProcs_pt procs, |
---|
59 | // should be rGetOrderType(r), unless you |
---|
60 | // know better (e.g., for syz or schreyer |
---|
61 | // ordering, or if you know that components |
---|
62 | // are not involved) |
---|
63 | ring r, |
---|
64 | rOrderType_t ot = rOrderType_General, |
---|
65 | BOOLEAN homog = FALSE); |
---|
66 | |
---|
67 | #endif /* KBPOLYPROCS_H */ |
---|