Embed Cycript git version in zip package filename.

[cycript.git] / Exception.hpp

diff --git a/Exception.hpp b/Exception.hpp
index 28283457fc6ced1e671b5373f11cb51958d3f04b..d683369c8e5a5f36e92b45a8985bb3e6ff1d33cb 100644 (file)
--- a/Exception.hpp
+++ b/Exception.hpp
@@ -1,108 +1,145 @@
-/* Cycript - Error.hppution Server and Disassembler
- * Copyright (C) 2009  Jay Freeman (saurik)
+/* Cycript - Optimizing JavaScript Compiler/Runtime
+ * Copyright (C) 2009-2013  Jay Freeman (saurik)

 */
 
 */
 

-/* Modified BSD License {{{ */
+/* GNU General Public License, Version 3 {{{ */

 /*
 /*

- *        Redistribution and use in source and binary
- * forms, with or without modification, are permitted
- * provided that the following conditions are met:
+ * Cycript is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published
+ * by the Free Software Foundation, either version 3 of the License,
+ * or (at your option) any later version.

  *
  *

- * 1. Redistributions of source code must retain the
- *    above copyright notice, this list of conditions
- *    and the following disclaimer.
- * 2. 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.
- * 3. The name of the author may not be used to endorse
- *    or promote products derived from this software
- *    without specific prior written permission.
+ * Cycript is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.

  *
  *

- * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``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 AUTHOR 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.
-*/
+ * You should have received a copy of the GNU General Public License
+ * along with Cycript.  If not, see <http://www.gnu.org/licenses/>.
+**/

 /* }}} */
 
 #ifndef CYCRIPT_EXCEPTION_HPP
 #define CYCRIPT_EXCEPTION_HPP
 
 /* }}} */
 
 #ifndef CYCRIPT_EXCEPTION_HPP
 #define CYCRIPT_EXCEPTION_HPP
 

+#ifdef CY_EXECUTE

 #include <JavaScriptCore/JSBase.h>
 #include <JavaScriptCore/JSBase.h>

+#endif
+
+// XXX: does _assert really need this?
+#include <errno.h>

 
 

-#include <apr_pools.h>

 #include "Standard.hpp"
 
 #include "Standard.hpp"
 

+class CYPool;
+

 struct CYException {
 struct CYException {

-    virtual const char *PoolCString(apr_pool_t *pool) const = 0;
+    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 = 0;

+#endif

 };
 
 void CYThrow(const char *format, ...) _noreturn;
 };
 
 void CYThrow(const char *format, ...) _noreturn;

+
+#ifdef CY_EXECUTE

 void CYThrow(JSContextRef context, JSValueRef value);
 void CYThrow(JSContextRef context, JSValueRef value);

+#endif

 
 #define CYTry \
     try
 
 #define CYTry \
     try

-#define CYCatch \
+#define CYCatch(value) \

     catch (const CYException &error) { \
         *exception = error.CastJSValue(context); \
     catch (const CYException &error) { \
         *exception = error.CastJSValue(context); \

-        return NULL; \
+        return value; \

     } catch (...) { \
         *exception = CYCastJSValue(context, "catch(...)"); \
     } catch (...) { \
         *exception = CYCastJSValue(context, "catch(...)"); \

-        return NULL; \
+        return value; \

     }
 
     }
 

-#define _assert(test, args...) do { \
+#define _assert_(mode, test, code, format, ...) do \

     if (!(test)) \
     if (!(test)) \

-        CYThrow("*** _assert(%s):%s(%u):%s [errno=%d]", #test, __FILE__, __LINE__, __FUNCTION__, errno); \
-} while (false)
+        CYThrow("*** _%s(%s):%s(%u):%s" format, mode, code, __FILE__, __LINE__, __FUNCTION__, ##__VA_ARGS__); \
+while (false)
+
+// XXX: fix this: _ is not safe; this is /not/ Menes ;P
+#undef _assert
+#define _assert(test) \
+    _assert_("assert", (test), #test, "")
+
+#define _require(expr) ({ \
+    __typeof__(expr) _value = (expr); \
+    _assert_("require", _value != NULL, #expr, ""); \
+_value; })

 
 #define _trace() do { \
     fprintf(stderr, "_trace():%u\n", __LINE__); \
 } while (false)
 
 
 #define _trace() do { \
     fprintf(stderr, "_trace():%u\n", __LINE__); \
 } while (false)
 

-#define _syscall(expr) ({ \
+static _finline bool CYContains(int value, size_t many, int *okay) {
+    for (size_t i(0); i != many; ++i)
+        if (value == okay[i])
+            return true;
+    return false;
+}
+
+#define _syscall_(expr, many, okay) ({ \

     __typeof__(expr) _value; \
     do if ((long) (_value = (expr)) != -1) \
         break; \
     __typeof__(expr) _value; \
     do if ((long) (_value = (expr)) != -1) \
         break; \

-    else switch (errno) { \
-        case EINTR: \
-            continue; \
-        default: \
-            _assert(false); \
-    } while (true); \
+    else if (CYContains(errno, many, ((int [many]) okay))) \
+        break; \
+    else \
+        _assert_("syscall", errno == EINTR, #expr, " [errno=%d]", errno); \
+    while (true); \

     _value; \
 })
 
     _value; \
 })
 

+#define _syscall(expr) \
+    _syscall_(expr, 0, {})
+

 #define _aprcall(expr) \
     do { \
         apr_status_t _aprstatus((expr)); \
 #define _aprcall(expr) \
     do { \
         apr_status_t _aprstatus((expr)); \

-        _assert(_aprstatus == APR_SUCCESS); \
+        _assert_("aprcall", _aprstatus == APR_SUCCESS, #expr, ""); \

     } while (false)
 
 #define _krncall(expr) \
     do { \
         kern_return_t _krnstatus((expr)); \
     } while (false)
 
 #define _krncall(expr) \
     do { \
         kern_return_t _krnstatus((expr)); \

-        _assert(_krnstatus == KERN_SUCCESS); \
+        _assert_("krncall", _krnstatus == KERN_SUCCESS, #expr, " [return=0x%x]", _krnstatus); \

     } while (false)
 
 #define _sqlcall(expr) ({ \
     __typeof__(expr) _value = (expr); \
     } while (false)
 
 #define _sqlcall(expr) ({ \
     __typeof__(expr) _value = (expr); \

-    if (_value != 0 && (_value < 100 || _value >= 200)) \
-        _assert(false, "_sqlcall(%u:%s): %s\n", _value, #expr, sqlite3_errmsg(database_)); \
-    _value; \
+    _assert_("sqlcall", _value == 0 || _value >= 100 && _value < 200, #expr, " %u:%s", _value sqlite3_errmsg(database_)); \
+})
+
+struct CYJSException {
+    JSContextRef context_;
+    JSValueRef value_;
+
+    CYJSException(JSContextRef context) :
+        context_(context),
+        value_(NULL)
+    {
+    }
+
+    ~CYJSException() {
+        CYThrow(context_, value_);
+    }
+
+    operator JSValueRef *() {
+        return &value_;
+    }
+};
+
+#define _jsccall(code, args...) ({ \
+    CYJSException _error(context); \
+    (code)(args, _error); \

 })
 
 #endif/*CYCRIPT_ERROR_HPP*/
 })
 
 #endif/*CYCRIPT_ERROR_HPP*/