Mercurial > pub > dyncall > bindings

annotate R/scratch/bugfix.R @ 36:b84064293541

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
- bugfix
author Tassilo Philipp
date Mon, 13 Apr 2020 16:28:47 +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 }