-#include <objc/runtime.h>
-#include <sstream>
-
-#define $ \
- new(context.pool_)
-
-#define $D(args...) \
- ($ CYNumber(args))
-#define $E(args...) \
- ($ CYExpress(args))
-#define $F(args...) \
- ($ CYFunctionExpression(args))
-#define $I(args...) \
- ($ CYIdentifier(args))
-#define $M(args...) \
- ($ CYDirectMember(args))
-#define $P(args...) \
- ($ CYFunctionParameter(args))
-#define $S(args...) \
- ($ CYString(args))
-#define $V(name) \
- ($ CYVariable($I(name)))
-
-#define $T(value) \
- if (this == NULL) \
- return value;
-#define $$ \
- CYStatements()
-
-#define $P1(arg0, args...) \
- $P($I(arg0), ##args)
-#define $P2(arg0, arg1, args...) \
- $P($I(arg0), $P1(arg1, ##args))
-#define $P3(arg0, arg1, arg2, args...) \
- $P($I(arg0), $P2(arg1, arg2, ##args))
-#define $P4(arg0, arg1, arg2, arg3, args...) \
- $P($I(arg0), $P3(arg1, arg2, arg3, ##args))
-#define $P5(arg0, arg1, arg2, arg3, arg4, args...) \
- $P($I(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))
-
-#define $C(args...) \
- ($ CYCall(args))
-#define $C_(args...) \
- ($ CYArgument(args))
-#define $N(args...) \
- ($ CYNew(args))
-
-#define $C1_(arg0, args...) \
- $C_(arg0, ##args)
-#define $C2_(arg0, arg1, args...) \
- $C_(arg0, $C1_(arg1, ##args))
-#define $C3_(arg0, arg1, arg2, args...) \
- $C_(arg0, $C2_(arg1, arg2, ##args))
-#define $C4_(arg0, arg1, arg2, arg3, args...) \
- $C_(arg0, $C3_(arg1, arg2, arg3, ##args))
-#define $C5_(arg0, arg1, arg2, arg3, arg4, args...) \
- $C_(arg0, $C4_(arg1, arg2, arg3, arg4, ##args))
-#define $C6_(arg0, arg1, arg2, arg3, arg4, arg5, args...) \
- $C_(arg0, $C5_(arg1, arg2, arg3, arg4, arg5, ##args))
-
-#define $C0(func, args...) \
- $C(func, ##args)
-#define $C1(func, args...) \
- $C(func, $C1_(args))
-#define $C2(func, args...) \
- $C(func, $C2_(args))
-#define $C3(func, args...) \
- $C(func, $C3_(args))
-#define $C4(func, args...) \
- $C(func, $C4_(args))
-#define $C5(func, args...) \
- $C(func, $C5_(args))
-
-#define $N0(func, args...) \
- $N(func, ##args)
-#define $N1(func, args...) \
- $N(func, $C1_(args))
-#define $N2(func, args...) \
- $N(func, $C2_(args))
-#define $N3(func, args...) \
- $N(func, $C3_(args))
-#define $N4(func, args...) \
- $N(func, $C4_(args))
-#define $N5(func, args...) \
- $N(func, $C5_(args))
+#include "Replace.hpp"
+#include "Syntax.hpp"
+
+CYFunctionExpression *CYNonLocalize(CYContext &context, CYFunctionExpression *function) {
+ function->nonlocal_ = context.nextlocal_;
+ return function;
+}
+
+CYFunctionExpression *CYSuperize(CYContext &context, CYFunctionExpression *function) {
+ function->super_ = context.super_;
+ return function;
+}
+
+CYStatement *CYDefineProperty(CYExpression *object, CYExpression *name, bool configurable, bool enumerable, CYProperty *descriptor) {
+ return $E($C3($M($V("Object"), $S("defineProperty")), object, name, $ CYObject(CYList<CYProperty>()
+ ->* (configurable ? $ CYPropertyValue($S("configurable"), $ CYTrue()) : NULL)
+ ->* (enumerable ? $ CYPropertyValue($S("enumerable"), $ CYTrue()) : NULL)
+ ->* descriptor)));
+}
+
+static void CYImplicitReturn(CYStatement *&code) {
+ if (CYStatement *&last = CYGetLast(code))
+ last = last->Return();
+}
+
+CYExpression *CYAdd::Replace(CYContext &context) {
+ CYInfix::Replace(context);
+
+ CYString *lhs(dynamic_cast<CYString *>(lhs_));
+ CYString *rhs(dynamic_cast<CYString *>(rhs_));
+
+ if (lhs != NULL || rhs != NULL) {
+ if (lhs == NULL) {
+ lhs = lhs_->String(context);
+ if (lhs == NULL)
+ return this;
+ } else if (rhs == NULL) {
+ rhs = rhs_->String(context);
+ if (rhs == NULL)
+ return this;
+ }
+
+ return lhs->Concat(context, rhs);
+ }
+
+ if (CYNumber *lhn = lhs_->Number(context))
+ if (CYNumber *rhn = rhs_->Number(context))
+ return $D(lhn->Value() + rhn->Value());
+
+ return this;
+}
projects / cycript.git / blobdiff