Mercurial > hg > xemacs-beta
annotate src/extents.h @ 5278:d9e65b48e2bf
Correct the NEW_GC non-DEBUG_XEMACS version of PARSE_KEYWORDS().
2010-09-18 Aidan Kehoe <kehoea@parhasard.net>
* lisp.h (PARSE_KEYWORDS):
Correct the NEW_GC non-DEBUG_XEMACS version of this macro; under
such builds S##function is a pointer, not a Lisp_Subr structure.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sat, 18 Sep 2010 16:46:56 +0100 |
| parents | 5ddbab03b0e6 |
| children | 308d34e9f07d |
| rev | line source |
|---|---|
| 428 | 1 /* Copyright (c) 1994, 1995 Free Software Foundation. |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5118
diff
changeset
|
2 Copyright (c) 1995, 1996, 2002, 2010 Ben Wing. |
| 428 | 3 |
| 4 This file is part of XEmacs. | |
| 5 | |
| 6 XEmacs is free software; you can redistribute it and/or modify it | |
| 7 under the terms of the GNU General Public License as published by the | |
| 8 Free Software Foundation; either version 2, or (at your option) any | |
| 9 later version. | |
| 10 | |
| 11 XEmacs is distributed in the hope that it will be useful, but WITHOUT | |
| 12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 14 for more details. | |
| 15 | |
| 16 You should have received a copy of the GNU General Public License | |
| 17 along with XEmacs; see the file COPYING. If not, write to | |
| 18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
| 19 Boston, MA 02111-1307, USA. */ | |
| 20 | |
| 21 /* Synched up with: Not in FSF. */ | |
| 22 | |
| 440 | 23 #ifndef INCLUDED_extents_h_ |
| 24 #define INCLUDED_extents_h_ | |
| 428 | 25 |
|
5118
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
parents:
4690
diff
changeset
|
26 DECLARE_LISP_OBJECT (extent, struct extent); |
| 428 | 27 #define XEXTENT(x) XRECORD (x, extent, struct extent) |
| 617 | 28 #define wrap_extent(p) wrap_record (p, extent) |
| 428 | 29 #define EXTENTP(x) RECORDP (x, extent) |
| 30 #define CHECK_EXTENT(x) CHECK_RECORD (x, extent) | |
| 31 #define CONCHECK_EXTENT(x) CONCHECK_RECORD (x, extent) | |
| 32 | |
| 872 | 33 struct extent_auxiliary; |
| 428 | 34 |
|
5118
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
parents:
4690
diff
changeset
|
35 DECLARE_LISP_OBJECT (extent_auxiliary, struct extent_auxiliary); |
| 428 | 36 #define XEXTENT_AUXILIARY(x) \ |
| 37 XRECORD (x, extent_auxiliary, struct extent_auxiliary) | |
| 617 | 38 #define wrap_extent_auxiliary(p) wrap_record (p, extent_auxiliary) |
| 428 | 39 #define EXTENT_AUXILIARYP(x) RECORDP (x, extent_auxiliary) |
| 40 #define CHECK_EXTENT_AUXILIARY(x) CHECK_RECORD (x, extent_auxiliary) | |
| 41 #define CONCHECK_EXTENT_AUXILIARY(x) CONCHECK_RECORD (x, extent_auxiliary) | |
| 42 | |
| 872 | 43 struct extent_info; |
| 428 | 44 |
|
5118
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
parents:
4690
diff
changeset
|
45 DECLARE_LISP_OBJECT (extent_info, struct extent_info); |
| 428 | 46 #define XEXTENT_INFO(x) XRECORD (x, extent_info, struct extent_info) |
| 617 | 47 #define wrap_extent_info(p) wrap_record (p, extent_info) |
| 428 | 48 #define EXTENT_INFOP(x) RECORDP (x, extent_info) |
| 49 #define CHECK_EXTENT_INFO(x) CHECK_RECORD (x, extent_info) | |
| 50 #define CONCHECK_EXTENT_INFO(x) CONCHECK_RECORD (x, extent_info) | |
| 51 | |
| 3092 | 52 #ifdef NEW_GC |
| 53 struct extent_list_marker; | |
| 54 | |
|
5118
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
parents:
4690
diff
changeset
|
55 DECLARE_LISP_OBJECT (extent_list_marker, struct extent_list_marker); |
| 3092 | 56 #define XEXTENT_LIST_MARKER(x) \ |
| 57 XRECORD (x, extent_list_marker, struct extent_list_marker) | |
| 58 #define wrap_extent_list_marker(p) wrap_record (p, extent_list_marker) | |
| 59 #define EXTENT_LIST_MARKERP(x) RECORDP (x, extent_list_marker) | |
| 60 #define CHECK_EXTENT_LIST_MARKER(x) CHECK_RECORD (x, extent_list_marker) | |
| 61 #define CONCHECK_EXTENT_LIST_MARKER(x) CONCHECK_RECORD (x, extent_list_marker) | |
| 62 | |
| 63 struct extent_list; | |
| 64 | |
|
5118
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
parents:
4690
diff
changeset
|
65 DECLARE_LISP_OBJECT (extent_list, struct extent_list); |
| 3092 | 66 #define XEXTENT_LIST(x) XRECORD (x, extent_list, struct extent_list) |
| 67 #define wrap_extent_list(p) wrap_record (p, extent_list) | |
| 68 #define EXTENT_LISTP(x) RECORDP (x, extent_list) | |
| 69 #define CHECK_EXTENT_LIST(x) CHECK_RECORD (x, extent_list) | |
| 70 #define CONCHECK_EXTENT_LIST(x) CONCHECK_RECORD (x, extent_list) | |
| 71 | |
| 72 struct stack_of_extents; | |
| 73 | |
|
5118
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
parents:
4690
diff
changeset
|
74 DECLARE_LISP_OBJECT (stack_of_extents, struct stack_of_extents); |
| 3092 | 75 #define XSTACK_OF_EXTENTS(x) \ |
| 76 XRECORD (x, stack_of_extents, struct stack_of_extents) | |
| 77 #define wrap_stack_of_extents(p) wrap_record (p, stack_of_extents) | |
| 78 #define STACK_OF_EXTENTSP(x) RECORDP (x, stack_of_extents) | |
| 79 #define CHECK_STACK_OF_EXTENTS(x) CHECK_RECORD (x, stack_of_extents) | |
| 80 #define CONCHECK_STACK_OF_EXTENTS(x) CONCHECK_RECORD (x, stack_of_extents) | |
| 81 #endif /* NEW_GC */ | |
| 82 | |
| 872 | 83 /* the layouts for glyphs (extent->flags.glyph_layout). Must fit in 2 bits. */ |
| 84 typedef enum glyph_layout | |
| 826 | 85 { |
| 872 | 86 GL_TEXT, |
| 87 GL_OUTSIDE_MARGIN, | |
| 88 GL_INSIDE_MARGIN, | |
| 89 GL_WHITESPACE | |
| 90 } glyph_layout; | |
| 428 | 91 |
| 872 | 92 struct extent; |
| 428 | 93 |
| 872 | 94 void set_extent_endpoints (EXTENT extent, Bytexpos s, Bytexpos e, |
| 95 Lisp_Object object); | |
| 428 | 96 |
| 872 | 97 |
| 98 void flush_cached_extent_info (Lisp_Object extent_info); | |
| 647 | 99 |
| 826 | 100 void set_extent_glyph (EXTENT extent, Lisp_Object glyph, int endp, |
| 101 glyph_layout layout); | |
| 102 | |
| 428 | 103 |
| 104 /* flags for map_extents() and friends */ | |
| 105 #define ME_END_CLOSED (1 << 0) | |
| 106 #define ME_START_OPEN (1 << 1) | |
| 107 #define ME_ALL_EXTENTS_CLOSED (1 << 2) | |
| 108 #define ME_ALL_EXTENTS_OPEN (2 << 2) | |
| 109 #define ME_ALL_EXTENTS_CLOSED_OPEN (3 << 2) | |
| 110 #define ME_ALL_EXTENTS_OPEN_CLOSED (4 << 2) | |
| 111 #define ME_ALL_EXTENTS_MASK (7 << 2) | |
| 112 #define ME_START_IN_REGION (1 << 5) | |
| 113 #define ME_END_IN_REGION (2 << 5) | |
| 114 #define ME_START_AND_END_IN_REGION (3 << 5) | |
| 115 #define ME_START_OR_END_IN_REGION (4 << 5) | |
| 116 #define ME_IN_REGION_MASK (7 << 5) | |
| 117 #define ME_NEGATE_IN_REGION (1 << 8) | |
| 118 /* the following flags are internal-only */ | |
| 119 #define ME_INCLUDE_INTERNAL (1 << 9) | |
| 120 #define ME_MIGHT_THROW (1 << 10) | |
| 121 #define ME_MIGHT_MODIFY_TEXT (1 << 11) | |
| 122 #define ME_MIGHT_MODIFY_EXTENTS (1 << 12) | |
| 123 #define ME_MIGHT_MOVE_SOE (1 << 13) | |
| 124 #define ME_MIGHT_CALL_ELISP (ME_MIGHT_THROW | ME_MIGHT_MODIFY_TEXT | \ | |
| 125 ME_MIGHT_MODIFY_EXTENTS | ME_MIGHT_MOVE_SOE) | |
| 126 | |
| 127 | |
| 128 extern int inside_undo; | |
| 442 | 129 extern int in_modeline_generation; |
| 428 | 130 |
|
4690
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
3092
diff
changeset
|
131 extern Fixnum mouse_highlight_priority; |
|
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
3092
diff
changeset
|
132 |
| 872 | 133 EXFUN (Fextent_at, 5); |
| 134 EXFUN (Fextent_property, 3); | |
| 135 EXFUN (Fput_text_property, 5); | |
| 136 | |
| 137 EXFUN (Fdetach_extent, 1); | |
| 138 EXFUN (Fextent_end_position, 1); | |
| 139 EXFUN (Fextent_object, 1); | |
| 140 EXFUN (Fextent_properties, 1); | |
| 141 EXFUN (Fextent_start_position, 1); | |
| 142 EXFUN (Fget_char_property, 4); | |
| 143 EXFUN (Fmake_extent, 3); | |
| 144 EXFUN (Fnext_extent_change, 2); | |
| 145 EXFUN (Fprevious_extent_change, 2); | |
| 2506 | 146 EXFUN (Fprevious_single_char_property_change, 4); |
| 872 | 147 EXFUN (Fset_extent_endpoints, 4); |
| 148 EXFUN (Fset_extent_parent, 2); | |
| 149 EXFUN (Fset_extent_property, 3); | |
|
4690
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
3092
diff
changeset
|
150 EXFUN (Fset_extent_priority, 2); |
|
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
3092
diff
changeset
|
151 EXFUN (Fset_extent_face, 2); |
|
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
3092
diff
changeset
|
152 EXFUN (Fmap_extents, 8); |
| 872 | 153 |
| 154 enum extent_at_flag | |
| 155 { | |
| 156 EXTENT_AT_DEFAULT = 0, | |
| 157 EXTENT_AT_AFTER = 0, | |
| 158 EXTENT_AT_BEFORE, | |
| 159 EXTENT_AT_AT | |
| 160 }; | |
| 161 | |
| 162 Bytexpos extent_endpoint_byte (EXTENT extent, int endp); | |
| 163 Charxpos extent_endpoint_char (EXTENT extent, int endp); | |
| 2506 | 164 Bytexpos next_previous_single_property_change (Bytexpos pos, Lisp_Object prop, |
| 165 Lisp_Object object, | |
| 166 Bytexpos limit, | |
| 167 Boolint next, | |
| 168 Boolint text_props_only); | |
| 872 | 169 Lisp_Object get_char_property (Bytexpos position, Lisp_Object prop, |
| 170 Lisp_Object object, enum extent_at_flag fl, | |
| 171 int text_props_only); | |
| 172 void adjust_extents (Lisp_Object object, Memxpos from, | |
| 173 Memxpos to, int amount); | |
| 174 void adjust_extents_for_deletion (Lisp_Object object, Bytexpos from, | |
| 175 Bytexpos to, int gapsize, | |
| 176 int numdel, int movegapsize); | |
| 177 void verify_extent_modification (Lisp_Object object, Bytexpos from, | |
| 178 Bytexpos to, | |
| 179 Lisp_Object inhibit_read_only_value); | |
| 180 void process_extents_for_insertion (Lisp_Object object, | |
| 181 Bytexpos opoint, Bytecount length); | |
| 182 void process_extents_for_deletion (Lisp_Object object, Bytexpos from, | |
| 183 Bytexpos to, int destroy_them); | |
| 184 /* Note the following function is in Charbpos's */ | |
| 185 void report_extent_modification (Lisp_Object buffer, Charbpos start, | |
| 186 Charbpos end, int afterp); | |
| 187 void add_string_extents (Lisp_Object string, struct buffer *buf, | |
| 188 Bytexpos opoint, Bytecount length); | |
| 189 void splice_in_string_extents (Lisp_Object string, struct buffer *buf, | |
| 190 Bytexpos opoint, Bytecount length, | |
| 191 Bytecount pos); | |
| 192 void copy_string_extents (Lisp_Object new_string, | |
| 193 Lisp_Object old_string, | |
| 194 Bytecount new_pos, Bytecount old_pos, | |
| 195 Bytecount length); | |
| 196 void detach_all_extents (Lisp_Object object); | |
| 197 Lisp_Object extent_at (Bytexpos position, Lisp_Object object, | |
| 198 Lisp_Object property, EXTENT before, | |
| 199 enum extent_at_flag at_flag, int all_extents); | |
| 200 | |
| 201 | |
| 428 | 202 struct extent_fragment *extent_fragment_new (Lisp_Object buffer_or_string, |
| 203 struct frame *frm); | |
| 204 face_index extent_fragment_update (struct window *w, | |
| 205 struct extent_fragment *ef, | |
| 826 | 206 Bytexpos pos, Lisp_Object last_glyph); |
| 428 | 207 void extent_fragment_delete (struct extent_fragment *ef); |
| 208 | |
| 209 /* from alloc.c */ | |
| 210 struct extent *allocate_extent (void); | |
| 211 | |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5118
diff
changeset
|
212 void attach_extent_auxiliary (EXTENT ext); |
| 428 | 213 void init_buffer_extents (struct buffer *b); |
| 214 void uninit_buffer_extents (struct buffer *b); | |
| 215 | |
| 216 #ifdef ERROR_CHECK_EXTENTS | |
| 217 void sledgehammer_extent_check (Lisp_Object obj); | |
| 218 #endif | |
| 219 | |
| 220 #ifdef MEMORY_USAGE_STATS | |
|
5170
5ddbab03b0e6
various fixes to memory-usage stats
Ben Wing <ben@xemacs.org>
parents:
5168
diff
changeset
|
221 Bytecount compute_buffer_extent_usage (struct buffer *b); |
| 428 | 222 #endif |
| 223 | |
| 440 | 224 #endif /* INCLUDED_extents_h_ */ |