annotate R/scratch/bugfix.R @ 0:0cfcc391201f

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
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 }