Mercurial > hg > xemacs-beta
annotate src/devslots.h @ 5307:c096d8051f89
Have NATNUMP give t for positive bignums; check limits appropriately.
src/ChangeLog addition:
2010-11-20 Aidan Kehoe <kehoea@parhasard.net>
* abbrev.c (Fexpand_abbrev):
* alloc.c:
* alloc.c (Fmake_list):
* alloc.c (Fmake_vector):
* alloc.c (Fmake_bit_vector):
* alloc.c (Fmake_byte_code):
* alloc.c (Fmake_string):
* alloc.c (vars_of_alloc):
* bytecode.c (UNUSED):
* bytecode.c (Fbyte_code):
* chartab.c (decode_char_table_range):
* cmds.c (Fself_insert_command):
* data.c (check_integer_range):
* data.c (Fnatnump):
* data.c (Fnonnegativep):
* data.c (Fstring_to_number):
* elhash.c (hash_table_size_validate):
* elhash.c (decode_hash_table_size):
* eval.c (Fbacktrace_frame):
* event-stream.c (lisp_number_to_milliseconds):
* event-stream.c (Faccept_process_output):
* event-stream.c (Frecent_keys):
* event-stream.c (Fdispatch_event):
* events.c (Fmake_event):
* events.c (Fevent_timestamp):
* events.c (Fevent_timestamp_lessp):
* events.h:
* events.h (struct command_builder):
* file-coding.c (gzip_putprop):
* fns.c:
* fns.c (check_sequence_range):
* fns.c (Frandom):
* fns.c (Fnthcdr):
* fns.c (Flast):
* fns.c (Fnbutlast):
* fns.c (Fbutlast):
* fns.c (Fmember):
* fns.c (Ffill):
* fns.c (Freduce):
* fns.c (replace_string_range_1):
* fns.c (Freplace):
* font-mgr.c (Ffc_pattern_get):
* frame-msw.c (msprinter_set_frame_properties):
* glyphs.c (check_valid_xbm_inline):
* indent.c (Fmove_to_column):
* intl-win32.c (mswindows_multibyte_to_unicode_putprop):
* lisp.h:
* lisp.h (ARRAY_DIMENSION_LIMIT):
* lread.c (decode_mode_1):
* mule-ccl.c (ccl_get_compiled_code):
* number.h:
* process-unix.c (unix_open_multicast_group):
* process.c (Fset_process_window_size):
* profile.c (Fstart_profiling):
* unicode.c (Funicode_to_char):
Change NATNUMP to return 1 for positive bignums; changes uses of
it and of CHECK_NATNUM appropriately, usually by checking for an
integer in an appropriate range.
Add array-dimension-limit and use it in #'make-vector,
#'make-string. Add array-total-size-limit, array-rank-limit while
we're at it, for the sake of any Common Lisp-oriented code that
uses these limits.
Rename check_int_range to check_integer_range, have it take
Lisp_Objects (and thus bignums) instead.
Remove bignum_butlast(), just set int_n to an appropriately large
integer if N is a bignum.
Accept bignums in check_sequence_range(), change the functions
that use check_sequence_range() appropriately.
Move the definition of NATNUMP() to number.h; document why it's a
reasonable name, contradicting an old comment.
tests/ChangeLog addition:
2010-11-20 Aidan Kehoe <kehoea@parhasard.net>
* automated/lisp-tests.el:
* automated/lisp-tests.el (featurep):
* automated/lisp-tests.el (wrong-type-argument):
* automated/mule-tests.el (featurep):
Check for args-out-of-range errors instead of wrong-type-argument
errors in various places when code is handed a large bignum
instead of a fixnum.
Also check for the wrong-type-argument errors when giving the same
code a non-integer value.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sat, 20 Nov 2010 16:49:11 +0000 |
| parents | 8b2f75cecb89 |
| children | 308d34e9f07d |
| rev | line source |
|---|---|
| 617 | 1 /* Definitions of marked slots in consoles |
| 2 Copyright (C) 1990, 1992, 1993 Free Software Foundation, Inc. | |
| 872 | 3 Copyright (C) 2002 Ben Wing. |
| 617 | 4 |
| 5 This file is part of XEmacs. | |
| 6 | |
| 7 XEmacs is free software; you can redistribute it and/or modify it | |
| 8 under the terms of the GNU General Public License as published by the | |
| 9 Free Software Foundation; either version 2, or (at your option) any | |
| 10 later version. | |
| 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 | |
| 18 along with XEmacs; see the file COPYING. If not, write to | |
| 19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
| 20 Boston, MA 02111-1307, USA. */ | |
| 21 | |
| 22 /* Synched up with: Not in FSF. */ | |
| 23 | |
| 24 /* We define the Lisp_Objects in the device structure in a separate file | |
| 25 because there are numerous places we want to iterate over them, such | |
| 26 as when defining them in the structure, initializing them, or marking | |
| 27 them. | |
| 28 | |
| 1204 | 29 To use, define MARKED_SLOT before including this file. No need to |
| 30 undefine; that happens automatically. */ | |
| 617 | 31 |
| 32 /* Name of this device, for resourcing and printing purposes. | |
| 33 If not explicitly given, it's initialized in a device-specific | |
| 34 manner. */ | |
| 1204 | 35 MARKED_SLOT (name) |
| 617 | 36 |
| 37 /* What this device is connected to */ | |
| 1204 | 38 MARKED_SLOT (connection) |
| 617 | 39 |
| 40 /* A canonical name for the connection that is used to determine | |
| 41 whether `make-device' is being called on an existing device. */ | |
| 1204 | 42 MARKED_SLOT (canon_connection) |
| 617 | 43 |
| 44 /* List of frames on this device. */ | |
| 1204 | 45 MARKED_SLOT (frame_list) |
| 617 | 46 |
| 47 /* The console this device is on. */ | |
| 1204 | 48 MARKED_SLOT (console) |
| 617 | 49 |
| 50 /* Frame which is "currently selected". This is what `selected-frame' | |
| 51 returns and is the default frame for many operations. This may | |
| 1204 | 52 not be the same as frame_with_focus `select-frame' changes the |
| 617 | 53 selected_frame but not the frame_with_focus. However, eventually |
| 54 either the two values will be the same, or frame_with_focus will | |
| 55 be nil: right before waiting for an event, the focus is changed | |
| 56 to point to the selected_frame if XEmacs currently has the focus | |
| 57 on this device. Note that frame_with_focus may be nil (none of the | |
| 58 frames on this device have the window-system focus), but | |
| 59 selected_frame will never be nil if there are any frames on | |
| 60 the device. */ | |
| 1204 | 61 MARKED_SLOT (selected_frame) |
| 617 | 62 /* Frame that currently contains the window-manager focus, or none. |
| 63 Note that we've split frame_with_focus into two variables. | |
| 64 frame_with_focus_real is the value we use most of the time, | |
| 65 but frame_with_focus_for_hooks is used for running the select-frame-hook | |
| 66 and deselect-frame-hook. We do this because we split the focus handling | |
| 67 into two parts: one part (deals with drawing the solid/box cursor) | |
| 1204 | 68 runs as soon as a focus event is received the other (running the |
| 617 | 69 hooks) runs after any pending sit-for/sleep-for/accept-process-output |
| 70 calls are done. */ | |
| 1204 | 71 MARKED_SLOT (frame_with_focus_real) |
| 72 MARKED_SLOT (frame_with_focus_for_hooks) | |
| 617 | 73 /* If we have recently issued a request to change the focus as a |
| 74 result of select-frame having been called, the following variable | |
| 75 records the frame we are trying to focus on. The reason for this | |
| 76 is that the window manager may not grant our request to change | |
| 77 the focus (so we can't just change frame_with_focus), and we don't | |
| 78 want to keep sending requests again and again to the window manager. | |
| 79 This variable is reset whenever a focus-change event is seen. */ | |
| 1204 | 80 MARKED_SLOT (frame_that_ought_to_have_focus) |
| 617 | 81 |
| 82 /* Color class of this device. */ | |
| 1204 | 83 MARKED_SLOT (device_class) |
| 617 | 84 |
| 85 /* Alist of values for user-defined tags in this device. */ | |
| 1204 | 86 MARKED_SLOT (user_defined_tags) |
| 617 | 87 |
| 88 /* Hash tables for device-specific objects (fonts, colors, etc). | |
| 89 These are key-weak hash tables (or hash tables containing key-weak | |
| 90 hash tables) so that they disappear when the key goes away. */ | |
| 91 | |
| 92 /* This is a simple key-weak hash table hashing color names to | |
| 93 instances. */ | |
| 1204 | 94 MARKED_SLOT (color_instance_cache) |
| 617 | 95 |
| 96 /* This is a simple key-weak hash table hashing font names to | |
| 97 instances. */ | |
| 1204 | 98 MARKED_SLOT (font_instance_cache) |
| 617 | 99 |
| 100 #ifdef MULE | |
| 101 /* This is a bi-level cache, where the hash table in this slot here | |
| 102 indexes charset objects to key-weak hash tables, which in turn | |
| 103 index font names to more specific font names that match the | |
| 104 given charset's registry. This speeds up the horrendously | |
| 105 slow XListFonts() operation that needs to be done in order | |
| 106 to determine an appropriate font. */ | |
| 1204 | 107 MARKED_SLOT (charset_font_cache_stage_1) |
| 872 | 108 |
|
5176
8b2f75cecb89
rename objects* (.c, .h and .el files) to fontcolor*
Ben Wing <ben@xemacs.org>
parents:
1204
diff
changeset
|
109 /* Similar cache for stage 2, if it exists. See fontcolor.c. */ |
| 1204 | 110 MARKED_SLOT (charset_font_cache_stage_2) |
| 617 | 111 #endif |
| 112 | |
| 113 /* This is a bi-level cache, where the hash table in this slot here | |
| 114 indexes image-instance-type masks (there are currently 6 | |
| 115 image-instance types and thus 64 possible masks) to key-weak hash | |
| 116 tables like the one for colors. */ | |
| 1204 | 117 MARKED_SLOT (image_instance_cache) |
| 617 | 118 |
| 119 #undef MARKED_SLOT |