Implement term:<rand>

sorear · May 16, 2011 · ddee5a5 · ddee5a5
1 parent 116226c
commit ddee5a5
Show file tree

Hide file tree

Showing 4 changed files with 16 additions and 0 deletions.
diff --git a/lib/Builtins.cs b/lib/Builtins.cs
@@ -3,6 +3,7 @@
 using System.Collections.Generic;
 using System.IO;
 using System.Reflection;
+using System.Runtime.CompilerServices;
 
 namespace Niecza {
     public class UpCallee: CrossDomainReceiver {
@@ -406,6 +407,14 @@ class SubstrLValue: Variable {
         return Kernel.BoxAnyMO(d, Kernel.NumMO);
     }
 
+    private static Random rng = new Random();
+
+    public static Variable GetRandom() {
+        double i;
+        lock (rng) { i = rng.NextDouble(); }
+        return Kernel.BoxAnyMO(i, Kernel.NumMO);
+    }
+
     public static bool FileOrDirExists(string path) {
         return File.Exists(path) || Directory.Exists(path);
     }

diff --git a/lib/CLRBackend.cs b/lib/CLRBackend.cs
@@ -3233,6 +3233,7 @@ class NamProcessor {
             thandlers["bif_numlt"] = SimpleB("NumericLt");
             thandlers["bif_numge"] = SimpleB("NumericGe");
             thandlers["bif_numgt"] = SimpleB("NumericGt");
+            thandlers["bif_rand"] = SimpleB("GetRandom");
             thandlers["bif_streq"] = SimpleB("StringEq");
             thandlers["bif_strne"] = SimpleB("StringNe");
             thandlers["bif_strle"] = SimpleB("StringLe");

diff --git a/lib/CORE.setting b/lib/CORE.setting
@@ -1292,6 +1292,8 @@ my class Instant {
 sub term:« now »() {
     Instant.new( val => Q:CgOp { (bif_now) } );
 }
+sub term:« time »() { Q:CgOp { (bif_now) } }
+sub term:« rand »() { Q:CgOp { (bif_rand) } }
 
 my class IO {
     has $.path; # Str

diff --git a/src/niecza b/src/niecza
@@ -229,6 +229,10 @@ class RxOp::CutBrack is RxOp {
     method lad() { [ 'Null' ]; }
 }
 
+augment class CgOp {
+method bif_rand () { self._cgop("bif_rand") }
+}
+
 my $usage = q:to/EOM/;
 niecza -- a command line wrapper for Niecza