Mercurial > kinput2.yaz
comparison lib/imlib/imdata.c @ 0:92745d501b9a
initial import from kinput2-v3.1
author | Yoshiki Yazawa <yaz@honeyplanet.jp> |
---|---|
date | Mon, 08 Mar 2010 04:44:30 +0900 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:92745d501b9a |
---|---|
1 #ifndef lint | |
2 static char *rcsid = "$Id: imdata.c,v 1.7 1994/06/02 02:20:23 ishisone Exp $"; | |
3 #endif | |
4 /* | |
5 * Copyright (c) 1994 Software Research Associates, Inc. | |
6 * | |
7 * Permission to use, copy, modify, and distribute this software and its | |
8 * documentation for any purpose and without fee is hereby granted, provided | |
9 * that the above copyright notice appear in all copies and that both that | |
10 * copyright notice and this permission notice appear in supporting | |
11 * documentation, and that the name of Software Research Associates not be | |
12 * used in advertising or publicity pertaining to distribution of the | |
13 * software without specific, written prior permission. Software Research | |
14 * Associates makes no representations about the suitability of this software | |
15 * for any purpose. It is provided "as is" without express or implied | |
16 * warranty. | |
17 * | |
18 * Author: Makoto Ishisone, Software Research Associates, Inc., Japan | |
19 */ | |
20 | |
21 #include "im.h" | |
22 | |
23 #define B_GET16(p) (((p)[0]<<8) + (p)[1]) | |
24 #define B_GET32(p) (((p)[0]<<24) + ((p)[1]<<16) + ((p)[2]<<8) + (p)[3]) | |
25 #define L_GET16(p) ((p)[0] + ((p)[1]<<8)) | |
26 #define L_GET32(p) ((p)[0] + ((p)[1]<<8) + ((p)[2]<<16) + ((p)[3] << 24)) | |
27 | |
28 #define B_PUT16(x, p) (p)[0] = ((x)>>8) & 0xff; (p)[1] = (x) & 0xff | |
29 #define B_PUT32(x, p) (p)[0] = ((x)>>24) & 0xff; (p)[1] = ((x)>>16) & 0xff; \ | |
30 (p)[2] = ((x)>>8) & 0xff; (p)[3] = (x) & 0xff | |
31 #define L_PUT16(x, p) (p)[0] = (x) & 0xff; (p)[1] = ((x)>>8) & 0xff | |
32 #define L_PUT32(x, p) (p)[0] = (x) & 0xff; (p)[1] = ((x)>>8) & 0xff; \ | |
33 (p)[2] = ((x)>>16) & 0xff; (p)[3] = ((x)>>24) & 0xff; | |
34 | |
35 int | |
36 IMGetC8(conn, offset) | |
37 IMConnection *conn; | |
38 int offset; | |
39 { | |
40 IMBuffer *ibp = IM_INBUF(conn); | |
41 int x; | |
42 | |
43 x = *((unsigned char *)IMBUFDATA(ibp) + offset); | |
44 return x; | |
45 } | |
46 | |
47 unsigned int | |
48 IMGetC16(conn, offset) | |
49 IMConnection *conn; | |
50 int offset; | |
51 { | |
52 IMBuffer *ibp = IM_INBUF(conn); | |
53 unsigned char *p = (unsigned char *)IMBUFDATA(ibp) + offset; | |
54 unsigned int x; | |
55 | |
56 if (conn->byte_order == ORDER_BIG) { | |
57 x = B_GET16(p); | |
58 } else { | |
59 x = L_GET16(p); | |
60 } | |
61 | |
62 return x; | |
63 } | |
64 | |
65 int | |
66 IMGetI16(conn, offset) | |
67 IMConnection *conn; | |
68 int offset; | |
69 { | |
70 long x; | |
71 | |
72 x = (long)IMGetC16(conn, offset); | |
73 return (x < 32768) ? (int)x : (int)(x - 65536L); | |
74 } | |
75 | |
76 unsigned long | |
77 IMGetC32(conn, offset) | |
78 IMConnection *conn; | |
79 int offset; | |
80 { | |
81 IMBuffer *ibp = IM_INBUF(conn); | |
82 unsigned char *p = (unsigned char *)IMBUFDATA(ibp) + offset; | |
83 unsigned long x; | |
84 | |
85 if (conn->byte_order == ORDER_BIG) { | |
86 x = B_GET32(p); | |
87 } else { | |
88 x = L_GET32(p); | |
89 } | |
90 | |
91 return x; | |
92 } | |
93 | |
94 void | |
95 IMGetString(conn, offset, buf, len) | |
96 IMConnection *conn; | |
97 int offset; | |
98 char *buf; | |
99 int len; | |
100 { | |
101 IMBuffer *ibp = IM_INBUF(conn); | |
102 char *p = IMBUFDATA(ibp) + offset; | |
103 | |
104 bcopy(p, buf, len); | |
105 buf[len] = '\0'; | |
106 } | |
107 | |
108 void | |
109 IMPutC8(conn, x) | |
110 IMConnection *conn; | |
111 int x; | |
112 { | |
113 IMBuffer *ibp = IM_OUTBUF(conn); | |
114 unsigned char c = (unsigned char)x; | |
115 | |
116 IMBufAdd(ibp, (char *)&c, 1); | |
117 } | |
118 | |
119 void | |
120 IMPutC16(conn, x) | |
121 IMConnection *conn; | |
122 unsigned int x; | |
123 { | |
124 IMBuffer *ibp = IM_OUTBUF(conn); | |
125 unsigned char *p = (unsigned char *)IMBufAlloc(ibp, 2); | |
126 | |
127 if (conn->byte_order == ORDER_BIG) { | |
128 B_PUT16(x, p); | |
129 } else { | |
130 L_PUT16(x, p); | |
131 } | |
132 } | |
133 | |
134 void | |
135 IMPutC32(conn, x) | |
136 IMConnection *conn; | |
137 unsigned long x; | |
138 { | |
139 IMBuffer *ibp = IM_OUTBUF(conn); | |
140 unsigned char *p = (unsigned char *)IMBufAlloc(ibp, 4); | |
141 | |
142 if (conn->byte_order == ORDER_BIG) { | |
143 B_PUT32(x, p); | |
144 } else { | |
145 L_PUT32(x, p); | |
146 } | |
147 } | |
148 | |
149 void | |
150 IMPutI16(conn, x) | |
151 IMConnection *conn; | |
152 int x; | |
153 { | |
154 IMBuffer *ibp = IM_OUTBUF(conn); | |
155 unsigned char *p = (unsigned char *)IMBufAlloc(ibp, 2); | |
156 | |
157 if (conn->byte_order == ORDER_BIG) { | |
158 B_PUT16(x, p); | |
159 } else { | |
160 L_PUT16(x, p); | |
161 } | |
162 } | |
163 | |
164 void | |
165 IMPutString(conn, s, len) | |
166 IMConnection *conn; | |
167 char *s; | |
168 int len; | |
169 { | |
170 if (len < 0) len = strlen(s); | |
171 IMBufAdd(&conn->out_buf, s, len); | |
172 } | |
173 | |
174 void | |
175 IMPutPad(conn) | |
176 IMConnection *conn; | |
177 { | |
178 int remainder; | |
179 int npad; | |
180 static char padding[] = { 0, 0, 0, 0 }; | |
181 | |
182 if ((remainder = IMBUFLEN(&conn->out_buf) % 4) != 0) { | |
183 npad = 4 - remainder; | |
184 IMBufAdd(IM_OUTBUF(conn), padding, npad); | |
185 } | |
186 } | |
187 | |
188 void | |
189 IMRewriteC16(conn, pos, x) | |
190 IMConnection *conn; | |
191 int pos; | |
192 unsigned int x; | |
193 { | |
194 IMBuffer *ibp = IM_OUTBUF(conn); | |
195 unsigned char p[2]; | |
196 | |
197 if (conn->byte_order == ORDER_BIG) { | |
198 B_PUT16(x, p); | |
199 } else { | |
200 L_PUT16(x, p); | |
201 } | |
202 IMBufOverwrite(ibp, pos, (char *)p, 2); | |
203 } | |
204 | |
205 int | |
206 IMWritePos(conn) | |
207 IMConnection *conn; | |
208 { | |
209 IMBuffer *ibp = IM_OUTBUF(conn); | |
210 | |
211 return IMBUFLEN(ibp); | |
212 } | |
213 | |
214 int | |
215 IMPutHeader(conn, major, minor, arglen) | |
216 IMConnection *conn; | |
217 int major; | |
218 int minor; | |
219 int arglen; | |
220 { | |
221 int offset; | |
222 | |
223 offset = IMBUFLEN(&conn->out_buf); | |
224 arglen = (arglen + 3) / 4; | |
225 #ifdef XIM_BC | |
226 if (conn->has_length_bug) arglen *= 4; | |
227 #endif | |
228 IMPutC8(conn, major); | |
229 IMPutC8(conn, minor); | |
230 IMPutC16(conn, (unsigned int)arglen); | |
231 return offset; | |
232 } | |
233 | |
234 void | |
235 IMFinishRequest(conn, offset) | |
236 IMConnection *conn; | |
237 int offset; | |
238 { | |
239 IMBuffer *ibp = IM_OUTBUF(conn); | |
240 unsigned int arglen; | |
241 | |
242 /* | |
243 * Append padding bytes, if needed. | |
244 */ | |
245 IMPutPad(conn); | |
246 | |
247 /* | |
248 * Offset points the beginning of the request. | |
249 * Following is a Request header which is 4-byte long. | |
250 */ | |
251 arglen = (unsigned int)((IMBUFLEN(ibp) - offset - 4) / 4); | |
252 #ifdef XIM_BC | |
253 if (conn->has_length_bug) arglen *= 4; | |
254 #endif | |
255 | |
256 /* | |
257 * rewrite the length field of the request header. | |
258 */ | |
259 IMRewriteC16(conn, offset + 2, arglen); | |
260 | |
261 IMSchedule(conn, SCHED_WRITE); | |
262 } | |
263 | |
264 void | |
265 IMCancelRequest(conn, offset) | |
266 IMConnection *conn; | |
267 int offset; | |
268 { | |
269 IMBuffer *ibp = IM_OUTBUF(conn); | |
270 | |
271 IMBufDiscard(ibp, offset - IMBUFLEN(ibp)); | |
272 } | |
273 | |
274 void | |
275 IMSendSimpleRequest(conn, major, minor) | |
276 IMConnection *conn; | |
277 int major; | |
278 int minor; | |
279 { | |
280 IMPutC8(conn, major); | |
281 IMPutC8(conn, minor); | |
282 /* | |
283 * This function (IMSendSimpleRequest) might be called when | |
284 * client's byte order is yet unknown, so usually it is unwise to | |
285 * call IMPutC16(). But in this particular case where the value | |
286 * to be put is zero, it is perfectly ok. | |
287 */ | |
288 IMPutC16(conn, 0); | |
289 IMSchedule(conn, SCHED_WRITE); | |
290 } | |
291 | |
292 void | |
293 IMSendRequestWithIC(conn, major, minor, icp) | |
294 IMConnection *conn; | |
295 int major; | |
296 int minor; | |
297 IMIC *icp; | |
298 { | |
299 (void)IMPutHeader(conn, major, minor, 4); | |
300 IMPutC16(conn, icp->im->id); | |
301 IMPutC16(conn, icp->id); | |
302 IMSchedule(conn, SCHED_WRITE); | |
303 } | |
304 | |
305 void | |
306 IMSendError(conn, code, imid, icid, msg) | |
307 IMConnection *conn; | |
308 int code; | |
309 unsigned int imid; | |
310 unsigned int icid; | |
311 char *msg; | |
312 { | |
313 int offset; | |
314 int msg_len; | |
315 unsigned int valid_flag = 0; | |
316 | |
317 msg_len = strlen(msg); | |
318 | |
319 if (imid != 0) valid_flag |= 1; | |
320 if (icid != 0) valid_flag |= 2; | |
321 | |
322 offset = IMPutHeader(conn, XIM_ERROR, 0, 0); | |
323 IMPutC16(conn, imid); | |
324 IMPutC16(conn, icid); | |
325 IMPutC16(conn, valid_flag); | |
326 IMPutC16(conn, (unsigned int)code); | |
327 IMPutC16(conn, (unsigned int)msg_len); | |
328 IMPutC16(conn, 0); | |
329 IMPutString(conn, msg, msg_len); | |
330 IMFinishRequest(conn, offset); | |
331 } | |
332 | |
333 void | |
334 IMSendBadProtocol(conn, msg) | |
335 IMConnection *conn; | |
336 char *msg; | |
337 { | |
338 IMSendError(conn, IMBadProtocol, 0, 0, msg); | |
339 } | |
340 | |
341 void | |
342 IMSendBadLength(conn, imid, icid) | |
343 IMConnection *conn; | |
344 unsigned int imid; | |
345 unsigned int icid; | |
346 { | |
347 IMSendError(conn, IMBadSomething, imid, icid, "Bad request length"); | |
348 } |