annotate R/rdyncall/demo/R_malloc.R @ 15:1673ab696715
- erlang binding ToDo update in readme
| author |
cslag |
| date |
Sat, 26 Mar 2016 16:09:41 +0100 |
| parents |
0cfcc391201f |
| children |
|
| rev |
line source |
|
0
|
1 # Package: rdyncall
|
|
|
2 # File: demo/R_malloc.R
|
|
|
3 # Description: using R's memory allocator directly in R
|
|
|
4
|
|
|
5 dynbind("R","R_chk_calloc(ii)p;R_chk_free(p)v;")
|
|
|
6 malloc <- function(size)
|
|
|
7 {
|
|
|
8 x <- R_chk_calloc(as.integer(size),1L)
|
|
|
9 reg.finalizer(x, R_chk_free)
|
|
|
10 return(x)
|
|
|
11 }
|
|
|
12
|
|
|
13 x <- malloc(1024)
|
|
|
14 x <- NULL
|
|
|
15 gc()
|
|
|
16
|
