all tasks

Task/Stack-traces/NetRexx/stack-traces.netrexx

@@ -0,0 +1,22 @@
+/* NetRexx */
+options replace format comments java crossref symbols nobinary
+
+class RStackTraces
+  method inner() static
+    StackTracer.printStackTrace()
+  method middle() static
+    inner()
+  method outer() static
+    middle()
+  method main(args = String[]) public static
+    outer()
+
+class RStackTraces.StackTracer
+  method printStackTrace() public static
+    elems = Thread.currentThread().getStackTrace()
+    say 'Stack trace:'
+    j_ = 2
+    loop i_ = elems.length - 1 to 2 by -1
+      say ''.left(j_) || elems[i_].getClassName()'.'elems[i_].getMethodName()
+      j_ = j_ + 2
+      end i_