Changeset 9eb3048 in git for Singular/iplib.cc

Timestamp:

Jul 9, 2013, 10:29:22 PM (11 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

741c7090dd3b618a24f57b75f1a21c3a19ce119f

Parents:

86919e90eae002225109c1b5b9d94a6544b1a907

git-author:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2013-07-09 22:29:22+02:00

git-committer:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2013-07-09 22:31:47+02:00

Message:

Minor improvements&fixes to builtins

File:

• Singular/iplib.cc (modified) (3 diffs)

Singular/iplib.cc

@@ -733 +733 @@
 }
 
-int staticdemo_mod_init(SModulFunctions*){ PrintS("init of staticdemo\n"); }
+int staticdemo_mod_init(SModulFunctions*){ PrintS("init of staticdemo\n"); return (0); }
 
 #define SI_GET_BUILTIN_MOD_INIT(name) \
-  int name##_mod_init(SModulFunctions*); \
-  if (strcmp(libname, #name ".so") == 0) {  return name##_mod_init; }
+  int SI_MOD_INIT(name)(SModulFunctions*); \
+  if (strcmp(libname, #name ".so") == 0) {  return SI_MOD_INIT(name); }
 
 
@@ -1109 +1109 @@
   return TRUE;
 #else
+/*
   typedef int (*fktn_t)(int(*iiAddCproc)(const char *libname, const char *procname,
                                BOOLEAN pstatic,
                                BOOLEAN(*func)(leftv res, leftv v)));
+*/
   SModulFunc_t fktn;
   idhdl pl;
@@ -1188 +1190 @@
   int iiAddCproc(const char *libname, const char *procname, BOOLEAN pstatic,
                  BOOLEAN(*func)(leftv res, leftv v));
+/*
   typedef int (*fktn_t)(int(*iiAddCproc)(const char *libname, const char *procname,
                                BOOLEAN pstatic,
                                BOOLEAN(*func)(leftv res, leftv v)));
+*/
   // SModulFunc_t fktn;
   idhdl pl;