[[ Foundation ]] Implement basic versions of MCError unwind info fetching.

runrevmark · runrevmark · commit b2730f851ad7 · 2014-12-10T15:43:29.000Z
diff --git a/libfoundation/src/foundation-error.cpp b/libfoundation/src/foundation-error.cpp
@@ -54,9 +54,13 @@ bool MCErrorCreate(MCTypeInfoRef p_typeinfo, MCArrayRef p_info, MCErrorRef& r_er
 
 bool MCErrorUnwind(MCErrorRef p_error, MCValueRef p_target, uindex_t p_row, uindex_t p_column)
 {
+    if (p_error -> target != nil)
+        return true;
+    
     p_error -> target = MCValueRetain(p_target);
     p_error -> row = p_row;
     p_error -> column = p_column;
+    
     return true;
 }
 
@@ -75,6 +79,26 @@ MCStringRef MCErrorGetMessage(MCErrorRef self)
     return self -> message;
 }
 
+uindex_t MCErrorGetDepth(MCErrorRef self)
+{
+    return self -> target != nil ? 1 : 0;
+}
+
+MCValueRef MCErrorGetTargetAtLevel(MCErrorRef self, uindex_t level)
+{
+    return self -> target;
+}
+
+uindex_t MCErrorGetRowAtLevel(MCErrorRef self, uindex_t row)
+{
+    return self -> row;
+}
+
+uindex_t MCErrorGetColumnAtLevel(MCErrorRef self, uindex_t column)
+{
+    return self -> column;
+}
+
 ////////////////////////////////////////////////////////////////////////////////
 
 bool MCErrorThrow(MCErrorRef p_error)
