source: git/libpolys/polys/templates/p_Procs_Static.cc @ 825fb7

jengelh-datetimespielwiese
Last change on this file since 825fb7 was 825fb7, checked in by Hans Schoenemann <hannes@…>, 10 years ago
fixes for the static version
  • 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#include "config.h"
11#include <misc/auxiliary.h>
12
13#ifdef HAVE_FACTORY
14#include <factory/factory.h>
15#endif
16
17// #include <polys/structs.h>
18#include <polys/monomials/ring.h>
19#include <polys/monomials/p_polys.h>
20#include <polys/templates/p_Procs.h>
21#include <polys/templates/p_Numbers.h>
22#include <polys/templates/p_MemCmp.h>
23#include <polys/templates/p_MemAdd.h>
24#include <polys/templates/p_MemCopy.h>
25#include <polys/kbuckets.h>
26#include <reporter/reporter.h>
27
28const BOOLEAN p_procs_dynamic = FALSE;
29
30#define LINKAGE
31
32#define p_Procs_Static
33#include "templates/p_Procs.inc"
34
35// include generated configuration
36#include "templates/p_Procs_Static.h"
37// include general p_Proc stuff
38#include "templates/p_Procs_Impl.h"
39
40// define DoSetProc and InitSetProcs
41#define SetStaticProcFromArray(what, type, field, length, ord) \
42  _p_procs->what =            (what##_Proc_Ptr)( \
43    what##_Proc_##type [index(what##_Proc, field, length, ord)])
44
45#define SetStaticProcFromFuncsArray(what, field, length, ord) \
46  SetStaticProcFromArray(what, funcs, field, length, ord)
47
48#ifdef RDEBUG
49#define DoSetProc(what, field, length, ord)                     \
50do                                                              \
51{                                                               \
52  if (set_names)                                                \
53    SetStaticProcFromArray(what, names, field, length, ord);    \
54  else                                                          \
55    SetStaticProcFromFuncsArray(what, field, length, ord);      \
56}                                                               \
57while(0)
58#else
59#define DoSetProc SetStaticProcFromFuncsArray
60#endif
61
62// include routines for setting p_ProcsSet
63
64#include "templates/p_Procs_Set.h"
65
66
67
68
Note: See TracBrowser for help on using the repository browser.