source: git/libpolys/polys/templates/p_Procs_Static.cc @ 1f4a6c

spielwiese
Last change on this file since 1f4a6c was 1f4a6c, checked in by Hans Schoenemann <hannes@…>, 3 years ago
fix: static p_Procs
  • Property mode set to 100644
File size: 2.1 KB
Line 
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 "polys/monomials/ring.h"
16#include "polys/monomials/p_polys.h"
17#include "polys/templates/p_Procs.h"
18#include "polys/templates/p_Numbers.h"
19#include "polys/templates/p_MemCmp.h"
20#include "polys/templates/p_MemAdd.h"
21#include "polys/templates/p_MemCopy.h"
22#include "polys/kbuckets.h"
23#include "reporter/reporter.h"
24
25const BOOLEAN p_procs_dynamic = FALSE;
26
27#define LINKAGE
28
29#define p_Procs_Static
30#include "polys/templates/p_Procs.inc"
31
32// include generated configuration
33#include "polys/templates/p_Procs_Static.h"
34// include general p_Proc stuff
35#include "polys/templates/p_Procs_Impl.h"
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
63#include "polys/templates/p_Procs_Set.h"
64
65
66
67
Note: See TracBrowser for help on using the repository browser.