-/* Cycript - Remote Execution 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))
($ CYFunctionParameter(args))
#define $S(args...) \
($ CYString(args))
+#define $U \
+ $V($I("undefined"))
#define $V(name) \
- ($ CYVariable($I(name)))
+ ($ CYVariable(name))
#define $T(value) \
if (this == NULL) \
CYStatements()
#define $P1(arg0, args...) \
- $P($I(arg0), ##args)
+ $P(arg0, ##args)
#define $P2(arg0, arg1, args...) \
- $P($I(arg0), $P1(arg1, ##args))
+ $P(arg0, $P1(arg1, ##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...) \
- $P($I(arg0), $P3(arg1, arg2, arg3, ##args))
+ $P(arg0, $P3(arg1, arg2, arg3, ##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...) \
- $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...) \
- ($ CYNew(args))
+ ($ cy::Syntax::New(args))
#define $C1_(arg0, args...) \
$C_(arg0, ##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*/