Mercurial > hg > xemacs-beta
annotate src/gpmevent.c @ 5898:2aeaf9bc7175
Regenerate configure.
| author | Stephen J. Turnbull <stephen@xemacs.org> |
|---|---|
| date | Tue, 05 May 2015 04:06:37 +0900 |
| parents | a216b3c2b09e |
| children |
| rev | line source |
|---|---|
| 440 | 1 /* GPM (General purpose mouse) functions |
| 428 | 2 Copyright (C) 1997 William M. Perry <wmperry@gnu.org> |
| 3 Copyright (C) 1999 Free Software Foundation, Inc. | |
| 793 | 4 Copyright (C) 2002 Ben Wing. |
| 5 | |
| 6 This file is part of XEmacs. | |
| 7 | |
|
5405
2aa9cd456ae7
Move src/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
4953
diff
changeset
|
8 XEmacs is free software: you can redistribute it and/or modify it |
| 793 | 9 under the terms of the GNU General Public License as published by the |
|
5405
2aa9cd456ae7
Move src/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
4953
diff
changeset
|
10 Free Software Foundation, either version 3 of the License, or (at your |
|
2aa9cd456ae7
Move src/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
4953
diff
changeset
|
11 option) any later version. |
|
2aa9cd456ae7
Move src/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
4953
diff
changeset
|
12 |
| 793 | 13 XEmacs is distributed in the hope that it will be useful, but WITHOUT |
| 14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 16 for more details. | |
|
5405
2aa9cd456ae7
Move src/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
4953
diff
changeset
|
17 |
| 793 | 18 You should have received a copy of the GNU General Public License |
|
5405
2aa9cd456ae7
Move src/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
4953
diff
changeset
|
19 along with XEmacs. If not, see <http://www.gnu.org/licenses/>. */ |
| 428 | 20 |
| 21 /* Synched up with: Not in FSF. */ | |
| 22 | |
| 23 /* Authors: William Perry */ | |
| 24 | |
| 25 #include <config.h> | |
| 26 #include "lisp.h" | |
| 793 | 27 |
| 28 #include "commands.h" | |
| 29 #include "console-tty.h" | |
| 428 | 30 #include "console.h" |
| 31 #include "device.h" | |
| 32 #include "events.h" | |
| 793 | 33 #include "lstream.h" |
| 34 #include "process.h" | |
| 428 | 35 #include "sysdep.h" |
| 876 | 36 #include "frame.h" |
| 37 #include "device-impl.h" | |
| 38 #include "console-impl.h" | |
| 39 #include "console-tty-impl.h" | |
| 793 | 40 |
| 428 | 41 #include "sysproc.h" /* for MAXDESC */ |
| 42 | |
| 43 #ifdef HAVE_GPM | |
| 44 #include "gpmevent.h" | |
| 45 #include <gpm.h> | |
| 46 | |
| 47 #define KG_SHIFT 0 | |
| 48 #define KG_CTRL 2 | |
| 49 #define KG_ALT 3 | |
| 50 | |
| 51 extern int gpm_tried; | |
| 52 extern void *gpm_stack; | |
| 53 | |
| 54 static int (*orig_event_pending_p) (int); | |
| 440 | 55 static void (*orig_next_event_cb) (Lisp_Event *); |
| 428 | 56 |
| 57 static Lisp_Object gpm_event_queue; | |
| 58 static Lisp_Object gpm_event_queue_tail; | |
| 59 | |
| 793 | 60 struct __gpm_state |
| 61 { | |
| 62 int gpm_tried; | |
| 63 int gpm_flag; | |
| 64 void *gpm_stack; | |
| 428 | 65 }; |
| 66 | |
| 67 static struct __gpm_state gpm_state_information[MAXDESC]; | |
| 68 | |
| 69 static void | |
| 70 store_gpm_state (int fd) | |
| 71 { | |
| 793 | 72 gpm_state_information[fd].gpm_tried = gpm_tried; |
| 73 gpm_state_information[fd].gpm_flag = gpm_flag; | |
| 74 gpm_state_information[fd].gpm_stack = gpm_stack; | |
| 428 | 75 } |
| 76 | |
| 77 static void | |
| 78 restore_gpm_state (int fd) | |
| 79 { | |
| 793 | 80 gpm_tried = gpm_state_information[fd].gpm_tried; |
| 81 gpm_flag = gpm_state_information[fd].gpm_flag; | |
| 82 gpm_stack = gpm_state_information[fd].gpm_stack; | |
| 83 gpm_consolefd = gpm_fd = fd; | |
| 428 | 84 } |
| 85 | |
| 86 static void | |
| 87 clear_gpm_state (int fd) | |
| 88 { | |
| 793 | 89 if (fd >= 0) |
| 90 memset (&gpm_state_information[fd], '\0', sizeof (struct __gpm_state)); | |
| 91 gpm_tried = gpm_flag = 1; | |
| 92 gpm_fd = gpm_consolefd = -1; | |
| 93 gpm_stack = NULL; | |
| 428 | 94 } |
| 95 | |
| 96 static int | |
| 440 | 97 get_process_infd (Lisp_Process *p) |
| 428 | 98 { |
| 853 | 99 Lisp_Object instr, outstr, errstr; |
| 100 get_process_streams (p, &instr, &outstr, &errstr); | |
| 428 | 101 assert (!NILP (instr)); |
| 102 return filedesc_stream_fd (XLSTREAM (instr)); | |
| 103 } | |
| 104 | |
| 105 DEFUN ("receive-gpm-event", Freceive_gpm_event, 0, 2, 0, /* | |
| 106 Run GPM_GetEvent(). | |
| 107 This function is the process handler for the GPM connection. | |
| 108 */ | |
| 2286 | 109 (process, UNUSED (string))) |
| 428 | 110 { |
| 793 | 111 Gpm_Event ev; |
| 112 int modifiers = 0; | |
| 113 int button = 1; | |
| 114 Lisp_Object fake_event = Qnil; | |
| 115 Lisp_Event *event = NULL; | |
| 116 struct gcpro gcpro1; | |
| 117 static int num_events; | |
| 428 | 118 |
| 793 | 119 CHECK_PROCESS (process); |
| 428 | 120 |
| 793 | 121 restore_gpm_state (get_process_infd (XPROCESS (process))); |
| 428 | 122 |
| 793 | 123 if (!Gpm_GetEvent (&ev)) |
| 124 { | |
| 125 warn_when_safe (Qnil, Qerror, | |
| 126 "Gpm_GetEvent failed - %d", gpm_fd); | |
| 127 return (Qzero); | |
| 128 } | |
| 428 | 129 |
| 793 | 130 GCPRO1 (fake_event); |
| 428 | 131 |
| 793 | 132 num_events++; |
| 133 | |
| 134 fake_event = Fmake_event (Qnil, Qnil); | |
| 135 event = XEVENT (fake_event); | |
| 428 | 136 |
| 793 | 137 event->timestamp = 0; |
| 138 event->channel = Fselected_frame (Qnil); /* CONSOLE_SELECTED_FRAME (con); */ | |
| 428 | 139 |
| 793 | 140 /* Whow, wouldn't named defines be NICE!?!?! */ |
| 141 modifiers = 0; | |
| 428 | 142 |
| 793 | 143 if (ev.modifiers & 1) modifiers |= XEMACS_MOD_SHIFT; |
| 144 if (ev.modifiers & 2) modifiers |= XEMACS_MOD_META; | |
| 145 if (ev.modifiers & 4) modifiers |= XEMACS_MOD_CONTROL; | |
| 146 if (ev.modifiers & 8) modifiers |= XEMACS_MOD_META; | |
| 147 | |
| 148 if (ev.buttons & GPM_B_LEFT) | |
| 149 button = 1; | |
| 150 else if (ev.buttons & GPM_B_MIDDLE) | |
| 151 button = 2; | |
| 152 else if (ev.buttons & GPM_B_RIGHT) | |
| 153 button = 3; | |
| 428 | 154 |
| 793 | 155 switch (GPM_BARE_EVENTS (ev.type)) |
| 156 { | |
| 157 case GPM_DOWN: | |
| 158 case GPM_UP: | |
| 934 | 159 SET_EVENT_TYPE (event, |
| 160 (ev.type & GPM_DOWN) ? button_press_event : button_release_event); | |
| 1204 | 161 SET_EVENT_BUTTON_X (event, ev.x); |
| 162 SET_EVENT_BUTTON_Y (event, ev.y); | |
| 163 SET_EVENT_BUTTON_BUTTON (event, button); | |
| 164 SET_EVENT_BUTTON_MODIFIERS (event, modifiers); | |
| 793 | 165 break; |
| 166 case GPM_MOVE: | |
| 167 case GPM_DRAG: | |
| 934 | 168 SET_EVENT_TYPE (event, pointer_motion_event); |
| 1204 | 169 SET_EVENT_MOTION_X (event, ev.x); |
| 170 SET_EVENT_MOTION_Y (event, ev.y); | |
| 171 SET_EVENT_MOTION_MODIFIERS (event, modifiers); | |
| 793 | 172 default: |
| 173 /* This will never happen */ | |
| 174 break; | |
| 175 } | |
| 428 | 176 |
| 793 | 177 /* Handle the event */ |
| 178 enqueue_event (fake_event, &gpm_event_queue, &gpm_event_queue_tail); | |
| 428 | 179 |
| 793 | 180 UNGCPRO; |
| 428 | 181 |
| 793 | 182 return (Qzero); |
| 428 | 183 } |
| 184 | |
| 185 static void turn_off_gpm (char *process_name) | |
| 186 { | |
|
4953
304aebb79cd3
function renamings to track names of char typedefs
Ben Wing <ben@xemacs.org>
parents:
3025
diff
changeset
|
187 Lisp_Object process = Fget_process (build_cistring (process_name)); |
| 793 | 188 int fd = -1; |
| 428 | 189 |
| 793 | 190 if (NILP (process)) |
| 191 /* Something happened to our GPM process - fail silently */ | |
| 192 return; | |
| 428 | 193 |
| 793 | 194 fd = get_process_infd (XPROCESS (process)); |
| 428 | 195 |
| 793 | 196 restore_gpm_state (fd); |
| 428 | 197 |
| 793 | 198 Gpm_Close(); |
| 428 | 199 |
| 793 | 200 clear_gpm_state (fd); |
| 428 | 201 |
|
4953
304aebb79cd3
function renamings to track names of char typedefs
Ben Wing <ben@xemacs.org>
parents:
3025
diff
changeset
|
202 Fdelete_process (build_cistring (process_name)); |
| 428 | 203 } |
| 204 | |
| 205 #ifdef TIOCLINUX | |
| 206 static Lisp_Object | |
| 2286 | 207 tty_get_foreign_selection (Lisp_Object UNUSED (selection_symbol), |
| 208 Lisp_Object UNUSED (target_type)) | |
| 428 | 209 { |
| 793 | 210 /* This function can GC */ |
| 211 struct device *d = decode_device (Qnil); | |
| 212 int fd = DEVICE_INFD (d); | |
| 213 char c = 3; | |
| 214 Lisp_Object output_stream = Qnil; | |
| 215 Lisp_Object terminal_stream = Qnil; | |
| 216 Lisp_Object output_string = Qnil; | |
| 217 struct gcpro gcpro1,gcpro2,gcpro3; | |
| 218 | |
| 219 GCPRO3(output_stream,terminal_stream,output_string); | |
| 428 | 220 |
| 793 | 221 /* The ioctl() to paste actually puts things in the input queue of |
| 222 ** the virtual console, so we need to trap that data, since we are | |
| 223 ** supposed to return the actual string selection from this | |
| 224 ** function. | |
| 225 */ | |
| 428 | 226 |
| 793 | 227 /* I really hate doing this, but it doesn't seem to cause any |
| 228 ** problems, and it makes the Lstream_read stuff further down | |
| 229 ** error out correctly instead of trying to indefinitely read from | |
| 230 ** the console. | |
| 231 ** | |
| 232 ** There is no set_descriptor_blocking() function call, but in my | |
| 233 ** testing under linux, it has not proved fatal to leave the | |
| 234 ** descriptor in non-blocking mode. | |
| 235 ** | |
| 236 ** William Perry Nov 5, 1999 | |
| 237 */ | |
| 238 set_descriptor_non_blocking (fd); | |
| 428 | 239 |
| 793 | 240 /* We need two streams, one for reading from the selected device, |
| 241 ** and one to write the data into. There is no writable version | |
| 242 ** of the lisp-string lstream, so we make do with a resizing | |
| 243 ** buffer stream, and make a string out of it after we are | |
| 244 ** done. | |
| 245 */ | |
| 246 output_stream = make_resizing_buffer_output_stream (); | |
|
5814
a216b3c2b09e
Add TLS support. See xemacs-patches message with ID
Jerry James <james@xemacs.org>
parents:
5581
diff
changeset
|
247 terminal_stream = make_filedesc_input_stream (fd, 0, -1, LSTR_BLOCKED_OK, |
|
a216b3c2b09e
Add TLS support. See xemacs-patches message with ID
Jerry James <james@xemacs.org>
parents:
5581
diff
changeset
|
248 NULL); |
| 793 | 249 output_string = Qnil; |
| 250 | |
| 251 /* #### We should arguably use a specbind() and an unwind routine here, | |
| 252 ** #### but I don't care that much right now. | |
| 253 */ | |
| 254 if (NILP (output_stream) || NILP (terminal_stream)) | |
| 255 /* Should we signal an error here? */ | |
| 256 goto out; | |
| 428 | 257 |
| 793 | 258 if (ioctl (fd, TIOCLINUX, &c) < 0) |
| 259 { | |
| 260 /* Could not get the selection - eek */ | |
| 261 UNGCPRO; | |
| 262 return (Qnil); | |
| 263 } | |
| 428 | 264 |
| 793 | 265 while (1) |
| 266 { | |
| 867 | 267 Ibyte tempbuf[1024]; /* some random amount */ |
| 793 | 268 Bytecount i; |
| 269 Bytecount size_in_bytes = | |
| 270 Lstream_read (XLSTREAM (terminal_stream), | |
| 271 tempbuf, sizeof (tempbuf)); | |
| 272 | |
| 273 if (size_in_bytes <= 0) | |
| 274 /* end of the stream */ | |
| 275 break; | |
| 276 | |
| 277 /* convert CR->LF */ | |
| 278 for (i = 0; i < size_in_bytes; i++) | |
| 428 | 279 { |
| 793 | 280 if (tempbuf[i] == '\r') |
| 281 tempbuf[i] = '\n'; | |
| 428 | 282 } |
| 283 | |
| 793 | 284 Lstream_write (XLSTREAM (output_stream), tempbuf, size_in_bytes); |
| 285 } | |
| 428 | 286 |
| 793 | 287 Lstream_flush (XLSTREAM (output_stream)); |
| 428 | 288 |
| 793 | 289 output_string = |
| 290 make_string (resizing_buffer_stream_ptr (XLSTREAM (output_stream)), | |
| 291 Lstream_byte_count (XLSTREAM (output_stream))); | |
| 428 | 292 |
| 793 | 293 Lstream_delete (XLSTREAM (output_stream)); |
| 294 Lstream_delete (XLSTREAM (terminal_stream)); | |
| 428 | 295 |
| 296 out: | |
| 793 | 297 UNGCPRO; |
| 298 return (output_string); | |
| 428 | 299 } |
| 300 | |
| 301 static Lisp_Object | |
| 2286 | 302 tty_selection_exists_p (Lisp_Object UNUSED (selection), |
| 303 Lisp_Object UNUSED (selection_type)) | |
| 428 | 304 { |
| 793 | 305 return (Qt); |
| 428 | 306 } |
| 307 #endif /* TIOCLINUX */ | |
| 308 | |
| 309 #if 0 | |
| 310 static Lisp_Object | |
| 442 | 311 tty_own_selection (Lisp_Object selection_name, Lisp_Object selection_value, |
| 312 Lisp_Object how_to_add, Lisp_Object selection_type) | |
| 428 | 313 { |
| 793 | 314 /* There is no way to do this cleanly - the GPM selection |
| 315 ** 'protocol' (actually the TIOCLINUX ioctl) requires a start and | |
| 316 ** end position on the _screen_, not a string to stick in there. | |
| 317 ** Lame. | |
| 318 ** | |
| 319 ** William Perry Nov 4, 1999 | |
| 320 */ | |
| 428 | 321 } |
| 322 #endif | |
| 323 | |
| 324 /* This function appears to work once in a blue moon. I'm not sure | |
| 793 | 325 ** exactly why either. *sigh* |
| 326 ** | |
| 327 ** William Perry Nov 4, 1999 | |
| 328 ** | |
| 329 ** Apparently, this is the way (mouse-position) is supposed to work, | |
| 330 ** and I was just expecting something else. (mouse-pixel-position) | |
| 331 ** works just fine. | |
| 332 ** | |
| 333 ** William Perry Nov 7, 1999 | |
| 334 */ | |
| 428 | 335 static int |
| 336 tty_get_mouse_position (struct device *d, Lisp_Object *frame, int *x, int *y) | |
| 337 { | |
| 793 | 338 Gpm_Event ev; |
| 339 int num_buttons; | |
| 428 | 340 |
| 793 | 341 memset(&ev,'\0',sizeof(ev)); |
| 428 | 342 |
| 793 | 343 num_buttons = Gpm_GetSnapshot(&ev); |
| 428 | 344 |
| 793 | 345 if (!num_buttons) |
| 346 /* This means there are events pending... */ | |
| 428 | 347 |
| 793 | 348 /* #### In theory, we should drain the events pending, stick |
| 349 ** #### them in the queue, and return the mouse position | |
| 350 ** #### anyway. | |
| 351 */ | |
| 352 return (-1); | |
| 353 *x = ev.x; | |
| 354 *y = ev.y; | |
| 355 *frame = DEVICE_SELECTED_FRAME (d); | |
| 356 return (1); | |
| 428 | 357 } |
| 358 | |
| 359 static void | |
| 2286 | 360 tty_set_mouse_position (struct window *UNUSED (w), int UNUSED (x), |
| 361 int UNUSED (y)) | |
| 428 | 362 { |
| 793 | 363 /* |
| 364 #### I couldn't find any GPM functions that set the mouse position. | |
| 365 #### Mr. Perry had left this function empty; that must be why. | |
| 366 #### karlheg | |
| 367 */ | |
| 428 | 368 } |
| 369 | |
| 370 static int gpm_event_pending_p (int user_p) | |
| 371 { | |
| 793 | 372 Lisp_Object event; |
| 428 | 373 |
| 793 | 374 EVENT_CHAIN_LOOP (event, gpm_event_queue) |
| 375 { | |
| 376 if (!user_p || command_event_p (event)) | |
| 377 return (1); | |
| 378 } | |
| 379 return (orig_event_pending_p (user_p)); | |
| 428 | 380 } |
| 381 | |
| 440 | 382 static void gpm_next_event_cb (Lisp_Event *event) |
| 428 | 383 { |
| 793 | 384 /* #### It would be nice to preserve some sort of ordering of the |
| 385 ** #### different types of events, but that would be quite a bit | |
| 386 ** #### of work, and would more than likely break the abstraction | |
| 387 ** #### between the other event loops and this one. | |
| 388 */ | |
| 440 | 389 |
| 793 | 390 if (!NILP (gpm_event_queue)) |
| 391 { | |
| 392 Lisp_Object queued_event = | |
| 393 dequeue_event (&gpm_event_queue, &gpm_event_queue_tail); | |
| 394 *event = *(XEVENT (queued_event)); | |
| 395 | |
| 396 if (event->event_type == pointer_motion_event) | |
| 428 | 397 { |
| 793 | 398 struct device *d = decode_device (event->channel); |
| 399 int fd = DEVICE_INFD (d); | |
| 428 | 400 |
| 793 | 401 /* Ok, now this is just freaky. Bear with me though. |
| 402 ** | |
| 403 ** If you run gnuclient and attach to a XEmacs running in | |
| 404 ** X or on another TTY, the mouse cursor does not get | |
| 405 ** drawn correctly. This is because the ioctl() fails | |
| 406 ** with EPERM because the TTY specified is not our | |
| 407 ** controlling terminal. If you are the superuser, it | |
| 408 ** will work just spiffy. The appropriate source file (at | |
| 409 ** least in linux 2.2.x) is | |
| 410 ** .../linux/drivers/char/console.c in the function | |
| 411 ** tioclinux(). The following bit of code is brutal to | |
| 412 ** us: | |
| 413 ** | |
| 414 ** if (current->tty != tty && !suser()) | |
| 415 ** return -EPERM; | |
| 416 ** | |
| 417 ** I even tried setting us as a process leader, removing | |
| 418 ** our controlling terminal, and then using the TIOCSCTTY | |
| 419 ** to set up a new controlling terminal, all with no luck. | |
| 420 ** | |
| 421 ** What is even weirder is if you run XEmacs in a VC, and | |
| 422 ** attach to it from another VC with gnuclient, go back to | |
| 423 ** the original VC and hit a key, the mouse pointer | |
| 424 ** displays (in BOTH VCs), until you hit a key in the | |
| 425 ** second VC, after which it does not display in EITHER | |
| 426 ** VC. Bizarre, no? | |
| 427 ** | |
| 428 ** All I can say is thank god Linux comes with source code | |
| 429 ** or I would have been completely confused. Well, ok, | |
| 430 ** I'm still completely confused. I don't see why they | |
| 431 ** don't just check the permissions on the device | |
| 432 ** (actually, if you have enough access to it to get the | |
| 433 ** console's file descriptor, you should be able to do | |
| 434 ** with it as you wish, but maybe that is just me). | |
| 435 ** | |
| 436 ** William M. Perry - Nov 9, 1999 | |
| 437 */ | |
| 428 | 438 |
| 1204 | 439 Gpm_DrawPointer (EVENT_MOTION_X (event),EVENT_MOTION_Y (event), fd); |
| 428 | 440 } |
| 441 | |
| 793 | 442 return; |
| 443 } | |
| 444 | |
| 445 orig_next_event_cb (event); | |
| 428 | 446 } |
| 447 | |
| 448 static void hook_event_callbacks_once (void) | |
| 449 { | |
| 793 | 450 static int hooker; |
| 428 | 451 |
| 793 | 452 if (!hooker) |
| 453 { | |
| 454 orig_event_pending_p = event_stream->event_pending_p; | |
| 455 orig_next_event_cb = event_stream->next_event_cb; | |
| 456 event_stream->event_pending_p = gpm_event_pending_p; | |
| 457 event_stream->next_event_cb = gpm_next_event_cb; | |
| 458 hooker = 1; | |
| 459 } | |
| 428 | 460 } |
| 461 | |
| 462 static void hook_console_methods_once (void) | |
| 463 { | |
| 793 | 464 static int hooker; |
| 428 | 465 |
| 793 | 466 if (!hooker) |
| 467 { | |
| 468 /* Install the mouse position methods for the TTY console type */ | |
| 469 CONSOLE_HAS_METHOD (tty, get_mouse_position); | |
| 470 CONSOLE_HAS_METHOD (tty, set_mouse_position); | |
| 471 CONSOLE_HAS_METHOD (tty, get_foreign_selection); | |
| 472 CONSOLE_HAS_METHOD (tty, selection_exists_p); | |
| 428 | 473 #if 0 |
| 793 | 474 CONSOLE_HAS_METHOD (tty, own_selection); |
| 428 | 475 #endif |
| 793 | 476 } |
| 428 | 477 } |
| 478 | |
| 479 DEFUN ("gpm-enabled-p", Fgpm_enabled_p, 0, 1, 0, /* | |
| 480 Return non-nil if GPM mouse support is currently enabled on DEVICE. | |
| 481 */ | |
| 793 | 482 (device)) |
| 428 | 483 { |
| 793 | 484 char *console_name = ttyname (DEVICE_INFD (decode_device (device))); |
| 485 char process_name[1024]; | |
| 486 Lisp_Object proc; | |
| 428 | 487 |
| 793 | 488 if (!console_name) |
| 489 return (Qnil); | |
| 428 | 490 |
| 793 | 491 memset (process_name, '\0', sizeof(process_name)); |
| 492 snprintf (process_name, sizeof(process_name) - 1, "gpm for %s", | |
| 493 console_name); | |
| 428 | 494 |
|
4953
304aebb79cd3
function renamings to track names of char typedefs
Ben Wing <ben@xemacs.org>
parents:
3025
diff
changeset
|
495 proc = Fget_process (build_cistring (process_name)); |
| 428 | 496 |
| 793 | 497 if (NILP (proc)) |
| 498 return (Qnil); | |
| 428 | 499 |
| 793 | 500 if (1) /* (PROCESS_LIVE_P (proc)) */ |
| 501 return (Qt); | |
| 502 return (Qnil); | |
| 428 | 503 } |
| 504 | |
| 505 DEFUN ("gpm-enable", Fgpm_enable, 0, 2, 0, /* | |
| 506 Toggle accepting of GPM mouse events. | |
| 507 */ | |
| 793 | 508 (device, arg)) |
| 428 | 509 { |
| 793 | 510 Gpm_Connect conn; |
| 511 int rval; | |
| 512 Lisp_Object gpm_process; | |
| 513 Lisp_Object gpm_filter; | |
| 514 struct device *d = decode_device (device); | |
| 515 int fd = DEVICE_INFD (d); | |
| 516 char *console_name = ttyname (fd); | |
| 517 char process_name[1024]; | |
| 428 | 518 |
| 793 | 519 hook_event_callbacks_once (); |
| 520 hook_console_methods_once (); | |
| 521 | |
| 522 if (noninteractive) | |
| 523 invalid_operation ("Can't connect to GPM in batch mode", Qunbound); | |
| 428 | 524 |
| 793 | 525 if (!console_name) |
| 526 /* Something seriously wrong here... */ | |
| 527 return (Qnil); | |
| 528 | |
| 529 memset (process_name, '\0', sizeof(process_name)); | |
| 530 snprintf (process_name, sizeof(process_name) - 1, "gpm for %s", | |
| 531 console_name); | |
| 428 | 532 |
| 793 | 533 if (NILP (arg)) |
| 534 { | |
| 535 turn_off_gpm (process_name); | |
| 536 return (Qnil); | |
| 537 } | |
| 428 | 538 |
| 793 | 539 /* DANGER DANGER. |
| 540 ** Though shalt not call (gpm-enable t) after we have already | |
| 541 ** started, or stuff blows up. | |
| 542 */ | |
| 543 if (!NILP (Fgpm_enabled_p (device))) | |
| 544 invalid_operation ("GPM already enabled for this console", Qunbound); | |
| 428 | 545 |
| 793 | 546 conn.eventMask = GPM_DOWN|GPM_UP|GPM_MOVE|GPM_DRAG; |
| 547 conn.defaultMask = GPM_MOVE; | |
| 548 conn.minMod = 0; | |
| 549 conn.maxMod = ((1 << KG_SHIFT) | (1 << KG_ALT) | (1 << KG_CTRL)); | |
| 428 | 550 |
| 793 | 551 /* Reset some silly static variables so that multiple Gpm_Open() |
| 552 ** calls have even a slight chance of working | |
| 553 */ | |
| 554 gpm_tried = 0; | |
| 555 gpm_flag = 0; | |
| 556 gpm_stack = NULL; | |
| 428 | 557 |
| 793 | 558 /* Make sure Gpm_Open() does ioctl() on the correct |
| 559 ** descriptor, or it can get the wrong terminal sizes, etc. | |
| 560 */ | |
| 561 gpm_consolefd = fd; | |
| 440 | 562 |
| 793 | 563 /* We have to pass the virtual console manually, otherwise if you |
| 3025 | 564 ** use `gnuclient -nw' to connect to an XEmacs that is running in |
| 793 | 565 ** X, Gpm_Open() tries to use ttyname(0 | 1 | 2) to find out which |
| 566 ** console you are using, which is of course not correct for the | |
| 567 ** new tty device. | |
| 568 */ | |
| 569 if (strncmp (console_name, "/dev/tty", 8) || !isdigit (console_name[8])) | |
| 570 /* Urk, something really wrong */ | |
| 571 return (Qnil); | |
| 428 | 572 |
| 793 | 573 rval = Gpm_Open (&conn, atoi (console_name + 8)); |
| 428 | 574 |
| 793 | 575 switch (rval) |
| 576 { | |
| 577 case -1: /* General failure */ | |
| 578 break; | |
| 579 case -2: /* We are running under an XTerm */ | |
| 580 Gpm_Close(); | |
| 581 break; | |
| 582 default: | |
| 583 /* Is this really necessary? */ | |
| 584 set_descriptor_non_blocking (gpm_fd); | |
| 585 store_gpm_state (gpm_fd); | |
| 586 gpm_process = | |
|
4953
304aebb79cd3
function renamings to track names of char typedefs
Ben Wing <ben@xemacs.org>
parents:
3025
diff
changeset
|
587 connect_to_file_descriptor (build_cistring (process_name), Qnil, |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5405
diff
changeset
|
588 make_fixnum (gpm_fd), |
|
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5405
diff
changeset
|
589 make_fixnum (gpm_fd)); |
| 428 | 590 |
| 793 | 591 if (!NILP (gpm_process)) |
| 592 { | |
| 593 rval = 0; | |
| 594 Fprocess_kill_without_query (gpm_process, Qnil); | |
| 2834 | 595 gpm_filter = GET_DEFUN_LISP_OBJECT (Freceive_gpm_event); |
| 853 | 596 set_process_filter (gpm_process, gpm_filter, 1, 0); |
| 428 | 597 |
| 793 | 598 /* Keep track of the device for later */ |
| 599 /* Fput (gpm_process, intern ("gpm-device"), device); */ | |
| 428 | 600 } |
| 793 | 601 else |
| 602 { | |
| 603 Gpm_Close (); | |
| 604 rval = -1; | |
| 605 } | |
| 606 } | |
| 428 | 607 |
| 793 | 608 return (rval ? Qnil : Qt); |
| 428 | 609 } |
| 610 | |
| 611 void vars_of_gpmevent (void) | |
| 612 { | |
| 793 | 613 gpm_event_queue = Qnil; |
| 614 gpm_event_queue_tail = Qnil; | |
| 615 staticpro (&gpm_event_queue); | |
| 616 staticpro (&gpm_event_queue_tail); | |
| 1204 | 617 dump_add_root_lisp_object (&gpm_event_queue); |
| 618 dump_add_root_lisp_object (&gpm_event_queue_tail); | |
| 428 | 619 } |
| 620 | |
| 621 void syms_of_gpmevent (void) | |
| 622 { | |
| 793 | 623 DEFSUBR (Freceive_gpm_event); |
| 624 DEFSUBR (Fgpm_enable); | |
| 625 DEFSUBR (Fgpm_enabled_p); | |
| 428 | 626 } |
| 627 | |
| 628 #endif /* HAVE_GPM */ |