X-Git-Url: https://git.saurik.com/cycript.git/blobdiff_plain/2c1d569a0ed9ddd14d3d1d73ee8be776e0889d35..3e50deaf22b629cb1014a6047a54cd05d79de22f:/Library.cpp diff --git a/Library.cpp b/Library.cpp index 258ef61..174ca67 100644 --- a/Library.cpp +++ b/Library.cpp @@ -1,5 +1,5 @@ -/* Cycript - Optimizing JavaScript Compiler/Runtime - * Copyright (C) 2009-2015 Jay Freeman (saurik) +/* Cycript - The Truly Universal Scripting Language + * Copyright (C) 2009-2016 Jay Freeman (saurik) */ /* GNU Affero General Public License, Version 3 {{{ */ @@ -19,39 +19,31 @@ **/ /* }}} */ -#include - #include "cycript.hpp" -#include "Pooling.hpp" - -#include - #include #include #include -#include #include -#include -#include "Error.hpp" -#include "Execute.hpp" -#include "Parser.hpp" -#include "String.hpp" +#include -#include "Cycript.tab.hh" -#include "Driver.hpp" +#include +#include "Code.hpp" #include "ConvertUTF.h" - -template <> -::pthread_key_t CYLocal::key_ = Key_(); +#include "Driver.hpp" +#include "Error.hpp" +#include "Execute.hpp" +#include "Pooling.hpp" +#include "String.hpp" +#include "Syntax.hpp" /* C Strings {{{ */ CYUTF8String CYPoolUTF8String(CYPool &pool, CYUTF16String utf16) { // XXX: this is wrong size_t size(utf16.size * 5); - char *temp(new(pool) char[size]); + char *temp(new(pool) char[size + 1]); const uint16_t *lhs(utf16.data); uint8_t *rhs(reinterpret_cast(temp)); @@ -64,7 +56,7 @@ CYUTF8String CYPoolUTF8String(CYPool &pool, CYUTF16String utf16) { CYUTF16String CYPoolUTF16String(CYPool &pool, CYUTF8String utf8) { // XXX: this is wrong size_t size(utf8.size * 5); - uint16_t *temp(new (pool) uint16_t[size]); + uint16_t *temp(new (pool) uint16_t[size + 1]); const uint8_t *lhs(reinterpret_cast(utf8.data)); uint16_t *rhs(temp); @@ -106,81 +98,6 @@ bool CYGetOffset(const char *value, ssize_t &index) { return false; } /* }}} */ -/* 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); - - str << (single ? '\'' : '"'); - - for (const char *value(data), *end(data + size); value != end; ++value) - switch (uint8_t next = *value) { - case '\\': str << "\\\\"; break; - case '\b': str << "\\b"; break; - case '\f': str << "\\f"; break; - case '\n': str << "\\n"; break; - case '\r': str << "\\r"; break; - case '\t': str << "\\t"; break; - case '\v': str << "\\v"; break; - - case '"': - if (!single) - str << "\\\""; - else goto simple; - break; - - case '\'': - if (single) - str << "\\'"; - else goto simple; - break; - - case '\0': - if (value[1] >= '0' && value[1] <= '9') - str << "\\x00"; - else - str << "\\0"; - break; - - default: - 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) { - char string[32]; - // XXX: I want this to print 1e3 rather than 1000 - sprintf(string, "%.17g", value); - str << string; -} bool CYIsKey(CYUTF8String value) { const char *data(value.data); @@ -203,69 +120,37 @@ bool CYIsKey(CYUTF8String value) { return true; } -/* }}} */ - -double CYCastDouble(const char *value, size_t size) { - char *end; - double number(strtod(value, &end)); - if (end != value + size) - return NAN; - return number; -} -double CYCastDouble(const char *value) { - return CYCastDouble(value, strlen(value)); +_visible bool CYStartsWith(const CYUTF8String &haystack, const CYUTF8String &needle) { + return haystack.size >= needle.size && strncmp(haystack.data, needle.data, needle.size) == 0; } -CYUTF8String CYPoolCode(CYPool &pool, std::istream &stream) { +CYUTF8String CYPoolCode(CYPool &pool, std::streambuf &stream) { CYLocalPool local; CYDriver driver(local, stream); - cy::parser parser(driver); - _assert(parser.parse() == 0); - _assert(driver.errors_.empty()); + if (driver.Parse()) { + if (!driver.errors_.empty()) + CYThrow("%s", driver.errors_.front().message_.c_str()); + CYThrow("syntax error"); + } CYOptions options; CYContext context(options); - driver.program_->Replace(context); + driver.script_->Replace(context); std::stringbuf str; CYOutput out(str, options); - out << *driver.program_; - return $pool.strdup(str.str().c_str()); + 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; } - -_visible void CYThrow(const char *format, ...) { - va_list args; - va_start(args, format); - throw CYPoolError(format, args); - // XXX: does this matter? :( - va_end(args); -} - -const char *CYPoolError::PoolCString(CYPool &pool) const { - return pool.strdup(message_); -} - -CYPoolError::CYPoolError(const CYPoolError &rhs) : - message_(pool_.strdup(rhs.message_)) -{ -} - -CYPoolError::CYPoolError(const char *format, ...) { - va_list args; - va_start(args, format); - // XXX: there might be a beter way to think about this - message_ = pool_.vsprintf(64, format, args); - va_end(args); -} - -CYPoolError::CYPoolError(const char *format, va_list args) { - // XXX: there might be a beter way to think about this - message_ = pool_.vsprintf(64, format, args); -}