p_Procs_Static.cc
Go to the documentation of this file.
1 /****************************************
2 * Computer Algebra System SINGULAR *
3 ****************************************/
4 /***************************************************************
5  * File: p_Procs_Static.cc
6  * Purpose: source for static version of p_Procs
7  * Author: obachman (Olaf Bachmann)
8  * Created: 12/00
9  *******************************************************************/
10 
11 
12 
13 #include <misc/auxiliary.h>
14 
15 #include <factory/factory.h>
16 
17 // #include <polys/structs.h>
18 #include <polys/monomials/ring.h>
25 #include <polys/kbuckets.h>
26 #include <reporter/reporter.h>
27 
29 
30 #define LINKAGE
31 
32 #define p_Procs_Static
33 #include "templates/p_Procs.inc"
34 
35 // include generated configuration
37 // include general p_Proc stuff
38 #include "templates/p_Procs_Impl.h"
39 
40 // define DoSetProc and InitSetProcs
41 // cast_A_to_B<what##_Proc_Ptr, what##_Proc_Ptr> ???
42 // _p_procs->what = cast_vptr_to_A<what##_Proc_Ptr>( ???
43 #define SetStaticProcFromArray(what, type, field, length, ord) \
44  _p_procs->what = (what##_Proc_Ptr)( \
45  what##_Proc_##type [index(what##_Proc, field, length, ord)])
46 
47 #define SetStaticProcFromFuncsArray(what, field, length, ord) \
48  SetStaticProcFromArray(what, funcs, field, length, ord)
49 
50 #ifdef RDEBUG
51 #define DoSetProc(what, field, length, ord) \
52 do \
53 { \
54  if (set_names) \
55  SetStaticProcFromArray(what, names, field, length, ord); \
56  else \
57  SetStaticProcFromFuncsArray(what, field, length, ord); \
58 } \
59 while(0)
60 #else
61 #define DoSetProc SetStaticProcFromFuncsArray
62 #endif
63 
64 // include routines for setting p_ProcsSet
65 
66 #include "templates/p_Procs_Set.h"
67 
68 
69 
70 
#define FALSE
Definition: auxiliary.h:140
const BOOLEAN p_procs_dynamic
All the auxiliary stuff.
int BOOLEAN
Definition: auxiliary.h:131