-#include <dlfcn.h>
-#include <mach/mach.h>
-
-extern "C" {
-#include <mach-o/nlist.h>
-}
+/* Cycript - Optimizing JavaScript Compiler/Runtime
+ * Copyright (C) 2009-2014 Jay Freeman (saurik)
+*/
+
+/* GNU Affero General Public License, Version 3 {{{ */
+/*
+ * 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/>.
+**/
+/* }}} */
+
+#include <sstream>
+#include <string>
-#include <cstdio>
-#include <pthread.h>
-#include <unistd.h>
+#include <dlfcn.h>
-#include "Baton.hpp"
#include "Exception.hpp"
#include "Pooling.hpp"
-#include "Trampoline.t.hpp"
-
-extern "C" void __pthread_set_self(pthread_t);
-
-template <typename Type_>
-static void nlset(Type_ &function, struct nlist *nl, size_t index) {
- struct nlist &name(nl[index]);
- uintptr_t value(name.n_value);
- _assert(value != 0);
- if ((name.n_desc & N_ARM_THUMB_DEF) != 0)
- value |= 0x00000001;
- function = value;
-}
-
-void InjectLibrary(pid_t pid) {
- // XXX: break this into the build environment
- const char *library("/usr/lib/libcycript.dylib");
-
- static const size_t Stack_(8 * 1024);
- size_t length(strlen(library) + 1), depth(sizeof(Baton) + length);
- depth = (depth + sizeof(uintptr_t) + 1) / sizeof(uintptr_t) * sizeof(uintptr_t);
- CYPool pool;
- uint8_t *local(reinterpret_cast<uint8_t *>(apr_palloc(pool, depth)));
- Baton *baton(reinterpret_cast<Baton *>(local));
+#if defined(__APPLE__) && (defined(__i386__) || defined(__x86_64__))
+#include <sys/fcntl.h>
+#include <sys/mman.h>
- uintptr_t set_self_internal;
- uintptr_t set_self_external;
+#include <mach-o/loader.h>
- struct nlist nl[3];
- memset(nl, 0, sizeof(nl));
- nl[0].n_un.n_name = (char *) "__pthread_set_self";
- nl[1].n_un.n_name = (char *) "___pthread_set_self";
- nlist("/usr/lib/libSystem.B.dylib", nl);
- nlset(set_self_internal, nl, 0);
- nlset(set_self_external, nl, 1);
+#define CS_OPS_PIDOFFSET 6
- baton->_pthread_set_self = reinterpret_cast<void (*)(pthread_t)>(reinterpret_cast<uintptr_t>(&__pthread_set_self) - set_self_external + set_self_internal);
-
- baton->pthread_create = &pthread_create;
- baton->pthread_join = &pthread_join;
+extern "C" int csops(pid_t pid, unsigned int ops, void *useraddr, size_t usersize);
+extern "C" int proc_pidpath(int pid, void *buffer, uint32_t buffersize);
+#endif
- baton->dlopen = &dlopen;
- baton->dlsym = &dlsym;
+int main(int argc, char * const argv[], char const * const envp[]);
+extern "C" char *MSmain0(int argc, char *argv[]);
- baton->mach_thread_self = &mach_thread_self;
- baton->thread_terminate = &thread_terminate;
+static std::string LibraryFor(void *address) {
+ Dl_info info;
+ _assert(dladdr(address, &info) != 0);
+ return info.dli_fname;
+}
- baton->pid = getpid();
- memcpy(baton->library, library, length);
+template <typename Type_>
+Type_ *shift(Type_ *data, size_t size) {
+ return reinterpret_cast<Type_ *>(reinterpret_cast<uint8_t *>(data) + size);
+}
- vm_size_t size(depth + Stack_);
+void InjectLibrary(int pid, int argc, const char *argv[]) {
+ auto cynject(LibraryFor(reinterpret_cast<void *>(&main)));
+ auto slash(cynject.rfind('/'));
+ _assert(slash != std::string::npos);
+ cynject = cynject.substr(0, slash) + "/cynject";
- mach_port_t self(mach_task_self()), task;
- _krncall(task_for_pid(self, pid, &task));
+ auto library(LibraryFor(reinterpret_cast<void *>(&MSmain0)));
- vm_address_t stack;
- _krncall(vm_allocate(task, &stack, size, true));
- vm_address_t data(stack + Stack_);
+#if defined(__APPLE__) && (defined(__i386__) || defined(__x86_64__))
+ off_t offset;
+ _assert(csops(pid, CS_OPS_PIDOFFSET, &offset, sizeof(offset)) != -1);
- vm_write(task, data, reinterpret_cast<vm_address_t>(baton), depth);
+ char path[PATH_MAX];
+ int writ(proc_pidpath(pid, path, sizeof(path)));
+ _assert(writ != 0);
- vm_address_t code;
- _krncall(vm_allocate(task, &code, sizeof(Trampoline_), true));
- vm_write(task, code, reinterpret_cast<vm_address_t>(Trampoline_), sizeof(Trampoline_));
- _krncall(vm_protect(task, code, sizeof(Trampoline_), false, VM_PROT_READ | VM_PROT_EXECUTE));
+ auto fd(_syscall(open(path, O_RDONLY)));
- thread_act_t thread;
- _krncall(thread_create(task, &thread));
+ auto page(getpagesize());
+ auto size(page * 4);
+ auto map(_syscall(mmap(NULL, size, PROT_READ, MAP_SHARED, fd, offset)));
- thread_state_flavor_t flavor;
- mach_msg_type_number_t count;
- size_t push;
+ _syscall(close(fd)); // XXX: _scope
-#if defined(__arm__)
- arm_thread_state_t state;
- flavor = ARM_THREAD_STATE;
- count = ARM_THREAD_STATE_COUNT;
- push = 0;
-#elif defined(__i386__)
- i386_thread_state_t state;
- flavor = i386_THREAD_STATE;
- count = i386_THREAD_STATE_COUNT;
- push = 5;
-#else
- #error XXX: implement
-#endif
+ auto header(reinterpret_cast<mach_header *>(map));
+ auto command(reinterpret_cast<load_command *>(header + 1));
- uintptr_t frame[push];
- if (sizeof(frame) != 0)
- memset(frame, 0, sizeof(frame));
+ switch (header->magic) {
+ case MH_MAGIC_64:
+ command = shift(command, sizeof(uint32_t));
+ case MH_MAGIC:
+ break;
+ default:
+ _assert(false);
+ }
- memset(&state, 0, sizeof(state));
+ bool ios(false);
+ for (decltype(header->ncmds) i(0); i != header->ncmds; ++i) {
+ if (command->cmd == LC_VERSION_MIN_IPHONEOS)
+ ios = true;
+ command = shift(command, command->cmdsize);
+ }
- mach_msg_type_number_t read(count);
- _krncall(thread_get_state(thread, flavor, reinterpret_cast<thread_state_t>(&state), &read));
- _assert(count == count);
+ _syscall(munmap(map, size)); // XXX: _scope
-#if defined(__arm__)
- state.r[0] = data;
- state.sp = stack + Stack_;
- state.pc = code;
+ auto length(library.size());
+ _assert(length >= 6);
+ length -= 6;
- if ((state.pc & 0x1) != 0) {
- state.pc &= ~0x1;
- state.cpsr |= 0x20;
- }
-#elif defined(__i386__)
- frame[0] = 0;
- frame[1] = data;
-
- state.__eip = code;
- state.__esp = stack + Stack_ - sizeof(frame);
-#else
- #error XXX: implement
+ _assert(library.substr(length) == ".dylib");
+ library = library.substr(0, length);
+ library += ios ? "-sim" : "-sys";
+ library += ".dylib";
#endif
- if (sizeof(frame) != 0)
- vm_write(task, stack + Stack_ - sizeof(frame), reinterpret_cast<vm_address_t>(frame), sizeof(frame));
-
- _krncall(thread_set_state(thread, flavor, reinterpret_cast<thread_state_t>(&state), count));
- _krncall(thread_resume(thread));
+ std::ostringstream inject;
+ inject << cynject << " " << std::dec << pid << " " << library;
+ for (decltype(argc) i(0); i != argc; ++i)
+ inject << " " << argv[i];
- _krncall(mach_port_deallocate(self, task));
+ _assert(system(inject.str().c_str()) == 0);
}