annotate src/if_xcmdsrv.c @ 43:f55897d6921d v7.0026

updated for version 7.0026
author vimboss
date Wed, 29 Dec 2004 21:03:02 +0000
parents f529edb9bab3
children 4772a5e3f9fa
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1 /* vi:set ts=8 sts=4 sw=4:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3 * VIM - Vi IMproved by Bram Moolenaar
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4 * X command server by Flemming Madsen
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6 * Do ":help uganda" in Vim to read copying and usage conditions.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7 * Do ":help credits" in Vim to see a list of people who contributed.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
8 * See README.txt for an overview of the Vim source code.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
9 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
10 * if_xcmdsrv.c: Functions for passing commands through an X11 display.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
11 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
12 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
13
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
14 #include "vim.h"
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
15 #include "version.h"
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
16
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
17 #if defined(FEAT_CLIENTSERVER) || defined(PROTO)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
18
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
19 # ifdef FEAT_X11
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
20 # include <X11/Intrinsic.h>
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
21 # include <X11/Xatom.h>
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
22 # endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
23
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
24 # if defined(HAVE_SYS_SELECT_H) && \
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
25 (!defined(HAVE_SYS_TIME_H) || defined(SYS_SELECT_WITH_SYS_TIME))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
26 # include <sys/select.h>
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
27 # endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
28
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
29 # ifndef HAVE_SELECT
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
30 # ifdef HAVE_SYS_POLL_H
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
31 # include <sys/poll.h>
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
32 # else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
33 # ifdef HAVE_POLL_H
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
34 # include <poll.h>
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
35 # endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
36 # endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
37 # endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
38
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
39 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
40 * This file provides procedures that implement the command server functionality
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
41 * of Vim when in contact with an X11 server.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
42 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
43 * Adapted from TCL/TK's send command in tkSend.c of the tk 3.6 distribution.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
44 * Adapted for use in Vim by Flemming Madsen. Protocol changed to that of tk 4
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
45 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
46
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
47 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
48 * Copyright (c) 1989-1993 The Regents of the University of California.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
49 * All rights reserved.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
50 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
51 * Permission is hereby granted, without written agreement and without
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
52 * license or royalty fees, to use, copy, modify, and distribute this
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
53 * software and its documentation for any purpose, provided that the
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
54 * above copyright notice and the following two paragraphs appear in
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
55 * all copies of this software.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
56 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
57 * IN NO EVENT SHALL THE UNIVERSITY OF CALIFORNIA BE LIABLE TO ANY PARTY FOR
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
58 * DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
59 * OF THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF THE UNIVERSITY OF
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
60 * CALIFORNIA HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
61 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
62 * THE UNIVERSITY OF CALIFORNIA SPECIFICALLY DISCLAIMS ANY WARRANTIES,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
63 * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
64 * AND FITNESS FOR A PARTICULAR PURPOSE. THE SOFTWARE PROVIDED HEREUNDER IS
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
65 * ON AN "AS IS" BASIS, AND THE UNIVERSITY OF CALIFORNIA HAS NO OBLIGATION TO
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
66 * PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
67 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
68
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
69
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
70 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
71 * When a result is being awaited from a sent command, one of
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
72 * the following structures is present on a list of all outstanding
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
73 * sent commands. The information in the structure is used to
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
74 * process the result when it arrives. You're probably wondering
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
75 * how there could ever be multiple outstanding sent commands.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
76 * This could happen if Vim instances invoke each other recursively.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
77 * It's unlikely, but possible.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
78 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
79
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
80 typedef struct PendingCommand
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
81 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
82 int serial; /* Serial number expected in result. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
83 int code; /* Result Code. 0 is OK */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
84 char_u *result; /* String result for command (malloc'ed).
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
85 * NULL means command still pending. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
86 struct PendingCommand *nextPtr;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
87 /* Next in list of all outstanding commands.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
88 * NULL means end of list. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
89 } PendingCommand;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
90
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
91 static PendingCommand *pendingCommands = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
92 /* List of all commands currently
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
93 * being waited for. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
94
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
95 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
96 * The information below is used for communication between processes
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
97 * during "send" commands. Each process keeps a private window, never
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
98 * even mapped, with one property, "Comm". When a command is sent to
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
99 * an interpreter, the command is appended to the comm property of the
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
100 * communication window associated with the interp's process. Similarly,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
101 * when a result is returned from a sent command, it is also appended
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
102 * to the comm property.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
103 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
104 * Each command and each result takes the form of ASCII text. For a
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
105 * command, the text consists of a nul character followed by several
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
106 * nul-terminated ASCII strings. The first string consists of a
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
107 * single letter:
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
108 * "c" for an expression
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
109 * "k" for keystrokes
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
110 * "r" for reply
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
111 * "n" for notification.
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
112 * Subsequent strings have the form "option value" where the following options
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
113 * are supported:
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
114 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
115 * -r commWindow serial
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
116 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
117 * This option means that a response should be sent to the window
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
118 * whose X identifier is "commWindow" (in hex), and the response should
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
119 * be identified with the serial number given by "serial" (in decimal).
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
120 * If this option isn't specified then the send is asynchronous and
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
121 * no response is sent.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
122 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
123 * -n name
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
124 * "Name" gives the name of the application for which the command is
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
125 * intended. This option must be present.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
126 *
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
127 * -E encoding
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
128 * Encoding name used for the text. This is the 'encoding' of the
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
129 * sender. The receiver may want to do conversion to his 'encoding'.
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
130 *
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
131 * -s script
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
132 * "Script" is the script to be executed. This option must be
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
133 * present. Taken as a series of keystrokes in a "k" command where
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
134 * <Key>'s are expanded
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
135 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
136 * The options may appear in any order. The -n and -s options must be
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
137 * present, but -r may be omitted for asynchronous RPCs. For compatibility
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
138 * with future releases that may add new features, there may be additional
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
139 * options present; as long as they start with a "-" character, they will
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
140 * be ignored.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
141 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
142 * A result also consists of a zero character followed by several null-
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
143 * terminated ASCII strings. The first string consists of the single
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
144 * letter "r". Subsequent strings have the form "option value" where
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
145 * the following options are supported:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
146 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
147 * -s serial
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
148 * Identifies the command for which this is the result. It is the
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
149 * same as the "serial" field from the -s option in the command. This
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
150 * option must be present.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
151 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
152 * -r result
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
153 * "Result" is the result string for the script, which may be either
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
154 * a result or an error message. If this field is omitted then it
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
155 * defaults to an empty string.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
156 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
157 * -c code
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
158 * 0: for OK. This is the default.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
159 * 1: for error: Result is the last error
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
160 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
161 * -i errorInfo
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
162 * -e errorCode
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
163 * Not applicable for Vim
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
164 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
165 * Options may appear in any order, and only the -s option must be
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
166 * present. As with commands, there may be additional options besides
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
167 * these; unknown options are ignored.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
168 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
169
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
170 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
171 * Maximum size property that can be read at one time by
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
172 * this module:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
173 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
174
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
175 #define MAX_PROP_WORDS 100000
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
176
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
177 struct ServerReply
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
178 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
179 Window id;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
180 garray_T strings;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
181 };
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
182 static garray_T serverReply = { 0, 0, 0, 0, 0 };
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
183 enum ServerReplyOp { SROP_Find, SROP_Add, SROP_Delete };
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
184
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
185 typedef int (*EndCond) __ARGS((void *));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
186
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
187 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
188 * Forward declarations for procedures defined later in this file:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
189 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
190
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
191 static Window LookupName __ARGS((Display *dpy, char_u *name, int delete, char_u **loose));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
192 static int SendInit __ARGS((Display *dpy));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
193 static int DoRegisterName __ARGS((Display *dpy, char_u *name));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
194 static void DeleteAnyLingerer __ARGS((Display *dpy, Window w));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
195 static int GetRegProp __ARGS((Display *dpy, char_u **regPropp, long_u *numItemsp, int domsg));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
196 static int WaitForPend __ARGS((void *p));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
197 static int WaitForReply __ARGS((void *p));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
198 static int WindowValid __ARGS((Display *dpy, Window w));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
199 static void ServerWait __ARGS((Display *dpy, Window w, EndCond endCond, void *endData, int localLoop, int seconds));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
200 static struct ServerReply *ServerReplyFind __ARGS((Window w, enum ServerReplyOp op));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
201 static int AppendPropCarefully __ARGS((Display *display, Window window, Atom property, char_u *value, int length));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
202 static int x_error_check __ARGS((Display *dpy, XErrorEvent *error_event));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
203 static int IsSerialName __ARGS((char_u *name));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
204
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
205 /* Private variables for the "server" functionality */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
206 static Atom registryProperty = None;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
207 static Atom vimProperty = None;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
208 static int got_x_error = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
209
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
210 static char_u *empty_prop = (char_u *)""; /* empty GetRegProp() result */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
211
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
212 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
213 * Associate an ASCII name with Vim. Try real hard to get a unique one.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
214 * Returns FAIL or OK.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
215 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
216 int
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
217 serverRegisterName(dpy, name)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
218 Display *dpy; /* display to register with */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
219 char_u *name; /* the name that will be used as a base */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
220 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
221 int i;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
222 int res;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
223 char_u *p = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
224
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
225 res = DoRegisterName(dpy, name);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
226 if (res < 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
227 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
228 i = 1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
229 do
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
230 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
231 if (res < -1 || i >= 1000)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
232 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
233 MSG_ATTR(_("Unable to register a command server name"),
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
234 hl_attr(HLF_W));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
235 return FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
236 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
237 if (p == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
238 p = alloc(STRLEN(name) + 10);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
239 if (p == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
240 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
241 res = -10;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
242 continue;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
243 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
244 sprintf((char *)p, "%s%d", name, i++);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
245 res = DoRegisterName(dpy, p);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
246 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
247 while (res < 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
248 ;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
249 vim_free(p);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
250 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
251 return OK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
252 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
253
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
254 static int
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
255 DoRegisterName(dpy, name)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
256 Display *dpy;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
257 char_u *name;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
258 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
259 Window w;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
260 XErrorHandler old_handler;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
261 #define MAX_NAME_LENGTH 100
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
262 char_u propInfo[MAX_NAME_LENGTH + 20];
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
263
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
264 if (commProperty == None)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
265 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
266 if (SendInit(dpy) < 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
267 return -2;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
268 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
269
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
270 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
271 * Make sure the name is unique, and append info about it to
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
272 * the registry property. It's important to lock the server
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
273 * here to prevent conflicting changes to the registry property.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
274 * WARNING: Do not step through this while debugging, it will hangup the X
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
275 * server!
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
276 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
277 XGrabServer(dpy);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
278 w = LookupName(dpy, name, FALSE, NULL);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
279 if (w != (Window)0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
280 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
281 Status status;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
282 int dummyInt;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
283 unsigned int dummyUns;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
284 Window dummyWin;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
285
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
286 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
287 * The name is currently registered. See if the commWindow
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
288 * associated with the name exists. If not, or if the commWindow
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
289 * is *our* commWindow, then just unregister the old name (this
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
290 * could happen if an application dies without cleaning up the
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
291 * registry).
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
292 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
293 old_handler = XSetErrorHandler(x_error_check);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
294 status = XGetGeometry(dpy, w, &dummyWin, &dummyInt, &dummyInt,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
295 &dummyUns, &dummyUns, &dummyUns, &dummyUns);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
296 (void)XSetErrorHandler(old_handler);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
297 if (status != Success && w != commWindow)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
298 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
299 XUngrabServer(dpy);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
300 XFlush(dpy);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
301 return -1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
302 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
303 (void)LookupName(dpy, name, /*delete=*/TRUE, NULL);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
304 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
305 sprintf((char *)propInfo, "%x %.*s", (int_u)commWindow,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
306 MAX_NAME_LENGTH, name);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
307 old_handler = XSetErrorHandler(x_error_check);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
308 got_x_error = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
309 XChangeProperty(dpy, RootWindow(dpy, 0), registryProperty, XA_STRING, 8,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
310 PropModeAppend, propInfo, STRLEN(propInfo) + 1);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
311 XUngrabServer(dpy);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
312 XSync(dpy, False);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
313 (void)XSetErrorHandler(old_handler);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
314
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
315 if (!got_x_error)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
316 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
317 #ifdef FEAT_EVAL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
318 set_vim_var_string(VV_SEND_SERVER, name, -1);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
319 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
320 serverName = vim_strsave(name);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
321 #ifdef FEAT_TITLE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
322 need_maketitle = TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
323 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
324 return 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
325 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
326 return -2;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
327 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
328
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
329 #if defined(FEAT_GUI) || defined(PROTO)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
330 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
331 * Clean out new ID from registry and set it as comm win.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
332 * Change any registered window ID.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
333 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
334 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
335 serverChangeRegisteredWindow(dpy, newwin)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
336 Display *dpy; /* Display to register with */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
337 Window newwin; /* Re-register to this ID */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
338 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
339 char_u propInfo[MAX_NAME_LENGTH + 20];
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
340
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
341 commWindow = newwin;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
342
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
343 /* Always call SendInit() here, to make sure commWindow is marked as a Vim
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
344 * window. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
345 if (SendInit(dpy) < 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
346 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
347
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
348 /* WARNING: Do not step through this while debugging, it will hangup the X
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
349 * server! */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
350 XGrabServer(dpy);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
351 DeleteAnyLingerer(dpy, newwin);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
352 if (serverName != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
353 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
354 /* Reinsert name if we was already registered */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
355 (void)LookupName(dpy, serverName, /*delete=*/TRUE, NULL);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
356 sprintf((char *)propInfo, "%x %.*s",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
357 (int_u)newwin, MAX_NAME_LENGTH, serverName);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
358 XChangeProperty(dpy, RootWindow(dpy, 0), registryProperty, XA_STRING, 8,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
359 PropModeAppend, (char_u *)propInfo,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
360 STRLEN(propInfo) + 1);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
361 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
362 XUngrabServer(dpy);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
363 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
364 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
365
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
366 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
367 * Send to an instance of Vim via the X display.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
368 * Returns 0 for OK, negative for an error.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
369 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
370 int
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
371 serverSendToVim(dpy, name, cmd, result, server, asExpr, localLoop, silent)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
372 Display *dpy; /* Where to send. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
373 char_u *name; /* Where to send. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
374 char_u *cmd; /* What to send. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
375 char_u **result; /* Result of eval'ed expression */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
376 Window *server; /* Actual ID of receiving app */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
377 Bool asExpr; /* Interpret as keystrokes or expr ? */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
378 Bool localLoop; /* Throw away everything but result */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
379 int silent; /* don't complain about no server */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
380 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
381 Window w;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
382 char_u *property;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
383 int length;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
384 int res;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
385 static int serial = 0; /* Running count of sent commands.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
386 * Used to give each command a
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
387 * different serial number. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
388 PendingCommand pending;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
389 char_u *loosename = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
390
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
391 if (result != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
392 *result = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
393 if (name == NULL || *name == NUL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
394 name = (char_u *)"GVIM"; /* use a default name */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
395
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
396 if (commProperty == None && dpy != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
397 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
398 if (SendInit(dpy) < 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
399 return -1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
400 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
401
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
402 /* Execute locally if no display or target is ourselves */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
403 if (dpy == NULL || (serverName != NULL && STRICMP(name, serverName) == 0))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
404 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
405 if (asExpr)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
406 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
407 char_u *ret;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
408
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
409 ret = eval_client_expr_to_string(cmd);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
410 if (result != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
411 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
412 if (ret == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
413 *result = vim_strsave((char_u *)_(e_invexprmsg));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
414 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
415 *result = ret;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
416 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
417 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
418 vim_free(ret);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
419 return ret == NULL ? -1 : 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
420 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
421 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
422 server_to_input_buf(cmd);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
423 return 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
424 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
425
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
426 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
427 * Bind the server name to a communication window.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
428 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
429 * Find any survivor with a serialno attached to the name if the
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
430 * original registrant of the wanted name is no longer present.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
431 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
432 * Delete any lingering names from dead editors.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
433 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
434 while (TRUE)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
435 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
436 w = LookupName(dpy, name, FALSE, &loosename);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
437 /* Check that the window is hot */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
438 if (w != None)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
439 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
440 if (!WindowValid(dpy, w))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
441 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
442 LookupName(dpy, loosename ? loosename : name,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
443 /*DELETE=*/TRUE, NULL);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
444 continue;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
445 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
446 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
447 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
448 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
449 if (w == None)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
450 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
451 if (!silent)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
452 EMSG2(_(e_noserver), name);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
453 return -1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
454 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
455 else if (loosename != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
456 name = loosename;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
457 if (server != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
458 *server = w;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
459
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
460 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
461 * Send the command to target interpreter by appending it to the
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
462 * comm window in the communication window.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
463 */
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
464 length = STRLEN(name) + STRLEN(cmd) + 14;
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
465 #ifdef FEAT_MBYTE
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
466 length += STRLEN(p_enc);
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
467 #endif
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
468 property = (char_u *)alloc((unsigned)length + 30);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
469
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
470 #ifdef FEAT_MBYTE
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
471 sprintf((char *)property, "%c%c%c-n %s%c-E %s%c-s %s",
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
472 0, asExpr ? 'c' : 'k', 0, name, 0, p_enc, 0, cmd);
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
473 #else
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
474 sprintf((char *)property, "%c%c%c-n %s%c-s %s",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
475 0, asExpr ? 'c' : 'k', 0, name, 0, cmd);
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
476 #endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
477 if (name == loosename)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
478 vim_free(loosename);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
479 /* Add a back reference to our comm window */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
480 serial++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
481 sprintf((char *)property + length, "%c-r %x %d",
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
482 0, (int_u)commWindow, serial);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
483 length += STRLEN(property + length + 1) + 1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
484
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
485 res = AppendPropCarefully(dpy, w, commProperty, property, length + 1);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
486 vim_free(property);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
487 if (res < 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
488 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
489 EMSG(_("E248: Failed to send command to the destination program"));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
490 return -1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
491 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
492
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
493 if (!asExpr) /* There is no answer for this - Keys are sent async */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
494 return 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
495
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
496 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
497 * Register the fact that we're waiting for a command to
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
498 * complete (this is needed by SendEventProc and by
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
499 * AppendErrorProc to pass back the command's results).
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
500 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
501 pending.serial = serial;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
502 pending.code = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
503 pending.result = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
504 pending.nextPtr = pendingCommands;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
505 pendingCommands = &pending;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
506
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
507 ServerWait(dpy, w, WaitForPend, &pending, localLoop, 600);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
508
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
509 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
510 * Unregister the information about the pending command
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
511 * and return the result.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
512 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
513 if (pendingCommands == &pending)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
514 pendingCommands = pending.nextPtr;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
515 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
516 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
517 PendingCommand *pcPtr;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
518
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
519 for (pcPtr = pendingCommands; pcPtr != NULL; pcPtr = pcPtr->nextPtr)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
520 if (pcPtr->nextPtr == &pending)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
521 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
522 pcPtr->nextPtr = pending.nextPtr;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
523 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
524 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
525 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
526 if (result != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
527 *result = pending.result;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
528 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
529 vim_free(pending.result);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
530
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
531 return pending.code == 0 ? 0 : -1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
532 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
533
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
534 static int
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
535 WaitForPend(p)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
536 void *p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
537 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
538 PendingCommand *pending = (PendingCommand *) p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
539 return pending->result != NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
540 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
541
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
542 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
543 * Return TRUE if window "w" exists and has a "Vim" property on it.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
544 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
545 static int
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
546 WindowValid(dpy, w)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
547 Display *dpy;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
548 Window w;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
549 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
550 XErrorHandler old_handler;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
551 Atom *plist;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
552 int numProp;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
553 int i;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
554
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
555 old_handler = XSetErrorHandler(x_error_check);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
556 got_x_error = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
557 plist = XListProperties(dpy, w, &numProp);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
558 XSync(dpy, False);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
559 XSetErrorHandler(old_handler);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
560 if (plist == NULL || got_x_error)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
561 return FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
562
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
563 for (i = 0; i < numProp; i++)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
564 if (plist[i] == vimProperty)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
565 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
566 XFree(plist);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
567 return TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
568 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
569 XFree(plist);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
570 return FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
571 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
572
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
573 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
574 * Enter a loop processing X events & polling chars until we see a result
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
575 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
576 static void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
577 ServerWait(dpy, w, endCond, endData, localLoop, seconds)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
578 Display *dpy;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
579 Window w;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
580 EndCond endCond;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
581 void *endData;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
582 int localLoop;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
583 int seconds;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
584 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
585 time_t start;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
586 time_t now;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
587 time_t lastChk = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
588 XEvent event;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
589 XPropertyEvent *e = (XPropertyEvent *)&event;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
590 # define SEND_MSEC_POLL 50
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
591
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
592 time(&start);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
593 while (endCond(endData) == 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
594 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
595 time(&now);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
596 if (seconds >= 0 && (now - start) >= seconds)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
597 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
598 if (now != lastChk)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
599 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
600 lastChk = now;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
601 if (!WindowValid(dpy, w))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
602 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
603 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
604 * Sometimes the PropertyChange event doesn't come.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
605 * This can be seen in eg: vim -c 'echo remote_expr("gvim", "3+2")'
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
606 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
607 serverEventProc(dpy, NULL);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
608 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
609 if (localLoop)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
610 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
611 /* Just look out for the answer without calling back into Vim */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
612 #ifndef HAVE_SELECT
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
613 struct pollfd fds;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
614
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
615 fds.fd = ConnectionNumber(dpy);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
616 fds.events = POLLIN;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
617 if (poll(&fds, 1, SEND_MSEC_POLL) < 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
618 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
619 #else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
620 fd_set fds;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
621 struct timeval tv;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
622
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
623 tv.tv_sec = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
624 tv.tv_usec = SEND_MSEC_POLL * 1000;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
625 FD_ZERO(&fds);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
626 FD_SET(ConnectionNumber(dpy), &fds);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
627 if (select(ConnectionNumber(dpy) + 1, &fds, NULL, NULL, &tv) < 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
628 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
629 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
630 while (XEventsQueued(dpy, QueuedAfterReading) > 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
631 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
632 XNextEvent(dpy, &event);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
633 if (event.type == PropertyNotify && e->window == commWindow)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
634 serverEventProc(dpy, &event);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
635 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
636 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
637 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
638 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
639 if (got_int)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
640 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
641 ui_delay((long)SEND_MSEC_POLL, TRUE);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
642 ui_breakcheck();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
643 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
644 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
645 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
646
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
647
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
648 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
649 * Fetch a list of all the Vim instance names currently registered for the
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
650 * display.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
651 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
652 * Returns a newline separated list in allocated memory or NULL.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
653 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
654 char_u *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
655 serverGetVimNames(dpy)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
656 Display *dpy;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
657 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
658 char_u *regProp;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
659 char_u *entry;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
660 char_u *p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
661 long_u numItems;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
662 int_u w;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
663 garray_T ga;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
664
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
665 if (registryProperty == None)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
666 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
667 if (SendInit(dpy) < 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
668 return NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
669 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
670 ga_init2(&ga, 1, 100);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
671
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
672 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
673 * Read the registry property.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
674 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
675 if (GetRegProp(dpy, &regProp, &numItems, TRUE) == FAIL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
676 return NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
677
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
678 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
679 * Scan all of the names out of the property.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
680 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
681 ga_init2(&ga, 1, 100);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
682 for (p = regProp; (p - regProp) < numItems; p++)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
683 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
684 entry = p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
685 while (*p != 0 && !isspace(*p))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
686 p++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
687 if (*p != 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
688 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
689 w = None;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
690 sscanf((char *)entry, "%x", &w);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
691 if (WindowValid(dpy, (Window)w))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
692 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
693 ga_concat(&ga, p + 1);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
694 ga_concat(&ga, (char_u *)"\n");
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
695 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
696 while (*p != 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
697 p++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
698 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
699 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
700 if (regProp != empty_prop)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
701 XFree(regProp);
21
db5102f7e29f updated for version 7.0013
vimboss
parents: 7
diff changeset
702 ga_append(&ga, NUL);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
703 return ga.ga_data;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
704 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
705
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
706 /* ----------------------------------------------------------
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
707 * Reply stuff
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
708 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
709
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
710 static struct ServerReply *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
711 ServerReplyFind(w, op)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
712 Window w;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
713 enum ServerReplyOp op;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
714 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
715 struct ServerReply *p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
716 struct ServerReply e;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
717 int i;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
718
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
719 p = (struct ServerReply *) serverReply.ga_data;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
720 for (i = 0; i < serverReply.ga_len; i++, p++)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
721 if (p->id == w)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
722 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
723 if (i >= serverReply.ga_len)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
724 p = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
725
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
726 if (p == NULL && op == SROP_Add)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
727 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
728 if (serverReply.ga_growsize == 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
729 ga_init2(&serverReply, sizeof(struct ServerReply), 1);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
730 if (ga_grow(&serverReply, 1) == OK)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
731 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
732 p = ((struct ServerReply *) serverReply.ga_data)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
733 + serverReply.ga_len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
734 e.id = w;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
735 ga_init2(&e.strings, 1, 100);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
736 memcpy(p, &e, sizeof(e));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
737 serverReply.ga_len++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
738 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
739 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
740 else if (p != NULL && op == SROP_Delete)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
741 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
742 ga_clear(&p->strings);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
743 mch_memmove(p, p + 1, (serverReply.ga_len - i - 1) * sizeof(*p));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
744 serverReply.ga_len--;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
745 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
746
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
747 return p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
748 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
749
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
750 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
751 * Convert string to windowid.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
752 * Issue an error if the id is invalid.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
753 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
754 Window
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
755 serverStrToWin(str)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
756 char_u *str;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
757 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
758 unsigned id = None;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
759
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
760 sscanf((char *)str, "0x%x", &id);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
761 if (id == None)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
762 EMSG2(_("E573: Invalid server id used: %s"), str);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
763
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
764 return (Window)id;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
765 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
766
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
767 /*
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
768 * Send a reply string (notification) to client with id "name".
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
769 * Return -1 if the window is invalid.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
770 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
771 int
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
772 serverSendReply(name, str)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
773 char_u *name;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
774 char_u *str;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
775 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
776 char_u *property;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
777 int length;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
778 int res;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
779 Display *dpy = X_DISPLAY;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
780 Window win = serverStrToWin(name);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
781
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
782 if (commProperty == None)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
783 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
784 if (SendInit(dpy) < 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
785 return -2;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
786 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
787 if (!WindowValid(dpy, win))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
788 return -1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
789
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
790 length = STRLEN(str) + 11;
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
791 #ifdef FEAT_MBYTE
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
792 length += STRLEN(p_enc);
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
793 #endif
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
794 if ((property = (char_u *)alloc((unsigned)length + 30)) != NULL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
795 {
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
796 #ifdef FEAT_MBYTE
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
797 sprintf((char *)property, "%cn%c-E %s%c-n %s%c-w %x",
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
798 0, 0, p_enc, 0, str, 0, (unsigned int)commWindow);
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
799 #else
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
800 sprintf((char *)property, "%cn%c-n %s%c-w %x",
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
801 0, 0, str, 0, (unsigned int)commWindow);
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
802 #endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
803 length += STRLEN(property + length);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
804 res = AppendPropCarefully(dpy, win, commProperty, property, length + 1);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
805 vim_free(property);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
806 return res;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
807 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
808 return -1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
809 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
810
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
811 static int
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
812 WaitForReply(p)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
813 void *p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
814 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
815 Window *w = (Window *) p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
816 return ServerReplyFind(*w, SROP_Find) != NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
817 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
818
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
819 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
820 * Wait for replies from id (win)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
821 * Return 0 and the malloc'ed string when a reply is available.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
822 * Return -1 if the window becomes invalid while waiting.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
823 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
824 int
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
825 serverReadReply(dpy, win, str, localLoop)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
826 Display *dpy;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
827 Window win;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
828 char_u **str;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
829 int localLoop;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
830 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
831 int len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
832 char_u *s;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
833 struct ServerReply *p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
834
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
835 ServerWait(dpy, win, WaitForReply, &win, localLoop, -1);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
836
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
837 if ((p = ServerReplyFind(win, SROP_Find)) != NULL && p->strings.ga_len > 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
838 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
839 *str = vim_strsave(p->strings.ga_data);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
840 len = STRLEN(*str) + 1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
841 if (len < p->strings.ga_len)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
842 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
843 s = (char_u *) p->strings.ga_data;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
844 mch_memmove(s, s + len, p->strings.ga_len - len);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
845 p->strings.ga_len -= len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
846 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
847 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
848 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
849 /* Last string read. Remove from list */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
850 ga_clear(&p->strings);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
851 ServerReplyFind(win, SROP_Delete);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
852 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
853 return 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
854 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
855 return -1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
856 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
857
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
858 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
859 * Check for replies from id (win).
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
860 * Return TRUE and a non-malloc'ed string if there is. Else return FALSE.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
861 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
862 int
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
863 serverPeekReply(dpy, win, str)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
864 Display *dpy;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
865 Window win;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
866 char_u **str;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
867 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
868 struct ServerReply *p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
869
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
870 if ((p = ServerReplyFind(win, SROP_Find)) != NULL && p->strings.ga_len > 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
871 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
872 if (str != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
873 *str = p->strings.ga_data;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
874 return 1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
875 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
876 if (!WindowValid(dpy, win))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
877 return -1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
878 return 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
879 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
880
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
881
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
882 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
883 * Initialize the communication channels for sending commands and receiving
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
884 * results.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
885 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
886 static int
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
887 SendInit(dpy)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
888 Display *dpy;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
889 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
890 XErrorHandler old_handler;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
891
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
892 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
893 * Create the window used for communication, and set up an
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
894 * event handler for it.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
895 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
896 old_handler = XSetErrorHandler(x_error_check);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
897 got_x_error = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
898
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
899 if (commProperty == None)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
900 commProperty = XInternAtom(dpy, "Comm", False);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
901 if (vimProperty == None)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
902 vimProperty = XInternAtom(dpy, "Vim", False);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
903 if (registryProperty == None)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
904 registryProperty = XInternAtom(dpy, "VimRegistry", False);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
905
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
906 if (commWindow == None)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
907 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
908 commWindow = XCreateSimpleWindow(dpy, XDefaultRootWindow(dpy),
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
909 getpid(), 0, 10, 10, 0,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
910 WhitePixel(dpy, DefaultScreen(dpy)),
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
911 WhitePixel(dpy, DefaultScreen(dpy)));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
912 XSelectInput(dpy, commWindow, PropertyChangeMask);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
913 /* WARNING: Do not step through this while debugging, it will hangup
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
914 * the X server! */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
915 XGrabServer(dpy);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
916 DeleteAnyLingerer(dpy, commWindow);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
917 XUngrabServer(dpy);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
918 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
919
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
920 /* Make window recognizable as a vim window */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
921 XChangeProperty(dpy, commWindow, vimProperty, XA_STRING,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
922 8, PropModeReplace, (char_u *)VIM_VERSION_SHORT,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
923 (int)STRLEN(VIM_VERSION_SHORT) + 1);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
924
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
925 XSync(dpy, False);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
926 (void)XSetErrorHandler(old_handler);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
927
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
928 return got_x_error ? -1 : 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
929 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
930
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
931 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
932 * Given a server name, see if the name exists in the registry for a
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
933 * particular display.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
934 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
935 * If the given name is registered, return the ID of the window associated
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
936 * with the name. If the name isn't registered, then return 0.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
937 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
938 * Side effects:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
939 * If the registry property is improperly formed, then it is deleted.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
940 * If "delete" is non-zero, then if the named server is found it is
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
941 * removed from the registry property.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
942 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
943 static Window
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
944 LookupName(dpy, name, delete, loose)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
945 Display *dpy; /* Display whose registry to check. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
946 char_u *name; /* Name of a server. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
947 int delete; /* If non-zero, delete info about name. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
948 char_u **loose; /* Do another search matching -999 if not found
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
949 Return result here if a match is found */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
950 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
951 char_u *regProp, *entry;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
952 char_u *p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
953 long_u numItems;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
954 int_u returnValue;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
955
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
956 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
957 * Read the registry property.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
958 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
959 if (GetRegProp(dpy, &regProp, &numItems, FALSE) == FAIL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
960 return 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
961
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
962 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
963 * Scan the property for the desired name.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
964 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
965 returnValue = (int_u)None;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
966 entry = NULL; /* Not needed, but eliminates compiler warning. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
967 for (p = regProp; (p - regProp) < numItems; )
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
968 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
969 entry = p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
970 while (*p != 0 && !isspace(*p))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
971 p++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
972 if (*p != 0 && STRICMP(name, p + 1) == 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
973 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
974 sscanf((char *)entry, "%x", &returnValue);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
975 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
976 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
977 while (*p != 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
978 p++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
979 p++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
980 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
981
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
982 if (loose != NULL && returnValue == (int_u)None && !IsSerialName(name))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
983 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
984 for (p = regProp; (p - regProp) < numItems; )
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
985 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
986 entry = p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
987 while (*p != 0 && !isspace(*p))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
988 p++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
989 if (*p != 0 && IsSerialName(p + 1)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
990 && STRNICMP(name, p + 1, STRLEN(name)) == 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
991 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
992 sscanf((char *)entry, "%x", &returnValue);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
993 *loose = vim_strsave(p + 1);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
994 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
995 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
996 while (*p != 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
997 p++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
998 p++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
999 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1000 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1001
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1002 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1003 * Delete the property, if that is desired (copy down the
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1004 * remainder of the registry property to overlay the deleted
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1005 * info, then rewrite the property).
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1006 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1007 if (delete && returnValue != (int_u)None)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1008 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1009 int count;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1010
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1011 while (*p != 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1012 p++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1013 p++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1014 count = numItems - (p - regProp);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1015 if (count > 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1016 memcpy(entry, p, count);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1017 XChangeProperty(dpy, RootWindow(dpy, 0), registryProperty, XA_STRING,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1018 8, PropModeReplace, regProp,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1019 (int)(numItems - (p - entry)));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1020 XSync(dpy, False);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1021 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1022
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1023 if (regProp != empty_prop)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1024 XFree(regProp);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1025 return (Window)returnValue;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1026 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1027
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1028 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1029 * Delete any lingering occurences of window id. We promise that any
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1030 * occurences is not ours since it is not yet put into the registry (by us)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1031 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1032 * This is necessary in the following scenario:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1033 * 1. There is an old windowid for an exit'ed vim in the registry
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1034 * 2. We get that id for our commWindow but only want to send, not register.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1035 * 3. The window will mistakenly be regarded valid because of own commWindow
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1036 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1037 static void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1038 DeleteAnyLingerer(dpy, win)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1039 Display *dpy; /* Display whose registry to check. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1040 Window win; /* Window to remove */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1041 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1042 char_u *regProp, *entry = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1043 char_u *p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1044 long_u numItems;
28
726bdc53fa49 updated for version 7.0018
vimboss
parents: 21
diff changeset
1045 int_u wwin;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1046
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1047 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1048 * Read the registry property.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1049 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1050 if (GetRegProp(dpy, &regProp, &numItems, FALSE) == FAIL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1051 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1052
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1053 /* Scan the property for the window id. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1054 for (p = regProp; (p - regProp) < numItems; )
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1055 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1056 if (*p != 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1057 {
28
726bdc53fa49 updated for version 7.0018
vimboss
parents: 21
diff changeset
1058 sscanf((char *)p, "%x", &wwin);
726bdc53fa49 updated for version 7.0018
vimboss
parents: 21
diff changeset
1059 if ((Window)wwin == win)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1060 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1061 int lastHalf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1062
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1063 /* Copy down the remainder to delete entry */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1064 entry = p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1065 while (*p != 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1066 p++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1067 p++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1068 lastHalf = numItems - (p - regProp);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1069 if (lastHalf > 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1070 memcpy(entry, p, lastHalf);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1071 numItems = (entry - regProp) + lastHalf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1072 p = entry;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1073 continue;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1074 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1075 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1076 while (*p != 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1077 p++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1078 p++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1079 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1080
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1081 if (entry != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1082 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1083 XChangeProperty(dpy, RootWindow(dpy, 0), registryProperty,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1084 XA_STRING, 8, PropModeReplace, regProp,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1085 (int)(p - regProp));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1086 XSync(dpy, False);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1087 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1088
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1089 if (regProp != empty_prop)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1090 XFree(regProp);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1091 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1092
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1093 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1094 * Read the registry property. Delete it when it's formatted wrong.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1095 * Return the property in "regPropp". "empty_prop" is used when it doesn't
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1096 * exist yet.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1097 * Return OK when successful.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1098 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1099 static int
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1100 GetRegProp(dpy, regPropp, numItemsp, domsg)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1101 Display *dpy;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1102 char_u **regPropp;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1103 long_u *numItemsp;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1104 int domsg; /* When TRUE give error message. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1105 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1106 int result, actualFormat;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1107 long_u bytesAfter;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1108 Atom actualType;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1109
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1110 *regPropp = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1111 result = XGetWindowProperty(dpy, RootWindow(dpy, 0), registryProperty, 0L,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1112 (long)MAX_PROP_WORDS, False,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1113 XA_STRING, &actualType,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1114 &actualFormat, numItemsp, &bytesAfter,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1115 regPropp);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1116
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1117 if (actualType == None)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1118 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1119 /* No prop yet. Logically equal to the empty list */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1120 *numItemsp = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1121 *regPropp = empty_prop;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1122 return OK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1123 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1124
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1125 /* If the property is improperly formed, then delete it. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1126 if (result != Success || actualFormat != 8 || actualType != XA_STRING)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1127 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1128 if (*regPropp != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1129 XFree(*regPropp);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1130 XDeleteProperty(dpy, RootWindow(dpy, 0), registryProperty);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1131 if (domsg)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1132 EMSG(_("E251: VIM instance registry property is badly formed. Deleted!"));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1133 return FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1134 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1135 return OK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1136 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1137
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1138 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1139 * This procedure is invoked by the varous X event loops throughout Vims when
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1140 * a property changes on the communication window. This procedure reads the
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1141 * property and handles command requests and responses.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1142 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1143 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1144 serverEventProc(dpy, eventPtr)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1145 Display *dpy;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1146 XEvent *eventPtr; /* Information about event. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1147 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1148 char_u *propInfo;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1149 char_u *p;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1150 int result, actualFormat, code;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1151 long_u numItems, bytesAfter;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1152 Atom actualType;
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1153 char_u *tofree;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1154
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1155 if (eventPtr != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1156 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1157 if (eventPtr->xproperty.atom != commProperty
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1158 || eventPtr->xproperty.state != PropertyNewValue)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1159 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1160 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1161
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1162 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1163 * Read the comm property and delete it.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1164 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1165 propInfo = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1166 result = XGetWindowProperty(dpy, commWindow, commProperty, 0L,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1167 (long)MAX_PROP_WORDS, True,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1168 XA_STRING, &actualType,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1169 &actualFormat, &numItems, &bytesAfter,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1170 &propInfo);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1171
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1172 /* If the property doesn't exist or is improperly formed then ignore it. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1173 if (result != Success || actualType != XA_STRING || actualFormat != 8)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1174 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1175 if (propInfo != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1176 XFree(propInfo);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1177 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1178 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1179
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1180 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1181 * Several commands and results could arrive in the property at
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1182 * one time; each iteration through the outer loop handles a
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1183 * single command or result.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1184 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1185 for (p = propInfo; (p - propInfo) < numItems; )
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1186 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1187 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1188 * Ignore leading NULs; each command or result starts with a
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1189 * NUL so that no matter how badly formed a preceding command
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1190 * is, we'll be able to tell that a new command/result is
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1191 * starting.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1192 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1193 if (*p == 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1194 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1195 p++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1196 continue;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1197 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1198
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1199 if ((*p == 'c' || *p == 'k') && (p[1] == 0))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1200 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1201 Window resWindow;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1202 char_u *name, *script, *serial, *end, *res;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1203 Bool asKeys = *p == 'k';
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1204 garray_T reply;
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1205 char_u *enc;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1206
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1207 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1208 * This is an incoming command from some other application.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1209 * Iterate over all of its options. Stop when we reach
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1210 * the end of the property or something that doesn't look
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1211 * like an option.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1212 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1213 p += 2;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1214 name = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1215 resWindow = None;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1216 serial = (char_u *)"";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1217 script = NULL;
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1218 enc = NULL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1219 while (p - propInfo < numItems && *p == '-')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1220 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1221 switch (p[1])
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1222 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1223 case 'r':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1224 end = skipwhite(p + 2);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1225 resWindow = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1226 while (vim_isxdigit(*end))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1227 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1228 resWindow = 16 * resWindow + (long_u)hex2nr(*end);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1229 ++end;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1230 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1231 if (end == p + 2 || *end != ' ')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1232 resWindow = None;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1233 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1234 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1235 p = serial = end + 1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1236 clientWindow = resWindow; /* Remember in global */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1237 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1238 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1239 case 'n':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1240 if (p[2] == ' ')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1241 name = p + 3;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1242 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1243 case 's':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1244 if (p[2] == ' ')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1245 script = p + 3;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1246 break;
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1247 case 'E':
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1248 if (p[2] == ' ')
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1249 enc = p + 3;
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1250 break;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1251 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1252 while (*p != 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1253 p++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1254 p++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1255 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1256
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1257 if (script == NULL || name == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1258 continue;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1259
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1260 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1261 * Initialize the result property, so that we're ready at any
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1262 * time if we need to return an error.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1263 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1264 if (resWindow != None)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1265 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1266 ga_init2(&reply, 1, 100);
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1267 #ifdef FEAT_MBYTE
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1268 ga_grow(&reply, 50 + STRLEN(p_enc));
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1269 sprintf(reply.ga_data, "%cr%c-E %s%c-s %s%c-r ",
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1270 0, 0, p_enc, 0, serial, 0);
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1271 #else
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1272 ga_grow(&reply, 50);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1273 sprintf(reply.ga_data, "%cr%c-s %s%c-r ", 0, 0, serial, 0);
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1274 #endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1275 reply.ga_len = 10 + STRLEN(serial);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1276 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1277 res = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1278 if (serverName != NULL && STRICMP(name, serverName) == 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1279 {
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1280 script = serverConvert(enc, script, &tofree);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1281 if (asKeys)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1282 server_to_input_buf(script);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1283 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1284 res = eval_client_expr_to_string(script);
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1285 vim_free(tofree);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1286 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1287 if (resWindow != None)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1288 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1289 if (res != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1290 ga_concat(&reply, res);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1291 else if (asKeys == 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1292 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1293 ga_concat(&reply, (char_u *)_(e_invexprmsg));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1294 ga_append(&reply, 0);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1295 ga_concat(&reply, (char_u *)"-c 1");
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1296 }
21
db5102f7e29f updated for version 7.0013
vimboss
parents: 7
diff changeset
1297 ga_append(&reply, NUL);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1298 (void)AppendPropCarefully(dpy, resWindow, commProperty,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1299 reply.ga_data, reply.ga_len);
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1300 ga_clear(&reply);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1301 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1302 vim_free(res);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1303 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1304 else if (*p == 'r' && p[1] == 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1305 {
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1306 int serial, gotSerial;
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1307 char_u *res;
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1308 PendingCommand *pcPtr;
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1309 char_u *enc;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1310
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1311 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1312 * This is a reply to some command that we sent out. Iterate
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1313 * over all of its options. Stop when we reach the end of the
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1314 * property or something that doesn't look like an option.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1315 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1316 p += 2;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1317 gotSerial = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1318 res = (char_u *)"";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1319 code = 0;
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1320 enc = NULL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1321 while ((p-propInfo) < numItems && *p == '-')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1322 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1323 switch (p[1])
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1324 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1325 case 'r':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1326 if (p[2] == ' ')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1327 res = p + 3;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1328 break;
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1329 case 'E':
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1330 if (p[2] == ' ')
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1331 enc = p + 3;
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1332 break;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1333 case 's':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1334 if (sscanf((char *)p + 2, " %d", &serial) == 1)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1335 gotSerial = 1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1336 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1337 case 'c':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1338 if (sscanf((char *)p + 2, " %d", &code) != 1)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1339 code = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1340 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1341 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1342 while (*p != 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1343 p++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1344 p++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1345 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1346
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1347 if (!gotSerial)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1348 continue;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1349
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1350 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1351 * Give the result information to anyone who's
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1352 * waiting for it.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1353 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1354 for (pcPtr = pendingCommands; pcPtr != NULL; pcPtr = pcPtr->nextPtr)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1355 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1356 if (serial != pcPtr->serial || pcPtr->result != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1357 continue;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1358
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1359 pcPtr->code = code;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1360 if (res != NULL)
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1361 {
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1362 res = serverConvert(enc, res, &tofree);
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1363 if (tofree == NULL)
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1364 res = vim_strsave(res);
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1365 pcPtr->result = res;
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1366 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1367 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1368 pcPtr->result = vim_strsave((char_u *)"");
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1369 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1370 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1371 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1372 else if (*p == 'n' && p[1] == 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1373 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1374 Window win = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1375 unsigned int u;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1376 int gotWindow;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1377 char_u *str;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1378 char_u winstr[30];
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1379 struct ServerReply *r;
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1380 char_u *enc;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1381
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1382 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1383 * This is a (n)otification. Sent with serverreply_send in VimL.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1384 * Execute any autocommand and save it for later retrieval
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1385 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1386 p += 2;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1387 gotWindow = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1388 str = (char_u *)"";
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1389 enc = NULL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1390 while ((p-propInfo) < numItems && *p == '-')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1391 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1392 switch (p[1])
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1393 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1394 case 'n':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1395 if (p[2] == ' ')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1396 str = p + 3;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1397 break;
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1398 case 'E':
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1399 if (p[2] == ' ')
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1400 enc = p + 3;
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1401 break;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1402 case 'w':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1403 if (sscanf((char *)p + 2, " %x", &u) == 1)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1404 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1405 win = u;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1406 gotWindow = 1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1407 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1408 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1409 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1410 while (*p != 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1411 p++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1412 p++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1413 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1414
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1415 if (!gotWindow)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1416 continue;
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1417 str = serverConvert(enc, str, &tofree);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1418 if ((r = ServerReplyFind(win, SROP_Add)) != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1419 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1420 ga_concat(&(r->strings), str);
21
db5102f7e29f updated for version 7.0013
vimboss
parents: 7
diff changeset
1421 ga_append(&(r->strings), NUL);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1422 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1423 #ifdef FEAT_AUTOCMD
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1424 sprintf((char *)winstr, "0x%x", (unsigned int)win);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1425 apply_autocmds(EVENT_REMOTEREPLY, winstr, str, TRUE, curbuf);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1426 #endif
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 28
diff changeset
1427 vim_free(tofree);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1428 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1429 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1430 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1431 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1432 * Didn't recognize this thing. Just skip through the next
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1433 * null character and try again.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1434 * Even if we get an 'r'(eply) we will throw it away as we
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1435 * never specify (and thus expect) one
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1436 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1437 while (*p != 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1438 p++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1439 p++;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1440 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1441 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1442 XFree(propInfo);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1443 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1444
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1445 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1446 * Append a given property to a given window, but set up an X error handler so
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1447 * that if the append fails this procedure can return an error code rather
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1448 * than having Xlib panic.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1449 * Return: 0 for OK, -1 for error
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1450 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1451 static int
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1452 AppendPropCarefully(dpy, window, property, value, length)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1453 Display *dpy; /* Display on which to operate. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1454 Window window; /* Window whose property is to be modified. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1455 Atom property; /* Name of property. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1456 char_u *value; /* Characters to append to property. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1457 int length; /* How much to append */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1458 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1459 XErrorHandler old_handler;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1460
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1461 old_handler = XSetErrorHandler(x_error_check);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1462 got_x_error = FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1463 XChangeProperty(dpy, window, property, XA_STRING, 8,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1464 PropModeAppend, value, length);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1465 XSync(dpy, False);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1466 (void) XSetErrorHandler(old_handler);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1467 return got_x_error ? -1 : 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1468 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1469
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1470
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1471 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1472 * Another X Error handler, just used to check for errors.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1473 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1474 /* ARGSUSED */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1475 static int
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1476 x_error_check(dpy, error_event)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1477 Display *dpy;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1478 XErrorEvent *error_event;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1479 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1480 got_x_error = TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1481 return 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1482 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1483
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1484 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1485 * Check if "str" looks like it had a serial number appended.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1486 * Actually just checks if the name ends in a digit.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1487 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1488 static int
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1489 IsSerialName(str)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1490 char_u *str;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1491 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1492 int len = STRLEN(str);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1493
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1494 return (len > 1 && vim_isdigit(str[len - 1]));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1495 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1496 #endif /* FEAT_CLIENTSERVER */