xemacs-beta: src/device-x.c comparison

comparison src/device-x.c @ 20:859a2309aef8 r19-15b93

Import from CVS: tag r19-15b93

author	cvs
date	Mon, 13 Aug 2007 08:50:05 +0200
parents	9ee227acff29
children	7e54bd776075

comparison

equal deleted inserted replaced

-:ac1f612d5250
+:859a2309aef8
 enqueue_magic_eval_event (io_error_delete_device, dev);
 return 0;
 }
-DEFUN ("x-debug-mode", Fx_debug_mode, Sx_debug_mode, 1, 2, 0 /*
+DEFUN ("x-debug-mode", Fx_debug_mode, 1, 2, 0, /*
 With a true arg, make the connection to the X server synchronous.
 With false, make it asynchronous.  Synchronous connections are much slower,
 but are useful for debugging. (If you get X errors, make the connection
 synchronous, and use a debugger to set a breakpoint on `x_error_handler'.
 Your backtrace of the C stack will now be useful.  In asynchronous mode,
 the stack above `x_error_handler' isn't helpful because of buffering.)
 If DEVICE is not specified, the selected device is assumed.
 Calling this function is the same as calling the C function `XSynchronize',
 or starting the program with the `-sync' command line argument.
-*/ )
+*/
-(arg, device)
+(arg, device))
-Lisp_Object arg, device;
 {
 struct device *d = decode_x_device (device);
 XSynchronize (DEVICE_X_DISPLAY (d), !NILP (arg));
 strcat (class_out, ".EmacsLocaleType.EmacsDevice");
 }
 return;
 }
-DEFUN ("x-get-resource", Fx_get_resource, Sx_get_resource, 3, 6, 0 /*
+DEFUN ("x-get-resource", Fx_get_resource, 3, 6, 0, /*
 Retrieve an X resource from the resource manager.
 The first arg is the name of the resource to retrieve, such as \"font\".
 The second arg is the class of the resource to retrieve, like \"Font\".
 The third arg should be one of the symbols 'string, 'integer, 'natnum, or
 The returned value of this function is nil if the queried resource is not
 found.  If the third arg is `string', a string is returned, and if it is
 `integer', an integer is returned.  If the third arg is `boolean', then the
 returned value is the list (t) for true, (nil) for false, and is nil to
 mean ``unspecified.''
-*/ )
+*/
-(name, class, type, locale, device, no_error)
+(name, class, type, locale, device, no_error))
-Lisp_Object name, class, type, locale, device, no_error;
 {
 /* #### fixed limit, could be overflowed */
 char name_string[2048], class_string[2048];
 char *raw_result;
 XrmDatabase db;
 /* Can't get here. */
 return Qnil;	/* shut up compiler */
 }
-DEFUN ("x-get-resource-prefix", Fx_get_resource_prefix,
+DEFUN ("x-get-resource-prefix", Fx_get_resource_prefix, 1, 2, 0, /*
-Sx_get_resource_prefix, 1, 2, 0 /*
 Return the resource prefix for LOCALE on DEVICE.
 The resource prefix is the strings used to prefix resources if
 the LOCALE and DEVICE arguments were passed to `x-get-resource'.
 The returned value is a cons of a name prefix and a class prefix.
 For example, if LOCALE is a frame, the returned value might be
 \(\"xemacs.frame.FRAME-NAME\" . \"Emacs.EmacsLocaleType.EmacsFrame\").
 If no valid X device for resourcing can be obtained, this function
 returns nil. (In such a case, `x-get-resource' would always return nil.)
-*/ )
+*/
-(locale, device)
+(locale, device))
-Lisp_Object locale, device;
 {
 /* #### fixed limit, could be overflowed */
 char name[1024], class[1024];
 Display *display;
 if (!display)
 return Qnil;
 return Fcons (build_string (name), build_string (class));
 }
-DEFUN ("x-put-resource", Fx_put_resource, Sx_put_resource, 1, 2, 0 /*
+DEFUN ("x-put-resource", Fx_put_resource, 1, 2, 0, /*
 Add a resource to the resource database for DEVICE.
 RESOURCE-LINE specifies the resource to add and should be a
 standard resource specification.
-*/ )
+*/
-(resource_line, device)
+(resource_line, device))
-Lisp_Object resource_line, device;
 {
 struct device *d = decode_device (device);
 char *str, *colon_pos;
 CHECK_STRING (resource_line);
 /************************************************************************/
 /*                   display information functions                      */
 /************************************************************************/
-DEFUN ("default-x-device", Fdefault_x_device, Sdefault_x_device, 0, 0, 0 /*
+DEFUN ("default-x-device", Fdefault_x_device, 0, 0, 0, /*
 Return the default X device for resourcing.
 This is the first-created X device that still exists.
-*/ )
+*/
-()
+())
 {
 return Vdefault_x_device;
 }
-DEFUN ("x-display-visual-class", Fx_display_visual_class,
+DEFUN ("x-display-visual-class", Fx_display_visual_class, 0, 1, 0, /*
-Sx_display_visual_class, 0, 1, 0 /*
 Return the visual class of the X display `device' is on.
 The returned value will be one of the symbols `static-gray', `gray-scale',
 `static-color', `pseudo-color', `true-color', or `direct-color'.
-*/ )
+*/
-(device)
+(device))
-Lisp_Object device;
 {
 switch (DefaultVisualOfScreen
 	  (DefaultScreenOfDisplay (get_x_display (device)))->class)
 {
 case StaticGray:  return (intern ("static-gray"));
 Display *dpy = DEVICE_X_DISPLAY (d);
 return DisplayCells (dpy, DefaultScreen (dpy));
 }
-DEFUN ("x-server-vendor", Fx_server_vendor, Sx_server_vendor, 0, 1, 0 /*
+DEFUN ("x-server-vendor", Fx_server_vendor, 0, 1, 0, /*
 Return the vendor ID string of the X server `device' on.
-*/ )
+*/
-(device)
+(device))
-Lisp_Object device;
 {
 Display *dpy = get_x_display (device);
 char *vendor = ServerVendor (dpy);
 if (vendor)
 return (build_string (vendor));
 else
 return (build_string (""));
 }
-DEFUN ("x-server-version", Fx_server_version, Sx_server_version, 0, 1, 0 /*
+DEFUN ("x-server-version", Fx_server_version, 0, 1, 0, /*
 Return the version numbers of the X server `device' is on.
 The returned value is a list of three integers: the major and minor
 version numbers of the X Protocol in use, and the vendor-specific release
 number.  See also `x-server-vendor'.
-*/ )
+*/
-(device)
+(device))
-Lisp_Object device;
 {
 Display *dpy = get_x_display (device);
 return list3 (make_int (ProtocolVersion (dpy)),
 		make_int (ProtocolRevision (dpy)),
 		make_int (VendorRelease (dpy)));
 }
-DEFUN ("x-valid-keysym-name-p", Fx_valid_keysym_name_p, Sx_valid_keysym_name_p,
+DEFUN ("x-valid-keysym-name-p", Fx_valid_keysym_name_p, 1, 1, 0, /*
-1, 1, 0 /*
 Return true if KEYSYM names a keysym that the X library knows about.
 Valid keysyms are listed in the files /usr/include/X11/keysymdef.h and in
 /usr/lib/X11/XKeysymDB, or whatever the equivalents are on your system.
-*/ )
+*/
-(keysym)
+(keysym))
-Lisp_Object keysym;
 {
 CONST char *keysym_ext;
 CHECK_STRING (keysym);
 GET_C_STRING_CTEXT_DATA_ALLOCA (keysym, keysym_ext);
 if (XStringToKeysym (keysym_ext))
 return Qt;
 return Qnil;
 }
-DEFUN ("x-keysym-on-keyboard-p", Fx_keysym_on_keyboard_p, Sx_keysym_on_keyboard_p,
+DEFUN ("x-keysym-on-keyboard-p", Fx_keysym_on_keyboard_p, 1, 2, 0, /*
-1, 2, 0 /*
 Return true if KEYSYM names a key on the keyboard of DEVICE.
 More precisely, return true if pressing a physical key
 on the keyboard of DEVICE without any modifier keys generates KEYSYM.
 Valid keysyms are listed in the files /usr/include/X11/keysymdef.h and in
 /usr/lib/X11/XKeysymDB, or whatever the equivalents are on your system.
-*/ )
+*/
-(keysym, device)
+(keysym, device))
-Lisp_Object keysym, device;
 {
 struct device *d = decode_device(device);
 CONST char *keysym_string;
 KeySym  keysym_KeySym;
 KeySym *keysym_ptr, *keysym_last;
 /************************************************************************/
 /*                          grabs and ungrabs                           */
 /************************************************************************/
-DEFUN ("x-grab-pointer", Fx_grab_pointer, Sx_grab_pointer, 0, 3, 0 /*
+DEFUN ("x-grab-pointer", Fx_grab_pointer, 0, 3, 0, /*
 Grab the pointer and restrict it to its current window.
 If optional DEVICE argument is nil, the default device will be used.
 If optional CURSOR argument is non-nil, change the pointer shape to that
 until `x-ungrab-pointer' is called (it should be an object returned by the
 `make-cursor-glyph' function).
 If the second optional argument IGNORE-KEYBOARD is non-nil, ignore all
 keyboard events during the grab.
 Returns t if the grab is successful, nil otherwise.
-*/ )
+*/
-(device, cursor, ignore_keyboard)
+(device, cursor, ignore_keyboard))
-Lisp_Object device, cursor, ignore_keyboard;
 {
 Window w;
 int pointer_mode, result;
 struct device *d = decode_x_device (device);
 			  : XIMAGE_INSTANCE_X_CURSOR (cursor)),
 			 CurrentTime);
 return ((result == GrabSuccess) ? Qt : Qnil);
 }
-DEFUN ("x-ungrab-pointer", Fx_ungrab_pointer, Sx_ungrab_pointer, 0, 1, 0 /*
+DEFUN ("x-ungrab-pointer", Fx_ungrab_pointer, 0, 1, 0, /*
 Release a pointer grab made with `x-grab-pointer'.
 If optional first arg DEVICE is nil the default device is used.
 If it is t the pointer will be released on all X devices.
-*/ )
+*/
-(device)
+(device))
-Lisp_Object device;
 {
 if (!EQ (device, Qt))
 {
 Display *dpy = get_x_display (device);
 XUngrabPointer (dpy, CurrentTime);
 }
 return Qnil;
 }
-DEFUN ("x-grab-keyboard", Fx_grab_keyboard, Sx_grab_keyboard, 0, 1, 0 /*
+DEFUN ("x-grab-keyboard", Fx_grab_keyboard, 0, 1, 0, /*
 Grab the keyboard on the given device (defaulting to the selected one).
 So long as the keyboard is grabbed, all keyboard events will be delivered
 to emacs -- it is not possible for other X clients to eavesdrop on them.
 Ungrab the keyboard with `x-ungrab-keyboard' (use an unwind-protect).
 Returns t if the grab was successful; nil otherwise.
-*/ )
+*/
-(device)
+(device))
-Lisp_Object device;
 {
 struct device *d = decode_x_device (device);
 Window w = XtWindow (FRAME_X_TEXT_WIDGET (device_selected_frame (d)));
 Display *dpy = DEVICE_X_DISPLAY (d);
 Status status;
 }
 else
 return Qnil;
 }
-DEFUN ("x-ungrab-keyboard", Fx_ungrab_keyboard, Sx_ungrab_keyboard, 0, 1, 0 /*
+DEFUN ("x-ungrab-keyboard", Fx_ungrab_keyboard, 0, 1, 0, /*
 Release a keyboard grab made with `x-grab-keyboard'.
-*/ )
+*/
-(device)
+(device))
-Lisp_Object device;
 {
 Display *dpy = get_x_display (device);
 XUngrabKeyboard (dpy, CurrentTime);
 return Qnil;
 }
 /************************************************************************/
 void
 syms_of_device_x (void)
 {
-defsubr (&Sx_debug_mode);
+DEFSUBR (Fx_debug_mode);
-defsubr (&Sx_get_resource);
+DEFSUBR (Fx_get_resource);
-defsubr (&Sx_get_resource_prefix);
+DEFSUBR (Fx_get_resource_prefix);
-defsubr (&Sx_put_resource);
+DEFSUBR (Fx_put_resource);
-defsubr (&Sdefault_x_device);
+DEFSUBR (Fdefault_x_device);
-defsubr (&Sx_display_visual_class);
+DEFSUBR (Fx_display_visual_class);
-defsubr (&Sx_server_vendor);
+DEFSUBR (Fx_server_vendor);
-defsubr (&Sx_server_version);
+DEFSUBR (Fx_server_version);
-defsubr (&Sx_valid_keysym_name_p);
+DEFSUBR (Fx_valid_keysym_name_p);
-defsubr (&Sx_keysym_on_keyboard_p);
+DEFSUBR (Fx_keysym_on_keyboard_p);
-defsubr (&Sx_grab_pointer);
+DEFSUBR (Fx_grab_pointer);
-defsubr (&Sx_ungrab_pointer);
+DEFSUBR (Fx_ungrab_pointer);
-defsubr (&Sx_grab_keyboard);
+DEFSUBR (Fx_grab_keyboard);
-defsubr (&Sx_ungrab_keyboard);
+DEFSUBR (Fx_ungrab_keyboard);
 defsymbol (&Qx_error, "x-error");
 defsymbol (&Qinit_pre_x_win, "init-pre-x-win");
 defsymbol (&Qinit_post_x_win, "init-post-x-win");
 }

Mercurial > hg > xemacs-beta

comparison src/device-x.c @ 20:859a2309aef8 r19-15b93