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