Mercurial > hg > xemacs-beta
annotate lwlib/lwlib-internal.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 | ba07c880114a |
children | ade4c7e2c6cb |
rev | line source |
---|---|
4894
03ab78e48ef6
Add copyright and license information based on Ben's recollections.
Jerry James <james@xemacs.org>
parents:
3025
diff
changeset
|
1 /* Implementation-specific definitions for the Lucid Widget Library. |
03ab78e48ef6
Add copyright and license information based on Ben's recollections.
Jerry James <james@xemacs.org>
parents:
3025
diff
changeset
|
2 Copyright (C) 1992 Lucid, Inc. |
03ab78e48ef6
Add copyright and license information based on Ben's recollections.
Jerry James <james@xemacs.org>
parents:
3025
diff
changeset
|
3 Copyright (C) 2000 Ben Wing. |
03ab78e48ef6
Add copyright and license information based on Ben's recollections.
Jerry James <james@xemacs.org>
parents:
3025
diff
changeset
|
4 |
03ab78e48ef6
Add copyright and license information based on Ben's recollections.
Jerry James <james@xemacs.org>
parents:
3025
diff
changeset
|
5 This file is part of the Lucid Widget Library. |
03ab78e48ef6
Add copyright and license information based on Ben's recollections.
Jerry James <james@xemacs.org>
parents:
3025
diff
changeset
|
6 |
03ab78e48ef6
Add copyright and license information based on Ben's recollections.
Jerry James <james@xemacs.org>
parents:
3025
diff
changeset
|
7 The Lucid Widget Library is free software; you can redistribute it and/or |
03ab78e48ef6
Add copyright and license information based on Ben's recollections.
Jerry James <james@xemacs.org>
parents:
3025
diff
changeset
|
8 modify it under the terms of the GNU General Public License as published by |
03ab78e48ef6
Add copyright and license information based on Ben's recollections.
Jerry James <james@xemacs.org>
parents:
3025
diff
changeset
|
9 the Free Software Foundation; either version 1, or (at your option) |
03ab78e48ef6
Add copyright and license information based on Ben's recollections.
Jerry James <james@xemacs.org>
parents:
3025
diff
changeset
|
10 any later version. |
03ab78e48ef6
Add copyright and license information based on Ben's recollections.
Jerry James <james@xemacs.org>
parents:
3025
diff
changeset
|
11 |
03ab78e48ef6
Add copyright and license information based on Ben's recollections.
Jerry James <james@xemacs.org>
parents:
3025
diff
changeset
|
12 The Lucid Widget Library is distributed in the hope that it will be useful, |
03ab78e48ef6
Add copyright and license information based on Ben's recollections.
Jerry James <james@xemacs.org>
parents:
3025
diff
changeset
|
13 but WITHOUT ANY WARRANTY; without even the implied warranty of |
03ab78e48ef6
Add copyright and license information based on Ben's recollections.
Jerry James <james@xemacs.org>
parents:
3025
diff
changeset
|
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
03ab78e48ef6
Add copyright and license information based on Ben's recollections.
Jerry James <james@xemacs.org>
parents:
3025
diff
changeset
|
15 GNU General Public License for more details. |
03ab78e48ef6
Add copyright and license information based on Ben's recollections.
Jerry James <james@xemacs.org>
parents:
3025
diff
changeset
|
16 |
03ab78e48ef6
Add copyright and license information based on Ben's recollections.
Jerry James <james@xemacs.org>
parents:
3025
diff
changeset
|
17 You should have received a copy of the GNU General Public License |
03ab78e48ef6
Add copyright and license information based on Ben's recollections.
Jerry James <james@xemacs.org>
parents:
3025
diff
changeset
|
18 along with XEmacs; see the file COPYING. If not, write to |
5231
ba07c880114a
Fix up FSF's Franklin Street address in many files.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4894
diff
changeset
|
19 the Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor, |
4894
03ab78e48ef6
Add copyright and license information based on Ben's recollections.
Jerry James <james@xemacs.org>
parents:
3025
diff
changeset
|
20 Boston, MA 02110-1301, USA. */ |
03ab78e48ef6
Add copyright and license information based on Ben's recollections.
Jerry James <james@xemacs.org>
parents:
3025
diff
changeset
|
21 |
440 | 22 #ifndef INCLUDED_lwlib_internal_h_ |
23 #define INCLUDED_lwlib_internal_h_ | |
428 | 24 |
25 #include "lwlib.h" | |
26 | |
448 | 27 #ifdef USE_ASSERTIONS |
28 /* Highly dubious kludge */ | |
29 /* (thanks, Jamie, I feel better now -- ben) */ | |
1650 | 30 EXTERN_C void assert_failed (const char *, int, const char *); |
448 | 31 # define abort() (assert_failed (__FILE__, __LINE__, "abort()")) |
3025 | 32 # define assert(x) ((x) ? (void) 0 : assert_failed (__FILE__, __LINE__, #x)) |
448 | 33 #else |
34 # ifdef DEBUG_XEMACS | |
3025 | 35 # define assert(x) ((x) ? (void) 0 : (void) abort ()) |
448 | 36 # else |
3025 | 37 # define assert(x) ((void) 0) |
448 | 38 # endif |
39 #endif | |
40 | |
428 | 41 /* This represents a single widget within a widget tree. All the |
42 widgets in a widget tree are chained through the `next' field. | |
43 `info' is a back pointer to the widget tree. */ | |
44 | |
45 typedef struct _widget_instance | |
46 { | |
47 Widget widget; | |
48 Widget parent; | |
49 Boolean pop_up_p; | |
50 struct _widget_info* info; | |
51 struct _widget_instance* next; | |
52 } widget_instance; | |
53 | |
54 /* This represents a single widget tree, such as a single menubar. | |
55 The global variable `all_widget_info' lists all widget trees, | |
56 chained through the `next' field of this structure. */ | |
57 | |
58 typedef struct _widget_info | |
59 { | |
60 char* type; | |
61 char* name; | |
62 LWLIB_ID id; | |
63 widget_value* val; | |
64 Boolean busy; | |
65 lw_callback pre_activate_cb; | |
66 lw_callback selection_cb; | |
67 lw_callback post_activate_cb; | |
68 struct _widget_instance* instances; | |
69 struct _widget_info* next; | |
70 } widget_info; | |
71 | |
72 typedef Widget | |
73 (*widget_creation_function) (widget_instance* instance); | |
74 | |
75 typedef struct _widget_creation_entry | |
76 { | |
442 | 77 const char* type; |
428 | 78 widget_creation_function function; |
79 } widget_creation_entry; | |
80 | |
81 /* update all other instances of a widget. Can be used in a callback when | |
442 | 82 a widget has been used by the user */ |
428 | 83 void |
84 lw_internal_update_other_instances (Widget widget, XtPointer closure, | |
85 XtPointer call_data); | |
86 | |
87 /* get the widget_value for a widget in a given instance */ | |
88 widget_value* | |
89 lw_get_widget_value_for_widget (widget_instance* instance, Widget w); | |
90 | |
91 widget_info *lw_get_widget_info (LWLIB_ID id); | |
92 | |
440 | 93 #endif /* INCLUDED_lwlib_internal_h_ */ |