[Xts-commits] r757 - pkg/xts/inst/include

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

Author: edd
Date: 2013-01-16 04:13:38 +0100 (Wed, 16 Jan 2013)
New Revision: 757

Modified:
   pkg/xts/inst/include/xts_stubs.c
Log:
o  update to provide import stubs for all functions exported in init.c


Modified: pkg/xts/inst/include/xts_stubs.c
===================================================================
--- pkg/xts/inst/include/xts_stubs.c	2013-01-16 03:03:58 UTC (rev 756)
+++ pkg/xts/inst/include/xts_stubs.c	2013-01-16 03:13:38 UTC (rev 757)
@@ -41,3 +41,31 @@
     fun = (SEXP(*)(SEXP,SEXP)) R_GetCCallable("xts","naCheck");
   return fun(x, check);
 }
+
+SEXP attribute_hidden tryXts(SEXP x) {
+    static SEXP(*fun)(SEXP) = NULL;
+    if (fun == NULL) 
+	fun = (SEXP(*)(SEXP)) R_GetCCallable("xts","tryXts");
+    return fun(x);
+}
+    
+SEXP attribute_hidden do_rbind_xts(SEXP x, SEXP y, SEXP dup) {
+    static SEXP(*fun)(SEXP, SEXP, SEXP) = NULL;
+    if (fun == NULL) 
+	fun = (SEXP(*)(SEXP,SEXP,SEXP)) R_GetCCallable("xts","do_rbind_xts");
+    return fun(x, y, dup);
+}
+
+SEXP attribute_hidden coredata_xts(SEXP x) {
+    static SEXP(*fun)(SEXP) = NULL;
+    if (fun == NULL) 
+	fun = (SEXP(*)(SEXP)) R_GetCCallable("xts","coredata_xts");
+    return fun(x);
+}
+
+SEXP attribute_hidden lagXts(SEXP x, SEXP k, SEXP pad) {
+    static SEXP(*fun)(SEXP,SEXP,SEXP) = NULL;
+    if (fun == NULL) 
+	fun = (SEXP(*)(SEXP,SEXP,SEXP)) R_GetCCallable("xts","lagXts");
+    return fun(x, k, pad);
+}