Mercurial > hg > xemacs-beta
view src/ExternalShell.h @ 4949:018e13fdeaeb
compile-related functions added, for use in Unicode-internal ws
-------------------- ChangeLog entries follow: --------------------
lisp/ChangeLog addition:
2010-01-17 Ben Wing <ben@xemacs.org>
* bytecomp-runtime.el:
* bytecomp-runtime.el (error-unless-tests-match): New.
* bytecomp-runtime.el (byte-compile-file-being-compiled): New.
* bytecomp-runtime.el (compiled-if): New.
* bytecomp-runtime.el (compiled-when): New.
Add functions for dealing with conditional compilation of different code
depending on the presence or absence of features. Necessary for some
Mule code where code is run during compilation (macros or eval-when-compile)
but, depending on how the code is written, the code itself will crash
either with or without Unicode-internal.
compiled-if and compiled-when are the basic functions for conditional
compilation. They automatically trigger an error message upon file
loading if, at that time, the test expression that selected which code
to compile does not have the same value as at compile time.
author | Ben Wing <ben@xemacs.org> |
---|---|
date | Sun, 17 Jan 2010 04:52:48 -0600 |
parents | 74fd4e045ea6 |
children | 697ef44129c6 2aa9cd456ae7 |
line wrap: on
line source
/* External shell widget external header file. Copyright (C) 1993, 1994 Sun Microsystems, Inc. This library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with this library; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* Synched up with: Not in FSF. */ /* Written by Ben Wing, September 1993. */ #ifndef INCLUDED_ExternalShell_h_ #define INCLUDED_ExternalShell_h_ #ifndef XtNwindow #define XtNwindow "window" #endif #ifndef XtCWindow #define XtCWindow "Window" #endif #ifndef XtNclientTimeout #define XtNclientTimeout "clientTimeout" #endif #ifndef XtCClientTimeout #define XtCClientTimeout "ClientTimeout" #endif #ifndef XtNdeadClient #define XtNdeadClient "deadClient" #endif #ifndef XtCDeadClient #define XtCDeadClient "DeadClient" #endif typedef struct _ExternalShellClassRec *ExternalShellWidgetClass; typedef struct _ExternalShellRec *ExternalShellWidget; extern WidgetClass externalShellWidgetClass; Bool ExternalShellReady(Widget w, Window win, long event_mask); void ExternalShellSetFocus(Widget w); void ExternalShellUnrealize(Widget w); #define is_external_shell(w) (XtClass (w) == externalShellWidgetClass) #endif /* INCLUDED_ExternalShell_h_ */