Mercurial > hg > xemacs-beta

comparison src/energize.h @ 0:376386a54a3c r19-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-14
author cvs
date Mon, 13 Aug 2007 08:45:50 +0200
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:376386a54a3c
1 /****************************************************************************
2 ***
3 *** Copyright (c) 1990 by Sun/Lucid, All Rights Reserved.
4 *** Copyright (c) 1991-1993 by Lucid, Inc. All Rights Reserved.
5 ***
6 *****************************************************************************/
7
8 /* Synched up with: Not in FSF. */
9 #ifndef _XEMACS_ENERGIZE_H_
10 #define _XEMACS_ENERGIZE_H_
11
12 #ifndef ENERGIZE
13 ERROR! energize.h is an Energize-only file
14 #endif
15
16 #include <connection.h>
17 #include <editorreq.h>
18 #include <editorconn.h>
19 #include <editoption.h>
20 #include <request.h>
21
22 #include "hash.h"
23 #include "extents.h"
24
25 /* Product name... */
26 #ifndef NCR486
27 # define IDENTITY_CRISIS "Energize"
28 #else
29 # define IDENTITY_CRISIS "C++ Workbench"
30 #endif
31
32 /* This represents the emacs connection to the Energize server.
33 */
34 typedef struct {
35 Connection* conn; /* connection to Energize */
36 Lisp_Object proc; /* Emacs process */
37 c_hashtable binfo_hash; /* hashtable for buffers */
38 Lisp_Object gc_save; /* Objects saved for GC */
39 int major; /* protocol version number */
40 int minor;
41 c_hashtable image_table; /* glyphs table */
42 } Editor;
43
44
45 typedef BITS32 EId; /* Energize id */
46
47 /* In general, we keep positions in Energize form in our data structures,
48 and only convert to Emacs positions as needed for Emacs operations. */
49 typedef BITS32 EnergizePos; /* Energize position = (Emacs position-1) */
50
51
52
53 /* Generic extent data and classes
54 This "seal" junk is a completely bogus data type system that should be
55 replaced with something implemented using Lisp_Records.
56 */
57 #define GDATA_CLASS_SEAL 0x12345678
58 #define GDATA_SEAL 0x67654321
59 #define EXTENT_SEAL 0x45612378
60 #define DUP_SEAL 0x13524768
61 #define BUF_INFO_SEAL 0x5F7F6F5F
62 #define OBJECT_SEAL_MASK 0x7FFFFFFF
63 #define OBJECT_FREE_BIT 0x80000000
64
65 #define OBJECT_SEAL(x) (((Energize_Extent_Data *)(x))->seal & OBJECT_SEAL_MASK)
66 #define OBJECT_FREE(x) (((Energize_Extent_Data *)(x))->seal & OBJECT_FREE_BIT)
67 #define SET_OBJECT_FREE(x) \
68 { \
69 /* if (OBJECT_FREE (x)) \
70 error ("Free'ing already freed object 0x%x", x); \
71 ((Energize_Extent_Data *)(x))->seal |= OBJECT_FREE_BIT; \ */ \
72 xfree(x); \
73 }
74
75 #define CHECK_OBJECT(x) \
76 { /* if (OBJECT_FREE (x)) error ("Using freed object 0x%x", x); */ }
77
78 #define PUT_ABLE_OBJECT(x) \
79 ((OBJECT_SEAL(x) == BUF_INFO_SEAL) || (OBJECT_SEAL(x) == EXTENT_SEAL) || \
80 (OBJECT_SEAL(x) == GDATA_CLASS_SEAL) || (OBJECT_SEAL(x) == GDATA_SEAL))
81
82 enum Energize_Object_Free_Type
83 { OFT_MAPHASH, OFT_STANDALONE, OFT_GC };
84
85 typedef struct
86 {
87 int seal; /* must be GDATA_CLASS_SEAL */
88 EId id;
89 short flags;
90 GLYPH glyph;
91 } GDataClass;
92
93 typedef struct
94 {
95 int seal; /* must be GDATA_SEAL */
96 EId id;
97 GDataClass *cl;
98 GLYPH glyph;
99 short flags;
100 short attribute; /* graphic attribute for extent chars */
101 short modified_state;
102 } GenericData;
103
104
105 #ifdef I18N4
106
107 typedef struct
108 {
109 Bufpos pos, endpos; /* emacs buffer start & end positions */
110 int eucsize; /* number of EUC bytes to encode */
111 } WCharMapRec;
112
113 typedef struct
114 {
115 int valid; /* flag */
116 int modiff_stamp; /* val of BUF_MODIFF(buffer) at last update */
117 int mapsize; /* number of elements in wc_map */
118 WCharMapRec *map; /* where's the beef? */
119 } WCharSizeTable;
120
121 #endif
122
123
124 /* Internal, Energize-specific information about each Energize-created extent.
125 */
126
127 typedef struct Energize_Extent_Data
128 {
129 int seal; /* must be EXTENT_SEAL */
130 EId id;
131 int extentType; /* oneof CEAttribute, CEAbbreviation, etc. */
132 Lisp_Object extent; /* corresponding extent (never nil) */
133 struct x_pixmap *start_pixmap;
134 struct x_pixmap *end_pixmap;
135 int warn_modify;
136 union
137 {
138 struct
139 { /* CEAttribute */
140 int attrValue;
141 } attr;
142 struct
143 { /* CEAbbreviation */
144 Boolean isOpened;
145 } abbrev;
146 struct
147 { /* CEGeneric */
148 GenericData* gData;
149 } generic;
150 } u;
151 } Energize_Extent_Data;
152
153
154 /* Internal, Energize-specific information about each Energize-created buffer.
155 */
156
157 typedef struct
158 {
159 int seal; /* must be BUF_INFO_SEAL */
160 EId id; /* Energize id for buffer */
161 int flags; /* e.g. CBReadOnly or CBStandard */
162 Editor *editor; /* corresponding editor structure */
163 c_hashtable id_to_object; /* energize ids to extents, gdata & classes */
164 Lisp_Object emacs_buffer; /* corresponding emacs buffer */
165 char modified_state; /* modified state as notified to Energize */
166 char editable; /* Energize authorized user to edit buffer */
167 Lisp_Object output_mark; /* analog to process_mark (see process.c) */
168 char *buffer_type; /* string denoting buffer type; see below */
169 int* p_sheet_ids; /* psheets associated with the buffer */
170 int n_p_sheets; /* number of p_sheets */
171 int* note_ids; /* id of opened postit notes */
172 int n_notes; /* number of notes */
173 Lisp_Object frame; /* frame that was created for the buffer */
174 #ifdef I18N4
175 WCharSizeTable wcmap; /* for char_offset <-> buffer_pos xlation */
176 #endif
177 } BufferInfo;
178
179 /* "Types" of buffers, according to the Energize server.
180
181 Source files: SOURCE source_class, source_as_component_class
182 Projects: PROJECT project_class
183 Log Files: LOG_FILE log_file_class
184 Debugger log: DEBUGGER debugger_tool_class
185 Breakpoints: BREAKPOINT breaklist_class
186 Unix Man: UNIX_MANUAL unix_man_file_class (no longer used?)
187 File: FILE lazy_file_class
188 Energize: ENERGIZE_BUFFER energize_class
189
190 Unspecified: UNINITIALIZED_BUFFER_TYPE
191 Unknown: UNKNOWN_BUFFER_TYPE
192
193 There should be a BROWSER type as well, but there isn't, so we have
194 a kludge to fake it up in lisp.
195 */
196
197 struct buffer_type_struct
198 {
199 char *kernel_name;
200 char *elisp_name;
201 };
202
203 static struct buffer_type_struct
204 kernel_buffer_types_to_elisp_buffer_types_vector[] =
205 {
206 { "FILE", "energize-source-buffer" }, /* #### Is this necessary? */
207 { "SOURCE", "energize-source-buffer" },
208 { "PROJECT", "energize-project-buffer" },
209 { "LOG_FILE", "energize-log-file-buffer" },
210 { "DEBUGGER", "energize-debugger-buffer" },
211 { "BREAKPOINT", "energize-breakpoint-buffer" },
212 { "UNIX_MANUAL", "energize-unix-manual-buffer" },
213 { "ENERGIZE_BUFFER", "energize-top-level-buffer" },
214 /* { "CADILLAC_BUFFER", "energize-top-level-buffer" }, /* #### rename me */
215 /* { "POSTIT", "energize-postit-buffer-type" }, */
216 /* #### There needs to be a "browser" buffer type in here too */
217 { 0 , 0 }
218 };
219
220 #define UNINITIALIZED_BUFFER_TYPE "energize-unspecified-buffer"
221 #define UNKNOWN_BUFFER_TYPE "energize-unknown-buffer"
222
223 Energize_Extent_Data *energize_extent_data (EXTENT);
224
225 #endif /* _XEMACS_ENERGIZE_H_ */