Implement Mu.new, which sets up attributes automatically

sorear · Jul 25, 2010 · 67aa90a · 67aa90a
1 parent 607036c
commit 67aa90a
Show file tree

Hide file tree

Showing 3 changed files with 20 additions and 0 deletions.
diff --git a/CORE.setting b/CORE.setting
@@ -383,6 +383,12 @@ PRE-INIT {
                 (getfield klass (cast DynObject (@ (l self))))]
               [l $obj])
         } });
+    Mu.HOW.add-method(Q:CgOp { (w (clr_string "CREATE")) },
+        anon method CREATE() { Q:CgOp {
+            (rawscall Kernel.DefaultNew (@ (l self))) } });
+    Mu.HOW.add-method(Q:CgOp { (w (clr_string "new")) },
+        anon method new() { Q:CgOp {
+            (rawscall Kernel.DefaultNew (@ (l self))) } });
 
     Any.HOW.add-method(Q:CgOp { (w (clr_string "flat")) },
         anon method flat() { self, });

diff --git a/CodeGen.pm b/CodeGen.pm
@@ -54,6 +54,7 @@ use 5.010;
         'Kernel.Bind'          => [c => 'Void'],
         'Kernel.Assign'        => [c => 'Void'],
         'Kernel.Fetch'         => [c => 'IP6'],
+        'Kernel.DefaultNew'    => [m => 'Variable'],
         'Kernel.NewROScalar'   => [m => 'Variable'],
         'Kernel.NewRWScalar'   => [m => 'Variable'],
         'Kernel.NewRWListVar'  => [m => 'Variable'],

diff --git a/Kernel.cs b/Kernel.cs
@@ -622,6 +622,19 @@ public class Kernel {
             return th;
         }
 
+        public static Variable DefaultNew(IP6 proto) {
+            DynObject n = new DynObject(((DynObject)proto).klass);
+            List<DynMetaObject> mro = n.klass.mro;
+
+            for (int i = mro.Count - 1; i >= 0; i--) {
+                foreach (string s in mro[i].local_attr.Keys) {
+                    n.slots[s] = NewRWScalar(AnyP);
+                }
+            }
+
+            return NewROScalar(n);
+        }
+
         public static IP6 AnyP;
 
         public static Frame PackageLookup(Frame th, IP6 parent,