added

std/neko/Stack.hx

@@ -0,0 +1,76 @@
+/*
+ * Copyright (c) 2005, The haXe Project Contributors
+ * All rights reserved.
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions are met:
+ *
+ *   - Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *   - Redistributions in binary form must reproduce the above copyright
+ *     notice, this list of conditions and the following disclaimer in the
+ *     documentation and/or other materials provided with the distribution.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE HAXE PROJECT CONTRIBUTORS "AS IS" AND ANY
+ * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+ * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+ * DISCLAIMED. IN NO EVENT SHALL THE HAXE PROJECT CONTRIBUTORS BE LIABLE FOR
+ * ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+ * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+ * CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH
+ * DAMAGE.
+ */
+package neko;
+
+/**
+	Elements return by [Stack] methods.
+**/
+enum StackItem {
+	CFunction;
+	Module( m : String );
+	FilePos( name : String, line : Int );
+}
+
+/**
+	Get informations about the call stack.
+**/
+class Stack {
+
+	/**
+		Return the call stack elements.
+	**/
+	public static function callStack() : Array<StackItem> {
+		var a = makeStack(untyped __dollar__callstack());
+		a.pop(); // remove Stack.callStack()
+		return a;
+	}
+
+	/**
+		Return the exception stack : this is the stack elements between
+		the place the last exception was thrown and the place it was
+		catched.
+	**/
+	public static function exceptionStack() : Array<StackItem> {
+		return makeStack(untyped __dollar__excstack());
+	}
+
+	private static function makeStack(s) {
+		var a = new Array();
+		var l = untyped __dollar__asize(s);
+		var i = 0;
+		while( i < l ) {
+			var x = s[i++];
+			if( x == null )
+				a.push(CFunction);
+			else if( untyped __dollar__typeof(x) == __dollar__tstring )
+				a.push(Module(new String(x)));
+			else
+				a.push(FilePos(new String(untyped x[0]),untyped x[1]));
+		}
+		return a;
+	}
+
+
+}