Mercurial > hg > xemacs-beta

comparison src/console-msw.c @ 249:83b3d10dcba9 r20-5b23

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b23
author cvs
date Mon, 13 Aug 2007 10:19:09 +0200
parents 78f53ef88e17
children c5d627a313b1
comparison
equal deleted inserted replaced
248:ad40ac2754d8 249:83b3d10dcba9
28 28
29 #include <config.h> 29 #include <config.h>
30 #include "lisp.h" 30 #include "lisp.h"
31 31
32 #include "console-msw.h" 32 #include "console-msw.h"
33
33 34
34 DEFINE_CONSOLE_TYPE (mswindows); 35 DEFINE_CONSOLE_TYPE (mswindows);
35 36
36 37
37 static int 38 static int
71 void 72 void
72 vars_of_console_mswindows (void) 73 vars_of_console_mswindows (void)
73 { 74 {
74 Fprovide (Qmswindows); 75 Fprovide (Qmswindows);
75 } 76 }
77
78
79 #ifdef DEBUG_XEMACS
80 #include "events.h"
81 #include "opaque.h"
82 /*
83 * Random helper functions for debugging.
84 * Intended for use in the MSVC "Watch" window which doesn't like
85 * the aborts that the error_check_foo() functions can make.
86 */
87 struct lrecord_header *DHEADER(Lisp_Object obj)
88 {
89 return (LRECORDP (obj)) ? XRECORD_LHEADER (obj) : NULL;
90 }
91
92 int *DOPAQUE_DATA (Lisp_Object obj)
93 {
94 return (OPAQUEP (obj)) ? OPAQUE_DATA (XOPAQUE (obj)) : NULL;
95 }
96
97 struct Lisp_Event *DEVENT(Lisp_Object obj)
98 {
99 return (EVENTP (obj)) ? XEVENT (obj) : NULL;
100 }
101
102 struct Lisp_Cons *DCONS(Lisp_Object obj)
103 {
104 return (CONSP (obj)) ? XCONS (obj) : NULL;
105 }
106
107 Lisp_Object DCAR(Lisp_Object obj)
108 {
109 return (CONSP (obj)) ? XCAR (obj) : 0;
110 }
111
112 Lisp_Object DCDR(Lisp_Object obj)
113 {
114 return (CONSP (obj)) ? XCDR (obj) : 0;
115 }
116
117 struct Lisp_Cons *DCONSCDR(Lisp_Object obj)
118 {
119 return ((CONSP (obj)) && (CONSP (XCDR (obj)))) ? XCONS (XCDR (obj)) : 0;
120 }
121
122 Lisp_Object DCARCDR(Lisp_Object obj)
123 {
124 return ((CONSP (obj)) && (CONSP (XCDR (obj)))) ? XCAR (XCDR (obj)) : 0;
125 }
126
127 char *DSTRING(Lisp_Object obj)
128 {
129 return (STRINGP (obj)) ? XSTRING_DATA (obj) : NULL;
130 }
131
132 struct Lisp_Vector *DVECTOR(Lisp_Object obj)
133 {
134 return (VECTORP (obj)) ? XVECTOR (obj) : NULL;
135 }
136
137 struct Lisp_Symbol *DSYMBOL(Lisp_Object obj)
138 {
139 return (SYMBOLP (obj)) ? XSYMBOL (obj) : NULL;
140 }
141
142 char *DSYMNAME(Lisp_Object obj)
143 {
144 return (SYMBOLP (obj)) ? XSYMBOL (obj)->name->_data : NULL;
145 }
146
147 #endif