Console.cpp

   1 /* Cycript - Optimizing JavaScript Compiler/Runtime
   2  * Copyright (C) 2009-2015  Jay Freeman (saurik)
   3 */
   4
   5 /* GNU Affero General Public License, Version 3 {{{ */
   6 /*
   7  * This program is free software: you can redistribute it and/or modify
   8  * it under the terms of the GNU Affero General Public License as published by
   9  * the Free Software Foundation, either version 3 of the License, or
  10  * (at your option) any later version.
  11
  12  * This program is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15  * GNU Affero General Public License for more details.
  16
  17  * You should have received a copy of the GNU Affero General Public License
  18  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  19 **/
  20 /* }}} */
  21
  22 #include "cycript.hpp"
  23
  24 #ifdef CY_EXECUTE
  25 #include "JavaScript.hpp"
  26 #endif
  27
  28 #include <cstdio>
  29 #include <fstream>
  30 #include <sstream>
  31
  32 #include <setjmp.h>
  33
  34 #ifdef HAVE_READLINE_H
  35 #include <readline.h>
  36 #else
  37 #include <readline/readline.h>
  38 #endif
  39
  40 #ifdef HAVE_HISTORY_H
  41 #include <history.h>
  42 #else
  43 #include <readline/history.h>
  44 #endif
  45
  46 #include <errno.h>
  47 #include <getopt.h>
  48 #include <signal.h>
  49 #include <unistd.h>
  50
  51 #include <sys/socket.h>
  52 #include <sys/types.h>
  53 #include <sys/stat.h>
  54 #include <fcntl.h>
  55 #include <netdb.h>
  56
  57 #include <sys/types.h>
  58 #include <sys/socket.h>
  59 #include <netinet/in.h>
  60 #include <sys/un.h>
  61 #include <pwd.h>
  62
  63 #include <dlfcn.h>
  64
  65 #include "Display.hpp"
  66 #include "Driver.hpp"
  67 #include "Highlight.hpp"
  68 #include "Replace.hpp"
  69
  70 static volatile enum {
  71     Working,
  72     Parsing,
  73     Running,
  74     Sending,
  75     Waiting,
  76 } mode_;
  77
  78 static jmp_buf ctrlc_;
  79
  80 static void sigint(int) {
  81     switch (mode_) {
  82         case Working:
  83             return;
  84         case Parsing:
  85             longjmp(ctrlc_, 1);
  86         case Running:
  87             CYCancel();
  88             return;
  89         case Sending:
  90             return;
  91         case Waiting:
  92             return;
  93     }
  94 }
  95
  96 static bool bison_;
  97 static bool strict_;
  98 static bool pretty_;
  99
 100 void Setup(CYDriver &driver) {
 101     if (bison_)
 102         driver.debug_ = 1;
 103     if (strict_)
 104         driver.strict_ = true;
 105 }
 106
 107 void Setup(CYPool &pool, CYOutput &out, CYDriver &driver, CYOptions &options, bool lower) {
 108     out.pretty_ = pretty_;
 109     if (lower)
 110         driver.Replace(pool, options);
 111 }
 112
 113 static CYUTF8String Run(CYPool &pool, int client, CYUTF8String code) {
 114     const char *json;
 115     uint32_t size;
 116
 117     if (client == -1) {
 118         mode_ = Running;
 119 #ifdef CY_EXECUTE
 120         json = CYExecute(CYGetJSContext(), pool, code);
 121 #else
 122         json = NULL;
 123 #endif
 124         mode_ = Working;
 125         if (json == NULL)
 126             size = 0;
 127         else
 128             size = strlen(json);
 129     } else {
 130         mode_ = Sending;
 131         size = code.size;
 132         _assert(CYSendAll(client, &size, sizeof(size)));
 133         _assert(CYSendAll(client, code.data, code.size));
 134         mode_ = Waiting;
 135         _assert(CYRecvAll(client, &size, sizeof(size)));
 136         if (size == _not(uint32_t))
 137             json = NULL;
 138         else {
 139             char *temp(new(pool) char[size + 1]);
 140             _assert(CYRecvAll(client, temp, size));
 141             temp[size] = '\0';
 142             json = temp;
 143         }
 144         mode_ = Working;
 145     }
 146
 147     return CYUTF8String(json, size);
 148 }
 149
 150 static CYUTF8String Run(CYPool &pool, int client, const std::string &code) {
 151     return Run(pool, client, CYUTF8String(code.c_str(), code.size()));
 152 }
 153
 154 static std::ostream *out_;
 155
 156 static void Write(bool syntax, const char *data, size_t size, std::ostream &out) {
 157     if (syntax)
 158         CYLexerHighlight(data, size, out);
 159     else
 160         out.write(data, size);
 161 }
 162
 163 static void Output(bool syntax, CYUTF8String json, std::ostream *out, bool expand = false) {
 164     const char *data(json.data);
 165     size_t size(json.size);
 166
 167     if (data == NULL || out == NULL)
 168         return;
 169
 170     if (!expand ||
 171         data[0] != '@' && data[0] != '"' && data[0] != '\'' ||
 172         data[0] == '@' && data[1] != '"' && data[1] != '\''
 173     )
 174         Write(syntax, data, size, *out);
 175     else for (size_t i(0); i != size; ++i)
 176         if (data[i] != '\\')
 177             *out << data[i];
 178         else switch(data[++i]) {
 179             case '\0': goto done;
 180             case '\\': *out << '\\'; break;
 181             case '\'': *out << '\''; break;
 182             case '"': *out << '"'; break;
 183             case 'b': *out << '\b'; break;
 184             case 'f': *out << '\f'; break;
 185             case 'n': *out << '\n'; break;
 186             case 'r': *out << '\r'; break;
 187             case 't': *out << '\t'; break;
 188             case 'v': *out << '\v'; break;
 189             default: *out << '\\'; --i; break;
 190         }
 191
 192   done:
 193     *out << std::endl;
 194 }
 195
 196 static void Run(int client, bool syntax, const char *data, size_t size, std::ostream *out = NULL, bool expand = false) {
 197     CYPool pool;
 198     Output(syntax, Run(pool, client, CYUTF8String(data, size)), out, expand);
 199 }
 200
 201 static void Run(int client, bool syntax, std::string &code, std::ostream *out = NULL, bool expand = false) {
 202     Run(client, syntax, code.c_str(), code.size(), out, expand);
 203 }
 204
 205 int (*append_history$)(int, const char *);
 206
 207 static std::string command_;
 208
 209 static int client_;
 210
 211 static CYUTF8String Run(CYPool &pool, const std::string &code) {
 212     return Run(pool, client_, code);
 213 }
 214
 215 static char **Complete(const char *word, int start, int end) {
 216     rl_attempted_completion_over = ~0;
 217     std::string line(rl_line_buffer, start);
 218     return CYComplete(word, command_ + line, &Run);
 219 }
 220
 221 // need char *, not const char *
 222 static char name_[] = "cycript";
 223 static char break_[] = " \t\n\"\\'`@><=;|&{(" ")}" ".:[]";
 224
 225 class History {
 226   private:
 227     std::string histfile_;
 228     size_t histlines_;
 229
 230   public:
 231     History(std::string histfile) :
 232         histfile_(histfile),
 233         histlines_(0)
 234     {
 235         read_history(histfile_.c_str());
 236     }
 237
 238     ~History() {
 239         if (append_history$ != NULL) {
 240             int fd(_syscall(open(histfile_.c_str(), O_CREAT | O_WRONLY, 0600)));
 241             _syscall(close(fd));
 242             _assert((*append_history$)(histlines_, histfile_.c_str()) == 0);
 243         } else {
 244             _assert(write_history(histfile_.c_str()) == 0);
 245         }
 246     }
 247
 248     void operator +=(const std::string &command) {
 249         add_history(command.c_str());
 250         ++histlines_;
 251     }
 252 };
 253
 254 static void Console(CYOptions &options) {
 255     std::string basedir;
 256     if (const char *home = getenv("HOME"))
 257         basedir = home;
 258     else {
 259         passwd *passwd;
 260         if (const char *username = getenv("LOGNAME"))
 261             passwd = getpwnam(username);
 262         else
 263             passwd = getpwuid(getuid());
 264         basedir = passwd->pw_dir;
 265     }
 266
 267     basedir += "/.cycript";
 268     mkdir(basedir.c_str(), 0700);
 269
 270     rl_initialize();
 271     rl_readline_name = name_;
 272
 273     History history(basedir + "/history");
 274
 275     bool bypass(false);
 276     bool debug(false);
 277     bool expand(false);
 278     bool lower(true);
 279     bool syntax(true);
 280
 281     out_ = &std::cout;
 282
 283     // rl_completer_word_break_characters is broken in libedit
 284     rl_basic_word_break_characters = break_;
 285
 286     rl_completer_word_break_characters = break_;
 287     rl_attempted_completion_function = &Complete;
 288     rl_bind_key('\t', rl_complete);
 289
 290     struct sigaction action;
 291     sigemptyset(&action.sa_mask);
 292     action.sa_handler = &sigint;
 293     action.sa_flags = 0;
 294     sigaction(SIGINT, &action, NULL);
 295
 296     restart: for (;;) {
 297         command_.clear();
 298         std::vector<std::string> lines;
 299
 300         bool extra(false);
 301         const char *prompt("cy# ");
 302
 303         if (setjmp(ctrlc_) != 0) {
 304             mode_ = Working;
 305             *out_ << std::endl;
 306             goto restart;
 307         }
 308
 309       read:
 310
 311 #if RL_READLINE_VERSION >= 0x0600
 312         if (syntax)
 313             rl_redisplay_function = CYDisplayUpdate;
 314         else
 315             rl_redisplay_function = rl_redisplay;
 316 #endif
 317
 318         mode_ = Parsing;
 319         char *line(readline(prompt));
 320         mode_ = Working;
 321
 322         if (line == NULL) {
 323             *out_ << std::endl;
 324             break;
 325         } else if (line[0] == '\0')
 326             goto read;
 327
 328         if (!extra) {
 329             extra = true;
 330             if (line[0] == '?') {
 331                 std::string data(line + 1);
 332                 if (data == "bypass") {
 333                     bypass = !bypass;
 334                     *out_ << "bypass == " << (bypass ? "true" : "false") << std::endl;
 335                 } else if (data == "debug") {
 336                     debug = !debug;
 337                     *out_ << "debug == " << (debug ? "true" : "false") << std::endl;
 338                 } else if (data == "destroy") {
 339                     CYDestroyContext();
 340                 } else if (data == "gc") {
 341                     *out_ << "collecting... " << std::flush;
 342                     CYGarbageCollect(CYGetJSContext());
 343                     *out_ << "done." << std::endl;
 344                 } else if (data == "exit") {
 345                     return;
 346                 } else if (data == "expand") {
 347                     expand = !expand;
 348                     *out_ << "expand == " << (expand ? "true" : "false") << std::endl;
 349                 } else if (data == "lower") {
 350                     lower = !lower;
 351                     *out_ << "lower == " << (lower ? "true" : "false") << std::endl;
 352                 } else if (data == "syntax") {
 353                     syntax = !syntax;
 354                     *out_ << "syntax == " << (syntax ? "true" : "false") << std::endl;
 355                 }
 356                 command_ = line;
 357                 history += command_;
 358                 goto restart;
 359             }
 360         }
 361
 362         command_ += line;
 363         command_ += "\n";
 364
 365         char *begin(line), *end(line + strlen(line));
 366         while (char *nl = reinterpret_cast<char *>(memchr(begin, '\n', end - begin))) {
 367             *nl = '\0';
 368             lines.push_back(begin);
 369             begin = nl + 1;
 370         }
 371
 372         lines.push_back(begin);
 373
 374         free(line);
 375
 376         std::string code;
 377
 378         if (bypass)
 379             code = command_;
 380         else {
 381             std::istringstream stream(command_);
 382             CYDriver driver(stream);
 383             Setup(driver);
 384
 385             CYPool pool;
 386             bool failed(driver.Parse(pool));
 387
 388             if (failed || !driver.errors_.empty()) {
 389                 for (CYDriver::Errors::const_iterator error(driver.errors_.begin()); error != driver.errors_.end(); ++error) {
 390                     CYPosition begin(error->location_.begin);
 391                     if (begin.line != lines.size() + 1 || error->warning_) {
 392                         CYPosition end(error->location_.end);
 393
 394                         if (begin.line != lines.size()) {
 395                             std::cerr << "  | ";
 396                             std::cerr << lines[begin.line - 1] << std::endl;
 397                         }
 398
 399                         std::cerr << "....";
 400                         for (size_t i(0); i != begin.column; ++i)
 401                             std::cerr << '.';
 402                         if (begin.line != end.line || begin.column == end.column)
 403                             std::cerr << '^';
 404                         else for (size_t i(0), e(end.column - begin.column); i != e; ++i)
 405                             std::cerr << '^';
 406                         std::cerr << std::endl;
 407
 408                         std::cerr << "  | ";
 409                         std::cerr << error->message_ << std::endl;
 410
 411                         history += command_.substr(0, command_.size() - 1);
 412                         goto restart;
 413                     }
 414                 }
 415
 416                 driver.errors_.clear();
 417
 418                 prompt = "cy> ";
 419                 goto read;
 420             }
 421
 422             if (driver.program_ == NULL)
 423                 goto restart;
 424
 425             std::stringbuf str;
 426             CYOutput out(str, options);
 427             Setup(pool, out, driver, options, lower);
 428             out << *driver.program_;
 429             code = str.str();
 430         }
 431
 432         history += command_.substr(0, command_.size() - 1);
 433
 434         if (debug) {
 435             std::cout << "cy= ";
 436             Write(syntax, code.c_str(), code.size(), std::cout);
 437             std::cout << std::endl;
 438         }
 439
 440         Run(client_, syntax, code, out_, expand);
 441     }
 442 }
 443
 444 void InjectLibrary(pid_t, int, const char *const []);
 445
 446 int Main(int argc, char * const argv[], char const * const envp[]) {
 447     bool tty(isatty(STDIN_FILENO));
 448     bool compile(false);
 449     bool target(false);
 450     CYOptions options;
 451
 452     append_history$ = (int (*)(int, const char *)) (dlsym(RTLD_DEFAULT, "append_history"));
 453
 454 #ifdef CY_ATTACH
 455     pid_t pid(_not(pid_t));
 456 #endif
 457
 458     const char *host(NULL);
 459     const char *port(NULL);
 460
 461     optind = 1;
 462
 463     for (;;) {
 464         int option(getopt_long(argc, argv,
 465             "c"
 466             "g:"
 467             "n:"
 468 #ifdef CY_ATTACH
 469             "p:"
 470 #endif
 471             "r:"
 472             "s"
 473         , (const struct option[]) {
 474             {NULL, no_argument, NULL, 'c'},
 475             {NULL, required_argument, NULL, 'g'},
 476             {NULL, required_argument, NULL, 'n'},
 477 #ifdef CY_ATTACH
 478             {NULL, required_argument, NULL, 'p'},
 479 #endif
 480             {NULL, required_argument, NULL, 'r'},
 481             {NULL, no_argument, NULL, 's'},
 482         {0, 0, 0, 0}}, NULL));
 483
 484         switch (option) {
 485             case -1:
 486                 goto getopt;
 487
 488             case ':':
 489             case '?':
 490                 fprintf(stderr,
 491                     "usage: cycript [-c]"
 492 #ifdef CY_ATTACH
 493                     " [-p <pid|name>]"
 494 #endif
 495                     " [-r <host:port>]"
 496                     " [<script> [<arg>...]]\n"
 497                 );
 498                 return 1;
 499
 500             target:
 501                 if (!target)
 502                     target = true;
 503                 else {
 504                     fprintf(stderr, "only one of -[c"
 505 #ifdef CY_ATTACH
 506                     "p"
 507 #endif
 508                     "r] may be used at a time\n");
 509                     return 1;
 510                 }
 511             break;
 512
 513             case 'c':
 514                 compile = true;
 515             goto target;
 516
 517             case 'g':
 518                 if (false);
 519                 else if (strcmp(optarg, "rename") == 0)
 520                     options.verbose_ = true;
 521                 else if (strcmp(optarg, "bison") == 0)
 522                     bison_ = true;
 523                 else {
 524                     fprintf(stderr, "invalid name for -g\n");
 525                     return 1;
 526                 }
 527             break;
 528
 529             case 'n':
 530                 if (false);
 531                 else if (strcmp(optarg, "minify") == 0)
 532                     pretty_ = true;
 533                 else {
 534                     fprintf(stderr, "invalid name for -n\n");
 535                     return 1;
 536                 }
 537             break;
 538
 539 #ifdef CY_ATTACH
 540             case 'p': {
 541                 size_t size(strlen(optarg));
 542                 char *end;
 543
 544                 pid = strtoul(optarg, &end, 0);
 545                 if (optarg + size != end) {
 546                     // XXX: arg needs to be escaped in some horrendous way of doom
 547                     // XXX: this is a memory leak now because I just don't care enough
 548                     char *command;
 549                     int writ(asprintf(&command, "ps axc|sed -e '/^ *[0-9]/{s/^ *\\([0-9]*\\)\\( *[^ ]*\\)\\{3\\} *-*\\([^ ]*\\)/\\3 \\1/;/^%s /{s/^[^ ]* //;q;};};d'", optarg));
 550                     _assert(writ != -1);
 551
 552                     if (FILE *pids = popen(command, "r")) {
 553                         char value[32];
 554                         size = 0;
 555
 556                         for (;;) {
 557                             size_t read(fread(value + size, 1, sizeof(value) - size, pids));
 558                             if (read == 0)
 559                                 break;
 560                             else {
 561                                 size += read;
 562                                 if (size == sizeof(value))
 563                                     goto fail;
 564                             }
 565                         }
 566
 567                       size:
 568                         if (size == 0)
 569                             goto fail;
 570                         if (value[size - 1] == '\n') {
 571                             --size;
 572                             goto size;
 573                         }
 574
 575                         value[size] = '\0';
 576                         size = strlen(value);
 577                         pid = strtoul(value, &end, 0);
 578                         if (value + size != end) fail:
 579                             pid = _not(pid_t);
 580                         _syscall(pclose(pids));
 581                     }
 582
 583                     if (pid == _not(pid_t)) {
 584                         fprintf(stderr, "unable to find process `%s' using ps\n", optarg);
 585                         return 1;
 586                     }
 587                 }
 588             } goto target;
 589 #endif
 590
 591             case 'r': {
 592                 //size_t size(strlen(optarg));
 593
 594                 char *colon(strrchr(optarg, ':'));
 595                 if (colon == NULL) {
 596                     fprintf(stderr, "missing colon in hostspec\n");
 597                     return 1;
 598                 }
 599
 600                 /*char *end;
 601                 port = strtoul(colon + 1, &end, 10);
 602                 if (end != optarg + size) {
 603                     fprintf(stderr, "invalid port in hostspec\n");
 604                     return 1;
 605                 }*/
 606
 607                 host = optarg;
 608                 *colon = '\0';
 609                 port = colon + 1;
 610             } goto target;
 611
 612             case 's':
 613                 strict_ = true;
 614             break;
 615
 616             default:
 617                 _assert(false);
 618         }
 619     }
 620
 621   getopt:
 622     argc -= optind;
 623     argv += optind;
 624
 625     const char *script;
 626
 627 #ifdef CY_ATTACH
 628     if (pid != _not(pid_t) && argc > 1) {
 629         fprintf(stderr, "-p cannot set argv\n");
 630         return 1;
 631     }
 632 #endif
 633
 634     if (argc == 0)
 635         script = NULL;
 636     else {
 637 #ifdef CY_EXECUTE
 638         // XXX: const_cast?! wtf gcc :(
 639         CYSetArgs(argc - 1, const_cast<const char **>(argv + 1));
 640 #endif
 641         script = argv[0];
 642         if (strcmp(script, "-") == 0)
 643             script = NULL;
 644     }
 645
 646 #ifdef CY_ATTACH
 647     if (pid == _not(pid_t))
 648         client_ = -1;
 649     else {
 650         struct Socket {
 651             int fd_;
 652
 653             Socket(int fd) :
 654                 fd_(fd)
 655             {
 656             }
 657
 658             ~Socket() {
 659                 close(fd_);
 660             }
 661
 662             operator int() {
 663                 return fd_;
 664             }
 665         } server(_syscall(socket(PF_UNIX, SOCK_STREAM, 0)));
 666
 667         struct sockaddr_un address;
 668         memset(&address, 0, sizeof(address));
 669         address.sun_family = AF_UNIX;
 670
 671         const char *tmp;
 672 #if defined(__APPLE__) && (defined(__arm__) || defined(__arm64__))
 673         tmp = "/Library/Caches";
 674 #else
 675         tmp = "/tmp";
 676 #endif
 677
 678         sprintf(address.sun_path, "%s/.s.cy.%u", tmp, getpid());
 679         unlink(address.sun_path);
 680
 681         struct File {
 682             const char *path_;
 683
 684             File(const char *path) :
 685                 path_(path)
 686             {
 687             }
 688
 689             ~File() {
 690                 unlink(path_);
 691             }
 692         } file(address.sun_path);
 693
 694         _syscall(bind(server, reinterpret_cast<sockaddr *>(&address), SUN_LEN(&address)));
 695         _syscall(chmod(address.sun_path, 0777));
 696
 697         _syscall(listen(server, 1));
 698         const char *const argv[] = {address.sun_path, NULL};
 699         InjectLibrary(pid, 1, argv);
 700         client_ = _syscall(accept(server, NULL, NULL));
 701     }
 702 #else
 703     client_ = -1;
 704 #endif
 705
 706     if (client_ == -1 && host != NULL && port != NULL) {
 707         struct addrinfo hints;
 708         memset(&hints, 0, sizeof(hints));
 709         hints.ai_family = AF_UNSPEC;
 710         hints.ai_socktype = SOCK_STREAM;
 711         hints.ai_protocol = 0;
 712         hints.ai_flags = 0;
 713
 714         struct addrinfo *infos;
 715         _syscall(getaddrinfo(host, port, &hints, &infos));
 716
 717         _assert(infos != NULL); try {
 718             for (struct addrinfo *info(infos); info != NULL; info = info->ai_next) {
 719                 int client(_syscall(socket(info->ai_family, info->ai_socktype, info->ai_protocol))); try {
 720                     _syscall(connect(client, info->ai_addr, info->ai_addrlen));
 721                     client_ = client;
 722                     break;
 723                 } catch (...) {
 724                     _syscall(close(client));
 725                     throw;
 726                 }
 727             }
 728         } catch (...) {
 729             freeaddrinfo(infos);
 730             throw;
 731         }
 732     }
 733
 734     if (script == NULL && tty)
 735         Console(options);
 736     else {
 737         std::istream *stream;
 738         if (script == NULL) {
 739             stream = &std::cin;
 740             script = "<stdin>";
 741         } else {
 742             stream = new std::fstream(script, std::ios::in | std::ios::binary);
 743             _assert(!stream->fail());
 744         }
 745
 746         CYDriver driver(*stream, script);
 747         Setup(driver);
 748
 749         CYPool pool;
 750         bool failed(driver.Parse(pool));
 751
 752         if (failed || !driver.errors_.empty()) {
 753             for (CYDriver::Errors::const_iterator i(driver.errors_.begin()); i != driver.errors_.end(); ++i)
 754                 std::cerr << i->location_.begin << ": " << i->message_ << std::endl;
 755         } else if (driver.program_ != NULL) {
 756             std::stringbuf str;
 757             CYOutput out(str, options);
 758             Setup(pool, out, driver, options, true);
 759             out << *driver.program_;
 760             std::string code(str.str());
 761             if (compile)
 762                 std::cout << code;
 763             else
 764                 Run(client_, false, code, &std::cout);
 765         }
 766     }
 767
 768     return 0;
 769 }
 770
 771 int main(int argc, char * const argv[], char const * const envp[]) {
 772     try {
 773         return Main(argc, argv, envp);
 774     } catch (const CYException &error) {
 775         CYPool pool;
 776         fprintf(stderr, "%s\n", error.PoolCString(pool));
 777         return 1;
 778     }
 779 }