Console.cpp

   1 /* Cycript - The Truly Universal Scripting Language
   2  * Copyright (C) 2009-2016  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 <complex>
  30 #include <fstream>
  31 #include <sstream>
  32
  33 #ifdef HAVE_READLINE_H
  34 #include <readline.h>
  35 #else
  36 #include <readline/readline.h>
  37 #endif
  38
  39 #ifdef HAVE_HISTORY_H
  40 #include <history.h>
  41 #else
  42 #include <readline/history.h>
  43 #endif
  44
  45 #include <errno.h>
  46 #include <getopt.h>
  47 #include <setjmp.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/ioctl.h>
  58 #include <sys/types.h>
  59 #include <sys/socket.h>
  60 #include <netinet/in.h>
  61 #include <sys/un.h>
  62
  63 #include <dlfcn.h>
  64 #include <pwd.h>
  65 #include <term.h>
  66
  67 #ifdef __APPLE__
  68 #include <mach/mach_time.h>
  69 #endif
  70
  71 #include "Code.hpp"
  72 #include "Driver.hpp"
  73 #include "Error.hpp"
  74 #include "Highlight.hpp"
  75 #include "Syntax.hpp"
  76
  77 extern "C" int rl_display_fixed;
  78 extern "C" int _rl_vis_botlin;
  79 extern "C" int _rl_last_c_pos;
  80 extern "C" int _rl_last_v_pos;
  81
  82 typedef std::complex<int> CYCursor;
  83
  84 static CYCursor current_;
  85 static int width_;
  86 static size_t point_;
  87
  88 unsigned CYDisplayWidth() {
  89     struct winsize info;
  90     if (ioctl(1, TIOCGWINSZ, &info) != -1)
  91         return info.ws_col;
  92     return tgetnum(const_cast<char *>("co"));
  93 }
  94
  95 void CYDisplayOutput_(bool display, const char *&data) {
  96     for (;; ++data) {
  97         char next(*data);
  98         if (next == '\0' || next == CYIgnoreEnd)
  99             return;
 100         if (display)
 101             putchar(next);
 102     }
 103 }
 104
 105 CYCursor CYDisplayOutput(bool display, int width, const char *data, ssize_t offset = 0) {
 106     CYCursor point(current_);
 107
 108     for (;;) {
 109         if (offset-- == 0)
 110             point = current_;
 111         switch (char next = *data++) {
 112             case '\0':
 113                 return point;
 114             break;
 115
 116             case CYIgnoreStart:
 117                 CYDisplayOutput_(display, data);
 118             case CYIgnoreEnd:
 119                 ++offset;
 120             break;
 121
 122             default:
 123                 if (display)
 124                     putchar(next);
 125                 current_ += CYCursor(0, 1);
 126                 if (current_.imag() != width)
 127                     break;
 128                 current_ = CYCursor(current_.real() + 1, 0);
 129                 if (display)
 130                     putp(clr_eos);
 131             break;
 132
 133             case '\n':
 134                 current_ = CYCursor(current_.real() + 1, 4);
 135                 if (display) {
 136                     putp(clr_eol);
 137                     putchar('\n');
 138                     putchar(' ');
 139                     putchar(' ');
 140                     putchar(' ');
 141                     putchar(' ');
 142                 }
 143             break;
 144
 145         }
 146     }
 147 }
 148
 149 void CYDisplayMove_(char *negative, char *positive, int offset) {
 150     if (offset < 0)
 151         putp(tparm(negative, -offset));
 152     else if (offset > 0)
 153         putp(tparm(positive, offset));
 154 }
 155
 156 void CYDisplayMove(CYCursor target) {
 157     CYCursor offset(target - current_);
 158
 159     CYDisplayMove_(parm_up_cursor, parm_down_cursor, offset.real());
 160
 161     if (char *parm = tparm(column_address, target.imag()))
 162         putp(parm);
 163     else
 164         CYDisplayMove_(parm_left_cursor, parm_right_cursor, offset.imag());
 165
 166     current_ = target;
 167 }
 168
 169 void CYDisplayUpdate() {
 170     current_ = CYCursor(_rl_last_v_pos, _rl_last_c_pos);
 171
 172     const char *prompt(rl_display_prompt);
 173
 174     std::ostringstream stream;
 175     CYLexerHighlight(rl_line_buffer, rl_end, stream, true);
 176     std::string string(stream.str());
 177     const char *buffer(string.c_str());
 178
 179     int width(CYDisplayWidth());
 180     if (width_ != width) {
 181         current_ = CYCursor();
 182         CYDisplayOutput(false, width, prompt);
 183         current_ = CYDisplayOutput(false, width, buffer, point_);
 184     }
 185
 186     CYDisplayMove(CYCursor());
 187     CYDisplayOutput(true, width, prompt);
 188     CYCursor target(CYDisplayOutput(true, width, stream.str().c_str(), rl_point));
 189
 190     _rl_vis_botlin = current_.real();
 191
 192     if (current_.imag() == 0)
 193         CYDisplayOutput(true, width, " ");
 194     putp(clr_eos);
 195
 196     CYDisplayMove(target);
 197     fflush(stdout);
 198
 199     _rl_last_v_pos = current_.real();
 200     _rl_last_c_pos = current_.imag();
 201
 202     width_ = width;
 203     point_ = rl_point;
 204 }
 205
 206 static volatile enum {
 207     Working,
 208     Parsing,
 209     Running,
 210     Sending,
 211     Waiting,
 212 } mode_;
 213
 214 static jmp_buf ctrlc_;
 215
 216 static void sigint(int) {
 217     switch (mode_) {
 218         case Working:
 219             return;
 220         case Parsing:
 221             longjmp(ctrlc_, 1);
 222         case Running:
 223 #ifndef __ANDROID__
 224             CYCancel();
 225 #endif
 226             return;
 227         case Sending:
 228             return;
 229         case Waiting:
 230             return;
 231     }
 232 }
 233
 234 static bool bison_;
 235 static bool timing_;
 236 static bool strict_;
 237 static bool pretty_;
 238
 239 void Setup(CYDriver &driver) {
 240     if (bison_)
 241         driver.debug_ = 1;
 242     if (strict_)
 243         driver.strict_ = true;
 244 }
 245
 246 void Setup(CYOutput &out, CYDriver &driver, CYOptions &options, bool lower) {
 247     out.pretty_ = pretty_;
 248     if (lower)
 249         driver.Replace(options);
 250 }
 251
 252 static CYUTF8String Run(CYPool &pool, int client, CYUTF8String code) {
 253     const char *json;
 254     uint32_t size;
 255
 256     if (client == -1) {
 257         mode_ = Running;
 258 #ifdef CY_EXECUTE
 259         json = CYExecute(CYGetJSContext(), pool, code);
 260 #else
 261         json = NULL;
 262 #endif
 263         mode_ = Working;
 264         if (json == NULL)
 265             size = 0;
 266         else
 267             size = strlen(json);
 268     } else {
 269         mode_ = Sending;
 270         size = code.size;
 271         _assert(CYSendAll(client, &size, sizeof(size)));
 272         _assert(CYSendAll(client, code.data, code.size));
 273         mode_ = Waiting;
 274         _assert(CYRecvAll(client, &size, sizeof(size)));
 275         if (size == _not(uint32_t))
 276             json = NULL;
 277         else {
 278             char *temp(new(pool) char[size + 1]);
 279             _assert(CYRecvAll(client, temp, size));
 280             temp[size] = '\0';
 281             json = temp;
 282         }
 283         mode_ = Working;
 284     }
 285
 286     return CYUTF8String(json, size);
 287 }
 288
 289 static CYUTF8String Run(CYPool &pool, int client, const std::string &code) {
 290     return Run(pool, client, CYUTF8String(code.c_str(), code.size()));
 291 }
 292
 293 static std::ostream *out_;
 294
 295 static void Output(CYUTF8String json, std::ostream *out, bool expand = false, bool reparse = false) {
 296     CYPool pool;
 297
 298     if (reparse) do {
 299         CYStream stream(json.data, json.data + json.size);
 300         CYDriver driver(pool, stream);
 301         if (driver.Parse(CYMarkExpression))
 302             break;
 303         std::stringbuf str;
 304         CYOptions options;
 305         CYOutput out(str, options);
 306         out.pretty_ = true;
 307         out << *driver.context_;
 308         std::string data(str.str());
 309         json = CYPoolUTF8String(pool, data);
 310         if (json.size == 0)
 311             json.data = NULL;
 312     } while (false);
 313
 314     const char *data(json.data);
 315     size_t size(json.size);
 316
 317     if (data == NULL || out == NULL)
 318         return;
 319
 320     if (!expand ||
 321         data[0] != '@' && data[0] != '"' && data[0] != '\'' ||
 322         data[0] == '@' && data[1] != '"' && data[1] != '\''
 323     )
 324         CYLexerHighlight(data, size, *out);
 325     else for (size_t i(0); i != size; ++i)
 326         if (data[i] != '\\')
 327             *out << data[i];
 328         else switch(data[++i]) {
 329             case '\0': goto done;
 330             case '\\': *out << '\\'; break;
 331             case '\'': *out << '\''; break;
 332             case '"': *out << '"'; break;
 333             case 'b': *out << '\b'; break;
 334             case 'f': *out << '\f'; break;
 335             case 'n': *out << '\n'; break;
 336             case 'r': *out << '\r'; break;
 337             case 't': *out << '\t'; break;
 338             case 'v': *out << '\v'; break;
 339             default: *out << '\\'; --i; break;
 340         }
 341
 342   done:
 343     *out << std::endl;
 344 }
 345
 346 int (*append_history$)(int, const char *);
 347
 348 static std::string command_;
 349
 350 static int client_;
 351
 352 static CYUTF8String Run(CYPool &pool, const std::string &code) {
 353     return Run(pool, client_, code);
 354 }
 355
 356 static char **Complete(const char *word, int start, int end) {
 357     rl_attempted_completion_over = ~0;
 358     std::string line(rl_line_buffer, start);
 359     char **values(CYComplete(word, command_ + line, &Run));
 360     mode_ = Parsing;
 361     return values;
 362 }
 363
 364 // need char *, not const char *
 365 static char name_[] = "cycript";
 366 static char break_[] = " \t\n\"\\'`@><=;|&{(" ")}" ".:[]";
 367
 368 class History {
 369   private:
 370     std::string histfile_;
 371     size_t histlines_;
 372
 373   public:
 374     History(std::string histfile) :
 375         histfile_(histfile),
 376         histlines_(0)
 377     {
 378         read_history(histfile_.c_str());
 379
 380         for (HIST_ENTRY *history((history_set_pos(0), current_history())); history; history = next_history())
 381             for (char *character(history->line); *character; ++character)
 382                 if (*character == '\x01') *character = '\n';
 383     }
 384
 385     ~History() { try {
 386         for (HIST_ENTRY *history((history_set_pos(0), current_history())); history; history = next_history())
 387             for (char *character(history->line); *character; ++character)
 388                 if (*character == '\n') *character = '\x01';
 389
 390         if (append_history$ != NULL) {
 391             int fd(_syscall(open(histfile_.c_str(), O_CREAT | O_WRONLY, 0600)));
 392             _syscall(close(fd));
 393             _assert((*append_history$)(histlines_, histfile_.c_str()) == 0);
 394         } else {
 395             _assert(write_history(histfile_.c_str()) == 0);
 396         }
 397     } catch (const CYException &error) {
 398         CYPool pool;
 399         std::cout << error.PoolCString(pool) << std::endl;
 400     } }
 401
 402     void operator +=(std::string command) {
 403         if (HIST_ENTRY *entry = history_get(where_history()))
 404             if (command == entry->line)
 405                 return;
 406         add_history(command.c_str());
 407         ++histlines_;
 408     }
 409 };
 410
 411 template <typename Type_>
 412 static Type_ *CYmemrchr(Type_ *data, Type_ value, size_t size) {
 413     while (size != 0)
 414         if (data[--size] == value)
 415             return data + size;
 416     return NULL;
 417 }
 418
 419 static void _lblcall(int (*command)(int, int), int count, int key) {
 420     int last(_rl_last_c_pos);
 421     // rl_rubout crashes in _rl_erase_at_end_of_line if _rl_last_c_pos != 0
 422     if (command == &rl_rubout)
 423         _rl_last_c_pos = 0;
 424     for (int i(0); i != count; ++i)
 425         if (command(1, key) != 0)
 426             _assert(false);
 427     _rl_last_c_pos = last;
 428 }
 429
 430 static int CYConsoleKeyReturn(int count, int key) {
 431     if (rl_point != rl_end) {
 432         if (memchr(rl_line_buffer, '\n', rl_end) == NULL) {
 433             _lblcall(&rl_newline, count, key);
 434             return 0;
 435         }
 436
 437       insert:
 438         char *before(CYmemrchr(rl_line_buffer, '\n', rl_point));
 439         if (before == NULL)
 440             before = rl_line_buffer;
 441
 442         int space(before + 1 - rl_line_buffer);
 443         while (space != rl_point && rl_line_buffer[space] == ' ')
 444             ++space;
 445
 446         int adjust(rl_line_buffer + space - 1 - before);
 447         if (space == rl_point && adjust != 0)
 448             _lblcall(&rl_rubout, adjust, '\b');
 449
 450         _lblcall(&rl_insert, count, '\n');
 451         if (adjust != 0)
 452             _lblcall(&rl_insert, adjust, ' ');
 453
 454         return 0;
 455     }
 456
 457     bool done(false);
 458     if (rl_line_buffer[0] == '?')
 459         done = true;
 460     else {
 461         std::string command(rl_line_buffer, rl_end);
 462         command += '\n';
 463         std::stringbuf stream(command);
 464
 465         size_t last(std::string::npos);
 466         for (size_t i(0); i != std::string::npos; i = command.find('\n', i + 1))
 467             ++last;
 468
 469         CYPool pool;
 470         CYDriver driver(pool, stream);
 471         if (driver.Parse() || !driver.errors_.empty())
 472             for (CYDriver::Errors::const_iterator error(driver.errors_.begin()); error != driver.errors_.end(); ++error) {
 473                 if (error->location_.begin.line != last + 1)
 474                     done = true;
 475                 break;
 476             }
 477         else
 478             done = true;
 479     }
 480
 481     if (done) {
 482         _lblcall(&rl_newline, count, key);
 483         return 0;
 484     }
 485
 486     // XXX: this was the most obvious fix, but is seriously dumb
 487     goto insert;
 488 }
 489
 490 static int CYConsoleKeyUp(int count, int key) {
 491     for (; count != 0; --count) {
 492         char *after(CYmemrchr(rl_line_buffer, '\n', rl_point));
 493         if (after == NULL) {
 494             if (int value = rl_get_previous_history(1, key))
 495                 return value;
 496             continue;
 497         }
 498
 499         char *before(CYmemrchr(rl_line_buffer, '\n', after - rl_line_buffer));
 500         if (before == NULL)
 501             before = rl_line_buffer - 1;
 502
 503         ptrdiff_t offset(rl_line_buffer + rl_point - after);
 504         if (offset > after - before)
 505             rl_point = after - rl_line_buffer;
 506         else
 507             rl_point = before + offset - rl_line_buffer;
 508     }
 509
 510     return 0;
 511 }
 512
 513 static int CYConsoleKeyDown(int count, int key) {
 514     for (; count != 0; --count) {
 515         char *after(static_cast<char *>(memchr(rl_line_buffer + rl_point, '\n', rl_end - rl_point)));
 516         if (after == NULL) {
 517             int where(where_history());
 518             if (int value = rl_get_next_history(1, key))
 519                 return value;
 520             if (where != where_history()) {
 521                 char *first(static_cast<char *>(memchr(rl_line_buffer, '\n', rl_end)));
 522                 if (first != NULL)
 523                     rl_point = first - 1 - rl_line_buffer;
 524             }
 525             continue;
 526         }
 527
 528         char *before(CYmemrchr(rl_line_buffer, '\n', rl_point));
 529         if (before == NULL)
 530             before = rl_line_buffer - 1;
 531
 532         char *next(static_cast<char *>(memchr(after + 1, '\n', rl_line_buffer + rl_end - after - 1)));
 533         if (next == NULL)
 534             next = rl_line_buffer + rl_end;
 535
 536         ptrdiff_t offset(rl_line_buffer + rl_point - before);
 537         if (offset > next - after)
 538             rl_point = next - rl_line_buffer;
 539         else
 540             rl_point = after + offset - rl_line_buffer;
 541     }
 542
 543     return 0;
 544 }
 545
 546 static int CYConsoleLineBegin(int count, int key) {
 547     while (rl_point != 0 && rl_line_buffer[rl_point - 1] != '\n')
 548         --rl_point;
 549     return 0;
 550 }
 551
 552 static int CYConsoleLineEnd(int count, int key) {
 553     while (rl_point != rl_end && rl_line_buffer[rl_point] != '\n')
 554         ++rl_point;
 555     if (rl_point != rl_end && rl_editing_mode == 0)
 556         --rl_point;
 557     return 0;
 558 }
 559
 560 static int CYConsoleKeyBack(int count, int key) {
 561     for (; count != 0; --count) {
 562         if (rl_point == 0)
 563             return 1;
 564
 565         char *before(CYmemrchr(rl_line_buffer, '\n', rl_point));
 566         if (before == NULL) {
 567             int adjust(std::min(count, rl_point));
 568             _lblcall(&rl_rubout, adjust, key);
 569             count -= adjust - 1;
 570             continue;
 571         }
 572
 573         int start(before + 1 - rl_line_buffer);
 574         if (start == rl_point) rubout: {
 575             _lblcall(&rl_rubout, 1, key);
 576             continue;
 577         }
 578
 579         for (int i(start); i != rl_point; ++i)
 580             if (rl_line_buffer[i] != ' ')
 581                 goto rubout;
 582         _lblcall(&rl_rubout, (rl_point - start) % 4 ?: 4, key);
 583     }
 584
 585     return 0;
 586 }
 587
 588 static int CYConsoleKeyTab(int count, int key) {
 589     char *before(CYmemrchr(rl_line_buffer, '\n', rl_point));
 590     if (before == NULL) complete:
 591         return rl_complete_internal(rl_completion_mode(&CYConsoleKeyTab));
 592     int start(before + 1 - rl_line_buffer);
 593     for (int i(start); i != rl_point; ++i)
 594         if (rl_line_buffer[i] != ' ')
 595             goto complete;
 596     _lblcall(&rl_insert, 4 - (rl_point - start) % 4, ' ');
 597     return 0;
 598 }
 599
 600 static void CYConsoleRemapBind(Keymap map, rl_command_func_t *from, rl_command_func_t *to) {
 601     char **keyseqs(rl_invoking_keyseqs_in_map(from, map));
 602     if (keyseqs == NULL)
 603         return;
 604     for (char **keyseq(keyseqs); *keyseq != NULL; ++keyseq) {
 605         rl_bind_keyseq_in_map(*keyseq, to, map);
 606         free(*keyseq);
 607     }
 608     free(keyseqs);
 609 }
 610
 611 static void CYConsoleRemapKeys(Keymap map) {
 612     CYConsoleRemapBind(map, &rl_beg_of_line, &CYConsoleLineBegin);
 613     CYConsoleRemapBind(map, &rl_end_of_line, &CYConsoleLineEnd);
 614
 615     CYConsoleRemapBind(map, &rl_get_previous_history, &CYConsoleKeyUp);
 616     CYConsoleRemapBind(map, &rl_get_next_history, &CYConsoleKeyDown);
 617
 618     CYConsoleRemapBind(map, &rl_rubout, &CYConsoleKeyBack);
 619     CYConsoleRemapBind(map, &rl_complete, &CYConsoleKeyTab);
 620 }
 621
 622 static void CYConsolePrepTerm(int meta) {
 623     rl_prep_terminal(meta);
 624
 625     CYConsoleRemapKeys(emacs_standard_keymap);
 626     CYConsoleRemapKeys(emacs_meta_keymap);
 627     CYConsoleRemapKeys(emacs_ctlx_keymap);
 628     CYConsoleRemapKeys(vi_insertion_keymap);
 629     CYConsoleRemapKeys(vi_movement_keymap);
 630 }
 631
 632 static void CYOutputRun(const std::string &code, bool expand = false, bool reparse = false) {
 633     CYPool pool;
 634     Output(Run(pool, client_, code), &std::cout, expand, reparse);
 635 }
 636
 637 static void Console(CYOptions &options) {
 638     std::string basedir;
 639 #ifdef __ANDROID__
 640     basedir = "/data/local/tmp";
 641 #else
 642     if (const char *home = getenv("HOME"))
 643         basedir = home;
 644     else {
 645         passwd *passwd;
 646         if (const char *username = getenv("LOGNAME"))
 647             passwd = getpwnam(username);
 648         else
 649             passwd = getpwuid(getuid());
 650         basedir = passwd->pw_dir;
 651     }
 652 #endif
 653
 654     basedir += "/.cycript";
 655     mkdir(basedir.c_str(), 0700);
 656
 657     rl_initialize();
 658     rl_readline_name = name_;
 659
 660     History history(basedir + "/history");
 661
 662     bool bypass(false);
 663     bool debug(false);
 664     bool expand(false);
 665     bool lower(true);
 666     bool reparse(false);
 667
 668     out_ = &std::cout;
 669
 670     rl_completer_word_break_characters = break_;
 671     rl_attempted_completion_function = &Complete;
 672
 673     if (cur_term != NULL) {
 674         rl_redisplay_function = CYDisplayUpdate;
 675         rl_prep_term_function = CYConsolePrepTerm;
 676     }
 677
 678     CYOutputRun("");
 679
 680     for (;;) {
 681         struct sigaction action;
 682         sigemptyset(&action.sa_mask);
 683         action.sa_handler = &sigint;
 684         action.sa_flags = 0;
 685         sigaction(SIGINT, &action, NULL);
 686
 687         if (setjmp(ctrlc_) != 0) {
 688             mode_ = Working;
 689             *out_ << std::endl;
 690             continue;
 691         }
 692
 693         if (bypass) {
 694             rl_bind_key('\r', &rl_newline);
 695             rl_bind_key('\n', &rl_newline);
 696         } else {
 697             rl_bind_key('\r', &CYConsoleKeyReturn);
 698             rl_bind_key('\n', &CYConsoleKeyReturn);
 699         }
 700
 701         mode_ = Parsing;
 702         char *line(readline("cy# "));
 703         mode_ = Working;
 704
 705         if (line == NULL) {
 706             *out_ << std::endl;
 707             break;
 708         }
 709
 710         std::string command(line);
 711         free(line);
 712         if (command.empty())
 713             continue;
 714         history += command;
 715
 716         if (command[0] == '?') {
 717             std::string data(command.substr(1));
 718             if (data == "bypass") {
 719                 bypass = !bypass;
 720                 *out_ << "bypass == " << (bypass ? "true" : "false") << std::endl;
 721             } else if (data == "debug") {
 722                 debug = !debug;
 723                 *out_ << "debug == " << (debug ? "true" : "false") << std::endl;
 724             } else if (data == "destroy") {
 725                 CYDestroyContext();
 726             } else if (data == "gc") {
 727                 *out_ << "collecting... " << std::flush;
 728                 CYGarbageCollect(CYGetJSContext());
 729                 *out_ << "done." << std::endl;
 730             } else if (data == "exit") {
 731                 return;
 732             } else if (data == "expand") {
 733                 expand = !expand;
 734                 *out_ << "expand == " << (expand ? "true" : "false") << std::endl;
 735             } else if (data == "lower") {
 736                 lower = !lower;
 737                 *out_ << "lower == " << (lower ? "true" : "false") << std::endl;
 738             } else if (data == "reparse") {
 739                 reparse = !reparse;
 740                 *out_ << "reparse == " << (reparse ? "true" : "false") << std::endl;
 741             }
 742
 743             continue;
 744         }
 745
 746         std::string code;
 747         if (bypass)
 748             code = command;
 749         else try {
 750             std::stringbuf stream(command);
 751
 752             CYPool pool;
 753             CYDriver driver(pool, stream);
 754             Setup(driver);
 755
 756             if (driver.Parse() || !driver.errors_.empty()) {
 757                 for (CYDriver::Errors::const_iterator error(driver.errors_.begin()); error != driver.errors_.end(); ++error) {
 758                     CYPosition begin(error->location_.begin);
 759                     CYPosition end(error->location_.end);
 760
 761                     /*if (begin.line != lines2.size()) {
 762                         std::cerr << "  | ";
 763                         std::cerr << lines2[begin.line - 1] << std::endl;
 764                     }*/
 765
 766                     std::cerr << "....";
 767                     for (size_t i(0); i != begin.column; ++i)
 768                         std::cerr << '.';
 769                     if (begin.line != end.line || begin.column == end.column)
 770                         std::cerr << '^';
 771                     else for (size_t i(0), e(end.column - begin.column); i != e; ++i)
 772                         std::cerr << '^';
 773                     std::cerr << std::endl;
 774
 775                     std::cerr << "  | ";
 776                     std::cerr << error->message_ << std::endl;
 777
 778                     break;
 779                 }
 780
 781                 continue;
 782             }
 783
 784             if (driver.script_ == NULL)
 785                 continue;
 786
 787             std::stringbuf str;
 788             CYOutput out(str, options);
 789             Setup(out, driver, options, lower);
 790             out << *driver.script_;
 791             code = str.str();
 792         } catch (const CYException &error) {
 793             CYPool pool;
 794             std::cout << error.PoolCString(pool) << std::endl;
 795             continue;
 796         }
 797
 798         if (debug) {
 799             std::cout << "cy= ";
 800             CYLexerHighlight(code.c_str(), code.size(), std::cout);
 801             std::cout << std::endl;
 802         }
 803
 804         CYOutputRun(code, expand, reparse);
 805     }
 806 }
 807
 808 void InjectLibrary(pid_t, int, const char *const []);
 809
 810 static uint64_t CYGetTime() {
 811 #ifdef __APPLE__
 812     return mach_absolute_time();
 813 #else
 814     struct timespec spec;
 815     clock_gettime(CLOCK_MONOTONIC, &spec);
 816     return spec.tv_sec * UINT64_C(1000000000) + spec.tv_nsec;
 817 #endif
 818 }
 819
 820 int Main(int argc, char * const argv[], char const * const envp[]) {
 821     bool tty(isatty(STDIN_FILENO));
 822     bool compile(false);
 823     bool target(false);
 824     CYOptions options;
 825
 826     append_history$ = (int (*)(int, const char *)) (dlsym(RTLD_DEFAULT, "append_history"));
 827
 828 #ifdef CY_ATTACH
 829     pid_t pid(_not(pid_t));
 830 #endif
 831
 832     const char *host(NULL);
 833     const char *port(NULL);
 834
 835     const char *argv0(argv[0]);
 836
 837     optind = 1;
 838
 839     for (;;) {
 840         int option(getopt_long(argc, argv,
 841             "c"
 842             "g:"
 843             "n:"
 844 #ifdef CY_ATTACH
 845             "p:"
 846 #endif
 847             "r:"
 848             "s"
 849         , (const struct option[]) {
 850             {NULL, no_argument, NULL, 'c'},
 851             {NULL, required_argument, NULL, 'g'},
 852             {NULL, required_argument, NULL, 'n'},
 853 #ifdef CY_ATTACH
 854             {NULL, required_argument, NULL, 'p'},
 855 #endif
 856             {NULL, required_argument, NULL, 'r'},
 857             {NULL, no_argument, NULL, 's'},
 858         {0, 0, 0, 0}}, NULL));
 859
 860         switch (option) {
 861             case -1:
 862                 goto getopt;
 863
 864             case ':':
 865             case '?':
 866                 fprintf(stderr,
 867                     "usage: cycript [-c]"
 868 #ifdef CY_ATTACH
 869                     " [-p <pid|name>]"
 870 #endif
 871                     " [-r <host:port>]"
 872                     " [<script> [<arg>...]]\n"
 873                 );
 874                 return 1;
 875
 876             target:
 877                 if (!target)
 878                     target = true;
 879                 else {
 880                     fprintf(stderr, "only one of -[c"
 881 #ifdef CY_ATTACH
 882                     "p"
 883 #endif
 884                     "r] may be used at a time\n");
 885                     return 1;
 886                 }
 887             break;
 888
 889             case 'c':
 890                 compile = true;
 891             goto target;
 892
 893             case 'g':
 894                 if (false);
 895                 else if (strcmp(optarg, "rename") == 0)
 896                     options.verbose_ = true;
 897                 else if (strcmp(optarg, "bison") == 0)
 898                     bison_ = true;
 899                 else if (strcmp(optarg, "timing") == 0)
 900                     timing_ = true;
 901                 else {
 902                     fprintf(stderr, "invalid name for -g\n");
 903                     return 1;
 904                 }
 905             break;
 906
 907             case 'n':
 908                 if (false);
 909                 else if (strcmp(optarg, "minify") == 0)
 910                     pretty_ = true;
 911                 else {
 912                     fprintf(stderr, "invalid name for -n\n");
 913                     return 1;
 914                 }
 915             break;
 916
 917 #ifdef CY_ATTACH
 918             case 'p': {
 919                 size_t size(strlen(optarg));
 920                 char *end;
 921
 922                 pid = strtoul(optarg, &end, 0);
 923                 if (optarg + size != end) {
 924                     // XXX: arg needs to be escaped in some horrendous way of doom
 925                     // XXX: this is a memory leak now because I just don't care enough
 926                     char *command;
 927                     int writ(asprintf(&command, "ps axc|sed -e '/^ *[0-9]/{s/^ *\\([0-9]*\\)\\( *[^ ]*\\)\\{3\\} *-*\\([^ ]*\\)/\\3 \\1/;/^%s /{s/^[^ ]* //;q;};};d'", optarg));
 928                     _assert(writ != -1);
 929
 930                     if (FILE *pids = popen(command, "r")) {
 931                         char value[32];
 932                         size = 0;
 933
 934                         for (;;) {
 935                             size_t read(fread(value + size, 1, sizeof(value) - size, pids));
 936                             if (read == 0)
 937                                 break;
 938                             else {
 939                                 size += read;
 940                                 if (size == sizeof(value))
 941                                     goto fail;
 942                             }
 943                         }
 944
 945                       size:
 946                         if (size == 0)
 947                             goto fail;
 948                         if (value[size - 1] == '\n') {
 949                             --size;
 950                             goto size;
 951                         }
 952
 953                         value[size] = '\0';
 954                         size = strlen(value);
 955                         pid = strtoul(value, &end, 0);
 956                         if (value + size != end) fail:
 957                             pid = _not(pid_t);
 958                         _syscall(pclose(pids));
 959                     }
 960
 961                     if (pid == _not(pid_t)) {
 962                         fprintf(stderr, "unable to find process `%s' using ps\n", optarg);
 963                         return 1;
 964                     }
 965                 }
 966             } goto target;
 967 #endif
 968
 969             case 'r': {
 970                 //size_t size(strlen(optarg));
 971
 972                 char *colon(strrchr(optarg, ':'));
 973                 if (colon == NULL) {
 974                     fprintf(stderr, "missing colon in hostspec\n");
 975                     return 1;
 976                 }
 977
 978                 /*char *end;
 979                 port = strtoul(colon + 1, &end, 10);
 980                 if (end != optarg + size) {
 981                     fprintf(stderr, "invalid port in hostspec\n");
 982                     return 1;
 983                 }*/
 984
 985                 host = optarg;
 986                 *colon = '\0';
 987                 port = colon + 1;
 988             } goto target;
 989
 990             case 's':
 991                 strict_ = true;
 992             break;
 993
 994             default:
 995                 _assert(false);
 996         }
 997     }
 998
 999   getopt:
1000     argc -= optind;
1001     argv += optind;
1002
1003     const char *script;
1004
1005 #ifdef CY_ATTACH
1006     if (pid != _not(pid_t) && argc > 1) {
1007         fprintf(stderr, "-p cannot set argv\n");
1008         return 1;
1009     }
1010 #endif
1011
1012     if (argc == 0)
1013         script = NULL;
1014     else {
1015         script = argv[0];
1016         if (strcmp(script, "-") == 0)
1017             script = NULL;
1018         --argc;
1019         ++argv;
1020     }
1021
1022 #ifdef CY_EXECUTE
1023     // XXX: const_cast?! wtf gcc :(
1024     CYSetArgs(argv0, script, argc, const_cast<const char **>(argv));
1025 #endif
1026
1027 #ifdef CY_ATTACH
1028     if (pid == _not(pid_t))
1029         client_ = -1;
1030     else {
1031         struct Socket {
1032             int fd_;
1033
1034             Socket(int fd) :
1035                 fd_(fd)
1036             {
1037             }
1038
1039             ~Socket() {
1040                 close(fd_);
1041             }
1042
1043             operator int() {
1044                 return fd_;
1045             }
1046         } server(_syscall(socket(PF_UNIX, SOCK_STREAM, 0)));
1047
1048         struct sockaddr_un address;
1049         memset(&address, 0, sizeof(address));
1050         address.sun_family = AF_UNIX;
1051
1052         const char *tmp;
1053 #if defined(__APPLE__) && (defined(__arm__) || defined(__arm64__))
1054         tmp = "/Library/Caches";
1055 #else
1056         tmp = "/tmp";
1057 #endif
1058
1059         sprintf(address.sun_path, "%s/.s.cy.%u", tmp, getpid());
1060         unlink(address.sun_path);
1061
1062         struct File {
1063             const char *path_;
1064
1065             File(const char *path) :
1066                 path_(path)
1067             {
1068             }
1069
1070             ~File() {
1071                 unlink(path_);
1072             }
1073         } file(address.sun_path);
1074
1075         _syscall(bind(server, reinterpret_cast<sockaddr *>(&address), sizeof(address)));
1076         _syscall(chmod(address.sun_path, 0777));
1077
1078         _syscall(listen(server, 1));
1079         const char *const argv[] = {address.sun_path, NULL};
1080         InjectLibrary(pid, 1, argv);
1081         client_ = _syscall(accept(server, NULL, NULL));
1082     }
1083 #else
1084     client_ = -1;
1085 #endif
1086
1087     if (client_ == -1 && host != NULL && port != NULL) {
1088         struct addrinfo hints;
1089         memset(&hints, 0, sizeof(hints));
1090         hints.ai_family = AF_UNSPEC;
1091         hints.ai_socktype = SOCK_STREAM;
1092         hints.ai_protocol = 0;
1093         hints.ai_flags = 0;
1094
1095         struct addrinfo *infos;
1096         _syscall(getaddrinfo(host, port, &hints, &infos));
1097
1098         _assert(infos != NULL); try {
1099             for (struct addrinfo *info(infos); info != NULL; info = info->ai_next) {
1100                 int client(_syscall(socket(info->ai_family, info->ai_socktype, info->ai_protocol))); try {
1101                     _syscall(connect(client, info->ai_addr, info->ai_addrlen));
1102                     client_ = client;
1103                     break;
1104                 } catch (...) {
1105                     _syscall(close(client));
1106                     throw;
1107                 }
1108             }
1109         } catch (...) {
1110             freeaddrinfo(infos);
1111             throw;
1112         }
1113     }
1114
1115     if (script == NULL && tty)
1116         Console(options);
1117     else {
1118         std::istream *stream;
1119         if (script == NULL) {
1120             stream = &std::cin;
1121             script = "<stdin>";
1122         } else {
1123             stream = new std::fstream(script, std::ios::in | std::ios::binary);
1124             _assert(!stream->fail());
1125         }
1126
1127         if (timing_) {
1128             std::stringbuf buffer;
1129             stream->get(buffer, '\0');
1130             _assert(!stream->fail());
1131
1132             double average(0);
1133             int samples(-50);
1134             uint64_t start(CYGetTime());
1135
1136             for (;;) {
1137                 stream = new std::istringstream(buffer.str());
1138
1139                 CYPool pool;
1140                 CYDriver driver(pool, *stream->rdbuf(), script);
1141                 Setup(driver);
1142
1143                 uint64_t begin(CYGetTime());
1144                 driver.Parse();
1145                 uint64_t end(CYGetTime());
1146
1147                 delete stream;
1148
1149                 average += (end - begin - average) / ++samples;
1150
1151                 uint64_t now(CYGetTime());
1152                 if (samples == 0)
1153                     average = 0;
1154                 else if ((now - start) / 1000000000 >= 1)
1155                     std::cout << std::fixed << average << '\t' << (end - begin) << '\t' << samples << std::endl;
1156                 else continue;
1157
1158                 start = now;
1159             }
1160
1161             stream = new std::istringstream(buffer.str());
1162             std::cin.get();
1163         }
1164
1165         CYPool pool;
1166         CYDriver driver(pool, *stream->rdbuf(), script);
1167         Setup(driver);
1168
1169         bool failed(driver.Parse());
1170
1171         if (failed || !driver.errors_.empty()) {
1172             for (CYDriver::Errors::const_iterator i(driver.errors_.begin()); i != driver.errors_.end(); ++i)
1173                 std::cerr << i->location_.begin << ": " << i->message_ << std::endl;
1174             return 1;
1175         } else if (driver.script_ != NULL) {
1176             std::stringbuf str;
1177             CYOutput out(str, options);
1178             Setup(out, driver, options, true);
1179             out << *driver.script_;
1180             std::string code(str.str());
1181             if (compile)
1182                 std::cout << code;
1183             else {
1184                 CYUTF8String json(Run(pool, client_, code));
1185                 if (CYStartsWith(json, "throw ")) {
1186                     CYLexerHighlight(json.data, json.size, std::cerr);
1187                     std::cerr << std::endl;
1188                     return 1;
1189                 }
1190             }
1191         }
1192     }
1193
1194     return 0;
1195 }
1196
1197 _visible int main(int argc, char * const argv[], char const * const envp[]) {
1198     try {
1199         return Main(argc, argv, envp);
1200     } catch (const CYException &error) {
1201         CYPool pool;
1202         fprintf(stderr, "%s\n", error.PoolCString(pool));
1203         return 1;
1204     }
1205 }