Mercurial > pub > dyncall > bindings

diff R/scratch/stdio.R @ 0:0cfcc391201f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
initial from svn dyncall-1745
author Daniel Adler
date Thu, 19 Mar 2015 22:26:28 +0100
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/R/scratch/stdio.R	Thu Mar 19 22:26:28 2015 +0100
@@ -0,0 +1,25 @@
+# Dynport: stdio
+# Description: Standard I/O C library
+# Dynport-Maintainer: dadler@uni-goettingen.de
+# -----------------------------------------------------------------------------
+
+.sysname <- Sys.info()[["sysname"]]
+if (.sysname == "Windows") {
+  .libNameC <- "msvcrt"
+} else {
+  .libNameC <- "c"
+}
+
+dynbind(.libNameC,"
+fopen(ZZ)p;
+fread(piip)i;
+fwrite(piip)i;
+fseek(pli)i;
+fclose(p)i;
+memcpy(ppi)p;
+memset(pii)p;
+")
+
+SEEK_SET = 0
+SEEK_CUR = 1
+SEEK_END = 2