Use pool.atexit to free Objective-C "list copies".

[cycript.git] / Replace.hpp

diff --git a/Replace.hpp b/Replace.hpp
index 493ea30a2cf8df41e17d55d956be91b8770f90c1..117b23ef0df3a0c668138efa104957333ff9f6c2 100644 (file)
--- a/Replace.hpp
+++ b/Replace.hpp
@@ -1,49 +1,30 @@
-/* Cycript - Error.hppution Server and Disassembler
- * Copyright (C) 2009  Jay Freeman (saurik)
+/* Cycript - The Truly Universal Scripting Language
+ * Copyright (C) 2009-2016  Jay Freeman (saurik)

 */
 
 */
 

-/* Modified BSD License {{{ */
+/* GNU Affero 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:
- *
- * 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.
- *
- * 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.
-*/
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU Affero General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+
+ * This program 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 Affero General Public License for more details.
+
+ * You should have received a copy of the GNU Affero General Public License
+ * along with this program.  If not, see <http://www.gnu.org/licenses/>.
+**/

 /* }}} */
 
 /* }}} */
 

-#ifndef REPLACE_HPP
-#define REPLACE_HPP
+#ifndef CYCRIPT_REPLACE_HPP
+#define CYCRIPT_REPLACE_HPP

 
 

-#include "Parser.hpp"
+#include "Syntax.hpp"

 
 

-#define $ \
-    new(context.pool_)
+#define $ new($pool)

 
 #define $D(args...) \
     ($ CYNumber(args))
 
 #define $D(args...) \
     ($ CYNumber(args))


@@ -59,8 +40,10 @@
     ($ CYFunctionParameter(args))
 #define $S(args...) \
     ($ CYString(args))
     ($ CYFunctionParameter(args))
 #define $S(args...) \
     ($ CYString(args))

+#define $U \
+    $V($I("undefined"))

 #define $V(name) \
 #define $V(name) \

-    ($ CYVariable($I(name)))
+    ($ CYVariable(name))

 
 #define $T(value) \
     if (this == NULL) \
 
 #define $T(value) \
     if (this == NULL) \


@@ -69,24 +52,24 @@
     CYStatements()
 
 #define $P1(arg0, args...) \
     CYStatements()
 
 #define $P1(arg0, args...) \

-    $P($I(arg0), ##args)
+    $P(arg0, ##args)

 #define $P2(arg0, arg1, args...) \
 #define $P2(arg0, arg1, args...) \

-    $P($I(arg0), $P1(arg1, ##args))
+    $P(arg0, $P1(arg1, ##args))

 #define $P3(arg0, arg1, arg2, args...) \
 #define $P3(arg0, arg1, arg2, args...) \

-    $P($I(arg0), $P2(arg1, arg2, ##args))
+    $P(arg0, $P2(arg1, arg2, ##args))

 #define $P4(arg0, arg1, arg2, arg3, args...) \
 #define $P4(arg0, arg1, arg2, arg3, args...) \

-    $P($I(arg0), $P3(arg1, arg2, arg3, ##args))
+    $P(arg0, $P3(arg1, arg2, arg3, ##args))

 #define $P5(arg0, arg1, arg2, arg3, arg4, args...) \
 #define $P5(arg0, arg1, arg2, arg3, arg4, args...) \

-    $P($I(arg0), $P4(arg1, arg2, arg3, arg4, ##args))
+    $P(arg0, $P4(arg1, arg2, arg3, arg4, ##args))

 #define $P6(arg0, arg1, arg2, arg3, arg4, arg5, args...) \
 #define $P6(arg0, arg1, arg2, arg3, arg4, arg5, args...) \

-    $P($I(arg0), $P5(arg1, arg2, arg3, arg4, arg5, ##args))
+    $P(arg0, $P5(arg1, arg2, arg3, arg4, arg5, ##args))

 
 #define $C(args...) \
     ($ CYCall(args))
 #define $C_(args...) \
     ($ CYArgument(args))
 #define $N(args...) \
 
 #define $C(args...) \
     ($ CYCall(args))
 #define $C_(args...) \
     ($ CYArgument(args))
 #define $N(args...) \

-    ($ CYNew(args))
+    ($ cy::Syntax::New(args))

 
 #define $C1_(arg0, args...) \
     $C_(arg0, ##args)
 
 #define $C1_(arg0, args...) \
     $C_(arg0, ##args)


@@ -127,4 +110,17 @@
 #define $N5(func, args...) \
     $N(func, $C5_(args))
 
 #define $N5(func, args...) \
     $N(func, $C5_(args))
 

-#endif/*REPLACE_HPP*/
+#define $B(args...) \
+    $ CYBinding(args)
+#define $B1(arg0) \
+    $ CYBindings(arg0)
+#define $B2(arg0, args...) \
+    $ CYBindings(arg0, $B1(args))
+#define $B3(arg0, args...) \
+    $ CYBindings(arg0, $B2(args))
+#define $B4(arg0, args...) \
+    $ CYBindings(arg0, $B3(args))
+#define $B5(arg0, args...) \
+    $ CYBindings(arg0, $B4(args))
+
+#endif/*CYCRIPT_REPLACE_HPP*/