/**************************************** * Computer Algebra System SINGULAR * ****************************************/ /*************************************************************** * File: p_Procs_Static.cc * Purpose: source for static version of p_Procs * Author: obachman (Olaf Bachmann) * Created: 12/00 * Version: $Id$ *******************************************************************/ #include "config.h" #include #ifdef HAVE_FACTORY #include #endif // #include #include #include #include #include #include #include #include #include #include const BOOLEAN p_procs_dynamic = FALSE; #define LINKAGE #define p_Procs_Static #include "templates/p_Procs.inc" // include generated configuration #include "templates/p_Procs_Static.h" // include general p_Proc stuff #include "templates/p_Procs_Impl.h" // define DoSetProc and InitSetProcs #define SetStaticProcFromArray(what, type, field, length, ord) \ _p_procs->what = cast_vptr_to_A( \ what##_Proc_##type [index(what##_Proc, field, length, ord)]) #define SetStaticProcFromFuncsArray(what, field, length, ord) \ SetStaticProcFromArray(what, funcs, field, length, ord) #ifdef RDEBUG #define DoSetProc(what, field, length, ord) \ do \ { \ if (set_names) \ SetStaticProcFromArray(what, names, field, length, ord); \ else \ SetStaticProcFromFuncsArray(what, field, length, ord); \ } \ while(0) #else #define DoSetProc SetStaticProcFromFuncsArray #endif // include routines for setting p_ProcsSet #include "templates/p_Procs_Set.h"