annotate R/scratch/bugfix.R @ 20:77ca609422f1

- first working build of new java binding
author cslag
date Wed, 30 Mar 2016 02:40:56 +0200
parents 0cfcc391201f
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
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
3 x <- rdyncall:::makeNamespace("bla")
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
4 sys.source("/lab/eclipse/dyncall/rdyncall/scratch/script.R", envir=x)
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
5
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
6 quote({
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
7 parseStructInfos("
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
8 SDL_keysym{CiiS}scancode sym mod unicode ;
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
9 SDL_KeyboardEvent{CCC<SDL_keysym>}type which state keysym ;
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
10 ", envir=x)
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
11 })
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
12
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
13 f <- function()
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
14 {
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
15 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
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
18 g <- function(envir=parent.frame())
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
19 {
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
20 envir
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
21 }
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
22
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
23 f <- function(envir=parent.frame())
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
24 {
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
25
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
26 }