Mercurial > pub > dyncall > bindings

annotate R/rdc/R/bind.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
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
1 #
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
2 # bind library by import string
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
3 #
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
4
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
5 eatws <- function(x) gsub("[ \n\t]*","",x)
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
6
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
7 bind1 <- function(symbol, signature, libh, callvm, envir=parent.frame() )
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
8 {
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
9 funcptr <- rdcFind(libh, symbol)
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
10 f <- function(...) NULL
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
11 body(f) <- substitute( dcCall( callvm, funcptr, signature, ... ), list(funcptr=funcptr, signature=signature) )
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
12 assign( symbol, f, envir=envir )
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
13 }
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
14
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
15 rdcBind <- function(libname, sigs, callvm, envir=parent.frame() )
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
16 {
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
17 libh <- rdcLoad(libname)
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
18 sigs <- eatws(sigs)
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
19 sigs <- strsplit(sigs, ";")[[1]]
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
20 sigs <- strsplit(sigs, "\\(")
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
21 for (i in seq(along=sigs)) bind1(sigs[[i]][[1]], sigs[[i]][[2]], libh, callvm, envir )
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
22 }