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