X-Git-Url: https://git.saurik.com/cycript.git/blobdiff_plain/c15969fd0a6280c60d2f35876b5343004fed2b11..7c4c728ddba1afa034d842723580e8ead8f71ac3:/Replace.cpp diff --git a/Replace.cpp b/Replace.cpp index 98fd48a..7b99022 100644 --- a/Replace.cpp +++ b/Replace.cpp @@ -1,21 +1,21 @@ /* Cycript - Optimizing JavaScript Compiler/Runtime - * Copyright (C) 2009-2013 Jay Freeman (saurik) + * Copyright (C) 2009-2015 Jay Freeman (saurik) */ -/* GNU General Public License, Version 3 {{{ */ +/* GNU Affero General Public License, Version 3 {{{ */ /* - * 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. - * - * Cycript is distributed in the hope that it will be useful, but - * WITHOUT ANY WARRANTY; without even the implied warranty of + * 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 General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with Cycript. If not, see . + * 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 . **/ /* }}} */ @@ -29,22 +29,24 @@ CYFunctionExpression *CYNonLocalize(CYContext &context, CYFunctionExpression *fu return function; } +static void CYImplicitReturn(CYStatement *&code) { + if (CYStatement *&last = CYGetLast(code)) + last = last->Return(); +} + CYExpression *CYAdd::Replace(CYContext &context) { CYInfix::Replace(context); - CYExpression *lhp(lhs_->Primitive(context)); - CYExpression *rhp(rhs_->Primitive(context)); - - CYString *lhs(dynamic_cast(lhp)); - CYString *rhs(dynamic_cast(rhp)); + CYString *lhs(dynamic_cast(lhs_)); + CYString *rhs(dynamic_cast(rhs_)); if (lhs != NULL || rhs != NULL) { if (lhs == NULL) { - lhs = lhp->String(context); + lhs = lhs_->String(context); if (lhs == NULL) return this; } else if (rhs == NULL) { - rhs = rhp->String(context); + rhs = rhs_->String(context); if (rhs == NULL) return this; } @@ -52,8 +54,8 @@ CYExpression *CYAdd::Replace(CYContext &context) { return lhs->Concat(context, rhs); } - if (CYNumber *lhn = lhp->Number(context)) - if (CYNumber *rhn = rhp->Number(context)) + if (CYNumber *lhn = lhs_->Number(context)) + if (CYNumber *rhn = rhs_->Number(context)) return $D(lhn->Value() + rhn->Value()); return this; @@ -98,9 +100,14 @@ CYExpression *CYAssignment::Replace(CYContext &context) { return this; } +CYStatement *CYBlock::Return() { + CYImplicitReturn(code_); + return this; +} + CYStatement *CYBlock::Replace(CYContext &context) { - context.ReplaceAll(statements_); - if (statements_ == NULL) + context.ReplaceAll(code_); + if (code_ == NULL) return $ CYEmpty(); return this; } @@ -127,20 +134,20 @@ namespace cy { namespace Syntax { void Catch::Replace(CYContext &context) { $T() - CYScope scope(true, context, code_.statements_); + CYScope scope(true, context); context.Replace(name_); context.scope_->Declare(context, name_, CYIdentifierCatch); - code_.Replace(context); - scope.Close(); + context.ReplaceAll(code_); + scope.Close(context, code_); } } } void CYClause::Replace(CYContext &context) { $T() context.Replace(case_); - context.ReplaceAll(statements_); + context.ReplaceAll(code_); next_->Replace(context); } @@ -149,19 +156,30 @@ CYStatement *CYComment::Replace(CYContext &context) { } CYExpression *CYCompound::Replace(CYContext &context) { - context.ReplaceAll(expressions_); - if (expressions_ == NULL) - return NULL; + context.Replace(expression_); + context.Replace(next_); + + if (CYCompound *compound = dynamic_cast(expression_)) { + expression_ = compound->expression_; + compound->expression_ = compound->next_; + compound->next_ = next_; + next_ = compound; + } + return this; } -CYExpression *CYCompound::Primitive(CYContext &context) { - CYExpression *expression(expressions_); - if (expression == NULL) +CYFunctionParameter *CYCompound::Parameter() const { + CYFunctionParameter *next(next_->Parameter()); + if (next == NULL) + return NULL; + + CYFunctionParameter *parameter(expression_->Parameter()); + if (parameter == NULL) return NULL; - while (expression->next_ != NULL) - expression = expression->next_; - return expression->Primitive(context); + + parameter->SetNext(next); + return parameter; } CYFunctionParameter *CYComprehension::Parameters(CYContext &context) const { $T(NULL) @@ -200,6 +218,7 @@ void CYContext::NonLocal(CYStatement *&statements) { $ CYReturn($M($V(cye), $S("$cyv"))))->* $ cy::Syntax::Throw($V(cye)))); + // XXX: I don't understand any of this context.Replace(declare); rescue->Replace(context); @@ -210,7 +229,7 @@ void CYContext::NonLocal(CYStatement *&statements) { } CYIdentifier *CYContext::Unique() { - return $ CYIdentifier(apr_psprintf($pool, "$cy%u", unique_++)); + return $ CYIdentifier($pool.strcat("$cy", $pool.itoa(unique_++), NULL)); } CYStatement *CYContinue::Replace(CYContext &context) { @@ -261,10 +280,13 @@ CYArgument *CYDeclarations::Argument(CYContext &context) { $T(NULL) return $ CYArgument(declaration_->initialiser_, next_->Argument(context)); } -CYCompound *CYDeclarations::Compound(CYContext &context) { $T(NULL) - CYCompound *compound(next_->Compound(context) ?: $ CYCompound()); +CYExpression *CYDeclarations::Expression(CYContext &context) { $T(NULL) + CYExpression *compound(next_->Expression(context)); if (CYAssignment *assignment = declaration_->Assignment(context)) - compound->AddPrev(assignment); + if (compound == NULL) + compound = assignment; + else + compound = $ CYCompound(assignment, compound); return compound; } @@ -276,7 +298,7 @@ CYExpression *CYDirectMember::Replace(CYContext &context) { CYStatement *CYDoWhile::Replace(CYContext &context) { context.Replace(test_); - context.Replace(code_); + context.ReplaceAll(code_); return this; } @@ -289,20 +311,16 @@ CYStatement *CYEmpty::Replace(CYContext &context) { return NULL; } -CYStatement *CYExpress::Replace(CYContext &context) { - while (CYExpress *express = dynamic_cast(next_)) { - CYCompound *compound(dynamic_cast(express->expression_)); - if (compound == NULL) - compound = $ CYCompound(express->expression_); - compound->AddPrev(expression_); - expression_ = compound; - SetNext(express->next_); - } +CYExpression *CYEncodedType::Replace(CYContext &context) { + return typed_->Replace(context); +} - context.Replace(expression_); - if (expression_ == NULL) - return $ CYEmpty(); +CYStatement *CYExpress::Return() { + return $ CYReturn(expression_); +} +CYStatement *CYExpress::Replace(CYContext &context) { + context.Replace(expression_); return this; } @@ -322,6 +340,14 @@ CYAssignment *CYExpression::Assignment(CYContext &context) { return NULL; } +CYFunctionParameter *CYExpression::Parameter() const { + return NULL; +} + +CYStatement *CYExternal::Replace(CYContext &context) { + return $E($ CYAssign($V(typed_->identifier_), $C1(typed_->Replace(context), $C2($V("dlsym"), $V("RTLD_DEFAULT"), $S(typed_->identifier_->Word()))))); +} + CYNumber *CYFalse::Number(CYContext &context) { return $D(0); } @@ -337,20 +363,20 @@ CYExpression *CYFatArrow::Replace(CYContext &context) { } void CYFinally::Replace(CYContext &context) { $T() - code_.Replace(context); + context.ReplaceAll(code_); } CYStatement *CYFor::Replace(CYContext &context) { context.Replace(initialiser_); context.Replace(test_); context.Replace(increment_); - context.Replace(code_); + context.ReplaceAll(code_); return this; } -CYCompound *CYForDeclarations::Replace(CYContext &context) { +CYExpression *CYForDeclarations::Replace(CYContext &context) { declarations_->Replace(context); - return declarations_->Compound(context); + return declarations_->Expression(context); } // XXX: this still feels highly suboptimal @@ -363,7 +389,7 @@ CYStatement *CYForIn::Replace(CYContext &context) { context.Replace(initialiser_); context.Replace(set_); - context.Replace(code_); + context.ReplaceAll(code_); return this; } @@ -397,7 +423,7 @@ CYFunctionParameter *CYForOfComprehension::Parameter(CYContext &context) const { } CYStatement *CYForOfComprehension::Replace(CYContext &context, CYStatement *statement) const { - CYIdentifier *cys($I("cys")); + CYIdentifier *cys($I("$cys")); return $E($C0($F(NULL, $P1($L("$cys")), $$->* $E($ CYAssign($V(cys), set_))->* @@ -418,7 +444,8 @@ void CYFunction::Replace_(CYContext &context, bool outer) { Inject(context); CYThisScope *_this(context.this_); - context.this_ = CYGetLast(&this_); + context.this_ = &this_; + context.this_ = CYGetLast(context.this_); CYNonLocal *nonlocal(context.nonlocal_); CYNonLocal *nextlocal(context.nextlocal_); @@ -433,28 +460,31 @@ void CYFunction::Replace_(CYContext &context, bool outer) { context.nextlocal_ = nonlocal_; } - CYScope scope(!localize, context, code_.statements_); + CYScope scope(!localize, context); if (!outer && name_ != NULL) Inject(context); parameters_->Replace(context, code_); - code_.Replace(context); + context.ReplaceAll(code_); + + if (implicit_) + CYImplicitReturn(code_); if (CYIdentifier *identifier = this_.identifier_) - code_.statements_ = $$->* + code_ = $$->* $ CYVar($L1($ CYDeclaration(identifier, $ CYThis())))->* - code_.statements_; + code_; if (localize) - context.NonLocal(code_.statements_); + context.NonLocal(code_); context.nextlocal_ = nextlocal; context.nonlocal_ = nonlocal; context.this_ = _this; - scope.Close(); + scope.Close(context, code_); } CYExpression *CYFunctionExpression::Replace(CYContext &context) { @@ -462,17 +492,19 @@ CYExpression *CYFunctionExpression::Replace(CYContext &context) { return this; } -void CYFunctionParameter::Replace(CYContext &context, CYBlock &code) { $T() +void CYFunctionParameter::Replace(CYContext &context, CYStatement *&statements) { $T() CYAssignment *assignment(initialiser_->Assignment(context)); context.Replace(initialiser_); - next_->Replace(context, code); + next_->Replace(context, statements); if (assignment != NULL) - // XXX: this cast is quite incorrect - code.AddPrev($ CYIf($ CYIdentical($ CYTypeOf(dynamic_cast(initialiser_)), $S("undefined")), $$->* - $E(assignment) - )); + statements = $$->* + // XXX: this cast is quite incorrect + $ CYIf($ CYIdentical($ CYTypeOf(dynamic_cast(initialiser_)), $S("undefined")), $$->* + $E(assignment) + )->* + statements; } CYStatement *CYFunctionStatement::Replace(CYContext &context) { @@ -487,10 +519,16 @@ CYIdentifier *CYIdentifier::Replace(CYContext &context) { return replace_; } +CYStatement *CYIf::Return() { + CYImplicitReturn(true_); + CYImplicitReturn(false_); + return this; +} + CYStatement *CYIf::Replace(CYContext &context) { context.Replace(test_); - context.Replace(true_); - context.Replace(false_); + context.ReplaceAll(true_); + context.ReplaceAll(false_); return this; } @@ -502,6 +540,10 @@ CYStatement *CYIfComprehension::Replace(CYContext &context, CYStatement *stateme return $ CYIf(test_, CYComprehension::Replace(context, statement)); } +CYStatement *CYImport::Replace(CYContext &context) { + return $ CYVar($L1($L(module_->part_->Word(), $C1($V("require"), module_->Replace(context, "/"))))); +} + CYExpression *CYIndirect::Replace(CYContext &context) { return $M(rhs_, $S("$cyi")); } @@ -521,10 +563,30 @@ CYStatement *CYLabel::Replace(CYContext &context) { return this; } +CYExpression *CYLambda::Replace(CYContext &context) { + return $N2($V("Functor"), $ CYFunctionExpression(NULL, parameters_->Parameters(context), code_), parameters_->TypeSignature(context, typed_->Replace(context))); +} + CYStatement *CYLetStatement::Replace(CYContext &context) { return $E($ CYCall(CYNonLocalize(context, $ CYFunctionExpression(NULL, declarations_->Parameter(context), code_)), declarations_->Argument(context))); } +CYString *CYModule::Replace(CYContext &context, const char *separator) const { + if (next_ == NULL) + return $ CYString(part_); + return $ CYString($pool.strcat(next_->Replace(context, separator)->Value(), separator, part_->Word(), NULL)); +} + +CYExpression *CYMultiply::Replace(CYContext &context) { + CYInfix::Replace(context); + + if (CYNumber *lhn = lhs_->Number(context)) + if (CYNumber *rhn = rhs_->Number(context)) + return $D(lhn->Value() * rhn->Value()); + + return this; +} + namespace cy { namespace Syntax { @@ -555,7 +617,7 @@ CYNumber *CYNumber::Number(CYContext &context) { CYString *CYNumber::String(CYContext &context) { // XXX: there is a precise algorithm for this - return $S(apr_psprintf($pool, "%.17g", Value())); + return $S($pool.sprintf(24, "%.17g", Value())); } CYExpression *CYObject::Replace(CYContext &context) { @@ -563,6 +625,10 @@ CYExpression *CYObject::Replace(CYContext &context) { return this; } +CYExpression *CYParenthetical::Replace(CYContext &context) { + return expression_; +} + CYExpression *CYPostfix::Replace(CYContext &context) { context.Replace(lhs_); return this; @@ -592,13 +658,13 @@ namespace { } void CYProgram::Replace(CYContext &context) { - CYScope scope(true, context, statements_); + CYScope scope(true, context); context.nextlocal_ = $ CYNonLocal(); - context.ReplaceAll(statements_); - context.NonLocal(statements_); + context.ReplaceAll(code_); + context.NonLocal(code_); - scope.Close(); + scope.Close(context, code_); size_t offset(0); @@ -619,7 +685,7 @@ void CYProgram::Replace(CYContext &context) { const char *name; if (context.options_.verbose_) - name = apr_psprintf($pool, "$%"APR_SIZE_T_FMT"", offset); + name = $pool.strcat("$", $pool.itoa(offset), NULL); else { char id[8]; id[7] = '\0'; @@ -638,7 +704,7 @@ void CYProgram::Replace(CYContext &context) { goto id; } - name = apr_pstrmemdup($pool, id + position, 7 - position); + name = $pool.strmemdup(id + position, 7 - position); // XXX: at some point, this could become a keyword } @@ -667,29 +733,21 @@ CYStatement *CYReturn::Replace(CYContext &context) { } CYExpression *CYRubyBlock::Replace(CYContext &context) { - // XXX: this needs to do something much more epic to handle return return call_->AddArgument(context, proc_->Replace(context)); } CYExpression *CYRubyProc::Replace(CYContext &context) { - return CYNonLocalize(context, $ CYFunctionExpression(NULL, parameters_, code_)); + CYFunctionExpression *function($ CYFunctionExpression(NULL, parameters_, code_)); + function = CYNonLocalize(context, function); + function->implicit_ = true; + return function; } -CYScope::CYScope(bool transparent, CYContext &context, CYStatement *&statements) : +CYScope::CYScope(bool transparent, CYContext &context) : transparent_(transparent), - context_(context), - statements_(statements), parent_(context.scope_) { - context_.scope_ = this; -} - -CYScope::~CYScope() { -} - -void CYScope::Close() { - context_.scope_ = parent_; - Scope(context_, statements_); + context.scope_ = this; } void CYScope::Declare(CYContext &context, CYIdentifier *identifier, CYIdentifierFlags flags) { @@ -747,7 +805,9 @@ namespace { typedef std::set IdentifierOffsets; } -void CYScope::Scope(CYContext &context, CYStatement *&statements) { +void CYScope::Close(CYContext &context, CYStatement *&statements) { + context.scope_ = parent_; + if (parent_ == NULL) return; @@ -797,6 +857,10 @@ void CYScope::Scope(CYContext &context, CYStatement *&statements) { } } +CYStatement *CYStatement::Return() { + return this; +} + CYString *CYString::Concat(CYContext &context, CYString *rhs) const { size_t size(size_ + rhs->size_); char *value($ char[size + 1]); @@ -853,7 +917,7 @@ namespace cy { namespace Syntax { CYStatement *Try::Replace(CYContext &context) { - code_.Replace(context); + context.ReplaceAll(code_); catch_->Replace(context); finally_->Replace(context); return this; @@ -861,9 +925,101 @@ CYStatement *Try::Replace(CYContext &context) { } } +CYExpression *CYTypeArrayOf::Replace_(CYContext &context, CYExpression *type) { + return next_->Replace(context, $ CYCall($ CYDirectMember(type, $ CYString("arrayOf")), $ CYArgument(size_))); +} + +CYExpression *CYTypeBlockWith::Replace_(CYContext &context, CYExpression *type) { + return next_->Replace(context, $ CYCall($ CYDirectMember(type, $ CYString("blockWith")), parameters_->Argument(context))); +} + +CYExpression *CYTypeConstant::Replace_(CYContext &context, CYExpression *type) { + return next_->Replace(context, $ CYCall($ CYDirectMember(type, $ CYString("constant")))); +} + +CYStatement *CYTypeDefinition::Replace(CYContext &context) { + return $E($ CYAssign($V(typed_->identifier_), typed_->Replace(context))); +} + +CYExpression *CYTypeError::Replace(CYContext &context) { + _assert(false); + return NULL; +} + +CYExpression *CYTypeModifier::Replace(CYContext &context, CYExpression *type) { $T(type) + return Replace_(context, type); +} + +CYExpression *CYTypeFunctionWith::Replace_(CYContext &context, CYExpression *type) { + return next_->Replace(context, $ CYCall($ CYDirectMember(type, $ CYString("functionWith")), parameters_->Argument(context))); +} + +CYExpression *CYTypeLong::Replace(CYContext &context) { + return $ CYCall($ CYDirectMember(specifier_->Replace(context), $ CYString("long"))); +} + +CYExpression *CYTypePointerTo::Replace_(CYContext &context, CYExpression *type) { + return next_->Replace(context, $ CYCall($ CYDirectMember(type, $ CYString("pointerTo")))); +} + +CYExpression *CYTypeShort::Replace(CYContext &context) { + return $ CYCall($ CYDirectMember(specifier_->Replace(context), $ CYString("short"))); +} + +CYExpression *CYTypeSigned::Replace(CYContext &context) { + return $ CYCall($ CYDirectMember(specifier_->Replace(context), $ CYString("signed"))); +} + +CYExpression *CYTypeUnsigned::Replace(CYContext &context) { + return $ CYCall($ CYDirectMember(specifier_->Replace(context), $ CYString("unsigned"))); +} + +CYExpression *CYTypeVariable::Replace(CYContext &context) { + return $V(name_); +} + +CYExpression *CYTypeVoid::Replace(CYContext &context) { + return $N1($V("Type"), $ CYString("v")); +} + +CYExpression *CYTypeVolatile::Replace_(CYContext &context, CYExpression *type) { + return next_->Replace(context, $ CYCall($ CYDirectMember(type, $ CYString("volatile")))); +} + +CYExpression *CYTypedIdentifier::Replace(CYContext &context) { + return modifier_->Replace(context, specifier_->Replace(context)); +} + +CYTypeFunctionWith *CYTypedIdentifier::Function() { + CYTypeModifier **modifier(&modifier_); + if (*modifier == NULL) + return NULL; + while ((*modifier)->next_ != NULL) + modifier = &(*modifier)->next_; + CYTypeFunctionWith *function((*modifier)->Function()); + if (function == NULL) + return NULL; + *modifier = NULL; + return function; +} + +CYArgument *CYTypedParameter::Argument(CYContext &context) { $T(NULL) + return $ CYArgument(typed_->Replace(context), next_->Argument(context)); +} + +CYFunctionParameter *CYTypedParameter::Parameters(CYContext &context) { $T(NULL) + return $ CYFunctionParameter($ CYDeclaration(typed_->identifier_ ?: context.Unique()), next_->Parameters(context)); +} + +CYExpression *CYTypedParameter::TypeSignature(CYContext &context, CYExpression *prefix) { $T(prefix) + return next_->TypeSignature(context, $ CYAdd(prefix, typed_->Replace(context))); +} + CYStatement *CYVar::Replace(CYContext &context) { declarations_->Replace(context); - return $E(declarations_->Compound(context)); + if (CYExpression *expression = declarations_->Expression(context)) + return $E(expression); + return $ CYEmpty(); } CYExpression *CYVariable::Replace(CYContext &context) { @@ -871,15 +1027,19 @@ CYExpression *CYVariable::Replace(CYContext &context) { return this; } +CYFunctionParameter *CYVariable::Parameter() const { + return $ CYFunctionParameter($ CYDeclaration(name_)); +} + CYStatement *CYWhile::Replace(CYContext &context) { context.Replace(test_); - context.Replace(code_); + context.ReplaceAll(code_); return this; } CYStatement *CYWith::Replace(CYContext &context) { context.Replace(scope_); - context.Replace(code_); + context.ReplaceAll(code_); return this; }