[Xts-commits] r756 - pkg/xts/src

[noreply at r-forge.r-project.org]

Author: edd
Date: 2013-01-16 04:03:58 +0100 (Wed, 16 Jan 2013)
New Revision: 756

Modified:
   pkg/xts/src/init.c
Log:
o  minor cleanup in init.c for exported functions


Modified: pkg/xts/src/init.c
===================================================================
--- pkg/xts/src/init.c	2013-01-16 02:05:54 UTC (rev 755)
+++ pkg/xts/src/init.c	2013-01-16 03:03:58 UTC (rev 756)
@@ -59,20 +59,19 @@
                      externalMethods);
 
   R_useDynamicSymbols(info, TRUE);
-#define RegisterXTS(routine) R_RegisterCCallable("xts",#routine,(DL_FUNC) &routine)
 
   /* used by external packages linking to internal xts code from C */
   R_RegisterCCallable("xts","do_is_ordered",(DL_FUNC) &do_is_ordered);
-  R_RegisterCCallable("xts","coredata",     (DL_FUNC) &coredata);
+  /*R_RegisterCCallable("xts","coredata",     (DL_FUNC) &coredata);*/
+  R_RegisterCCallable("xts","coredata_xts", (DL_FUNC) &coredata_xts);
   R_RegisterCCallable("xts","isXts",        (DL_FUNC) &isXts);
   R_RegisterCCallable("xts","tryXts",       (DL_FUNC) &tryXts);
   /* RegisterXTS(rbindXts); */
-  RegisterXTS(do_rbind_xts);
-  RegisterXTS(naCheck);
-  RegisterXTS(coredata_xts);
-  RegisterXTS(lagXts);
+  R_RegisterCCallable("xts","do_rbind_xts", (DL_FUNC) &do_rbind_xts);
+  R_RegisterCCallable("xts","naCheck",      (DL_FUNC) &naCheck);
+  R_RegisterCCallable("xts","lagXts",       (DL_FUNC) &lagXts);
 
   /* used by xts (functions moved from xts to zoo) */
-  zoo_lag = (SEXP(*)(SEXP,SEXP,SEXP)) R_GetCCallable("zoo","zoo_lag");
-  zoo_coredata = (SEXP(*)(SEXP,SEXP)) R_GetCCallable("zoo","zoo_coredata");
+  zoo_lag      = (SEXP(*)(SEXP,SEXP,SEXP)) R_GetCCallable("zoo","zoo_lag");
+  zoo_coredata = (SEXP(*)(SEXP,SEXP))      R_GetCCallable("zoo","zoo_coredata");
 }