early, hacky implementation of callframe($level) and class CallFrame

Currently it only supports things like these: callframe().line # the current line callframe(1).line # caller's line callframe(1).file # caller's file
rakudo · Jun 12, 2010 · aecd470 · aecd470
1 parent edf0072
commit aecd470
Show file tree

Hide file tree

Showing 2 changed files with 33 additions and 0 deletions.
diff --git a/build/Makefile.in b/build/Makefile.in
@@ -219,6 +219,7 @@ CORE_SOURCES = \
   src/core/Date.pm \
   src/core/Temporal.pm \
   src/core/Match.pm \
+  src/core/CallFrame.pm \
   src/core/MAIN.pm \
   src/core/YOU_ARE_HERE.pm \
 

diff --git a/src/core/CallFrame.pm b/src/core/CallFrame.pm
@@ -0,0 +1,32 @@
+class CallFrame {
+    has $!interp;
+    has $!level = 2;
+    method !annotations {
+        my $i = $!interp;
+        my $l = $!level;
+        Q:PIR {
+            .local pmc interp
+            .local int level
+
+            interp = find_lex '$i'
+            $P0    = find_lex '$l'
+            level  = $P0
+
+            %r     = interp["annotations"; level]
+        }
+    }
+
+    method line() {
+        my $ann = self!annotations();
+        $ann<line>;
+    }
+    method file() {
+        my $ann = self!annotations();
+        $ann<file>;
+    }
+}
+
+our multi sub callframe($level = 0) {
+    my $interp = pir::getinterp__p();
+    CallFrame.new(:$interp, level => $level + 2);
+}