Add native context handlers for Mu.defined and Mu.Bool

sorear · Nov 21, 2010 · 21feb67 · 21feb67
1 parent fc0abe9
commit 21feb67
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/lib/Kernel.cs b/lib/Kernel.cs
@@ -433,6 +433,18 @@ class CtxReturnSelf : ContextHandler<Variable> {
         }
     }
 
+    class CtxRawNativeDefined : ContextHandler<bool> {
+        public override bool Get(Variable obj) {
+            return obj.Fetch().IsDefined();
+        }
+    }
+
+    class CtxBoolNativeDefined : ContextHandler<Variable> {
+        public override Variable Get(Variable obj) {
+            return obj.Fetch().IsDefined() ? Kernel.TrueV : Kernel.FalseV;
+        }
+    }
+
     // NOT IP6; these things should only be exposed through a ClassHOW-like
     // façade
     public class DynMetaObject {
@@ -1487,6 +1499,8 @@ class ExitRunloopException : Exception { }
             NumMO.FillProtoClass(new string[] { "value" });
 
             MuMO = new DynMetaObject("Mu");
+            MuMO.loc_Bool = MuMO.loc_defined = new CtxBoolNativeDefined();
+            MuMO.loc_raw_Bool = MuMO.loc_raw_defined = new CtxRawNativeDefined();
             MuMO.FillProtoClass(new string[] { });
 
             StashMO = new DynMetaObject("Stash");