X-Git-Url: https://git.saurik.com/cycript.git/blobdiff_plain/5587a93f98c158ab5e71c1f1c6b318690271d335..8d20f0f1540c4c116f52e333edc57a4f549927e8:/Library.cpp diff --git a/Library.cpp b/Library.cpp index 816dab6..05cdde1 100644 --- a/Library.cpp +++ b/Library.cpp @@ -1,32 +1,26 @@ /* 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 . **/ /* }}} */ -#include - #include "cycript.hpp" -#include "Pooling.hpp" - -#include - #include #include #include @@ -34,15 +28,21 @@ #include #include +#include + +#include + +#include "Code.hpp" +#include "ConvertUTF.h" +#include "Driver.hpp" #include "Error.hpp" #include "Execute.hpp" -#include "Parser.hpp" +#include "Pooling.hpp" #include "String.hpp" +#include "Syntax.hpp" -#include "Cycript.tab.hh" -#include "Driver.hpp" - -#include "ConvertUTF.h" +template <> +::pthread_key_t CYLocal::key_ = Key_(); /* C Strings {{{ */ CYUTF8String CYPoolUTF8String(CYPool &pool, CYUTF16String utf16) { @@ -104,20 +104,25 @@ bool CYGetOffset(const char *value, ssize_t &index) { } /* }}} */ /* JavaScript *ify {{{ */ -void CYStringify(std::ostringstream &str, const char *data, size_t size) { - unsigned quot(0), apos(0); - for (const char *value(data), *end(data + size); value != end; ++value) - if (*value == '"') - ++quot; - else if (*value == '\'') - ++apos; - - bool single(quot > apos); +void CYStringify(std::ostringstream &str, const char *data, size_t size, bool c) { + bool single; + if (c) + single = false; + else { + unsigned quot(0), apos(0); + for (const char *value(data), *end(data + size); value != end; ++value) + if (*value == '"') + ++quot; + else if (*value == '\'') + ++apos; + + single = quot > apos; + } str << (single ? '\'' : '"'); for (const char *value(data), *end(data + size); value != end; ++value) - switch (*value) { + switch (uint8_t next = *value) { case '\\': str << "\\\\"; break; case '\b': str << "\\b"; break; case '\f': str << "\\f"; break; @@ -138,18 +143,48 @@ void CYStringify(std::ostringstream &str, const char *data, size_t size) { else goto simple; break; + case '\0': + if (value[1] >= '0' && value[1] <= '9') + str << "\\x00"; + else + str << "\\0"; + break; + default: - // this test is designed to be "awesome", generating neither warnings nor incorrect results - if (*value < 0x20 || *value >= 0x7f) - str << "\\x" << std::setbase(16) << std::setw(2) << std::setfill('0') << unsigned(uint8_t(*value)); - else simple: + if (next >= 0x20 && next < 0x7f) simple: str << *value; + else { + unsigned levels(1); + if ((next & 0x80) != 0) + while ((next & 0x80 >> ++levels) != 0); + + unsigned point(next & 0xff >> levels); + while (--levels != 0) + point = point << 6 | uint8_t(*++value) & 0x3f; + + if (point < 0x100) + str << "\\x" << std::setbase(16) << std::setw(2) << std::setfill('0') << point; + else if (point < 0x10000) + str << "\\u" << std::setbase(16) << std::setw(4) << std::setfill('0') << point; + else { + point -= 0x10000; + str << "\\u" << std::setbase(16) << std::setw(4) << std::setfill('0') << (0xd800 | point >> 0x0a); + str << "\\u" << std::setbase(16) << std::setw(4) << std::setfill('0') << (0xdc00 | point & 0x3ff); + } + } } str << (single ? '\'' : '"'); } void CYNumerify(std::ostringstream &str, double value) { + if (std::isinf(value)) { + if (value < 0) + str << '-'; + str << "Infinity"; + return; + } + char string[32]; // XXX: I want this to print 1e3 rather than 1000 sprintf(string, "%.17g", value); @@ -191,30 +226,37 @@ double CYCastDouble(const char *value) { return CYCastDouble(value, strlen(value)); } -CYUTF8String CYPoolCode(CYPool &pool, std::istream &stream) { - CYLocalPool local; - CYDriver driver(stream); +_visible bool CYStartsWith(const CYUTF8String &haystack, const CYUTF8String &needle) { + return haystack.size >= needle.size && strncmp(haystack.data, needle.data, needle.size) == 0; +} - cy::parser parser(driver); - _assert(parser.parse() == 0); +CYUTF8String CYPoolCode(CYPool &pool, std::streambuf &stream) { + CYLocalPool local; + CYDriver driver(local, stream); + _assert(!driver.Parse()); _assert(driver.errors_.empty()); CYOptions options; CYContext context(options); - driver.program_->Replace(context); + driver.script_->Replace(context); - std::ostringstream str; + std::stringbuf str; CYOutput out(str, options); - out << *driver.program_; + out << *driver.script_; return $pool.strdup(str.str().c_str()); } +CYUTF8String CYPoolCode(CYPool &pool, CYUTF8String code) { + CYStream stream(code.data, code.data + code.size); + return CYPoolCode(pool, stream); +} + CYPool &CYGetGlobalPool() { static CYPool pool; return pool; } -void CYThrow(const char *format, ...) { +_visible void CYThrow(const char *format, ...) { va_list args; va_start(args, format); throw CYPoolError(format, args);