-/* Cycript - Optimizing JavaScript Compiler/Runtime
- * Copyright (C) 2009-2014 Jay Freeman (saurik)
+/* Cycript - The Truly Universal Scripting Language
+ * Copyright (C) 2009-2016 Jay Freeman (saurik)
*/
/* GNU Affero General Public License, Version 3 {{{ */
class CYPool;
-struct CYException {
+struct _visible CYException {
virtual ~CYException() {
}
virtual const char *PoolCString(CYPool &pool) const = 0;
#ifdef CY_EXECUTE
- virtual JSValueRef CastJSValue(JSContextRef context) const = 0;
+ virtual JSValueRef CastJSValue(JSContextRef context, const char *name) const = 0;
#endif
};
#define CYTry \
try
-#define CYCatch(value) \
+#define CYCatch_(value, name) \
catch (const CYException &error) { \
- *exception = error.CastJSValue(context); \
+ *exception = error.CastJSValue(context, name); \
+ _assert(*exception != NULL); \
return value; \
} catch (...) { \
*exception = CYCastJSValue(context, "catch(...)"); \
+ _assert(*exception != NULL); \
return value; \
}
+#define CYCatch(value) \
+ CYCatch_(value, "Error")
+#define CYCatchObject() \
+ CYCatch(JSObjectMake(context, NULL, NULL))
#define _assert_(mode, test, code, format, ...) do \
if (!(test)) \
_value; })
#define _trace() do { \
- fprintf(stderr, "_trace():%u\n", __LINE__); \
+ fprintf(stderr, "_trace(%s:%u)\n", __FILE__, __LINE__); \
} while (false)
static _finline bool CYContains(int value, size_t many, const int *okay) {
return false;
}
-#define _syscall_(expr, many, okay) ({ \
+#define _syscall_(expr, many, ...) ({ \
__typeof__(expr) _value; \
do if ((long) (_value = (expr)) != -1) \
break; \
- else if (CYContains(errno, many, ((const int [many]) okay))) \
+ else if (CYContains(errno, many, ((const int [many + 1]) {0, ##__VA_ARGS__} + 1))) \
break; \
else \
_assert_("syscall", errno == EINTR, #expr, " [errno=%d]", errno); \
})
#define _syscall(expr) \
- _syscall_(expr, 0, {})
+ _syscall_(expr, 0)
#define _sqlcall(expr) ({ \
__typeof__(expr) _value = (expr); \
- _assert_("sqlcall", _value == 0 || _value >= 100 && _value < 200, #expr, " %u:%s", _value sqlite3_errmsg(database_)); \
-})
+ _assert_("sqlcall", _value == 0 || _value >= 100 && _value < 200, #expr, " %u:%s", _value, sqlite3_errmsg(database_)); \
+_value; })
+#ifdef CY_EXECUTE
struct CYJSException {
JSContextRef context_;
JSValueRef value_;
CYJSException _error(context); \
(code)(args, _error); \
})
+#endif
#endif/*CYCRIPT_ERROR_HPP*/