Random: add a global RANDOM_DEVICE generator

Creating a RandomDevice object is cheap but it opens a file
on unix systems, so one can't call `rand(RandomDevice())`
repeatedly too quicly (e.g. in a loop). It can therefore be
convenient to have a readily available generator.

Author: rfourquet

stdlib/Random/src/RNGs.jl

@@ -67,6 +67,7 @@ RandomDevice
 RandomDevice(::Nothing) = RandomDevice()
 srand(rng::RandomDevice) = rng
 
+const RANDOM_DEVICE = RandomDevice()
 
 ## MersenneTwister
 

stdlib/Random/src/Random.jl

@@ -26,7 +26,7 @@ export srand,
        shuffle, shuffle!,
        randperm, randperm!,
        randcycle, randcycle!,
-       AbstractRNG, MersenneTwister, RandomDevice,
+       AbstractRNG, MersenneTwister, RandomDevice, RANDOM_DEVICE
        randjump
 
 
@@ -244,6 +244,14 @@ rand(                ::Type{X}, d::Integer, dims::Integer...) where {X} = rand(X
 function __init__()
     try
         srand()
+        if !Sys.iswindows()
+            # open /dev/urandom "in-place" (in RANDOM_DEVICE.file)
+            RANDOM_DEVICE.file.handle = pointer(RANDOM_DEVICE.file.ios)
+            systemerror("opening file /dev/urandom",
+                ccall(:ios_file, Ptr{Cvoid},
+                      (Ptr{UInt8}, Cstring, Cint, Cint, Cint, Cint),
+                      RANDOM_DEVICE.file.ios, "/dev/urandom", 1, 0, 0, 0) == C_NULL)
+        end
     catch ex
         Base.showerror_nostdio(ex,
             "WARNING: Error during initialization of module Random")

stdlib/Random/test/runtests.jl

@@ -677,3 +677,7 @@ end
     @test eltype(Random.UInt52(UInt128)) == UInt128
     @test eltype(Random.UInt104()) == UInt128
 end
+
+@testset "RANDOM_DEVICE" begin
+    @test rand(Random.RANDOM_DEVICE) isa Float64
+end