Mercurial > hg > xemacs-beta
annotate src/bufslots.h @ 5602:c9e5612f5424
Support the MP library on recent FreeBSD, have it pass relevant tests.
src/ChangeLog addition:
2011-11-26 Aidan Kehoe <kehoea@parhasard.net>
* number-mp.c (bignum_to_string):
Don't overwrite the accumulator we've just set up for this
function.
* number-mp.c (BIGNUM_TO_TYPE):
mp_itom() doesn't necessarily do what this code used to think with
negative numbers, it can treat them as unsigned ints. Subtract
numbers from bignum_zero instead of multiplying them by -1 to
convert them to their negative equivalents.
* number-mp.c (bignum_to_int):
* number-mp.c (bignum_to_uint):
* number-mp.c (bignum_to_long):
* number-mp.c (bignum_to_ulong):
* number-mp.c (bignum_to_double):
Use the changed BIGNUM_TO_TYPE() in these functions.
* number-mp.c (bignum_ceil):
* number-mp.c (bignum_floor):
In these functions, be more careful about rounding to positive and
negative infinity, respectively. Don't use the sign of QUOTIENT
when working out out whether to add or subtract one, rather use
the sign QUOTIENT would have if arbitrary-precision division were
done.
* number-mp.h:
* number-mp.h (MP_GCD):
Wrap #include <mp.h> in BEGIN_C_DECLS/END_C_DECLS.
* number.c (Fbigfloat_get_precision):
* number.c (Fbigfloat_set_precision):
Don't attempt to call XBIGFLOAT_GET_PREC if this build doesn't
support big floats.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sat, 26 Nov 2011 17:59:14 +0000 |
| parents | 308d34e9f07d |
| children |
| rev | line source |
|---|---|
| 428 | 1 /* Definitions of marked slots in buffers |
| 2 Copyright (C) 1990, 1992, 1993 Free Software Foundation, Inc. | |
| 1204 | 3 Copyright (C) 2001, 2002 Ben Wing. |
| 428 | 4 |
| 5 This file is part of XEmacs. | |
| 6 | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5214
diff
changeset
|
7 XEmacs is free software: you can redistribute it and/or modify it |
| 428 | 8 under the terms of the GNU General Public License as published by the |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5214
diff
changeset
|
9 Free Software Foundation, either version 3 of the License, or (at your |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5214
diff
changeset
|
10 option) any later version. |
| 428 | 11 |
| 12 XEmacs is distributed in the hope that it will be useful, but WITHOUT | |
| 13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 15 for more details. | |
| 16 | |
| 17 You should have received a copy of the GNU General Public License | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5214
diff
changeset
|
18 along with XEmacs. If not, see <http://www.gnu.org/licenses/>. */ |
| 428 | 19 |
| 20 /* Synched up with: Mule 2.0, FSF 19.30. Split out of buffer.h. */ | |
| 21 | |
| 22 /* Authorship: | |
| 23 | |
| 24 FSF: long ago (part of buffer.h). | |
| 25 JWZ: separated out from buffer.h, early in Lemacs. | |
| 26 XEmacs: a few other changes. | |
| 27 */ | |
| 28 | |
| 617 | 29 /* We define the Lisp_Objects in the buffer structure in a separate file |
| 30 because there are numerous places we want to iterate over them, such | |
| 31 as when defining them in the structure, initializing them, or marking | |
| 32 them. | |
| 33 | |
| 34 To use, define MARKED_SLOT before including this file. No need to | |
| 35 undefine; that happens automatically. */ | |
| 428 | 36 |
| 37 #ifndef BUFFER_SLOTS_FIRST_NAME | |
| 38 #define BUFFER_SLOTS_FIRST_NAME name | |
| 39 #endif | |
| 40 | |
| 41 /* The name of this buffer. */ | |
| 1204 | 42 MARKED_SLOT (name) |
| 428 | 43 |
| 44 /* The name of the file visited in this buffer, or nil. */ | |
| 1204 | 45 MARKED_SLOT (filename) |
| 428 | 46 |
| 47 /* Dir for expanding relative file names. */ | |
| 1204 | 48 MARKED_SLOT (directory) |
| 428 | 49 |
| 50 /* True iff this buffer has been backed up (if you write to the | |
| 51 visited file and it hasn't been backed up, then a backup will | |
| 52 be made). */ | |
| 53 /* #### This isn't really used by the C code, so could be deleted. */ | |
| 1204 | 54 MARKED_SLOT (backed_up) |
| 428 | 55 |
| 56 /* Length of file when last read or saved. | |
| 57 This is not in the struct buffer_text | |
| 58 because it's not used in indirect buffers at all. */ | |
| 1204 | 59 MARKED_SLOT (saved_size) |
| 428 | 60 |
| 61 /* File name used for auto-saving this buffer. | |
| 62 This is not in the struct buffer_text | |
| 63 because it's not used in indirect buffers at all. */ | |
| 1204 | 64 MARKED_SLOT (auto_save_file_name) |
| 428 | 65 |
| 66 /* Non-nil if buffer read-only. */ | |
| 1204 | 67 MARKED_SLOT (read_only) |
| 428 | 68 |
| 69 /* "The mark". This is a marker which may | |
| 70 point into this buffer or may point nowhere. */ | |
| 1204 | 71 MARKED_SLOT (mark) |
| 428 | 72 |
| 73 /* Alist of elements (SYMBOL . VALUE-IN-THIS-BUFFER) | |
| 74 for all per-buffer variables of this buffer. | |
| 75 Specifically, this lists those variables that have | |
| 76 a buffer-local value in this buffer: i.e. those | |
| 77 whose value does not shadow the default value. | |
| 78 (Remember that for any particular variable created | |
| 79 with `make-local-variable' or `make-variable-buffer-local', | |
| 80 it will have a per-buffer value in some buffers and a | |
| 81 default value in others.) | |
| 82 | |
| 83 Variables declared in C with DEFVAR_BUFFER_LOCAL() (i.e. | |
| 84 those stored in the struct buffer) are not listed here. */ | |
| 1204 | 85 MARKED_SLOT (local_var_alist) |
| 428 | 86 |
| 87 /* Symbol naming major mode (eg, lisp-mode). */ | |
| 1204 | 88 MARKED_SLOT (major_mode) |
| 428 | 89 |
| 90 /* Pretty name of major mode (eg, "Lisp"). */ | |
| 1204 | 91 MARKED_SLOT (mode_name) |
| 428 | 92 |
| 93 /* Modeline element that controls format of modeline. */ | |
| 1204 | 94 MARKED_SLOT (modeline_format) |
| 428 | 95 |
| 96 /* Keys that are bound local to this buffer. */ | |
| 1204 | 97 MARKED_SLOT (keymap) |
| 428 | 98 |
| 99 /* This buffer's local abbrev table. */ | |
| 1204 | 100 MARKED_SLOT (abbrev_table) |
| 428 | 101 /* This buffer's syntax table. */ |
| 1204 | 102 MARKED_SLOT (syntax_table) |
| 428 | 103 /* Massaged values from the syntax table, for faster lookup. */ |
| 1204 | 104 MARKED_SLOT (mirror_syntax_table) |
| 428 | 105 |
| 106 #ifdef MULE | |
| 107 /* This buffer's category table. */ | |
| 1204 | 108 MARKED_SLOT (category_table) |
| 428 | 109 #endif /* MULE */ |
| 110 /* This buffer's coding system. */ | |
| 1204 | 111 MARKED_SLOT (buffer_file_coding_system) |
| 428 | 112 /* Values of several buffer-local variables. |
| 113 | |
| 114 tab-width is buffer-local so that redisplay can find it | |
| 115 in buffers that are not current */ | |
| 1204 | 116 MARKED_SLOT (case_fold_search) |
| 117 MARKED_SLOT (tab_width) | |
| 118 MARKED_SLOT (fill_column) | |
| 119 MARKED_SLOT (left_margin) | |
| 428 | 120 |
| 121 /* Function to call when insert space past fill column. */ | |
| 1204 | 122 MARKED_SLOT (auto_fill_function) |
| 428 | 123 |
| 446 | 124 /* Case table for case-conversion in this buffer. */ |
| 1204 | 125 MARKED_SLOT (case_table) |
| 126 /* It contanis following char-tables: */ | |
| 446 | 127 /* Char-table maps each char into its lower-case version. */ |
| 428 | 128 /* Char-table mapping each char to its upper-case version. */ |
| 129 /* Char-table for conversion for case-folding search. */ | |
| 130 /* Char-table of equivalences for case-folding search. */ | |
| 131 | |
| 132 /* #### This ought to be a specifier: */ | |
| 133 /* Non-nil means do not display continuation lines. */ | |
| 1204 | 134 MARKED_SLOT (truncate_lines) |
| 428 | 135 /* #### This ought to be a specifier: */ |
| 136 /* #### Better yet, it ought to be junked. It really sucks. */ | |
| 137 /* Non-nil means display ctl chars with uparrow. */ | |
| 1204 | 138 MARKED_SLOT (ctl_arrow) |
| 428 | 139 /* #### This ought to be a specifier: */ |
| 140 /* #### Better yet, it ought to be junked. It really sucks. */ | |
| 141 /* Non-nil means do selective display; | |
| 142 see doc string in syms_of_buffer (buffer.c) for details. */ | |
| 1204 | 143 MARKED_SLOT (selective_display) |
| 428 | 144 /* #### This ought to be a specifier: */ |
| 145 /* #### Better yet, it ought to be junked. It really sucks. */ | |
| 146 /* Non-nil means show ... at end of line followed by invisible lines. */ | |
| 1204 | 147 MARKED_SLOT (selective_display_ellipses) |
| 428 | 148 /* Alist of (FUNCTION . STRING) for each minor mode enabled in buffer. */ |
| 1204 | 149 /* Unused: MARKED_SLOT (minor_modes) */ |
| 428 | 150 /* t if "self-insertion" should overwrite */ |
| 1204 | 151 MARKED_SLOT (overwrite_mode) |
| 428 | 152 /* non-nil means abbrev mode is on. Expand abbrevs automatically. */ |
| 1204 | 153 MARKED_SLOT (abbrev_mode) |
| 428 | 154 |
| 155 /* No display table here. It's a specifier. */ | |
| 156 #if 0 /* FSFmacs */ | |
| 157 /* t means the mark and region are currently active. */ | |
| 1204 | 158 MARKED_SLOT (mark_active) |
| 428 | 159 #endif |
| 160 | |
| 161 /* Changes in the buffer are recorded here for undo. | |
| 162 t means don't record anything. | |
| 163 This information belongs to the base buffer of an indirect buffer, | |
| 164 But we can't store it in the struct buffer_text | |
| 165 because local variables have to be right in the struct buffer. | |
| 166 So we copy it around in set_buffer_internal. */ | |
| 1204 | 167 MARKED_SLOT (undo_list) |
| 428 | 168 |
| 169 /* FSFmacs has overlay stuff here. We have extent info elsewhere in the | |
| 170 struct buffer. */ | |
| 171 | |
| 442 | 172 /* dedicated_frame in lisp */ |
| 428 | 173 |
| 174 /* Lisp of symbols naming the file format used for visited file. */ | |
| 1204 | 175 MARKED_SLOT (file_format) |
| 428 | 176 |
| 177 #ifdef REGION_CACHE_NEEDS_WORK | |
| 178 /* True if the newline position cache and width run cache are | |
| 179 enabled. See search.c and indent.c. */ | |
| 1204 | 180 MARKED_SLOT (cache_long_line_scans) |
| 428 | 181 |
| 182 /* If the width run cache is enabled, this table contains the | |
| 183 character widths width_run_cache (see above) assumes. When we | |
| 184 do a thorough redisplay, we compare this against the buffer's | |
| 185 current display table to see whether the display table has | |
| 186 affected the widths of any characters. If it has, we | |
| 187 invalidate the width run cache, and re-initialize width_table. */ | |
| 1204 | 188 MARKED_SLOT (width_table) |
| 428 | 189 #endif /* REGION_CACHE_NEEDS_WORK */ |
| 190 | |
| 191 /* A redundant copy of text.pt, in the form of a marker. Every time one | |
| 192 is updated, so is the other. | |
| 193 */ | |
| 1204 | 194 MARKED_SLOT (point_marker) |
| 428 | 195 |
| 196 /* FSFmacs has pt_marker, begv_marker, zv_marker here, used for | |
| 197 indirect buffers. We don't need them because we handle these | |
| 198 values directly instead of playing games with markers. */ | |
| 199 | |
| 200 /* This holds the point value before the last scroll operation. | |
| 201 Explicitly setting point sets this to nil. */ | |
| 1204 | 202 MARKED_SLOT (point_before_scroll) |
| 428 | 203 |
| 771 | 204 /* Truename of the visited file (via qxe_realpath()), |
| 428 | 205 or nil. */ |
| 1204 | 206 MARKED_SLOT (file_truename) |
| 428 | 207 |
| 208 /* Invisibility spec of this buffer. | |
| 209 t => any non-nil `invisible' property means invisible. | |
| 210 A list => `invisible' property means invisible | |
| 211 if it is memq in that list. */ | |
| 1204 | 212 MARKED_SLOT (invisibility_spec) |
| 428 | 213 |
| 214 /* The string generated by formatting the modeline in this buffer. */ | |
| 1204 | 215 MARKED_SLOT (generated_modeline_string) |
| 428 | 216 |
|
5214
0b4d355771bd
Import buffer-display-count, buffer-display-time; thank you, Jeff Sparkes.
Aidan Kehoe <kehoea@parhasard.net>
parents:
1204
diff
changeset
|
217 /* Incremented each time a buffer is displayed using set-window-buffer. */ |
|
0b4d355771bd
Import buffer-display-count, buffer-display-time; thank you, Jeff Sparkes.
Aidan Kehoe <kehoea@parhasard.net>
parents:
1204
diff
changeset
|
218 MARKED_SLOT (display_count) |
|
0b4d355771bd
Import buffer-display-count, buffer-display-time; thank you, Jeff Sparkes.
Aidan Kehoe <kehoea@parhasard.net>
parents:
1204
diff
changeset
|
219 |
|
0b4d355771bd
Import buffer-display-count, buffer-display-time; thank you, Jeff Sparkes.
Aidan Kehoe <kehoea@parhasard.net>
parents:
1204
diff
changeset
|
220 /* Last time this buffer was displayed using set-window-buffer. */ |
|
0b4d355771bd
Import buffer-display-count, buffer-display-time; thank you, Jeff Sparkes.
Aidan Kehoe <kehoea@parhasard.net>
parents:
1204
diff
changeset
|
221 MARKED_SLOT (display_time) |
|
0b4d355771bd
Import buffer-display-count, buffer-display-time; thank you, Jeff Sparkes.
Aidan Kehoe <kehoea@parhasard.net>
parents:
1204
diff
changeset
|
222 |
| 428 | 223 /* A hash table that maps from a "generic extent" (an extent in |
| 224 `modeline-format') into a buffer-specific extent. */ | |
| 1204 | 225 MARKED_SLOT (modeline_extent_table) |
| 428 | 226 |
| 227 #ifndef BUFFER_SLOTS_LAST_NAME | |
| 228 #define BUFFER_SLOTS_LAST_NAME modeline_extent_table | |
| 229 #endif | |
| 230 | |
| 617 | 231 #undef MARKED_SLOT |