]> git.saurik.com Git - cycript.git/blob - Exception.hpp
Got true JS booleans working in GNUstep.
[cycript.git] / Exception.hpp
1 /* Cycript - Error.hppution Server and Disassembler
2 * Copyright (C) 2009 Jay Freeman (saurik)
3 */
4
5 /* Modified BSD License {{{ */
6 /*
7 * Redistribution and use in source and binary
8 * forms, with or without modification, are permitted
9 * provided that the following conditions are met:
10 *
11 * 1. Redistributions of source code must retain the
12 * above copyright notice, this list of conditions
13 * and the following disclaimer.
14 * 2. Redistributions in binary form must reproduce the
15 * above copyright notice, this list of conditions
16 * and the following disclaimer in the documentation
17 * and/or other materials provided with the
18 * distribution.
19 * 3. The name of the author may not be used to endorse
20 * or promote products derived from this software
21 * without specific prior written permission.
22 *
23 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS''
24 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING,
25 * BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
26 * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
27 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE
28 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
29 * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
30 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
31 * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
32 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
33 * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR
34 * TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
35 * ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
36 * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
37 */
38 /* }}} */
39
40 #ifndef CYCRIPT_EXCEPTION_HPP
41 #define CYCRIPT_EXCEPTION_HPP
42
43 #include <JavaScriptCore/JSBase.h>
44
45 #include <apr_pools.h>
46 #include "Standard.hpp"
47
48 struct CYException {
49 virtual ~CYException() {
50 }
51
52 virtual const char *PoolCString(apr_pool_t *pool) const = 0;
53 virtual JSValueRef CastJSValue(JSContextRef context) const = 0;
54 };
55
56 void CYThrow(const char *format, ...) _noreturn;
57 void CYThrow(JSContextRef context, JSValueRef value);
58
59 #define CYTry \
60 try
61 #define CYCatch \
62 catch (const CYException &error) { \
63 *exception = error.CastJSValue(context); \
64 return NULL; \
65 } catch (...) { \
66 *exception = CYCastJSValue(context, "catch(...)"); \
67 return NULL; \
68 }
69
70 #define _assert(test, args...) do { \
71 if (!(test)) \
72 CYThrow("*** _assert(%s):%s(%u):%s [errno=%d]", #test, __FILE__, __LINE__, __FUNCTION__, errno); \
73 } while (false)
74
75 #define _trace() do { \
76 fprintf(stderr, "_trace():%u\n", __LINE__); \
77 } while (false)
78
79 #define _syscall(expr) ({ \
80 __typeof__(expr) _value; \
81 do if ((long) (_value = (expr)) != -1) \
82 break; \
83 else switch (errno) { \
84 case EINTR: \
85 continue; \
86 default: \
87 _assert(false); \
88 } while (true); \
89 _value; \
90 })
91
92 #define _aprcall(expr) \
93 do { \
94 apr_status_t _aprstatus((expr)); \
95 _assert(_aprstatus == APR_SUCCESS); \
96 } while (false)
97
98 #define _krncall(expr) \
99 do { \
100 kern_return_t _krnstatus((expr)); \
101 _assert(_krnstatus == KERN_SUCCESS); \
102 } while (false)
103
104 #define _sqlcall(expr) ({ \
105 __typeof__(expr) _value = (expr); \
106 if (_value != 0 && (_value < 100 || _value >= 200)) \
107 _assert(false, "_sqlcall(%u:%s): %s\n", _value, #expr, sqlite3_errmsg(database_)); \
108 _value; \
109 })
110
111 #endif/*CYCRIPT_ERROR_HPP*/