0
|
1
|
|
2
|
|
3 x <- rdyncall:::makeNamespace("bla")
|
|
4 sys.source("/lab/eclipse/dyncall/rdyncall/scratch/script.R", envir=x)
|
|
5
|
|
6 quote({
|
|
7 parseStructInfos("
|
|
8 SDL_keysym{CiiS}scancode sym mod unicode ;
|
|
9 SDL_KeyboardEvent{CCC<SDL_keysym>}type which state keysym ;
|
|
10 ", envir=x)
|
|
11 })
|
|
12
|
|
13 f <- function()
|
|
14 {
|
|
15 parent.frame()
|
|
16 }
|
|
17
|
|
18 g <- function(envir=parent.frame())
|
|
19 {
|
|
20 envir
|
|
21 }
|
|
22
|
|
23 f <- function(envir=parent.frame())
|
|
24 {
|
|
25
|
|
26 }
|