My Project
Loading...
Searching...
No Matches
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
22#include "polys/kbuckets.h"
23#include "reporter/reporter.h"
24
26
27#define LINKAGE
28
29#define p_Procs_Static
30#include "polys/templates/p_Procs.inc"
31
32// include generated configuration
34// include general p_Proc stuff
36
37// define DoSetProc and InitSetProcs
38// cast_A_to_B<what##_Proc_Ptr, what##_Proc_Ptr> ???
39// _p_procs->what = cast_vptr_to_A<what##_Proc_Ptr>( ???
40#define SetStaticProcFromArray(what, type, field, length, ord) \
41 _p_procs->what = (what##_Proc_Ptr)( \
42 what##_Proc_##type [index(what##_Proc, field, length, ord)])
43
44#define SetStaticProcFromFuncsArray(what, field, length, ord) \
45 SetStaticProcFromArray(what, funcs, field, length, ord)
46
47#ifdef RDEBUG
48#define DoSetProc(what, field, length, ord) \
49do \
50{ \
51 if (set_names) \
52 SetStaticProcFromArray(what, names, field, length, ord); \
53 else \
54 SetStaticProcFromFuncsArray(what, field, length, ord); \
55} \
56while(0)
57#else
58#define DoSetProc SetStaticProcFromFuncsArray
59#endif
60
61// include routines for setting p_ProcsSet
62
64
65
66
67
All the auxiliary stuff.
int BOOLEAN
Definition: auxiliary.h:87
#define FALSE
Definition: auxiliary.h:96
const BOOLEAN p_procs_dynamic