1 /* vi:set ts=8 sts=4 sw=4 noet: 2 * 3 * VIM - Vi IMproved by Bram Moolenaar 4 * Netbeans integration by David Weatherford 5 * Adopted for Win32 by Sergey Khorev 6 * 7 * Do ":help uganda" in Vim to read copying and usage conditions. 8 * Do ":help credits" in Vim to see a list of people who contributed. 9 */ 10 11 /* 12 * Implements client side of org.netbeans.modules.emacs editor 13 * integration protocol. Be careful! The protocol uses offsets 14 * which are *between* characters, whereas vim uses line number 15 * and column number which are *on* characters. 16 * See ":help netbeans-protocol" for explanation. 17 * 18 * The Netbeans messages are received and queued in the gui event loop, or in 19 * the select loop when Vim runs in a terminal. These messages are processed 20 * by netbeans_parse_messages() which is invoked in the idle loop when Vim is 21 * waiting for user input. The function netbeans_parse_messages() is also 22 * called from the ":sleep" command, to allow the execution of test cases that 23 * may not invoke the idle loop. 24 */ 25 26 #include "vim.h" 27 28 #if defined(FEAT_NETBEANS_INTG) || defined(PROTO) 29 30 #ifndef MSWIN 31 # include <netdb.h> 32 # ifdef HAVE_LIBGEN_H 33 # include <libgen.h> 34 # endif 35 #endif 36 37 #include "version.h" 38 39 #define GUARDED 10000 /* typenr for "guarded" annotation */ 40 #define GUARDEDOFFSET 1000000 /* base for "guarded" sign id's */ 41 #define MAX_COLOR_LENGTH 32 /* max length of color name in defineAnnoType */ 42 43 /* The first implementation (working only with Netbeans) returned "1.1". The 44 * protocol implemented here also supports A-A-P. */ 45 static char *ExtEdProtocolVersion = "2.5"; 46 47 static long pos2off(buf_T *, pos_T *); 48 static pos_T *off2pos(buf_T *, long); 49 static pos_T *get_off_or_lnum(buf_T *buf, char_u **argp); 50 static long get_buf_size(buf_T *); 51 static int netbeans_keystring(char_u *keystr); 52 static void special_keys(char_u *args); 53 54 static int getConnInfo(char *file, char **host, char **port, char **password); 55 56 static void nb_init_graphics(void); 57 static void coloncmd(char *cmd, ...); 58 static void nb_set_curbuf(buf_T *buf); 59 static void nb_parse_cmd(char_u *); 60 static int nb_do_cmd(int, char_u *, int, int, char_u *); 61 static void nb_send(char *buf, char *fun); 62 static void nb_free(void); 63 64 #define NETBEANS_OPEN (channel_can_write_to(nb_channel)) 65 static channel_T *nb_channel = NULL; 66 67 static int r_cmdno; /* current command number for reply */ 68 static int dosetvisible = FALSE; 69 70 /* 71 * Include the debugging code if wanted. 72 */ 73 #ifdef NBDEBUG 74 # include "nbdebug.c" 75 #endif 76 77 static int needupdate = 0; 78 static int inAtomic = 0; 79 80 /* 81 * Callback invoked when the channel is closed. 82 */ 83 static void 84 nb_channel_closed(void) 85 { 86 nb_channel = NULL; 87 } 88 89 /* 90 * Close the connection and cleanup. 91 * May be called when the socket was closed earlier. 92 */ 93 static void 94 netbeans_close(void) 95 { 96 if (NETBEANS_OPEN) 97 { 98 netbeans_send_disconnect(); 99 if (nb_channel != NULL) 100 { 101 /* Close the socket and remove the input handlers. */ 102 channel_close(nb_channel, TRUE); 103 channel_clear(nb_channel); 104 } 105 nb_channel = NULL; 106 } 107 108 #ifdef FEAT_BEVAL_GUI 109 bevalServers &= ~BEVAL_NETBEANS; 110 #endif 111 112 needupdate = 0; 113 inAtomic = 0; 114 nb_free(); 115 116 /* remove all signs and update the screen after gutter removal */ 117 coloncmd(":sign unplace *"); 118 changed_window_setting(); 119 update_screen(CLEAR); 120 setcursor(); 121 cursor_on(); 122 out_flush_cursor(TRUE, FALSE); 123 } 124 125 #define NB_DEF_HOST "localhost" 126 #define NB_DEF_ADDR "3219" 127 #define NB_DEF_PASS "changeme" 128 129 static int 130 netbeans_connect(char *params, int doabort) 131 { 132 int port; 133 char buf[32]; 134 char *hostname = NULL; 135 char *address = NULL; 136 char *password = NULL; 137 char *fname; 138 char *arg = NULL; 139 140 if (*params == '=') 141 { 142 /* "=fname": Read info from specified file. */ 143 if (getConnInfo(params + 1, &hostname, &address, &password) == FAIL) 144 return FAIL; 145 } 146 else 147 { 148 if (*params == ':') 149 /* ":<host>:<addr>:<password>": get info from argument */ 150 arg = params + 1; 151 if (arg == NULL && (fname = getenv("__NETBEANS_CONINFO")) != NULL) 152 { 153 /* "": get info from file specified in environment */ 154 if (getConnInfo(fname, &hostname, &address, &password) == FAIL) 155 return FAIL; 156 } 157 else 158 { 159 if (arg != NULL) 160 { 161 /* ":<host>:<addr>:<password>": get info from argument */ 162 hostname = arg; 163 address = strchr(hostname, ':'); 164 if (address != NULL) 165 { 166 *address++ = '\0'; 167 password = strchr(address, ':'); 168 if (password != NULL) 169 *password++ = '\0'; 170 } 171 } 172 173 /* Get the missing values from the environment. */ 174 if (hostname == NULL || *hostname == '\0') 175 hostname = getenv("__NETBEANS_HOST"); 176 if (address == NULL) 177 address = getenv("__NETBEANS_SOCKET"); 178 if (password == NULL) 179 password = getenv("__NETBEANS_VIM_PASSWORD"); 180 181 /* Move values to allocated memory. */ 182 if (hostname != NULL) 183 hostname = (char *)vim_strsave((char_u *)hostname); 184 if (address != NULL) 185 address = (char *)vim_strsave((char_u *)address); 186 if (password != NULL) 187 password = (char *)vim_strsave((char_u *)password); 188 } 189 } 190 191 /* Use the default when a value is missing. */ 192 if (hostname == NULL || *hostname == '\0') 193 { 194 vim_free(hostname); 195 hostname = (char *)vim_strsave((char_u *)NB_DEF_HOST); 196 } 197 if (address == NULL || *address == '\0') 198 { 199 vim_free(address); 200 address = (char *)vim_strsave((char_u *)NB_DEF_ADDR); 201 } 202 if (password == NULL || *password == '\0') 203 { 204 vim_free(password); 205 password = (char *)vim_strsave((char_u *)NB_DEF_PASS); 206 } 207 if (hostname != NULL && address != NULL && password != NULL) 208 { 209 port = atoi(address); 210 nb_channel = channel_open(hostname, port, 3000, nb_channel_closed); 211 if (nb_channel != NULL) 212 { 213 /* success */ 214 # ifdef FEAT_BEVAL_GUI 215 bevalServers |= BEVAL_NETBEANS; 216 # endif 217 218 /* success, login */ 219 vim_snprintf(buf, sizeof(buf), "AUTH %s\n", password); 220 nb_send(buf, "netbeans_connect"); 221 222 sprintf(buf, "0:version=0 \"%s\"\n", ExtEdProtocolVersion); 223 nb_send(buf, "externaleditor_version"); 224 } 225 } 226 227 if (nb_channel == NULL && doabort) 228 getout(1); 229 230 vim_free(hostname); 231 vim_free(address); 232 vim_free(password); 233 return NETBEANS_OPEN ? OK : FAIL; 234 } 235 236 /* 237 * Obtain the NetBeans hostname, port address and password from a file. 238 * Return the strings in allocated memory. 239 * Return FAIL if the file could not be read, OK otherwise (no matter what it 240 * contains). 241 */ 242 static int 243 getConnInfo(char *file, char **host, char **port, char **auth) 244 { 245 FILE *fp; 246 char_u buf[BUFSIZ]; 247 char_u *lp; 248 char_u *nlp; 249 #ifdef UNIX 250 stat_T st; 251 252 /* 253 * For Unix only accept the file when it's not accessible by others. 254 * The open will then fail if we don't own the file. 255 */ 256 if (mch_stat(file, &st) == 0 && (st.st_mode & 0077) != 0) 257 { 258 nbdebug(("Wrong access mode for NetBeans connection info file: \"%s\"\n", 259 file)); 260 semsg(_("E668: Wrong access mode for NetBeans connection info file: \"%s\""), 261 file); 262 return FAIL; 263 } 264 #endif 265 266 fp = mch_fopen(file, "r"); 267 if (fp == NULL) 268 { 269 nbdebug(("Cannot open NetBeans connection info file\n")); 270 PERROR("E660: Cannot open NetBeans connection info file"); 271 return FAIL; 272 } 273 274 /* Read the file. There should be one of each parameter */ 275 while ((lp = (char_u *)fgets((char *)buf, BUFSIZ, fp)) != NULL) 276 { 277 if ((nlp = vim_strchr(lp, '\n')) != NULL) 278 *nlp = 0; /* strip off the trailing newline */ 279 280 if (STRNCMP(lp, "host=", 5) == 0) 281 { 282 vim_free(*host); 283 *host = (char *)vim_strsave(&buf[5]); 284 } 285 else if (STRNCMP(lp, "port=", 5) == 0) 286 { 287 vim_free(*port); 288 *port = (char *)vim_strsave(&buf[5]); 289 } 290 else if (STRNCMP(lp, "auth=", 5) == 0) 291 { 292 vim_free(*auth); 293 *auth = (char *)vim_strsave(&buf[5]); 294 } 295 } 296 fclose(fp); 297 298 return OK; 299 } 300 301 302 struct keyqueue 303 { 304 char_u *keystr; 305 struct keyqueue *next; 306 struct keyqueue *prev; 307 }; 308 309 typedef struct keyqueue keyQ_T; 310 311 static keyQ_T keyHead; /* dummy node, header for circular queue */ 312 313 314 /* 315 * Queue up key commands sent from netbeans. 316 * We store the string, because it may depend on the global mod_mask and 317 * :nbkey doesn't have a key number. 318 */ 319 static void 320 postpone_keycommand(char_u *keystr) 321 { 322 keyQ_T *node; 323 324 node = ALLOC_ONE(keyQ_T); 325 if (node == NULL) 326 return; /* out of memory, drop the key */ 327 328 if (keyHead.next == NULL) /* initialize circular queue */ 329 { 330 keyHead.next = &keyHead; 331 keyHead.prev = &keyHead; 332 } 333 334 /* insert node at tail of queue */ 335 node->next = &keyHead; 336 node->prev = keyHead.prev; 337 keyHead.prev->next = node; 338 keyHead.prev = node; 339 340 node->keystr = vim_strsave(keystr); 341 } 342 343 /* 344 * Handle any queued-up NetBeans keycommands to be send. 345 */ 346 static void 347 handle_key_queue(void) 348 { 349 int postponed = FALSE; 350 351 while (!postponed && keyHead.next && keyHead.next != &keyHead) 352 { 353 /* first, unlink the node */ 354 keyQ_T *node = keyHead.next; 355 keyHead.next = node->next; 356 node->next->prev = node->prev; 357 358 /* Now, send the keycommand. This may cause it to be postponed again 359 * and change keyHead. */ 360 if (node->keystr != NULL) 361 postponed = !netbeans_keystring(node->keystr); 362 vim_free(node->keystr); 363 364 /* Finally, dispose of the node */ 365 vim_free(node); 366 } 367 } 368 369 370 /* 371 * While there's still a command in the work queue, parse and execute it. 372 */ 373 void 374 netbeans_parse_messages(void) 375 { 376 readq_T *node; 377 char_u *buffer; 378 char_u *p; 379 int own_node; 380 381 while (nb_channel != NULL) 382 { 383 node = channel_peek(nb_channel, PART_SOCK); 384 if (node == NULL) 385 break; /* nothing to read */ 386 387 /* Locate the end of the first line in the first buffer. */ 388 p = channel_first_nl(node); 389 if (p == NULL) 390 { 391 /* Command isn't complete. If there is no following buffer, 392 * return (wait for more). If there is another buffer following, 393 * prepend the text to that buffer and delete this one. */ 394 if (channel_collapse(nb_channel, PART_SOCK, TRUE) == FAIL) 395 return; 396 continue; 397 } 398 399 /* There is a complete command at the start of the buffer. 400 * Terminate it with a NUL. When no more text is following unlink 401 * the buffer. Do this before executing, because new buffers can 402 * be added while busy handling the command. */ 403 *p++ = NUL; 404 if (*p == NUL) 405 { 406 own_node = TRUE; 407 buffer = channel_get(nb_channel, PART_SOCK, NULL); 408 /* "node" is now invalid! */ 409 } 410 else 411 { 412 own_node = FALSE; 413 buffer = node->rq_buffer; 414 } 415 416 /* Now, parse and execute the commands. This may set nb_channel to 417 * NULL if the channel is closed. */ 418 nb_parse_cmd(buffer); 419 420 if (own_node) 421 /* buffer finished, dispose of it */ 422 vim_free(buffer); 423 else if (nb_channel != NULL) 424 /* more follows, move it to the start */ 425 channel_consume(nb_channel, PART_SOCK, (int)(p - buffer)); 426 } 427 } 428 429 /* 430 * Handle one NUL terminated command. 431 * 432 * format of a command from netbeans: 433 * 434 * 6:setTitle!84 "a.c" 435 * 436 * bufno 437 * colon 438 * cmd 439 * ! 440 * cmdno 441 * args 442 * 443 * for function calls, the ! is replaced by a / 444 */ 445 static void 446 nb_parse_cmd(char_u *cmd) 447 { 448 char *verb; 449 char *q; 450 int bufno; 451 int isfunc = -1; 452 453 if (STRCMP(cmd, "DISCONNECT") == 0) 454 { 455 /* We assume the server knows that we can safely exit! */ 456 /* Disconnect before exiting, Motif hangs in a Select error 457 * message otherwise. */ 458 netbeans_close(); 459 getout(0); 460 /* NOTREACHED */ 461 } 462 463 if (STRCMP(cmd, "DETACH") == 0) 464 { 465 buf_T *buf; 466 467 FOR_ALL_BUFFERS(buf) 468 buf->b_has_sign_column = FALSE; 469 470 /* The IDE is breaking the connection. */ 471 netbeans_close(); 472 return; 473 } 474 475 bufno = strtol((char *)cmd, &verb, 10); 476 477 if (*verb != ':') 478 { 479 nbdebug((" missing colon: %s\n", cmd)); 480 semsg("E627: missing colon: %s", cmd); 481 return; 482 } 483 ++verb; /* skip colon */ 484 485 for (q = verb; *q; q++) 486 { 487 if (*q == '!') 488 { 489 *q++ = NUL; 490 isfunc = 0; 491 break; 492 } 493 else if (*q == '/') 494 { 495 *q++ = NUL; 496 isfunc = 1; 497 break; 498 } 499 } 500 501 if (isfunc < 0) 502 { 503 nbdebug((" missing ! or / in: %s\n", cmd)); 504 semsg("E628: missing ! or / in: %s", cmd); 505 return; 506 } 507 508 r_cmdno = strtol(q, &q, 10); 509 510 q = (char *)skipwhite((char_u *)q); 511 512 if (nb_do_cmd(bufno, (char_u *)verb, isfunc, r_cmdno, (char_u *)q) == FAIL) 513 { 514 #ifdef NBDEBUG 515 /* 516 * This happens because the ExtEd can send a command or 2 after 517 * doing a stopDocumentListen command. It doesn't harm anything 518 * so I'm disabling it except for debugging. 519 */ 520 nbdebug(("nb_parse_cmd: Command error for \"%s\"\n", cmd)); 521 emsg("E629: bad return from nb_do_cmd"); 522 #endif 523 } 524 } 525 526 struct nbbuf_struct 527 { 528 buf_T *bufp; 529 unsigned int fireChanges:1; 530 unsigned int initDone:1; 531 unsigned int insertDone:1; 532 unsigned int modified:1; 533 int nbbuf_number; 534 char *displayname; 535 int *signmap; 536 short_u signmaplen; 537 short_u signmapused; 538 }; 539 540 typedef struct nbbuf_struct nbbuf_T; 541 542 static nbbuf_T *buf_list = NULL; 543 static int buf_list_size = 0; /* size of buf_list */ 544 static int buf_list_used = 0; /* nr of entries in buf_list actually in use */ 545 546 static char **globalsignmap = NULL; 547 static int globalsignmaplen = 0; 548 static int globalsignmapused = 0; 549 550 static int mapsigntype(nbbuf_T *, int localsigntype); 551 static void addsigntype(nbbuf_T *, int localsigntype, char_u *typeName, 552 char_u *tooltip, char_u *glyphfile, 553 char_u *fg, char_u *bg); 554 static void print_read_msg(nbbuf_T *buf); 555 static void print_save_msg(nbbuf_T *buf, off_T nchars); 556 557 static int curPCtype = -1; 558 559 /* 560 * Free netbeans resources. 561 */ 562 static void 563 nb_free(void) 564 { 565 keyQ_T *key_node = keyHead.next; 566 nbbuf_T buf; 567 int i; 568 569 /* free the netbeans buffer list */ 570 for (i = 0; i < buf_list_used; i++) 571 { 572 buf = buf_list[i]; 573 vim_free(buf.displayname); 574 vim_free(buf.signmap); 575 if (buf.bufp != NULL) 576 { 577 buf.bufp->b_netbeans_file = FALSE; 578 buf.bufp->b_was_netbeans_file = FALSE; 579 } 580 } 581 VIM_CLEAR(buf_list); 582 buf_list_size = 0; 583 buf_list_used = 0; 584 585 /* free the queued key commands */ 586 while (key_node != NULL && key_node != &keyHead) 587 { 588 keyQ_T *next = key_node->next; 589 vim_free(key_node->keystr); 590 vim_free(key_node); 591 if (next == &keyHead) 592 { 593 keyHead.next = &keyHead; 594 keyHead.prev = &keyHead; 595 break; 596 } 597 key_node = next; 598 } 599 600 /* free the queued netbeans commands */ 601 if (nb_channel != NULL) 602 channel_clear(nb_channel); 603 } 604 605 /* 606 * Get the Netbeans buffer number for the specified buffer. 607 */ 608 static int 609 nb_getbufno(buf_T *bufp) 610 { 611 int i; 612 613 for (i = 0; i < buf_list_used; i++) 614 if (buf_list[i].bufp == bufp) 615 return i; 616 return -1; 617 } 618 619 /* 620 * Is this a NetBeans-owned buffer? 621 */ 622 int 623 isNetbeansBuffer(buf_T *bufp) 624 { 625 return NETBEANS_OPEN && bufp->b_netbeans_file; 626 } 627 628 /* 629 * NetBeans and Vim have different undo models. In Vim, the file isn't 630 * changed if changes are undone via the undo command. In NetBeans, once 631 * a change has been made the file is marked as modified until saved. It 632 * doesn't matter if the change was undone. 633 * 634 * So this function is for the corner case where Vim thinks a buffer is 635 * unmodified but NetBeans thinks it IS modified. 636 */ 637 int 638 isNetbeansModified(buf_T *bufp) 639 { 640 if (isNetbeansBuffer(bufp)) 641 { 642 int bufno = nb_getbufno(bufp); 643 644 if (bufno > 0) 645 return buf_list[bufno].modified; 646 else 647 return FALSE; 648 } 649 else 650 return FALSE; 651 } 652 653 /* 654 * Given a Netbeans buffer number, return the netbeans buffer. 655 * Returns NULL for 0 or a negative number. A 0 bufno means a 656 * non-buffer related command has been sent. 657 */ 658 static nbbuf_T * 659 nb_get_buf(int bufno) 660 { 661 /* find or create a buffer with the given number */ 662 int incr; 663 664 if (bufno <= 0) 665 return NULL; 666 667 if (!buf_list) 668 { 669 /* initialize */ 670 buf_list = alloc_clear(100 * sizeof(nbbuf_T)); 671 buf_list_size = 100; 672 } 673 if (bufno >= buf_list_used) /* new */ 674 { 675 if (bufno >= buf_list_size) /* grow list */ 676 { 677 nbbuf_T *t_buf_list = buf_list; 678 679 incr = bufno - buf_list_size + 90; 680 buf_list_size += incr; 681 buf_list = vim_realloc(buf_list, buf_list_size * sizeof(nbbuf_T)); 682 if (buf_list == NULL) 683 { 684 vim_free(t_buf_list); 685 buf_list_size = 0; 686 return NULL; 687 } 688 vim_memset(buf_list + buf_list_size - incr, 0, 689 incr * sizeof(nbbuf_T)); 690 } 691 692 while (buf_list_used <= bufno) 693 { 694 /* Default is to fire text changes. */ 695 buf_list[buf_list_used].fireChanges = 1; 696 ++buf_list_used; 697 } 698 } 699 700 return buf_list + bufno; 701 } 702 703 /* 704 * Return the number of buffers that are modified. 705 */ 706 static int 707 count_changed_buffers(void) 708 { 709 buf_T *bufp; 710 int n; 711 712 n = 0; 713 FOR_ALL_BUFFERS(bufp) 714 if (bufp->b_changed) 715 ++n; 716 return n; 717 } 718 719 /* 720 * End the netbeans session. 721 */ 722 void 723 netbeans_end(void) 724 { 725 int i; 726 static char buf[128]; 727 728 if (!NETBEANS_OPEN) 729 return; 730 731 for (i = 0; i < buf_list_used; i++) 732 { 733 if (!buf_list[i].bufp) 734 continue; 735 if (netbeansForcedQuit) 736 { 737 /* mark as unmodified so NetBeans won't put up dialog on "killed" */ 738 sprintf(buf, "%d:unmodified=%d\n", i, r_cmdno); 739 nbdebug(("EVT: %s", buf)); 740 nb_send(buf, "netbeans_end"); 741 } 742 sprintf(buf, "%d:killed=%d\n", i, r_cmdno); 743 nbdebug(("EVT: %s", buf)); 744 /* nb_send(buf, "netbeans_end"); avoid "write failed" messages */ 745 nb_send(buf, NULL); 746 } 747 } 748 749 /* 750 * Send a message to netbeans. 751 * When "fun" is NULL no error is given. 752 */ 753 static void 754 nb_send(char *buf, char *fun) 755 { 756 if (nb_channel != NULL) 757 channel_send(nb_channel, PART_SOCK, (char_u *)buf, 758 (int)STRLEN(buf), fun); 759 } 760 761 /* 762 * Some input received from netbeans requires a response. This function 763 * handles a response with no information (except the command number). 764 */ 765 static void 766 nb_reply_nil(int cmdno) 767 { 768 char reply[32]; 769 770 nbdebug(("REP %d: <none>\n", cmdno)); 771 772 /* Avoid printing an annoying error message. */ 773 if (!NETBEANS_OPEN) 774 return; 775 776 sprintf(reply, "%d\n", cmdno); 777 nb_send(reply, "nb_reply_nil"); 778 } 779 780 781 /* 782 * Send a response with text. 783 * "result" must have been quoted already (using nb_quote()). 784 */ 785 static void 786 nb_reply_text(int cmdno, char_u *result) 787 { 788 char_u *reply; 789 790 nbdebug(("REP %d: %s\n", cmdno, (char *)result)); 791 792 reply = alloc(STRLEN(result) + 32); 793 sprintf((char *)reply, "%d %s\n", cmdno, (char *)result); 794 nb_send((char *)reply, "nb_reply_text"); 795 796 vim_free(reply); 797 } 798 799 800 /* 801 * Send a response with a number result code. 802 */ 803 static void 804 nb_reply_nr(int cmdno, long result) 805 { 806 char reply[32]; 807 808 nbdebug(("REP %d: %ld\n", cmdno, result)); 809 810 sprintf(reply, "%d %ld\n", cmdno, result); 811 nb_send(reply, "nb_reply_nr"); 812 } 813 814 815 /* 816 * Encode newline, ret, backslash, double quote for transmission to NetBeans. 817 */ 818 static char_u * 819 nb_quote(char_u *txt) 820 { 821 char_u *buf = alloc(2 * STRLEN(txt) + 1); 822 char_u *p = txt; 823 char_u *q = buf; 824 825 if (buf == NULL) 826 return NULL; 827 for (; *p; p++) 828 { 829 switch (*p) 830 { 831 case '\"': 832 case '\\': 833 *q++ = '\\'; *q++ = *p; break; 834 /* case '\t': */ 835 /* *q++ = '\\'; *q++ = 't'; break; */ 836 case '\n': 837 *q++ = '\\'; *q++ = 'n'; break; 838 case '\r': 839 *q++ = '\\'; *q++ = 'r'; break; 840 default: 841 *q++ = *p; 842 break; 843 } 844 } 845 *q = '\0'; 846 847 return buf; 848 } 849 850 851 /* 852 * Remove top level double quotes; convert backslashed chars. 853 * Returns an allocated string (NULL for failure). 854 * If "endp" is not NULL it is set to the character after the terminating 855 * quote. 856 */ 857 static char * 858 nb_unquote(char_u *p, char_u **endp) 859 { 860 char *result = 0; 861 char *q; 862 int done = 0; 863 864 /* result is never longer than input */ 865 result = alloc_clear(STRLEN(p) + 1); 866 if (result == NULL) 867 return NULL; 868 869 if (*p++ != '"') 870 { 871 nbdebug(("nb_unquote called with string that doesn't start with a quote!: %s\n", 872 p)); 873 result[0] = NUL; 874 return result; 875 } 876 877 for (q = result; !done && *p != NUL;) 878 { 879 switch (*p) 880 { 881 case '"': 882 /* 883 * Unbackslashed dquote marks the end, if first char was dquote. 884 */ 885 done = 1; 886 break; 887 888 case '\\': 889 ++p; 890 switch (*p) 891 { 892 case '\\': *q++ = '\\'; break; 893 case 'n': *q++ = '\n'; break; 894 case 't': *q++ = '\t'; break; 895 case 'r': *q++ = '\r'; break; 896 case '"': *q++ = '"'; break; 897 case NUL: --p; break; 898 /* default: skip over illegal chars */ 899 } 900 ++p; 901 break; 902 903 default: 904 *q++ = *p++; 905 } 906 } 907 908 if (endp != NULL) 909 *endp = p; 910 911 return result; 912 } 913 914 /* 915 * Remove from "first" byte to "last" byte (inclusive), at line "lnum" of the 916 * current buffer. Remove to end of line when "last" is MAXCOL. 917 */ 918 static void 919 nb_partialremove(linenr_T lnum, colnr_T first, colnr_T last) 920 { 921 char_u *oldtext, *newtext; 922 int oldlen; 923 int lastbyte = last; 924 925 oldtext = ml_get(lnum); 926 oldlen = (int)STRLEN(oldtext); 927 if (first >= (colnr_T)oldlen || oldlen == 0) /* just in case */ 928 return; 929 if (lastbyte >= oldlen) 930 lastbyte = oldlen - 1; 931 newtext = alloc(oldlen - (int)(lastbyte - first)); 932 if (newtext != NULL) 933 { 934 mch_memmove(newtext, oldtext, first); 935 STRMOVE(newtext + first, oldtext + lastbyte + 1); 936 nbdebug((" NEW LINE %ld: %s\n", lnum, newtext)); 937 ml_replace(lnum, newtext, FALSE); 938 } 939 } 940 941 /* 942 * Replace the "first" line with the concatenation of the "first" and 943 * the "other" line. The "other" line is not removed. 944 */ 945 static void 946 nb_joinlines(linenr_T first, linenr_T other) 947 { 948 int len_first, len_other; 949 char_u *p; 950 951 len_first = (int)STRLEN(ml_get(first)); 952 len_other = (int)STRLEN(ml_get(other)); 953 p = alloc(len_first + len_other + 1); 954 if (p != NULL) 955 { 956 mch_memmove(p, ml_get(first), len_first); 957 mch_memmove(p + len_first, ml_get(other), len_other + 1); 958 ml_replace(first, p, FALSE); 959 } 960 } 961 962 #define SKIP_STOP 2 963 #define streq(a,b) (strcmp(a,b) == 0) 964 965 /* 966 * Do the actual processing of a single netbeans command or function. 967 * The difference between a command and function is that a function 968 * gets a response (it's required) but a command does not. 969 * For arguments see comment for nb_parse_cmd(). 970 */ 971 static int 972 nb_do_cmd( 973 int bufno, 974 char_u *cmd, 975 int func, 976 int cmdno, 977 char_u *args) /* points to space before arguments or NUL */ 978 { 979 int do_update = 0; 980 long off = 0; 981 nbbuf_T *buf = nb_get_buf(bufno); 982 static int skip = 0; 983 int retval = OK; 984 char *cp; /* for when a char pointer is needed */ 985 986 nbdebug(("%s %d: (%d) %s %s\n", (func) ? "FUN" : "CMD", cmdno, bufno, cmd, 987 STRCMP(cmd, "insert") == 0 ? "<text>" : (char *)args)); 988 989 if (func) 990 { 991 /* =====================================================================*/ 992 if (streq((char *)cmd, "getModified")) 993 { 994 if (buf == NULL || buf->bufp == NULL) 995 /* Return the number of buffers that are modified. */ 996 nb_reply_nr(cmdno, (long)count_changed_buffers()); 997 else 998 /* Return whether the buffer is modified. */ 999 nb_reply_nr(cmdno, (long)(buf->bufp->b_changed 1000 || isNetbeansModified(buf->bufp))); 1001 /* =====================================================================*/ 1002 } 1003 else if (streq((char *)cmd, "saveAndExit")) 1004 { 1005 /* Note: this will exit Vim if successful. */ 1006 coloncmd(":confirm qall"); 1007 1008 /* We didn't exit: return the number of changed buffers. */ 1009 nb_reply_nr(cmdno, (long)count_changed_buffers()); 1010 /* =====================================================================*/ 1011 } 1012 else if (streq((char *)cmd, "getCursor")) 1013 { 1014 char_u text[200]; 1015 1016 /* Note: nb_getbufno() may return -1. This indicates the IDE 1017 * didn't assign a number to the current buffer in response to a 1018 * fileOpened event. */ 1019 sprintf((char *)text, "%d %ld %d %ld", 1020 nb_getbufno(curbuf), 1021 (long)curwin->w_cursor.lnum, 1022 (int)curwin->w_cursor.col, 1023 pos2off(curbuf, &curwin->w_cursor)); 1024 nb_reply_text(cmdno, text); 1025 /* =====================================================================*/ 1026 } 1027 else if (streq((char *)cmd, "getAnno")) 1028 { 1029 long linenum = 0; 1030 #ifdef FEAT_SIGNS 1031 if (buf == NULL || buf->bufp == NULL) 1032 { 1033 nbdebug((" Invalid buffer identifier in getAnno\n")); 1034 emsg("E652: Invalid buffer identifier in getAnno"); 1035 retval = FAIL; 1036 } 1037 else 1038 { 1039 int serNum; 1040 1041 cp = (char *)args; 1042 serNum = strtol(cp, &cp, 10); 1043 /* If the sign isn't found linenum will be zero. */ 1044 linenum = (long)buf_findsign(buf->bufp, serNum, NULL); 1045 } 1046 #endif 1047 nb_reply_nr(cmdno, linenum); 1048 /* =====================================================================*/ 1049 } 1050 else if (streq((char *)cmd, "getLength")) 1051 { 1052 long len = 0; 1053 1054 if (buf == NULL || buf->bufp == NULL) 1055 { 1056 nbdebug((" invalid buffer identifier in getLength\n")); 1057 emsg("E632: invalid buffer identifier in getLength"); 1058 retval = FAIL; 1059 } 1060 else 1061 { 1062 len = get_buf_size(buf->bufp); 1063 } 1064 nb_reply_nr(cmdno, len); 1065 /* =====================================================================*/ 1066 } 1067 else if (streq((char *)cmd, "getText")) 1068 { 1069 long len; 1070 linenr_T nlines; 1071 char_u *text = NULL; 1072 linenr_T lno = 1; 1073 char_u *p; 1074 char_u *line; 1075 1076 if (buf == NULL || buf->bufp == NULL) 1077 { 1078 nbdebug((" invalid buffer identifier in getText\n")); 1079 emsg("E633: invalid buffer identifier in getText"); 1080 retval = FAIL; 1081 } 1082 else 1083 { 1084 len = get_buf_size(buf->bufp); 1085 nlines = buf->bufp->b_ml.ml_line_count; 1086 text = alloc((len > 0) ? ((len + nlines) * 2) : 4); 1087 if (text == NULL) 1088 { 1089 nbdebug((" nb_do_cmd: getText has null text field\n")); 1090 retval = FAIL; 1091 } 1092 else 1093 { 1094 p = text; 1095 *p++ = '\"'; 1096 for (; lno <= nlines ; lno++) 1097 { 1098 line = nb_quote(ml_get_buf(buf->bufp, lno, FALSE)); 1099 if (line != NULL) 1100 { 1101 STRCPY(p, line); 1102 p += STRLEN(line); 1103 *p++ = '\\'; 1104 *p++ = 'n'; 1105 vim_free(line); 1106 } 1107 } 1108 *p++ = '\"'; 1109 *p = '\0'; 1110 } 1111 } 1112 if (text == NULL) 1113 nb_reply_text(cmdno, (char_u *)""); 1114 else 1115 { 1116 nb_reply_text(cmdno, text); 1117 vim_free(text); 1118 } 1119 /* =====================================================================*/ 1120 } 1121 else if (streq((char *)cmd, "remove")) 1122 { 1123 long count; 1124 pos_T first, last; 1125 pos_T *pos; 1126 pos_T *next; 1127 linenr_T del_from_lnum, del_to_lnum; /* lines to be deleted as a whole */ 1128 int oldFire = netbeansFireChanges; 1129 int oldSuppress = netbeansSuppressNoLines; 1130 int wasChanged; 1131 1132 if (skip >= SKIP_STOP) 1133 { 1134 nbdebug((" Skipping %s command\n", (char *) cmd)); 1135 nb_reply_nil(cmdno); 1136 return OK; 1137 } 1138 1139 if (buf == NULL || buf->bufp == NULL) 1140 { 1141 nbdebug((" invalid buffer identifier in remove\n")); 1142 emsg("E634: invalid buffer identifier in remove"); 1143 retval = FAIL; 1144 } 1145 else 1146 { 1147 netbeansFireChanges = FALSE; 1148 netbeansSuppressNoLines = TRUE; 1149 1150 nb_set_curbuf(buf->bufp); 1151 wasChanged = buf->bufp->b_changed; 1152 cp = (char *)args; 1153 off = strtol(cp, &cp, 10); 1154 count = strtol(cp, &cp, 10); 1155 args = (char_u *)cp; 1156 /* delete "count" chars, starting at "off" */ 1157 pos = off2pos(buf->bufp, off); 1158 if (!pos) 1159 { 1160 nbdebug((" !bad position\n")); 1161 nb_reply_text(cmdno, (char_u *)"!bad position"); 1162 netbeansFireChanges = oldFire; 1163 netbeansSuppressNoLines = oldSuppress; 1164 return FAIL; 1165 } 1166 first = *pos; 1167 nbdebug((" FIRST POS: line %ld, col %d\n", 1168 first.lnum, first.col)); 1169 pos = off2pos(buf->bufp, off+count-1); 1170 if (!pos) 1171 { 1172 nbdebug((" !bad count\n")); 1173 nb_reply_text(cmdno, (char_u *)"!bad count"); 1174 netbeansFireChanges = oldFire; 1175 netbeansSuppressNoLines = oldSuppress; 1176 return FAIL; 1177 } 1178 last = *pos; 1179 nbdebug((" LAST POS: line %ld, col %d\n", 1180 last.lnum, last.col)); 1181 del_from_lnum = first.lnum; 1182 del_to_lnum = last.lnum; 1183 do_update = 1; 1184 1185 /* Get the position of the first byte after the deleted 1186 * section. "next" is NULL when deleting to the end of the 1187 * file. */ 1188 next = off2pos(buf->bufp, off + count); 1189 1190 /* Remove part of the first line. */ 1191 if (first.col != 0 1192 || (next != NULL && first.lnum == next->lnum)) 1193 { 1194 if (first.lnum != last.lnum 1195 || (next != NULL && first.lnum != next->lnum)) 1196 { 1197 /* remove to the end of the first line */ 1198 nb_partialremove(first.lnum, first.col, 1199 (colnr_T)MAXCOL); 1200 if (first.lnum == last.lnum) 1201 { 1202 /* Partial line to remove includes the end of 1203 * line. Join the line with the next one, have 1204 * the next line deleted below. */ 1205 nb_joinlines(first.lnum, next->lnum); 1206 del_to_lnum = next->lnum; 1207 } 1208 } 1209 else 1210 { 1211 /* remove within one line */ 1212 nb_partialremove(first.lnum, first.col, last.col); 1213 } 1214 ++del_from_lnum; /* don't delete the first line */ 1215 } 1216 1217 /* Remove part of the last line. */ 1218 if (first.lnum != last.lnum && next != NULL 1219 && next->col != 0 && last.lnum == next->lnum) 1220 { 1221 nb_partialremove(last.lnum, 0, last.col); 1222 if (del_from_lnum > first.lnum) 1223 { 1224 /* Join end of last line to start of first line; last 1225 * line is deleted below. */ 1226 nb_joinlines(first.lnum, last.lnum); 1227 } 1228 else 1229 /* First line is deleted as a whole, keep the last 1230 * line. */ 1231 --del_to_lnum; 1232 } 1233 1234 /* First is partial line; last line to remove includes 1235 * the end of line; join first line to line following last 1236 * line; line following last line is deleted below. */ 1237 if (first.lnum != last.lnum && del_from_lnum > first.lnum 1238 && next != NULL && last.lnum != next->lnum) 1239 { 1240 nb_joinlines(first.lnum, next->lnum); 1241 del_to_lnum = next->lnum; 1242 } 1243 1244 /* Delete whole lines if there are any. */ 1245 if (del_to_lnum >= del_from_lnum) 1246 { 1247 int i; 1248 1249 /* delete signs from the lines being deleted */ 1250 for (i = del_from_lnum; i <= del_to_lnum; i++) 1251 { 1252 int id = buf_findsign_id(buf->bufp, (linenr_T)i, NULL); 1253 if (id > 0) 1254 { 1255 nbdebug((" Deleting sign %d on line %d\n", 1256 id, i)); 1257 buf_delsign(buf->bufp, 0, id, NULL); 1258 } 1259 else 1260 { 1261 nbdebug((" No sign on line %d\n", i)); 1262 } 1263 } 1264 1265 nbdebug((" Deleting lines %ld through %ld\n", 1266 del_from_lnum, del_to_lnum)); 1267 curwin->w_cursor.lnum = del_from_lnum; 1268 curwin->w_cursor.col = 0; 1269 del_lines(del_to_lnum - del_from_lnum + 1, FALSE); 1270 } 1271 1272 /* Leave cursor at first deleted byte. */ 1273 curwin->w_cursor = first; 1274 check_cursor_lnum(); 1275 buf->bufp->b_changed = wasChanged; /* logically unchanged */ 1276 netbeansFireChanges = oldFire; 1277 netbeansSuppressNoLines = oldSuppress; 1278 1279 u_blockfree(buf->bufp); 1280 u_clearall(buf->bufp); 1281 } 1282 nb_reply_nil(cmdno); 1283 /* =====================================================================*/ 1284 } 1285 else if (streq((char *)cmd, "insert")) 1286 { 1287 char_u *to_free; 1288 1289 if (skip >= SKIP_STOP) 1290 { 1291 nbdebug((" Skipping %s command\n", (char *) cmd)); 1292 nb_reply_nil(cmdno); 1293 return OK; 1294 } 1295 1296 /* get offset */ 1297 cp = (char *)args; 1298 off = strtol(cp, &cp, 10); 1299 args = (char_u *)cp; 1300 1301 /* get text to be inserted */ 1302 args = skipwhite(args); 1303 args = to_free = (char_u *)nb_unquote(args, NULL); 1304 /* 1305 nbdebug((" CHUNK[%d]: %d bytes at offset %d\n", 1306 buf->bufp->b_ml.ml_line_count, STRLEN(args), off)); 1307 */ 1308 1309 if (buf == NULL || buf->bufp == NULL) 1310 { 1311 nbdebug((" invalid buffer identifier in insert\n")); 1312 emsg("E635: invalid buffer identifier in insert"); 1313 retval = FAIL; 1314 } 1315 else if (args != NULL) 1316 { 1317 int ff_detected = EOL_UNKNOWN; 1318 int buf_was_empty = (buf->bufp->b_ml.ml_flags & ML_EMPTY); 1319 size_t len = 0; 1320 int added = 0; 1321 int oldFire = netbeansFireChanges; 1322 int old_b_changed; 1323 char_u *nlp; 1324 linenr_T lnum; 1325 linenr_T lnum_start; 1326 pos_T *pos; 1327 1328 netbeansFireChanges = 0; 1329 1330 /* Jump to the buffer where we insert. After this "curbuf" 1331 * can be used. */ 1332 nb_set_curbuf(buf->bufp); 1333 old_b_changed = curbuf->b_changed; 1334 1335 /* Convert the specified character offset into a lnum/col 1336 * position. */ 1337 pos = off2pos(curbuf, off); 1338 if (pos != NULL) 1339 { 1340 if (pos->lnum <= 0) 1341 lnum_start = 1; 1342 else 1343 lnum_start = pos->lnum; 1344 } 1345 else 1346 { 1347 /* If the given position is not found, assume we want 1348 * the end of the file. See setLocAndSize HACK. */ 1349 if (buf_was_empty) 1350 lnum_start = 1; /* above empty line */ 1351 else 1352 lnum_start = curbuf->b_ml.ml_line_count + 1; 1353 } 1354 1355 /* "lnum" is the line where we insert: either append to it or 1356 * insert a new line above it. */ 1357 lnum = lnum_start; 1358 1359 /* Loop over the "\n" separated lines of the argument. */ 1360 do_update = 1; 1361 while (*args != NUL) 1362 { 1363 nlp = vim_strchr(args, '\n'); 1364 if (nlp == NULL) 1365 { 1366 /* Incomplete line, probably truncated. Next "insert" 1367 * command should append to this one. */ 1368 len = STRLEN(args); 1369 } 1370 else 1371 { 1372 len = nlp - args; 1373 1374 /* 1375 * We need to detect EOL style, because the commands 1376 * use a character offset. 1377 */ 1378 if (nlp > args && nlp[-1] == '\r') 1379 { 1380 ff_detected = EOL_DOS; 1381 --len; 1382 } 1383 else 1384 ff_detected = EOL_UNIX; 1385 } 1386 args[len] = NUL; 1387 1388 if (lnum == lnum_start 1389 && ((pos != NULL && pos->col > 0) 1390 || (lnum == 1 && buf_was_empty))) 1391 { 1392 char_u *oldline = ml_get(lnum); 1393 char_u *newline; 1394 int col = pos == NULL ? 0 : pos->col; 1395 1396 /* Insert halfway a line. */ 1397 newline = alloc(STRLEN(oldline) + len + 1); 1398 if (newline != NULL) 1399 { 1400 mch_memmove(newline, oldline, (size_t)col); 1401 newline[col] = NUL; 1402 STRCAT(newline, args); 1403 STRCAT(newline, oldline + col); 1404 ml_replace(lnum, newline, FALSE); 1405 } 1406 } 1407 else 1408 { 1409 /* Append a new line. Not that we always do this, 1410 * also when the text doesn't end in a "\n". */ 1411 ml_append((linenr_T)(lnum - 1), args, 1412 (colnr_T)(len + 1), FALSE); 1413 ++added; 1414 } 1415 1416 if (nlp == NULL) 1417 break; 1418 ++lnum; 1419 args = nlp + 1; 1420 } 1421 1422 /* Adjust the marks below the inserted lines. */ 1423 appended_lines_mark(lnum_start - 1, (long)added); 1424 1425 /* 1426 * When starting with an empty buffer set the fileformat. 1427 * This is just guessing... 1428 */ 1429 if (buf_was_empty) 1430 { 1431 if (ff_detected == EOL_UNKNOWN) 1432 #if defined(MSWIN) 1433 ff_detected = EOL_DOS; 1434 #else 1435 ff_detected = EOL_UNIX; 1436 #endif 1437 set_fileformat(ff_detected, OPT_LOCAL); 1438 curbuf->b_start_ffc = *curbuf->b_p_ff; 1439 } 1440 1441 /* 1442 * XXX - GRP - Is the next line right? If I've inserted 1443 * text the buffer has been updated but not written. Will 1444 * netbeans guarantee to write it? Even if I do a :q! ? 1445 */ 1446 curbuf->b_changed = old_b_changed; /* logically unchanged */ 1447 netbeansFireChanges = oldFire; 1448 1449 /* Undo info is invalid now... */ 1450 u_blockfree(curbuf); 1451 u_clearall(curbuf); 1452 } 1453 vim_free(to_free); 1454 nb_reply_nil(cmdno); /* or !error */ 1455 } 1456 else 1457 { 1458 nbdebug(("UNIMPLEMENTED FUNCTION: %s\n", cmd)); 1459 nb_reply_nil(cmdno); 1460 retval = FAIL; 1461 } 1462 } 1463 else /* Not a function; no reply required. */ 1464 { 1465 /* =====================================================================*/ 1466 if (streq((char *)cmd, "create")) 1467 { 1468 /* Create a buffer without a name. */ 1469 if (buf == NULL) 1470 { 1471 nbdebug((" invalid buffer identifier in create\n")); 1472 emsg("E636: invalid buffer identifier in create"); 1473 return FAIL; 1474 } 1475 VIM_CLEAR(buf->displayname); 1476 1477 netbeansReadFile = 0; /* don't try to open disk file */ 1478 do_ecmd(0, NULL, 0, 0, ECMD_ONE, ECMD_HIDE + ECMD_OLDBUF, curwin); 1479 netbeansReadFile = 1; 1480 buf->bufp = curbuf; 1481 maketitle(); 1482 buf->insertDone = FALSE; 1483 #if defined(FEAT_MENU) && defined(FEAT_GUI) 1484 if (gui.in_use) 1485 gui_update_menus(0); 1486 #endif 1487 /* =====================================================================*/ 1488 } 1489 else if (streq((char *)cmd, "insertDone")) 1490 { 1491 if (buf == NULL || buf->bufp == NULL) 1492 { 1493 nbdebug((" invalid buffer identifier in insertDone\n")); 1494 } 1495 else 1496 { 1497 buf->bufp->b_start_eol = *args == 'T'; 1498 buf->insertDone = TRUE; 1499 args += 2; 1500 buf->bufp->b_p_ro = *args == 'T'; 1501 print_read_msg(buf); 1502 } 1503 /* =====================================================================*/ 1504 } 1505 else if (streq((char *)cmd, "saveDone")) 1506 { 1507 long savedChars = atol((char *)args); 1508 1509 if (buf == NULL || buf->bufp == NULL) 1510 nbdebug((" invalid buffer identifier in saveDone\n")); 1511 else 1512 print_save_msg(buf, savedChars); 1513 /* =====================================================================*/ 1514 } 1515 else if (streq((char *)cmd, "startDocumentListen")) 1516 { 1517 if (buf == NULL) 1518 { 1519 nbdebug((" invalid buffer identifier in startDocumentListen\n")); 1520 emsg("E637: invalid buffer identifier in startDocumentListen"); 1521 return FAIL; 1522 } 1523 buf->fireChanges = 1; 1524 /* =====================================================================*/ 1525 } 1526 else if (streq((char *)cmd, "stopDocumentListen")) 1527 { 1528 if (buf == NULL) 1529 { 1530 nbdebug((" invalid buffer identifier in stopDocumentListen\n")); 1531 emsg("E638: invalid buffer identifier in stopDocumentListen"); 1532 return FAIL; 1533 } 1534 buf->fireChanges = 0; 1535 if (buf->bufp != NULL && buf->bufp->b_was_netbeans_file) 1536 { 1537 if (!buf->bufp->b_netbeans_file) 1538 { 1539 nbdebug(("E658: NetBeans connection lost for buffer %d\n", buf->bufp->b_fnum)); 1540 semsg(_("E658: NetBeans connection lost for buffer %d"), 1541 buf->bufp->b_fnum); 1542 } 1543 else 1544 { 1545 /* NetBeans uses stopDocumentListen when it stops editing 1546 * a file. It then expects the buffer in Vim to 1547 * disappear. */ 1548 do_bufdel(DOBUF_DEL, (char_u *)"", 1, 1549 buf->bufp->b_fnum, buf->bufp->b_fnum, TRUE); 1550 vim_memset(buf, 0, sizeof(nbbuf_T)); 1551 } 1552 } 1553 /* =====================================================================*/ 1554 } 1555 else if (streq((char *)cmd, "setTitle")) 1556 { 1557 if (buf == NULL) 1558 { 1559 nbdebug((" invalid buffer identifier in setTitle\n")); 1560 emsg("E639: invalid buffer identifier in setTitle"); 1561 return FAIL; 1562 } 1563 vim_free(buf->displayname); 1564 buf->displayname = nb_unquote(args, NULL); 1565 /* =====================================================================*/ 1566 } 1567 else if (streq((char *)cmd, "initDone")) 1568 { 1569 if (buf == NULL || buf->bufp == NULL) 1570 { 1571 nbdebug((" invalid buffer identifier in initDone\n")); 1572 emsg("E640: invalid buffer identifier in initDone"); 1573 return FAIL; 1574 } 1575 do_update = 1; 1576 buf->initDone = TRUE; 1577 nb_set_curbuf(buf->bufp); 1578 apply_autocmds(EVENT_BUFREADPOST, 0, 0, FALSE, buf->bufp); 1579 1580 /* handle any postponed key commands */ 1581 handle_key_queue(); 1582 /* =====================================================================*/ 1583 } 1584 else if (streq((char *)cmd, "setBufferNumber") 1585 || streq((char *)cmd, "putBufferNumber")) 1586 { 1587 char_u *path; 1588 buf_T *bufp; 1589 1590 if (buf == NULL) 1591 { 1592 nbdebug((" invalid buffer identifier in setBufferNumber\n")); 1593 emsg("E641: invalid buffer identifier in setBufferNumber"); 1594 return FAIL; 1595 } 1596 path = (char_u *)nb_unquote(args, NULL); 1597 if (path == NULL) 1598 return FAIL; 1599 bufp = buflist_findname(path); 1600 vim_free(path); 1601 if (bufp == NULL) 1602 { 1603 nbdebug((" File %s not found in setBufferNumber\n", args)); 1604 semsg("E642: File %s not found in setBufferNumber", args); 1605 return FAIL; 1606 } 1607 buf->bufp = bufp; 1608 buf->nbbuf_number = bufp->b_fnum; 1609 1610 /* "setBufferNumber" has the side effect of jumping to the buffer 1611 * (don't know why!). Don't do that for "putBufferNumber". */ 1612 if (*cmd != 'p') 1613 coloncmd(":buffer %d", bufp->b_fnum); 1614 else 1615 { 1616 buf->initDone = TRUE; 1617 1618 /* handle any postponed key commands */ 1619 handle_key_queue(); 1620 } 1621 1622 /* =====================================================================*/ 1623 } 1624 else if (streq((char *)cmd, "setFullName")) 1625 { 1626 if (buf == NULL) 1627 { 1628 nbdebug((" invalid buffer identifier in setFullName\n")); 1629 emsg("E643: invalid buffer identifier in setFullName"); 1630 return FAIL; 1631 } 1632 vim_free(buf->displayname); 1633 buf->displayname = nb_unquote(args, NULL); 1634 1635 netbeansReadFile = 0; /* don't try to open disk file */ 1636 do_ecmd(0, (char_u *)buf->displayname, 0, 0, ECMD_ONE, 1637 ECMD_HIDE + ECMD_OLDBUF, curwin); 1638 netbeansReadFile = 1; 1639 buf->bufp = curbuf; 1640 maketitle(); 1641 #if defined(FEAT_MENU) && defined(FEAT_GUI) 1642 if (gui.in_use) 1643 gui_update_menus(0); 1644 #endif 1645 /* =====================================================================*/ 1646 } 1647 else if (streq((char *)cmd, "editFile")) 1648 { 1649 if (buf == NULL) 1650 { 1651 nbdebug((" invalid buffer identifier in editFile\n")); 1652 emsg("E644: invalid buffer identifier in editFile"); 1653 return FAIL; 1654 } 1655 /* Edit a file: like create + setFullName + read the file. */ 1656 vim_free(buf->displayname); 1657 buf->displayname = nb_unquote(args, NULL); 1658 do_ecmd(0, (char_u *)buf->displayname, NULL, NULL, ECMD_ONE, 1659 ECMD_HIDE + ECMD_OLDBUF, curwin); 1660 buf->bufp = curbuf; 1661 buf->initDone = TRUE; 1662 do_update = 1; 1663 #if defined(FEAT_TITLE) 1664 maketitle(); 1665 #endif 1666 #if defined(FEAT_MENU) && defined(FEAT_GUI) 1667 if (gui.in_use) 1668 gui_update_menus(0); 1669 #endif 1670 /* =====================================================================*/ 1671 } 1672 else if (streq((char *)cmd, "setVisible")) 1673 { 1674 if (buf == NULL || buf->bufp == NULL) 1675 { 1676 nbdebug((" invalid buffer identifier in setVisible\n")); 1677 /* This message was commented out, probably because it can 1678 * happen when shutting down. */ 1679 if (p_verbose > 0) 1680 emsg("E645: invalid buffer identifier in setVisible"); 1681 return FAIL; 1682 } 1683 if (streq((char *)args, "T") && buf->bufp != curbuf) 1684 { 1685 exarg_T exarg; 1686 exarg.cmd = (char_u *)"goto"; 1687 exarg.forceit = FALSE; 1688 dosetvisible = TRUE; 1689 goto_buffer(&exarg, DOBUF_FIRST, FORWARD, buf->bufp->b_fnum); 1690 do_update = 1; 1691 dosetvisible = FALSE; 1692 1693 #ifdef FEAT_GUI 1694 /* Side effect!!!. */ 1695 if (gui.in_use) 1696 gui_mch_set_foreground(); 1697 #endif 1698 } 1699 /* =====================================================================*/ 1700 } 1701 else if (streq((char *)cmd, "raise")) 1702 { 1703 #ifdef FEAT_GUI 1704 /* Bring gvim to the foreground. */ 1705 if (gui.in_use) 1706 gui_mch_set_foreground(); 1707 #endif 1708 /* =====================================================================*/ 1709 } 1710 else if (streq((char *)cmd, "setModified")) 1711 { 1712 int prev_b_changed; 1713 1714 if (buf == NULL || buf->bufp == NULL) 1715 { 1716 nbdebug((" invalid buffer identifier in setModified\n")); 1717 /* This message was commented out, probably because it can 1718 * happen when shutting down. */ 1719 if (p_verbose > 0) 1720 emsg("E646: invalid buffer identifier in setModified"); 1721 return FAIL; 1722 } 1723 prev_b_changed = buf->bufp->b_changed; 1724 if (streq((char *)args, "T")) 1725 buf->bufp->b_changed = TRUE; 1726 else 1727 { 1728 stat_T st; 1729 1730 /* Assume NetBeans stored the file. Reset the timestamp to 1731 * avoid "file changed" warnings. */ 1732 if (buf->bufp->b_ffname != NULL 1733 && mch_stat((char *)buf->bufp->b_ffname, &st) >= 0) 1734 buf_store_time(buf->bufp, &st, buf->bufp->b_ffname); 1735 buf->bufp->b_changed = FALSE; 1736 } 1737 buf->modified = buf->bufp->b_changed; 1738 if (prev_b_changed != buf->bufp->b_changed) 1739 { 1740 check_status(buf->bufp); 1741 redraw_tabline = TRUE; 1742 #ifdef FEAT_TITLE 1743 maketitle(); 1744 #endif 1745 update_screen(0); 1746 } 1747 /* =====================================================================*/ 1748 } 1749 else if (streq((char *)cmd, "setModtime")) 1750 { 1751 if (buf == NULL || buf->bufp == NULL) 1752 nbdebug((" invalid buffer identifier in setModtime\n")); 1753 else 1754 buf->bufp->b_mtime = atoi((char *)args); 1755 /* =====================================================================*/ 1756 } 1757 else if (streq((char *)cmd, "setReadOnly")) 1758 { 1759 if (buf == NULL || buf->bufp == NULL) 1760 nbdebug((" invalid buffer identifier in setReadOnly\n")); 1761 else if (streq((char *)args, "T")) 1762 buf->bufp->b_p_ro = TRUE; 1763 else 1764 buf->bufp->b_p_ro = FALSE; 1765 /* =====================================================================*/ 1766 } 1767 else if (streq((char *)cmd, "setMark")) 1768 { 1769 /* not yet */ 1770 /* =====================================================================*/ 1771 } 1772 else if (streq((char *)cmd, "showBalloon")) 1773 { 1774 #if defined(FEAT_BEVAL_GUI) 1775 static char *text = NULL; 1776 1777 /* 1778 * Set up the Balloon Expression Evaluation area. 1779 * Ignore 'ballooneval' here. 1780 * The text pointer must remain valid for a while. 1781 */ 1782 if (balloonEval != NULL) 1783 { 1784 vim_free(text); 1785 text = nb_unquote(args, NULL); 1786 if (text != NULL) 1787 gui_mch_post_balloon(balloonEval, (char_u *)text); 1788 } 1789 #endif 1790 /* =====================================================================*/ 1791 } 1792 else if (streq((char *)cmd, "setDot")) 1793 { 1794 pos_T *pos; 1795 #ifdef NBDEBUG 1796 char_u *s; 1797 #endif 1798 1799 if (buf == NULL || buf->bufp == NULL) 1800 { 1801 nbdebug((" invalid buffer identifier in setDot\n")); 1802 emsg("E647: invalid buffer identifier in setDot"); 1803 return FAIL; 1804 } 1805 1806 nb_set_curbuf(buf->bufp); 1807 1808 /* Don't want Visual mode now. */ 1809 if (VIsual_active) 1810 end_visual_mode(); 1811 #ifdef NBDEBUG 1812 s = args; 1813 #endif 1814 pos = get_off_or_lnum(buf->bufp, &args); 1815 if (pos) 1816 { 1817 curwin->w_cursor = *pos; 1818 check_cursor(); 1819 #ifdef FEAT_FOLDING 1820 foldOpenCursor(); 1821 #endif 1822 } 1823 else 1824 { 1825 nbdebug((" BAD POSITION in setDot: %s\n", s)); 1826 } 1827 1828 /* gui_update_cursor(TRUE, FALSE); */ 1829 /* update_curbuf(NOT_VALID); */ 1830 update_topline(); /* scroll to show the line */ 1831 update_screen(VALID); 1832 setcursor(); 1833 cursor_on(); 1834 out_flush_cursor(TRUE, FALSE); 1835 1836 /* Quit a hit-return or more prompt. */ 1837 if (State == HITRETURN || State == ASKMORE) 1838 { 1839 #ifdef FEAT_GUI_GTK 1840 if (gui.in_use && gtk_main_level() > 0) 1841 gtk_main_quit(); 1842 #endif 1843 } 1844 /* =====================================================================*/ 1845 } 1846 else if (streq((char *)cmd, "close")) 1847 { 1848 #ifdef NBDEBUG 1849 char *name = "<NONE>"; 1850 #endif 1851 1852 if (buf == NULL) 1853 { 1854 nbdebug((" invalid buffer identifier in close\n")); 1855 emsg("E648: invalid buffer identifier in close"); 1856 return FAIL; 1857 } 1858 1859 #ifdef NBDEBUG 1860 if (buf->displayname != NULL) 1861 name = buf->displayname; 1862 #endif 1863 if (buf->bufp == NULL) 1864 { 1865 nbdebug((" invalid buffer identifier in close\n")); 1866 /* This message was commented out, probably because it can 1867 * happen when shutting down. */ 1868 if (p_verbose > 0) 1869 emsg("E649: invalid buffer identifier in close"); 1870 } 1871 nbdebug((" CLOSE %d: %s\n", bufno, name)); 1872 #ifdef FEAT_GUI 1873 need_mouse_correct = TRUE; 1874 #endif 1875 if (buf->bufp != NULL) 1876 do_buffer(DOBUF_WIPE, DOBUF_FIRST, FORWARD, 1877 buf->bufp->b_fnum, TRUE); 1878 buf->bufp = NULL; 1879 buf->initDone = FALSE; 1880 do_update = 1; 1881 /* =====================================================================*/ 1882 } 1883 else if (streq((char *)cmd, "setStyle")) /* obsolete... */ 1884 { 1885 nbdebug((" setStyle is obsolete!\n")); 1886 /* =====================================================================*/ 1887 } 1888 else if (streq((char *)cmd, "setExitDelay")) 1889 { 1890 /* Only used in version 2.1. */ 1891 /* =====================================================================*/ 1892 } 1893 else if (streq((char *)cmd, "defineAnnoType")) 1894 { 1895 #ifdef FEAT_SIGNS 1896 int typeNum; 1897 char_u *typeName; 1898 char_u *tooltip; 1899 char_u *p; 1900 char_u *glyphFile; 1901 int parse_error = FALSE; 1902 char_u *fg; 1903 char_u *bg; 1904 1905 if (buf == NULL) 1906 { 1907 nbdebug((" invalid buffer identifier in defineAnnoType\n")); 1908 emsg("E650: invalid buffer identifier in defineAnnoType"); 1909 return FAIL; 1910 } 1911 1912 cp = (char *)args; 1913 typeNum = strtol(cp, &cp, 10); 1914 args = (char_u *)cp; 1915 args = skipwhite(args); 1916 typeName = (char_u *)nb_unquote(args, &args); 1917 args = skipwhite(args + 1); 1918 tooltip = (char_u *)nb_unquote(args, &args); 1919 args = skipwhite(args + 1); 1920 1921 p = (char_u *)nb_unquote(args, &args); 1922 glyphFile = vim_strsave_escaped(p, escape_chars); 1923 vim_free(p); 1924 1925 args = skipwhite(args + 1); 1926 p = skiptowhite(args); 1927 if (*p != NUL) 1928 { 1929 *p = NUL; 1930 p = skipwhite(p + 1); 1931 } 1932 fg = vim_strsave(args); 1933 bg = vim_strsave(p); 1934 if (STRLEN(fg) > MAX_COLOR_LENGTH || STRLEN(bg) > MAX_COLOR_LENGTH) 1935 { 1936 emsg("E532: highlighting color name too long in defineAnnoType"); 1937 vim_free(typeName); 1938 parse_error = TRUE; 1939 } 1940 else if (typeName != NULL && tooltip != NULL && glyphFile != NULL) 1941 addsigntype(buf, typeNum, typeName, tooltip, glyphFile, fg, bg); 1942 else 1943 vim_free(typeName); 1944 1945 /* don't free typeName; it's used directly in addsigntype() */ 1946 vim_free(fg); 1947 vim_free(bg); 1948 vim_free(tooltip); 1949 vim_free(glyphFile); 1950 if (parse_error) 1951 return FAIL; 1952 1953 #endif 1954 /* =====================================================================*/ 1955 } 1956 else if (streq((char *)cmd, "addAnno")) 1957 { 1958 #ifdef FEAT_SIGNS 1959 int serNum; 1960 int localTypeNum; 1961 int typeNum; 1962 pos_T *pos; 1963 1964 if (buf == NULL || buf->bufp == NULL) 1965 { 1966 nbdebug((" invalid buffer identifier in addAnno\n")); 1967 emsg("E651: invalid buffer identifier in addAnno"); 1968 return FAIL; 1969 } 1970 1971 do_update = 1; 1972 1973 cp = (char *)args; 1974 serNum = strtol(cp, &cp, 10); 1975 1976 /* Get the typenr specific for this buffer and convert it to 1977 * the global typenumber, as used for the sign name. */ 1978 localTypeNum = strtol(cp, &cp, 10); 1979 args = (char_u *)cp; 1980 typeNum = mapsigntype(buf, localTypeNum); 1981 1982 pos = get_off_or_lnum(buf->bufp, &args); 1983 1984 cp = (char *)args; 1985 vim_ignored = (int)strtol(cp, &cp, 10); 1986 args = (char_u *)cp; 1987 # ifdef NBDEBUG 1988 if (vim_ignored != -1) 1989 nbdebug((" partial line annotation -- Not Yet Implemented!\n")); 1990 # endif 1991 if (serNum >= GUARDEDOFFSET) 1992 { 1993 nbdebug((" too many annotations! ignoring...\n")); 1994 return FAIL; 1995 } 1996 if (pos) 1997 { 1998 coloncmd(":sign place %d line=%ld name=%d buffer=%d", 1999 serNum, pos->lnum, typeNum, buf->bufp->b_fnum); 2000 if (typeNum == curPCtype) 2001 coloncmd(":sign jump %d buffer=%d", serNum, 2002 buf->bufp->b_fnum); 2003 } 2004 #endif 2005 /* =====================================================================*/ 2006 } 2007 else if (streq((char *)cmd, "removeAnno")) 2008 { 2009 #ifdef FEAT_SIGNS 2010 int serNum; 2011 2012 if (buf == NULL || buf->bufp == NULL) 2013 { 2014 nbdebug((" invalid buffer identifier in removeAnno\n")); 2015 return FAIL; 2016 } 2017 do_update = 1; 2018 cp = (char *)args; 2019 serNum = strtol(cp, &cp, 10); 2020 args = (char_u *)cp; 2021 coloncmd(":sign unplace %d buffer=%d", 2022 serNum, buf->bufp->b_fnum); 2023 redraw_buf_later(buf->bufp, NOT_VALID); 2024 #endif 2025 /* =====================================================================*/ 2026 } 2027 else if (streq((char *)cmd, "moveAnnoToFront")) 2028 { 2029 #ifdef FEAT_SIGNS 2030 nbdebug((" moveAnnoToFront: Not Yet Implemented!\n")); 2031 #endif 2032 /* =====================================================================*/ 2033 } 2034 else if (streq((char *)cmd, "guard") || streq((char *)cmd, "unguard")) 2035 { 2036 int len; 2037 pos_T first; 2038 pos_T last; 2039 pos_T *pos; 2040 int un = (cmd[0] == 'u'); 2041 static int guardId = GUARDEDOFFSET; 2042 2043 if (skip >= SKIP_STOP) 2044 { 2045 nbdebug((" Skipping %s command\n", (char *) cmd)); 2046 return OK; 2047 } 2048 2049 nb_init_graphics(); 2050 2051 if (buf == NULL || buf->bufp == NULL) 2052 { 2053 nbdebug((" invalid buffer identifier in %s command\n", cmd)); 2054 return FAIL; 2055 } 2056 nb_set_curbuf(buf->bufp); 2057 cp = (char *)args; 2058 off = strtol(cp, &cp, 10); 2059 len = strtol(cp, NULL, 10); 2060 args = (char_u *)cp; 2061 pos = off2pos(buf->bufp, off); 2062 do_update = 1; 2063 if (!pos) 2064 nbdebug((" no such start pos in %s, %ld\n", cmd, off)); 2065 else 2066 { 2067 first = *pos; 2068 pos = off2pos(buf->bufp, off + len - 1); 2069 if (pos != NULL && pos->col == 0) 2070 { 2071 /* 2072 * In Java Swing the offset is a position between 2 2073 * characters. If col == 0 then we really want the 2074 * previous line as the end. 2075 */ 2076 pos = off2pos(buf->bufp, off + len - 2); 2077 } 2078 if (!pos) 2079 nbdebug((" no such end pos in %s, %ld\n", 2080 cmd, off + len - 1)); 2081 else 2082 { 2083 long lnum; 2084 last = *pos; 2085 /* set highlight for region */ 2086 nbdebug((" %sGUARD %ld,%d to %ld,%d\n", (un) ? "UN" : "", 2087 first.lnum, first.col, 2088 last.lnum, last.col)); 2089 #ifdef FEAT_SIGNS 2090 for (lnum = first.lnum; lnum <= last.lnum; lnum++) 2091 { 2092 if (un) 2093 { 2094 /* never used */ 2095 } 2096 else 2097 { 2098 if (buf_findsigntype_id(buf->bufp, lnum, 2099 GUARDED) == 0) 2100 { 2101 coloncmd( 2102 ":sign place %d line=%ld name=%d buffer=%d", 2103 guardId++, lnum, GUARDED, 2104 buf->bufp->b_fnum); 2105 } 2106 } 2107 } 2108 #endif 2109 redraw_buf_later(buf->bufp, NOT_VALID); 2110 } 2111 } 2112 /* =====================================================================*/ 2113 } 2114 else if (streq((char *)cmd, "startAtomic")) 2115 { 2116 inAtomic = 1; 2117 /* =====================================================================*/ 2118 } 2119 else if (streq((char *)cmd, "endAtomic")) 2120 { 2121 inAtomic = 0; 2122 if (needupdate) 2123 { 2124 do_update = 1; 2125 needupdate = 0; 2126 } 2127 /* =====================================================================*/ 2128 } 2129 else if (streq((char *)cmd, "save")) 2130 { 2131 /* 2132 * NOTE - This command is obsolete wrt NetBeans. It's left in 2133 * only for historical reasons. 2134 */ 2135 if (buf == NULL || buf->bufp == NULL) 2136 { 2137 nbdebug((" invalid buffer identifier in %s command\n", cmd)); 2138 return FAIL; 2139 } 2140 2141 /* the following is taken from ex_cmds.c (do_wqall function) */ 2142 if (bufIsChanged(buf->bufp)) 2143 { 2144 /* Only write if the buffer can be written. */ 2145 if (p_write 2146 && !buf->bufp->b_p_ro 2147 && buf->bufp->b_ffname != NULL 2148 #ifdef FEAT_QUICKFIX 2149 && !bt_dontwrite(buf->bufp) 2150 #endif 2151 ) 2152 { 2153 bufref_T bufref; 2154 2155 set_bufref(&bufref, buf->bufp); 2156 buf_write_all(buf->bufp, FALSE); 2157 /* an autocommand may have deleted the buffer */ 2158 if (!bufref_valid(&bufref)) 2159 buf->bufp = NULL; 2160 } 2161 } 2162 else 2163 { 2164 nbdebug((" Buffer has no changes!\n")); 2165 } 2166 /* =====================================================================*/ 2167 } 2168 else if (streq((char *)cmd, "netbeansBuffer")) 2169 { 2170 if (buf == NULL || buf->bufp == NULL) 2171 { 2172 nbdebug((" invalid buffer identifier in %s command\n", cmd)); 2173 return FAIL; 2174 } 2175 if (*args == 'T') 2176 { 2177 buf->bufp->b_netbeans_file = TRUE; 2178 buf->bufp->b_was_netbeans_file = TRUE; 2179 } 2180 else 2181 buf->bufp->b_netbeans_file = FALSE; 2182 /* =====================================================================*/ 2183 } 2184 else if (streq((char *)cmd, "specialKeys")) 2185 { 2186 special_keys(args); 2187 /* =====================================================================*/ 2188 } 2189 else if (streq((char *)cmd, "actionMenuItem")) 2190 { 2191 /* not used yet */ 2192 /* =====================================================================*/ 2193 } 2194 else if (streq((char *)cmd, "version")) 2195 { 2196 /* not used yet */ 2197 } 2198 else 2199 { 2200 nbdebug(("Unrecognised command: %s\n", cmd)); 2201 } 2202 /* 2203 * Unrecognized command is ignored. 2204 */ 2205 } 2206 if (inAtomic && do_update) 2207 { 2208 needupdate = 1; 2209 do_update = 0; 2210 } 2211 2212 /* 2213 * Is this needed? I moved the netbeans_Xt_connect() later during startup 2214 * and it may no longer be necessary. If it's not needed then needupdate 2215 * and do_update can also be removed. 2216 */ 2217 if (buf != NULL && buf->initDone && do_update) 2218 { 2219 update_screen(NOT_VALID); 2220 setcursor(); 2221 cursor_on(); 2222 out_flush_cursor(TRUE, FALSE); 2223 2224 /* Quit a hit-return or more prompt. */ 2225 if (State == HITRETURN || State == ASKMORE) 2226 { 2227 #ifdef FEAT_GUI_GTK 2228 if (gui.in_use && gtk_main_level() > 0) 2229 gtk_main_quit(); 2230 #endif 2231 } 2232 } 2233 2234 return retval; 2235 } 2236 2237 2238 /* 2239 * If "buf" is not the current buffer try changing to a window that edits this 2240 * buffer. If there is no such window then close the current buffer and set 2241 * the current buffer as "buf". 2242 */ 2243 static void 2244 nb_set_curbuf(buf_T *buf) 2245 { 2246 if (curbuf != buf) { 2247 if (buf_jump_open_win(buf) != NULL) 2248 return; 2249 if ((swb_flags & SWB_USETAB) && buf_jump_open_tab(buf) != NULL) 2250 return; 2251 set_curbuf(buf, DOBUF_GOTO); 2252 } 2253 } 2254 2255 /* 2256 * Process a vim colon command. 2257 */ 2258 static void 2259 coloncmd(char *cmd, ...) 2260 { 2261 char buf[1024]; 2262 va_list ap; 2263 2264 va_start(ap, cmd); 2265 vim_vsnprintf(buf, sizeof(buf), cmd, ap); 2266 va_end(ap); 2267 2268 nbdebug((" COLONCMD %s\n", buf)); 2269 2270 do_cmdline((char_u *)buf, NULL, NULL, DOCMD_NOWAIT | DOCMD_KEYTYPED); 2271 2272 setcursor(); /* restore the cursor position */ 2273 out_flush_cursor(TRUE, FALSE); 2274 } 2275 2276 2277 /* 2278 * Parse the specialKeys argument and issue the appropriate map commands. 2279 */ 2280 static void 2281 special_keys(char_u *args) 2282 { 2283 char *save_str = nb_unquote(args, NULL); 2284 char *tok = strtok(save_str, " "); 2285 char *sep; 2286 #define KEYBUFLEN 64 2287 char keybuf[KEYBUFLEN]; 2288 char cmdbuf[256]; 2289 2290 while (tok != NULL) 2291 { 2292 int i = 0; 2293 2294 if ((sep = strchr(tok, '-')) != NULL) 2295 { 2296 *sep = NUL; 2297 while (*tok) 2298 { 2299 switch (*tok) 2300 { 2301 case 'A': 2302 case 'M': 2303 case 'C': 2304 case 'S': 2305 keybuf[i++] = *tok; 2306 keybuf[i++] = '-'; 2307 break; 2308 } 2309 tok++; 2310 } 2311 tok++; 2312 } 2313 2314 if (strlen(tok) + i < KEYBUFLEN) 2315 { 2316 strcpy(&keybuf[i], tok); 2317 vim_snprintf(cmdbuf, sizeof(cmdbuf), 2318 "<silent><%s> :nbkey %s<CR>", keybuf, keybuf); 2319 do_map(0, (char_u *)cmdbuf, NORMAL, FALSE); 2320 } 2321 tok = strtok(NULL, " "); 2322 } 2323 vim_free(save_str); 2324 } 2325 2326 void 2327 ex_nbclose(exarg_T *eap UNUSED) 2328 { 2329 netbeans_close(); 2330 } 2331 2332 void 2333 ex_nbkey(exarg_T *eap) 2334 { 2335 (void)netbeans_keystring(eap->arg); 2336 } 2337 2338 void 2339 ex_nbstart( 2340 exarg_T *eap) 2341 { 2342 #ifdef FEAT_GUI 2343 # if !defined(FEAT_GUI_X11) && !defined(FEAT_GUI_GTK) \ 2344 && !defined(FEAT_GUI_MSWIN) 2345 if (gui.in_use) 2346 { 2347 emsg(_("E838: netbeans is not supported with this GUI")); 2348 return; 2349 } 2350 # endif 2351 #endif 2352 netbeans_open((char *)eap->arg, FALSE); 2353 } 2354 2355 /* 2356 * Initialize highlights and signs for use by netbeans (mostly obsolete) 2357 */ 2358 static void 2359 nb_init_graphics(void) 2360 { 2361 static int did_init = FALSE; 2362 2363 if (!did_init) 2364 { 2365 coloncmd(":highlight NBGuarded guibg=Cyan guifg=Black" 2366 " ctermbg=LightCyan ctermfg=Black"); 2367 coloncmd(":sign define %d linehl=NBGuarded", GUARDED); 2368 2369 did_init = TRUE; 2370 } 2371 } 2372 2373 /* 2374 * Convert key to netbeans name. This uses the global "mod_mask". 2375 */ 2376 static void 2377 netbeans_keyname(int key, char *buf) 2378 { 2379 char *name = 0; 2380 char namebuf[2]; 2381 int ctrl = 0; 2382 int shift = 0; 2383 int alt = 0; 2384 2385 if (mod_mask & MOD_MASK_CTRL) 2386 ctrl = 1; 2387 if (mod_mask & MOD_MASK_SHIFT) 2388 shift = 1; 2389 if (mod_mask & MOD_MASK_ALT) 2390 alt = 1; 2391 2392 2393 switch (key) 2394 { 2395 case K_F1: name = "F1"; break; 2396 case K_S_F1: name = "F1"; shift = 1; break; 2397 case K_F2: name = "F2"; break; 2398 case K_S_F2: name = "F2"; shift = 1; break; 2399 case K_F3: name = "F3"; break; 2400 case K_S_F3: name = "F3"; shift = 1; break; 2401 case K_F4: name = "F4"; break; 2402 case K_S_F4: name = "F4"; shift = 1; break; 2403 case K_F5: name = "F5"; break; 2404 case K_S_F5: name = "F5"; shift = 1; break; 2405 case K_F6: name = "F6"; break; 2406 case K_S_F6: name = "F6"; shift = 1; break; 2407 case K_F7: name = "F7"; break; 2408 case K_S_F7: name = "F7"; shift = 1; break; 2409 case K_F8: name = "F8"; break; 2410 case K_S_F8: name = "F8"; shift = 1; break; 2411 case K_F9: name = "F9"; break; 2412 case K_S_F9: name = "F9"; shift = 1; break; 2413 case K_F10: name = "F10"; break; 2414 case K_S_F10: name = "F10"; shift = 1; break; 2415 case K_F11: name = "F11"; break; 2416 case K_S_F11: name = "F11"; shift = 1; break; 2417 case K_F12: name = "F12"; break; 2418 case K_S_F12: name = "F12"; shift = 1; break; 2419 default: 2420 if (key >= ' ' && key <= '~') 2421 { 2422 /* Allow ASCII characters. */ 2423 name = namebuf; 2424 namebuf[0] = key; 2425 namebuf[1] = NUL; 2426 } 2427 else 2428 name = "X"; 2429 break; 2430 } 2431 2432 buf[0] = '\0'; 2433 if (ctrl) 2434 strcat(buf, "C"); 2435 if (shift) 2436 strcat(buf, "S"); 2437 if (alt) 2438 strcat(buf, "M"); /* META */ 2439 if (ctrl || shift || alt) 2440 strcat(buf, "-"); 2441 strcat(buf, name); 2442 } 2443 2444 #if defined(FEAT_BEVAL) || defined(PROTO) 2445 /* 2446 * Function to be called for balloon evaluation. Grabs the text under the 2447 * cursor and sends it to the debugger for evaluation. The debugger should 2448 * respond with a showBalloon command when there is a useful result. 2449 */ 2450 void 2451 netbeans_beval_cb( 2452 BalloonEval *beval, 2453 int state UNUSED) 2454 { 2455 win_T *wp; 2456 char_u *text; 2457 linenr_T lnum; 2458 int col; 2459 char *buf; 2460 char_u *p; 2461 2462 /* Don't do anything when 'ballooneval' is off, messages scrolled the 2463 * windows up or we have no connection. */ 2464 if (!can_use_beval() || !NETBEANS_OPEN) 2465 return; 2466 2467 if (get_beval_info(beval, TRUE, &wp, &lnum, &text, &col) == OK) 2468 { 2469 /* Send debugger request. Only when the text is of reasonable 2470 * length. */ 2471 if (text != NULL && text[0] != NUL && STRLEN(text) < MAXPATHL) 2472 { 2473 buf = alloc(MAXPATHL * 2 + 25); 2474 if (buf != NULL) 2475 { 2476 p = nb_quote(text); 2477 if (p != NULL) 2478 { 2479 vim_snprintf(buf, MAXPATHL * 2 + 25, 2480 "0:balloonText=%d \"%s\"\n", r_cmdno, p); 2481 vim_free(p); 2482 } 2483 nbdebug(("EVT: %s", buf)); 2484 nb_send(buf, "netbeans_beval_cb"); 2485 vim_free(buf); 2486 } 2487 } 2488 vim_free(text); 2489 } 2490 } 2491 #endif 2492 2493 /* 2494 * Return TRUE when the netbeans connection is active. 2495 */ 2496 int 2497 netbeans_active(void) 2498 { 2499 return NETBEANS_OPEN; 2500 } 2501 2502 /* 2503 * Tell netbeans that the window was opened, ready for commands. 2504 */ 2505 void 2506 netbeans_open(char *params, int doabort) 2507 { 2508 char *cmd = "0:startupDone=0\n"; 2509 2510 if (NETBEANS_OPEN) 2511 { 2512 emsg(_("E511: netbeans already connected")); 2513 return; 2514 } 2515 2516 if (netbeans_connect(params, doabort) != OK) 2517 return; 2518 2519 nbdebug(("EVT: %s", cmd)); 2520 nb_send(cmd, "netbeans_startup_done"); 2521 2522 /* update the screen after having added the gutter */ 2523 changed_window_setting(); 2524 update_screen(CLEAR); 2525 setcursor(); 2526 cursor_on(); 2527 out_flush_cursor(TRUE, FALSE); 2528 } 2529 2530 /* 2531 * Tell netbeans that we're exiting. This should be called right 2532 * before calling exit. 2533 */ 2534 void 2535 netbeans_send_disconnect(void) 2536 { 2537 char buf[128]; 2538 2539 if (NETBEANS_OPEN) 2540 { 2541 sprintf(buf, "0:disconnect=%d\n", r_cmdno); 2542 nbdebug(("EVT: %s", buf)); 2543 nb_send(buf, "netbeans_disconnect"); 2544 } 2545 } 2546 2547 #if defined(FEAT_EVAL) || defined(PROTO) 2548 int 2549 set_ref_in_nb_channel(int copyID) 2550 { 2551 int abort = FALSE; 2552 typval_T tv; 2553 2554 if (nb_channel != NULL) 2555 { 2556 tv.v_type = VAR_CHANNEL; 2557 tv.vval.v_channel = nb_channel; 2558 abort = set_ref_in_item(&tv, copyID, NULL, NULL); 2559 } 2560 return abort; 2561 } 2562 #endif 2563 2564 #if defined(FEAT_GUI_X11) || defined(FEAT_GUI_MSWIN) || defined(PROTO) 2565 /* 2566 * Tell netbeans that the window was moved or resized. 2567 */ 2568 void 2569 netbeans_frame_moved(int new_x, int new_y) 2570 { 2571 char buf[128]; 2572 2573 if (!NETBEANS_OPEN) 2574 return; 2575 2576 sprintf(buf, "0:geometry=%d %d %d %d %d\n", 2577 r_cmdno, (int)Columns, (int)Rows, new_x, new_y); 2578 /*nbdebug(("EVT: %s", buf)); happens too many times during a move */ 2579 nb_send(buf, "netbeans_frame_moved"); 2580 } 2581 #endif 2582 2583 /* 2584 * Tell netbeans the user opened or activated a file. 2585 */ 2586 void 2587 netbeans_file_activated(buf_T *bufp) 2588 { 2589 int bufno = nb_getbufno(bufp); 2590 nbbuf_T *bp = nb_get_buf(bufno); 2591 char buffer[2*MAXPATHL]; 2592 char_u *q; 2593 2594 if (!NETBEANS_OPEN || !bufp->b_netbeans_file || dosetvisible) 2595 return; 2596 2597 q = nb_quote(bufp->b_ffname); 2598 if (q == NULL || bp == NULL) 2599 return; 2600 2601 vim_snprintf(buffer, sizeof(buffer), "%d:fileOpened=%d \"%s\" %s %s\n", 2602 bufno, 2603 bufno, 2604 (char *)q, 2605 "T", /* open in NetBeans */ 2606 "F"); /* modified */ 2607 2608 vim_free(q); 2609 nbdebug(("EVT: %s", buffer)); 2610 2611 nb_send(buffer, "netbeans_file_opened"); 2612 } 2613 2614 /* 2615 * Tell netbeans the user opened a file. 2616 */ 2617 void 2618 netbeans_file_opened(buf_T *bufp) 2619 { 2620 int bufno = nb_getbufno(bufp); 2621 char buffer[2*MAXPATHL]; 2622 char_u *q; 2623 nbbuf_T *bp = nb_get_buf(nb_getbufno(bufp)); 2624 int bnum; 2625 2626 if (!NETBEANS_OPEN) 2627 return; 2628 2629 q = nb_quote(bufp->b_ffname); 2630 if (q == NULL) 2631 return; 2632 if (bp != NULL) 2633 bnum = bufno; 2634 else 2635 bnum = 0; 2636 2637 vim_snprintf(buffer, sizeof(buffer), "%d:fileOpened=%d \"%s\" %s %s\n", 2638 bnum, 2639 0, 2640 (char *)q, 2641 "T", /* open in NetBeans */ 2642 "F"); /* modified */ 2643 2644 vim_free(q); 2645 nbdebug(("EVT: %s", buffer)); 2646 2647 nb_send(buffer, "netbeans_file_opened"); 2648 if (p_acd && vim_chdirfile(bufp->b_ffname, "auto") == OK) 2649 shorten_fnames(TRUE); 2650 } 2651 2652 /* 2653 * Tell netbeans that a file was deleted or wiped out. 2654 */ 2655 void 2656 netbeans_file_killed(buf_T *bufp) 2657 { 2658 int bufno = nb_getbufno(bufp); 2659 nbbuf_T *nbbuf = nb_get_buf(bufno); 2660 char buffer[2*MAXPATHL]; 2661 2662 if (!NETBEANS_OPEN || bufno == -1) 2663 return; 2664 2665 nbdebug(("netbeans_file_killed:\n")); 2666 nbdebug((" Killing bufno: %d", bufno)); 2667 2668 sprintf(buffer, "%d:killed=%d\n", bufno, r_cmdno); 2669 2670 nbdebug(("EVT: %s", buffer)); 2671 2672 nb_send(buffer, "netbeans_file_killed"); 2673 2674 if (nbbuf != NULL) 2675 nbbuf->bufp = NULL; 2676 } 2677 2678 /* 2679 * Get a pointer to the Netbeans buffer for Vim buffer "bufp". 2680 * Return NULL if there is no such buffer or changes are not to be reported. 2681 * Otherwise store the buffer number in "*bufnop". 2682 */ 2683 static nbbuf_T * 2684 nb_bufp2nbbuf_fire(buf_T *bufp, int *bufnop) 2685 { 2686 int bufno; 2687 nbbuf_T *nbbuf; 2688 2689 if (!NETBEANS_OPEN || !netbeansFireChanges) 2690 return NULL; /* changes are not reported at all */ 2691 2692 bufno = nb_getbufno(bufp); 2693 if (bufno <= 0) 2694 return NULL; /* file is not known to NetBeans */ 2695 2696 nbbuf = nb_get_buf(bufno); 2697 if (nbbuf != NULL && !nbbuf->fireChanges) 2698 return NULL; /* changes in this buffer are not reported */ 2699 2700 *bufnop = bufno; 2701 return nbbuf; 2702 } 2703 2704 /* 2705 * Tell netbeans the user inserted some text. 2706 */ 2707 void 2708 netbeans_inserted( 2709 buf_T *bufp, 2710 linenr_T linenr, 2711 colnr_T col, 2712 char_u *txt, 2713 int newlen) 2714 { 2715 char_u *buf; 2716 int bufno; 2717 nbbuf_T *nbbuf; 2718 pos_T pos; 2719 long off; 2720 char_u *p; 2721 char_u *newtxt; 2722 2723 if (!NETBEANS_OPEN) 2724 return; 2725 2726 nbbuf = nb_bufp2nbbuf_fire(bufp, &bufno); 2727 if (nbbuf == NULL) 2728 return; 2729 2730 /* Don't mark as modified for initial read */ 2731 if (nbbuf->insertDone) 2732 nbbuf->modified = 1; 2733 2734 pos.lnum = linenr; 2735 pos.col = col; 2736 off = pos2off(bufp, &pos); 2737 2738 /* send the "insert" EVT */ 2739 newtxt = alloc(newlen + 1); 2740 vim_strncpy(newtxt, txt, newlen); 2741 p = nb_quote(newtxt); 2742 if (p != NULL) 2743 { 2744 buf = alloc(128 + 2*newlen); 2745 sprintf((char *)buf, "%d:insert=%d %ld \"%s\"\n", 2746 bufno, r_cmdno, off, p); 2747 nbdebug(("EVT: %s", buf)); 2748 nb_send((char *)buf, "netbeans_inserted"); 2749 vim_free(p); 2750 vim_free(buf); 2751 } 2752 vim_free(newtxt); 2753 } 2754 2755 /* 2756 * Tell netbeans some bytes have been removed. 2757 */ 2758 void 2759 netbeans_removed( 2760 buf_T *bufp, 2761 linenr_T linenr, 2762 colnr_T col, 2763 long len) 2764 { 2765 char_u buf[128]; 2766 int bufno; 2767 nbbuf_T *nbbuf; 2768 pos_T pos; 2769 long off; 2770 2771 if (!NETBEANS_OPEN) 2772 return; 2773 2774 nbbuf = nb_bufp2nbbuf_fire(bufp, &bufno); 2775 if (nbbuf == NULL) 2776 return; 2777 2778 if (len < 0) 2779 { 2780 nbdebug(("Negative len %ld in netbeans_removed()!\n", len)); 2781 return; 2782 } 2783 2784 nbbuf->modified = 1; 2785 2786 pos.lnum = linenr; 2787 pos.col = col; 2788 2789 off = pos2off(bufp, &pos); 2790 2791 sprintf((char *)buf, "%d:remove=%d %ld %ld\n", bufno, r_cmdno, off, len); 2792 nbdebug(("EVT: %s", buf)); 2793 nb_send((char *)buf, "netbeans_removed"); 2794 } 2795 2796 /* 2797 * Send netbeans an unmodified command. 2798 */ 2799 void 2800 netbeans_unmodified(buf_T *bufp UNUSED) 2801 { 2802 /* This is a no-op, because NetBeans considers a buffer modified 2803 * even when all changes have been undone. */ 2804 } 2805 2806 /* 2807 * Send a button release event back to netbeans. It's up to netbeans 2808 * to decide what to do (if anything) with this event. 2809 */ 2810 void 2811 netbeans_button_release(int button) 2812 { 2813 char buf[128]; 2814 int bufno; 2815 2816 if (!NETBEANS_OPEN) 2817 return; 2818 2819 bufno = nb_getbufno(curbuf); 2820 2821 if (bufno >= 0 && curwin != NULL && curwin->w_buffer == curbuf) 2822 { 2823 int col = mouse_col - curwin->w_wincol 2824 - ((curwin->w_p_nu || curwin->w_p_rnu) ? 9 : 1); 2825 long off = pos2off(curbuf, &curwin->w_cursor); 2826 2827 /* sync the cursor position */ 2828 sprintf(buf, "%d:newDotAndMark=%d %ld %ld\n", bufno, r_cmdno, off, off); 2829 nbdebug(("EVT: %s", buf)); 2830 nb_send(buf, "netbeans_button_release[newDotAndMark]"); 2831 2832 sprintf(buf, "%d:buttonRelease=%d %d %ld %d\n", bufno, r_cmdno, 2833 button, (long)curwin->w_cursor.lnum, col); 2834 nbdebug(("EVT: %s", buf)); 2835 nb_send(buf, "netbeans_button_release"); 2836 } 2837 } 2838 2839 2840 /* 2841 * Send a keypress event back to netbeans. This usually simulates some 2842 * kind of function key press. This function operates on a key code. 2843 * Return TRUE when the key was sent, FALSE when the command has been 2844 * postponed. 2845 */ 2846 int 2847 netbeans_keycommand(int key) 2848 { 2849 char keyName[60]; 2850 2851 netbeans_keyname(key, keyName); 2852 return netbeans_keystring((char_u *)keyName); 2853 } 2854 2855 2856 /* 2857 * Send a keypress event back to netbeans. This usually simulates some 2858 * kind of function key press. This function operates on a key string. 2859 * Return TRUE when the key was sent, FALSE when the command has been 2860 * postponed. 2861 */ 2862 static int 2863 netbeans_keystring(char_u *keyName) 2864 { 2865 char buf[2*MAXPATHL]; 2866 int bufno = nb_getbufno(curbuf); 2867 long off; 2868 char_u *q; 2869 2870 if (!NETBEANS_OPEN) 2871 return TRUE; 2872 2873 if (bufno == -1) 2874 { 2875 nbdebug(("got keycommand for non-NetBeans buffer, opening...\n")); 2876 q = curbuf->b_ffname == NULL ? (char_u *)"" 2877 : nb_quote(curbuf->b_ffname); 2878 if (q == NULL) 2879 return TRUE; 2880 vim_snprintf(buf, sizeof(buf), "0:fileOpened=%d \"%s\" %s %s\n", 0, 2881 q, 2882 "T", /* open in NetBeans */ 2883 "F"); /* modified */ 2884 if (curbuf->b_ffname != NULL) 2885 vim_free(q); 2886 nbdebug(("EVT: %s", buf)); 2887 nb_send(buf, "netbeans_keycommand"); 2888 2889 postpone_keycommand(keyName); 2890 return FALSE; 2891 } 2892 2893 /* sync the cursor position */ 2894 off = pos2off(curbuf, &curwin->w_cursor); 2895 sprintf(buf, "%d:newDotAndMark=%d %ld %ld\n", bufno, r_cmdno, off, off); 2896 nbdebug(("EVT: %s", buf)); 2897 nb_send(buf, "netbeans_keycommand"); 2898 2899 /* To work on Win32 you must apply patch to ExtEditor module 2900 * from ExtEdCaret.java.diff - make EVT_newDotAndMark handler 2901 * more synchronous 2902 */ 2903 2904 /* now send keyCommand event */ 2905 vim_snprintf(buf, sizeof(buf), "%d:keyCommand=%d \"%s\"\n", 2906 bufno, r_cmdno, keyName); 2907 nbdebug(("EVT: %s", buf)); 2908 nb_send(buf, "netbeans_keycommand"); 2909 2910 /* New: do both at once and include the lnum/col. */ 2911 vim_snprintf(buf, sizeof(buf), "%d:keyAtPos=%d \"%s\" %ld %ld/%ld\n", 2912 bufno, r_cmdno, keyName, 2913 off, (long)curwin->w_cursor.lnum, (long)curwin->w_cursor.col); 2914 nbdebug(("EVT: %s", buf)); 2915 nb_send(buf, "netbeans_keycommand"); 2916 return TRUE; 2917 } 2918 2919 2920 /* 2921 * Send a save event to netbeans. 2922 */ 2923 void 2924 netbeans_save_buffer(buf_T *bufp) 2925 { 2926 char_u buf[64]; 2927 int bufno; 2928 nbbuf_T *nbbuf; 2929 2930 if (!NETBEANS_OPEN) 2931 return; 2932 2933 nbbuf = nb_bufp2nbbuf_fire(bufp, &bufno); 2934 if (nbbuf == NULL) 2935 return; 2936 2937 nbbuf->modified = 0; 2938 2939 sprintf((char *)buf, "%d:save=%d\n", bufno, r_cmdno); 2940 nbdebug(("EVT: %s", buf)); 2941 nb_send((char *)buf, "netbeans_save_buffer"); 2942 } 2943 2944 2945 /* 2946 * Send remove command to netbeans (this command has been turned off). 2947 */ 2948 void 2949 netbeans_deleted_all_lines(buf_T *bufp) 2950 { 2951 char_u buf[64]; 2952 int bufno; 2953 nbbuf_T *nbbuf; 2954 2955 if (!NETBEANS_OPEN) 2956 return; 2957 2958 nbbuf = nb_bufp2nbbuf_fire(bufp, &bufno); 2959 if (nbbuf == NULL) 2960 return; 2961 2962 /* Don't mark as modified for initial read */ 2963 if (nbbuf->insertDone) 2964 nbbuf->modified = 1; 2965 2966 sprintf((char *)buf, "%d:remove=%d 0 -1\n", bufno, r_cmdno); 2967 nbdebug(("EVT(suppressed): %s", buf)); 2968 /* nb_send(buf, "netbeans_deleted_all_lines"); */ 2969 } 2970 2971 2972 /* 2973 * See if the lines are guarded. The top and bot parameters are from 2974 * u_savecommon(), these are the line above the change and the line below the 2975 * change. 2976 */ 2977 int 2978 netbeans_is_guarded(linenr_T top, linenr_T bot) 2979 { 2980 signlist_T *p; 2981 int lnum; 2982 2983 if (!NETBEANS_OPEN) 2984 return FALSE; 2985 2986 for (p = curbuf->b_signlist; p != NULL; p = p->next) 2987 if (p->id >= GUARDEDOFFSET) 2988 for (lnum = top + 1; lnum < bot; lnum++) 2989 if (lnum == p->lnum) 2990 return TRUE; 2991 2992 return FALSE; 2993 } 2994 2995 #if defined(FEAT_GUI_X11) || defined(PROTO) 2996 /* 2997 * We have multiple signs to draw at the same location. Draw the 2998 * multi-sign indicator instead. This is the Motif version. 2999 */ 3000 void 3001 netbeans_draw_multisign_indicator(int row) 3002 { 3003 int i; 3004 int y; 3005 int x; 3006 3007 if (!NETBEANS_OPEN) 3008 return; 3009 3010 x = 0; 3011 y = row * gui.char_height + 2; 3012 3013 for (i = 0; i < gui.char_height - 3; i++) 3014 XDrawPoint(gui.dpy, gui.wid, gui.text_gc, x+2, y++); 3015 3016 XDrawPoint(gui.dpy, gui.wid, gui.text_gc, x+0, y); 3017 XDrawPoint(gui.dpy, gui.wid, gui.text_gc, x+2, y); 3018 XDrawPoint(gui.dpy, gui.wid, gui.text_gc, x+4, y++); 3019 XDrawPoint(gui.dpy, gui.wid, gui.text_gc, x+1, y); 3020 XDrawPoint(gui.dpy, gui.wid, gui.text_gc, x+2, y); 3021 XDrawPoint(gui.dpy, gui.wid, gui.text_gc, x+3, y++); 3022 XDrawPoint(gui.dpy, gui.wid, gui.text_gc, x+2, y); 3023 } 3024 #endif /* FEAT_GUI_X11 */ 3025 3026 #if defined(FEAT_GUI_GTK) && !defined(PROTO) 3027 /* 3028 * We have multiple signs to draw at the same location. Draw the 3029 * multi-sign indicator instead. This is the GTK/Gnome version. 3030 */ 3031 void 3032 netbeans_draw_multisign_indicator(int row) 3033 { 3034 int i; 3035 int y; 3036 int x; 3037 #if GTK_CHECK_VERSION(3,0,0) 3038 cairo_t *cr = NULL; 3039 #else 3040 GdkDrawable *drawable = gui.drawarea->window; 3041 #endif 3042 3043 if (!NETBEANS_OPEN) 3044 return; 3045 3046 #if GTK_CHECK_VERSION(3,0,0) 3047 cr = cairo_create(gui.surface); 3048 cairo_set_source_rgba(cr, 3049 gui.fgcolor->red, gui.fgcolor->green, gui.fgcolor->blue, 3050 gui.fgcolor->alpha); 3051 #endif 3052 3053 x = 0; 3054 y = row * gui.char_height + 2; 3055 3056 for (i = 0; i < gui.char_height - 3; i++) 3057 #if GTK_CHECK_VERSION(3,0,0) 3058 cairo_rectangle(cr, x+2, y++, 1, 1); 3059 #else 3060 gdk_draw_point(drawable, gui.text_gc, x+2, y++); 3061 #endif 3062 3063 #if GTK_CHECK_VERSION(3,0,0) 3064 cairo_rectangle(cr, x+0, y, 1, 1); 3065 cairo_rectangle(cr, x+2, y, 1, 1); 3066 cairo_rectangle(cr, x+4, y++, 1, 1); 3067 cairo_rectangle(cr, x+1, y, 1, 1); 3068 cairo_rectangle(cr, x+2, y, 1, 1); 3069 cairo_rectangle(cr, x+3, y++, 1, 1); 3070 cairo_rectangle(cr, x+2, y, 1, 1); 3071 #else 3072 gdk_draw_point(drawable, gui.text_gc, x+0, y); 3073 gdk_draw_point(drawable, gui.text_gc, x+2, y); 3074 gdk_draw_point(drawable, gui.text_gc, x+4, y++); 3075 gdk_draw_point(drawable, gui.text_gc, x+1, y); 3076 gdk_draw_point(drawable, gui.text_gc, x+2, y); 3077 gdk_draw_point(drawable, gui.text_gc, x+3, y++); 3078 gdk_draw_point(drawable, gui.text_gc, x+2, y); 3079 #endif 3080 3081 #if GTK_CHECK_VERSION(3,0,0) 3082 cairo_destroy(cr); 3083 #endif 3084 } 3085 #endif /* FEAT_GUI_GTK */ 3086 3087 /* 3088 * If the mouse is clicked in the gutter of a line with multiple 3089 * annotations, cycle through the set of signs. 3090 */ 3091 void 3092 netbeans_gutter_click(linenr_T lnum) 3093 { 3094 signlist_T *p; 3095 3096 if (!NETBEANS_OPEN) 3097 return; 3098 3099 for (p = curbuf->b_signlist; p != NULL; p = p->next) 3100 { 3101 if (p->lnum == lnum && p->next && p->next->lnum == lnum) 3102 { 3103 signlist_T *tail; 3104 3105 /* remove "p" from list, reinsert it at the tail of the sublist */ 3106 if (p->prev) 3107 p->prev->next = p->next; 3108 else 3109 curbuf->b_signlist = p->next; 3110 p->next->prev = p->prev; 3111 /* now find end of sublist and insert p */ 3112 for (tail = p->next; 3113 tail->next && tail->next->lnum == lnum 3114 && tail->next->id < GUARDEDOFFSET; 3115 tail = tail->next) 3116 ; 3117 /* tail now points to last entry with same lnum (except 3118 * that "guarded" annotations are always last) */ 3119 p->next = tail->next; 3120 if (tail->next) 3121 tail->next->prev = p; 3122 p->prev = tail; 3123 tail->next = p; 3124 update_debug_sign(curbuf, lnum); 3125 break; 3126 } 3127 } 3128 } 3129 3130 /* 3131 * Add a sign of the requested type at the requested location. 3132 * 3133 * Reverse engineering: 3134 * Apparently an annotation is defined the first time it is used in a buffer. 3135 * When the same annotation is used in two buffers, the second time we do not 3136 * need to define a new sign name but reuse the existing one. But since the 3137 * ID number used in the second buffer starts counting at one again, a mapping 3138 * is made from the ID specifically for the buffer to the global sign name 3139 * (which is a number). 3140 * 3141 * globalsignmap[] stores the signs that have been defined globally. 3142 * buf->signmapused[] maps buffer-local annotation IDs to an index in 3143 * globalsignmap[]. 3144 */ 3145 static void 3146 addsigntype( 3147 nbbuf_T *buf, 3148 int typeNum, 3149 char_u *typeName, 3150 char_u *tooltip UNUSED, 3151 char_u *glyphFile, 3152 char_u *fg, 3153 char_u *bg) 3154 { 3155 int i, j; 3156 int use_fg = (*fg && STRCMP(fg, "none") != 0); 3157 int use_bg = (*bg && STRCMP(bg, "none") != 0); 3158 3159 for (i = 0; i < globalsignmapused; i++) 3160 if (STRCMP(typeName, globalsignmap[i]) == 0) 3161 break; 3162 3163 if (i == globalsignmapused) /* not found; add it to global map */ 3164 { 3165 nbdebug(("DEFINEANNOTYPE(%d,%s,%s,%s,%s,%s)\n", 3166 typeNum, typeName, tooltip, glyphFile, fg, bg)); 3167 if (use_fg || use_bg) 3168 { 3169 char fgbuf[2 * (8 + MAX_COLOR_LENGTH) + 1]; 3170 char bgbuf[2 * (8 + MAX_COLOR_LENGTH) + 1]; 3171 char *ptr; 3172 int value; 3173 3174 value = strtol((char *)fg, &ptr, 10); 3175 if (ptr != (char *)fg) 3176 sprintf(fgbuf, "guifg=#%06x", value & 0xFFFFFF); 3177 else 3178 sprintf(fgbuf, "guifg=%s ctermfg=%s", fg, fg); 3179 3180 value = strtol((char *)bg, &ptr, 10); 3181 if (ptr != (char *)bg) 3182 sprintf(bgbuf, "guibg=#%06x", value & 0xFFFFFF); 3183 else 3184 sprintf(bgbuf, "guibg=%s ctermbg=%s", bg, bg); 3185 3186 coloncmd(":highlight NB_%s %s %s", typeName, (use_fg) ? fgbuf : "", 3187 (use_bg) ? bgbuf : ""); 3188 if (*glyphFile == NUL) 3189 /* no glyph, line highlighting only */ 3190 coloncmd(":sign define %d linehl=NB_%s", i + 1, typeName); 3191 else if (vim_strsize(glyphFile) <= 2) 3192 /* one- or two-character glyph name, use as text glyph with 3193 * texthl */ 3194 coloncmd(":sign define %d text=%s texthl=NB_%s", i + 1, 3195 glyphFile, typeName); 3196 else 3197 /* glyph, line highlighting */ 3198 coloncmd(":sign define %d icon=%s linehl=NB_%s", i + 1, 3199 glyphFile, typeName); 3200 } 3201 else 3202 /* glyph, no line highlighting */ 3203 coloncmd(":sign define %d icon=%s", i + 1, glyphFile); 3204 3205 if (STRCMP(typeName,"CurrentPC") == 0) 3206 curPCtype = typeNum; 3207 3208 if (globalsignmapused == globalsignmaplen) 3209 { 3210 if (globalsignmaplen == 0) /* first allocation */ 3211 { 3212 globalsignmaplen = 20; 3213 globalsignmap = ALLOC_CLEAR_MULT(char *, globalsignmaplen); 3214 } 3215 else /* grow it */ 3216 { 3217 int incr; 3218 int oldlen = globalsignmaplen; 3219 char **t_globalsignmap = globalsignmap; 3220 3221 globalsignmaplen *= 2; 3222 incr = globalsignmaplen - oldlen; 3223 globalsignmap = vim_realloc(globalsignmap, 3224 globalsignmaplen * sizeof(char *)); 3225 if (globalsignmap == NULL) 3226 { 3227 vim_free(t_globalsignmap); 3228 globalsignmaplen = 0; 3229 return; 3230 } 3231 vim_memset(globalsignmap + oldlen, 0, incr * sizeof(char *)); 3232 } 3233 } 3234 3235 globalsignmap[i] = (char *)typeName; 3236 globalsignmapused = i + 1; 3237 } 3238 3239 /* check local map; should *not* be found! */ 3240 for (j = 0; j < buf->signmapused; j++) 3241 if (buf->signmap[j] == i + 1) 3242 return; 3243 3244 /* add to local map */ 3245 if (buf->signmapused == buf->signmaplen) 3246 { 3247 if (buf->signmaplen == 0) /* first allocation */ 3248 { 3249 buf->signmaplen = 5; 3250 buf->signmap = ALLOC_CLEAR_MULT(int, buf->signmaplen); 3251 } 3252 else /* grow it */ 3253 { 3254 int incr; 3255 int oldlen = buf->signmaplen; 3256 int *t_signmap = buf->signmap; 3257 3258 buf->signmaplen *= 2; 3259 incr = buf->signmaplen - oldlen; 3260 buf->signmap = vim_realloc(buf->signmap, 3261 buf->signmaplen * sizeof(int)); 3262 if (buf->signmap == NULL) 3263 { 3264 vim_free(t_signmap); 3265 buf->signmaplen = 0; 3266 return; 3267 } 3268 vim_memset(buf->signmap + oldlen, 0, incr * sizeof(int)); 3269 } 3270 } 3271 3272 buf->signmap[buf->signmapused++] = i + 1; 3273 3274 } 3275 3276 3277 /* 3278 * See if we have the requested sign type in the buffer. 3279 */ 3280 static int 3281 mapsigntype(nbbuf_T *buf, int localsigntype) 3282 { 3283 if (--localsigntype >= 0 && localsigntype < buf->signmapused) 3284 return buf->signmap[localsigntype]; 3285 3286 return 0; 3287 } 3288 3289 3290 /* 3291 * Compute length of buffer, don't print anything. 3292 */ 3293 static long 3294 get_buf_size(buf_T *bufp) 3295 { 3296 linenr_T lnum; 3297 long char_count = 0; 3298 int eol_size; 3299 long last_check = 100000L; 3300 3301 if (bufp->b_ml.ml_flags & ML_EMPTY) 3302 return 0; 3303 else 3304 { 3305 if (get_fileformat(bufp) == EOL_DOS) 3306 eol_size = 2; 3307 else 3308 eol_size = 1; 3309 for (lnum = 1; lnum <= bufp->b_ml.ml_line_count; ++lnum) 3310 { 3311 char_count += (long)STRLEN(ml_get_buf(bufp, lnum, FALSE)) 3312 + eol_size; 3313 /* Check for a CTRL-C every 100000 characters */ 3314 if (char_count > last_check) 3315 { 3316 ui_breakcheck(); 3317 if (got_int) 3318 return char_count; 3319 last_check = char_count + 100000L; 3320 } 3321 } 3322 /* Correction for when last line doesn't have an EOL. */ 3323 if (!bufp->b_p_eol && (bufp->b_p_bin || !bufp->b_p_fixeol)) 3324 char_count -= eol_size; 3325 } 3326 3327 return char_count; 3328 } 3329 3330 /* 3331 * Convert character offset to lnum,col 3332 */ 3333 static pos_T * 3334 off2pos(buf_T *buf, long offset) 3335 { 3336 linenr_T lnum; 3337 static pos_T pos; 3338 3339 pos.lnum = 0; 3340 pos.col = 0; 3341 pos.coladd = 0; 3342 3343 if (!(buf->b_ml.ml_flags & ML_EMPTY)) 3344 { 3345 if ((lnum = ml_find_line_or_offset(buf, (linenr_T)0, &offset)) < 0) 3346 return NULL; 3347 pos.lnum = lnum; 3348 pos.col = offset; 3349 } 3350 3351 return &pos; 3352 } 3353 3354 /* 3355 * Convert an argument in the form "1234" to an offset and compute the 3356 * lnum/col from it. Convert an argument in the form "123/12" directly to a 3357 * lnum/col. 3358 * "argp" is advanced to after the argument. 3359 * Return a pointer to the position, NULL if something is wrong. 3360 */ 3361 static pos_T * 3362 get_off_or_lnum(buf_T *buf, char_u **argp) 3363 { 3364 static pos_T mypos; 3365 long off; 3366 3367 off = strtol((char *)*argp, (char **)argp, 10); 3368 if (**argp == '/') 3369 { 3370 mypos.lnum = (linenr_T)off; 3371 ++*argp; 3372 mypos.col = strtol((char *)*argp, (char **)argp, 10); 3373 mypos.coladd = 0; 3374 return &mypos; 3375 } 3376 return off2pos(buf, off); 3377 } 3378 3379 3380 /* 3381 * Convert (lnum,col) to byte offset in the file. 3382 */ 3383 static long 3384 pos2off(buf_T *buf, pos_T *pos) 3385 { 3386 long offset = 0; 3387 3388 if (!(buf->b_ml.ml_flags & ML_EMPTY)) 3389 { 3390 if ((offset = ml_find_line_or_offset(buf, pos->lnum, 0)) < 0) 3391 return 0; 3392 offset += pos->col; 3393 } 3394 3395 return offset; 3396 } 3397 3398 3399 /* 3400 * This message is printed after NetBeans opens a new file. It's 3401 * similar to the message readfile() uses, but since NetBeans 3402 * doesn't normally call readfile, we do our own. 3403 */ 3404 static void 3405 print_read_msg(nbbuf_T *buf) 3406 { 3407 int lnum = buf->bufp->b_ml.ml_line_count; 3408 off_T nchars = buf->bufp->b_orig_size; 3409 char_u c; 3410 3411 msg_add_fname(buf->bufp, buf->bufp->b_ffname); 3412 c = FALSE; 3413 3414 if (buf->bufp->b_p_ro) 3415 { 3416 STRCAT(IObuff, shortmess(SHM_RO) ? _("[RO]") : _("[readonly]")); 3417 c = TRUE; 3418 } 3419 if (!buf->bufp->b_start_eol) 3420 { 3421 STRCAT(IObuff, shortmess(SHM_LAST) ? _("[noeol]") 3422 : _("[Incomplete last line]")); 3423 c = TRUE; 3424 } 3425 msg_add_lines(c, (long)lnum, nchars); 3426 3427 /* Now display it */ 3428 VIM_CLEAR(keep_msg); 3429 msg_scrolled_ign = TRUE; 3430 msg_trunc_attr((char *)IObuff, FALSE, 0); 3431 msg_scrolled_ign = FALSE; 3432 } 3433 3434 3435 /* 3436 * Print a message after NetBeans writes the file. This message should be 3437 * identical to the standard message a non-netbeans user would see when 3438 * writing a file. 3439 */ 3440 static void 3441 print_save_msg(nbbuf_T *buf, off_T nchars) 3442 { 3443 char_u c; 3444 char_u *p; 3445 3446 if (nchars >= 0) 3447 { 3448 /* put fname in IObuff with quotes */ 3449 msg_add_fname(buf->bufp, buf->bufp->b_ffname); 3450 c = FALSE; 3451 3452 msg_add_lines(c, buf->bufp->b_ml.ml_line_count, 3453 buf->bufp->b_orig_size); 3454 3455 VIM_CLEAR(keep_msg); 3456 msg_scrolled_ign = TRUE; 3457 p = (char_u *)msg_trunc_attr((char *)IObuff, FALSE, 0); 3458 if ((msg_scrolled && !need_wait_return) || !buf->initDone) 3459 { 3460 /* Need to repeat the message after redrawing when: 3461 * - When reading from stdin (the screen will be cleared next). 3462 * - When restart_edit is set (otherwise there will be a delay 3463 * before redrawing). 3464 * - When the screen was scrolled but there is no wait-return 3465 * prompt. */ 3466 set_keep_msg(p, 0); 3467 } 3468 msg_scrolled_ign = FALSE; 3469 /* add_to_input_buf((char_u *)"\f", 1); */ 3470 } 3471 else 3472 { 3473 char msgbuf[IOSIZE]; 3474 3475 vim_snprintf(msgbuf, IOSIZE, 3476 _("E505: %s is read-only (add ! to override)"), IObuff); 3477 nbdebug((" %s\n", msgbuf)); 3478 emsg(msgbuf); 3479 } 3480 } 3481 3482 #endif /* defined(FEAT_NETBEANS_INTG) */ 3483