[Rd] getNativeSymbolInfo("user_unif_rand") returns different results on windows and linux

[Renaud Gaujoux]

Hi,

When loading a package that provides the user-supplied RNG hook 
user_unif_rand, calling getNativeSymbolInfo("user_unif_rand") returns 
informations about the loaded symbol.
I am using this to identify which package currently provides the RNG hook.
The results are the same on windows and linux if only one library 
provides the hook.

If one loads a second package that provides this hook, then on linux 
(Ubuntu 10.10), calling again getNativeSymbolInfo("user_unif_rand") 
returns the latest symbol information (which I presume is the correct 
result).
On windows (XP and Vista) however the symbol information does not change 
(same pointer address) and the package data is NULL.
See results for both systems below. I tested this with R 2.12.1, 2.13.0 
and 2.13.1 on Windows.

Is this a normal behaviour for dll loaded on Windows?
Thank you.

Renaud


#####################
# LINUX
#####################
 > library(rlecuyer)
 > getNativeSymbolInfo("user_unif_rand")
$name
[1] "user_unif_rand"

$address
<pointer: 0x7ff55acffed0>
attr(,"class")
[1] "NativeSymbol"

$package
DLL name: rlecuyer
Filename: 
/home/renaud/R/x86_64-pc-linux-gnu-library/2.12/rlecuyer/libs/rlecuyer.so
Dynamic lookup: TRUE

attr(,"class")
[1] "NativeSymbolInfo"
 > library(rstream)
 > getNativeSymbolInfo("user_unif_rand")
$name
[1] "user_unif_rand"

$address
<pointer: 0x7ff55aaf58c0>
attr(,"class")
[1] "NativeSymbol"

$package
DLL name: rstream
Filename: 
/home/renaud/R/x86_64-pc-linux-gnu-library/2.12/rstream/libs/rstream.so
Dynamic lookup: TRUE

attr(,"class")
[1] "NativeSymbolInfo"

#####################
# WINDOWS
#####################
 > library(rlecuyer)
 > getNativeSymbolInfo("user_unif_rand")
$name
[1] "user_unif_rand"

$address
<pointer: 0x6bb84fb8>
attr(,"class")
[1] "NativeSymbol"

$package
DLL name: rlecuyer
Filename: C:/Program
         Files/R/R-2.13.1/library/rlecuyer/libs/i386/rlecuyer.dll
Dynamic lookup: TRUE

attr(,"class")
[1] "NativeSymbolInfo"
 > library(rstream)
 > getNativeSymbolInfo("user_unif_rand")
$name
[1] "user_unif_rand"

$address
<pointer: 0x6bb84fb8>
attr(,"class")
[1] "NativeSymbol"

$package
NULL

attr(,"class")
[1] "NativeSymbolInfo"






 

###
UNIVERSITY OF CAPE TOWN 

This e-mail is subject to the UCT ICT policies and e-mai...{{dropped:5}}