xemacs-beta: src/lisp.h annotate

annotate src/lisp.h @ 5664:00fd55d635fb

Sync #'truncate-string-to-width with GNU, add tests for it. lisp/ChangeLog addition: 2012-05-12 Aidan Kehoe <kehoea@parhasard.net> * subr.el: * subr.el (truncate-string-to-width): Sync with GNU's version, use its test suite in mule-tests.el. tests/ChangeLog addition: 2012-05-12 Aidan Kehoe <kehoea@parhasard.net> * automated/mule-tests.el: Test #'truncate-string-to-width, thank you Colin Walters.

author	Aidan Kehoe <kehoea@parhasard.net>
date	Sat, 12 May 2012 17:51:05 +0100
parents	2014ff433daf
children	a81a739181dc

rev	line source
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1 /* Fundamental definitions for XEmacs Lisp interpreter.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2 Copyright (C) 1985-1987, 1992-1995 Free Software Foundation, Inc.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3 Copyright (C) 1993-1996 Richard Mlynarik.
4843 715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	4 Copyright (C) 1995, 1996, 2000-2005, 2009, 2010 Ben Wing.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	6 This file is part of XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	7
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5280 diff changeset	8 XEmacs is free software: you can redistribute it and/or modify it
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	9 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: 5280 diff changeset	10 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: 5280 diff changeset	11 option) any later version.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	12
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	13 XEmacs is distributed in the hope that it will be useful, but WITHOUT
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	16 for more details.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	17
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	18 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: 5280 diff changeset	19 along with XEmacs. If not, see <http://www.gnu.org/licenses/>. */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	20
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	21 /* Synched up with: FSF 19.30. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	22
5023 838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	23 #ifndef INCLUDED_lisp_h_
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	24 #define INCLUDED_lisp_h_
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	25
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	26 /* Authorship:
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	27
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	28 Based on code from pre-release FSF 19, c. 1991.
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	29 Various changes by Jamie Zawinski 1991-1994:
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	30 converting to ANSI C, splitting out function prototypes to a separate
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	31 file (later moved back for unknown reasons by Steve Baur?), debug-gcpro
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	32 stuff (now moribund).
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	33 ANSI-fication of DEFUN macros by Felix Lee, c. 1992?
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	34 NOT_REACHED, DOESNT_RETURN, PRINTF_ARGS by Richard Mlynarik, c. 1994.
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	35 Many changes over the years corresponding to Lisp_Object definition
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	36 changes, esp. by Richard Mlynarik (c. 1993) and Kyle Jones (c. 1998).
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	37 See alloc.c for more details.
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	38 Overhauled and reordered by Ben Wing, 1995-1996, and many things added:
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	39 Dynarrs, REALLOC macros, asserts, typedefs, inline header code,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	40 first LIST_LOOP macros, CONCHECK_*, all error-checking code
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	41 (e.g. error-checking versions of XFOO macros), structure read syntax,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	42 weak lists, lcrecord lists, reworking of quit handling, object hashing,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	43 nested GCPRO, character objects and Ebola checking, memory usage stats,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	44 others.
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	45 LOADHIST changes from Steve Baur, c. 1997?
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	46 Various macro-related changes by Martin Buchholz, 1998-1999:
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	47 LIST_LOOP macros greatly expanded and tortoise-hared;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	48 RETURN_SANS_WARNINGS; reworked DEFUN macros; EXFUN macros (???).
1743 543769b89fed [xemacs-hg @ 2003-10-14 05:02:57 by james] james parents: 1726 diff changeset	49 Various macro-related changes by Jerry James, 2003:
543769b89fed [xemacs-hg @ 2003-10-14 05:02:57 by james] james parents: 1726 diff changeset	50 MODULE_API introduced;
543769b89fed [xemacs-hg @ 2003-10-14 05:02:57 by james] james parents: 1726 diff changeset	51 Compiler-specific definitions modernized and moved to compiler.h.
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	52 */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	53
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	54 /* Conventions in comments:
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	55
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	56 "Mule-izing" is the process of going through a file and eliminating
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	57 assumptions that the internal format (Ibyte * text) is the same as the
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	58 external format used by library routines. Mule-ization should also
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	59 include replacing ALL raw references to `char' or `unsigned char' with
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	60 one of the self-documenting types created below. How exactly to do the
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	61 conversion, and how to write correctly Mule-ized code, is described in
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	62 the internals manual. Files that say "This file is Mule-ized" have
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	63 been reviewed at some point; that's not to say that incorrect code hasn't
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	64 crept in, though.
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	65
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	66 "Unicode-splitting" is the process of fixing a file so that it will
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	67 handle external text in Unicode under Microsoft Windows, as appropriate.
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	68 ("splitting" because it needs to handle either Unicode or variable-width
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	69 multibyte depending on the OS -- NT or 9x). See intl-win32.c.
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	70
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	71 #### is a way of marking problems of any sort.
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	72
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	73 !!#### marks places that are not properly Mule-ized.
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	74
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	75 &&#### marks places that need to be fixed in order for the "8-bit mule"
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	76 conversion to work correctly, i.e. in order to support multiple different
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	77 buffer formats under Mule, including a fixed 8-bit format.
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	78
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	79 ^^#### marks places that need to be fixed in order to eliminate the
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	80 assumption that Ibyte * text is composed of 1-byte units (e.g. UTF-16
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	81 is composed of 2-byte units and might be a possible format to consider
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	82 for Ibyte * text).
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	83
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	84 %%#### marks places that need work for KKCC (the new garbage collector).
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	85
5090 0ca81354c4c7 Further frame-geometry cleanups Ben Wing <ben@xemacs.org> parents: 5077 diff changeset	86 @@#### marks places that need work to get Unicode-internal working,
0ca81354c4c7 Further frame-geometry cleanups Ben Wing <ben@xemacs.org> parents: 5077 diff changeset	87 i.e. using UTF-8 as the internal text format.
0ca81354c4c7 Further frame-geometry cleanups Ben Wing <ben@xemacs.org> parents: 5077 diff changeset	88
0ca81354c4c7 Further frame-geometry cleanups Ben Wing <ben@xemacs.org> parents: 5077 diff changeset	89 #### BILL! marks places that need work for GTK.
0ca81354c4c7 Further frame-geometry cleanups Ben Wing <ben@xemacs.org> parents: 5077 diff changeset	90
0ca81354c4c7 Further frame-geometry cleanups Ben Wing <ben@xemacs.org> parents: 5077 diff changeset	91 #### GEOM! marks places needing work to fix various bugs in the handling
0ca81354c4c7 Further frame-geometry cleanups Ben Wing <ben@xemacs.org> parents: 5077 diff changeset	92 of window and frame sizing and positioning. Often the root of the
0ca81354c4c7 Further frame-geometry cleanups Ben Wing <ben@xemacs.org> parents: 5077 diff changeset	93 problems is that the code was originally written before there was a
0ca81354c4c7 Further frame-geometry cleanups Ben Wing <ben@xemacs.org> parents: 5077 diff changeset	94 gutter and then not completely fixed up to accommodate the gutter.
0ca81354c4c7 Further frame-geometry cleanups Ben Wing <ben@xemacs.org> parents: 5077 diff changeset	95
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	96 */
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	97
5023 838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	98 /************************************************************************/
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	99 /* include files */
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	100 /************************************************************************/
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	101
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	102 /* We include the following generally useful header files so that you
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	103 don't have to worry about prototypes when using the standard C
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	104 library functions and macros. These files shouldn't be excessively
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	105 large so they shouldn't cause that much of a slowdown. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	106
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	107 #include <stdlib.h>
5016 2ade80e8c640 enable more warnings and fix them Ben Wing <ben@xemacs.org> parents: 5015 diff changeset	108 /* Evil, but ... -Wshadow is genuinely useful but also leads to spurious
2ade80e8c640 enable more warnings and fix them Ben Wing <ben@xemacs.org> parents: 5015 diff changeset	109 warnings when you have a local var named `index'. Avoid this by
2ade80e8c640 enable more warnings and fix them Ben Wing <ben@xemacs.org> parents: 5015 diff changeset	110 hacking around it. */
2ade80e8c640 enable more warnings and fix them Ben Wing <ben@xemacs.org> parents: 5015 diff changeset	111 #define index old_index
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	112 #include <string.h> /* primarily for memcpy, etc. */
5016 2ade80e8c640 enable more warnings and fix them Ben Wing <ben@xemacs.org> parents: 5015 diff changeset	113 #undef index
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	114 #include <stdio.h> /* NULL, etc. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	115 #include <ctype.h>
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	116 #include <stdarg.h>
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	117 #include <stddef.h> /* offsetof */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	118 #include <sys/types.h>
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	119 #include <limits.h>
5191 71ee43b8a74d Add #'equalp as a hash test by default; add #'define-hash-table-test, GNU API Aidan Kehoe <kehoea@parhasard.net> parents: 5190 diff changeset	120 #include <math.h>
4932 8b63e21b0436 fix compile issues with gcc 4 Ben Wing <ben@xemacs.org> parents: 4929 diff changeset	121 #ifdef __cplusplus
8b63e21b0436 fix compile issues with gcc 4 Ben Wing <ben@xemacs.org> parents: 4929 diff changeset	122 #include <limits> /* necessary for max()/min() under G++ 4 */
8b63e21b0436 fix compile issues with gcc 4 Ben Wing <ben@xemacs.org> parents: 4929 diff changeset	123 #endif
8b63e21b0436 fix compile issues with gcc 4 Ben Wing <ben@xemacs.org> parents: 4929 diff changeset	124
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	125
5023 838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	126 /************************************************************************/
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	127 /* error checking */
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	128 /************************************************************************/
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	129
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	130 /* ------------------------- large categories ------------------------- */
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	131
4843 715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	132 /* How these work:
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	133
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	134 The most common classes will be `text' and `type', followed by `structure'.
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	135 `text' is for problems related to bad textual format. `type' is for
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	136 problems related to wrongly typed arguments, structure fields, etc.
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	137 `structure' is for bad data inside of a structure. Sometimes these are
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	138 used "incorrectly", e.g. `type' is often used for structure-checking.
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	139 Consider `text':
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	140
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	141 `text_checking_assert() will assert() only when ERROR_CHECK_TEXT is defined;
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	142 otherwise it's a no-op. text_checking_assert_at_line() is similar, but
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	143 allows you to override the file name and line number normally supplied in
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	144 the message. This is especially useful in inline header functions, and
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	145 so there's a special inline_text_checking_assert() for this; this works
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	146 like text_checking_assert() but supplies the file and line of the calling
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	147 function. In order for this to work, you need to declare your inline
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	148 function with INLINE_TEXT_CHECK_ARGS at the end of its argument list,
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	149 and give its function name a _1 extension or similar. Then create a
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	150 macro that calls your inline function and includes INLINE_TEXT_CHECK_CALL
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	151 at the end of the parameter list. This will arrange to pass in and receive
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	152 the file and line (__FILE__, __LINE__) at place where the call occurs in
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	153 the calling function; but nothing will get passed in when ERROR_CHECK_TEXT
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	154 is not defined.
5023 838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	155
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	156 Currently the full bevy of foo_checking_assert macros are defined only
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	157 for `text' and `types'; for others, only the basic foo_checking_assert()
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	158 macro is defined. Writing out all the variations for all possible error
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	159 categories would produce too much clutter. If any of these become
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	160 needed, they can always be defined. */
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	161
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	162 /* #### I suggest revamping these and making proper use of the
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	163 category/subcategory system. Here is one proposal:
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	164
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	165 Major category Minor categories
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	166 --------------------------------
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	167 Allocation
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	168 Malloc
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	169 Dynarr
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	170
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	171 Display
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	172 Extents
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	173 Glyphs
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	174 Redisplay
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	175
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	176 Execution
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	177 Byte-Code
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	178 Catch
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	179 Garbage Collection
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	180 Trapping-Problems
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	181
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	182 Lisp Objects
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	183 Buffers
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	184 Char Tables
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	185 Events
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	186 Lstreams
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	187 Hash Tables
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	188 Range Tables
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	189
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	190 Types
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	191 Lrecord Types
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	192 Subtypes
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	193
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	194 Text
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	195 Byte Positions
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	196 Conversion
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	197 Eistrings
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	198 Itext
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	199 Lisp Strings
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	200
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	201 --ben
4843 715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	202 */
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	203
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	204
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	205 #define INLINE_ERROR_CHECK_ARGS , const char *__file__, int __line__
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	206 #define INLINE_ERROR_CHECK_CALL , __FILE__, __LINE__
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	207 #define DISABLED_INLINE_ERROR_CHECK_ARGS
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	208 #define DISABLED_INLINE_ERROR_CHECK_CALL
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	209
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	210 /* For assertions in inline header functions which will report the file and
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	211 line of the calling function */
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	212 #define inline_assert(assertion) assert_at_line (assertion, __file__, __line__)
5021 4e784bfabae7 fix bad defn of disabled inline assert Ben Wing <ben@xemacs.org> parents: 5020 diff changeset	213 /* The following should not use disabled_assert_at_line() because when the
4e784bfabae7 fix bad defn of disabled inline assert Ben Wing <ben@xemacs.org> parents: 5020 diff changeset	214 inline assert is disabled, params __file__ and __line__ do not exist. */
4e784bfabae7 fix bad defn of disabled inline assert Ben Wing <ben@xemacs.org> parents: 5020 diff changeset	215 #define disabled_inline_assert(assertion) disabled_assert (assertion)
4843 715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	216
5023 838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	217 /* ------- the specific categories -------- */
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	218
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	219 #if defined (ERROR_CHECK_BYTE_CODE) \|\| defined (ERROR_CHECK_DISPLAY) \|\| defined (ERROR_CHECK_EXTENTS) \|\| defined (ERROR_CHECK_GC) \|\| defined (ERROR_CHECK_GLYPHS) \|\| defined (ERROR_CHECK_MALLOC) \|\| defined (ERROR_CHECK_STRUCTURES) \|\| defined (ERROR_CHECK_TEXT) \|\| defined (ERROR_CHECK_TYPES)
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	220 #define ERROR_CHECK_ANY
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	221 #endif
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	222
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	223 /* KEEP THESE SORTED! */
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	224
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	225 #ifdef ERROR_CHECK_BYTE_CODE
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	226 #define byte_code_checking_assert(assertion) assert (assertion)
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	227 #else /* not ERROR_CHECK_BYTE_CODE */
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	228 #define byte_code_checking_assert(assertion) disabled_assert (assertion)
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	229 #endif /* ERROR_CHECK_BYTE_CODE */
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	230
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	231 #ifdef ERROR_CHECK_DISPLAY
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	232 #define display_checking_assert(assertion) assert (assertion)
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	233 #else /* not ERROR_CHECK_DISPLAY */
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	234 #define display_checking_assert(assertion) disabled_assert (assertion)
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	235 #endif /* ERROR_CHECK_DISPLAY */
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	236
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	237 #ifdef ERROR_CHECK_EXTENTS
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	238 #define extent_checking_assert(assertion) assert (assertion)
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	239 #else /* not ERROR_CHECK_EXTENTS */
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	240 #define extent_checking_assert(assertion) disabled_assert (assertion)
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	241 #endif /* ERROR_CHECK_EXTENTS */
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	242
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	243 #ifdef ERROR_CHECK_GC
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	244 #define gc_checking_assert(assertion) assert (assertion)
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	245 #else /* not ERROR_CHECK_GC */
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	246 #define gc_checking_assert(assertion) disabled_assert (assertion)
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	247 #endif /* ERROR_CHECK_GC */
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	248
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	249 #ifdef ERROR_CHECK_GLYPHS
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	250 #define glyph_checking_assert(assertion) assert (assertion)
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	251 #else /* not ERROR_CHECK_GLYPHS */
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	252 #define glyph_checking_assert(assertion) disabled_assert (assertion)
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	253 #endif /* ERROR_CHECK_GLYPHS */
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	254
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	255 #ifdef ERROR_CHECK_MALLOC
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	256 #define malloc_checking_assert(assertion) assert (assertion)
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	257 #else /* not ERROR_CHECK_MALLOC */
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	258 #define malloc_checking_assert(assertion) disabled_assert (assertion)
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	259 #endif /* ERROR_CHECK_MALLOC */
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	260
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	261 #ifdef ERROR_CHECK_STRUCTURES
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	262 #define structure_checking_assert(assertion) assert (assertion)
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	263 #else /* not ERROR_CHECK_STRUCTURES */
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	264 #define structure_checking_assert(assertion) disabled_assert (assertion)
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	265 #endif /* ERROR_CHECK_STRUCTURES */
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	266
4843 715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	267 #ifdef ERROR_CHECK_TEXT
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	268 #define text_checking_assert(assertion) assert (assertion)
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	269 #define text_checking_assert_at_line(assertion, file, line) \
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	270 assert_at_line (assertion, file, line)
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	271 #define inline_text_checking_assert(assertion) inline_assert (assertion)
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	272 #define INLINE_TEXT_CHECK_ARGS INLINE_ERROR_CHECK_ARGS
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	273 #define INLINE_TEXT_CHECK_CALL INLINE_ERROR_CHECK_CALL
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	274 #define text_checking_assert_with_message(assertion, msg) \
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	275 assert_with_message (assertion, msg)
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	276 #else /* not ERROR_CHECK_TEXT */
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	277 #define text_checking_assert(assertion) disabled_assert (assertion)
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	278 #define text_checking_assert_at_line(assertion, file, line) \
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	279 disabled_assert_at_line (assertion, file, line)
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	280 #define inline_text_checking_assert(assertion) \
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	281 disabled_inline_assert (assertion)
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	282 #define INLINE_TEXT_CHECK_ARGS DISABLED_INLINE_ERROR_CHECK_ARGS
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	283 #define INLINE_TEXT_CHECK_CALL DISABLED_INLINE_ERROR_CHECK_CALL
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	284 #define text_checking_assert_with_message(assertion, msg) \
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	285 disabled_assert_with_message (assertion, msg)
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	286 #endif /* ERROR_CHECK_TEXT */
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	287
1318 b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	288 #ifdef ERROR_CHECK_TYPES
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	289 #define type_checking_assert(assertion) assert (assertion)
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	290 #define type_checking_assert_at_line(assertion, file, line) \
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	291 assert_at_line (assertion, file, line)
4843 715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	292 #define inline_type_checking_assert(assertion) inline_assert (assertion)
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	293 #define INLINE_TYPE_CHECK_ARGS INLINE_ERROR_CHECK_ARGS
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	294 #define INLINE_TYPE_CHECK_CALL INLINE_ERROR_CHECK_CALL
1318 b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	295 #define type_checking_assert_with_message(assertion, msg) \
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	296 assert_with_message (assertion, msg)
4843 715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	297 #else /* not ERROR_CHECK_TYPES */
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	298 #define type_checking_assert(assertion) disabled_assert (assertion)
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	299 #define type_checking_assert_at_line(assertion, file, line) \
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	300 disabled_assert_at_line (assertion, file, line)
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	301 #define inline_type_checking_assert(assertion) \
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	302 disabled_inline_assert (assertion)
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	303 #define INLINE_TYPE_CHECK_ARGS DISABLED_INLINE_ERROR_CHECK_ARGS
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	304 #define INLINE_TYPE_CHECK_CALL DISABLED_INLINE_ERROR_CHECK_CALL
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	305 #define type_checking_assert_with_message(assertion, msg) \
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	306 disabled_assert_with_message (assertion, msg)
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	307 #endif /* ERROR_CHECK_TYPES */
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	308
5023 838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	309 /* ------------------------- small categories ------------------------- */
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	310
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	311 /* The large categories established by configure can be subdivided into
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	312 smaller subcategories, for problems in specific modules. You can't
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	313 control this using configure, but you can manually stick in a define as
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	314 necessary.
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	315
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	316 The idea is to go ahead and create a new type of error-checking and
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	317 have it turned on if the larger category it is a part of is also
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	318 turned on. For example, ERROR_CHECK_DYNARR is considered a subcategory
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	319 of ERROR_CHECK_STRUCTURES.
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	320
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	321 We also define foo_checking_assert() macros for convenience, but
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	322 generally don't define the many variations of this macro as for the
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	323 major types above, because it produces too much clutter. If any of
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	324 these become needed, they can always be defined. */
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	325
4843 715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	326 #ifdef ERROR_CHECK_STRUCTURES
5023 838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	327 /* Check for problems with the catch list and specbind stack */
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	328 #define ERROR_CHECK_CATCH
5038 9410323e4b0d major dynarr fixes Ben Wing <ben@xemacs.org> parents: 5023 diff changeset	329 /* Check for incoherent dynarr structures, attempts to access Dynarr
9410323e4b0d major dynarr fixes Ben Wing <ben@xemacs.org> parents: 5023 diff changeset	330 positions out of range, reentrant use of dynarrs through dynarr locking,
5023 838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	331 etc. */
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	332 #define ERROR_CHECK_DYNARR
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	333 /* Check for insufficient use of call_trapping_problems(), particularly
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	334 due to glyph-related changes causing eval or QUIT within redisplay */
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	335 #define ERROR_CHECK_TRAPPING_PROBLEMS
4843 715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	336 #endif /* ERROR_CHECK_STRUCTURES */
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	337
5023 838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	338 #ifdef ERROR_CHECK_CATCH
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	339 #define catch_checking_assert(assertion) assert (assertion)
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	340 #else /* not ERROR_CHECK_CATCH */
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	341 #define catch_checking_assert(assertion) disabled_assert (assertion)
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	342 #endif /* ERROR_CHECK_CATCH */
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	343
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	344 #ifdef ERROR_CHECK_DYNARR
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	345 #define dynarr_checking_assert(assertion) assert (assertion)
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	346 #else /* not ERROR_CHECK_DYNARR */
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	347 #define dynarr_checking_assert(assertion) disabled_assert (assertion)
838630c0734f error-checking, Windows shutdown changes Ben Wing <ben@xemacs.org> parents: 5021 diff changeset	348 #endif /* ERROR_CHECK_DYNARR */
4843 715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	349
1318 b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	350 #ifdef ERROR_CHECK_TRAPPING_PROBLEMS
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	351 #define trapping_problems_checking_assert(assertion) assert (assertion)
4843 715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	352 #else /* not ERROR_CHECK_TRAPPING_PROBLEMS */
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	353 #define trapping_problems_checking_assert(assertion) disabled_assert (assertion)
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	354 #endif /* ERROR_CHECK_TRAPPING_PROBLEMS */
1318 b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	355
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	356 /************************************************************************/
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	357 / Definitions of basic types /
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	358 /************************************************************************/
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	359
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	360 /* ------------- generic 8/16/32/64/128-bit integral types ------------ */
647 b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben] ben parents: 617 diff changeset	361
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	362 #if SIZEOF_SHORT == 2
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	363 #define INT_16_BIT short
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	364 #define UINT_16_BIT unsigned short
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	365 #elif SIZEOF_INT == 2
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	366 /* Bwa ha ha. As if XEmacs could actually support such systems. */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	367 #define INT_16_BIT int
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	368 #define UINT_16_BIT unsigned int
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	369 #else
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	370 #error Unable to find a 16-bit integral type
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	371 #endif
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	372
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	373 #if SIZEOF_INT == 4
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	374 #define INT_32_BIT int
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	375 #define UINT_32_BIT unsigned int
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	376 #define MAKE_32_BIT_UNSIGNED_CONSTANT(num) num##U
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	377 #elif SIZEOF_LONG == 4
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	378 /* Bwa ha ha again. */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	379 #define INT_32_BIT long
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	380 #define UINT_32_BIT unsigned long
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	381 #define MAKE_32_BIT_UNSIGNED_CONSTANT(num) num##UL
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	382 #elif SIZEOF_SHORT == 4
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	383 /* And again. */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	384 #define INT_32_BIT short
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	385 #define UINT_32_BIT unsigned short
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	386 #define MAKE_32_BIT_UNSIGNED_CONSTANT(num) num##U
1429 969b7290edca [xemacs-hg @ 2003-04-24 05:33:43 by youngs] youngs parents: 1346 diff changeset	387 #elif 1 /* Unable to find a 32-bit integral type! */
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	388 #error What kind of strange-ass system are you running on?
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	389 #endif
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	390
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	391 #if SIZEOF_LONG == 8
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	392 #define INT_64_BIT long
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	393 #define UINT_64_BIT unsigned long
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	394 #define MAKE_64_BIT_UNSIGNED_CONSTANT(num) num##UL
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	395 #elif SIZEOF_LONG_LONG == 8
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	396 #define INT_64_BIT long long
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	397 #define UINT_64_BIT unsigned long long
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	398 #define MAKE_64_BIT_UNSIGNED_CONSTANT(num) num##ULL
4682 648f4a0dac3e Fix build problems on WIN32 platforms caused by the large image crash fix. Jerry James <james@xemacs.org> parents: 4678 diff changeset	399 #elif defined(WIN32_ANY)
648f4a0dac3e Fix build problems on WIN32 platforms caused by the large image crash fix. Jerry James <james@xemacs.org> parents: 4678 diff changeset	400 #define INT_64_BIT __int64
648f4a0dac3e Fix build problems on WIN32 platforms caused by the large image crash fix. Jerry James <james@xemacs.org> parents: 4678 diff changeset	401 #define UINT_64_BIT unsigned __int64
648f4a0dac3e Fix build problems on WIN32 platforms caused by the large image crash fix. Jerry James <james@xemacs.org> parents: 4678 diff changeset	402 #define MAKE_64_BIT_UNSIGNED_CONSTANT(num) num##UI64
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	403 /* No error otherwise; just leave undefined */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	404 #endif
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	405
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	406 #if SIZEOF_LONG_LONG == 16
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	407 #define INT_128_BIT long long
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	408 #define UINT_128_BIT unsigned long long
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	409 #define MAKE_128_BIT_UNSIGNED_CONSTANT(num) num##ULL
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	410 /* No error otherwise; just leave undefined */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	411 #endif
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	412
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	413 /* #### Fill this in for other systems */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	414 #if defined (INT_64_BIT) && !(defined (i386) \|\| defined (__i386__))
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	415 #define EFFICIENT_INT_64_BIT INT_64_BIT
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	416 #define EFFICIENT_UINT_64_BIT UINT_64_BIT
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	417 #endif
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	418
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	419 #if defined (INT_128_BIT)
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	420 #define EFFICIENT_INT_128_BIT INT_128_BIT
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	421 #define EFFICIENT_UINT_128_BIT UINT_128_BIT
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	422 #endif
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	423
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	424 #ifdef HAVE_INTTYPES_H
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	425 #include <inttypes.h>
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	426 #elif defined (HAVE_INTPTR_T_IN_SYS_TYPES_H)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	427 /* included elsewhere */
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	428 #elif SIZEOF_VOID_P == SIZEOF_INT
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	429 typedef int intptr_t;
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	430 typedef unsigned int uintptr_t;
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	431 #elif SIZEOF_VOID_P == SIZEOF_LONG
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	432 typedef long intptr_t;
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	433 typedef unsigned long uintptr_t;
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	434 #elif defined (SIZEOF_LONG_LONG) && SIZEOF_VOID_P == SIZEOF_LONG_LONG
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	435 typedef long long intptr_t;
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	436 typedef unsigned long long uintptr_t;
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	437 #else
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	438 /* Just pray. May break, may not. */
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	439 typedef long intptr_t;
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	440 typedef unsigned long uintptr_t;
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	441 #endif
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	442
3988 1227374e7199 [xemacs-hg @ 2007-05-26 18:28:19 by aidan] aidan parents: 3659 diff changeset	443 #if SIZEOF_VOID_P == 8
1227374e7199 [xemacs-hg @ 2007-05-26 18:28:19 by aidan] aidan parents: 3659 diff changeset	444 #define DEADBEEF_CONSTANT 0xCAFEBABEDEADBEEF
1227374e7199 [xemacs-hg @ 2007-05-26 18:28:19 by aidan] aidan parents: 3659 diff changeset	445 #elif SIZEOF_VOID_P == 4
1227374e7199 [xemacs-hg @ 2007-05-26 18:28:19 by aidan] aidan parents: 3659 diff changeset	446 #define DEADBEEF_CONSTANT 0xDEADBEEF
1227374e7199 [xemacs-hg @ 2007-05-26 18:28:19 by aidan] aidan parents: 3659 diff changeset	447 #else
1227374e7199 [xemacs-hg @ 2007-05-26 18:28:19 by aidan] aidan parents: 3659 diff changeset	448 #error "What size are your pointers, really?"
1227374e7199 [xemacs-hg @ 2007-05-26 18:28:19 by aidan] aidan parents: 3659 diff changeset	449 #endif /* SIZEOF_VOID_P == 8 */
1227374e7199 [xemacs-hg @ 2007-05-26 18:28:19 by aidan] aidan parents: 3659 diff changeset	450
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	451 /* ---------------------- definition of EMACS_INT --------------------- */
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	452
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	453 /* EMACS_INT is the underlying integral type into which a Lisp_Object must fit.
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	454 In particular, it must be large enough to contain a pointer.
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	455 config.h can override this, e.g. to use `long long' for bigger lisp ints.
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	456
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	457 #### In point of fact, it would NOT be a good idea for config.h to mess
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	458 with EMACS_INT. A lot of code makes the basic assumption that EMACS_INT
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	459 is the size of a pointer. */
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	460
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	461 #ifndef SIZEOF_EMACS_INT
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	462 # define SIZEOF_EMACS_INT SIZEOF_VOID_P
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	463 #endif
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	464
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	465 #ifndef EMACS_INT
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	466 # if SIZEOF_EMACS_INT == SIZEOF_LONG
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	467 # define EMACS_INT long
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	468 # elif SIZEOF_EMACS_INT == SIZEOF_INT
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	469 # define EMACS_INT int
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	470 # elif SIZEOF_EMACS_INT == SIZEOF_LONG_LONG
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	471 # define EMACS_INT long long
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	472 # else
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	473 # error Unable to determine suitable type for EMACS_INT
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	474 # endif
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	475 #endif
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	476
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	477 #ifndef EMACS_UINT
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	478 # define EMACS_UINT unsigned EMACS_INT
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	479 #endif
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	480
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	481 #define BITS_PER_EMACS_INT (SIZEOF_EMACS_INT * BITS_PER_CHAR)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	482
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	483 /* -------------------------- basic byte typedefs --------------------- */
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	484
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	485 /* The definitions we put here and in the next section use typedefs to
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	486 attribute specific meaning to types that by themselves are pretty
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	487 general.
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	488
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	489 REMEMBER! These typedefs are purely for documentation purposes; from
647 b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben] ben parents: 617 diff changeset	490 the C code's perspective, they are exactly equivalent to `char *',
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben] ben parents: 617 diff changeset	491 `unsigned char *', etc., so you can freely use them with library
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	492 functions declared as such.
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	493
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	494 (See also "Byte/Character Types" in text.c)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	495
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	496 The basic semantics for `char':
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	497
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	498 a) [Ibyte] pointer to internally-formatted text
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	499 b) [Extbyte] pointer to text in some external format, which can be
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	500 defined as all formats other than the internal one
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	501 c) [Ascbyte] pure ASCII text
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	502 d) [Binbyte] binary data that is not meant to be interpreted as text
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	503 e) [Rawbyte] general data in memory, where we don't care about whether
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	504 it's text or binary; often used when computing memory-
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	505 based/byte-based offsets of pointers
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	506 f) [Boolbyte] a zero or a one
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	507 g) [Bitbyte] a byte used for bit fields
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	508 h) [Chbyte] null-semantics `char *'; used when casting an argument to
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	509 an external API where the the other types may not be
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	510 appropriate
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	511
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	512
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	513 Prefixing codes:
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	514
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	515 C = plain char, when the base type is unsigned
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	516 U = unsigned
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	517 S = signed
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	518
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	519 Ideally, XEmacs code should NEVER directly use `char' or any type
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	520 derived from it. This is for Mule-cleanliness. If you find yourself
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	521 wanting or needing to use `char' and one of the above six semantics does
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	522 not apply, add a new type of semantics; don't use `char' directly.
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	523
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	524 See text.c under "Byte Types", and following sections.
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	525 */
647 b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben] ben parents: 617 diff changeset	526
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben] ben parents: 617 diff changeset	527 /* The data representing the text in a buffer is logically a set
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	528 of Ibytes, declared as follows. */
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	529
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	530 typedef unsigned char Ibyte;
647 b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben] ben parents: 617 diff changeset	531
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben] ben parents: 617 diff changeset	532 /* The following should be used when you are working with internal data
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben] ben parents: 617 diff changeset	533 but for whatever reason need to have it declared a "char *". Examples
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben] ben parents: 617 diff changeset	534 are function arguments whose values are most commonly literal strings,
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben] ben parents: 617 diff changeset	535 or where you have to apply a stdlib string function to internal data.
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben] ben parents: 617 diff changeset	536
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	537 In general, you should avoid this where possible and use Ascbyte if the
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	538 text is just ASCII (e.g. string literals) or otherwise Ibyte, for
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	539 consistency. For example, the new Mule workspace contains Ibyte
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	540 versions of the stdlib string functions. */
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	541
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	542 typedef char CIbyte;
647 b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben] ben parents: 617 diff changeset	543
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben] ben parents: 617 diff changeset	544 /* The data representing a string in "external" format (binary or any
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben] ben parents: 617 diff changeset	545 external encoding) is logically a set of Extbytes, declared as
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben] ben parents: 617 diff changeset	546 follows. Extbyte is guaranteed to be just a char, so for example
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben] ben parents: 617 diff changeset	547 strlen (Extbyte *) is OK. Extbyte is only a documentation device
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben] ben parents: 617 diff changeset	548 for referring to external text. */
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben] ben parents: 617 diff changeset	549
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben] ben parents: 617 diff changeset	550 typedef char Extbyte;
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	551 typedef unsigned char UExtbyte;
647 b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben] ben parents: 617 diff changeset	552
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	553 #define EXTTEXT_ZTERM_SIZE (sizeof (Extbyte))
647 b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben] ben parents: 617 diff changeset	554
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben] ben parents: 617 diff changeset	555 /* A byte in a string in entirely US-ASCII format: (Nothing outside
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben] ben parents: 617 diff changeset	556 the range 00 - 7F) */
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben] ben parents: 617 diff changeset	557
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	558 typedef char Ascbyte;
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	559 typedef unsigned char UAscbyte;
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	560
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	561 /* A generic memory pointer, no text or binary semantics assumed.
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	562 In general, there should be no manipulation of the memory pointed to
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	563 by these pointers other than just copying it around. */
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	564
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	565 typedef unsigned char Rawbyte;
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	566 typedef char CRawbyte;
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	567
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	568 /* A byte in a string in binary (not meant as text) format: */
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	569
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	570 typedef unsigned char Binbyte;
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	571 typedef char CBinbyte;
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	572 typedef signed char SBinbyte;
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	573
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	574 /* A byte used to represent a boolean value: 0 or 1.
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	575 Normally use plain Boolint, and only use Boolbyte to save space. */
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	576
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	577 typedef char Boolbyte;
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	578
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	579 /* A byte composed of bitfields. Hardly ever used. */
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	580
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	581 typedef unsigned char Bitbyte;
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	582
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	583 /* A no-semantics `char'. Used (pretty-much) ONLY for casting arguments to
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	584 functions accepting a `char ', `unsigned char ', etc. where the other
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	585 types don't exactly apply and what you are logically concerned with is
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	586 the type of the function's argument and not its semantics.
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	587
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	588 DO NOT DO NOT DO NOT DO NOT use this as a sloppy replacement for one of
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	589 the other types. If you're not using this as part of casting an
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	590 argument to a function call, and you're not Ben Wing, you're using it
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	591 wrong. Go find another one of the types. */
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	592
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	593 typedef char Chbyte;
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	594 typedef unsigned char UChbyte;
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	595 typedef signed char SChbyte;
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	596
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	597 /* ------------------------ other text-related typedefs ------------------- */
647 b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben] ben parents: 617 diff changeset	598
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	599 /* To the user, a buffer is made up of characters. In the non-Mule world,
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	600 characters and Ibytes are equivalent, restricted to the range 0 - 255.
3498 b03fc4eae965 [xemacs-hg @ 2006-07-08 16:15:54 by aidan] aidan parents: 3379 diff changeset	601 In the Mule world, many more characters are possible (21 bits worth,
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	602 more or less), and a character requires (typically) 1 to 4 Ibytes for
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	603 its representation in a buffer or string. Note that the representation
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	604 of a character by itself, in a variable, is very different from its
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	605 representation in a string of text (in a buffer or Lisp string).
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	606
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	607 Under Mule, text can be represented in more than one way. The "default"
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	608 format is variable-width (1 to 4 bytes) and compatible with ASCII --
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	609 ASCII chars are stored in one byte, as themselves, and all other chars
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	610 use only high bytes. The default format is currently the only format
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	611 used for text stored anywhere but in a buffer. In a buffer, other
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	612 formats -- fixed-width formats (1, 2, or 4 bytes) -- are possible, for
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	613 speed.
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	614
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	615 See text.c/text.h for a detailed discussion of all of this. */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	616
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	617 /* A character, as represented on its own. */
647 b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben] ben parents: 617 diff changeset	618
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	619 typedef int Ichar;
647 b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben] ben parents: 617 diff changeset	620
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	621 /* The "raw value" of a character as stored in the buffer. In the default
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	622 format, this is just the same as the character. In fixed-width formats,
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	623 this is the actual value in the buffer, which will be limited to the
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	624 range as established by the format. This is used when searching for a
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	625 character in a buffer -- it's faster to convert the character to the raw
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	626 value and look for that, than repeatedly convert each raw value in the
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	627 buffer into a character. */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	628
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	629 typedef int Raw_Ichar;
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	630
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	631 /* Internal text as a series of textual units (8-bit bytes in the old
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	632 "Mule" encoding -- still the standard internal encoding -- and in UTF-8,
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	633 but 16-bit bytes in UTF-16 and 32-bit bytes in UTF-32). See text.c. */
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	634
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	635 #ifdef UTF16_IBYTE_FORMAT
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	636 #define NON_ASCII_INTERNAL_FORMAT
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	637 typedef unsigned short Itext;
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	638 #else
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	639 typedef Ibyte Itext;
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	640 #endif
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	641 typedef EMACS_INT Textcount;
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	642
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	643 #define ITEXT_SIZE (sizeof (Itext))
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	644 /* Use this to emphasize that we are adding space for the zero-terminator */
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	645 #define ITEXT_ZTERM_SIZE ITEXT_SIZE
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	646
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	647 /* Wexttext is wchar_t on WIN32_NATIVE (and perhaps other systems that
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	648 support wchar_t's in library functions), and Extbyte otherwise. This is
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	649 used whenever we have to do any sort of manipulation of
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	650 externally-encoded strings -- generally a very bad idea, and unsafe, but
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	651 in some cases we have no choice (especially at startup, and esp. prior
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	652 to pdump, where we haven't loaded the Unicode tables necessary for
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	653 conversion under Windows). On platforms where the external encoding may
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	654 be Unicode (i.e. Windows), we always do our manipulations in Unicode,
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	655 converting to and from multibyte if necessary -- otherwise we'd have to
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	656 conditionalize on Unicode vs. multibyte all over the place, which is
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	657 just a nightmare. */
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	658 #ifdef WIN32_NATIVE
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	659 #define WEXTTEXT_IS_WIDE
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	660 typedef wchar_t Wexttext;
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	661 #else
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	662 typedef Extbyte Wexttext;
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	663 #endif
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	664
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	665 #if !defined (__cplusplus) \|\| !defined (CPLUSPLUS_INTEGRAL_CLASSES_NOT_YET)
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	666
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	667 /* Counts of bytes or chars */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	668
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	669 typedef EMACS_INT Bytecount;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	670 typedef EMACS_INT Charcount;
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	671
647 b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben] ben parents: 617 diff changeset	672 /* Different ways of referring to a position in a buffer. We use
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben] ben parents: 617 diff changeset	673 the typedefs in preference to 'EMACS_INT' to make it clearer what
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	674 sort of position is being used. See text.c for a description
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	675 of the different positions.
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	676
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	677 Note that buffer positions are 1-based, and there's a gap in the middle
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	678 of a buffer; that's why we have separate typedefs. For Lisp strings and
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	679 other strings of text, we just use Bytecount and Charcount. */
800 a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben] ben parents: 793 diff changeset	680
665 fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben] ben parents: 647 diff changeset	681 typedef EMACS_INT Charbpos;
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben] ben parents: 647 diff changeset	682 typedef EMACS_INT Bytebpos;
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben] ben parents: 647 diff changeset	683 typedef EMACS_INT Membpos;
647 b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben] ben parents: 617 diff changeset	684
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	685 /* Different ways of referring to a position that can be either in a buffer
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	686 or string; used when passing around an object that can be either a
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	687 buffer or string, and an associated position. Conceptually, they
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	688 resolve as follows:
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	689
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	690 Typedef Buffer String
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	691 ------------------------------------------------------
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	692 Charxpos Charbpos Charcount
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	693 Bytexpos Bytebpos Bytecount
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	694 Memxpos Membpos Bytecount
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	695
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	696 */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	697
814 a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	698 typedef EMACS_INT Charxpos;
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	699 typedef EMACS_INT Bytexpos;
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	700 typedef EMACS_INT Memxpos;
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	701
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	702 #else /* __cplusplus */
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	703
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	704 /* Implement strong type-checking of the above integral types by declaring
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	705 them to be classes and using operator overloading. Unfortunately this
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	706 is a huge pain in the ass because C++ doesn't strongly distinguish
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	707 "bool" and "size_t" from int. The problem is especially bad with "bool"
2956 ee35a8fdcfcd [xemacs-hg @ 2005-09-27 05:29:41 by ben] ben parents: 2862 diff changeset	708 -- if you want to be able to say `if (len--)' where len is e.g. a
814 a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	709 Bytecount, you need to declare a conversion operator to bool(); and
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	710 since bool is just an alias for int, you suddenly get tons and tons of
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	711 ambiguities, which need to be resolved by lots of laborious declarations
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	712 for every single possible type combination. Hence the multitude of
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	713 declarations in DECLARE_INTCLASS_ARITH_COMPARE(). The bool/int
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	714 equivalence also means that we have to forcibly block the combinations
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	715 we don't want by creating overloaded versions of them and declaring them
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	716 private. */
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	717
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	718 class Bytecount;
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	719 class Bytebpos;
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	720 class Bytexpos;
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	721 class Charcount;
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	722 class Charbpos;
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	723 class Charxpos;
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	724 class Membpos;
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	725 class Memxpos;
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	726
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	727 /* Declare the arithmetic and comparison operations for an integral class,
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	728 i.e. one of the above classes. If this is a "position" class, where the
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	729 difference between two positions is a different class (a "count" class),
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	730 then use POSCL for the position class and COUNTCL for the count class.
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	731 If this is a simple class, where all operations yield the same class,
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	732 substitute the same class for POSCL and COUNTCL. */
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	733
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	734 #define DECLARE_INTCLASS_ARITH_COMPARE(poscl, countcl) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	735 poscl operator += (const countcl& l) { data += l.data; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	736 poscl operator -= (const countcl& l) { data -= l.data; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	737 poscl operator + (const countcl& l) const { return poscl (data + l.data); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	738 poscl operator - (const countcl& l) const { return poscl (data - l.data); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	739 poscl operator += (const int& l) { data += l; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	740 poscl operator -= (const int& l) { data -= l; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	741 poscl operator + (const int& l) const { return poscl (data + l); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	742 poscl operator - (const int& l) const { return poscl (data - l); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	743 poscl operator += (const unsigned int& l) { data += l; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	744 poscl operator -= (const unsigned int& l) { data -= l; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	745 poscl operator + (const unsigned int& l) const \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	746 { return poscl (data + l); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	747 poscl operator - (const unsigned int& l) const \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	748 { return poscl (data - l); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	749 poscl operator += (const long& l) { data += l; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	750 poscl operator -= (const long& l) { data -= l; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	751 poscl operator + (const long& l) const { return poscl (data + l); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	752 poscl operator - (const long& l) const { return poscl (data - l); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	753 poscl operator += (const unsigned long& l) { data += l; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	754 poscl operator -= (const unsigned long& l) { data -= l; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	755 poscl operator + (const unsigned long& l) const \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	756 { return poscl (data + l); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	757 poscl operator - (const unsigned long& l) const \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	758 { return poscl (data - l); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	759 poscl operator += (const short& l) { data += l; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	760 poscl operator -= (const short& l) { data -= l; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	761 poscl operator + (const short& l) const { return poscl (data + l); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	762 poscl operator - (const short& l) const { return poscl (data - l); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	763 poscl operator += (const unsigned short& l) { data += l; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	764 poscl operator -= (const unsigned short& l) { data -= l; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	765 poscl operator + (const unsigned short& l) const \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	766 { return poscl (data + l); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	767 poscl operator - (const unsigned short& l) const \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	768 { return poscl (data - l); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	769 \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	770 poscl operator = (const countcl& l) { data = l.data; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	771 poscl operator /= (const countcl& l) { data /= l.data; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	772 poscl operator * (const countcl& l) const { return poscl (data * l.data); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	773 poscl operator / (const countcl& l) const { return poscl (data / l.data); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	774 poscl operator = (const int& l) { data = l; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	775 poscl operator /= (const int& l) { data /= l; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	776 poscl operator * (const int& l) const { return poscl (data * l); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	777 poscl operator / (const int& l) const { return poscl (data / l); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	778 poscl operator = (const unsigned int& l) { data = l; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	779 poscl operator /= (const unsigned int& l) { data /= l; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	780 poscl operator * (const unsigned int& l) const { return poscl (data * l); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	781 poscl operator / (const unsigned int& l) const { return poscl (data / l); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	782 poscl operator = (const long& l) { data = l; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	783 poscl operator /= (const long& l) { data /= l; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	784 poscl operator * (const long& l) const { return poscl (data * l); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	785 poscl operator / (const long& l) const { return poscl (data / l); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	786 poscl operator = (const unsigned long& l) { data = l; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	787 poscl operator /= (const unsigned long& l) { data /= l; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	788 poscl operator * (const unsigned long& l) const \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	789 { return poscl (data * l); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	790 poscl operator / (const unsigned long& l) const \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	791 { return poscl (data / l); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	792 poscl operator = (const short& l) { data = l; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	793 poscl operator /= (const short& l) { data /= l; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	794 poscl operator * (const short& l) const { return poscl (data * l); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	795 poscl operator / (const short& l) const { return poscl (data / l); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	796 poscl operator = (const unsigned short& l) { data = l; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	797 poscl operator /= (const unsigned short& l) { data /= l; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	798 poscl operator * (const unsigned short& l) const \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	799 { return poscl (data * l); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	800 poscl operator / (const unsigned short& l) const \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	801 { return poscl (data / l); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	802 \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	803 poscl operator &= (const countcl& l) { data &= l.data; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	804 poscl operator \|= (const countcl& l) { data \|= l.data; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	805 poscl operator & (const countcl& l) const { return poscl (data & l.data); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	806 poscl operator \| (const countcl& l) const { return poscl (data \| l.data); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	807 poscl operator &= (const int& l) { data &= l; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	808 poscl operator \|= (const int& l) { data \|= l; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	809 poscl operator & (const int& l) const { return poscl (data & l); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	810 poscl operator \| (const int& l) const { return poscl (data \| l); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	811 poscl operator &= (const unsigned int& l) { data &= l; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	812 poscl operator \|= (const unsigned int& l) { data \|= l; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	813 poscl operator & (const unsigned int& l) const { return poscl (data & l); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	814 poscl operator \| (const unsigned int& l) const { return poscl (data \| l); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	815 poscl operator &= (const long& l) { data &= l; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	816 poscl operator \|= (const long& l) { data \|= l; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	817 poscl operator & (const long& l) const { return poscl (data & l); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	818 poscl operator \| (const long& l) const { return poscl (data \| l); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	819 poscl operator &= (const unsigned long& l) { data &= l; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	820 poscl operator \|= (const unsigned long& l) { data \|= l; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	821 poscl operator & (const unsigned long& l) const \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	822 { return poscl (data & l); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	823 poscl operator \| (const unsigned long& l) const \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	824 { return poscl (data \| l); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	825 poscl operator &= (const short& l) { data &= l; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	826 poscl operator \|= (const short& l) { data \|= l; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	827 poscl operator & (const short& l) const { return poscl (data & l); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	828 poscl operator \| (const short& l) const { return poscl (data \| l); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	829 poscl operator &= (const unsigned short& l) { data &= l; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	830 poscl operator \|= (const unsigned short& l) { data \|= l; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	831 poscl operator & (const unsigned short& l) const \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	832 { return poscl (data & l); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	833 poscl operator \| (const unsigned short& l) const \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	834 { return poscl (data \| l); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	835 \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	836 poscl operator - () { return poscl (-data); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	837 poscl operator-- () { data--; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	838 poscl operator-- (int) { data--; return poscl (data + 1); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	839 poscl operator++ () { data++; return *this; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	840 poscl operator++ (int) { data++; return poscl (data - 1); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	841 \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	842 bool operator < (const poscl& l) const { return data < l.data; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	843 bool operator <= (const poscl& l) const { return data <= l.data; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	844 bool operator > (const poscl& l) const { return data > l.data; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	845 bool operator >= (const poscl& l) const { return data >= l.data; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	846 bool operator == (const poscl& l) const { return data == l.data; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	847 bool operator != (const poscl& l) const { return data != l.data; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	848 bool operator < (const int& l) const { return data < (EMACS_INT) l; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	849 bool operator <= (const int& l) const { return data <= (EMACS_INT) l; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	850 bool operator > (const int& l) const { return data > (EMACS_INT) l; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	851 bool operator >= (const int& l) const { return data >= (EMACS_INT) l; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	852 bool operator == (const int& l) const { return data == (EMACS_INT) l; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	853 bool operator != (const int& l) const { return data != (EMACS_INT) l; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	854 bool operator < (const unsigned int& l) const \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	855 { return data < (EMACS_INT) l; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	856 bool operator <= (const unsigned int& l) const \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	857 { return data <= (EMACS_INT) l; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	858 bool operator > (const unsigned int& l) const \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	859 { return data > (EMACS_INT) l; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	860 bool operator >= (const unsigned int& l) const \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	861 { return data >= (EMACS_INT) l; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	862 bool operator == (const unsigned int& l) const \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	863 { return data == (EMACS_INT) l; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	864 bool operator != (const unsigned int& l) const \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	865 { return data != (EMACS_INT) l; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	866 bool operator < (const long& l) const { return data < (EMACS_INT) l; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	867 bool operator <= (const long& l) const { return data <= (EMACS_INT) l; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	868 bool operator > (const long& l) const { return data > (EMACS_INT) l; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	869 bool operator >= (const long& l) const { return data >= (EMACS_INT) l; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	870 bool operator == (const long& l) const { return data == (EMACS_INT) l; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	871 bool operator != (const long& l) const { return data != (EMACS_INT) l; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	872 bool operator < (const unsigned long& l) const \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	873 { return data < (EMACS_INT) l; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	874 bool operator <= (const unsigned long& l) const \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	875 { return data <= (EMACS_INT) l; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	876 bool operator > (const unsigned long& l) const \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	877 { return data > (EMACS_INT) l; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	878 bool operator >= (const unsigned long& l) const \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	879 { return data >= (EMACS_INT) l; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	880 bool operator == (const unsigned long& l) const \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	881 { return data == (EMACS_INT) l; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	882 bool operator != (const unsigned long& l) const \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	883 { return data != (EMACS_INT) l; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	884 bool operator < (const short& l) const { return data < (EMACS_INT) l; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	885 bool operator <= (const short& l) const { return data <= (EMACS_INT) l; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	886 bool operator > (const short& l) const { return data > (EMACS_INT) l; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	887 bool operator >= (const short& l) const { return data >= (EMACS_INT) l; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	888 bool operator == (const short& l) const { return data == (EMACS_INT) l; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	889 bool operator != (const short& l) const { return data != (EMACS_INT) l; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	890 bool operator < (const unsigned short& l) const \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	891 { return data < (EMACS_INT) l; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	892 bool operator <= (const unsigned short& l) const \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	893 { return data <= (EMACS_INT) l; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	894 bool operator > (const unsigned short& l) const \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	895 { return data > (EMACS_INT) l; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	896 bool operator >= (const unsigned short& l) const \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	897 { return data >= (EMACS_INT) l; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	898 bool operator == (const unsigned short& l) const \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	899 { return data == (EMACS_INT) l; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	900 bool operator != (const unsigned short& l) const \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	901 { return data != (EMACS_INT) l; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	902 bool operator ! () const { return !data; }
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	903
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	904 /* Declare the "bad" or disallowed arithmetic and comparion operations
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	905 between class GOOD and class BAD. Meant to go inside the private
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	906 section of class GOOD. */
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	907
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	908 #define DECLARE_BAD_INTCLASS_ARITH_COMPARE(good, bad) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	909 good operator += (const bad& l) { return badret; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	910 good operator -= (const bad& l) { return badret; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	911 good operator *= (const bad& l) { return badret; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	912 good operator /= (const bad& l) { return badret; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	913 good operator + (const bad& l) { return badret; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	914 good operator - (const bad& l) { return badret; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	915 good operator * (const bad& l) { return badret; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	916 good operator / (const bad& l) { return badret; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	917 \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	918 bool operator < (const bad& l) { return 0; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	919 bool operator <= (const bad& l) { return 0; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	920 bool operator > (const bad& l) { return 0; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	921 bool operator >= (const bad& l) { return 0; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	922 bool operator == (const bad& l) { return 0; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	923 bool operator != (const bad& l) { return 0; }
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	924
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	925 /* Declare the "bad" or disallowed arithmetic operations between class GOOD
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	926 and another of the same class, for a position class. Meant to go inside
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	927 the private section of class GOOD. */
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	928
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	929 #define DECLARE_BAD_POS_CLASS_ARITH(good) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	930 good operator += (const good& l) { return badret; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	931 good operator -= (const good& l) { return badret; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	932 good operator *= (const good& l) { return badret; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	933 good operator /= (const good& l) { return badret; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	934 good operator + (const good& l) { return badret; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	935 good operator * (const good& l) { return badret; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	936 good operator / (const good& l) { return badret; }
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	937
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	938 /* Basic declaration at the top of all integral classes. Don't call
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	939 directly, use one of the more specific versions below. */
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	940
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	941 #define DECLARE_INTCLASS(cl) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	942 public: \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	943 EMACS_INT data; \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	944 cl () { data = 0xCDCDCDCD; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	945 cl (int i) { data = i; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	946 cl (unsigned int i) { data = i; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	947 cl (long i) { data = i; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	948 cl (unsigned long i) { data = i; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	949 cl (short i) { data = i; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	950 cl (unsigned short i) { data = i; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	951 operator EMACS_INT () const { return data; }
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	952
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	953 /* Basic declaration at the top of all count classes. */
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	954
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	955 #define DECLARE_COUNT_CLASS(cl) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	956 DECLARE_INTCLASS (cl) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	957 DECLARE_INTCLASS_ARITH_COMPARE (cl, cl) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	958 private: \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	959 static cl badret;
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	960
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	961 /* Basic declaration at the bottom of the prelude of all position classes.
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	962 Don't call directly. */
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	963
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	964 #define DECLARE_POS_CLASS_SECOND_HALF(cl, countcl) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	965 DECLARE_INTCLASS_ARITH_COMPARE (cl, countcl) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	966 countcl operator - (const cl& l) const { return countcl (data - l.data); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	967 private: \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	968 static cl badret; \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	969 DECLARE_BAD_POS_INTCLASS_ARITH (cl)
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	970
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	971 /* Basic declaration at the top of all buffer position classes. */
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	972
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	973 #define DECLARE_BPOS_CLASS(cl, countcl) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	974 DECLARE_INTCLASS (cl) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	975 DECLARE_POS_CLASS_SECOND_HALF (cl, countcl)
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	976
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	977 /* Basic declaration at the top of all X-position classes (that can refer
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	978 to buffers or strings). CL1 and CL2 are the equivalent more specific
1318 b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	979 classes referring only to buffers or strings, respectively. */
814 a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	980
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	981 #define DECLARE_XPOS_CLASS(cl, countcl, cl1, cl2) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	982 DECLARE_INTCLASS (cl) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	983 cl (const cl1& x) { data = x.data; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	984 cl (const cl2& x) { data = x.data; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	985 operator cl1 () const { return cl1 (data); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	986 operator cl2 () const { return cl2 (data); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	987 DECLARE_POS_CLASS_SECOND_HALF (cl, countcl)
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	988
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	989 /* Declare the "bad" or disallowed arithmetic and comparion operations
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	990 between class CHARCL (a character class) and various non-character
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	991 classes. Meant to go inside the private section of class GOOD. */
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	992
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	993 #define DECLARE_BAD_CHAR_INTCLASS_ARITH_COMPARE(charcl) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	994 DECLARE_BAD_INTCLASS_ARITH_COMPARE (charcl, Bytecount) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	995 DECLARE_BAD_INTCLASS_ARITH_COMPARE (charcl, Bytebpos) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	996 DECLARE_BAD_INTCLASS_ARITH_COMPARE (charcl, Bytexpos) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	997 DECLARE_BAD_INTCLASS_ARITH_COMPARE (charcl, Membpos) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	998 DECLARE_BAD_INTCLASS_ARITH_COMPARE (charcl, Memxpos)
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	999
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1000 /* Declare the "bad" or disallowed arithmetic and comparion operations
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1001 between class BYTECL (a byte class) and various non-byte classes.
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1002 Meant to go inside the private section of class GOOD. */
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1003
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1004 #define DECLARE_BAD_BYTE_INTCLASS_ARITH_COMPARE(bytecl) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1005 DECLARE_BAD_INTCLASS_ARITH_COMPARE (bytecl, Charcount) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1006 DECLARE_BAD_INTCLASS_ARITH_COMPARE (bytecl, Charbpos) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1007 DECLARE_BAD_INTCLASS_ARITH_COMPARE (bytecl, Charxpos) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1008 DECLARE_BAD_INTCLASS_ARITH_COMPARE (bytecl, Membpos) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1009 DECLARE_BAD_INTCLASS_ARITH_COMPARE (bytecl, Memxpos)
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1010
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1011 /* Declare the "bad" or disallowed arithmetic and comparion operations
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1012 between class BYTECL (a mem class) and various non-mem classes.
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1013 Meant to go inside the private section of class GOOD. */
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1014
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1015 #define DECLARE_BAD_MEM_INTCLASS_ARITH_COMPARE(bytecl) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1016 DECLARE_BAD_INTCLASS_ARITH_COMPARE (bytecl, Charcount) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1017 DECLARE_BAD_INTCLASS_ARITH_COMPARE (bytecl, Charbpos) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1018 DECLARE_BAD_INTCLASS_ARITH_COMPARE (bytecl, Charxpos) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1019 DECLARE_BAD_INTCLASS_ARITH_COMPARE (bytecl, Bytebpos) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1020 DECLARE_BAD_INTCLASS_ARITH_COMPARE (bytecl, Bytexpos)
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1021
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1022 class Charcount
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1023 {
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1024 DECLARE_COUNT_CLASS (Charcount)
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1025 DECLARE_BAD_CHAR_INTCLASS_ARITH_COMPARE (Charcount)
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1026 };
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1027
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1028 class Charbpos
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1029 {
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1030 DECLARE_BPOS_CLASS (Charbpos, Charcount)
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1031 DECLARE_BAD_CHAR_INTCLASS_ARITH_COMPARE (Charbpos)
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1032 };
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1033
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1034 class Charxpos
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1035 {
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1036 DECLARE_XPOS_CLASS (Charxpos, Charcount, Charbpos, Charcount)
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1037 DECLARE_BAD_CHAR_INTCLASS_ARITH_COMPARE (Charxpos)
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1038 };
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1039
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1040 class Bytecount
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1041 {
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1042 DECLARE_COUNT_CLASS (Bytecount)
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1043 DECLARE_BAD_BYTE_INTCLASS_ARITH_COMPARE (Bytecount)
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1044 };
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1045
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1046 class Bytebpos
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1047 {
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1048 DECLARE_BPOS_CLASS (Bytebpos, Bytecount)
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1049 DECLARE_BAD_BYTE_INTCLASS_ARITH_COMPARE (Bytebpos)
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1050 };
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1051
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1052 class Bytexpos
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1053 {
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1054 DECLARE_XPOS_CLASS (Bytexpos, Bytecount, Bytebpos, Bytecount)
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1055 DECLARE_BAD_BYTE_INTCLASS_ARITH_COMPARE (Bytexpos)
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1056 };
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1057
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1058 class Membpos
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1059 {
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1060 DECLARE_BPOS_CLASS (Membpos, Bytecount)
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1061 DECLARE_BAD_MEM_INTCLASS_ARITH_COMPARE (Membpos)
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1062 };
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1063
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1064 class Memxpos
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1065 {
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1066 DECLARE_XPOS_CLASS (Memxpos, Bytecount, Membpos, Bytecount)
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1067 DECLARE_BAD_MEM_INTCLASS_ARITH_COMPARE (Memxpos)
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1068 };
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1069
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	1070 #define DECLARE_POINTER_TYPE_ARITH_COUNT(pointer, countcl) \
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	1071 inline pointer operator += (const pointer & x, const countcl& y) \
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	1072 { x += y.data; return x; } \
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	1073 inline pointer operator -= (const pointer & x, const countcl& y) \
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	1074 { x -= y.data; return x; } \
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	1075 inline pointer operator + (const pointer x, const countcl& y) \
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	1076 { return x + y.data; } \
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	1077 inline pointer operator - (const pointer x, const countcl& y) \
814 a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1078 { return x - y.data; }
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1079
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1080 #define DECLARE_INTEGRAL_TYPE_ARITH_COUNT(integral, countcl) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1081 inline integral operator += (integral & x, const countcl& y) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1082 { x += y.data; return x; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1083 inline integral operator -= (integral & x, const countcl& y) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1084 { x -= y.data; return x; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1085 inline countcl operator + (integral x, const countcl& y) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1086 { return countcl (x + y.data); } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1087 inline countcl operator - (integral x, const countcl& y) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1088 { return countcl (x - y.data); }
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1089
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1090 #define DECLARE_INTEGRAL_TYPE_COMPARE(integral, cl) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1091 inline bool operator < (integral x, const cl& y) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1092 { return (EMACS_INT) x < y.data; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1093 inline bool operator <= (integral x, const cl& y) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1094 { return (EMACS_INT) x <= y.data; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1095 inline bool operator > (integral x, const cl& y) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1096 { return (EMACS_INT) x > y.data; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1097 inline bool operator >= (integral x, const cl& y) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1098 { return (EMACS_INT) x >= y.data; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1099 inline bool operator == (integral x, const cl& y) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1100 { return (EMACS_INT) x == y.data; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1101 inline bool operator != (integral x, const cl& y) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1102 { return (EMACS_INT) x != y.data; }
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1103
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1104 #if 0
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1105 /* Unfortunately C++ doesn't let you overload the ?: operator, so we have
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1106 to manually deal with ambiguities using casting */
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1107 #define DECLARE_INTEGRAL_TYPE_TRISTATE(integral, cl) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1108 inline cl operator ?: (bool b, integral x, const cl& y) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1109 { return b ? cl (x) : y; } \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1110 inline cl operator ?: (bool b, const cl& x, integral y) \
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1111 { return b ? x : cl (y); }
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1112 #endif /* 0 */
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1113
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	1114 /* DECLARE_POINTER_TYPE_ARITH_COUNT (const Ibyte *, Bytecount);
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	1115 DECLARE_POINTER_TYPE_ARITH_COUNT (const Extbyte , Bytecount); /
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	1116 DECLARE_POINTER_TYPE_ARITH_COUNT (Ibyte *, Bytecount);
814 a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1117 DECLARE_POINTER_TYPE_ARITH_COUNT (Extbyte *, Bytecount);
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1118
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1119 DECLARE_INTEGRAL_TYPE_ARITH_COUNT (int, Bytecount);
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1120 DECLARE_INTEGRAL_TYPE_ARITH_COUNT (int, Charcount);
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1121 DECLARE_INTEGRAL_TYPE_ARITH_COUNT (unsigned int, Bytecount);
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1122 DECLARE_INTEGRAL_TYPE_ARITH_COUNT (unsigned int, Charcount);
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1123 DECLARE_INTEGRAL_TYPE_ARITH_COUNT (long, Bytecount);
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1124 DECLARE_INTEGRAL_TYPE_ARITH_COUNT (long, Charcount);
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1125 DECLARE_INTEGRAL_TYPE_ARITH_COUNT (unsigned long, Bytecount);
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1126 DECLARE_INTEGRAL_TYPE_ARITH_COUNT (unsigned long, Charcount);
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1127
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1128 DECLARE_INTEGRAL_TYPE_COMPARE (int, Bytecount);
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1129 DECLARE_INTEGRAL_TYPE_COMPARE (int, Charcount);
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1130 DECLARE_INTEGRAL_TYPE_COMPARE (unsigned int, Bytecount);
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1131 DECLARE_INTEGRAL_TYPE_COMPARE (unsigned int, Charcount);
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1132 DECLARE_INTEGRAL_TYPE_COMPARE (long, Bytecount);
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1133 DECLARE_INTEGRAL_TYPE_COMPARE (long, Charcount);
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1134 DECLARE_INTEGRAL_TYPE_COMPARE (unsigned long, Bytecount);
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1135 DECLARE_INTEGRAL_TYPE_COMPARE (unsigned long, Charcount);
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1136
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1137 #if 0 /* doesn't work */
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	1138 inline Bytecount operator - (const Ibyte x, const Ibyte y) \
814 a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1139 { return Bytecount (x - y); }
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1140 #endif
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1141
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1142 #endif /* __cplusplus */
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	1143
665 fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben] ben parents: 647 diff changeset	1144 /* Counts of elements */
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben] ben parents: 647 diff changeset	1145 typedef EMACS_INT Elemcount;
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben] ben parents: 647 diff changeset	1146 /* Hash codes */
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben] ben parents: 647 diff changeset	1147 typedef unsigned long Hashcode;
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1148 /* Booleans */
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1149 typedef int Boolint;
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1150
793 e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1151 /* ------------------------ basic compiler defines ------------------- */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1152
1743 543769b89fed [xemacs-hg @ 2003-10-14 05:02:57 by james] james parents: 1726 diff changeset	1153 #include "compiler.h"
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	1154
793 e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1155 /* ------------------------ alignment definitions ------------------- */
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1156
454 d7a9135ec789 Import from CVS: tag r21-2-42 cvs parents: 452 diff changeset	1157 /* No type has a greater alignment requirement than max_align_t.
d7a9135ec789 Import from CVS: tag r21-2-42 cvs parents: 452 diff changeset	1158 (except perhaps for types we don't use, like long double) */
d7a9135ec789 Import from CVS: tag r21-2-42 cvs parents: 452 diff changeset	1159 typedef union
d7a9135ec789 Import from CVS: tag r21-2-42 cvs parents: 452 diff changeset	1160 {
d7a9135ec789 Import from CVS: tag r21-2-42 cvs parents: 452 diff changeset	1161 struct { long l; } l;
d7a9135ec789 Import from CVS: tag r21-2-42 cvs parents: 452 diff changeset	1162 struct { void *p; } p;
d7a9135ec789 Import from CVS: tag r21-2-42 cvs parents: 452 diff changeset	1163 struct { void (*f)(void); } f;
d7a9135ec789 Import from CVS: tag r21-2-42 cvs parents: 452 diff changeset	1164 struct { double d; } d;
d7a9135ec789 Import from CVS: tag r21-2-42 cvs parents: 452 diff changeset	1165 } max_align_t;
d7a9135ec789 Import from CVS: tag r21-2-42 cvs parents: 452 diff changeset	1166
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1167 /* ALIGNOF returns the required alignment of a type -- i.e. a value such
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1168 that data of this type must begin at a memory address which is a
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1169 multiple of that value. For simple types, this is often the same size
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1170 as the type itself. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1171
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1172 #ifndef ALIGNOF
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1173 # if defined (__GNUC__) && (__GNUC__ >= 2)
454 d7a9135ec789 Import from CVS: tag r21-2-42 cvs parents: 452 diff changeset	1174 /* gcc has an extension that gives us exactly what we want. */
d7a9135ec789 Import from CVS: tag r21-2-42 cvs parents: 452 diff changeset	1175 # define ALIGNOF(type) __alignof__ (type)
d7a9135ec789 Import from CVS: tag r21-2-42 cvs parents: 452 diff changeset	1176 # elif ! defined (__cplusplus)
d7a9135ec789 Import from CVS: tag r21-2-42 cvs parents: 452 diff changeset	1177 /* The following is mostly portable, except that:
d7a9135ec789 Import from CVS: tag r21-2-42 cvs parents: 452 diff changeset	1178 - it doesn't work for inside out declarations like void (*) (void).
d7a9135ec789 Import from CVS: tag r21-2-42 cvs parents: 452 diff changeset	1179 (so just call ALIGNOF with a typedef'ed name)
d7a9135ec789 Import from CVS: tag r21-2-42 cvs parents: 452 diff changeset	1180 - it doesn't work with C++. The C++ committee has decided,
d7a9135ec789 Import from CVS: tag r21-2-42 cvs parents: 452 diff changeset	1181 in its infinite wisdom, that:
d7a9135ec789 Import from CVS: tag r21-2-42 cvs parents: 452 diff changeset	1182 "Types must be declared in declarations, not in expressions." */
d7a9135ec789 Import from CVS: tag r21-2-42 cvs parents: 452 diff changeset	1183 # define ALIGNOF(type) offsetof (struct { char c; type member; }, member)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1184 # else
456 e7ef97881643 Import from CVS: tag r21-2-43 cvs parents: 454 diff changeset	1185 /* C++ is annoying, but it has a big bag of tricks.
e7ef97881643 Import from CVS: tag r21-2-43 cvs parents: 454 diff changeset	1186 The following doesn't have the "inside out" declaration bug C does. */
458 c33ae14dd6d0 Import from CVS: tag r21-2-44 cvs parents: 456 diff changeset	1187 template<typename T> struct alignment_trick { char c; T member; };
456 e7ef97881643 Import from CVS: tag r21-2-43 cvs parents: 454 diff changeset	1188 # define ALIGNOF(type) offsetof (alignment_trick<type>, member)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1189 # endif
454 d7a9135ec789 Import from CVS: tag r21-2-42 cvs parents: 452 diff changeset	1190 #endif /* ALIGNOF */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1191
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1192 /* ALIGN_SIZE returns the smallest size greater than or equal to LEN which
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1193 is a multiple of UNIT. This can be used to assure that data that
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1194 follows a block of the returned size is of correct alignment for a type
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1195 whose alignment (as returned by ALIGNOF) is UNIT (provided that the
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1196 block itself is correctly aligned for this type; memory returned by
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1197 malloc() is guaranteed to be correctly aligned for all types). */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1198
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1199 #define ALIGN_SIZE(len, unit) \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1200 ((((len) + (unit) - 1) / (unit)) * (unit))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1201
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	1202 /* ALIGN_FOR_TYPE returns the smallest size greater than or equal to LEN
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	1203 which is aligned for the given type. This can be used to assure that
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	1204 data that follows a block of the returned size is of correct alignment
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	1205 for the type (provided that the block itself is correctly aligned for
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	1206 this type; memory returned by malloc() is guaranteed to be correctly
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	1207 aligned for all types). */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	1208
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	1209 #define ALIGN_FOR_TYPE(len, type) ALIGN_SIZE (len, ALIGNOF (type))
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	1210
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1211 /* MAX_ALIGN_SIZE returns the smallest size greater than or equal to LEN
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1212 which guarantees that data following a block of such size is correctly
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1213 aligned for all types (provided that the block itself is so aligned,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1214 which is the case for memory returned by malloc()). */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1215
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	1216 #define MAX_ALIGN_SIZE(len) ALIGN_FOR_TYPE (len, max_align_t)
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	1217
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	1218 /* ALIGN_PTR returns the smallest pointer >= PTR which is aligned for
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	1219 data of TYPE. */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	1220 #define ALIGN_PTR(ptr, type) ((void *) ALIGN_FOR_TYPE ((size_t) (ptr), type))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1221
1743 543769b89fed [xemacs-hg @ 2003-10-14 05:02:57 by james] james parents: 1726 diff changeset	1222 BEGIN_C_DECLS
1650 34abfb24e891 [xemacs-hg @ 2003-08-28 15:44:04 by james] james parents: 1632 diff changeset	1223
793 e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1224 /* ------------------------ assertions ------------------- */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1225
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1226 /* We define assert iff USE_ASSERTIONS or DEBUG_XEMACS is defined.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1227 Otherwise we define it to be empty. Quantify has shown that the
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1228 time the assert checks take is measurable so let's not include them
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1229 in production binaries.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1230
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 776 diff changeset	1231 If ASSERTIONS_DONT_ABORT defined, we will continue after assertion
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 776 diff changeset	1232 failures.
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 776 diff changeset	1233
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 776 diff changeset	1234 assert_at_line() is used for asserts inside of inline functions called
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 776 diff changeset	1235 from error-checking macros. If we're not tricky, we just get the file
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 776 diff changeset	1236 and line of the inline function, which is not very useful. */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1237
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1238 /* Highly dubious kludge */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1239 /* (thanks, Jamie, I feel better now -- ben) */
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1240 MODULE_API void assert_failed (const Ascbyte , int, const Ascbyte );
5090 0ca81354c4c7 Further frame-geometry cleanups Ben Wing <ben@xemacs.org> parents: 5077 diff changeset	1241 void assert_equal_failed (const Ascbyte *file, int line, EMACS_INT x,
0ca81354c4c7 Further frame-geometry cleanups Ben Wing <ben@xemacs.org> parents: 5077 diff changeset	1242 EMACS_INT y, const Ascbyte *exprx,
0ca81354c4c7 Further frame-geometry cleanups Ben Wing <ben@xemacs.org> parents: 5077 diff changeset	1243 const Ascbyte *expry);
4914 1628e3b9601a When aborting due to unknown opcode, output more descriptive msg Ben Wing <ben@xemacs.org> parents: 4910 diff changeset	1244 #define ABORT() assert_failed (__FILE__, __LINE__, "ABORT()")
4921 17362f371cc2 add more byte-code assertions and better failure output Ben Wing <ben@xemacs.org> parents: 4914 diff changeset	1245 #define abort_with_message(msg) assert_failed (__FILE__, __LINE__, msg)
2535 4c1f2310451d [xemacs-hg @ 2005-01-31 19:29:47 by ben] ben parents: 2532 diff changeset	1246
4843 715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	1247 /* This used to be ((void) (0)) but that triggers lots of unused variable
5050 6f2158fa75ed Fix quick-build, use asserts() in place of ABORT() Ben Wing <ben@xemacs.org> parents: 5023 diff changeset	1248 warnings -- furthermore, if `x' has any side effects, e.g.
6f2158fa75ed Fix quick-build, use asserts() in place of ABORT() Ben Wing <ben@xemacs.org> parents: 5023 diff changeset	1249 assert (++depth <= 20);, we DEFINITELY want to execute the code inside of
6f2158fa75ed Fix quick-build, use asserts() in place of ABORT() Ben Wing <ben@xemacs.org> parents: 5023 diff changeset	1250 `x'. Any reasonable compiler will eliminate an expression with
4843 715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	1251 no effects. We keep this abstracted out like this in case we want to
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	1252 change it in the future. */
715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	1253 #define disabled_assert(x) ((void) (x))
4932 8b63e21b0436 fix compile issues with gcc 4 Ben Wing <ben@xemacs.org> parents: 4929 diff changeset	1254 #define disabled_assert_with_message(x, msg) ((void) msg, disabled_assert (x))
8b63e21b0436 fix compile issues with gcc 4 Ben Wing <ben@xemacs.org> parents: 4929 diff changeset	1255 #define disabled_assert_at_line(x, file, line) \
8b63e21b0436 fix compile issues with gcc 4 Ben Wing <ben@xemacs.org> parents: 4929 diff changeset	1256 ((void) file, (void) line, disabled_assert (x))
4843 715b15990d0a add more foo_checking_assert macros Ben Wing <ben@xemacs.org> parents: 4841 diff changeset	1257
2535 4c1f2310451d [xemacs-hg @ 2005-01-31 19:29:47 by ben] ben parents: 2532 diff changeset	1258 #ifdef USE_ASSERTIONS
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1259 # define assert(x) ((x) ? (void) 0 : assert_failed (__FILE__, __LINE__, #x))
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	1260 # define assert_with_message(x, msg) \
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	1261 ((x) ? (void) 0 : assert_failed (__FILE__, __LINE__, msg))
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 776 diff changeset	1262 # define assert_at_line(x, file, line) \
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 776 diff changeset	1263 ((x) ? (void) 0 : assert_failed (file, line, #x))
5090 0ca81354c4c7 Further frame-geometry cleanups Ben Wing <ben@xemacs.org> parents: 5077 diff changeset	1264 # define assert_equal(x, y) \
0ca81354c4c7 Further frame-geometry cleanups Ben Wing <ben@xemacs.org> parents: 5077 diff changeset	1265 ((x) == (y) ? (void) 0 : \
0ca81354c4c7 Further frame-geometry cleanups Ben Wing <ben@xemacs.org> parents: 5077 diff changeset	1266 assert_equal_failed (__FILE__, __LINE__, (EMACS_INT) x, (EMACS_INT) y, \
0ca81354c4c7 Further frame-geometry cleanups Ben Wing <ben@xemacs.org> parents: 5077 diff changeset	1267 #x, #y))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1268 #else
2956 ee35a8fdcfcd [xemacs-hg @ 2005-09-27 05:29:41 by ben] ben parents: 2862 diff changeset	1269 /* This used to be ((void) (0)) but that triggers lots of unused variable
ee35a8fdcfcd [xemacs-hg @ 2005-09-27 05:29:41 by ben] ben parents: 2862 diff changeset	1270 warnings. It's pointless to force all that code to be rewritten, with
ee35a8fdcfcd [xemacs-hg @ 2005-09-27 05:29:41 by ben] ben parents: 2862 diff changeset	1271 added ifdefs. Any reasonable compiler will eliminate an expression with
ee35a8fdcfcd [xemacs-hg @ 2005-09-27 05:29:41 by ben] ben parents: 2862 diff changeset	1272 no effects. */
4932 8b63e21b0436 fix compile issues with gcc 4 Ben Wing <ben@xemacs.org> parents: 4929 diff changeset	1273 # define assert(x) disabled_assert (x)
8b63e21b0436 fix compile issues with gcc 4 Ben Wing <ben@xemacs.org> parents: 4929 diff changeset	1274 # define assert_with_message(x, msg) disabled_assert_with_message (x, msg)
8b63e21b0436 fix compile issues with gcc 4 Ben Wing <ben@xemacs.org> parents: 4929 diff changeset	1275 # define assert_at_line(x, file, line) disabled_assert_at_line (x, file, line)
5090 0ca81354c4c7 Further frame-geometry cleanups Ben Wing <ben@xemacs.org> parents: 5077 diff changeset	1276 # define assert_equal(x, y) disabled_assert ((x) == (y))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1277 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1278
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1279 /************************************************************************/
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1280 / Memory allocation /
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1281 /************************************************************************/
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	1282
793 e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1283 /* ------------------------ simple memory allocation ------------------- */
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1284
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1285 /* Basic memory allocation and freeing functions */
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1286 void malloc_warning (const Ascbyte *);
1743 543769b89fed [xemacs-hg @ 2003-10-14 05:02:57 by james] james parents: 1726 diff changeset	1287 MODULE_API void *xmalloc (Bytecount size) ATTRIBUTE_MALLOC;
543769b89fed [xemacs-hg @ 2003-10-14 05:02:57 by james] james parents: 1726 diff changeset	1288 MODULE_API void *xmalloc_and_zero (Bytecount size) ATTRIBUTE_MALLOC;
543769b89fed [xemacs-hg @ 2003-10-14 05:02:57 by james] james parents: 1726 diff changeset	1289 MODULE_API void xrealloc (void , Bytecount size) ATTRIBUTE_MALLOC;
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1290 MODULE_API Chbyte xstrdup (const Chbyte ) ATTRIBUTE_MALLOC;
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1291
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1292 /* Basic free function */
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1293
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1294 MODULE_API void xfree_1 (void *);
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1295 #ifdef ERROR_CHECK_MALLOC
4976 16112448d484 Rename xfree(FOO, TYPE) -> xfree(FOO) Ben Wing <ben@xemacs.org> parents: 4969 diff changeset	1296 /* This used to use a temporary variable. But that triggered
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1297 complaints under strict aliasing. #### There should be a better way. */
4976 16112448d484 Rename xfree(FOO, TYPE) -> xfree(FOO) Ben Wing <ben@xemacs.org> parents: 4969 diff changeset	1298 #define xfree(lvalue) do \
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1299 { \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1300 xfree_1 (lvalue); \
3988 1227374e7199 [xemacs-hg @ 2007-05-26 18:28:19 by aidan] aidan parents: 3659 diff changeset	1301 VOIDP_CAST (lvalue) = (void *) DEADBEEF_CONSTANT; \
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1302 } while (0)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1303 #else
4976 16112448d484 Rename xfree(FOO, TYPE) -> xfree(FOO) Ben Wing <ben@xemacs.org> parents: 4969 diff changeset	1304 #define xfree(lvalue) xfree_1 (lvalue)
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1305 #endif /* ERROR_CHECK_MALLOC */
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1306
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1307 /* ------------------------ stack allocation -------------------------- */
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1308
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1309 /* Allocating excessively large blocks on the stack can cause crashes.
851 e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1310 We provide MALLOC_OR_ALLOCA() below for places where it's likely that
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1311 large amounts will be allocated; it mallocs the block if it's too big.
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1312 Unfortunately, that requires a call to unbind_to() at the end of the
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1313 function, and it's not feasible to rewrite all calls to alloca() this
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1314 way.
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1315
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1316 Instead, we use the portable C alloca() substitute in alloca.c above a
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1317 certain size. This actually uses malloc(), but checks the current stack
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1318 pointer to see if data from previous alloca() calls needs to be freed.
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1319 However, this can lead to large heap sizes -- especially since cleanup
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1320 can only happen in a parent function, and will never happen if (as will
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1321 often be the case) it's the same function in the same place in the code
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1322 that keeps tripping the alloca() limit.
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1323
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1324 So we set up a system to periodically force cleanup. Currently we
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1325 do cleanup:
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1326
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1327 -- Only when there's C alloca() data, and then
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1328 -- Every stack alloca() or allocation of Lisp data, every call to
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1329 next_event_internal() [typically near the top of the stack],
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1330 or every 10th funcall
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1331
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1332 This should not be a big penalty because
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1333
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1334 (a) If there are few C alloca() chunks, checking them will be fast
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1335 (b) If not, we've allocated a huge amount of heap space (remember, each
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1336 chunk represents > 256K of heap), and we really want them gone
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1337 */
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1338
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1339 /* We use a larger maximum when the choice is alloca() vs. the C alloca()
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1340 substitute than when the choice is vs. malloc(), because in the former
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1341 case, our alternative choice is less palatable because the memory may
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1342 not be freed for awhile. */
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1343
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1344 #define MAX_ALLOCA_VS_C_ALLOCA 262144
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1345 #define MAX_ALLOCA_VS_MALLOC 65536
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1346
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1347 #define MAX_FUNCALLS_BETWEEN_ALLOCA_CLEANUP 10
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1348
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	1349 extern MODULE_API Bytecount __temp_alloca_size__;
851 e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1350 extern Bytecount funcall_alloca_count;
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1351
1333 1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben] ben parents: 1318 diff changeset	1352 #ifdef ERROR_CHECK_MALLOC
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	1353 extern MODULE_API int regex_malloc_disallowed;
1333 1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben] ben parents: 1318 diff changeset	1354 #define REGEX_MALLOC_CHECK() assert (!regex_malloc_disallowed)
1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben] ben parents: 1318 diff changeset	1355 #else
1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben] ben parents: 1318 diff changeset	1356 #define REGEX_MALLOC_CHECK() ((void) 0)
1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben] ben parents: 1318 diff changeset	1357 #endif
1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben] ben parents: 1318 diff changeset	1358
851 e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1359 /* Do stack or heap alloca() depending on size.
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1360
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1361 NOTE: The use of a global temporary like this is unsafe if ALLOCA() occurs
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1362 twice anywhere in the same expression; but that seems highly unlikely. The
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1363 alternative is to force all callers to declare a local temporary if the
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1364 expression has side effects -- something easy to forget. */
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1365
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1366 #define ALLOCA(size) \
1333 1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben] ben parents: 1318 diff changeset	1367 (REGEX_MALLOC_CHECK (), \
1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben] ben parents: 1318 diff changeset	1368 __temp_alloca_size__ = (size), \
851 e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1369 __temp_alloca_size__ > MAX_ALLOCA_VS_C_ALLOCA ? \
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1370 xemacs_c_alloca (__temp_alloca_size__) : \
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1371 (need_to_check_c_alloca ? xemacs_c_alloca (0) : 0, \
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1372 alloca (__temp_alloca_size__)))
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1373
1318 b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	1374 /* Version of ALLOCA() that is guaranteed to work inside of function calls
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	1375 (i.e., we call the C alloca if regular alloca() is broken inside of
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	1376 function calls). */
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	1377 #ifdef BROKEN_ALLOCA_IN_FUNCTION_CALLS
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	1378 #define ALLOCA_FUNCALL_OK(size) xemacs_c_alloca (size)
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	1379 #else
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	1380 #define ALLOCA_FUNCALL_OK(size) ALLOCA (size)
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	1381 #endif
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	1382
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1383 MODULE_API void *xemacs_c_alloca (unsigned int size) ATTRIBUTE_MALLOC;
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1384
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1385 MODULE_API int record_unwind_protect_freeing (void *ptr);
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1386
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1387 DECLARE_INLINE_HEADER (
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1388 void *
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1389 xmalloc_and_record_unwind (Bytecount size)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1390 )
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1391 {
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1392 void *ptr = xmalloc (size);
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1393 record_unwind_protect_freeing (ptr);
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1394 return ptr;
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1395 }
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1396
851 e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1397 /* WARNING: If you use this, you must unbind_to() at the end of your
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1398 function! */
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1399
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1400 #define MALLOC_OR_ALLOCA(size) \
1333 1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben] ben parents: 1318 diff changeset	1401 (REGEX_MALLOC_CHECK (), \
1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben] ben parents: 1318 diff changeset	1402 __temp_alloca_size__ = (size), \
851 e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1403 __temp_alloca_size__ > MAX_ALLOCA_VS_MALLOC ? \
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1404 xmalloc_and_record_unwind (__temp_alloca_size__) : \
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1405 (need_to_check_c_alloca ? xemacs_c_alloca (0) : 0, \
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	1406 alloca (__temp_alloca_size__)))
793 e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1407
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1408 /* -------------- convenience functions for memory allocation ------------- */
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1409
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1410 #define countof(x) ((int) (sizeof(x)/sizeof((x)[0])))
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1411 #define xnew(type) ((type *) xmalloc (sizeof (type)))
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1412 #define xnew_array(type, len) ((type ) xmalloc ((len) sizeof (type)))
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1413 #define xnew_and_zero(type) ((type *) xmalloc_and_zero (sizeof (type)))
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1414 #define xzero(lvalue) ((void) memset (&(lvalue), '\0', sizeof (lvalue)))
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1415 #define xnew_array_and_zero(type, len) ((type ) xmalloc_and_zero ((len) sizeof (type)))
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1416
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1417 #define alloca_new(type) ((type *) ALLOCA (sizeof (type)))
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1418 #define alloca_array(type, len) ((type ) ALLOCA ((len) sizeof (type)))
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1419
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1420 #define alloca_itexts(num) alloca_array (Itext, num)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1421 #define alloca_ibytes(num) alloca_array (Ibyte, num)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1422 #define alloca_extbytes(num) alloca_array (Extbyte, num)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1423 #define alloca_rawbytes(num) alloca_array (Rawbyte, num)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1424 #define alloca_binbytes(num) alloca_array (Binbyte, num)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1425 #define alloca_ascbytes(num) alloca_array (Ascbyte, num)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1426 #define xmalloc_itexts(num) xnew_array (Itext, num)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1427 #define xnew_ibytes(num) xnew_array (Ibyte, num)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1428 #define xnew_extbytes(num) xnew_array (Extbyte, num)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1429 #define xnew_rawbytes(num) xnew_array (Rawbyte, num)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1430 #define xnew_binbytes(num) xnew_array (Binbyte, num)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1431 #define xnew_ascbytes(num) xnew_array (Ascbyte, num)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1432
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1433 /* Make an alloca'd copy of a Ibyte * */
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1434 #define IBYTE_STRING_TO_ALLOCA(p, lval) \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1435 do { \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1436 Ibyte _bsta_ = (Ibyte ) &(lval); \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1437 const Ibyte *_bsta_2 = (p); \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1438 Bytecount _bsta_3 = qxestrlen (_bsta_2); \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1439 *_bsta_ = alloca_ibytes (1 + _bsta_3); \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1440 memcpy (*_bsta_, _bsta_2, 1 + _bsta_3); \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1441 } while (0)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1442
5200 70ed8a0d8da8 port Mule-ization of mule-wnnfns.c from ben-unicode-internal Ben Wing <ben@xemacs.org> parents: 5191 diff changeset	1443 /* Make an alloca'd copy of a Extbyte * */
70ed8a0d8da8 port Mule-ization of mule-wnnfns.c from ben-unicode-internal Ben Wing <ben@xemacs.org> parents: 5191 diff changeset	1444 #define EXTBYTE_STRING_TO_ALLOCA(p, lval) \
70ed8a0d8da8 port Mule-ization of mule-wnnfns.c from ben-unicode-internal Ben Wing <ben@xemacs.org> parents: 5191 diff changeset	1445 do { \
70ed8a0d8da8 port Mule-ization of mule-wnnfns.c from ben-unicode-internal Ben Wing <ben@xemacs.org> parents: 5191 diff changeset	1446 Extbyte _esta_ = (Extbyte ) &(lval); \
70ed8a0d8da8 port Mule-ization of mule-wnnfns.c from ben-unicode-internal Ben Wing <ben@xemacs.org> parents: 5191 diff changeset	1447 const Extbyte *_esta_2 = (p); \
70ed8a0d8da8 port Mule-ization of mule-wnnfns.c from ben-unicode-internal Ben Wing <ben@xemacs.org> parents: 5191 diff changeset	1448 Bytecount _esta_3 = strlen (_esta_2); \
70ed8a0d8da8 port Mule-ization of mule-wnnfns.c from ben-unicode-internal Ben Wing <ben@xemacs.org> parents: 5191 diff changeset	1449 *_esta_ = alloca_extbytes (1 + _esta_3); \
70ed8a0d8da8 port Mule-ization of mule-wnnfns.c from ben-unicode-internal Ben Wing <ben@xemacs.org> parents: 5191 diff changeset	1450 memcpy (*_esta_, _esta_2, 1 + _esta_3); \
70ed8a0d8da8 port Mule-ization of mule-wnnfns.c from ben-unicode-internal Ben Wing <ben@xemacs.org> parents: 5191 diff changeset	1451 } while (0)
70ed8a0d8da8 port Mule-ization of mule-wnnfns.c from ben-unicode-internal Ben Wing <ben@xemacs.org> parents: 5191 diff changeset	1452
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1453 /* ----------------- convenience functions for reallocation --------------- */
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1454
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1455 #define XREALLOC_ARRAY(ptr, type, len) \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1456 ((void) (ptr = (type ) xrealloc (ptr, (len) sizeof (type))))
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1457
793 e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1458 /* also generally useful if you want to avoid arbitrary size limits
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1459 but don't need a full dynamic array. Assumes that BASEVAR points
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1460 to a malloced array of TYPE objects (or possibly a NULL pointer,
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1461 if SIZEVAR is 0), with the total size stored in SIZEVAR. This
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1462 macro will realloc BASEVAR as necessary so that it can hold at
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1463 least NEEDED_SIZE objects. The reallocing is done by doubling,
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1464 which ensures constant amortized time per element. */
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1465 #define DO_REALLOC(basevar, sizevar, needed_size, type) do { \
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1466 Bytecount do_realloc_needed_size = (needed_size); \
1333 1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben] ben parents: 1318 diff changeset	1467 REGEX_MALLOC_CHECK (); \
793 e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1468 if ((sizevar) < do_realloc_needed_size) \
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1469 { \
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1470 if ((sizevar) < 32) \
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1471 (sizevar) = 32; \
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1472 while ((sizevar) < do_realloc_needed_size) \
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1473 (sizevar) *= 2; \
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1474 XREALLOC_ARRAY (basevar, type, (sizevar)); \
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1475 } \
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1476 } while (0)
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1477
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1478 /************************************************************************/
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1479 / Definitions of more complex types /
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	1480 /************************************************************************/
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1481
647 b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben] ben parents: 617 diff changeset	1482 /* Note that the simplest typedefs are near the top of this file. */
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben] ben parents: 617 diff changeset	1483
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1484 /* We put typedefs here so that prototype declarations don't choke.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1485 Note that we don't actually declare the structures here (except
5038 9410323e4b0d major dynarr fixes Ben Wing <ben@xemacs.org> parents: 5023 diff changeset	1486 maybe for simple structures like dynarrs); that keeps them private
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1487 to the routines that actually use them. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1488
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1489 /* ------------------------------- */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1490 /* Error_Behavior typedefs */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1491 /* ------------------------------- */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1492
800 a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben] ben parents: 793 diff changeset	1493 #ifndef ERROR_CHECK_TYPES
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1494
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1495 typedef enum error_behavior
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1496 {
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1497 ERROR_ME,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1498 ERROR_ME_NOT,
793 e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1499 ERROR_ME_WARN,
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1500 ERROR_ME_DEBUG_WARN
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1501 } Error_Behavior;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1502
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1503 #define ERRB_EQ(a, b) ((a) == (b))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1504
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1505 #else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1506
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1507 /* By defining it like this, we provide strict type-checking
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1508 for code that lazily uses ints. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1509
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1510 typedef struct _error_behavior_struct_
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1511 {
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1512 int really_unlikely_name_to_have_accidentally_in_a_non_errb_structure;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1513 } Error_Behavior;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1514
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1515 extern Error_Behavior ERROR_ME;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1516 extern Error_Behavior ERROR_ME_NOT;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1517 extern Error_Behavior ERROR_ME_WARN;
793 e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	1518 extern Error_Behavior ERROR_ME_DEBUG_WARN;
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1519
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1520 #define ERRB_EQ(a, b) \
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1521 ((a).really_unlikely_name_to_have_accidentally_in_a_non_errb_structure == \
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1522 (b).really_unlikely_name_to_have_accidentally_in_a_non_errb_structure)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1523
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1524 #endif
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1525
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1526 /* ------------------------------- */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1527 /* Empty structures and typedefs */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1528 /* ------------------------------- */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1529
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1530 struct buffer; /* "buffer.h" */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1531 struct console; /* "console.h" */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1532 struct device; /* "device.h" */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1533 struct extent_fragment;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1534 struct extent;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1535 struct frame; /* "frame.h" */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1536 struct window; /* "window.h" */
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1537 struct utimbuf; /* "systime.h" or <utime.h> */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1538 struct display_line;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1539 struct display_glyph_area;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1540 struct display_box;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1541 struct redisplay_info;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1542 struct window_mirror;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1543 struct scrollbar_instance;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1544 struct font_metric_info;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1545 struct face_cachel;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1546 struct console_type_entry;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1547
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1548 /* This is shared by process.h, events.h and others in future.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1549 See events.h for description */
4123 5333f383efbd [xemacs-hg @ 2007-08-17 08:04:25 by crestani] crestani parents: 4096 diff changeset	1550 typedef unsigned EMACS_INT USID;
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1551 typedef int face_index;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1552 typedef int glyph_index;
1726 a8d8f419b459 [xemacs-hg @ 2003-09-30 15:26:34 by james] james parents: 1706 diff changeset	1553 typedef struct lstream Lstream; /* lstream.h */
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1554 typedef struct extent EXTENT; / extents-impl.h */
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1555 typedef struct Lisp_Event Lisp_Event; /* "events.h" */
872 79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben] ben parents: 867 diff changeset	1556 typedef struct Lisp_Face Lisp_Face; /* "faces-impl.h" */
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1557 typedef struct Lisp_Process Lisp_Process; /* "procimpl.h" */
5176 8b2f75cecb89 rename objects* (.c, .h and .el files) to fontcolor* Ben Wing <ben@xemacs.org> parents: 5052 diff changeset	1558 typedef struct Lisp_Color_Instance Lisp_Color_Instance; /* fontcolor-impl.h */
8b2f75cecb89 rename objects* (.c, .h and .el files) to fontcolor* Ben Wing <ben@xemacs.org> parents: 5052 diff changeset	1559 typedef struct Lisp_Font_Instance Lisp_Font_Instance; /* fontcolor-impl.h */
1726 a8d8f419b459 [xemacs-hg @ 2003-09-30 15:26:34 by james] james parents: 1706 diff changeset	1560 typedef struct Lisp_Image_Instance Lisp_Image_Instance; /* glyphs.h */
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1561 typedef struct Lisp_Gui_Item Lisp_Gui_Item;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1562
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1563 /* ------------------------------- */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1564 /* enum typedefs */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1565 /* ------------------------------- */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1566
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1567 enum run_hooks_condition
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1568 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1569 RUN_HOOKS_TO_COMPLETION,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1570 RUN_HOOKS_UNTIL_SUCCESS,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1571 RUN_HOOKS_UNTIL_FAILURE
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1572 };
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1573
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1574 enum edge_style
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1575 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1576 EDGE_ETCHED_IN,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1577 EDGE_ETCHED_OUT,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1578 EDGE_BEVEL_IN,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1579 EDGE_BEVEL_OUT
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1580 };
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1581
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1582 enum munge_me_out_the_door
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1583 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1584 MUNGE_ME_FUNCTION_KEY,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1585 MUNGE_ME_KEY_TRANSLATION
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1586 };
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1587
5015 d95c102a96d3 cleanups for specifier font stages, from ben-unicode-internal (preparation for eliminating shadowed warnings) Ben Wing <ben@xemacs.org> parents: 5013 diff changeset	1588 /* The various stages of font instantiation; initial means "find a font for
d95c102a96d3 cleanups for specifier font stages, from ben-unicode-internal (preparation for eliminating shadowed warnings) Ben Wing <ben@xemacs.org> parents: 5013 diff changeset	1589 CHARSET that matches the charset's registries" and final means "find a
d95c102a96d3 cleanups for specifier font stages, from ben-unicode-internal (preparation for eliminating shadowed warnings) Ben Wing <ben@xemacs.org> parents: 5013 diff changeset	1590 font for CHARSET that matches iso10646-1, since we haven't found a font
d95c102a96d3 cleanups for specifier font stages, from ben-unicode-internal (preparation for eliminating shadowed warnings) Ben Wing <ben@xemacs.org> parents: 5013 diff changeset	1591 that matches its registry."
d95c102a96d3 cleanups for specifier font stages, from ben-unicode-internal (preparation for eliminating shadowed warnings) Ben Wing <ben@xemacs.org> parents: 5013 diff changeset	1592 */
d95c102a96d3 cleanups for specifier font stages, from ben-unicode-internal (preparation for eliminating shadowed warnings) Ben Wing <ben@xemacs.org> parents: 5013 diff changeset	1593 enum font_specifier_matchspec_stages
d95c102a96d3 cleanups for specifier font stages, from ben-unicode-internal (preparation for eliminating shadowed warnings) Ben Wing <ben@xemacs.org> parents: 5013 diff changeset	1594 {
d95c102a96d3 cleanups for specifier font stages, from ben-unicode-internal (preparation for eliminating shadowed warnings) Ben Wing <ben@xemacs.org> parents: 5013 diff changeset	1595 STAGE_INITIAL,
d95c102a96d3 cleanups for specifier font stages, from ben-unicode-internal (preparation for eliminating shadowed warnings) Ben Wing <ben@xemacs.org> parents: 5013 diff changeset	1596 STAGE_FINAL,
d95c102a96d3 cleanups for specifier font stages, from ben-unicode-internal (preparation for eliminating shadowed warnings) Ben Wing <ben@xemacs.org> parents: 5013 diff changeset	1597 NUM_MATCHSPEC_STAGES,
d95c102a96d3 cleanups for specifier font stages, from ben-unicode-internal (preparation for eliminating shadowed warnings) Ben Wing <ben@xemacs.org> parents: 5013 diff changeset	1598 };
d95c102a96d3 cleanups for specifier font stages, from ben-unicode-internal (preparation for eliminating shadowed warnings) Ben Wing <ben@xemacs.org> parents: 5013 diff changeset	1599
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1600 /* ------------------------------- */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1601 /* misc */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1602 /* ------------------------------- */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1603
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1604 /* This structure is used to keep statistics on the amount of memory
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1605 in use.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1606
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1607 WAS_REQUESTED stores the actual amount of memory that was requested
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1608 of the allocation function. The *_OVERHEAD fields store the
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1609 additional amount of memory that was grabbed by the functions to
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1610 facilitate allocation, reallocation, etc. MALLOC_OVERHEAD is for
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1611 memory allocated with malloc(); DYNARR_OVERHEAD is for dynamic
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1612 arrays; GAP_OVERHEAD is for gap arrays. Note that for (e.g.)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1613 dynamic arrays, there is both MALLOC_OVERHEAD and DYNARR_OVERHEAD
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1614 memory: The dynamic array allocates memory above and beyond what
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1615 was asked of it, and when it in turns allocates memory using
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1616 malloc(), malloc() allocates memory beyond what it was asked
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1617 to allocate.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1618
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1619 Functions that accept a structure of this sort do not initialize
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1620 the fields to 0, and add any existing values to whatever was there
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1621 before; this way, you can get a cumulative effect. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1622
5157 1fae11d56ad2 redo memory-usage mechanism, add way of dynamically initializing Lisp objects Ben Wing <ben@xemacs.org> parents: 5146 diff changeset	1623 struct usage_stats
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1624 {
5157 1fae11d56ad2 redo memory-usage mechanism, add way of dynamically initializing Lisp objects Ben Wing <ben@xemacs.org> parents: 5146 diff changeset	1625 Bytecount was_requested;
1fae11d56ad2 redo memory-usage mechanism, add way of dynamically initializing Lisp objects Ben Wing <ben@xemacs.org> parents: 5146 diff changeset	1626 Bytecount malloc_overhead;
1fae11d56ad2 redo memory-usage mechanism, add way of dynamically initializing Lisp objects Ben Wing <ben@xemacs.org> parents: 5146 diff changeset	1627 Bytecount dynarr_overhead;
1fae11d56ad2 redo memory-usage mechanism, add way of dynamically initializing Lisp objects Ben Wing <ben@xemacs.org> parents: 5146 diff changeset	1628 Bytecount gap_overhead;
1fae11d56ad2 redo memory-usage mechanism, add way of dynamically initializing Lisp objects Ben Wing <ben@xemacs.org> parents: 5146 diff changeset	1629 };
1fae11d56ad2 redo memory-usage mechanism, add way of dynamically initializing Lisp objects Ben Wing <ben@xemacs.org> parents: 5146 diff changeset	1630
5170 5ddbab03b0e6 various fixes to memory-usage stats Ben Wing <ben@xemacs.org> parents: 5169 diff changeset	1631 /* Generic version of usage stats structure including extra non-Lisp and
5ddbab03b0e6 various fixes to memory-usage stats Ben Wing <ben@xemacs.org> parents: 5169 diff changeset	1632 Lisp storage associated with the object, but not including the memory
5ddbab03b0e6 various fixes to memory-usage stats Ben Wing <ben@xemacs.org> parents: 5169 diff changeset	1633 used to hold the object itself. Up to 32 statistics are allowed,
5ddbab03b0e6 various fixes to memory-usage stats Ben Wing <ben@xemacs.org> parents: 5169 diff changeset	1634 in addition to the statistics in `U', which store another slice onto the
5ddbab03b0e6 various fixes to memory-usage stats Ben Wing <ben@xemacs.org> parents: 5169 diff changeset	1635 ancillary non-Lisp storage.
5ddbab03b0e6 various fixes to memory-usage stats Ben Wing <ben@xemacs.org> parents: 5169 diff changeset	1636
5ddbab03b0e6 various fixes to memory-usage stats Ben Wing <ben@xemacs.org> parents: 5169 diff changeset	1637 Normally, each object creates its own version of this structure, e.g.
5ddbab03b0e6 various fixes to memory-usage stats Ben Wing <ben@xemacs.org> parents: 5169 diff changeset	1638 `struct window_stats', which parallels the structure in beginning with
5ddbab03b0e6 various fixes to memory-usage stats Ben Wing <ben@xemacs.org> parents: 5169 diff changeset	1639 a `struct usage_stats' and followed by Bytecount fields, so that a
5ddbab03b0e6 various fixes to memory-usage stats Ben Wing <ben@xemacs.org> parents: 5169 diff changeset	1640 pointer to that structure can be cast to a pointer of this structure
5ddbab03b0e6 various fixes to memory-usage stats Ben Wing <ben@xemacs.org> parents: 5169 diff changeset	1641 and sensible results gotten. */
5ddbab03b0e6 various fixes to memory-usage stats Ben Wing <ben@xemacs.org> parents: 5169 diff changeset	1642
5157 1fae11d56ad2 redo memory-usage mechanism, add way of dynamically initializing Lisp objects Ben Wing <ben@xemacs.org> parents: 5146 diff changeset	1643 struct generic_usage_stats
1fae11d56ad2 redo memory-usage mechanism, add way of dynamically initializing Lisp objects Ben Wing <ben@xemacs.org> parents: 5146 diff changeset	1644 {
1fae11d56ad2 redo memory-usage mechanism, add way of dynamically initializing Lisp objects Ben Wing <ben@xemacs.org> parents: 5146 diff changeset	1645 struct usage_stats u;
1fae11d56ad2 redo memory-usage mechanism, add way of dynamically initializing Lisp objects Ben Wing <ben@xemacs.org> parents: 5146 diff changeset	1646 Bytecount othervals[32];
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1647 };
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1648
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1649
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1650 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1651 /* Definition of Lisp_Object data type */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1652 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1653
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1654 /* Define the fundamental Lisp data structures */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1655
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1656 /* This is the set of Lisp data types */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1657
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1658 enum Lisp_Type
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1659 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1660 Lisp_Type_Record,
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	1661 Lisp_Type_Fixnum_Even,
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1662 Lisp_Type_Char,
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	1663 Lisp_Type_Fixnum_Odd
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1664 };
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1665
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1666 #define POINTER_TYPE_P(type) ((type) == Lisp_Type_Record)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1667
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1668 /* Overridden by m/next.h */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1669 #ifndef ASSERT_VALID_POINTER
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1670 # define ASSERT_VALID_POINTER(pnt) (assert ((((EMACS_UINT) pnt) & 3) == 0))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1671 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1672
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1673 #define GCMARKBITS 0
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1674 #define GCTYPEBITS 2
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1675 #define GCBITS 2
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	1676 #define FIXNUM_GCBITS 1
56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	1677
56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	1678 #define FIXNUM_VALBITS (BITS_PER_EMACS_INT - FIXNUM_GCBITS)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1679 #define VALBITS (BITS_PER_EMACS_INT - GCBITS)
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	1680 #define MOST_POSITIVE_FIXNUM ((EMACS_INT) ((1UL << (FIXNUM_VALBITS - 1)) -1UL))
56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	1681 #define MOST_NEGATIVE_FIXNUM (-(MOST_POSITIVE_FIXNUM) - 1)
802 19dfb459d51a [xemacs-hg @ 2002-04-03 10:47:37 by ben] ben parents: 801 diff changeset	1682 /* WARNING: evaluates its arg twice. */
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	1683 #define NUMBER_FITS_IN_A_FIXNUM(num) \
56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	1684 ((num) <= MOST_POSITIVE_FIXNUM && (num) >= MOST_NEGATIVE_FIXNUM)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1685
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1686 #ifdef USE_UNION_TYPE
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1687 # include "lisp-union.h"
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1688 #else /* !USE_UNION_TYPE */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1689 # include "lisp-disunion.h"
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1690 #endif /* !USE_UNION_TYPE */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1691
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1692 #define XPNTR(x) ((void *) XPNTRVAL(x))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1693
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1694 /* Close your eyes now lest you vomit or spontaneously combust ... */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1695
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1696 #define HACKEQ_UNSAFE(obj1, obj2) \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1697 (EQ (obj1, obj2) \|\| (!POINTER_TYPE_P (XTYPE (obj1)) \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1698 && !POINTER_TYPE_P (XTYPE (obj2)) \
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	1699 && XCHAR_OR_FIXNUM (obj1) == XCHAR_OR_FIXNUM (obj2)))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1700
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1701 #ifdef DEBUG_XEMACS
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	1702 extern MODULE_API int debug_issue_ebola_notices;
64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	1703 MODULE_API int eq_with_ebola_notice (Lisp_Object, Lisp_Object);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1704 #define EQ_WITH_EBOLA_NOTICE(obj1, obj2) \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1705 (debug_issue_ebola_notices ? eq_with_ebola_notice (obj1, obj2) \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1706 : EQ (obj1, obj2))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1707 #else
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1708 #define EQ_WITH_EBOLA_NOTICE(obj1, obj2) EQ (obj1, obj2)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1709 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1710
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1711 /* OK, you can open them again */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1712
1743 543769b89fed [xemacs-hg @ 2003-10-14 05:02:57 by james] james parents: 1726 diff changeset	1713 END_C_DECLS
1650 34abfb24e891 [xemacs-hg @ 2003-08-28 15:44:04 by james] james parents: 1632 diff changeset	1714
4967 0d4c9d0f6a8d rewrite dynarr code Ben Wing <ben@xemacs.org> parents: 4966 diff changeset	1715 #include "lrecord.h"
0d4c9d0f6a8d rewrite dynarr code Ben Wing <ben@xemacs.org> parents: 4966 diff changeset	1716
5013 ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1717 /* Turn any void * pointer into a Lisp object. This is the counterpart of
ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1718 STORE_LISP_IN_VOID, which works in the opposite direction. Note that
ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1719 you CANNOT use STORE_LISP_IN_VOID to undo the effects of STORE_VOID_IN_LISP!
ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1720 Instead, you GET_VOID_FROM_LISP:
ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1721
ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1722 STORE_VOID_IN_LISP <--> GET_VOID_FROM_LISP vs.
ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1723 STORE_LISP_IN_VOID <--> GET_LISP_FROM_VOID
ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1724
ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1725 STORE_VOID_IN_LISP has a restriction on the void * pointers it can
ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1726 handle -- the pointer must be an even address (lowest bit set to 0).
ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1727 Generally this is not a problem as nowadays virtually all allocation is
ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1728 at least 4-byte aligned, if not 8-byte.
ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1729
ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1730 However, if this proves problematic, you can use make_opaque_ptr(), which
ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1731 is guaranteed to handle any kind of void * pointer but which does
ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1732 Lisp allocation.
ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1733 */
ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1734
ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1735 DECLARE_INLINE_HEADER (
ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1736 Lisp_Object
ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1737 STORE_VOID_IN_LISP (void *ptr)
ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1738 )
ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1739 {
ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1740 EMACS_UINT p = (EMACS_UINT) ptr;
ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1741
ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1742 type_checking_assert ((p & 1) == 0);
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	1743 return make_fixnum (p >> 1);
5013 ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1744 }
ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1745
ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1746 DECLARE_INLINE_HEADER (
ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1747 void *
ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1748 GET_VOID_FROM_LISP (Lisp_Object obj)
ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1749 )
ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1750 {
ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1751 EMACS_UINT p = XUINT (obj);
ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1752 return (void *) (p << 1);
ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1753 }
ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	1754
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1755 /************************************************************************/
5168 cf900a2f1fa3 extract gap array from extents.c, use in range tables Ben Wing <ben@xemacs.org> parents: 5160 diff changeset	1756 / Definitions of dynarrs and other allocators /
4967 0d4c9d0f6a8d rewrite dynarr code Ben Wing <ben@xemacs.org> parents: 4966 diff changeset	1757 /************************************************************************/
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1758
5168 cf900a2f1fa3 extract gap array from extents.c, use in range tables Ben Wing <ben@xemacs.org> parents: 5160 diff changeset	1759 #include "array.h"
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1760
4967 0d4c9d0f6a8d rewrite dynarr code Ben Wing <ben@xemacs.org> parents: 4966 diff changeset	1761 /*********** Dynarr typedefs ***********/
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1762
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1763 /* Dynarr typedefs -- basic types first */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1764
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1765 typedef struct
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1766 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1767 Dynarr_declare (Ibyte);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1768 } Ibyte_dynarr;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1769
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1770 typedef struct
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1771 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1772 Dynarr_declare (Extbyte);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1773 } Extbyte_dynarr;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1774
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1775 typedef struct
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1776 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1777 Dynarr_declare (Ichar);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1778 } Ichar_dynarr;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1779
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1780 typedef struct
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1781 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1782 Dynarr_declare (char);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1783 } char_dynarr;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1784
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1785 typedef struct
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1786 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1787 Dynarr_declare (char *);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1788 } char_ptr_dynarr;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1789
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1790 typedef unsigned char unsigned_char;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1791 typedef struct
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1792 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1793 Dynarr_declare (unsigned char);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1794 } unsigned_char_dynarr;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1795
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1796 typedef unsigned long unsigned_long;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1797 typedef struct
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1798 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1799 Dynarr_declare (unsigned long);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1800 } unsigned_long_dynarr;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1801
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	1802 typedef const Ascbyte *const_Ascbyte_ptr;
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	1803 typedef struct
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	1804 {
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	1805 Dynarr_declare (const Ascbyte *);
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	1806 } const_Ascbyte_ptr_dynarr;
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	1807
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	1808 extern const struct sized_memory_description const_Ascbyte_ptr_description;
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	1809 extern const struct sized_memory_description const_Ascbyte_ptr_dynarr_description;
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	1810
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1811 typedef struct
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1812 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1813 Dynarr_declare (int);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1814 } int_dynarr;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1815
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1816 typedef struct
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1817 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1818 Dynarr_declare (Charbpos);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1819 } Charbpos_dynarr;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1820
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1821 typedef struct
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1822 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1823 Dynarr_declare (Bytebpos);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1824 } Bytebpos_dynarr;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1825
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1826 typedef struct
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1827 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1828 Dynarr_declare (Charcount);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1829 } Charcount_dynarr;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1830
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1831 typedef struct
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1832 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1833 Dynarr_declare (Bytecount);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1834 } Bytecount_dynarr;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1835
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1836 /* Dynarr typedefs -- more complex types */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1837
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1838 typedef struct
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1839 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1840 Dynarr_declare (struct face_cachel);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1841 } face_cachel_dynarr;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1842
3293 168191f9515f [xemacs-hg @ 2006-03-20 21:20:19 by crestani] crestani parents: 3263 diff changeset	1843 #ifdef NEW_GC
5118 e0db3c197671 merge up to latest default branch, doesn't compile yet Ben Wing <ben@xemacs.org> parents: 5117 4744 diff changeset	1844 DECLARE_LISP_OBJECT (face_cachel_dynarr, face_cachel_dynarr);
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1845 #define XFACE_CACHEL_DYNARR(x) \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1846 XRECORD (x, face_cachel_dynarr, face_cachel_dynarr)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1847 #define wrap_face_cachel_dynarr(p) wrap_record (p, face_cachel_dynarr)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1848 #define FACE_CACHEL_DYNARRP(x) RECORDP (x, face_cachel_dynarr)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1849 #define CHECK_FACE_CACHEL_DYNARR(x) CHECK_RECORD (x, face_cachel_dynarr)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1850 #define CONCHECK_FACE_CACHEL_DYNARR(x) CONCHECK_RECORD (x, face_cachel_dynarr)
3293 168191f9515f [xemacs-hg @ 2006-03-20 21:20:19 by crestani] crestani parents: 3263 diff changeset	1851 #endif /* NEW_GC */
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1852
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1853 typedef struct
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1854 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1855 Dynarr_declare (struct glyph_cachel);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1856 } glyph_cachel_dynarr;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1857
3293 168191f9515f [xemacs-hg @ 2006-03-20 21:20:19 by crestani] crestani parents: 3263 diff changeset	1858 #ifdef NEW_GC
5118 e0db3c197671 merge up to latest default branch, doesn't compile yet Ben Wing <ben@xemacs.org> parents: 5117 4744 diff changeset	1859 DECLARE_LISP_OBJECT (glyph_cachel_dynarr, glyph_cachel_dynarr);
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1860 #define XGLYPH_CACHEL_DYNARR(x) \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1861 XRECORD (x, glyph_cachel_dynarr, glyph_cachel_dynarr)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1862 #define wrap_glyph_cachel_dynarr(p) wrap_record (p, glyph_cachel_dynarr)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1863 #define GLYPH_CACHEL_DYNARRP(x) RECORDP (x, glyph_cachel_dynarr)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1864 #define CHECK_GLYPH_CACHEL_DYNARR(x) CHECK_RECORD (x, glyph_cachel_dynarr)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1865 #define CONCHECK_GLYPH_CACHEL_DYNARR(x) \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1866 CONCHECK_RECORD (x, glyph_cachel_dynarr)
3293 168191f9515f [xemacs-hg @ 2006-03-20 21:20:19 by crestani] crestani parents: 3263 diff changeset	1867 #endif /* NEW_GC */
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1868
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1869 typedef struct
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1870 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1871 Dynarr_declare (struct console_type_entry);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1872 } console_type_entry_dynarr;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1873
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1874 /* WARNING WARNING WARNING. You must ensure on your own that proper
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1875 GC protection is provided for the elements in this array. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1876 typedef struct
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1877 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1878 Dynarr_declare (Lisp_Object);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1879 } Lisp_Object_dynarr;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1880
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1881 typedef struct
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1882 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1883 Dynarr_declare (Lisp_Object *);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1884 } Lisp_Object_ptr_dynarr;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	1885
4967 0d4c9d0f6a8d rewrite dynarr code Ben Wing <ben@xemacs.org> parents: 4966 diff changeset	1886
0d4c9d0f6a8d rewrite dynarr code Ben Wing <ben@xemacs.org> parents: 4966 diff changeset	1887 /************************************************************************/
0d4c9d0f6a8d rewrite dynarr code Ben Wing <ben@xemacs.org> parents: 4966 diff changeset	1888 / Definitions of other basic Lisp objects /
0d4c9d0f6a8d rewrite dynarr code Ben Wing <ben@xemacs.org> parents: 4966 diff changeset	1889 /************************************************************************/
0d4c9d0f6a8d rewrite dynarr code Ben Wing <ben@xemacs.org> parents: 4966 diff changeset	1890
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1891 /------------------------------ unbound -------------------------------/
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1892
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1893 /* Qunbound is a special Lisp_Object (actually of type
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1894 symbol-value-forward), that can never be visible to
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1895 the Lisp caller and thus can be used in the C code
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1896 to mean "no such value". */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1897
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1898 #define UNBOUNDP(val) EQ (val, Qunbound)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1899
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1900 /* Evaluate expr, return it if it's not Qunbound. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1901 #define RETURN_IF_NOT_UNBOUND(expr) do \
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1902 { \
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1903 Lisp_Object ret_nunb_val = (expr); \
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1904 if (!UNBOUNDP (ret_nunb_val)) \
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1905 RETURN_SANS_WARNINGS ret_nunb_val; \
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1906 } while (0)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	1907
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1908 /------------------------------- cons ---------------------------------/
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1909
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1910 /* In a cons, the markbit of the car is the gc mark bit */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1911
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1912 struct Lisp_Cons
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1913 {
5120 d1247f3cc363 latest work on lisp-object workspace; Ben Wing <ben@xemacs.org> parents: 5118 diff changeset	1914 FROB_BLOCK_LISP_OBJECT_HEADER lheader;
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	1915 Lisp_Object car_, cdr_;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1916 };
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1917 typedef struct Lisp_Cons Lisp_Cons;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1918
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1919 #if 0 /* FSFmacs */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1920 /* Like a cons, but records info on where the text lives that it was read from */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1921 /* This is not really in use now */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1922
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1923 struct Lisp_Buffer_Cons
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1924 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1925 Lisp_Object car, cdr;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1926 struct buffer *buffer;
665 fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben] ben parents: 647 diff changeset	1927 int charbpos;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1928 };
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1929 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1930
5120 d1247f3cc363 latest work on lisp-object workspace; Ben Wing <ben@xemacs.org> parents: 5118 diff changeset	1931 DECLARE_MODULE_API_LISP_OBJECT (cons, Lisp_Cons);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1932 #define XCONS(x) XRECORD (x, cons, Lisp_Cons)
617 af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben] ben parents: 614 diff changeset	1933 #define wrap_cons(p) wrap_record (p, cons)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1934 #define CONSP(x) RECORDP (x, cons)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1935 #define CHECK_CONS(x) CHECK_RECORD (x, cons)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1936 #define CONCHECK_CONS(x) CONCHECK_RECORD (x, cons)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1937
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3250 diff changeset	1938 #ifdef NEW_GC
2720 6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	1939 #define CONS_MARKED_P(c) MARKED_P (&((c)->lheader))
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	1940 #define MARK_CONS(c) MARK (&((c)->lheader))
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3250 diff changeset	1941 #else /* not NEW_GC */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1942 #define CONS_MARKED_P(c) MARKED_RECORD_HEADER_P(&((c)->lheader))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1943 #define MARK_CONS(c) MARK_RECORD_HEADER (&((c)->lheader))
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3250 diff changeset	1944 #endif /* not NEW_GC */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1945
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	1946 extern MODULE_API Lisp_Object Qnil;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1947
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1948 #define NILP(x) EQ (x, Qnil)
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	1949 #define cons_car(a) ((a)->car_)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	1950 #define cons_cdr(a) ((a)->cdr_)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	1951 #define XCAR(a) (XCONS (a)->car_)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	1952 #define XCDR(a) (XCONS (a)->cdr_)
1318 b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	1953 #define XCADR(a) (XCAR (XCDR (a)))
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	1954 #define XCDDR(a) (XCDR (XCDR (a)))
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	1955 #define XCADDR(a) (XCAR (XCDDR (a)))
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	1956 #define XCDDDR(a) (XCDR (XCDDR (a)))
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	1957 #define XCADDDR(a) (XCAR (XCDDDR (a)))
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	1958 #define XCDDDDR(a) (XCDR (XCDDDR (a)))
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	1959 #define XCADDDDR(a) (XCAR (XCDDDDR (a)))
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	1960 #define XCDDDDDR(a) (XCDR (XCDDDDR (a)))
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	1961 #define XCADDDDDR(a) (XCAR (XCDDDDDR (a)))
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	1962 #define XCDDDDDDR(a) (XCDR (XCDDDDDR (a)))
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	1963 #define X1ST(a) XCAR (a)
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	1964 #define X2ND(a) XCADR (a)
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	1965 #define X3RD(a) XCADDR (a)
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	1966 #define X4TH(a) XCADDDR (a)
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	1967 #define X5TH(a) XCADDDDR (a)
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	1968 #define X6TH(a) XCADDDDDR (a)
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	1969
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	1970 #define XSETCAR(a, b) (XCONS (a)->car_ = (b))
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	1971 #define XSETCDR(a, b) (XCONS (a)->cdr_ = (b))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1972 #define LISTP(x) (CONSP(x) \|\| NILP(x))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1973
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1974 #define CHECK_LIST(x) do { \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1975 if (!LISTP (x)) \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1976 dead_wrong_type_argument (Qlistp, x); \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1977 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1978
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1979 #define CONCHECK_LIST(x) do { \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1980 if (!LISTP (x)) \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1981 x = wrong_type_argument (Qlistp, x); \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1982 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1983
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1984 /---------------------- list traversal macros -------------------------/
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1985
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1986 /* Note: These macros are for traversing through a list in some format,
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1987 and executing code that you specify on each member of the list.
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1988
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1989 There are two kinds of macros, those requiring surrounding braces, and
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1990 those not requiring this. Which type of macro will be indicated.
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1991 The general format for using a brace-requiring macro is
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1992
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1993 {
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1994 LIST_LOOP_3 (elt, list, tail)
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1995 execute_code_here;
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1996 }
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1997
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1998 or
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	1999
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2000 {
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2001 LIST_LOOP_3 (elt, list, tail)
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2002 {
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2003 execute_code_here;
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2004 }
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2005 }
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2006
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2007 You can put variable declarations between the brace and beginning of
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2008 macro, but NOTHING ELSE.
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2009
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2010 The brace-requiring macros typically declare themselves any arguments
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2011 that are initialized and iterated by the macros. If for some reason
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2012 you need to declare these arguments yourself (e.g. to do something on
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2013 them before the iteration starts, use the _NO_DECLARE versions of the
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2014 macros.)
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2015 */
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2016
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2017 /* There are two basic kinds of macros: those that handle "internal" lists
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2018 that are known to be correctly structured (i.e. first element is a cons
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2019 or nil, and the car of each cons is also a cons or nil, and there are
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2020 no circularities), and those that handle "external" lists, where the
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2021 list may have any sort of invalid formation. This is reflected in
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2022 the names: those with "EXTERNAL_" work with external lists, and those
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2023 without this prefix work with internal lists. The internal-list
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2024 macros will hit an assertion failure if the structure is ill-formed;
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2025 the external-list macros will signal an error in this case, either a
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2026 malformed-list error or a circular-list error.
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2027 */
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2028
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	2029 /* LIST_LOOP is a simple, old-fashioned macro. It doesn't require brace
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	2030 surrounding, and iterates through a list, which may or may not known to
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	2031 be syntactically correct. It accepts two args, TAIL (set progressively
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	2032 to each cons starting with the first), and LIST, the list to iterate
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	2033 over. TAIL needs to be defined by the caller.
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2034
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2035 In each iteration, you can retrieve the current list item using XCAR
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2036 (tail), or destructively modify the list using XSETCAR (tail,
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2037 ...). */
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2038
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2039 #define LIST_LOOP(tail, list) \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2040 for (tail = list; \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2041 !NILP (tail); \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2042 tail = XCDR (tail))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2043
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2044 /* The following macros are the "core" macros for list traversal.
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2045
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2046 * ALL OF THESE MACROS MUST BE DECLARED INSIDE BRACES -- SEE ABOVE. *
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2047
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2048 LIST_LOOP_2 and EXTERNAL_LIST_LOOP_2 are the standard, most-often used
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2049 macros. They take two arguments, an element variable ELT and the list
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2050 LIST. ELT is automatically declared, and set to each element in turn
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2051 from LIST.
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2052
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2053 LIST_LOOP_3 and EXTERNAL_LIST_LOOP_3 are the same, but they have a third
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2054 argument TAIL, another automatically-declared variable. At each iteration,
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2055 this one points to the cons cell for which ELT is the car.
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2056
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2057 EXTERNAL_LIST_LOOP_4 is like EXTERNAL_LIST_LOOP_3 but takes an additional
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2058 LEN argument, again automatically declared, which counts the number of
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2059 iterations gone by. It is 0 during the first iteration.
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2060
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2061 EXTERNAL_LIST_LOOP_4_NO_DECLARE is like EXTERNAL_LIST_LOOP_4 but none
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2062 of the variables are automatically declared, and so you need to declare
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2063 them yourself. (ELT and TAIL are Lisp_Objects, and LEN is an EMACS_INT.)
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2064 */
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2065
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2066 #define LIST_LOOP_2(elt, list) \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2067 LIST_LOOP_3(elt, list, unused_tail_##elt)
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2068
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2069 #define LIST_LOOP_3(elt, list, tail) \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2070 Lisp_Object elt, tail; \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2071 for (tail = list; \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2072 NILP (tail) ? \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2073 0 : (elt = XCAR (tail), 1); \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2074 tail = XCDR (tail))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2075
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2076 /* The following macros are for traversing lisp lists.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2077 Signal an error if LIST is not properly acyclic and nil-terminated.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2078
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2079 Use tortoise/hare algorithm to check for cycles, but only if it
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2080 looks like the list is getting too long. Not only is the hare
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2081 faster than the tortoise; it even gets a head start! */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2082
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2083 /* Optimized and safe macros for looping over external lists. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2084 #define CIRCULAR_LIST_SUSPICION_LENGTH 1024
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2085
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2086 #define EXTERNAL_LIST_LOOP_1(list) \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2087 Lisp_Object ELL1_elt, ELL1_hare, ELL1_tortoise; \
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2088 EMACS_INT ELL1_len; \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2089 PRIVATE_EXTERNAL_LIST_LOOP_6 (ELL1_elt, list, ELL1_len, ELL1_hare, \
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2090 ELL1_tortoise, CIRCULAR_LIST_SUSPICION_LENGTH)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2091
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2092 #define EXTERNAL_LIST_LOOP_2(elt, list) \
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2093 Lisp_Object elt, hare_##elt, tortoise_##elt; \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2094 EMACS_INT len_##elt; \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2095 PRIVATE_EXTERNAL_LIST_LOOP_6 (elt, list, len_##elt, hare_##elt, \
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2096 tortoise_##elt, CIRCULAR_LIST_SUSPICION_LENGTH)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2097
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	2098
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	2099 #define GC_EXTERNAL_LIST_LOOP_2(elt, list) \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	2100 do { \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	2101 XGCDECL3 (elt); \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	2102 Lisp_Object elt, hare_##elt, tortoise_##elt; \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	2103 EMACS_INT len_##elt; \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	2104 XGCPRO3 (elt, elt, hare_##elt, tortoise_##elt); \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	2105 PRIVATE_EXTERNAL_LIST_LOOP_6 (elt, list, len_##elt, hare_##elt, \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	2106 tortoise_##elt, \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	2107 CIRCULAR_LIST_SUSPICION_LENGTH)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	2108
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	2109 #define END_GC_EXTERNAL_LIST_LOOP(elt) \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	2110 XUNGCPRO (elt); \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	2111 } \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	2112 while (0)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	2113
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2114 #define EXTERNAL_LIST_LOOP_3(elt, list, tail) \
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2115 Lisp_Object elt, tail, tortoise_##elt; \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2116 EMACS_INT len_##elt; \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2117 PRIVATE_EXTERNAL_LIST_LOOP_6 (elt, list, len_##elt, tail, \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2118 tortoise_##elt, CIRCULAR_LIST_SUSPICION_LENGTH)
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2119
5393 e99b473303e3 Use GC_EXTERNAL_LIST_LOOP_* where appropriate, fns.c Aidan Kehoe <kehoea@parhasard.net> parents: 5381 diff changeset	2120 #define GC_EXTERNAL_LIST_LOOP_3(elt, list, tail) \
e99b473303e3 Use GC_EXTERNAL_LIST_LOOP_* where appropriate, fns.c Aidan Kehoe <kehoea@parhasard.net> parents: 5381 diff changeset	2121 do { \
e99b473303e3 Use GC_EXTERNAL_LIST_LOOP_* where appropriate, fns.c Aidan Kehoe <kehoea@parhasard.net> parents: 5381 diff changeset	2122 XGCDECL3 (elt); \
e99b473303e3 Use GC_EXTERNAL_LIST_LOOP_* where appropriate, fns.c Aidan Kehoe <kehoea@parhasard.net> parents: 5381 diff changeset	2123 Lisp_Object elt, tail, tortoise_##elt; \
e99b473303e3 Use GC_EXTERNAL_LIST_LOOP_* where appropriate, fns.c Aidan Kehoe <kehoea@parhasard.net> parents: 5381 diff changeset	2124 EMACS_INT len_##elt; \
e99b473303e3 Use GC_EXTERNAL_LIST_LOOP_* where appropriate, fns.c Aidan Kehoe <kehoea@parhasard.net> parents: 5381 diff changeset	2125 XGCPRO3 (elt, elt, tail, tortoise_##elt); \
e99b473303e3 Use GC_EXTERNAL_LIST_LOOP_* where appropriate, fns.c Aidan Kehoe <kehoea@parhasard.net> parents: 5381 diff changeset	2126 PRIVATE_EXTERNAL_LIST_LOOP_6 (elt, list, len_##elt, tail, \
e99b473303e3 Use GC_EXTERNAL_LIST_LOOP_* where appropriate, fns.c Aidan Kehoe <kehoea@parhasard.net> parents: 5381 diff changeset	2127 tortoise_##elt, \
e99b473303e3 Use GC_EXTERNAL_LIST_LOOP_* where appropriate, fns.c Aidan Kehoe <kehoea@parhasard.net> parents: 5381 diff changeset	2128 CIRCULAR_LIST_SUSPICION_LENGTH)
e99b473303e3 Use GC_EXTERNAL_LIST_LOOP_* where appropriate, fns.c Aidan Kehoe <kehoea@parhasard.net> parents: 5381 diff changeset	2129
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2130 #define EXTERNAL_LIST_LOOP_4_NO_DECLARE(elt, list, tail, len) \
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2131 Lisp_Object tortoise_##elt; \
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2132 PRIVATE_EXTERNAL_LIST_LOOP_6 (elt, list, len, tail, \
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2133 tortoise_##elt, CIRCULAR_LIST_SUSPICION_LENGTH)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2134
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2135 #define EXTERNAL_LIST_LOOP_4(elt, list, tail, len) \
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2136 Lisp_Object elt, tail, tortoise_##elt; \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2137 EMACS_INT len; \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2138 PRIVATE_EXTERNAL_LIST_LOOP_6 (elt, list, len, tail, \
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2139 tortoise_##elt, CIRCULAR_LIST_SUSPICION_LENGTH)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2140
5393 e99b473303e3 Use GC_EXTERNAL_LIST_LOOP_* where appropriate, fns.c Aidan Kehoe <kehoea@parhasard.net> parents: 5381 diff changeset	2141 #define GC_EXTERNAL_LIST_LOOP_4(elt, list, tail, len) \
e99b473303e3 Use GC_EXTERNAL_LIST_LOOP_* where appropriate, fns.c Aidan Kehoe <kehoea@parhasard.net> parents: 5381 diff changeset	2142 do { \
e99b473303e3 Use GC_EXTERNAL_LIST_LOOP_* where appropriate, fns.c Aidan Kehoe <kehoea@parhasard.net> parents: 5381 diff changeset	2143 XGCDECL3 (elt); \
e99b473303e3 Use GC_EXTERNAL_LIST_LOOP_* where appropriate, fns.c Aidan Kehoe <kehoea@parhasard.net> parents: 5381 diff changeset	2144 Lisp_Object elt, tail, tortoise_##elt; \
e99b473303e3 Use GC_EXTERNAL_LIST_LOOP_* where appropriate, fns.c Aidan Kehoe <kehoea@parhasard.net> parents: 5381 diff changeset	2145 XGCPRO3 (elt, elt, tail, tortoise_##elt); \
e99b473303e3 Use GC_EXTERNAL_LIST_LOOP_* where appropriate, fns.c Aidan Kehoe <kehoea@parhasard.net> parents: 5381 diff changeset	2146 PRIVATE_EXTERNAL_LIST_LOOP_6 (elt, list, len, tail, \
e99b473303e3 Use GC_EXTERNAL_LIST_LOOP_* where appropriate, fns.c Aidan Kehoe <kehoea@parhasard.net> parents: 5381 diff changeset	2147 tortoise_##elt, \
e99b473303e3 Use GC_EXTERNAL_LIST_LOOP_* where appropriate, fns.c Aidan Kehoe <kehoea@parhasard.net> parents: 5381 diff changeset	2148 CIRCULAR_LIST_SUSPICION_LENGTH)
e99b473303e3 Use GC_EXTERNAL_LIST_LOOP_* where appropriate, fns.c Aidan Kehoe <kehoea@parhasard.net> parents: 5381 diff changeset	2149
5179 14fda1dbdb26 add memory usage info for specifiers Ben Wing <ben@xemacs.org> parents: 5170 diff changeset	2150 #define PRIVATE_UNVERIFIED_LIST_LOOP_7(elt, list, len, hare, \
14fda1dbdb26 add memory usage info for specifiers Ben Wing <ben@xemacs.org> parents: 5170 diff changeset	2151 tortoise, suspicion_length, \
14fda1dbdb26 add memory usage info for specifiers Ben Wing <ben@xemacs.org> parents: 5170 diff changeset	2152 signalp) \
444 576fb035e263 Import from CVS: tag r21-2-37 cvs parents: 442 diff changeset	2153 for (tortoise = hare = list, len = 0; \
576fb035e263 Import from CVS: tag r21-2-37 cvs parents: 442 diff changeset	2154 \
576fb035e263 Import from CVS: tag r21-2-37 cvs parents: 442 diff changeset	2155 (CONSP (hare) ? ((elt = XCAR (hare)), 1) : \
576fb035e263 Import from CVS: tag r21-2-37 cvs parents: 442 diff changeset	2156 (NILP (hare) ? 0 : \
5181 a00bfbd64e0a fix C++ compilation Ben Wing <ben@xemacs.org> parents: 5180 diff changeset	2157 ((signalp ? signal_malformed_list_error (list) : (void) 0), 0)));\
444 576fb035e263 Import from CVS: tag r21-2-37 cvs parents: 442 diff changeset	2158 \
576fb035e263 Import from CVS: tag r21-2-37 cvs parents: 442 diff changeset	2159 hare = XCDR (hare), \
576fb035e263 Import from CVS: tag r21-2-37 cvs parents: 442 diff changeset	2160 (void) \
576fb035e263 Import from CVS: tag r21-2-37 cvs parents: 442 diff changeset	2161 ((++len > suspicion_length) \
576fb035e263 Import from CVS: tag r21-2-37 cvs parents: 442 diff changeset	2162 && \
576fb035e263 Import from CVS: tag r21-2-37 cvs parents: 442 diff changeset	2163 ((((len & 1) != 0) && (tortoise = XCDR (tortoise), 0)), \
5179 14fda1dbdb26 add memory usage info for specifiers Ben Wing <ben@xemacs.org> parents: 5170 diff changeset	2164 (EQ (hare, tortoise) && \
5181 a00bfbd64e0a fix C++ compilation Ben Wing <ben@xemacs.org> parents: 5180 diff changeset	2165 ((signalp ? signal_circular_list_error (list) : (void) 0), 0)))))
5179 14fda1dbdb26 add memory usage info for specifiers Ben Wing <ben@xemacs.org> parents: 5170 diff changeset	2166
14fda1dbdb26 add memory usage info for specifiers Ben Wing <ben@xemacs.org> parents: 5170 diff changeset	2167 #define PRIVATE_EXTERNAL_LIST_LOOP_6(elt, list, len, hare, \
14fda1dbdb26 add memory usage info for specifiers Ben Wing <ben@xemacs.org> parents: 5170 diff changeset	2168 tortoise, suspicion_length) \
14fda1dbdb26 add memory usage info for specifiers Ben Wing <ben@xemacs.org> parents: 5170 diff changeset	2169 PRIVATE_UNVERIFIED_LIST_LOOP_7 (elt, list, len, hare, tortoise, \
14fda1dbdb26 add memory usage info for specifiers Ben Wing <ben@xemacs.org> parents: 5170 diff changeset	2170 suspicion_length, 1)
14fda1dbdb26 add memory usage info for specifiers Ben Wing <ben@xemacs.org> parents: 5170 diff changeset	2171
14fda1dbdb26 add memory usage info for specifiers Ben Wing <ben@xemacs.org> parents: 5170 diff changeset	2172 #define PRIVATE_SAFE_LIST_LOOP_6(elt, list, len, hare, \
14fda1dbdb26 add memory usage info for specifiers Ben Wing <ben@xemacs.org> parents: 5170 diff changeset	2173 tortoise, suspicion_length) \
14fda1dbdb26 add memory usage info for specifiers Ben Wing <ben@xemacs.org> parents: 5170 diff changeset	2174 PRIVATE_UNVERIFIED_LIST_LOOP_7 (elt, list, len, hare, tortoise, \
14fda1dbdb26 add memory usage info for specifiers Ben Wing <ben@xemacs.org> parents: 5170 diff changeset	2175 suspicion_length, 0)
14fda1dbdb26 add memory usage info for specifiers Ben Wing <ben@xemacs.org> parents: 5170 diff changeset	2176
14fda1dbdb26 add memory usage info for specifiers Ben Wing <ben@xemacs.org> parents: 5170 diff changeset	2177 /* Similar to EXTERNAL_LIST_LOOP_2() but don't signal when an error
14fda1dbdb26 add memory usage info for specifiers Ben Wing <ben@xemacs.org> parents: 5170 diff changeset	2178 is detected, just stop. */
14fda1dbdb26 add memory usage info for specifiers Ben Wing <ben@xemacs.org> parents: 5170 diff changeset	2179 #define SAFE_LIST_LOOP_2(elt, list) \
14fda1dbdb26 add memory usage info for specifiers Ben Wing <ben@xemacs.org> parents: 5170 diff changeset	2180 Lisp_Object elt, hare_##elt, tortoise_##elt; \
14fda1dbdb26 add memory usage info for specifiers Ben Wing <ben@xemacs.org> parents: 5170 diff changeset	2181 EMACS_INT len_##elt; \
14fda1dbdb26 add memory usage info for specifiers Ben Wing <ben@xemacs.org> parents: 5170 diff changeset	2182 PRIVATE_SAFE_LIST_LOOP_6 (elt, list, len_##elt, hare_##elt, \
14fda1dbdb26 add memory usage info for specifiers Ben Wing <ben@xemacs.org> parents: 5170 diff changeset	2183 tortoise_##elt, CIRCULAR_LIST_SUSPICION_LENGTH)
14fda1dbdb26 add memory usage info for specifiers Ben Wing <ben@xemacs.org> parents: 5170 diff changeset	2184
14fda1dbdb26 add memory usage info for specifiers Ben Wing <ben@xemacs.org> parents: 5170 diff changeset	2185 #define SAFE_LIST_LOOP_3(elt, list, tail) \
14fda1dbdb26 add memory usage info for specifiers Ben Wing <ben@xemacs.org> parents: 5170 diff changeset	2186 Lisp_Object elt, tail, tortoise_##elt; \
14fda1dbdb26 add memory usage info for specifiers Ben Wing <ben@xemacs.org> parents: 5170 diff changeset	2187 EMACS_INT len_##elt; \
14fda1dbdb26 add memory usage info for specifiers Ben Wing <ben@xemacs.org> parents: 5170 diff changeset	2188 PRIVATE_SAFE_LIST_LOOP_6 (elt, list, len_##elt, tail, \
14fda1dbdb26 add memory usage info for specifiers Ben Wing <ben@xemacs.org> parents: 5170 diff changeset	2189 tortoise_##elt, CIRCULAR_LIST_SUSPICION_LENGTH)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2190
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2191 /* GET_LIST_LENGTH and GET_EXTERNAL_LIST_LENGTH:
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2192
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2193 These two macros return the length of LIST (either an internal or external
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2194 list, according to which macro is used), stored into LEN (which must
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2195 be declared by the caller). Circularities are trapped in external lists
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2196 (and cause errors). Neither macro need be declared inside brackets. */
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2197
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2198 #define GET_LIST_LENGTH(list, len) do { \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2199 Lisp_Object GLL_tail; \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2200 for (GLL_tail = list, len = 0; \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2201 !NILP (GLL_tail); \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2202 GLL_tail = XCDR (GLL_tail), ++len) \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2203 DO_NOTHING; \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2204 } while (0)
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2205
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2206 #define GET_EXTERNAL_LIST_LENGTH(list, len) \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2207 do { \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2208 Lisp_Object GELL_elt, GELL_tail; \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2209 EXTERNAL_LIST_LOOP_4_NO_DECLARE (GELL_elt, list, GELL_tail, len) \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2210 ; \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2211 } while (0)
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2212
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2213 /* For a list that's known to be in valid list format, where we may
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2214 be deleting the current element out of the list --
2500 3d8143fc88e1 [xemacs-hg @ 2005-01-24 23:33:30 by ben] ben parents: 2421 diff changeset	2215 will ABORT() if the list is not in valid format */
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2216 #define LIST_LOOP_DELETING(consvar, nextconsvar, list) \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2217 for (consvar = list; \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2218 !NILP (consvar) ? (nextconsvar = XCDR (consvar), 1) :0; \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2219 consvar = nextconsvar)
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2220
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2221 /* LIST_LOOP_DELETE_IF and EXTERNAL_LIST_LOOP_DELETE_IF:
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2222
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2223 These two macros delete all elements of LIST (either an internal or
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2224 external list, according to which macro is used) satisfying
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2225 CONDITION, a C expression referring to variable ELT. ELT is
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2226 automatically declared. Circularities are trapped in external
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2227 lists (and cause errors). Neither macro need be declared inside
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2228 brackets. */
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2229
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2230 #define LIST_LOOP_DELETE_IF(elt, list, condition) do { \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2231 /* Do not use ##list when creating new variables because \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2232 that may not be just a variable name. */ \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2233 Lisp_Object prev_tail_##elt = Qnil; \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2234 LIST_LOOP_3 (elt, list, tail_##elt) \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2235 { \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2236 if (condition) \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2237 { \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2238 if (NILP (prev_tail_##elt)) \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2239 list = XCDR (tail_##elt); \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2240 else \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2241 XCDR (prev_tail_##elt) = XCDR (tail_##elt); \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2242 } \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2243 else \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2244 prev_tail_##elt = tail_##elt; \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2245 } \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2246 } while (0)
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2247
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2248 #define EXTERNAL_LIST_LOOP_DELETE_IF(elt, list, condition) do { \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2249 Lisp_Object prev_tail_##elt = Qnil; \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2250 EXTERNAL_LIST_LOOP_4 (elt, list, tail_##elt, len_##elt) \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2251 { \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2252 if (condition) \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2253 { \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2254 if (NILP (prev_tail_##elt)) \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2255 list = XCDR (tail_##elt); \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2256 else \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2257 XCDR (prev_tail_##elt) = XCDR (tail_##elt); \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2258 /* Keep tortoise from ever passing hare. */ \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2259 len_##elt = 0; \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2260 } \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2261 else \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2262 prev_tail_##elt = tail_##elt; \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2263 } \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2264 } while (0)
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2265
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2266
1204 e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	2267 /* Macros for looping over internal alists.
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	2268
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	2269 * ALL OF THESE MACROS MUST BE DECLARED INSIDE BRACES -- SEE ABOVE. *
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	2270
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	2271 ALIST_LOOP_3 loops over an alist, at each iteration setting CAR and CDR
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	2272 to the car and cdr of the acons. CAR and CDR are automatically
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	2273 declared.
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	2274
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	2275 ALIST_LOOP_4 is similar to ALIST_LOOP_3 but contains an additional
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	2276 variable ACONS at the beginning for access to the acons itself.All of
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	2277 the variables ACONS, CAR and CDR are automatically declared.
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	2278 */
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	2279
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	2280 #define ALIST_LOOP_3(car, cdr, alist) \
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	2281 Lisp_Object _al3_acons_##car, car, cdr, _al3_tail_##car; \
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	2282 for (_al3_tail_##car = alist; \
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	2283 NILP (_al3_tail_##car) ? \
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	2284 0 : (_al3_acons_##car = XCAR (_al3_tail_##car), \
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	2285 car = XCAR (_al3_acons_##car), \
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	2286 cdr = XCDR (_al3_acons_##car), 1); \
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	2287 _al3_tail_##car = XCDR (_al3_tail_##car))
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	2288
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	2289 #define ALIST_LOOP_4(acons, car, cdr, list) \
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	2290 Lisp_Object acons, car, cdr, _al4_tail_##car; \
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	2291 for (_al4_tail_##car = list; \
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	2292 NILP (_al4_tail_##car) ? \
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	2293 0 : (elt = XCAR (_al4_tail_##car), car = XCAR (elt), \
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	2294 cdr = XCDR (elt), 1); \
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	2295 _al4_tail_##car = XCDR (tail))
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	2296
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2297 /* Macros for looping over external alists.
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2298
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2299 * ALL OF THESE MACROS MUST BE DECLARED INSIDE BRACES -- SEE ABOVE. *
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2300
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2301 EXTERNAL_ALIST_LOOP_4 is similar to EXTERNAL_LIST_LOOP_2, but it
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2302 assumes the elements are aconses (the elements in an alist) and
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2303 sets two additional argument variables ELT_CAR and ELT_CDR to the
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2304 car and cdr of the acons. All of the variables ELT, ELT_CAR and
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2305 ELT_CDR are automatically declared.
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2306
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2307 EXTERNAL_ALIST_LOOP_5 adds a TAIL argument to EXTERNAL_ALIST_LOOP_4,
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2308 just like EXTERNAL_LIST_LOOP_3 does, and again TAIL is automatically
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2309 declared.
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2310
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2311 EXTERNAL_ALIST_LOOP_6 adds a LEN argument to EXTERNAL_ALIST_LOOP_5,
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2312 just like EXTERNAL_LIST_LOOP_4 does, and again LEN is automatically
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2313 declared.
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2314
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2315 EXTERNAL_ALIST_LOOP_6_NO_DECLARE does not declare any of its arguments,
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2316 just like EXTERNAL_LIST_LOOP_4_NO_DECLARE, and so these must be declared
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2317 manually.
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2318 */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2319
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2320 /* Optimized and safe macros for looping over external alists. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2321 #define EXTERNAL_ALIST_LOOP_4(elt, elt_car, elt_cdr, list) \
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2322 Lisp_Object elt, elt_car, elt_cdr; \
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2323 Lisp_Object hare_##elt, tortoise_##elt; \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2324 EMACS_INT len_##elt; \
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2325 PRIVATE_EXTERNAL_ALIST_LOOP_8 (elt, elt_car, elt_cdr, list, \
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2326 len_##elt, hare_##elt, tortoise_##elt, \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2327 CIRCULAR_LIST_SUSPICION_LENGTH)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2328
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2329 #define EXTERNAL_ALIST_LOOP_5(elt, elt_car, elt_cdr, list, tail) \
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2330 Lisp_Object elt, elt_car, elt_cdr, tail; \
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2331 Lisp_Object tortoise_##elt; \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2332 EMACS_INT len_##elt; \
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2333 PRIVATE_EXTERNAL_ALIST_LOOP_8 (elt, elt_car, elt_cdr, list, \
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2334 len_##elt, tail, tortoise_##elt, \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2335 CIRCULAR_LIST_SUSPICION_LENGTH) \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2336
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2337 #define EXTERNAL_ALIST_LOOP_6(elt, elt_car, elt_cdr, list, tail, len) \
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2338 Lisp_Object elt, elt_car, elt_cdr, tail; \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2339 EMACS_INT len; \
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2340 Lisp_Object tortoise_##elt; \
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2341 PRIVATE_EXTERNAL_ALIST_LOOP_8 (elt, elt_car, elt_cdr, list, \
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2342 len, tail, tortoise_##elt, \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2343 CIRCULAR_LIST_SUSPICION_LENGTH)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2344
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2345 #define EXTERNAL_ALIST_LOOP_6_NO_DECLARE(elt, elt_car, elt_cdr, list, \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2346 tail, len) \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2347 Lisp_Object tortoise_##elt; \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2348 PRIVATE_EXTERNAL_ALIST_LOOP_8 (elt, elt_car, elt_cdr, list, \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2349 len, tail, tortoise_##elt, \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2350 CIRCULAR_LIST_SUSPICION_LENGTH)
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2351
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2352
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2353 #define PRIVATE_EXTERNAL_ALIST_LOOP_8(elt, elt_car, elt_cdr, list, len, \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2354 hare, tortoise, suspicion_length) \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2355 PRIVATE_EXTERNAL_LIST_LOOP_6 (elt, list, len, hare, tortoise, \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2356 suspicion_length) \
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2357 if (CONSP (elt) ? (elt_car = XCAR (elt), elt_cdr = XCDR (elt), 0) :1) \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2358 continue; \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2359 else
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2360
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2361 /* Macros for looping over external property lists.
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2362
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2363 * ALL OF THESE MACROS MUST BE DECLARED INSIDE BRACES -- SEE ABOVE. *
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2364
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2365 EXTERNAL_PROPERTY_LIST_LOOP_3 maps over an external list assumed to
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2366 be a property list, consisting of alternating pairs of keys
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2367 (typically symbols or keywords) and values. Each iteration
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2368 processes one such pair out of LIST, assigning the two elements to
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2369 KEY and VALUE respectively. Malformed lists and circularities are
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2370 trapped as usual, and in addition, property lists with an odd number
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2371 of elements also signal an error.
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2372
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2373 EXTERNAL_PROPERTY_LIST_LOOP_4 adds a TAIL argument to
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2374 EXTERNAL_PROPERTY_LIST_LOOP_3, just like EXTERNAL_LIST_LOOP_3 does,
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2375 and again TAIL is automatically declared.
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2376
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2377 EXTERNAL_PROPERTY_LIST_LOOP_5 adds a LEN argument to
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2378 EXTERNAL_PROPERTY_LIST_LOOP_4, just like EXTERNAL_LIST_LOOP_4 does,
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2379 and again LEN is automatically declared. Note that in this case,
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2380 LEN counts the iterations, NOT the total number of list elements
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2381 processed, which is 2 * LEN.
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2382
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2383 EXTERNAL_PROPERTY_LIST_LOOP_5_NO_DECLARE does not declare any of its
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2384 arguments, just like EXTERNAL_LIST_LOOP_4_NO_DECLARE, and so these
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2385 must be declared manually. */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2386
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2387 /* Optimized and safe macros for looping over external property lists. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2388 #define EXTERNAL_PROPERTY_LIST_LOOP_3(key, value, list) \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2389 Lisp_Object key, value, hare_##key, tortoise_##key; \
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2390 EMACS_INT len_##key; \
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2391 EXTERNAL_PROPERTY_LIST_LOOP_7 (key, value, list, len_##key, hare_##key, \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2392 tortoise_##key, CIRCULAR_LIST_SUSPICION_LENGTH)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2393
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2394 #define EXTERNAL_PROPERTY_LIST_LOOP_4(key, value, list, tail) \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2395 Lisp_Object key, value, tail, tortoise_##key; \
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2396 EMACS_INT len_##key; \
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2397 EXTERNAL_PROPERTY_LIST_LOOP_7 (key, value, list, len_##key, tail, \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2398 tortoise_##key, CIRCULAR_LIST_SUSPICION_LENGTH)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2399
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2400 #define EXTERNAL_PROPERTY_LIST_LOOP_5(key, value, list, tail, len) \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2401 Lisp_Object key, value, tail, tortoise_##key; \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2402 EMACS_INT len; \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2403 EXTERNAL_PROPERTY_LIST_LOOP_7 (key, value, list, len, tail, \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2404 tortoise_##key, CIRCULAR_LIST_SUSPICION_LENGTH)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2405
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2406 #define EXTERNAL_PROPERTY_LIST_LOOP_5_NO_DECLARE(key, value, list, \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2407 tail, len) \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2408 Lisp_Object tortoise_##key; \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2409 EXTERNAL_PROPERTY_LIST_LOOP_7 (key, value, list, len, tail, \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2410 tortoise_##key, CIRCULAR_LIST_SUSPICION_LENGTH)
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2411
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2412
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2413 #define EXTERNAL_PROPERTY_LIST_LOOP_7(key, value, list, len, hare, \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2414 tortoise, suspicion_length) \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2415 for (tortoise = hare = list, len = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2416 \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2417 ((CONSP (hare) && \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2418 (key = XCAR (hare), \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2419 hare = XCDR (hare), \
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2420 (CONSP (hare) ? 1 : \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2421 (signal_malformed_property_list_error (list), 0)))) ? \
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2422 (value = XCAR (hare), 1) : \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2423 (NILP (hare) ? 0 : \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2424 (signal_malformed_property_list_error (list), 0))); \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2425 \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2426 hare = XCDR (hare), \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2427 ((++len < suspicion_length) ? \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2428 ((void) 0) : \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2429 (((len & 1) ? \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2430 ((void) (tortoise = XCDR (XCDR (tortoise)))) : \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2431 ((void) 0)) \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2432 , \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2433 (EQ (hare, tortoise) ? \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2434 ((void) signal_circular_property_list_error (list)) : \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2435 ((void) 0)))))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2436
2421 ab71ad6ff3dd [xemacs-hg @ 2004-12-06 03:50:53 by ben] ben parents: 2367 diff changeset	2437 #define PRIVATE_PROPERTY_LIST_LOOP_4(tail, key, value, plist) \
ab71ad6ff3dd [xemacs-hg @ 2004-12-06 03:50:53 by ben] ben parents: 2367 diff changeset	2438 for (tail = plist; \
ab71ad6ff3dd [xemacs-hg @ 2004-12-06 03:50:53 by ben] ben parents: 2367 diff changeset	2439 NILP (tail) ? 0 : \
ab71ad6ff3dd [xemacs-hg @ 2004-12-06 03:50:53 by ben] ben parents: 2367 diff changeset	2440 (key = XCAR (tail), tail = XCDR (tail), \
ab71ad6ff3dd [xemacs-hg @ 2004-12-06 03:50:53 by ben] ben parents: 2367 diff changeset	2441 value = XCAR (tail), tail = XCDR (tail), 1); \
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2442 )
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2443
2421 ab71ad6ff3dd [xemacs-hg @ 2004-12-06 03:50:53 by ben] ben parents: 2367 diff changeset	2444 #define PROPERTY_LIST_LOOP_3(key, value, plist) \
ab71ad6ff3dd [xemacs-hg @ 2004-12-06 03:50:53 by ben] ben parents: 2367 diff changeset	2445 Lisp_Object key, value, tail_##key; \
ab71ad6ff3dd [xemacs-hg @ 2004-12-06 03:50:53 by ben] ben parents: 2367 diff changeset	2446 PRIVATE_PROPERTY_LIST_LOOP_4 (tail_##key, key, value, plist)
ab71ad6ff3dd [xemacs-hg @ 2004-12-06 03:50:53 by ben] ben parents: 2367 diff changeset	2447
ab71ad6ff3dd [xemacs-hg @ 2004-12-06 03:50:53 by ben] ben parents: 2367 diff changeset	2448 #define GC_PROPERTY_LIST_LOOP_3(key, value, plist) \
ab71ad6ff3dd [xemacs-hg @ 2004-12-06 03:50:53 by ben] ben parents: 2367 diff changeset	2449 do { \
ab71ad6ff3dd [xemacs-hg @ 2004-12-06 03:50:53 by ben] ben parents: 2367 diff changeset	2450 XGCDECL3 (key); \
ab71ad6ff3dd [xemacs-hg @ 2004-12-06 03:50:53 by ben] ben parents: 2367 diff changeset	2451 Lisp_Object key, value, tail_##key; \
ab71ad6ff3dd [xemacs-hg @ 2004-12-06 03:50:53 by ben] ben parents: 2367 diff changeset	2452 XGCPRO3 (key, key, value, tail_##key); \
ab71ad6ff3dd [xemacs-hg @ 2004-12-06 03:50:53 by ben] ben parents: 2367 diff changeset	2453 PRIVATE_PROPERTY_LIST_LOOP_4 (tail_##key, key, value, plist)
ab71ad6ff3dd [xemacs-hg @ 2004-12-06 03:50:53 by ben] ben parents: 2367 diff changeset	2454
ab71ad6ff3dd [xemacs-hg @ 2004-12-06 03:50:53 by ben] ben parents: 2367 diff changeset	2455 #define END_GC_PROPERTY_LIST_LOOP(key) \
ab71ad6ff3dd [xemacs-hg @ 2004-12-06 03:50:53 by ben] ben parents: 2367 diff changeset	2456 XUNGCPRO (key); \
ab71ad6ff3dd [xemacs-hg @ 2004-12-06 03:50:53 by ben] ben parents: 2367 diff changeset	2457 } \
ab71ad6ff3dd [xemacs-hg @ 2004-12-06 03:50:53 by ben] ben parents: 2367 diff changeset	2458 while (0)
ab71ad6ff3dd [xemacs-hg @ 2004-12-06 03:50:53 by ben] ben parents: 2367 diff changeset	2459
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2460 /* Return 1 if LIST is properly acyclic and nil-terminated, else 0. */
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	2461 DECLARE_INLINE_HEADER (
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	2462 int
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2463 TRUE_LIST_P (Lisp_Object object)
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	2464 )
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2465 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2466 Lisp_Object hare, tortoise;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2467 EMACS_INT len;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2468
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2469 for (hare = tortoise = object, len = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2470 CONSP (hare);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2471 hare = XCDR (hare), len++)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2472 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2473 if (len < CIRCULAR_LIST_SUSPICION_LENGTH)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2474 continue;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2475
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2476 if (len & 1)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2477 tortoise = XCDR (tortoise);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2478 else if (EQ (hare, tortoise))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2479 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2480 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2481
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2482 return NILP (hare);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2483 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2484
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2485 /* Signal an error if LIST is not properly acyclic and nil-terminated. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2486 #define CHECK_TRUE_LIST(list) do { \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2487 Lisp_Object CTL_list = (list); \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2488 Lisp_Object CTL_hare, CTL_tortoise; \
436 080151679be2 Import from CVS: tag r21-2-26 cvs parents: 434 diff changeset	2489 EMACS_INT CTL_len; \
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2490 \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2491 for (CTL_hare = CTL_tortoise = CTL_list, CTL_len = 0; \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2492 CONSP (CTL_hare); \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2493 CTL_hare = XCDR (CTL_hare), CTL_len++) \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2494 { \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2495 if (CTL_len < CIRCULAR_LIST_SUSPICION_LENGTH) \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2496 continue; \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2497 \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2498 if (CTL_len & 1) \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2499 CTL_tortoise = XCDR (CTL_tortoise); \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2500 else if (EQ (CTL_hare, CTL_tortoise)) \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2501 Fsignal (Qcircular_list, list1 (CTL_list)); \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2502 } \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2503 \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2504 if (! NILP (CTL_hare)) \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2505 signal_malformed_list_error (CTL_list); \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2506 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2507
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2508 /------------------------------ string --------------------------------/
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2509
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2510 #ifdef NEW_GC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2511 struct Lisp_String_Direct_Data
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2512 {
5127 a9c41067dd88 more cleanups, terminology clarification, lots of doc work Ben Wing <ben@xemacs.org> parents: 5126 diff changeset	2513 NORMAL_LISP_OBJECT_HEADER header;
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2514 Bytecount size;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2515 Ibyte data[1];
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2516 };
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2517 typedef struct Lisp_String_Direct_Data Lisp_String_Direct_Data;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2518
5120 d1247f3cc363 latest work on lisp-object workspace; Ben Wing <ben@xemacs.org> parents: 5118 diff changeset	2519 DECLARE_MODULE_API_LISP_OBJECT (string_direct_data, Lisp_String_Direct_Data);
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2520 #define XSTRING_DIRECT_DATA(x) \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2521 XRECORD (x, string_direct_data, Lisp_String_Direct_Data)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2522 #define wrap_string_direct_data(p) wrap_record (p, string_direct_data)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2523 #define STRING_DIRECT_DATAP(x) RECORDP (x, string_direct_data)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2524 #define CHECK_STRING_DIRECT_DATA(x) CHECK_RECORD (x, string_direct_data)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2525 #define CONCHECK_STRING_DIRECT_DATA(x) CONCHECK_RECORD (x, string_direct_data)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2526
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2527 #define XSTRING_DIRECT_DATA_SIZE(x) XSTRING_DIRECT_DATA (x)->size
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2528 #define XSTRING_DIRECT_DATA_DATA(x) XSTRING_DIRECT_DATA (x)->data
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2529
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2530
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2531 struct Lisp_String_Indirect_Data
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2532 {
5127 a9c41067dd88 more cleanups, terminology clarification, lots of doc work Ben Wing <ben@xemacs.org> parents: 5126 diff changeset	2533 NORMAL_LISP_OBJECT_HEADER header;
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2534 Bytecount size;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2535 Ibyte *data;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2536 };
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2537 typedef struct Lisp_String_Indirect_Data Lisp_String_Indirect_Data;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2538
5120 d1247f3cc363 latest work on lisp-object workspace; Ben Wing <ben@xemacs.org> parents: 5118 diff changeset	2539 DECLARE_MODULE_API_LISP_OBJECT (string_indirect_data, Lisp_String_Indirect_Data);
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2540 #define XSTRING_INDIRECT_DATA(x) \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2541 XRECORD (x, string_indirect_data, Lisp_String_Indirect_Data)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2542 #define wrap_string_indirect_data(p) wrap_record (p, string_indirect_data)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2543 #define STRING_INDIRECT_DATAP(x) RECORDP (x, string_indirect_data)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2544 #define CHECK_STRING_INDIRECT_DATA(x) CHECK_RECORD (x, string_indirect_data)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2545 #define CONCHECK_STRING_INDIRECT_DATA(x) \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2546 CONCHECK_RECORD (x, string_indirect_data)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2547
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2548 #define XSTRING_INDIRECT_DATA_SIZE(x) XSTRING_INDIRECT_DATA (x)->size
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2549 #define XSTRING_INDIRECT_DATA_DATA(x) XSTRING_INDIRECT_DATA (x)->data
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2550
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2551
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2552 #define XSTRING_DATA_SIZE(s) ((s)->indirect)? \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2553 XSTRING_INDIRECT_DATA_SIZE ((s)->data_object): \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2554 XSTRING_DIRECT_DATA_SIZE ((s)->data_object)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2555 #define XSTRING_DATA_DATA(s) ((s)->indirect)? \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2556 XSTRING_INDIRECT_DATA_DATA ((s)->data_object): \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2557 XSTRING_DIRECT_DATA_DATA ((s)->data_object)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2558
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2559 #define XSET_STRING_DATA_SIZE(s, len) \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2560 if ((s)->indirect) \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2561 XSTRING_INDIRECT_DATA_SIZE ((s)->data_object) = len; \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2562 else \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2563 XSTRING_DIRECT_DATA_SIZE ((s)->data_object) = len
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2564 #define XSET_STRING_DATA_DATA(s, ptr) \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2565 if ((s)->indirect) \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2566 XSTRING_INDIRECT_DATA_DATA ((s)->data_object) = ptr; \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2567 else \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2568 XSTRING_DIRECT_DATA_DATA ((s)->data_object) = ptr
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2569 #endif /* NEW_GC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2570
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2571 struct Lisp_String
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2572 {
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	2573 union
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	2574 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	2575 struct lrecord_header lheader;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	2576 struct
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	2577 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	2578 /* WARNING: Everything before ascii_begin must agree exactly with
5142 f965e31a35f0 reduce lcrecord headers to 2 words, rename printing_unreadable_object Ben Wing <ben@xemacs.org> parents: 5128 diff changeset	2579 struct lrecord_header. (Actually, the `free' field in old-GC
f965e31a35f0 reduce lcrecord headers to 2 words, rename printing_unreadable_object Ben Wing <ben@xemacs.org> parents: 5128 diff changeset	2580 overlaps with ascii_begin there; we can get away with this
f965e31a35f0 reduce lcrecord headers to 2 words, rename printing_unreadable_object Ben Wing <ben@xemacs.org> parents: 5128 diff changeset	2581 because in old-GC the `free' field is used only for lcrecords. */
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	2582 unsigned int type :8;
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3250 diff changeset	2583 #ifdef NEW_GC
2720 6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	2584 unsigned int lisp_readonly :1;
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	2585 unsigned int free :1;
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	2586 /* Number of chars at beginning of string that are one byte in length
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	2587 (byte_ascii_p) */
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	2588 unsigned int ascii_begin :22;
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3250 diff changeset	2589 #else /* not NEW_GC */
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	2590 unsigned int mark :1;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	2591 unsigned int c_readonly :1;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	2592 unsigned int lisp_readonly :1;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	2593 /* Number of chars at beginning of string that are one byte in length
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	2594 (byte_ascii_p) */
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	2595 unsigned int ascii_begin :21;
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3250 diff changeset	2596 #endif /* not NEW_GC */
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	2597 } v;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	2598 } u;
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2599 #ifdef NEW_GC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2600 int indirect;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2601 Lisp_Object data_object;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2602 #else /* not NEW_GC */
793 e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	2603 Bytecount size_;
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	2604 Ibyte *data_;
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2605 #endif /* not NEW_GC */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2606 Lisp_Object plist;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2607 };
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2608 typedef struct Lisp_String Lisp_String;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2609
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3250 diff changeset	2610 #ifdef NEW_GC
3063 d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	2611 #define MAX_STRING_ASCII_BEGIN ((1 << 22) - 1)
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3250 diff changeset	2612 #else /* not NEW_GC */
851 e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	2613 #define MAX_STRING_ASCII_BEGIN ((1 << 21) - 1)
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3250 diff changeset	2614 #endif /* not NEW_GC */
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	2615
5120 d1247f3cc363 latest work on lisp-object workspace; Ben Wing <ben@xemacs.org> parents: 5118 diff changeset	2616 DECLARE_MODULE_API_LISP_OBJECT (string, Lisp_String);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2617 #define XSTRING(x) XRECORD (x, string, Lisp_String)
617 af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben] ben parents: 614 diff changeset	2618 #define wrap_string(p) wrap_record (p, string)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2619 #define STRINGP(x) RECORDP (x, string)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2620 #define CHECK_STRING(x) CHECK_RECORD (x, string)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2621 #define CONCHECK_STRING(x) CONCHECK_RECORD (x, string)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2622
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	2623 /* Most basic macros for strings -- basically just accessing or setting
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	2624 fields -- are here. Everything else is in text.h, since they depend on
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	2625 stuff there. */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2626
793 e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	2627 /* Operations on Lisp_String 's; only ones left /
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2628 #ifdef NEW_GC
3304 73051095a712 [xemacs-hg @ 2006-03-26 14:33:37 by crestani] crestani parents: 3293 diff changeset	2629 #define set_lispstringp_direct(s) ((s)->indirect = 0)
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2630 #define set_lispstringp_indirect(s) ((s)->indirect = 1)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2631 #define set_lispstringp_length(s, len) XSET_STRING_DATA_SIZE (s, len)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2632 #define set_lispstringp_data(s, ptr) XSET_STRING_DATA_DATA (s, ptr)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2633 #else /* not NEW_GC */
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	2634 #define set_lispstringp_length(s, len) ((void) ((s)->size_ = (len)))
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	2635 #define set_lispstringp_data(s, ptr) ((void) ((s)->data_ = (ptr)))
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2636 #endif /* not NEW_GC */
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	2637
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	2638 /* Operations on strings as Lisp_Objects. Don't manipulate Lisp_String *'s
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	2639 in any new code. */
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2640 #ifdef NEW_GC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2641 #define STRING_DATA_OBJECT(s) ((s)->data_object)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2642 #define XSTRING_DATA_OBJECT(s) (STRING_DATA_OBJECT (XSTRING (s)))
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2643 #define XSTRING_LENGTH(s) (XSTRING_DATA_SIZE (XSTRING (s)))
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2644 #else /* not NEW_GC */
793 e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	2645 #define XSTRING_LENGTH(s) (XSTRING (s)->size_)
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2646 #endif /* not NEW_GC */
793 e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	2647 #define XSTRING_PLIST(s) (XSTRING (s)->plist)
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2648 #ifdef NEW_GC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2649 #define XSTRING_DATA(s) (XSTRING_DATA_DATA (XSTRING (s)))
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2650 #else /* not NEW_GC */
793 e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	2651 #define XSTRING_DATA(s) (XSTRING (s)->data_ + 0)
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	2652 #endif /* not NEW_GC */
793 e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	2653 #define XSTRING_ASCII_BEGIN(s) (XSTRING (s)->u.v.ascii_begin + 0)
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	2654 #define XSET_STRING_LENGTH(s, ptr) set_lispstringp_length (XSTRING (s), ptr)
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	2655 #define XSET_STRING_DATA(s, ptr) set_lispstringp_data (XSTRING (s), ptr)
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	2656 /* WARNING: If you modify an existing string, you must call
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	2657 bump_string_modiff() afterwards. */
793 e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	2658 #define XSET_STRING_ASCII_BEGIN(s, val) \
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	2659 ((void) (XSTRING (s)->u.v.ascii_begin = (val)))
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	2660 #define XSTRING_FORMAT(s) FORMAT_DEFAULT
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2661
456 e7ef97881643 Import from CVS: tag r21-2-43 cvs parents: 454 diff changeset	2662 /* Return the true aligned size of a struct whose last member is a
e7ef97881643 Import from CVS: tag r21-2-43 cvs parents: 454 diff changeset	2663 variable-length array field. (this is known as the "struct hack") */
e7ef97881643 Import from CVS: tag r21-2-43 cvs parents: 454 diff changeset	2664 /* Implementation: in practice, structtype and fieldtype usually have
e7ef97881643 Import from CVS: tag r21-2-43 cvs parents: 454 diff changeset	2665 the same alignment, but we can't be sure. We need to use
e7ef97881643 Import from CVS: tag r21-2-43 cvs parents: 454 diff changeset	2666 ALIGN_SIZE to be absolutely sure of getting the correct alignment.
e7ef97881643 Import from CVS: tag r21-2-43 cvs parents: 454 diff changeset	2667 To help the compiler's optimizer, we use a ternary expression that
e7ef97881643 Import from CVS: tag r21-2-43 cvs parents: 454 diff changeset	2668 only a very stupid compiler would fail to correctly simplify. */
e7ef97881643 Import from CVS: tag r21-2-43 cvs parents: 454 diff changeset	2669 #define FLEXIBLE_ARRAY_STRUCT_SIZEOF(structtype, \
e7ef97881643 Import from CVS: tag r21-2-43 cvs parents: 454 diff changeset	2670 fieldtype, \
e7ef97881643 Import from CVS: tag r21-2-43 cvs parents: 454 diff changeset	2671 fieldname, \
e7ef97881643 Import from CVS: tag r21-2-43 cvs parents: 454 diff changeset	2672 array_length) \
e7ef97881643 Import from CVS: tag r21-2-43 cvs parents: 454 diff changeset	2673 (ALIGNOF (structtype) == ALIGNOF (fieldtype) \
e7ef97881643 Import from CVS: tag r21-2-43 cvs parents: 454 diff changeset	2674 ? (offsetof (structtype, fieldname) + \
e7ef97881643 Import from CVS: tag r21-2-43 cvs parents: 454 diff changeset	2675 (offsetof (structtype, fieldname[1]) - \
e7ef97881643 Import from CVS: tag r21-2-43 cvs parents: 454 diff changeset	2676 offsetof (structtype, fieldname[0])) * \
e7ef97881643 Import from CVS: tag r21-2-43 cvs parents: 454 diff changeset	2677 (array_length)) \
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	2678 : (ALIGN_FOR_TYPE \
456 e7ef97881643 Import from CVS: tag r21-2-43 cvs parents: 454 diff changeset	2679 ((offsetof (structtype, fieldname) + \
e7ef97881643 Import from CVS: tag r21-2-43 cvs parents: 454 diff changeset	2680 (offsetof (structtype, fieldname[1]) - \
e7ef97881643 Import from CVS: tag r21-2-43 cvs parents: 454 diff changeset	2681 offsetof (structtype, fieldname[0])) * \
e7ef97881643 Import from CVS: tag r21-2-43 cvs parents: 454 diff changeset	2682 (array_length)), \
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	2683 structtype)))
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2684
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2685 /------------------------------ vector --------------------------------/
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2686
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2687 struct Lisp_Vector
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2688 {
5127 a9c41067dd88 more cleanups, terminology clarification, lots of doc work Ben Wing <ben@xemacs.org> parents: 5126 diff changeset	2689 NORMAL_LISP_OBJECT_HEADER header;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2690 long size;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2691 Lisp_Object contents[1];
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2692 };
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2693 typedef struct Lisp_Vector Lisp_Vector;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2694
5118 e0db3c197671 merge up to latest default branch, doesn't compile yet Ben Wing <ben@xemacs.org> parents: 5117 4744 diff changeset	2695 DECLARE_LISP_OBJECT (vector, Lisp_Vector);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2696 #define XVECTOR(x) XRECORD (x, vector, Lisp_Vector)
617 af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben] ben parents: 614 diff changeset	2697 #define wrap_vector(p) wrap_record (p, vector)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2698 #define VECTORP(x) RECORDP (x, vector)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2699 #define CHECK_VECTOR(x) CHECK_RECORD (x, vector)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2700 #define CONCHECK_VECTOR(x) CONCHECK_RECORD (x, vector)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2701
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2702 #define vector_length(v) ((v)->size)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2703 #define XVECTOR_LENGTH(s) vector_length (XVECTOR (s))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2704 #define vector_data(v) ((v)->contents)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2705 #define XVECTOR_DATA(s) vector_data (XVECTOR (s))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2706
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2707 /---------------------------- bit vectors -----------------------------/
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2708
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2709 #if (LONGBITS < 16)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2710 #error What the hell?!
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2711 #elif (LONGBITS < 32)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2712 # define LONGBITS_LOG2 4
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2713 # define LONGBITS_POWER_OF_2 16
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2714 #elif (LONGBITS < 64)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2715 # define LONGBITS_LOG2 5
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2716 # define LONGBITS_POWER_OF_2 32
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2717 #elif (LONGBITS < 128)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2718 # define LONGBITS_LOG2 6
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2719 # define LONGBITS_POWER_OF_2 64
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2720 #else
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2721 #error You really have 128-bit integers?!
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2722 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2723
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2724 struct Lisp_Bit_Vector
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2725 {
5127 a9c41067dd88 more cleanups, terminology clarification, lots of doc work Ben Wing <ben@xemacs.org> parents: 5126 diff changeset	2726 NORMAL_LISP_OBJECT_HEADER lheader;
665 fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben] ben parents: 647 diff changeset	2727 Elemcount size;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2728 unsigned long bits[1];
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2729 };
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2730 typedef struct Lisp_Bit_Vector Lisp_Bit_Vector;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2731
5118 e0db3c197671 merge up to latest default branch, doesn't compile yet Ben Wing <ben@xemacs.org> parents: 5117 4744 diff changeset	2732 DECLARE_LISP_OBJECT (bit_vector, Lisp_Bit_Vector);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2733 #define XBIT_VECTOR(x) XRECORD (x, bit_vector, Lisp_Bit_Vector)
617 af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben] ben parents: 614 diff changeset	2734 #define wrap_bit_vector(p) wrap_record (p, bit_vector)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2735 #define BIT_VECTORP(x) RECORDP (x, bit_vector)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2736 #define CHECK_BIT_VECTOR(x) CHECK_RECORD (x, bit_vector)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2737 #define CONCHECK_BIT_VECTOR(x) CONCHECK_RECORD (x, bit_vector)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2738
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	2739 #define BITP(x) (FIXNUMP (x) && (XFIXNUM (x) == 0 \|\| XFIXNUM (x) == 1))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2740
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2741 #define CHECK_BIT(x) do { \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2742 if (!BITP (x)) \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2743 dead_wrong_type_argument (Qbitp, x);\
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2744 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2745
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2746 #define CONCHECK_BIT(x) do { \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2747 if (!BITP (x)) \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2748 x = wrong_type_argument (Qbitp, x); \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2749 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2750
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2751 #define bit_vector_length(v) ((v)->size)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2752
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	2753 DECLARE_INLINE_HEADER (
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	2754 int
665 fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben] ben parents: 647 diff changeset	2755 bit_vector_bit (Lisp_Bit_Vector *v, Elemcount n)
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	2756 )
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2757 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2758 return ((v->bits[n >> LONGBITS_LOG2] >> (n & (LONGBITS_POWER_OF_2 - 1)))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2759 & 1);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2760 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2761
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	2762 DECLARE_INLINE_HEADER (
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	2763 void
665 fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben] ben parents: 647 diff changeset	2764 set_bit_vector_bit (Lisp_Bit_Vector *v, Elemcount n, int value)
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	2765 )
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2766 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2767 if (value)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2768 v->bits[n >> LONGBITS_LOG2] \|= (1UL << (n & (LONGBITS_POWER_OF_2 - 1)));
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2769 else
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2770 v->bits[n >> LONGBITS_LOG2] &= ~(1UL << (n & (LONGBITS_POWER_OF_2 - 1)));
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2771 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2772
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2773 /* Number of longs required to hold LEN bits */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2774 #define BIT_VECTOR_LONG_STORAGE(len) \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2775 (((len) + LONGBITS_POWER_OF_2 - 1) >> LONGBITS_LOG2)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2776
3659 98af8a976fc3 [xemacs-hg @ 2006-11-05 22:31:31 by aidan] aidan parents: 3498 diff changeset	2777 /* For when we want to include a bit vector in another structure, and we
98af8a976fc3 [xemacs-hg @ 2006-11-05 22:31:31 by aidan] aidan parents: 3498 diff changeset	2778 know it's of a fixed size. */
98af8a976fc3 [xemacs-hg @ 2006-11-05 22:31:31 by aidan] aidan parents: 3498 diff changeset	2779 #define DECLARE_INLINE_LISP_BIT_VECTOR(numbits) struct { \
5127 a9c41067dd88 more cleanups, terminology clarification, lots of doc work Ben Wing <ben@xemacs.org> parents: 5126 diff changeset	2780 NORMAL_LISP_OBJECT_HEADER lheader; \
3659 98af8a976fc3 [xemacs-hg @ 2006-11-05 22:31:31 by aidan] aidan parents: 3498 diff changeset	2781 Elemcount size; \
98af8a976fc3 [xemacs-hg @ 2006-11-05 22:31:31 by aidan] aidan parents: 3498 diff changeset	2782 unsigned long bits[BIT_VECTOR_LONG_STORAGE(numbits)]; \
98af8a976fc3 [xemacs-hg @ 2006-11-05 22:31:31 by aidan] aidan parents: 3498 diff changeset	2783 }
4995 8431b52e43b1 Move the various map* functions to C; add #'map-into. Aidan Kehoe <kehoea@parhasard.net> parents: 4888 diff changeset	2784 /---------------------- array, sequence -----------------------------/
8431b52e43b1 Move the various map* functions to C; add #'map-into. Aidan Kehoe <kehoea@parhasard.net> parents: 4888 diff changeset	2785
8431b52e43b1 Move the various map* functions to C; add #'map-into. Aidan Kehoe <kehoea@parhasard.net> parents: 4888 diff changeset	2786 #define ARRAYP(x) (VECTORP (x) \|\| STRINGP (x) \|\| BIT_VECTORP (x))
8431b52e43b1 Move the various map* functions to C; add #'map-into. Aidan Kehoe <kehoea@parhasard.net> parents: 4888 diff changeset	2787
8431b52e43b1 Move the various map* functions to C; add #'map-into. Aidan Kehoe <kehoea@parhasard.net> parents: 4888 diff changeset	2788 #define CHECK_ARRAY(x) do { \
8431b52e43b1 Move the various map* functions to C; add #'map-into. Aidan Kehoe <kehoea@parhasard.net> parents: 4888 diff changeset	2789 if (!ARRAYP (x)) \
8431b52e43b1 Move the various map* functions to C; add #'map-into. Aidan Kehoe <kehoea@parhasard.net> parents: 4888 diff changeset	2790 dead_wrong_type_argument (Qarrayp, x); \
8431b52e43b1 Move the various map* functions to C; add #'map-into. Aidan Kehoe <kehoea@parhasard.net> parents: 4888 diff changeset	2791 } while (0)
8431b52e43b1 Move the various map* functions to C; add #'map-into. Aidan Kehoe <kehoea@parhasard.net> parents: 4888 diff changeset	2792
8431b52e43b1 Move the various map* functions to C; add #'map-into. Aidan Kehoe <kehoea@parhasard.net> parents: 4888 diff changeset	2793 #define CONCHECK_ARRAY(x) do { \
8431b52e43b1 Move the various map* functions to C; add #'map-into. Aidan Kehoe <kehoea@parhasard.net> parents: 4888 diff changeset	2794 if (!ARRAYP (x)) \
8431b52e43b1 Move the various map* functions to C; add #'map-into. Aidan Kehoe <kehoea@parhasard.net> parents: 4888 diff changeset	2795 x = wrong_type_argument (Qarrayp, x); \
8431b52e43b1 Move the various map* functions to C; add #'map-into. Aidan Kehoe <kehoea@parhasard.net> parents: 4888 diff changeset	2796 } while (0)
8431b52e43b1 Move the various map* functions to C; add #'map-into. Aidan Kehoe <kehoea@parhasard.net> parents: 4888 diff changeset	2797
8431b52e43b1 Move the various map* functions to C; add #'map-into. Aidan Kehoe <kehoea@parhasard.net> parents: 4888 diff changeset	2798 #define SEQUENCEP(x) (LISTP (x) \|\| ARRAYP (x))
8431b52e43b1 Move the various map* functions to C; add #'map-into. Aidan Kehoe <kehoea@parhasard.net> parents: 4888 diff changeset	2799
8431b52e43b1 Move the various map* functions to C; add #'map-into. Aidan Kehoe <kehoea@parhasard.net> parents: 4888 diff changeset	2800 #define CHECK_SEQUENCE(x) do { \
8431b52e43b1 Move the various map* functions to C; add #'map-into. Aidan Kehoe <kehoea@parhasard.net> parents: 4888 diff changeset	2801 if (!SEQUENCEP (x)) \
8431b52e43b1 Move the various map* functions to C; add #'map-into. Aidan Kehoe <kehoea@parhasard.net> parents: 4888 diff changeset	2802 dead_wrong_type_argument (Qsequencep, x); \
8431b52e43b1 Move the various map* functions to C; add #'map-into. Aidan Kehoe <kehoea@parhasard.net> parents: 4888 diff changeset	2803 } while (0)
8431b52e43b1 Move the various map* functions to C; add #'map-into. Aidan Kehoe <kehoea@parhasard.net> parents: 4888 diff changeset	2804
8431b52e43b1 Move the various map* functions to C; add #'map-into. Aidan Kehoe <kehoea@parhasard.net> parents: 4888 diff changeset	2805 #define CONCHECK_SEQUENCE(x) do { \
8431b52e43b1 Move the various map* functions to C; add #'map-into. Aidan Kehoe <kehoea@parhasard.net> parents: 4888 diff changeset	2806 if (!SEQUENCEP (x)) \
8431b52e43b1 Move the various map* functions to C; add #'map-into. Aidan Kehoe <kehoea@parhasard.net> parents: 4888 diff changeset	2807 x = wrong_type_argument (Qsequencep, x); \
8431b52e43b1 Move the various map* functions to C; add #'map-into. Aidan Kehoe <kehoea@parhasard.net> parents: 4888 diff changeset	2808 } while (0)
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	2809
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2810 /------------------------------ symbol --------------------------------/
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2811
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 438 diff changeset	2812 typedef struct Lisp_Symbol Lisp_Symbol;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2813 struct Lisp_Symbol
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2814 {
5560 58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2815 union
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2816 {
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2817 FROB_BLOCK_LISP_OBJECT_HEADER lheader;
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2818 struct
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2819 {
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2820 /* Everything before package_count must agree exactly with struct
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2821 lrecord_header. */
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2822 unsigned int type :8;
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2823 #ifdef NEW_GC
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2824 unsigned int lisp_readonly :1;
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2825 unsigned int free :1;
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2826 /* Number of packages this symbol is interned in, zero, one, or many.
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2827 Packages aren't yet implemented, but we have a design in Common
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2828 Lisp's. */
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2829 unsigned int package_count :2;
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2830 /* ID of the first package this symbol was interned in. Zero is
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2831 uninterned, one is obarray. */
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2832 unsigned int first_package_id :20;
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2833 #else /* not NEW_GC */
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2834 unsigned int mark :1;
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2835 unsigned int c_readonly :1;
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2836 unsigned int lisp_readonly :1;
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2837 /* Number of packages this symbol is interned in, zero, one, or many. */
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2838 unsigned int package_count :2;
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2839 /* ID of the first package this symbol was interned in. Zero is
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2840 uninterned, one is obarray. */
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2841 unsigned int first_package_id :19;
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2842 #endif /* not NEW_GC */
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2843 } v;
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2844 } u;
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2845
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2846 /* next symbol in this obarray bucket */
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 438 diff changeset	2847 Lisp_Symbol *next;
793 e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	2848 Lisp_Object name;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2849 Lisp_Object value;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2850 Lisp_Object function;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2851 Lisp_Object plist;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2852 };
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2853
5560 58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2854 #define IN_OBARRAY(symbol) ((XSYMBOL (symbol)->u.v.first_package_id) == 1)
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2855
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2856 #define SYMBOL_IS_KEYWORD(sym) (IN_OBARRAY (sym) && \
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2857 (string_byte (symbol_name (XSYMBOL (sym)), \
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2858 0) == ':'))
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2859
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2860 #define KEYWORDP(obj) (SYMBOLP (obj) && SYMBOL_IS_KEYWORD (obj))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2861
5120 d1247f3cc363 latest work on lisp-object workspace; Ben Wing <ben@xemacs.org> parents: 5118 diff changeset	2862 DECLARE_MODULE_API_LISP_OBJECT (symbol, Lisp_Symbol);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2863 #define XSYMBOL(x) XRECORD (x, symbol, Lisp_Symbol)
617 af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben] ben parents: 614 diff changeset	2864 #define wrap_symbol(p) wrap_record (p, symbol)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2865 #define SYMBOLP(x) RECORDP (x, symbol)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2866 #define CHECK_SYMBOL(x) CHECK_RECORD (x, symbol)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2867 #define CONCHECK_SYMBOL(x) CONCHECK_RECORD (x, symbol)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2868
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2869 #define symbol_next(s) ((s)->next)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2870 #define symbol_name(s) ((s)->name)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2871 #define symbol_value(s) ((s)->value)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2872 #define symbol_function(s) ((s)->function)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2873 #define symbol_plist(s) ((s)->plist)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2874
793 e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	2875 #define XSYMBOL_NEXT(s) (XSYMBOL (s)->next)
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	2876 #define XSYMBOL_NAME(s) (XSYMBOL (s)->name)
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	2877 #define XSYMBOL_VALUE(s) (XSYMBOL (s)->value)
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	2878 #define XSYMBOL_FUNCTION(s) (XSYMBOL (s)->function)
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	2879 #define XSYMBOL_PLIST(s) (XSYMBOL (s)->plist)
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	2880
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	2881
5560 58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	2882
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2883 /------------------------------- subr ---------------------------------/
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2884
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	2885 /* A function that takes no arguments and returns a Lisp_Object.
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	2886 We could define such types for n arguments, if needed. */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2887 typedef Lisp_Object (*lisp_fn_t) (void);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2888
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2889 struct Lisp_Subr
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2890 {
5120 d1247f3cc363 latest work on lisp-object workspace; Ben Wing <ben@xemacs.org> parents: 5118 diff changeset	2891 FROB_BLOCK_LISP_OBJECT_HEADER lheader;
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2892 short min_args;
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2893 short max_args;
3379 b544987e2eca [xemacs-hg @ 2006-05-06 08:09:35 by aidan] aidan parents: 3319 diff changeset	2894 /* #### We should make these const Ascbyte * or const Ibyte *, not const
b544987e2eca [xemacs-hg @ 2006-05-06 08:09:35 by aidan] aidan parents: 3319 diff changeset	2895 char . /
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2896 const char *prompt;
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2897 const char *doc;
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2898 const char *name;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2899 lisp_fn_t subr_fn;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2900 };
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2901 typedef struct Lisp_Subr Lisp_Subr;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2902
5118 e0db3c197671 merge up to latest default branch, doesn't compile yet Ben Wing <ben@xemacs.org> parents: 5117 4744 diff changeset	2903 DECLARE_LISP_OBJECT (subr, Lisp_Subr);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2904 #define XSUBR(x) XRECORD (x, subr, Lisp_Subr)
617 af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben] ben parents: 614 diff changeset	2905 #define wrap_subr(p) wrap_record (p, subr)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2906 #define SUBRP(x) RECORDP (x, subr)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2907 #define CHECK_SUBR(x) CHECK_RECORD (x, subr)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2908 #define CONCHECK_SUBR(x) CONCHECK_RECORD (x, subr)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2909
436 080151679be2 Import from CVS: tag r21-2-26 cvs parents: 434 diff changeset	2910 #define subr_function(subr) ((subr)->subr_fn)
080151679be2 Import from CVS: tag r21-2-26 cvs parents: 434 diff changeset	2911 #define SUBR_FUNCTION(subr,max_args) \
080151679be2 Import from CVS: tag r21-2-26 cvs parents: 434 diff changeset	2912 ((Lisp_Object (*) (EXFUN_##max_args)) (subr)->subr_fn)
080151679be2 Import from CVS: tag r21-2-26 cvs parents: 434 diff changeset	2913 #define subr_name(subr) ((subr)->name)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2914
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2915 /------------------------------ marker --------------------------------/
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	2916
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2917
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 438 diff changeset	2918 typedef struct Lisp_Marker Lisp_Marker;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2919 struct Lisp_Marker
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2920 {
5120 d1247f3cc363 latest work on lisp-object workspace; Ben Wing <ben@xemacs.org> parents: 5118 diff changeset	2921 FROB_BLOCK_LISP_OBJECT_HEADER lheader;
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 438 diff changeset	2922 Lisp_Marker *next;
8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 438 diff changeset	2923 Lisp_Marker *prev;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2924 struct buffer *buffer;
665 fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben] ben parents: 647 diff changeset	2925 Membpos membpos;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2926 char insertion_type;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2927 };
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2928
5120 d1247f3cc363 latest work on lisp-object workspace; Ben Wing <ben@xemacs.org> parents: 5118 diff changeset	2929 DECLARE_MODULE_API_LISP_OBJECT (marker, Lisp_Marker);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2930 #define XMARKER(x) XRECORD (x, marker, Lisp_Marker)
617 af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben] ben parents: 614 diff changeset	2931 #define wrap_marker(p) wrap_record (p, marker)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2932 #define MARKERP(x) RECORDP (x, marker)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2933 #define CHECK_MARKER(x) CHECK_RECORD (x, marker)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2934 #define CONCHECK_MARKER(x) CONCHECK_RECORD (x, marker)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2935
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2936 /* The second check was looking for GCed markers still in use */
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	2937 /* assert (!FIXNUMP (XMARKER (x)->lheader.next.v)); */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2938
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2939 #define marker_next(m) ((m)->next)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2940 #define marker_prev(m) ((m)->prev)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2941
3063 d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	2942 /-------------------basic int (no connection to char)------------------/
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	2943
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	2944 #define ZEROP(x) EQ (x, Qzero)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2945
800 a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben] ben parents: 793 diff changeset	2946 #ifdef ERROR_CHECK_TYPES
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2947
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	2948 #define XFIXNUM(x) XFIXNUM_1 (x, __FILE__, __LINE__)
3063 d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	2949
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	2950 DECLARE_INLINE_HEADER (
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	2951 EMACS_INT
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	2952 XFIXNUM_1 (Lisp_Object obj, const Ascbyte *file, int line)
3063 d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	2953 )
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	2954 {
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	2955 assert_at_line (FIXNUMP (obj), file, line);
56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	2956 return XREALFIXNUM (obj);
3063 d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	2957 }
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	2958
5038 9410323e4b0d major dynarr fixes Ben Wing <ben@xemacs.org> parents: 5023 diff changeset	2959 #else /* not ERROR_CHECK_TYPES */
3063 d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	2960
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	2961 #define XFIXNUM(obj) XREALFIXNUM (obj)
3063 d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	2962
5038 9410323e4b0d major dynarr fixes Ben Wing <ben@xemacs.org> parents: 5023 diff changeset	2963 #endif /* (not) ERROR_CHECK_TYPES */
3063 d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	2964
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	2965 #define CHECK_FIXNUM(x) do { \
56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	2966 if (!FIXNUMP (x)) \
5191 71ee43b8a74d Add #'equalp as a hash test by default; add #'define-hash-table-test, GNU API Aidan Kehoe <kehoea@parhasard.net> parents: 5190 diff changeset	2967 dead_wrong_type_argument (Qfixnump, x); \
3063 d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	2968 } while (0)
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	2969
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	2970 #define CONCHECK_FIXNUM(x) do { \
56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	2971 if (!FIXNUMP (x)) \
5191 71ee43b8a74d Add #'equalp as a hash test by default; add #'define-hash-table-test, GNU API Aidan Kehoe <kehoea@parhasard.net> parents: 5190 diff changeset	2972 x = wrong_type_argument (Qfixnump, x); \
3063 d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	2973 } while (0)
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	2974
5092 3aa3888729c3 move inclusion point of text.h to clean things up a bit Ben Wing <ben@xemacs.org> parents: 5077 diff changeset	2975 END_C_DECLS
3aa3888729c3 move inclusion point of text.h to clean things up a bit Ben Wing <ben@xemacs.org> parents: 5077 diff changeset	2976
3aa3888729c3 move inclusion point of text.h to clean things up a bit Ben Wing <ben@xemacs.org> parents: 5077 diff changeset	2977 /* -------------- properties of internally-formatted text ------------- */
3aa3888729c3 move inclusion point of text.h to clean things up a bit Ben Wing <ben@xemacs.org> parents: 5077 diff changeset	2978
3aa3888729c3 move inclusion point of text.h to clean things up a bit Ben Wing <ben@xemacs.org> parents: 5077 diff changeset	2979 #include "text.h"
3aa3888729c3 move inclusion point of text.h to clean things up a bit Ben Wing <ben@xemacs.org> parents: 5077 diff changeset	2980
3063 d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	2981 /------------------------------- char ---------------------------------/
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	2982
5092 3aa3888729c3 move inclusion point of text.h to clean things up a bit Ben Wing <ben@xemacs.org> parents: 5077 diff changeset	2983 BEGIN_C_DECLS
3aa3888729c3 move inclusion point of text.h to clean things up a bit Ben Wing <ben@xemacs.org> parents: 5077 diff changeset	2984
3aa3888729c3 move inclusion point of text.h to clean things up a bit Ben Wing <ben@xemacs.org> parents: 5077 diff changeset	2985 #ifdef ERROR_CHECK_TYPES
3aa3888729c3 move inclusion point of text.h to clean things up a bit Ben Wing <ben@xemacs.org> parents: 5077 diff changeset	2986
3063 d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	2987 /* NOTE: There are basic functions for converting between a character and
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	2988 the string representation of a character in text.h, as well as lots of
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	2989 other character-related stuff. There are other functions/macros for
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	2990 working with Ichars in charset.h, for retrieving the charset of an
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	2991 Ichar, the length of an Ichar when converted to text, etc.
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	2992 */
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	2993
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	2994 DECLARE_INLINE_HEADER (
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	2995 int
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	2996 CHARP_1 (Lisp_Object obj, const Ascbyte *file, int line)
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	2997 )
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	2998 {
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	2999 if (XTYPE (obj) != Lisp_Type_Char)
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3000 return 0;
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3001 assert_at_line (valid_ichar_p (XCHARVAL (obj)), file, line);
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3002 return 1;
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3003 }
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3004
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3005 #define CHARP(x) CHARP_1 (x, __FILE__, __LINE__)
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3006
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	3007 DECLARE_INLINE_HEADER (
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	3008 Ichar
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	3009 XCHAR_1 (Lisp_Object obj, const Ascbyte *file, int line)
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	3010 )
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3011 {
3063 d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3012 Ichar ch;
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 776 diff changeset	3013 assert_at_line (CHARP (obj), file, line);
3063 d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3014 ch = XCHARVAL (obj);
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3015 assert_at_line (valid_ichar_p (ch), file, line);
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3016 return ch;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3017 }
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3018
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 776 diff changeset	3019 #define XCHAR(x) XCHAR_1 (x, __FILE__, __LINE__)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 776 diff changeset	3020
3063 d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3021 #else /* not ERROR_CHECK_TYPES */
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3022
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3023 #define CHARP(x) (XTYPE (x) == Lisp_Type_Char)
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3024 #define XCHAR(x) ((Ichar) XCHARVAL (x))
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3025
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3026 #endif /* (else) not ERROR_CHECK_TYPES */
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3027
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3028 #define CONCHECK_CHAR(x) do { \
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3029 if (!CHARP (x)) \
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3030 x = wrong_type_argument (Qcharacterp, x); \
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3031 } while (0)
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3032
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3033 #define CHECK_CHAR(x) do { \
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3034 if (!CHARP (x)) \
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3035 dead_wrong_type_argument (Qcharacterp, x); \
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3036 } while (0)
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3037
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3038
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3039 DECLARE_INLINE_HEADER (
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3040 Lisp_Object
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3041 make_char (Ichar val)
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3042 )
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3043 {
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3044 type_checking_assert (valid_ichar_p (val));
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3045 /* This is defined in lisp-union.h or lisp-disunion.h */
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3046 return make_char_1 (val);
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3047 }
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3048
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3049 /------------------------- int-char connection ------------------------/
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3050
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3051 #ifdef ERROR_CHECK_TYPES
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3052
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	3053 #define XCHAR_OR_FIXNUM(x) XCHAR_OR_FIXNUM_1 (x, __FILE__, __LINE__)
3063 d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3054
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3055 DECLARE_INLINE_HEADER (
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3056 EMACS_INT
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	3057 XCHAR_OR_FIXNUM_1 (Lisp_Object obj, const Ascbyte *file, int line)
3063 d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3058 )
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3059 {
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	3060 assert_at_line (FIXNUMP (obj) \|\| CHARP (obj), file, line);
56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	3061 return CHARP (obj) ? XCHAR (obj) : XFIXNUM (obj);
3063 d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3062 }
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3063
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 776 diff changeset	3064 #else /* no error checking */
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 776 diff changeset	3065
4134 ac5a714be3a2 [xemacs-hg @ 2007-08-21 20:32:33 by aidan] aidan parents: 4123 diff changeset	3066 /* obj is multiply eval'ed and not an lvalue; use an inline function instead
ac5a714be3a2 [xemacs-hg @ 2007-08-21 20:32:33 by aidan] aidan parents: 4123 diff changeset	3067 of a macro. */
ac5a714be3a2 [xemacs-hg @ 2007-08-21 20:32:33 by aidan] aidan parents: 4123 diff changeset	3068 DECLARE_INLINE_HEADER (
ac5a714be3a2 [xemacs-hg @ 2007-08-21 20:32:33 by aidan] aidan parents: 4123 diff changeset	3069 EMACS_INT
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	3070 XCHAR_OR_FIXNUM (Lisp_Object obj)
4134 ac5a714be3a2 [xemacs-hg @ 2007-08-21 20:32:33 by aidan] aidan parents: 4123 diff changeset	3071 )
ac5a714be3a2 [xemacs-hg @ 2007-08-21 20:32:33 by aidan] aidan parents: 4123 diff changeset	3072 {
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	3073 return CHARP (obj) ? XCHAR (obj) : XFIXNUM (obj);
4134 ac5a714be3a2 [xemacs-hg @ 2007-08-21 20:32:33 by aidan] aidan parents: 4123 diff changeset	3074 }
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 776 diff changeset	3075
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 776 diff changeset	3076 #endif /* no error checking */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3077
3063 d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3078 /* True of X is an integer whose value is the valid integral equivalent of a
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3079 character. */
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3080
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	3081 #define CHAR_INTP(x) (FIXNUMP (x) && valid_ichar_p (XFIXNUM (x)))
3063 d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3082
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3083 /* True of X is a character or an integral value that can be converted into a
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3084 character. */
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3085 #define CHAR_OR_CHAR_INTP(x) (CHARP (x) \|\| CHAR_INTP (x))
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3086
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3087 DECLARE_INLINE_HEADER (
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3088 Ichar
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3089 XCHAR_OR_CHAR_INT (Lisp_Object obj)
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3090 )
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3091 {
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	3092 return CHARP (obj) ? XCHAR (obj) : XFIXNUM (obj);
3063 d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3093 }
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3094
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3095 /* Signal an error if CH is not a valid character or integer Lisp_Object.
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3096 If CH is an integer Lisp_Object, convert it to a character Lisp_Object,
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3097 but merely by repackaging, without performing tests for char validity.
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3098 */
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3099
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3100 #define CHECK_CHAR_COERCE_INT(x) do { \
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3101 if (CHARP (x)) \
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3102 ; \
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3103 else if (CHAR_INTP (x)) \
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	3104 x = make_char (XFIXNUM (x)); \
3063 d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3105 else \
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3106 x = wrong_type_argument (Qcharacterp, x); \
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3107 } while (0)
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3108
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3109 /* next three always continuable because they coerce their arguments. */
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	3110 #define CHECK_FIXNUM_COERCE_CHAR(x) do { \
56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	3111 if (FIXNUMP (x)) \
3063 d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3112 ; \
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3113 else if (CHARP (x)) \
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	3114 x = make_fixnum (XCHAR (x)); \
3063 d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3115 else \
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3116 x = wrong_type_argument (Qinteger_or_char_p, x); \
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3117 } while (0)
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3118
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	3119 #define CHECK_FIXNUM_COERCE_MARKER(x) do { \
56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	3120 if (FIXNUMP (x)) \
3063 d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3121 ; \
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3122 else if (MARKERP (x)) \
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	3123 x = make_fixnum (marker_position (x)); \
3063 d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3124 else \
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3125 x = wrong_type_argument (Qinteger_or_marker_p, x); \
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3126 } while (0)
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3127
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	3128 #define CHECK_FIXNUM_COERCE_CHAR_OR_MARKER(x) do { \
56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	3129 if (FIXNUMP (x)) \
3063 d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3130 ; \
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3131 else if (CHARP (x)) \
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	3132 x = make_fixnum (XCHAR (x)); \
3063 d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3133 else if (MARKERP (x)) \
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	3134 x = make_fixnum (marker_position (x)); \
3063 d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3135 else \
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3136 x = wrong_type_argument (Qinteger_char_or_marker_p, x); \
d30cd499e445 [xemacs-hg @ 2005-11-13 10:48:01 by ben] ben parents: 3017 diff changeset	3137 } while (0)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3138
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	3139 /------------------------------ float ---------------------------------/
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3140
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3141 /* Note: the 'unused_next_' field exists only to ensure that the
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3142 `next' pointer fits within the structure, for the purposes of the
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3143 free list. This makes a difference in the unlikely case of
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3144 sizeof(double) being smaller than sizeof(void ). /
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3145
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3146 struct Lisp_Float
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3147 {
5120 d1247f3cc363 latest work on lisp-object workspace; Ben Wing <ben@xemacs.org> parents: 5118 diff changeset	3148 FROB_BLOCK_LISP_OBJECT_HEADER lheader;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3149 union { double d; struct Lisp_Float *unused_next_; } data;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3150 };
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3151 typedef struct Lisp_Float Lisp_Float;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3152
5118 e0db3c197671 merge up to latest default branch, doesn't compile yet Ben Wing <ben@xemacs.org> parents: 5117 4744 diff changeset	3153 DECLARE_LISP_OBJECT (float, Lisp_Float);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3154 #define XFLOAT(x) XRECORD (x, float, Lisp_Float)
617 af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben] ben parents: 614 diff changeset	3155 #define wrap_float(p) wrap_record (p, float)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3156 #define FLOATP(x) RECORDP (x, float)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3157 #define CHECK_FLOAT(x) CHECK_RECORD (x, float)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3158 #define CONCHECK_FLOAT(x) CONCHECK_RECORD (x, float)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3159
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3160 #define float_data(f) ((f)->data.d)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3161 #define XFLOAT_DATA(x) float_data (XFLOAT (x))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3162
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	3163 #define XFLOATFIXNUM(n) extract_float (n)
56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	3164
56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	3165 #define CHECK_FIXNUM_OR_FLOAT(x) do { \
56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	3166 if (!FIXNUM_OR_FLOATP (x)) \
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3167 dead_wrong_type_argument (Qnumberp, x); \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3168 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3169
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	3170 #define CONCHECK_FIXNUM_OR_FLOAT(x) do { \
56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	3171 if (!FIXNUM_OR_FLOATP (x)) \
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3172 x = wrong_type_argument (Qnumberp, x); \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3173 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3174
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	3175 # define FIXNUM_OR_FLOATP(x) (FIXNUMP (x) \|\| FLOATP (x))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3176
5191 71ee43b8a74d Add #'equalp as a hash test by default; add #'define-hash-table-test, GNU API Aidan Kehoe <kehoea@parhasard.net> parents: 5190 diff changeset	3177 /* #### change for 64-bit machines */
71ee43b8a74d Add #'equalp as a hash test by default; add #'define-hash-table-test, GNU API Aidan Kehoe <kehoea@parhasard.net> parents: 5190 diff changeset	3178 #define FLOAT_HASHCODE_FROM_DOUBLE(dbl) \
71ee43b8a74d Add #'equalp as a hash test by default; add #'define-hash-table-test, GNU API Aidan Kehoe <kehoea@parhasard.net> parents: 5190 diff changeset	3179 (unsigned long)(fmod (dbl, 4e9))
71ee43b8a74d Add #'equalp as a hash test by default; add #'define-hash-table-test, GNU API Aidan Kehoe <kehoea@parhasard.net> parents: 5190 diff changeset	3180
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	3181 /--------------------------- readonly objects -------------------------/
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 438 diff changeset	3182
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3250 diff changeset	3183 #ifndef NEW_GC
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3184 #define CHECK_C_WRITEABLE(obj) \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3185 do { if (c_readonly (obj)) c_write_error (obj); } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3186
2720 6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3187 #define C_READONLY(obj) (C_READONLY_RECORD_HEADER_P(XRECORD_LHEADER (obj)))
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3250 diff changeset	3188 #endif /* not NEW_GC */
2720 6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3189
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3190 #define CHECK_LISP_WRITEABLE(obj) \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3191 do { if (lisp_readonly (obj)) lisp_write_error (obj); } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3192
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3193 #define LISP_READONLY(obj) (LISP_READONLY_RECORD_HEADER_P(XRECORD_LHEADER (obj)))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3194
980 2ec85ed291da [xemacs-hg @ 2002-08-30 08:05:30 by youngs] youngs parents: 970 diff changeset	3195 /----------------------------- structures ----------------------------/
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3196
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3197 typedef struct structure_keyword_entry structure_keyword_entry;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3198 struct structure_keyword_entry
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3199 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3200 Lisp_Object keyword;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3201 int (*validate) (Lisp_Object keyword, Lisp_Object value,
578 190b164ddcac [xemacs-hg @ 2001-05-25 11:26:50 by ben] ben parents: 577 diff changeset	3202 Error_Behavior errb);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3203 };
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3204
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3205 typedef struct
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3206 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3207 Dynarr_declare (structure_keyword_entry);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3208 } structure_keyword_entry_dynarr;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3209
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3210 typedef struct structure_type structure_type;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3211 struct structure_type
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3212 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3213 Lisp_Object type;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3214 structure_keyword_entry_dynarr *keywords;
578 190b164ddcac [xemacs-hg @ 2001-05-25 11:26:50 by ben] ben parents: 577 diff changeset	3215 int (*validate) (Lisp_Object data, Error_Behavior errb);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3216 Lisp_Object (*instantiate) (Lisp_Object data);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3217 };
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3218
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3219 typedef struct
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3220 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3221 Dynarr_declare (structure_type);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3222 } structure_type_dynarr;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3223
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3224 struct structure_type *define_structure_type (Lisp_Object type,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3225 int (*validate)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3226 (Lisp_Object data,
578 190b164ddcac [xemacs-hg @ 2001-05-25 11:26:50 by ben] ben parents: 577 diff changeset	3227 Error_Behavior errb),
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3228 Lisp_Object (*instantiate)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3229 (Lisp_Object data));
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3230 void define_structure_type_keyword (struct structure_type *st,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3231 Lisp_Object keyword,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3232 int (*validate) (Lisp_Object keyword,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3233 Lisp_Object value,
578 190b164ddcac [xemacs-hg @ 2001-05-25 11:26:50 by ben] ben parents: 577 diff changeset	3234 Error_Behavior errb));
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3235
858 2c12fe2da451 [xemacs-hg @ 2002-05-31 09:38:45 by michaels] michaels parents: 853 diff changeset	3236 /---------------------------- weak boxes ------------------------------/
2c12fe2da451 [xemacs-hg @ 2002-05-31 09:38:45 by michaels] michaels parents: 853 diff changeset	3237
2c12fe2da451 [xemacs-hg @ 2002-05-31 09:38:45 by michaels] michaels parents: 853 diff changeset	3238 struct weak_box
2c12fe2da451 [xemacs-hg @ 2002-05-31 09:38:45 by michaels] michaels parents: 853 diff changeset	3239 {
5127 a9c41067dd88 more cleanups, terminology clarification, lots of doc work Ben Wing <ben@xemacs.org> parents: 5126 diff changeset	3240 NORMAL_LISP_OBJECT_HEADER header;
858 2c12fe2da451 [xemacs-hg @ 2002-05-31 09:38:45 by michaels] michaels parents: 853 diff changeset	3241 Lisp_Object value;
2c12fe2da451 [xemacs-hg @ 2002-05-31 09:38:45 by michaels] michaels parents: 853 diff changeset	3242
2c12fe2da451 [xemacs-hg @ 2002-05-31 09:38:45 by michaels] michaels parents: 853 diff changeset	3243 Lisp_Object next_weak_box; /* don't mark through this! */
2c12fe2da451 [xemacs-hg @ 2002-05-31 09:38:45 by michaels] michaels parents: 853 diff changeset	3244 };
2c12fe2da451 [xemacs-hg @ 2002-05-31 09:38:45 by michaels] michaels parents: 853 diff changeset	3245
2c12fe2da451 [xemacs-hg @ 2002-05-31 09:38:45 by michaels] michaels parents: 853 diff changeset	3246 void prune_weak_boxes (void);
2c12fe2da451 [xemacs-hg @ 2002-05-31 09:38:45 by michaels] michaels parents: 853 diff changeset	3247 Lisp_Object make_weak_box (Lisp_Object value);
2c12fe2da451 [xemacs-hg @ 2002-05-31 09:38:45 by michaels] michaels parents: 853 diff changeset	3248 Lisp_Object weak_box_ref (Lisp_Object value);
2c12fe2da451 [xemacs-hg @ 2002-05-31 09:38:45 by michaels] michaels parents: 853 diff changeset	3249
5118 e0db3c197671 merge up to latest default branch, doesn't compile yet Ben Wing <ben@xemacs.org> parents: 5117 4744 diff changeset	3250 DECLARE_LISP_OBJECT (weak_box, struct weak_box);
858 2c12fe2da451 [xemacs-hg @ 2002-05-31 09:38:45 by michaels] michaels parents: 853 diff changeset	3251 #define XWEAK_BOX(x) XRECORD (x, weak_box, struct weak_box)
2c12fe2da451 [xemacs-hg @ 2002-05-31 09:38:45 by michaels] michaels parents: 853 diff changeset	3252 #define XSET_WEAK_BOX(x, v) (XWEAK_BOX (x)->value = (v))
2c12fe2da451 [xemacs-hg @ 2002-05-31 09:38:45 by michaels] michaels parents: 853 diff changeset	3253 #define wrap_weak_box(p) wrap_record (p, weak_box)
2c12fe2da451 [xemacs-hg @ 2002-05-31 09:38:45 by michaels] michaels parents: 853 diff changeset	3254 #define WEAK_BOXP(x) RECORDP (x, weak_box)
2c12fe2da451 [xemacs-hg @ 2002-05-31 09:38:45 by michaels] michaels parents: 853 diff changeset	3255 #define CHECK_WEAK_BOX(x) CHECK_RECORD (x, weak_box)
2c12fe2da451 [xemacs-hg @ 2002-05-31 09:38:45 by michaels] michaels parents: 853 diff changeset	3256 #define CONCHECK_WEAK_BOX(x) CONCHECK_RECORD (x, weak_box)
2c12fe2da451 [xemacs-hg @ 2002-05-31 09:38:45 by michaels] michaels parents: 853 diff changeset	3257
888 201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3258 /--------------------------- ephemerons ----------------------------/
201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3259
201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3260 struct ephemeron
201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3261 {
5127 a9c41067dd88 more cleanups, terminology clarification, lots of doc work Ben Wing <ben@xemacs.org> parents: 5126 diff changeset	3262 NORMAL_LISP_OBJECT_HEADER header;
888 201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3263
201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3264 Lisp_Object key;
201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3265
201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3266 /* This field holds a pair. The cdr of this cons points to the next
201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3267 ephemeron in Vall_ephemerons. The car points to another pair
201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3268 whose car is the value and whose cdr is the finalizer.
201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3269
201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3270 This representation makes it very easy to unlink an ephemeron
201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3271 from Vall_ephemerons and chain it into
201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3272 Vall_ephemerons_to_finalize. */
201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3273
201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3274 Lisp_Object cons_chain;
201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3275
201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3276 Lisp_Object value;
201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3277 };
201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3278
201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3279 void prune_ephemerons (void);
201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3280 Lisp_Object ephemeron_value(Lisp_Object ephi);
1590 03009473262a [xemacs-hg @ 2003-07-26 14:00:27 by michaels] michaels parents: 1467 diff changeset	3281 void init_marking_ephemerons(void);
03009473262a [xemacs-hg @ 2003-07-26 14:00:27 by michaels] michaels parents: 1467 diff changeset	3282 int continue_marking_ephemerons(void);
888 201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3283 int finish_marking_ephemerons(void);
201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3284 Lisp_Object zap_finalize_list(void);
201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3285 Lisp_Object make_ephemeron(Lisp_Object key, Lisp_Object value, Lisp_Object finalizer);
201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3286
5118 e0db3c197671 merge up to latest default branch, doesn't compile yet Ben Wing <ben@xemacs.org> parents: 5117 4744 diff changeset	3287 DECLARE_LISP_OBJECT(ephemeron, struct ephemeron);
888 201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3288 #define XEPHEMERON(x) XRECORD (x, ephemeron, struct ephemeron)
201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3289 #define XEPHEMERON_REF(x) (XEPHEMERON (x)->value)
201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3290 #define XEPHEMERON_NEXT(x) (XCDR (XEPHEMERON(x)->cons_chain))
201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3291 #define XEPHEMERON_FINALIZER(x) (XCDR (XCAR (XEPHEMERON (x)->cons_chain)))
201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3292 #define XSET_EPHEMERON_NEXT(x, n) (XSETCDR (XEPHEMERON(x)->cons_chain, n))
201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3293 #define XSET_EPHEMERON_VALUE(x, v) (XEPHEMERON(x)->value = (v))
201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3294 #define XSET_EPHEMERON_KEY(x, k) (XEPHEMERON(x)->key = (k))
201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3295 #define wrap_ephemeron(p) wrap_record (p, ephemeron)
201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3296 #define EPHEMERONP(x) RECORDP (x, ephemeron)
201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3297 #define CHECK_EPHEMERON(x) CHECK_RECORD (x, ephemeron)
201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3298 #define CONCHECK_EPHEMERON(x) CONCHECK_RECORD (x, ephemeron)
201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	3299
858 2c12fe2da451 [xemacs-hg @ 2002-05-31 09:38:45 by michaels] michaels parents: 853 diff changeset	3300
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	3301 /---------------------------- weak lists ------------------------------/
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3302
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3303 enum weak_list_type
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3304 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3305 /* element disappears if it's unmarked. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3306 WEAK_LIST_SIMPLE,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3307 /* element disappears if it's a cons and either its car or
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3308 cdr is unmarked. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3309 WEAK_LIST_ASSOC,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3310 /* element disappears if it's a cons and its car is unmarked. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3311 WEAK_LIST_KEY_ASSOC,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3312 /* element disappears if it's a cons and its cdr is unmarked. */
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	3313 WEAK_LIST_VALUE_ASSOC,
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	3314 /* element disappears if it's a cons and neither its car nor
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	3315 its cdr is marked. */
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	3316 WEAK_LIST_FULL_ASSOC
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3317 };
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3318
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3319 struct weak_list
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3320 {
5127 a9c41067dd88 more cleanups, terminology clarification, lots of doc work Ben Wing <ben@xemacs.org> parents: 5126 diff changeset	3321 NORMAL_LISP_OBJECT_HEADER header;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3322 Lisp_Object list; /* don't mark through this! */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3323 enum weak_list_type type;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3324 Lisp_Object next_weak; /* don't mark through this! */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3325 };
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3326
5118 e0db3c197671 merge up to latest default branch, doesn't compile yet Ben Wing <ben@xemacs.org> parents: 5117 4744 diff changeset	3327 DECLARE_LISP_OBJECT (weak_list, struct weak_list);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3328 #define XWEAK_LIST(x) XRECORD (x, weak_list, struct weak_list)
617 af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben] ben parents: 614 diff changeset	3329 #define wrap_weak_list(p) wrap_record (p, weak_list)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3330 #define WEAK_LISTP(x) RECORDP (x, weak_list)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3331 #define CHECK_WEAK_LIST(x) CHECK_RECORD (x, weak_list)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3332 #define CONCHECK_WEAK_LIST(x) CONCHECK_RECORD (x, weak_list)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3333
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3334 #define weak_list_list(w) ((w)->list)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3335 #define XWEAK_LIST_LIST(w) (XWEAK_LIST (w)->list)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3336
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3337 Lisp_Object make_weak_list (enum weak_list_type type);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3338 /* The following two are only called by the garbage collector */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3339 int finish_marking_weak_lists (void);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3340 void prune_weak_lists (void);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3341
1743 543769b89fed [xemacs-hg @ 2003-10-14 05:02:57 by james] james parents: 1726 diff changeset	3342 END_C_DECLS
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3343
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3344 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3345 /* Definitions of primitive Lisp functions and variables */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3346 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3347
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3348
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3349 /* DEFUN - Define a built-in Lisp-visible C function or `subr'.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3350 `lname' should be the name to give the function in Lisp,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3351 as a null-terminated C string.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3352 `Fname' should be the C equivalent of `lname', using only characters
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3353 valid in a C identifier, with an "F" prepended.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3354 The name of the C constant structure that records information
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3355 on this function for internal use is "S" concatenated with Fname.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3356 `min_args' should be a number, the minimum number of arguments allowed.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3357 `max_args' should be a number, the maximum number of arguments allowed,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3358 or else MANY or UNEVALLED.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3359 MANY means pass a vector of evaluated arguments,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3360 in the form of an integer number-of-arguments
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3361 followed by the address of a vector of Lisp_Objects
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3362 which contains the argument values.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3363 UNEVALLED means pass the list of unevaluated arguments.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3364 `prompt' says how to read arguments for an interactive call.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3365 See the doc string for `interactive'.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3366 A null string means call interactively with no arguments.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3367 `arglist' are the comma-separated arguments (always Lisp_Objects) for
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3368 the function.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3369 The docstring for the function is placed as a "C" comment between
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3370 the prompt and the `args' argument. make-docfile reads the
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3371 comment and creates the DOC file from it.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3372 */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3373
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3374 #define EXFUN_0 void
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3375 #define EXFUN_1 Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3376 #define EXFUN_2 Lisp_Object,Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3377 #define EXFUN_3 Lisp_Object,Lisp_Object,Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3378 #define EXFUN_4 Lisp_Object,Lisp_Object,Lisp_Object,Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3379 #define EXFUN_5 Lisp_Object,Lisp_Object,Lisp_Object,Lisp_Object,Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3380 #define EXFUN_6 Lisp_Object,Lisp_Object,Lisp_Object,Lisp_Object,Lisp_Object, \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3381 Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3382 #define EXFUN_7 Lisp_Object,Lisp_Object,Lisp_Object,Lisp_Object,Lisp_Object, \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3383 Lisp_Object,Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3384 #define EXFUN_8 Lisp_Object,Lisp_Object,Lisp_Object,Lisp_Object,Lisp_Object, \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3385 Lisp_Object,Lisp_Object,Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3386 #define EXFUN_MANY int, Lisp_Object*
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3387 #define EXFUN_UNEVALLED Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3388 #define EXFUN(sym, max_args) Lisp_Object sym (EXFUN_##max_args)
2268 61855263cb07 [xemacs-hg @ 2004-09-14 14:32:29 by james] james parents: 2210 diff changeset	3389 #define EXFUN_NORETURN(sym, max_args) \
61855263cb07 [xemacs-hg @ 2004-09-14 14:32:29 by james] james parents: 2210 diff changeset	3390 DECLARE_DOESNT_RETURN_TYPE (Lisp_Object, sym (EXFUN_##max_args))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3391
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3392 #define SUBR_MAX_ARGS 8
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3393 #define MANY -2
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3394 #define UNEVALLED -1
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3395
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3396 /* Can't be const, because then subr->doc is read-only and
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3397 Snarf_documentation chokes */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3398
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3250 diff changeset	3399 #ifdef NEW_GC
2720 6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3400 #define DEFUN(lname, Fname, min_args, max_args, prompt, arglist) \
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3401 Lisp_Object Fname (EXFUN_##max_args); \
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3402 static struct Lisp_Subr MC_ALLOC_S##Fname = \
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3403 { \
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3404 { /* struct lrecord_header */ \
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3405 lrecord_type_subr, /* lrecord_type_index */ \
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3406 1, /* lisp_readonly bit */ \
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3407 0, /* free */ \
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3408 0 /* uid */ \
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3409 }, \
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3410 min_args, \
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3411 max_args, \
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3412 prompt, \
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3413 0, /* doc string */ \
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3414 lname, \
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3415 (lisp_fn_t) Fname \
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3416 }; \
2814 520c08f04735 [xemacs-hg @ 2005-06-16 19:59:33 by crestani] crestani parents: 2720 diff changeset	3417 static struct Lisp_Subr *S##Fname; \
2720 6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3418 Lisp_Object Fname (DEFUN_##max_args arglist)
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3419
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3420 #define DEFUN_NORETURN(lname, Fname, min_args, max_args, prompt, arglist) \
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3421 DECLARE_DOESNT_RETURN_TYPE (Lisp_Object, Fname (EXFUN_##max_args)); \
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3422 static struct Lisp_Subr MC_ALLOC_S##Fname = \
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3423 { \
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3424 { /* struct lrecord_header */ \
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3425 lrecord_type_subr, /* lrecord_type_index */ \
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3426 1, /* lisp_readonly bit */ \
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3427 0, /* free */ \
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3428 0 /* uid */ \
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3429 }, \
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3430 min_args, \
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3431 max_args, \
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3432 prompt, \
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3433 0, /* doc string */ \
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3434 lname, \
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3435 (lisp_fn_t) Fname \
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3436 }; \
2814 520c08f04735 [xemacs-hg @ 2005-06-16 19:59:33 by crestani] crestani parents: 2720 diff changeset	3437 static struct Lisp_Subr *S##Fname; \
2720 6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	3438 DOESNT_RETURN_TYPE (Lisp_Object) Fname (DEFUN_##max_args arglist)
2834 172fb92bd156 [xemacs-hg @ 2005-06-28 11:32:13 by crestani] crestani parents: 2828 diff changeset	3439 #define GET_DEFUN_LISP_OBJECT(Fname) \
5280 59a6419f7504 Use GET_DEFUN_LISP_OBJECT() in PARSE_KEYWORDS(), fix former under NEW_GC. Aidan Kehoe <kehoea@parhasard.net> parents: 5279 diff changeset	3440 wrap_subr (&MC_ALLOC_S##Fname)
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3250 diff changeset	3441 #else /* not NEW_GC */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3442 #define DEFUN(lname, Fname, min_args, max_args, prompt, arglist) \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3443 Lisp_Object Fname (EXFUN_##max_args); \
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	3444 static struct Lisp_Subr S##Fname = \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	3445 { \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	3446 { /* struct lrecord_header */ \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	3447 lrecord_type_subr, /* lrecord_type_index */ \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	3448 1, /* mark bit */ \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	3449 1, /* c_readonly bit */ \
1111 184461bc8de4 [xemacs-hg @ 2002-11-18 06:52:23 by ben] ben parents: 1104 diff changeset	3450 1, /* lisp_readonly bit */ \
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	3451 }, \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	3452 min_args, \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	3453 max_args, \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	3454 prompt, \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	3455 0, /* doc string */ \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	3456 lname, \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	3457 (lisp_fn_t) Fname \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	3458 }; \
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3459 Lisp_Object Fname (DEFUN_##max_args arglist)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3460
2268 61855263cb07 [xemacs-hg @ 2004-09-14 14:32:29 by james] james parents: 2210 diff changeset	3461 #define DEFUN_NORETURN(lname, Fname, min_args, max_args, prompt, arglist) \
61855263cb07 [xemacs-hg @ 2004-09-14 14:32:29 by james] james parents: 2210 diff changeset	3462 DECLARE_DOESNT_RETURN_TYPE (Lisp_Object, Fname (EXFUN_##max_args)); \
61855263cb07 [xemacs-hg @ 2004-09-14 14:32:29 by james] james parents: 2210 diff changeset	3463 static struct Lisp_Subr S##Fname = \
61855263cb07 [xemacs-hg @ 2004-09-14 14:32:29 by james] james parents: 2210 diff changeset	3464 { \
61855263cb07 [xemacs-hg @ 2004-09-14 14:32:29 by james] james parents: 2210 diff changeset	3465 { /* struct lrecord_header */ \
61855263cb07 [xemacs-hg @ 2004-09-14 14:32:29 by james] james parents: 2210 diff changeset	3466 lrecord_type_subr, /* lrecord_type_index */ \
61855263cb07 [xemacs-hg @ 2004-09-14 14:32:29 by james] james parents: 2210 diff changeset	3467 1, /* mark bit */ \
61855263cb07 [xemacs-hg @ 2004-09-14 14:32:29 by james] james parents: 2210 diff changeset	3468 1, /* c_readonly bit */ \
61855263cb07 [xemacs-hg @ 2004-09-14 14:32:29 by james] james parents: 2210 diff changeset	3469 1, /* lisp_readonly bit */ \
61855263cb07 [xemacs-hg @ 2004-09-14 14:32:29 by james] james parents: 2210 diff changeset	3470 }, \
61855263cb07 [xemacs-hg @ 2004-09-14 14:32:29 by james] james parents: 2210 diff changeset	3471 min_args, \
61855263cb07 [xemacs-hg @ 2004-09-14 14:32:29 by james] james parents: 2210 diff changeset	3472 max_args, \
61855263cb07 [xemacs-hg @ 2004-09-14 14:32:29 by james] james parents: 2210 diff changeset	3473 prompt, \
61855263cb07 [xemacs-hg @ 2004-09-14 14:32:29 by james] james parents: 2210 diff changeset	3474 0, /* doc string */ \
61855263cb07 [xemacs-hg @ 2004-09-14 14:32:29 by james] james parents: 2210 diff changeset	3475 lname, \
61855263cb07 [xemacs-hg @ 2004-09-14 14:32:29 by james] james parents: 2210 diff changeset	3476 (lisp_fn_t) Fname \
61855263cb07 [xemacs-hg @ 2004-09-14 14:32:29 by james] james parents: 2210 diff changeset	3477 }; \
61855263cb07 [xemacs-hg @ 2004-09-14 14:32:29 by james] james parents: 2210 diff changeset	3478 DOESNT_RETURN_TYPE (Lisp_Object) Fname (DEFUN_##max_args arglist)
2834 172fb92bd156 [xemacs-hg @ 2005-06-28 11:32:13 by crestani] crestani parents: 2828 diff changeset	3479 #define GET_DEFUN_LISP_OBJECT(Fname) \
5280 59a6419f7504 Use GET_DEFUN_LISP_OBJECT() in PARSE_KEYWORDS(), fix former under NEW_GC. Aidan Kehoe <kehoea@parhasard.net> parents: 5279 diff changeset	3480 wrap_subr (&S##Fname)
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3250 diff changeset	3481 #endif /* not NEW_GC */
2268 61855263cb07 [xemacs-hg @ 2004-09-14 14:32:29 by james] james parents: 2210 diff changeset	3482
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3483 /* Heavy ANSI C preprocessor hackery to get DEFUN to declare a
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3484 prototype that matches max_args, and add the obligatory
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3485 `Lisp_Object' type declaration to the formal C arguments. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3486
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3487 #define DEFUN_MANY(named_int, named_Lisp_Object) named_int, named_Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3488 #define DEFUN_UNEVALLED(args) Lisp_Object args
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3489 #define DEFUN_0() void
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3490 #define DEFUN_1(a) Lisp_Object a
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3491 #define DEFUN_2(a,b) DEFUN_1(a), Lisp_Object b
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3492 #define DEFUN_3(a,b,c) DEFUN_2(a,b), Lisp_Object c
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3493 #define DEFUN_4(a,b,c,d) DEFUN_3(a,b,c), Lisp_Object d
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3494 #define DEFUN_5(a,b,c,d,e) DEFUN_4(a,b,c,d), Lisp_Object e
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3495 #define DEFUN_6(a,b,c,d,e,f) DEFUN_5(a,b,c,d,e), Lisp_Object f
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3496 #define DEFUN_7(a,b,c,d,e,f,g) DEFUN_6(a,b,c,d,e,f), Lisp_Object g
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3497 #define DEFUN_8(a,b,c,d,e,f,g,h) DEFUN_7(a,b,c,d,e,f,g),Lisp_Object h
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3498
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3499 /* WARNING: If you add defines here for higher values of max_args,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3500 make sure to also fix the clauses in PRIMITIVE_FUNCALL(),
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3501 and change the define of SUBR_MAX_ARGS above. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3502
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3503 #include "symeval.h"
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3504
1743 543769b89fed [xemacs-hg @ 2003-10-14 05:02:57 by james] james parents: 1726 diff changeset	3505 BEGIN_C_DECLS
1650 34abfb24e891 [xemacs-hg @ 2003-08-28 15:44:04 by james] james parents: 1632 diff changeset	3506
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3507 /* `specpdl' is the special binding/unwind-protect stack.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3508
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3509 Knuth says (see the Jargon File):
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3510 At MIT, `pdl' [abbreviation for `Push Down List'] used to
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3511 be a more common synonym for `stack'.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3512 Everywhere else `stack' seems to be the preferred term.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3513
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3514 specpdl_depth is the current depth of `specpdl'.
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	3515 Save this for use later as arg to `unbind_to_1'. */
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	3516 extern MODULE_API int specpdl_depth_counter;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3517 #define specpdl_depth() specpdl_depth_counter
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3518
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	3519
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	3520 #define CHECK_FUNCTION(fun) do { \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	3521 while (NILP (Ffunctionp (fun))) \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	3522 signal_invalid_function_error (fun); \
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	3523 } while (0)
5084 6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3524
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3525 /************************************************************************/
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3526 /* Parsing keyword arguments */
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3527 /************************************************************************/
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3528
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3529 /* The C subr must have been declared with MANY as its max args, and this
5277 d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3530 PARSE_KEYWORDS call must come before any statements. Equivalently, it
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3531 can appear within braces.
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3532
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3533 FUNCTION is the C name of the current DEFUN. If there is no current
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3534 DEFUN, use the PARSE_KEYWORDS_8 macro, not PARSE_KEYWORDS. If the
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3535 current DEFUN has optional arguments that are not keywords, you also need
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3536 to use the PARSE_KEYWORDS_8 macro. This is also the case if there are
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3537 optional arguments that come before the keywords, as Common Lisp
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3538 specifies for #'parse-integer.
5084 6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3539
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3540 NARGS is the count of arguments supplied to FUNCTION.
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3541
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3542 ARGS is a pointer to the argument vector (not a Lisp vector) supplied to
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3543 FUNCTION.
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3544
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3545 KEYWORD_COUNT is the number of keywords FUNCTION is normally prepared to
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3546 handle.
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3547
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3548 KEYWORDS is a parenthesised list of those keywords, without the initial
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3549 Q_.
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3550
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3551 KEYWORD_DEFAULTS allows you to set non-nil defaults. Put (keywordname =
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3552 initial_value) in this parameter, a collection of C statements surrounded
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3553 by parentheses and separated by the comma operator. If you don't need
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3554 this, supply NULL as KEYWORD_DEFAULTS.
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3555
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3556 For keywords which appear multiple times in the called argument list, the
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3557 leftmost one overrides, as specified in section 7.1.1 of the CLHS.
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3558
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3559 If you want to check whether a given keyword argument was set (as in the
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3560 SVAR argument to defun*), supply Qunbound as its default in
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3561 KEYWORD_DEFAULTS, and examine it once PARSE_KEYWORDS is done. Lisp code
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3562 cannot supply Qunbound as an argument, so if it is still Qunbound, it was
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3563 not set.
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3564
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3565 There is no elegant way with this macro to have one name for the keyword
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3566 and an unrelated name for the local variable, as is possible with the
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3567 ((:keyword unrelated-var)) syntax in defun* and in Common Lisp. That
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3568 shouldn't matter in practice. */
5277 d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3569 #if defined (DEBUG_XEMACS) && defined (__STDC_VERSION__) && \
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3570 __STDC_VERSION__ >= 199901L
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3571
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3572 /* This version has the advantage that DEFUN without DEFSUBR still provokes
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3573 a defined but not used warning, and it provokes an assertion failure at
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3574 runtime if someone has copied and pasted the PARSE_KEYWORDS macro from
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3575 another function without changing FUNCTION; that would lead to an
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3576 incorrect determination of KEYWORDS_OFFSET. */
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3577
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3578 #define PARSE_KEYWORDS(function, nargs, args, keyword_count, keywords, \
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3579 keyword_defaults) \
5280 59a6419f7504 Use GET_DEFUN_LISP_OBJECT() in PARSE_KEYWORDS(), fix former under NEW_GC. Aidan Kehoe <kehoea@parhasard.net> parents: 5279 diff changeset	3580 PARSE_KEYWORDS_8 (intern_massaging_name (1 + #function), nargs, args, \
59a6419f7504 Use GET_DEFUN_LISP_OBJECT() in PARSE_KEYWORDS(), fix former under NEW_GC. Aidan Kehoe <kehoea@parhasard.net> parents: 5279 diff changeset	3581 keyword_count, keywords, keyword_defaults, \
59a6419f7504 Use GET_DEFUN_LISP_OBJECT() in PARSE_KEYWORDS(), fix former under NEW_GC. Aidan Kehoe <kehoea@parhasard.net> parents: 5279 diff changeset	3582 /* Can't XSUBR (Fsymbol_function (...))->min_args, \
59a6419f7504 Use GET_DEFUN_LISP_OBJECT() in PARSE_KEYWORDS(), fix former under NEW_GC. Aidan Kehoe <kehoea@parhasard.net> parents: 5279 diff changeset	3583 the function may be advised. */ \
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	3584 XFIXNUM (Ffunction_min_args \
5280 59a6419f7504 Use GET_DEFUN_LISP_OBJECT() in PARSE_KEYWORDS(), fix former under NEW_GC. Aidan Kehoe <kehoea@parhasard.net> parents: 5279 diff changeset	3585 (intern_massaging_name (1 + #function))), \
59a6419f7504 Use GET_DEFUN_LISP_OBJECT() in PARSE_KEYWORDS(), fix former under NEW_GC. Aidan Kehoe <kehoea@parhasard.net> parents: 5279 diff changeset	3586 0); \
59a6419f7504 Use GET_DEFUN_LISP_OBJECT() in PARSE_KEYWORDS(), fix former under NEW_GC. Aidan Kehoe <kehoea@parhasard.net> parents: 5279 diff changeset	3587 assert (0 == strcmp (__func__, #function))
5279 d0bc331e433f Turns out #elsif is not valid preprocessor syntax, who knew! Aidan Kehoe <kehoea@parhasard.net> parents: 5278 diff changeset	3588 #else /* defined (DEBUG_XEMACS) && ... */
5278 d9e65b48e2bf Correct the NEW_GC non-DEBUG_XEMACS version of PARSE_KEYWORDS(). Aidan Kehoe <kehoea@parhasard.net> parents: 5277 diff changeset	3589 #define PARSE_KEYWORDS(function, nargs, args, keyword_count, keywords, \
d9e65b48e2bf Correct the NEW_GC non-DEBUG_XEMACS version of PARSE_KEYWORDS(). Aidan Kehoe <kehoea@parhasard.net> parents: 5277 diff changeset	3590 keyword_defaults) \
5280 59a6419f7504 Use GET_DEFUN_LISP_OBJECT() in PARSE_KEYWORDS(), fix former under NEW_GC. Aidan Kehoe <kehoea@parhasard.net> parents: 5279 diff changeset	3591 PARSE_KEYWORDS_8 (intern (subr_name (XSUBR \
59a6419f7504 Use GET_DEFUN_LISP_OBJECT() in PARSE_KEYWORDS(), fix former under NEW_GC. Aidan Kehoe <kehoea@parhasard.net> parents: 5279 diff changeset	3592 (GET_DEFUN_LISP_OBJECT (function)))), \
59a6419f7504 Use GET_DEFUN_LISP_OBJECT() in PARSE_KEYWORDS(), fix former under NEW_GC. Aidan Kehoe <kehoea@parhasard.net> parents: 5279 diff changeset	3593 nargs, args, keyword_count, keywords, \
59a6419f7504 Use GET_DEFUN_LISP_OBJECT() in PARSE_KEYWORDS(), fix former under NEW_GC. Aidan Kehoe <kehoea@parhasard.net> parents: 5279 diff changeset	3594 keyword_defaults, \
59a6419f7504 Use GET_DEFUN_LISP_OBJECT() in PARSE_KEYWORDS(), fix former under NEW_GC. Aidan Kehoe <kehoea@parhasard.net> parents: 5279 diff changeset	3595 XSUBR (GET_DEFUN_LISP_OBJECT (function))->min_args, \
59a6419f7504 Use GET_DEFUN_LISP_OBJECT() in PARSE_KEYWORDS(), fix former under NEW_GC. Aidan Kehoe <kehoea@parhasard.net> parents: 5279 diff changeset	3596 0)
5279 d0bc331e433f Turns out #elsif is not valid preprocessor syntax, who knew! Aidan Kehoe <kehoea@parhasard.net> parents: 5278 diff changeset	3597 #endif /* defined (DEBUG_XEMACS) && defined (__STDC_VERSION__) ... */
5277 d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3598
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3599 /* PARSE_KEYWORDS_8 is a more fine-grained version of PARSE_KEYWORDS. The
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3600 differences are as follows:
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3601
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3602 FUNC_SYM is a symbol reflecting the name of the function for which
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3603 keywords are being parsed. In PARSE_KEYWORDS, it is the Lisp-visible
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3604 name of C_FUNC, interned as a symbol in obarray.
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3605
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3606 KEYWORDS_OFFSET is the offset into ARGS where the keyword arguments
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3607 start. In PARSE_KEYWORDS, this is the index of the first optional
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3608 argument, determined from the information known about C_FUNC.
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3609
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3610 ALLOW_OTHER_KEYS corresponds to the &allow-other-keys argument list entry
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3611 in defun*; it is 1 if other keys are normally allowed, 0 otherwise. This
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3612 may be overridden in the caller by specifying :allow-other-keys t in the
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3613 argument list. In PARSE_KEYWORDS, ALLOW_OTHER_KEYS is always 0. */
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3614
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3615 #define PARSE_KEYWORDS_8(func_sym, nargs, args, \
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3616 keyword_count, keywords, keyword_defaults, \
d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3617 keywords_offset, allow_other_keys) \
5084 6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3618 DECLARE_N_KEYWORDS_##keyword_count keywords; \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3619 \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3620 do \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3621 { \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3622 Lisp_Object pk_key, pk_value; \
5277 d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3623 Elemcount pk_i = nargs - 1, pk_offset = keywords_offset; \
5084 6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3624 Boolint pk_allow_other_keys = allow_other_keys; \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3625 \
5277 d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3626 if ((nargs - pk_offset) & 1) \
5084 6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3627 { \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3628 if (!allow_other_keys \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3629 && !(pk_allow_other_keys \
5277 d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3630 = non_nil_allow_other_keys_p (pk_offset, \
5084 6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3631 nargs, args))) \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3632 { \
5277 d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3633 signal_wrong_number_of_arguments_error (func_sym, nargs); \
5084 6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3634 } \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3635 else \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3636 { \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3637 /* Ignore the trailing arg; so below always sees an even \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3638 number of arguments. */ \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3639 pk_i -= 1; \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3640 } \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3641 } \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3642 \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3643 (void)(keyword_defaults); \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3644 \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3645 /* Start from the end, because the leftmost element overrides. */ \
5277 d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3646 while (pk_i > pk_offset) \
5084 6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3647 { \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3648 pk_value = args[pk_i--]; \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3649 pk_key = args[pk_i--]; \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3650 \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3651 if (0) {} \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3652 CHECK_N_KEYWORDS_##keyword_count keywords \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3653 else if (allow_other_keys \|\| pk_allow_other_keys) \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3654 { \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3655 continue; \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3656 } \
5241 d579d76f3dcc Be more careful about side-effects from Lisp code, #'reduce Aidan Kehoe <kehoea@parhasard.net> parents: 5214 diff changeset	3657 else if ((pk_allow_other_keys \
5277 d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3658 = non_nil_allow_other_keys_p (pk_offset, \
5241 d579d76f3dcc Be more careful about side-effects from Lisp code, #'reduce Aidan Kehoe <kehoea@parhasard.net> parents: 5214 diff changeset	3659 nargs, args))) \
d579d76f3dcc Be more careful about side-effects from Lisp code, #'reduce Aidan Kehoe <kehoea@parhasard.net> parents: 5214 diff changeset	3660 { \
d579d76f3dcc Be more careful about side-effects from Lisp code, #'reduce Aidan Kehoe <kehoea@parhasard.net> parents: 5214 diff changeset	3661 continue; \
d579d76f3dcc Be more careful about side-effects from Lisp code, #'reduce Aidan Kehoe <kehoea@parhasard.net> parents: 5214 diff changeset	3662 } \
d579d76f3dcc Be more careful about side-effects from Lisp code, #'reduce Aidan Kehoe <kehoea@parhasard.net> parents: 5214 diff changeset	3663 else if (EQ (pk_key, Q_allow_other_keys) && \
d579d76f3dcc Be more careful about side-effects from Lisp code, #'reduce Aidan Kehoe <kehoea@parhasard.net> parents: 5214 diff changeset	3664 NILP (pk_value)) \
d579d76f3dcc Be more careful about side-effects from Lisp code, #'reduce Aidan Kehoe <kehoea@parhasard.net> parents: 5214 diff changeset	3665 { \
d579d76f3dcc Be more careful about side-effects from Lisp code, #'reduce Aidan Kehoe <kehoea@parhasard.net> parents: 5214 diff changeset	3666 continue; \
d579d76f3dcc Be more careful about side-effects from Lisp code, #'reduce Aidan Kehoe <kehoea@parhasard.net> parents: 5214 diff changeset	3667 } \
d579d76f3dcc Be more careful about side-effects from Lisp code, #'reduce Aidan Kehoe <kehoea@parhasard.net> parents: 5214 diff changeset	3668 else \
5084 6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3669 { \
5277 d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	3670 invalid_keyword_argument (func_sym, pk_key); \
5084 6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3671 } \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3672 } \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3673 } while (0)
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3674
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3675 #define DECLARE_N_KEYWORDS_1(a) \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3676 Lisp_Object a = Qnil
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3677 #define DECLARE_N_KEYWORDS_2(a,b) \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3678 DECLARE_N_KEYWORDS_1(a), b = Qnil
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3679 #define DECLARE_N_KEYWORDS_3(a,b,c) \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3680 DECLARE_N_KEYWORDS_2(a,b), c = Qnil
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3681 #define DECLARE_N_KEYWORDS_4(a,b,c,d) \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3682 DECLARE_N_KEYWORDS_3(a,b,c), d = Qnil
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3683 #define DECLARE_N_KEYWORDS_5(a,b,c,d,e) \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3684 DECLARE_N_KEYWORDS_4(a,b,c,d), e = Qnil
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3685 #define DECLARE_N_KEYWORDS_6(a,b,c,d,e,f) \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3686 DECLARE_N_KEYWORDS_5(a,b,c,d,e), f = Qnil
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3687 #define DECLARE_N_KEYWORDS_7(a,b,c,d,e,f,g) \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3688 DECLARE_N_KEYWORDS_6(a,b,c,d,e,f), g = Qnil
5322 df125a42c50c Support up to nine keywords in the PARSE_KEYWORDS() macro. Aidan Kehoe <kehoea@parhasard.net> parents: 5320 diff changeset	3689 #define DECLARE_N_KEYWORDS_8(a,b,c,d,e,f,g,h) \
df125a42c50c Support up to nine keywords in the PARSE_KEYWORDS() macro. Aidan Kehoe <kehoea@parhasard.net> parents: 5320 diff changeset	3690 DECLARE_N_KEYWORDS_7(a,b,c,d,e,f,g), h = Qnil
df125a42c50c Support up to nine keywords in the PARSE_KEYWORDS() macro. Aidan Kehoe <kehoea@parhasard.net> parents: 5320 diff changeset	3691 #define DECLARE_N_KEYWORDS_9(a,b,c,d,e,f,g,h,i) \
df125a42c50c Support up to nine keywords in the PARSE_KEYWORDS() macro. Aidan Kehoe <kehoea@parhasard.net> parents: 5320 diff changeset	3692 DECLARE_N_KEYWORDS_8(a,b,c,d,e,f,g,h), i = Qnil
5084 6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3693
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3694 #define CHECK_N_KEYWORDS_1(a) \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3695 else if (EQ (pk_key, Q_##a)) { a = pk_value; }
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3696 #define CHECK_N_KEYWORDS_2(a,b) CHECK_N_KEYWORDS_1(a) \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3697 else if (EQ (pk_key, Q_##b)) { b = pk_value; }
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3698 #define CHECK_N_KEYWORDS_3(a,b,c) CHECK_N_KEYWORDS_2(a,b) \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3699 else if (EQ (pk_key, Q_##c)) { c = pk_value; }
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3700 #define CHECK_N_KEYWORDS_4(a,b,c,d) CHECK_N_KEYWORDS_3(a,b,c) \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3701 else if (EQ (pk_key, Q_##d)) { d = pk_value; }
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3702 #define CHECK_N_KEYWORDS_5(a,b,c,d,e) CHECK_N_KEYWORDS_4(a,b,c,d) \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3703 else if (EQ (pk_key, Q_##e)) { e = pk_value; }
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3704 #define CHECK_N_KEYWORDS_6(a,b,c,d,e,f) CHECK_N_KEYWORDS_5(a,b,c,d,e) \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3705 else if (EQ (pk_key, Q_##f)) { f = pk_value; }
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3706 #define CHECK_N_KEYWORDS_7(a,b,c,d,e,f,g) CHECK_N_KEYWORDS_6(a,b,c,d,e,f) \
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3707 else if (EQ (pk_key, Q_##g)) { g = pk_value; }
5322 df125a42c50c Support up to nine keywords in the PARSE_KEYWORDS() macro. Aidan Kehoe <kehoea@parhasard.net> parents: 5320 diff changeset	3708 #define CHECK_N_KEYWORDS_8(a,b,c,d,e,f,g,h) \
df125a42c50c Support up to nine keywords in the PARSE_KEYWORDS() macro. Aidan Kehoe <kehoea@parhasard.net> parents: 5320 diff changeset	3709 CHECK_N_KEYWORDS_7(a,b,c,d,e,f,g) \
df125a42c50c Support up to nine keywords in the PARSE_KEYWORDS() macro. Aidan Kehoe <kehoea@parhasard.net> parents: 5320 diff changeset	3710 else if (EQ (pk_key, Q_##h)) { h = pk_value; }
df125a42c50c Support up to nine keywords in the PARSE_KEYWORDS() macro. Aidan Kehoe <kehoea@parhasard.net> parents: 5320 diff changeset	3711 #define CHECK_N_KEYWORDS_9(a,b,c,d,e,f,g,h,i) \
df125a42c50c Support up to nine keywords in the PARSE_KEYWORDS() macro. Aidan Kehoe <kehoea@parhasard.net> parents: 5320 diff changeset	3712 CHECK_N_KEYWORDS_8(a,b,c,d,e,f,g,h) \
df125a42c50c Support up to nine keywords in the PARSE_KEYWORDS() macro. Aidan Kehoe <kehoea@parhasard.net> parents: 5320 diff changeset	3713 else if (EQ (pk_key, Q_##i)) { i = pk_value; }
5084 6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3714
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3715 Boolint non_nil_allow_other_keys_p (Elemcount offset, int nargs,
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	3716 Lisp_Object *args);
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	3717
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3718
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3719 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3720 /* Checking for QUIT */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3721 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3722
1123 37bdd24225ef [xemacs-hg @ 2002-11-27 07:15:02 by ben] ben parents: 1111 diff changeset	3723 /* NOTE NOTE NOTE: Invoking QUIT can cause random Lisp code to be executed!
37bdd24225ef [xemacs-hg @ 2002-11-27 07:15:02 by ben] ben parents: 1111 diff changeset	3724 This can happen in numerous ways. For example, on many platforms, QUIT
37bdd24225ef [xemacs-hg @ 2002-11-27 07:15:02 by ben] ben parents: 1111 diff changeset	3725 needs to drain the event queue to see whether there's a C-g in the works.
37bdd24225ef [xemacs-hg @ 2002-11-27 07:15:02 by ben] ben parents: 1111 diff changeset	3726 A side effect of this is that, if there's a menu-press event, menu filters
37bdd24225ef [xemacs-hg @ 2002-11-27 07:15:02 by ben] ben parents: 1111 diff changeset	3727 (i.e. Lisp code) will be invoked. Lisp code could also happen if there's
37bdd24225ef [xemacs-hg @ 2002-11-27 07:15:02 by ben] ben parents: 1111 diff changeset	3728 an asynchronous timeout, or if the debugger is invoked as a result of
37bdd24225ef [xemacs-hg @ 2002-11-27 07:15:02 by ben] ben parents: 1111 diff changeset	3729 debug-on-quit and the user returns by hitting `r', etc. etc.
37bdd24225ef [xemacs-hg @ 2002-11-27 07:15:02 by ben] ben parents: 1111 diff changeset	3730
37bdd24225ef [xemacs-hg @ 2002-11-27 07:15:02 by ben] ben parents: 1111 diff changeset	3731 However, GC CANNOT HAPPEN. It is forbidden everywhere within the QUIT-
37bdd24225ef [xemacs-hg @ 2002-11-27 07:15:02 by ben] ben parents: 1111 diff changeset	3732 processing code, because most callers cannot tolerate GC during QUIT
37bdd24225ef [xemacs-hg @ 2002-11-27 07:15:02 by ben] ben parents: 1111 diff changeset	3733 since it's just too prevalent. */
37bdd24225ef [xemacs-hg @ 2002-11-27 07:15:02 by ben] ben parents: 1111 diff changeset	3734
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	3735 /* The exact workings of this mechanism are described in detail in signal.c. */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	3736
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3737 /* Asynchronous events set something_happened, and then are processed
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3738 within the QUIT macro. At this point, we are guaranteed to not be in
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3739 any sensitive code. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3740
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	3741 extern MODULE_API volatile int something_happened;
64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	3742 extern MODULE_API int dont_check_for_quit;
64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	3743 MODULE_API void check_what_happened (void);
64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	3744
64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	3745 extern MODULE_API volatile int quit_check_signal_happened;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3746 extern volatile int quit_check_signal_tick_count;
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	3747 MODULE_API void check_quit (void);
64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	3748
64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	3749 MODULE_API void signal_quit (void);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3750
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	3751 int begin_dont_check_for_quit (void);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	3752 int begin_do_check_for_quit (void);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	3753
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	3754 /* Nonzero if the values of `quit-flag' and `inhibit-quit' indicate
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	3755 that a quit should be signalled. */
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	3756 #define QUIT_FLAG_SAYS_SHOULD_QUIT \
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	3757 (!NILP (Vquit_flag) && \
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	3758 (NILP (Vinhibit_quit) \
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	3759 \|\| (EQ (Vquit_flag, Qcritical) && !dont_check_for_quit)))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	3760
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	3761 /* Nonzero if ought to quit now. This is the "efficient" version, which
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	3762 respects the flags set to indicate whether the full quit check should
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	3763 be done. Therefore it may be inaccurate (i.e. lagging reality), esp.
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	3764 when poll for quit is used.
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	3765
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	3766 This is defined for code that wants to allow quitting, but needs to
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	3767 do some cleanup if that happens. (You could always register the cleanup
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	3768 code using record_unwind_protect(), but sometimes it makes more sense
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	3769 to do it using QUITP.) To use this macro, just call it at the
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	3770 appropriate time, and if its value is non-zero, do your cleanup code
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	3771 and then call QUIT.
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	3772
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	3773 A different version (below) is used for the actual QUIT macro. */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3774 #define QUITP \
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	3775 ((quit_check_signal_happened ? check_quit () : (void) 0), \
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	3776 QUIT_FLAG_SAYS_SHOULD_QUIT)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3777
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	3778 /* This is the version actually called by QUIT. The difference
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	3779 between it and QUITP is that it also has side effects in that it
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	3780 will handle anything else that has recently signalled itself
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	3781 asynchronously and wants to be handled now. Currently this
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	3782 includes executing asynchronous timeouts that may have been set
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	3783 from Lisp or from the poll-for-quit or poll-for-sigchld
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	3784 timers. (#### It seems that, to be slightly more accurate, we
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	3785 should also process poll-for-quit timers in the above version.
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	3786 However, this mechanism is inherently approximate, so it really
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	3787 doesn't matter much.) In the future, it might also include doing a
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	3788 thread context switch. Callers of QUITP generally don't except
1123 37bdd24225ef [xemacs-hg @ 2002-11-27 07:15:02 by ben] ben parents: 1111 diff changeset	3789 random side effects to happen (#### unfortunately, random side effects
37bdd24225ef [xemacs-hg @ 2002-11-27 07:15:02 by ben] ben parents: 1111 diff changeset	3790 can happen anyway, e.g. through menu filters -- see comment above),
37bdd24225ef [xemacs-hg @ 2002-11-27 07:15:02 by ben] ben parents: 1111 diff changeset	3791 so we have this different version. */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3792 #define INTERNAL_QUITP \
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	3793 ((something_happened ? check_what_happened () : (void) 0), \
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	3794 QUIT_FLAG_SAYS_SHOULD_QUIT)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3795
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3796 /* Check quit-flag and quit if it is non-nil. Also do any other things
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	3797 that are triggered by asynchronous events and might want to be
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	3798 handled. */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3799 #define QUIT do { if (INTERNAL_QUITP) signal_quit (); } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3800
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3801
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3802 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3803 /* hashing */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3804 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3805
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3806 /* #### for a 64-bit machine, we should substitute a prime just over 2^32 */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3807 #define GOOD_HASH 65599 /* prime number just over 2^16; Dragon book, p. 435 */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3808 #define HASH2(a,b) (GOOD_HASH * (a) + (b))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3809 #define HASH3(a,b,c) (GOOD_HASH * HASH2 (a,b) + (c))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3810 #define HASH4(a,b,c,d) (GOOD_HASH * HASH3 (a,b,c) + (d))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3811 #define HASH5(a,b,c,d,e) (GOOD_HASH * HASH4 (a,b,c,d) + (e))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3812 #define HASH6(a,b,c,d,e,f) (GOOD_HASH * HASH5 (a,b,c,d,e) + (f))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3813 #define HASH7(a,b,c,d,e,f,g) (GOOD_HASH * HASH6 (a,b,c,d,e,f) + (g))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3814 #define HASH8(a,b,c,d,e,f,g,h) (GOOD_HASH * HASH7 (a,b,c,d,e,f,g) + (h))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3815 #define HASH9(a,b,c,d,e,f,g,h,i) (GOOD_HASH * HASH8 (a,b,c,d,e,f,g,h) + (i))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3816
5013 ae48681c47fa changes to VOID_TO_LISP et al. Ben Wing <ben@xemacs.org> parents: 5001 diff changeset	3817 #define LISP_HASH(obj) ((unsigned long) STORE_LISP_IN_VOID (obj))
2516 b87570db038f [xemacs-hg @ 2005-01-26 10:25:03 by ben] ben parents: 2500 diff changeset	3818 Hashcode memory_hash (const void *xv, Bytecount size);
5191 71ee43b8a74d Add #'equalp as a hash test by default; add #'define-hash-table-test, GNU API Aidan Kehoe <kehoea@parhasard.net> parents: 5190 diff changeset	3819 Hashcode internal_hash (Lisp_Object obj, int depth, Boolint equalp);
71ee43b8a74d Add #'equalp as a hash test by default; add #'define-hash-table-test, GNU API Aidan Kehoe <kehoea@parhasard.net> parents: 5190 diff changeset	3820 Hashcode internal_array_hash (Lisp_Object *arr, int size, int depth,
71ee43b8a74d Add #'equalp as a hash test by default; add #'define-hash-table-test, GNU API Aidan Kehoe <kehoea@parhasard.net> parents: 5190 diff changeset	3821 Boolint equalp);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3822
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3823
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3824 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3825 /* String translation */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3826 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3827
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	3828 /* When support for message translation exists, GETTEXT() translates a
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	3829 string from English into the language defined by
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	3830 `current-language-environment'. This is done by looking the string
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	3831 up in a large predefined table; if no translation is found, the
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	3832 original string is returned, and the failure is possibly logged so
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	3833 that the translation can later be entered into the table.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	3834
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	3835 In addition to this, there is a mechanism to snarf message strings
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	3836 out of the source code so that they can be entered into the tables.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	3837 This is what make-msgfile.lex does.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	3838
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	3839 Handling `format' strings is more difficult: The format string
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	3840 should get translated, but not under all circumstances. When the
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	3841 format string is a Lisp string, what should happen is that
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	3842 Fformat() should format the untranslated args[0] and return that,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	3843 and also call Fgettext() on args[0] and, if that is different,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	3844 format it and store it in the `string-translatable' property of the
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	3845 returned string. See Fgettext().
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	3846
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3847 The variations IGETTEXT, CIGETTEXT and ASCGETTEXT operate on
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3848 Ibyte , CIbyte , and Ascbyte * strings, respectively. The
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3849 ASCGETTEXT version has an assert check to verify that its string
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3850 really is pure-ASCII. Plain GETTEXT is defined as ASCGETTEXT, and
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3851 so works the same way. (There are no versions that work for Extbyte *.
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3852 Translate to internal format before working on it.)
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3853
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3854 There are similar functions for building a Lisp string from a C
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3855 string and translating in the process. They again come in three
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3856 variants: build_msg_istring(), build_msg_cistring(), and
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3857 build_msg_ascstring(). Again, build_msg_ascstring() asserts that
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3858 its text is pure-ASCII, and build_msg_string() is the same as
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3859 build_msg_ascstring().
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	3860 */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	3861
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3862 /* Return value NOT Ascbyte, because the result in general will have been
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3863 translated into a foreign language. */
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3864 DECLARE_INLINE_HEADER (const CIbyte ASCGETTEXT (const Ascbyte s))
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3865 {
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3866 ASSERT_ASCTEXT_ASCII (s);
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3867 return s;
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3868 }
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3869
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3870 DECLARE_INLINE_HEADER (const Ibyte IGETTEXT (const Ibyte s))
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3871 {
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3872 return s;
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3873 }
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3874
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3875 DECLARE_INLINE_HEADER (const CIbyte CIGETTEXT (const CIbyte s))
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3876 {
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3877 return s;
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3878 }
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3879
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3880 DECLARE_INLINE_HEADER (Lisp_Object LISP_GETTEXT (Lisp_Object s))
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3881 {
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3882 return s;
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3883 }
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3884
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3885 #define GETTEXT ASCGETTEXT
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3886
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3887 MODULE_API Lisp_Object build_msg_istring (const Ibyte *);
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3888 MODULE_API Lisp_Object build_msg_cistring (const CIbyte *);
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3889 MODULE_API Lisp_Object build_msg_ascstring (const Ascbyte *);
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3890 #define build_msg_string build_msg_ascstring
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3891
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3892
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3893 /* DEFER_GETTEXT() and variants are used to identify strings which are not
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3894 meant to be translated immediately, but instead at some later time.
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3895 This is used in strings that are stored somewhere at dump or
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3896 initialization time, at a time when the current language environment is
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3897 not set. It is the duty of the user of the string to call GETTEXT or
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3898 some variant at the appropriate time. DEFER_GETTTEXT() serves only as a
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3899 marker that the string is translatable, and will as a result be snarfed
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3900 during message snarfing (see above).
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3901
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3902 build_defer_string() and variants are the deferred equivalents of
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3903 build_msg_string() and variants. Similarly to DEFER_GETTEXT(), they
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3904 don't actually do any translation, but serve as place markers for
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3905 message snarfing. However, they may do something more than just build
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3906 a Lisp string -- in particular, they may store a string property
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3907 indicating that the string is translatable (see discussion above about
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3908 this property).
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3909 */
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3910
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3911 DECLARE_INLINE_HEADER (const Ascbyte DEFER_ASCGETTEXT (const Ascbyte s))
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3912 {
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3913 ASSERT_ASCTEXT_ASCII (s);
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3914 return s;
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3915 }
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3916
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3917 DECLARE_INLINE_HEADER (const Ibyte DEFER_IGETTEXT (const Ibyte s))
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3918 {
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3919 return s;
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3920 }
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3921
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3922 DECLARE_INLINE_HEADER (const CIbyte DEFER_CIGETTEXT (const CIbyte s))
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3923 {
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3924 return s;
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3925 }
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3926
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3927 #define DEFER_GETTEXT DEFER_ASCGETTEXT
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3928
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3929 MODULE_API Lisp_Object build_defer_istring (const Ibyte *);
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3930 MODULE_API Lisp_Object build_defer_cistring (const CIbyte *);
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3931 MODULE_API Lisp_Object build_defer_ascstring (const Ascbyte *);
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3932
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3933 #define build_defer_string build_defer_ascstring
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3934
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3935
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3936 void write_msg_istring (Lisp_Object stream, const Ibyte *str);
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3937 void write_msg_cistring (Lisp_Object stream, const CIbyte *str);
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3938 void write_msg_ascstring (Lisp_Object stream, const Ascbyte *str);
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3939
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	3940 #define write_msg_string write_msg_ascstring
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3941
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3942
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3943 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3944 /* Garbage collection / GC-protection */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3945 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3946
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3947 /* Structure for recording stack slots that need marking */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3948
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3949 /* This is a chain of structures, each of which points at a Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3950 variable whose value should be marked in garbage collection.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3951 Normally every link of the chain is an automatic variable of a function,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3952 and its `val' points to some argument or local variable of the function.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3953 On exit to the function, the chain is set back to the value it had on
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3954 entry. This way, no link remains in the chain when the stack frame
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3955 containing the link disappears.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3956
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3957 Every function that can call Feval must protect in this fashion all
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3958 Lisp_Object variables whose contents will be used again. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3959
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	3960 extern MODULE_API struct gcpro *gcprolist;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3961
1743 543769b89fed [xemacs-hg @ 2003-10-14 05:02:57 by james] james parents: 1726 diff changeset	3962 END_C_DECLS
1650 34abfb24e891 [xemacs-hg @ 2003-08-28 15:44:04 by james] james parents: 1632 diff changeset	3963
1204 e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	3964 /* #### Catching insufficient gcpro:
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	3965
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	3966 The C++ code below catches GCPRO without UNGCPRO or vice-versa.
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	3967 Catching cases where there's no GCPRO or UNGCPRO but should be, however,
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	3968 is much harder, but could be done:
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	3969
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	3970 1. Lisp_Object becomes a real object. Its creator and destructor need to
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	3971 figure out whether the object is on the stack (by looking at the range
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	3972 that `this' is within), and if so, add the pointer to a list of all
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	3973 stack-based Lisp_Objects.
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	3974
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	3975 2. The assignment method needs to do reference-counting on actual Lisp
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	3976 objects -- in particular, we need to know if there are any references
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	3977 to a Lisp object that are NOT from stack-based Lisp_Objects.
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	3978
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	3979 3. When we get to a point in the code where we might garbage collect --
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	3980 i.e. Ffuncall(), Feval(), or Fgarbage_collect() is called -- we look
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	3981 at our list of stack-based Lisp_Objects, and if there are any that
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	3982 point to Lisp objects with no non-stack references, see if there are
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	3983 any gcpros pointing to the object, and if not, set a flag indicating
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	3984 that the object is "destroyed". (Don't abort yet because the function
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	3985 might not use the object any more.)
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	3986
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	3987 4. When we detag a pointer using XFOO(), abort if its "destroyed" flag
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	3988 is set.
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	3989
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	3990 --ben
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	3991 */
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	3992
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3993 struct gcpro
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3994 {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3995 struct gcpro *next;
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	3996 const Lisp_Object var; / Address of first protected variable */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3997 int nvars; /* Number of consecutive protected variables */
1204 e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	3998 #if defined (__cplusplus) && defined (ERROR_CHECK_GC)
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	3999 /* Try to catch GCPRO without UNGCPRO, or vice-versa. G++ complains (at
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4000 least with sufficient numbers of warnings enabled, i.e. -Weffc++) if a
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4001 copy constructor or assignment operator is not defined. */
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4002 gcpro () : next (0), var (0), nvars (0) { }
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4003 gcpro (const gcpro& g) : next (g.next), var (g.var), nvars (g.nvars) { }
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4004 gcpro& operator= (const gcpro& g) { next = g.next; var = g.var;
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4005 nvars = g.nvars;
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4006 return *this;}
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4007 ~gcpro () { assert (!next); }
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4008 #endif /* defined (__cplusplus) && defined (ERROR_CHECK_GC) */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4009 };
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4010
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4011 /* Normally, you declare variables gcpro1, gcpro2, ... and use the
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4012 GCPROn() macros. However, if you need to have nested gcpro's,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4013 declare ngcpro1, ngcpro2, ... and use NGCPROn(). If you need
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4014 to nest another level, use nngcpro1, nngcpro2, ... and use
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4015 NNGCPROn(). If you need to nest yet another level, create
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4016 the appropriate macros. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4017
1123 37bdd24225ef [xemacs-hg @ 2002-11-27 07:15:02 by ben] ben parents: 1111 diff changeset	4018 /* NOTE: About comments like "This function does not GC": These are there to
37bdd24225ef [xemacs-hg @ 2002-11-27 07:15:02 by ben] ben parents: 1111 diff changeset	4019 try to track whether GCPROing is necessary. Strictly speaking, some
37bdd24225ef [xemacs-hg @ 2002-11-27 07:15:02 by ben] ben parents: 1111 diff changeset	4020 functions that say this might actually GC, but only when it is never
37bdd24225ef [xemacs-hg @ 2002-11-27 07:15:02 by ben] ben parents: 1111 diff changeset	4021 possible to return (more specifically, in the process of signalling an
37bdd24225ef [xemacs-hg @ 2002-11-27 07:15:02 by ben] ben parents: 1111 diff changeset	4022 error, the debugger may be invoked, and could GC). For GCPRO purposes,
37bdd24225ef [xemacs-hg @ 2002-11-27 07:15:02 by ben] ben parents: 1111 diff changeset	4023 you only have to worry about functions that can GC and then return.
37bdd24225ef [xemacs-hg @ 2002-11-27 07:15:02 by ben] ben parents: 1111 diff changeset	4024 The QUIT macro cannot GC any more, although this wasn't true at some point,
37bdd24225ef [xemacs-hg @ 2002-11-27 07:15:02 by ben] ben parents: 1111 diff changeset	4025 and so some "This function can GC" comments may be inaccurate.
37bdd24225ef [xemacs-hg @ 2002-11-27 07:15:02 by ben] ben parents: 1111 diff changeset	4026 */
37bdd24225ef [xemacs-hg @ 2002-11-27 07:15:02 by ben] ben parents: 1111 diff changeset	4027
1743 543769b89fed [xemacs-hg @ 2003-10-14 05:02:57 by james] james parents: 1726 diff changeset	4028 BEGIN_C_DECLS
1650 34abfb24e891 [xemacs-hg @ 2003-08-28 15:44:04 by james] james parents: 1632 diff changeset	4029
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4030 #define XGCDECL1(x) struct gcpro x##cpro1
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4031 #define XGCDECL2(x) struct gcpro x##cpro1, x##cpro2
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4032 #define XGCDECL3(x) struct gcpro x##cpro1, x##cpro2, x##cpro3
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4033 #define XGCDECL4(x) struct gcpro x##cpro1, x##cpro2, x##cpro3, x##cpro4
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4034 #define XGCDECL5(x) struct gcpro x##cpro1, x##cpro2, x##cpro3, x##cpro4, x##cpro5
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4035
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4036 #ifdef DEBUG_GCPRO
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4037
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4038 MODULE_API void debug_gcpro1 (Ascbyte , int, struct gcpro , Lisp_Object *);
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4039 MODULE_API void debug_gcpro2 (Ascbyte , int, struct gcpro , struct gcpro *,
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4040 Lisp_Object , Lisp_Object );
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4041 MODULE_API void debug_gcpro3 (Ascbyte , int, struct gcpro , struct gcpro *,
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4042 struct gcpro , Lisp_Object , Lisp_Object *,
64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4043 Lisp_Object *);
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4044 MODULE_API void debug_gcpro4 (Ascbyte , int, struct gcpro , struct gcpro *,
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4045 struct gcpro , struct gcpro , Lisp_Object *,
64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4046 Lisp_Object , Lisp_Object , Lisp_Object *);
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4047 MODULE_API void debug_gcpro5 (Ascbyte , int, struct gcpro , struct gcpro *,
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4048 struct gcpro , struct gcpro , struct gcpro *,
64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4049 Lisp_Object , Lisp_Object , Lisp_Object *,
64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4050 Lisp_Object , Lisp_Object );
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4051 MODULE_API void debug_ungcpro(Ascbyte , int, struct gcpro );
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4052
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4053 #define XGCPRO1(x,v) \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4054 debug_gcpro1 (__FILE__, __LINE__,&x##cpro1,&v)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4055 #define XGCPRO2(x,v1,v2) \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4056 debug_gcpro2 (__FILE__, __LINE__,&x##cpro1,&x##cpro2,&v1,&v2)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4057 #define XGCPRO3(x,v1,v2,v3) \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4058 debug_gcpro3 (__FILE__, __LINE__,&x##cpro1,&x##cpro2,&x##cpro3, \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4059 &v1,&v2,&v3)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4060 #define XGCPRO4(x,v1,v2,v3,v4) \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4061 debug_gcpro4 (__FILE__, __LINE__,&x##cpro1,&x##cpro2,&x##cpro3, \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4062 &x##cpro4, \
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4063 &v1,&v2,&v3,&v4)
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4064 #define XGCPRO5(x,v1,v2,v3,v4,v5) \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4065 debug_gcpro5 (__FILE__, __LINE__,&x##cpro1,&x##cpro2,&x##cpro3, \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4066 &x##cpro4,&x##cpro5, \
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4067 &v1,&v2,&v3,&v4,&v5)
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4068 #define XUNGCPRO(x) \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4069 debug_ungcpro(__FILE__, __LINE__,&x##cpro1)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4070
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4071 #else /* ! DEBUG_GCPRO */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4072
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4073 #define XGCPRO1(x, var1) ((void) ( \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4074 x##cpro1.next = gcprolist, x##cpro1.var = &var1, x##cpro1.nvars = 1, \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4075 gcprolist = &x##cpro1 ))
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4076
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4077 #define XGCPRO2(x, var1, var2) ((void) ( \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4078 x##cpro1.next = gcprolist, x##cpro1.var = &var1, x##cpro1.nvars = 1, \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4079 x##cpro2.next = &x##cpro1, x##cpro2.var = &var2, x##cpro2.nvars = 1, \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4080 gcprolist = &x##cpro2 ))
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4081
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4082 #define XGCPRO3(x, var1, var2, var3) ((void) ( \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4083 x##cpro1.next = gcprolist, x##cpro1.var = &var1, x##cpro1.nvars = 1, \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4084 x##cpro2.next = &x##cpro1, x##cpro2.var = &var2, x##cpro2.nvars = 1, \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4085 x##cpro3.next = &x##cpro2, x##cpro3.var = &var3, x##cpro3.nvars = 1, \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4086 gcprolist = &x##cpro3 ))
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4087
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4088 #define XGCPRO4(x, var1, var2, var3, var4) ((void) ( \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4089 x##cpro1.next = gcprolist, x##cpro1.var = &var1, x##cpro1.nvars = 1, \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4090 x##cpro2.next = &x##cpro1, x##cpro2.var = &var2, x##cpro2.nvars = 1, \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4091 x##cpro3.next = &x##cpro2, x##cpro3.var = &var3, x##cpro3.nvars = 1, \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4092 x##cpro4.next = &x##cpro3, x##cpro4.var = &var4, x##cpro4.nvars = 1, \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4093 gcprolist = &x##cpro4 ))
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4094
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4095 #define XGCPRO5(x, var1, var2, var3, var4, var5) ((void) ( \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4096 x##cpro1.next = gcprolist, x##cpro1.var = &var1, x##cpro1.nvars = 1, \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4097 x##cpro2.next = &x##cpro1, x##cpro2.var = &var2, x##cpro2.nvars = 1, \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4098 x##cpro3.next = &x##cpro2, x##cpro3.var = &var3, x##cpro3.nvars = 1, \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4099 x##cpro4.next = &x##cpro3, x##cpro4.var = &var4, x##cpro4.nvars = 1, \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4100 x##cpro5.next = &x##cpro4, x##cpro5.var = &var5, x##cpro5.nvars = 1, \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4101 gcprolist = &x##cpro5 ))
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4102
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4103 #define XGCPRO1_ARRAY(x, array, n) ((void) ( \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4104 x##cpro1.next = gcprolist, x##cpro1.var = array, x##cpro1.nvars = n, \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4105 gcprolist = &x##cpro1 ))
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4106
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4107 #define XGCPRO2_ARRAY(x, array1, n1, array2, n2) ((void) ( \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4108 x##cpro1.next = gcprolist, x##cpro1.var = array1, x##cpro1.nvars = n1, \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4109 x##cpro2.next = &x##cpro1, x##cpro2.var = array2, x##cpro2.nvars = n2, \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4110 gcprolist = &x##cpro2 ))
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4111
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4112 #define XGCPRO3_ARRAY(x, array1, n1, array2, n2, array3, n3) ((void) ( \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4113 x##cpro1.next = gcprolist, x##cpro1.var = array1, x##cpro1.nvars = n1, \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4114 x##cpro2.next = &x##cpro1, x##cpro2.var = array2, x##cpro2.nvars = n2, \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4115 x##cpro3.next = &x##cpro2, x##cpro3.var = array3, x##cpro3.nvars = n3, \
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4116 gcprolist = &x##cpro3 ))
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4117
1204 e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4118 #if defined (__cplusplus) && defined (ERROR_CHECK_GC)
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4119 /* We need to reset each gcpro to avoid triggering the assert() in
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4120 ~gcpro(). This happens in UNGCPRO and longjmp(). */
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4121 #define UNWIND_GCPRO_TO(val) \
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4122 do \
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4123 { \
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4124 struct gcpro *__gcpro_stop = (val); \
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4125 /* Try to catch UNGCPRO without GCPRO. We arrange for there to be a \
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4126 sentinel at the end of the gcprolist, so it should never be NULL. */ \
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4127 assert (__gcpro_stop); \
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4128 while (gcprolist != __gcpro_stop) \
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4129 { \
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4130 struct gcpro *__gcpro_next = gcprolist->next; \
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4131 gcprolist->next = 0; \
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4132 gcprolist = __gcpro_next; \
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4133 assert (gcprolist); \
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4134 } \
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4135 } while (0)
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4136 #else
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4137 #define UNWIND_GCPRO_TO(val) (gcprolist = (val))
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4138 #endif /* defined (__cplusplus) && defined (ERROR_CHECK_GC) */
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4139
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4140 #define XUNGCPRO(x) UNWIND_GCPRO_TO (x##cpro1.next)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4141
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4142 #endif /* ! DEBUG_GCPRO */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4143
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4144 #define GCDECL1 XGCDECL1 (g)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4145 #define GCDECL2 XGCDECL2 (g)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4146 #define GCDECL3 XGCDECL3 (g)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4147 #define GCDECL4 XGCDECL4 (g)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4148 #define GCDECL5 XGCDECL5 (g)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4149
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4150 #define GCPRO1(a) XGCPRO1 (g,a)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4151 #define GCPRO2(a,b) XGCPRO2 (g,a,b)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4152 #define GCPRO3(a,b,c) XGCPRO3 (g,a,b,c)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4153 #define GCPRO4(a,b,c,d) XGCPRO4 (g,a,b,c,d)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4154 #define GCPRO5(a,b,c,d,e) XGCPRO5 (g,a,b,c,d,e)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4155
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4156 #define GCPRO1_ARRAY(a1,n1) XGCPRO1_ARRAY(g,a1,n1)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4157 #define GCPRO2_ARRAY(a1,n1,a2,n2) XGCPRO2_ARRAY (g,a1,n1,a2,n2)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4158 #define GCPRO3_ARRAY(a1,n1,a2,n2,a3,n3) XGCPRO3_ARRAY (g,a1,n1,a2,n2,a3,n3)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4159
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4160 #define UNGCPRO XUNGCPRO (g)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4161
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4162 #define NGCDECL1 XGCDECL1 (ng)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4163 #define NGCDECL2 XGCDECL2 (ng)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4164 #define NGCDECL3 XGCDECL3 (ng)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4165 #define NGCDECL4 XGCDECL4 (ng)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4166 #define NGCDECL5 XGCDECL5 (ng)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4167
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4168 #define NGCPRO1(a) XGCPRO1 (ng,a)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4169 #define NGCPRO2(a,b) XGCPRO2 (ng,a,b)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4170 #define NGCPRO3(a,b,c) XGCPRO3 (ng,a,b,c)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4171 #define NGCPRO4(a,b,c,d) XGCPRO4 (ng,a,b,c,d)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4172 #define NGCPRO5(a,b,c,d,e) XGCPRO5 (ng,a,b,c,d,e)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4173
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4174 #define NGCPRO1_ARRAY(a1,n1) XGCPRO1_ARRAY(ng,a1,n1)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4175 #define NGCPRO2_ARRAY(a1,n1,a2,n2) XGCPRO2_ARRAY (ng,a1,n1,a2,n2)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4176 #define NGCPRO3_ARRAY(a1,n1,a2,n2,a3,n3) XGCPRO3_ARRAY (ng,a1,n1,a2,n2,a3,n3)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4177
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4178 #define NUNGCPRO XUNGCPRO (ng)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4179
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4180 #define NNGCDECL1 XGCDECL1 (nng)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4181 #define NNGCDECL2 XGCDECL2 (nng)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4182 #define NNGCDECL3 XGCDECL3 (nng)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4183 #define NNGCDECL4 XGCDECL4 (nng)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4184 #define NNGCDECL5 XGCDECL5 (nng)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4185
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4186 #define NNGCPRO1(a) XGCPRO1 (nng,a)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4187 #define NNGCPRO2(a,b) XGCPRO2 (nng,a,b)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4188 #define NNGCPRO3(a,b,c) XGCPRO3 (nng,a,b,c)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4189 #define NNGCPRO4(a,b,c,d) XGCPRO4 (nng,a,b,c,d)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4190 #define NNGCPRO5(a,b,c,d,e) XGCPRO5 (nng,a,b,c,d,e)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4191
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4192 #define NNGCPRO1_ARRAY(a1,n1) XGCPRO1_ARRAY(nng,a1,n1)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4193 #define NNGCPRO2_ARRAY(a1,n1,a2,n2) XGCPRO2_ARRAY (nng,a1,n1,a2,n2)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4194 #define NNGCPRO3_ARRAY(a1,n1,a2,n2,a3,n3) XGCPRO3_ARRAY (nng,a1,n1,a2,n2,a3,n3)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4195
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4196 #define NNUNGCPRO XUNGCPRO (nng)
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4197
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4198 /* Evaluate expr, UNGCPRO, and then return the value of expr. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4199 #define RETURN_UNGCPRO(expr) do \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4200 { \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4201 Lisp_Object ret_ungc_val = (expr); \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4202 UNGCPRO; \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4203 RETURN_SANS_WARNINGS ret_ungc_val; \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4204 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4205
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4206 /* Evaluate expr, NUNGCPRO, UNGCPRO, and then return the value of expr. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4207 #define RETURN_NUNGCPRO(expr) do \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4208 { \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4209 Lisp_Object ret_ungc_val = (expr); \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4210 NUNGCPRO; \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4211 UNGCPRO; \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4212 RETURN_SANS_WARNINGS ret_ungc_val; \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4213 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4214
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4215 /* Evaluate expr, NNUNGCPRO, NUNGCPRO, UNGCPRO, and then return the
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4216 value of expr. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4217 #define RETURN_NNUNGCPRO(expr) do \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4218 { \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4219 Lisp_Object ret_ungc_val = (expr); \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4220 NNUNGCPRO; \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4221 NUNGCPRO; \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4222 UNGCPRO; \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4223 RETURN_SANS_WARNINGS ret_ungc_val; \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4224 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4225
452 3d3049ae1304 Import from CVS: tag r21-2-41 cvs parents: 446 diff changeset	4226 extern Lisp_Object_ptr_dynarr *staticpros;
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	4227 extern Lisp_Object_ptr_dynarr *staticpros_nodump;
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4228 #ifdef DEBUG_XEMACS
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4229
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4230 /* Help debug crashes gc-marking a staticpro'ed object. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4231
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4232 MODULE_API void staticpro_1 (Lisp_Object , const Ascbyte );
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4233 MODULE_API void staticpro_nodump_1 (Lisp_Object , const Ascbyte );
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4234 #define staticpro(ptr) staticpro_1 (ptr, #ptr)
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4235 #define staticpro_nodump(ptr) staticpro_nodump_1 (ptr, #ptr)
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4236
996 25e260cb7994 [xemacs-hg @ 2002-09-10 15:27:02 by james] james parents: 980 diff changeset	4237 #ifdef HAVE_SHLIB
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4238 MODULE_API void unstaticpro_nodump_1 (Lisp_Object , const Ascbyte );
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4239 #define unstaticpro_nodump(ptr) unstaticpro_nodump_1 (ptr, #ptr)
996 25e260cb7994 [xemacs-hg @ 2002-09-10 15:27:02 by james] james parents: 980 diff changeset	4240 #endif
25e260cb7994 [xemacs-hg @ 2002-09-10 15:27:02 by james] james parents: 980 diff changeset	4241
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4242 #else
611 38db05db9cb5 [xemacs-hg @ 2001-06-08 12:21:09 by ben] ben parents: 609 diff changeset	4243
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4244 /* Call staticpro (&var) to protect static variable `var'. */
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4245 MODULE_API void staticpro (Lisp_Object *);
4979 4234fd5a7b17 fix bug #668 (compile error, not --with-debug) Ben Wing <ben@xemacs.org> parents: 4976 diff changeset	4246 /* staticpro_1 (varptr, name) is used when we're not directly calling
4234fd5a7b17 fix bug #668 (compile error, not --with-debug) Ben Wing <ben@xemacs.org> parents: 4976 diff changeset	4247 staticpro() on the address of a Lisp variable, but on a pointer we
4234fd5a7b17 fix bug #668 (compile error, not --with-debug) Ben Wing <ben@xemacs.org> parents: 4976 diff changeset	4248 got from elsewhere. In that case, NAME is a string describing the
4234fd5a7b17 fix bug #668 (compile error, not --with-debug) Ben Wing <ben@xemacs.org> parents: 4976 diff changeset	4249 actual variable in question. NAME is used only for debugging purposes,
4234fd5a7b17 fix bug #668 (compile error, not --with-debug) Ben Wing <ben@xemacs.org> parents: 4976 diff changeset	4250 and hence when not DEBUG_XEMACS, staticpro_1() just calls staticpro().
4234fd5a7b17 fix bug #668 (compile error, not --with-debug) Ben Wing <ben@xemacs.org> parents: 4976 diff changeset	4251 With DEBUG_XEMACS, however, it's the reverse -- staticpro() calls
4234fd5a7b17 fix bug #668 (compile error, not --with-debug) Ben Wing <ben@xemacs.org> parents: 4976 diff changeset	4252 staticpro_1(), using the ANSI "stringize" operator to construct a string
4234fd5a7b17 fix bug #668 (compile error, not --with-debug) Ben Wing <ben@xemacs.org> parents: 4976 diff changeset	4253 out of the variable name. */
4234fd5a7b17 fix bug #668 (compile error, not --with-debug) Ben Wing <ben@xemacs.org> parents: 4976 diff changeset	4254 #define staticpro_1(ptr, name) staticpro (ptr)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4255
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4256 /* Call staticpro_nodump (&var) to protect static variable `var'. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4257 /* var will not be saved at dump time */
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4258 MODULE_API void staticpro_nodump (Lisp_Object *);
4979 4234fd5a7b17 fix bug #668 (compile error, not --with-debug) Ben Wing <ben@xemacs.org> parents: 4976 diff changeset	4259 #define staticpro_nodump_1(ptr, name) staticpro_nodump (ptr)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4260
996 25e260cb7994 [xemacs-hg @ 2002-09-10 15:27:02 by james] james parents: 980 diff changeset	4261 #ifdef HAVE_SHLIB
25e260cb7994 [xemacs-hg @ 2002-09-10 15:27:02 by james] james parents: 980 diff changeset	4262 /* Call unstaticpro_nodump (&var) to stop protecting static variable `var'. */
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4263 MODULE_API void unstaticpro_nodump (Lisp_Object *);
996 25e260cb7994 [xemacs-hg @ 2002-09-10 15:27:02 by james] james parents: 980 diff changeset	4264 #endif
25e260cb7994 [xemacs-hg @ 2002-09-10 15:27:02 by james] james parents: 980 diff changeset	4265
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4266 #endif
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4267
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3250 diff changeset	4268 #ifdef NEW_GC
2720 6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	4269 extern Lisp_Object_dynarr *mcpros;
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	4270 #ifdef DEBUG_XEMACS
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	4271 /* Help debug crashes gc-marking a mcpro'ed object. */
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4272 MODULE_API void mcpro_1 (Lisp_Object, const Ascbyte *);
2720 6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	4273 #define mcpro(ptr) mcpro_1 (ptr, #ptr)
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	4274 #else /* not DEBUG_XEMACS */
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	4275 /* Call mcpro (&var) to protect mc variable `var'. */
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	4276 MODULE_API void mcpro (Lisp_Object);
6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	4277 #endif /* not DEBUG_XEMACS */
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3250 diff changeset	4278 #endif /* NEW_GC */
2720 6fa9919a9a0b [xemacs-hg @ 2005-04-08 23:10:01 by crestani] crestani parents: 2645 diff changeset	4279
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4280 void register_post_gc_action (void (fun) (void ), void *arg);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4281 int begin_gc_forbidden (void);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4282 void end_gc_forbidden (int count);
1957 59e1bbea04fe [xemacs-hg @ 2004-03-19 02:59:08 by james] james parents: 1927 diff changeset	4283 extern int gc_currently_forbidden;
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4284
1743 543769b89fed [xemacs-hg @ 2003-10-14 05:02:57 by james] james parents: 1726 diff changeset	4285 END_C_DECLS
1650 34abfb24e891 [xemacs-hg @ 2003-08-28 15:44:04 by james] james parents: 1632 diff changeset	4286
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4287
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4288 /************************************************************************/
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4289 /* Misc definitions */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4290 /************************************************************************/
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	4291
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	4292 /************************************************************************/
1983 9c872f33ecbe [xemacs-hg @ 2004-04-05 22:49:31 by james] james parents: 1957 diff changeset	4293 /* Other numeric types */
9c872f33ecbe [xemacs-hg @ 2004-04-05 22:49:31 by james] james parents: 1957 diff changeset	4294 /************************************************************************/
9c872f33ecbe [xemacs-hg @ 2004-04-05 22:49:31 by james] james parents: 1957 diff changeset	4295 #include "number.h"
9c872f33ecbe [xemacs-hg @ 2004-04-05 22:49:31 by james] james parents: 1957 diff changeset	4296
9c872f33ecbe [xemacs-hg @ 2004-04-05 22:49:31 by james] james parents: 1957 diff changeset	4297
9c872f33ecbe [xemacs-hg @ 2004-04-05 22:49:31 by james] james parents: 1957 diff changeset	4298 /************************************************************************/
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	4299 /* prototypes */
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	4300 /************************************************************************/
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	4301
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	4302 /* NOTE: Prototypes should go HERE, not in various header files, unless
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	4303 they specifically reference a type that's not defined in lisp.h.
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	4304 (And even then, you might consider adding the type to lisp.h.)
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	4305
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	4306 The idea is that header files typically contain the innards of objects,
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	4307 and we want to minimize the number of "dependencies" of one file on
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	4308 the specifics of such objects. Putting prototypes here minimizes the
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	4309 number of header files that need to be included -- good for a number
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	4310 of reasons. --ben */
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	4311
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	4312 /* Prototypes for all init/syms_of/vars_of initialization functions. */
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	4313 #include "symsinit.h"
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	4314
1743 543769b89fed [xemacs-hg @ 2003-10-14 05:02:57 by james] james parents: 1726 diff changeset	4315 BEGIN_C_DECLS
1650 34abfb24e891 [xemacs-hg @ 2003-08-28 15:44:04 by james] james parents: 1632 diff changeset	4316
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4317 /* Defined in abbrev.c */
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4318 MODULE_API EXFUN (Fexpand_abbrev, 0);
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4319
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4320 /* Defined in alloc.c */
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4321 MODULE_API EXFUN (Fcons, 2);
64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4322 MODULE_API EXFUN (Flist, MANY);
5354 22c4e67a2e69 Remove #'acons from cl.el, make the version in alloc.c visible to Lisp Aidan Kehoe <kehoea@parhasard.net> parents: 5350 diff changeset	4323 MODULE_API EXFUN (Facons, 3);
4995 8431b52e43b1 Move the various map* functions to C; add #'map-into. Aidan Kehoe <kehoea@parhasard.net> parents: 4888 diff changeset	4324 EXFUN (Fbit_vector, MANY);
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4325 EXFUN (Fmake_byte_code, MANY);
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4326 MODULE_API EXFUN (Fmake_list, 2);
64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4327 MODULE_API EXFUN (Fmake_string, 2);
4995 8431b52e43b1 Move the various map* functions to C; add #'map-into. Aidan Kehoe <kehoea@parhasard.net> parents: 4888 diff changeset	4328 EXFUN (Fstring, MANY);
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4329 MODULE_API EXFUN (Fmake_symbol, 1);
64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4330 MODULE_API EXFUN (Fmake_vector, 2);
64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4331 MODULE_API EXFUN (Fvector, MANY);
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4332
5146 88bd4f3ef8e4 make lrecord UID's have a separate UID space for each object, resurrect debug SOE code in extents.c Ben Wing <ben@xemacs.org> parents: 5143 diff changeset	4333 void deadbeef_memory (void *ptr, Bytecount size);
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3250 diff changeset	4334 #ifndef NEW_GC
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4335 void release_breathing_space (void);
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3250 diff changeset	4336 #endif /* not NEW_GC */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4337 Lisp_Object noseeum_cons (Lisp_Object, Lisp_Object);
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4338 MODULE_API Lisp_Object make_vector (Elemcount, Lisp_Object);
64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4339 MODULE_API Lisp_Object vector1 (Lisp_Object);
64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4340 MODULE_API Lisp_Object vector2 (Lisp_Object, Lisp_Object);
64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4341 MODULE_API Lisp_Object vector3 (Lisp_Object, Lisp_Object, Lisp_Object);
665 fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben] ben parents: 647 diff changeset	4342 Lisp_Object make_bit_vector (Elemcount, Lisp_Object);
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben] ben parents: 647 diff changeset	4343 Lisp_Object make_bit_vector_from_byte_vector (unsigned char *, Elemcount);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4344 Lisp_Object noseeum_make_marker (void);
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	4345 #ifndef NEW_GC
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4346 void garbage_collect_1 (void);
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	4347 #endif /* not NEW_GC */
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4348 MODULE_API Lisp_Object cons3 (Lisp_Object, Lisp_Object, Lisp_Object);
64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4349 MODULE_API Lisp_Object list1 (Lisp_Object);
64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4350 MODULE_API Lisp_Object list2 (Lisp_Object, Lisp_Object);
64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4351 MODULE_API Lisp_Object list3 (Lisp_Object, Lisp_Object, Lisp_Object);
64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4352 MODULE_API Lisp_Object list4 (Lisp_Object, Lisp_Object, Lisp_Object,
64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4353 Lisp_Object);
5157 1fae11d56ad2 redo memory-usage mechanism, add way of dynamically initializing Lisp objects Ben Wing <ben@xemacs.org> parents: 5146 diff changeset	4354 MODULE_API Lisp_Object list5 (Lisp_Object, Lisp_Object, Lisp_Object,
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4355 Lisp_Object, Lisp_Object);
5157 1fae11d56ad2 redo memory-usage mechanism, add way of dynamically initializing Lisp objects Ben Wing <ben@xemacs.org> parents: 5146 diff changeset	4356 MODULE_API Lisp_Object list6 (Lisp_Object, Lisp_Object, Lisp_Object,
1fae11d56ad2 redo memory-usage mechanism, add way of dynamically initializing Lisp objects Ben Wing <ben@xemacs.org> parents: 5146 diff changeset	4357 Lisp_Object, Lisp_Object, Lisp_Object);
1fae11d56ad2 redo memory-usage mechanism, add way of dynamically initializing Lisp objects Ben Wing <ben@xemacs.org> parents: 5146 diff changeset	4358 MODULE_API Lisp_Object listn (int numargs, ...);
1fae11d56ad2 redo memory-usage mechanism, add way of dynamically initializing Lisp objects Ben Wing <ben@xemacs.org> parents: 5146 diff changeset	4359 MODULE_API Lisp_Object listu (Lisp_Object, ...);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4360 DECLARE_DOESNT_RETURN (memory_full (void));
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4361 void disksave_object_finalization (void);
5158 9e0b43d3095c more cleanups to object-memory-usage stuff Ben Wing <ben@xemacs.org> parents: 5157 diff changeset	4362 void finish_object_memory_usage_stats (void);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4363 extern int purify_flag;
5581 56144c8593a8 Mechanically change INT to FIXNUM in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 5560 diff changeset	4364 #define ARRAY_DIMENSION_LIMIT MOST_POSITIVE_FIXNUM
5307 c096d8051f89 Have NATNUMP give t for positive bignums; check limits appropriately. Aidan Kehoe <kehoea@parhasard.net> parents: 5280 diff changeset	4365 extern Fixnum Varray_dimension_limit;
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	4366 #ifndef NEW_GC
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4367 extern EMACS_INT gc_generation_number[1];
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: 3085 diff changeset	4368 #endif /* not NEW_GC */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4369 int c_readonly (Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4370 int lisp_readonly (Lisp_Object);
4953 304aebb79cd3 function renamings to track names of char typedefs Ben Wing <ben@xemacs.org> parents: 4952 diff changeset	4371 MODULE_API Lisp_Object build_istring (const Ibyte *);
304aebb79cd3 function renamings to track names of char typedefs Ben Wing <ben@xemacs.org> parents: 4952 diff changeset	4372 MODULE_API Lisp_Object build_cistring (const CIbyte *);
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4373 MODULE_API Lisp_Object build_ascstring (const Ascbyte *);
4953 304aebb79cd3 function renamings to track names of char typedefs Ben Wing <ben@xemacs.org> parents: 4952 diff changeset	4374 MODULE_API Lisp_Object build_extstring (const Extbyte *, Lisp_Object);
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4375 MODULE_API Lisp_Object make_string (const Ibyte *, Bytecount);
4953 304aebb79cd3 function renamings to track names of char typedefs Ben Wing <ben@xemacs.org> parents: 4952 diff changeset	4376 MODULE_API Lisp_Object make_extstring (const Extbyte *, EMACS_INT, Lisp_Object);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4377 void init_string_ascii_begin (Lisp_Object string);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4378 Lisp_Object make_uninit_string (Bytecount);
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4379 MODULE_API Lisp_Object make_float (double);
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	4380 Lisp_Object make_string_nocopy (const Ibyte *, Bytecount);
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4381 void free_cons (Lisp_Object);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4382 void free_list (Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4383 void free_alist (Lisp_Object);
1204 e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4384 void free_marker (Lisp_Object);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4385 int object_dead_p (Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4386 void mark_object (Lisp_Object obj);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4387 int marked_p (Lisp_Object obj);
851 e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	4388 extern int funcall_allocation_flag;
814 a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	4389 extern int need_to_garbage_collect;
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4390 extern MODULE_API int need_to_check_c_alloca;
888 201c016cfc12 [xemacs-hg @ 2002-06-28 14:24:07 by michaels] michaels parents: 872 diff changeset	4391 extern int need_to_signal_post_gc;
1333 1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben] ben parents: 1318 diff changeset	4392 extern Lisp_Object Qpost_gc_hook, Qgarbage_collecting;
851 e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben] ben parents: 844 diff changeset	4393 void recompute_funcall_allocation_flag (void);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4394
5157 1fae11d56ad2 redo memory-usage mechanism, add way of dynamically initializing Lisp objects Ben Wing <ben@xemacs.org> parents: 5146 diff changeset	4395 Bytecount malloced_storage_size (void , Bytecount, struct usage_stats );
1204 e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4396
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4397 #ifdef EVENT_DATA_AS_OBJECTS
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4398 Lisp_Object make_key_data (void);
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4399 Lisp_Object make_button_data (void);
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4400 Lisp_Object make_motion_data (void);
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4401 Lisp_Object make_process_data (void);
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4402 Lisp_Object make_timeout_data (void);
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4403 Lisp_Object make_magic_data (void);
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4404 Lisp_Object make_magic_eval_data (void);
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4405 Lisp_Object make_eval_data (void);
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4406 Lisp_Object make_misc_user_data (void);
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4407 void free_key_data (Lisp_Object);
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4408 void free_button_data (Lisp_Object);
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4409 void free_motion_data (Lisp_Object);
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4410 void free_process_data (Lisp_Object);
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4411 void free_timeout_data (Lisp_Object);
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4412 void free_magic_data (Lisp_Object);
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4413 void free_magic_eval_data (Lisp_Object);
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4414 void free_eval_data (Lisp_Object);
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4415 void free_misc_user_data (Lisp_Object);
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4416 #endif /* EVENT_DATA_AS_OBJECTS */
934 c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels] michaels parents: 930 diff changeset	4417
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4418 /* Defined in buffer.c */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4419 Lisp_Object get_truename_buffer (Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4420 void switch_to_buffer (Lisp_Object, Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4421 extern int find_file_compare_truenames;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4422 extern int find_file_use_truenames;
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	4423 Ibyte get_initial_directory (Ibyte pathname, Bytecount size);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4424 void set_buffer_internal (struct buffer *b);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4425 struct buffer *decode_buffer (Lisp_Object buffer, int allow_string);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4426
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4427 void record_buffer (Lisp_Object buf);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4428 Lisp_Object get_buffer (Lisp_Object name,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4429 int error_if_deleted_or_does_not_exist);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4430 int map_over_sharing_buffers (struct buffer *buf,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4431 int (mapfun) (struct buffer buf,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4432 void *closure),
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4433 void *closure);
1204 e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	4434 void cleanup_buffer_undo_lists (void);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4435
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4436 extern struct buffer *current_buffer;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4437
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4438 extern void init_initial_directory (void); /* initialize initial_directory */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4439
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4440 EXFUN (Fbuffer_disable_undo, 1);
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4441 MODULE_API EXFUN (Fbuffer_modified_p, 1);
64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4442 MODULE_API EXFUN (Fbuffer_name, 1);
64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4443 MODULE_API EXFUN (Fcurrent_buffer, 0);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4444 EXFUN (Ferase_buffer, 1);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4445 EXFUN (Fget_buffer, 1);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4446 EXFUN (Fget_buffer_create, 1);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4447 EXFUN (Fget_file_buffer, 1);
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4448 MODULE_API EXFUN (Fkill_buffer, 1);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4449 EXFUN (Fother_buffer, 3);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4450 EXFUN (Frecord_buffer, 1);
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4451 MODULE_API EXFUN (Fset_buffer, 1);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4452 EXFUN (Fset_buffer_modified_p, 2);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4453
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4454 extern Lisp_Object QSscratch, Qafter_change_function, Qafter_change_functions;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4455 extern Lisp_Object Qbefore_change_function, Qbefore_change_functions;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4456 extern Lisp_Object Qbuffer_or_string_p, Qdefault_directory, Qfirst_change_hook;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4457 extern Lisp_Object Qpermanent_local, Vafter_change_function;
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4458 extern Lisp_Object Qbuffer_live_p;
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4459 extern Lisp_Object Vafter_change_functions, Vbefore_change_function;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4460 extern Lisp_Object Vbefore_change_functions, Vbuffer_alist, Vbuffer_defaults;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4461 extern Lisp_Object Vinhibit_read_only, Vtransient_mark_mode;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4462
563 183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	4463 /* Defined in bytecode.c */
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4464 EXFUN (Fbyte_code, 3);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4465
593 5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben] ben parents: 578 diff changeset	4466 DECLARE_DOESNT_RETURN (invalid_byte_code
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4467 (const Ascbyte *reason, Lisp_Object frob));
563 183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	4468
4932 8b63e21b0436 fix compile issues with gcc 4 Ben Wing <ben@xemacs.org> parents: 4929 diff changeset	4469 extern Lisp_Object Qbyte_code, Qinvalid_byte_code;
563 183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	4470
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4471 /* Defined in callint.c */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4472 EXFUN (Fcall_interactively, 3);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4473 EXFUN (Fprefix_numeric_value, 1);
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4474 extern Lisp_Object Qcall_interactively;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4475 extern Lisp_Object Qmouse_leave_buffer_hook;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4476 extern Lisp_Object Qread_from_minibuffer;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4477 extern Lisp_Object Vcommand_history;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4478 extern Lisp_Object Vcurrent_prefix_arg;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4479 extern Lisp_Object Vmark_even_if_inactive;
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4480
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4481 /* Defined in casefiddle.c */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4482 EXFUN (Fdowncase, 2);
4910 6bc1f3f6cf0d Make canoncase visible to Lisp; use it with chars in internal_equalp. Aidan Kehoe <kehoea@parhasard.net> parents: 4906 diff changeset	4483 EXFUN (Fcanoncase, 2);
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4484 EXFUN (Fupcase, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4485 EXFUN (Fupcase_initials, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4486 EXFUN (Fupcase_initials_region, 3);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4487 EXFUN (Fupcase_region, 3);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4488
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4489 /* Defined in casetab.c */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4490 EXFUN (Fset_standard_case_table, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4491
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4492 /* Defined in chartab.c */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4493 EXFUN (Freset_char_table, 1);
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4494 extern Lisp_Object Qcategory_designator_p;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4495 extern Lisp_Object Qcategory_table_value_p;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4496
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4497 /* Defined in cmdloop.c */
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4498 extern Lisp_Object Qdisabled_command_hook;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4499 extern Lisp_Object Qreally_early_error_handler;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4500 extern Lisp_Object Qtop_level;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4501 extern Lisp_Object Vdisabled_command_hook;
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4502
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4503 /* Defined in cmds.c */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4504 EXFUN (Fbeginning_of_line, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4505 EXFUN (Fend_of_line, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4506 EXFUN (Fforward_char, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4507 EXFUN (Fforward_line, 2);
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4508 extern Lisp_Object Qself_insert_command;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4509
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4510 /* Defined in console.c */
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4511 extern Lisp_Object Qconsole_live_p;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4512 extern Lisp_Object Vconsole_list;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4513
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4514 /* Defined in console-stream.c */
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4515 extern Lisp_Object Vstdio_str;
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4516
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4517 /* Defined in data.c */
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4518 EXFUN (Fadd1, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4519 EXFUN (Faref, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4520 EXFUN (Faset, 3);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4521 EXFUN (Fcar, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4522 EXFUN (Fcar_safe, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4523 EXFUN (Fcdr, 1);
919 111c4f2ed9c9 [xemacs-hg @ 2002-07-14 09:43:52 by adrian] adrian parents: 888 diff changeset	4524 EXFUN (Fcdr_safe, 1);
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4525 EXFUN (Fgeq, MANY);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4526 EXFUN (Fgtr, MANY);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4527 EXFUN (Findirect_function, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4528 EXFUN (Fleq, MANY);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4529 EXFUN (Flistp, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4530 EXFUN (Flss, MANY);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4531 EXFUN (Fmax, MANY);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4532 EXFUN (Fmin, MANY);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4533 EXFUN (Fminus, MANY);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4534 EXFUN (Fnumber_to_string, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4535 EXFUN (Fplus, MANY);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4536 EXFUN (Fquo, MANY);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4537 EXFUN (Frem, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4538 EXFUN (Fsetcar, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4539 EXFUN (Fsetcdr, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4540 EXFUN (Fsub1, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4541 EXFUN (Fsubr_max_args, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4542 EXFUN (Fsubr_min_args, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4543 EXFUN (Ftimes, MANY);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4544
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4545 DECLARE_DOESNT_RETURN (c_write_error (Lisp_Object));
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4546 DECLARE_DOESNT_RETURN (lisp_write_error (Lisp_Object));
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4547 DECLARE_DOESNT_RETURN (args_out_of_range (Lisp_Object, Lisp_Object));
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4548 DECLARE_DOESNT_RETURN (args_out_of_range_3 (Lisp_Object, Lisp_Object,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4549 Lisp_Object));
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4550 MODULE_API Lisp_Object wrong_type_argument (Lisp_Object, Lisp_Object);
64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4551 MODULE_API
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4552 DECLARE_DOESNT_RETURN (dead_wrong_type_argument (Lisp_Object, Lisp_Object));
5307 c096d8051f89 Have NATNUMP give t for positive bignums; check limits appropriately. Aidan Kehoe <kehoea@parhasard.net> parents: 5280 diff changeset	4553 void check_integer_range (Lisp_Object, Lisp_Object, Lisp_Object);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4554
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4555 EXFUN (Fint_to_char, 1);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4556 EXFUN (Fchar_to_int, 1);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4557
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4558 enum arith_comparison {
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4559 arith_equal,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4560 arith_notequal,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4561 arith_less,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4562 arith_grtr,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4563 arith_less_or_equal,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4564 arith_grtr_or_equal };
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4565 Lisp_Object arithcompare (Lisp_Object, Lisp_Object, enum arith_comparison);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4566
707 a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp] andyp parents: 665 diff changeset	4567 /* Do NOT use word_to_lisp or wasteful_word_to_lisp to decode time_t's
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp] andyp parents: 665 diff changeset	4568 unless you KNOW arg is non-negative. They cannot return negative
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp] andyp parents: 665 diff changeset	4569 values! Use make_time. */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4570 Lisp_Object word_to_lisp (unsigned int);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4571 unsigned int lisp_to_word (Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4572
4932 8b63e21b0436 fix compile issues with gcc 4 Ben Wing <ben@xemacs.org> parents: 4929 diff changeset	4573 extern Lisp_Object Qarrayp, Qbitp, Qchar_or_string_p, Qcharacterp,
8b63e21b0436 fix compile issues with gcc 4 Ben Wing <ben@xemacs.org> parents: 4929 diff changeset	4574 Qerror_conditions, Qerror_message, Qinteger_char_or_marker_p,
8b63e21b0436 fix compile issues with gcc 4 Ben Wing <ben@xemacs.org> parents: 4929 diff changeset	4575 Qinteger_or_char_p, Qinteger_or_marker_p, Qlambda, Qlistp, Qnatnump,
8b63e21b0436 fix compile issues with gcc 4 Ben Wing <ben@xemacs.org> parents: 4929 diff changeset	4576 Qnonnegativep, Qnumber_char_or_marker_p, Qnumberp, Qquote, Qtrue_list_p;
8b63e21b0436 fix compile issues with gcc 4 Ben Wing <ben@xemacs.org> parents: 4929 diff changeset	4577 extern MODULE_API Lisp_Object Qintegerp;
8b63e21b0436 fix compile issues with gcc 4 Ben Wing <ben@xemacs.org> parents: 4929 diff changeset	4578
5307 c096d8051f89 Have NATNUMP give t for positive bignums; check limits appropriately. Aidan Kehoe <kehoea@parhasard.net> parents: 5280 diff changeset	4579 extern Lisp_Object Qargs_out_of_range, Qarith_error, Qbeginning_of_buffer,
5381 4f39e57a82b4 Improve read-only error reporting. Didier Verna <didier@lrde.epita.fr> parents: 5354 diff changeset	4580 Qbuffer_read_only, Qextent_read_only,
4f39e57a82b4 Improve read-only error reporting. Didier Verna <didier@lrde.epita.fr> parents: 5354 diff changeset	4581 Qcircular_list, Qcircular_property_list,
5307 c096d8051f89 Have NATNUMP give t for positive bignums; check limits appropriately. Aidan Kehoe <kehoea@parhasard.net> parents: 5280 diff changeset	4582 Qconversion_error, Qcyclic_variable_indirection, Qdomain_error,
c096d8051f89 Have NATNUMP give t for positive bignums; check limits appropriately. Aidan Kehoe <kehoea@parhasard.net> parents: 5280 diff changeset	4583 Qediting_error, Qend_of_buffer, Qend_of_file, Qerror, Qfile_error,
c096d8051f89 Have NATNUMP give t for positive bignums; check limits appropriately. Aidan Kehoe <kehoea@parhasard.net> parents: 5280 diff changeset	4584 Qinternal_error, Qinvalid_change, Qinvalid_constant, Qinvalid_function,
5084 6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	4585 Qinvalid_keyword_argument, Qinvalid_operation,
4932 8b63e21b0436 fix compile issues with gcc 4 Ben Wing <ben@xemacs.org> parents: 4929 diff changeset	4586 Qinvalid_read_syntax, Qinvalid_state, Qio_error, Qlist_formation_error,
8b63e21b0436 fix compile issues with gcc 4 Ben Wing <ben@xemacs.org> parents: 4929 diff changeset	4587 Qmalformed_list, Qmalformed_property_list, Qno_catch, Qout_of_memory,
8b63e21b0436 fix compile issues with gcc 4 Ben Wing <ben@xemacs.org> parents: 4929 diff changeset	4588 Qoverflow_error, Qprinting_unreadable_object, Qquit, Qrange_error,
8b63e21b0436 fix compile issues with gcc 4 Ben Wing <ben@xemacs.org> parents: 4929 diff changeset	4589 Qsetting_constant, Qsingularity_error, Qstack_overflow,
8b63e21b0436 fix compile issues with gcc 4 Ben Wing <ben@xemacs.org> parents: 4929 diff changeset	4590 Qstructure_formation_error, Qtext_conversion_error, Qunderflow_error,
8b63e21b0436 fix compile issues with gcc 4 Ben Wing <ben@xemacs.org> parents: 4929 diff changeset	4591 Qvoid_function, Qvoid_variable, Qwrong_number_of_arguments,
8b63e21b0436 fix compile issues with gcc 4 Ben Wing <ben@xemacs.org> parents: 4929 diff changeset	4592 Qwrong_type_argument;
5307 c096d8051f89 Have NATNUMP give t for positive bignums; check limits appropriately. Aidan Kehoe <kehoea@parhasard.net> parents: 5280 diff changeset	4593
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4594 extern Lisp_Object Qcdr;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4595 extern Lisp_Object Qerror_lacks_explanatory_string;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4596 extern Lisp_Object Qfile_error;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4597 extern Lisp_Object Qsequencep;
4932 8b63e21b0436 fix compile issues with gcc 4 Ben Wing <ben@xemacs.org> parents: 4929 diff changeset	4598 extern MODULE_API Lisp_Object Qinvalid_argument, Qsyntax_error;
8b63e21b0436 fix compile issues with gcc 4 Ben Wing <ben@xemacs.org> parents: 4929 diff changeset	4599
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4600 /* Defined in device.c */
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4601 extern Lisp_Object Qdevice_live_p;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4602
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4603 /* Defined in device-x.c */
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4604 extern Lisp_Object Vx_initial_argv_list;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4605
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4606 /* Defined in dired.c */
5211 cdca98f2d36f Move `default-file-system-ignore-case' to C; fix bug in directory hash tables Aidan Kehoe <kehoea@parhasard.net> parents: 5200 diff changeset	4607 Lisp_Object make_directory_hash_table (Lisp_Object);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4608
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4609 /* Defined in doc.c */
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4610 EXFUN (Fsubstitute_command_keys, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4611
814 a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	4612 Lisp_Object unparesseuxify_doc_string (int fd, EMACS_INT position,
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	4613 Ibyte *name_nonreloc,
814 a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	4614 Lisp_Object name_reloc,
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	4615 int standard_doc_file);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4616 Lisp_Object read_doc_string (Lisp_Object);
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4617 extern Lisp_Object Vinternal_doc_file_name;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4618
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4619 /* Defined in doprnt.c */
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	4620 Bytecount emacs_doprnt_va (Lisp_Object stream, const Ibyte *format_nonreloc,
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4621 Bytecount format_length, Lisp_Object format_reloc,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4622 va_list vargs);
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	4623 Bytecount emacs_doprnt (Lisp_Object stream, const Ibyte *format_nonreloc,
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4624 Bytecount format_length, Lisp_Object format_reloc,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4625 int nargs, const Lisp_Object *largs, ...);
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	4626 Lisp_Object emacs_vsprintf_string_lisp (const CIbyte *format_nonreloc,
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4627 Lisp_Object format_reloc, int nargs,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4628 const Lisp_Object *largs);
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	4629 Lisp_Object emacs_sprintf_string_lisp (const CIbyte *format_nonreloc,
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4630 Lisp_Object format_reloc, int nargs, ...);
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	4631 Ibyte emacs_vsprintf_malloc_lisp (const CIbyte format_nonreloc,
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4632 Lisp_Object format_reloc, int nargs,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4633 const Lisp_Object *largs,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4634 Bytecount *len_out);
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	4635 Ibyte emacs_sprintf_malloc_lisp (Bytecount len_out,
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	4636 const CIbyte *format_nonreloc,
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4637 Lisp_Object format_reloc, int nargs, ...);
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	4638 Lisp_Object emacs_vsprintf_string (const CIbyte *format, va_list vargs);
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	4639 Lisp_Object emacs_sprintf_string (const CIbyte *format, ...)
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4640 PRINTF_ARGS (1, 2);
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	4641 Ibyte emacs_vsprintf_malloc (const CIbyte format, va_list vargs,
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4642 Bytecount *len_out);
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	4643 Ibyte emacs_sprintf_malloc (Bytecount len_out, const CIbyte *format, ...)
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4644 PRINTF_ARGS (2, 3);
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	4645 Bytecount emacs_vsprintf (Ibyte output, const CIbyte format,
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4646 va_list vargs);
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	4647 Bytecount emacs_sprintf (Ibyte output, const CIbyte format, ...)
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4648 PRINTF_ARGS (2, 3);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4649
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4650
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4651 /* Defined in editfns.c */
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4652 EXFUN (Fbobp, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4653 EXFUN (Fbolp, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4654 EXFUN (Fbuffer_substring, 3);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4655 EXFUN (Fchar_after, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4656 EXFUN (Fchar_to_string, 1);
5214 0b4d355771bd Import buffer-display-count, buffer-display-time; thank you, Jeff Sparkes. Aidan Kehoe <kehoea@parhasard.net> parents: 5211 diff changeset	4657 EXFUN (Fcurrent_time, 0);
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4658 EXFUN (Fdelete_region, 3);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4659 EXFUN (Feobp, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4660 EXFUN (Feolp, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4661 EXFUN (Ffollowing_char, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4662 EXFUN (Fformat, MANY);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4663 EXFUN (Fgoto_char, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4664 EXFUN (Finsert, MANY);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4665 EXFUN (Finsert_buffer_substring, 3);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4666 EXFUN (Finsert_char, 4);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4667 EXFUN (Fnarrow_to_region, 3);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4668 EXFUN (Fpoint, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4669 EXFUN (Fpoint_marker, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4670 EXFUN (Fpoint_max, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4671 EXFUN (Fpoint_min, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4672 EXFUN (Fpreceding_char, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4673 EXFUN (Fsystem_name, 0);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4674 EXFUN (Fuser_home_directory, 0);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4675 EXFUN (Fuser_login_name, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4676 EXFUN (Fwiden, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4677
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4678 void uncache_home_directory (void);
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	4679 Ibyte *get_home_directory (void);
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	4680 Ibyte user_login_name (uid_t );
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4681 void buffer_insert1 (struct buffer *, Lisp_Object);
665 fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben] ben parents: 647 diff changeset	4682 Lisp_Object make_string_from_buffer (struct buffer *, Charbpos, Charcount);
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben] ben parents: 647 diff changeset	4683 Lisp_Object make_string_from_buffer_no_extents (struct buffer *, Charbpos, Charcount);
707 a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp] andyp parents: 665 diff changeset	4684 Lisp_Object make_time (time_t);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4685 Lisp_Object save_excursion_save (void);
844 047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben] ben parents: 826 diff changeset	4686 Lisp_Object save_restriction_save (struct buffer *buf);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4687 Lisp_Object save_excursion_restore (Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4688 Lisp_Object save_restriction_restore (Lisp_Object);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4689 void widen_buffer (struct buffer *b, int no_clip);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4690 int beginning_of_line_p (struct buffer *b, Charbpos pt);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4691 Lisp_Object save_current_buffer_restore (Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4692
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4693 extern Lisp_Object Qformat;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4694 extern Lisp_Object Qmark;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4695 extern Lisp_Object Qpoint;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4696 extern Lisp_Object Qregion_beginning;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4697 extern Lisp_Object Qregion_end;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4698 extern Lisp_Object Quser_files_and_directories;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4699 extern Lisp_Object Vsystem_name;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4700
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4701 /* Defined in emacs.c */
2268 61855263cb07 [xemacs-hg @ 2004-09-14 14:32:29 by james] james parents: 2210 diff changeset	4702 EXFUN_NORETURN (Fkill_emacs, 1);
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4703 EXFUN (Frunning_temacs_p, 0);
1123 37bdd24225ef [xemacs-hg @ 2002-11-27 07:15:02 by ben] ben parents: 1111 diff changeset	4704 EXFUN (Fforce_debugging_signal, 1);
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4705
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4706 SIGTYPE fatal_error_signal (int);
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4707 Lisp_Object make_arg_list (int, Wexttext **);
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4708 void make_argc_argv (Lisp_Object, int , Wexttext **);
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4709 void free_argc_argv (Wexttext **);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4710 Lisp_Object split_external_path (const Extbyte *path);
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	4711 Lisp_Object split_env_path (const CIbyte evarname, const Ibyte default_);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4712
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4713 /* Nonzero means don't do interactive redisplay and don't change tty modes */
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	4714 extern int noninteractive, noninteractive1;
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4715 extern int inhibit_non_essential_conversion_operations;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4716 extern int preparing_for_armageddon;
458 c33ae14dd6d0 Import from CVS: tag r21-2-44 cvs parents: 456 diff changeset	4717 extern Fixnum emacs_priority;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4718 extern int suppress_early_error_handler_backtrace;
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	4719 void debug_break (void);
4854 95c4ced5c07c fix compile problems Ben Wing <ben@xemacs.org> parents: 4846 diff changeset	4720 int debug_can_access_memory (const void *ptr, Bytecount len);
2210 9361a78f86a0 [xemacs-hg @ 2004-08-11 02:04:03 by james] james parents: 1986 diff changeset	4721 DECLARE_DOESNT_RETURN (really_abort (void));
776 79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben] ben parents: 771 diff changeset	4722 void zero_out_command_line_status_vars (void);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4723
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4724 extern Lisp_Object Qsave_buffers_kill_emacs;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4725 extern Lisp_Object Vcommand_line_args;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4726 extern Lisp_Object Vconfigure_info_directory;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4727 extern Lisp_Object Vconfigure_site_directory;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4728 extern Lisp_Object Vconfigure_site_module_directory;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4729 extern Lisp_Object Vdata_directory;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4730 extern Lisp_Object Vdoc_directory;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4731 extern Lisp_Object Vemacs_major_version;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4732 extern Lisp_Object Vemacs_minor_version;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4733 extern Lisp_Object Vexec_directory;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4734 extern Lisp_Object Vexec_path;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4735 extern Lisp_Object Vinvocation_directory;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4736 extern Lisp_Object Vinvocation_name;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4737 extern Lisp_Object Vmodule_directory;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4738 extern Lisp_Object Vsite_directory;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4739 extern Lisp_Object Vsite_module_directory;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4740
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4741 /* Defined in emodules.c */
996 25e260cb7994 [xemacs-hg @ 2002-09-10 15:27:02 by james] james parents: 980 diff changeset	4742 #ifdef HAVE_SHLIB
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4743 EXFUN (Flist_modules, 0);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4744 EXFUN (Fload_module, 3);
996 25e260cb7994 [xemacs-hg @ 2002-09-10 15:27:02 by james] james parents: 980 diff changeset	4745 extern int unloading_module;
25e260cb7994 [xemacs-hg @ 2002-09-10 15:27:02 by james] james parents: 980 diff changeset	4746 #endif
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4747 extern Lisp_Object Qdll_error;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	4748 extern Lisp_Object Qmodule;
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4749
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4750 /* Defined in eval.c */
1706 9fc738581a9d [xemacs-hg @ 2003-09-22 03:21:12 by james] james parents: 1650 diff changeset	4751 MODULE_API EXFUN (Fapply, MANY);
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4752 EXFUN (Fbacktrace, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4753 EXFUN (Fcommand_execute, 3);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4754 EXFUN (Fcommandp, 1);
4744 17f7e9191c0b Rationalise duplicated functionality, #'custom-quote, #'quote-maybe. Aidan Kehoe <kehoea@parhasard.net> parents: 4690 diff changeset	4755 EXFUN (Fquote_maybe, 1);
1706 9fc738581a9d [xemacs-hg @ 2003-09-22 03:21:12 by james] james parents: 1650 diff changeset	4756 MODULE_API EXFUN (Feval, 1);
9fc738581a9d [xemacs-hg @ 2003-09-22 03:21:12 by james] james parents: 1650 diff changeset	4757 MODULE_API EXFUN (Ffuncall, MANY);
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4758 EXFUN (Ffunctionp, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4759 EXFUN (Finteractive_p, 0);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4760 EXFUN (Fprogn, UNEVALLED);
1706 9fc738581a9d [xemacs-hg @ 2003-09-22 03:21:12 by james] james parents: 1650 diff changeset	4761 MODULE_API EXFUN (Fsignal, 2);
4677 8f1ee2d15784 Support full Common Lisp multiple values in C. Aidan Kehoe <kehoea@parhasard.net> parents: 4512 diff changeset	4762 MODULE_API EXFUN_NORETURN (Fthrow, UNEVALLED);
1706 9fc738581a9d [xemacs-hg @ 2003-09-22 03:21:12 by james] james parents: 1650 diff changeset	4763 MODULE_API EXFUN (Fcall_with_condition_handler, MANY);
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4764 EXFUN (Ffunction_max_args, 1);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4765 EXFUN (Ffunction_min_args, 1);
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	4766
4677 8f1ee2d15784 Support full Common Lisp multiple values in C. Aidan Kehoe <kehoea@parhasard.net> parents: 4512 diff changeset	4767 MODULE_API DECLARE_DOESNT_RETURN (throw_or_bomb_out (Lisp_Object,
8f1ee2d15784 Support full Common Lisp multiple values in C. Aidan Kehoe <kehoea@parhasard.net> parents: 4512 diff changeset	4768 Lisp_Object, int,
8f1ee2d15784 Support full Common Lisp multiple values in C. Aidan Kehoe <kehoea@parhasard.net> parents: 4512 diff changeset	4769 Lisp_Object, Lisp_Object));
8f1ee2d15784 Support full Common Lisp multiple values in C. Aidan Kehoe <kehoea@parhasard.net> parents: 4512 diff changeset	4770
5348 39304a35b6b3 Don't commit suicide when an X device dies. Mike Sperber <sperber@deinprogramm.de> parents: 5338 diff changeset	4771 MODULE_API DECLARE_DOESNT_RETURN (throw_or_bomb_out_unsafe (Lisp_Object,
39304a35b6b3 Don't commit suicide when an X device dies. Mike Sperber <sperber@deinprogramm.de> parents: 5338 diff changeset	4772 Lisp_Object, int,
39304a35b6b3 Don't commit suicide when an X device dies. Mike Sperber <sperber@deinprogramm.de> parents: 5338 diff changeset	4773 Lisp_Object, Lisp_Object));
39304a35b6b3 Don't commit suicide when an X device dies. Mike Sperber <sperber@deinprogramm.de> parents: 5338 diff changeset	4774
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4775 MODULE_API DECLARE_DOESNT_RETURN (signal_error_1 (Lisp_Object, Lisp_Object));
563 183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	4776 void maybe_signal_error_1 (Lisp_Object, Lisp_Object, Lisp_Object,
578 190b164ddcac [xemacs-hg @ 2001-05-25 11:26:50 by ben] ben parents: 577 diff changeset	4777 Error_Behavior);
563 183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	4778 Lisp_Object maybe_signal_continuable_error_1 (Lisp_Object, Lisp_Object,
578 190b164ddcac [xemacs-hg @ 2001-05-25 11:26:50 by ben] ben parents: 577 diff changeset	4779 Lisp_Object, Error_Behavior);
1743 543769b89fed [xemacs-hg @ 2003-10-14 05:02:57 by james] james parents: 1726 diff changeset	4780 MODULE_API DECLARE_DOESNT_RETURN (signal_ferror (Lisp_Object, const CIbyte *,
543769b89fed [xemacs-hg @ 2003-10-14 05:02:57 by james] james parents: 1726 diff changeset	4781 ...)) PRINTF_ARGS(2, 3);
578 190b164ddcac [xemacs-hg @ 2001-05-25 11:26:50 by ben] ben parents: 577 diff changeset	4782 void maybe_signal_ferror (Lisp_Object, Lisp_Object, Error_Behavior,
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	4783 const CIbyte *, ...) PRINTF_ARGS (4, 5);
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	4784 Lisp_Object signal_continuable_ferror (Lisp_Object, const CIbyte *, ...)
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	4785 PRINTF_ARGS (2, 3);
563 183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	4786 Lisp_Object maybe_signal_continuable_ferror (Lisp_Object, Lisp_Object,
578 190b164ddcac [xemacs-hg @ 2001-05-25 11:26:50 by ben] ben parents: 577 diff changeset	4787 Error_Behavior,
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	4788 const CIbyte *, ...)
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	4789 PRINTF_ARGS (4, 5);
563 183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	4790
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4791 Lisp_Object build_error_data (const Ascbyte *reason, Lisp_Object frob);
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4792 DECLARE_DOESNT_RETURN (signal_error (Lisp_Object, const Ascbyte *,
563 183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	4793 Lisp_Object));
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4794 void maybe_signal_error (Lisp_Object, const Ascbyte *, Lisp_Object,
578 190b164ddcac [xemacs-hg @ 2001-05-25 11:26:50 by ben] ben parents: 577 diff changeset	4795 Lisp_Object, Error_Behavior);
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4796 Lisp_Object signal_continuable_error (Lisp_Object, const Ascbyte *,
563 183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	4797 Lisp_Object);
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4798 Lisp_Object maybe_signal_continuable_error (Lisp_Object, const Ascbyte *,
563 183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	4799 Lisp_Object,
578 190b164ddcac [xemacs-hg @ 2001-05-25 11:26:50 by ben] ben parents: 577 diff changeset	4800 Lisp_Object, Error_Behavior);
1743 543769b89fed [xemacs-hg @ 2003-10-14 05:02:57 by james] james parents: 1726 diff changeset	4801 DECLARE_DOESNT_RETURN (signal_ferror_with_frob (Lisp_Object, Lisp_Object,
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4802 const Ascbyte *, ...))
1743 543769b89fed [xemacs-hg @ 2003-10-14 05:02:57 by james] james parents: 1726 diff changeset	4803 PRINTF_ARGS(3, 4);
563 183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	4804 void maybe_signal_ferror_with_frob (Lisp_Object, Lisp_Object, Lisp_Object,
578 190b164ddcac [xemacs-hg @ 2001-05-25 11:26:50 by ben] ben parents: 577 diff changeset	4805 Error_Behavior,
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4806 const Ascbyte *, ...) PRINTF_ARGS (5, 6);
563 183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	4807 Lisp_Object signal_continuable_ferror_with_frob (Lisp_Object, Lisp_Object,
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4808 const Ascbyte *,
563 183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	4809 ...) PRINTF_ARGS (3, 4);
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	4810 Lisp_Object maybe_signal_continuable_ferror_with_frob (Lisp_Object,
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	4811 Lisp_Object,
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	4812 Lisp_Object,
578 190b164ddcac [xemacs-hg @ 2001-05-25 11:26:50 by ben] ben parents: 577 diff changeset	4813 Error_Behavior,
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4814 const Ascbyte *, ...)
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	4815 PRINTF_ARGS (5, 6);
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4816 DECLARE_DOESNT_RETURN (signal_error_2 (Lisp_Object, const Ascbyte *,
563 183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	4817 Lisp_Object, Lisp_Object));
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4818 void maybe_signal_error_2 (Lisp_Object, const Ascbyte *, Lisp_Object,
578 190b164ddcac [xemacs-hg @ 2001-05-25 11:26:50 by ben] ben parents: 577 diff changeset	4819 Lisp_Object, Lisp_Object, Error_Behavior);
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4820 Lisp_Object signal_continuable_error_2 (Lisp_Object, const Ascbyte *,
563 183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	4821 Lisp_Object, Lisp_Object);
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4822 Lisp_Object maybe_signal_continuable_error_2 (Lisp_Object, const Ascbyte *,
563 183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	4823 Lisp_Object, Lisp_Object,
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	4824 Lisp_Object,
578 190b164ddcac [xemacs-hg @ 2001-05-25 11:26:50 by ben] ben parents: 577 diff changeset	4825 Error_Behavior);
563 183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	4826
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	4827
1927 44905d8fae13 [xemacs-hg @ 2004-02-25 17:42:34 by james] james parents: 1743 diff changeset	4828 MODULE_API DECLARE_DOESNT_RETURN (signal_malformed_list_error (Lisp_Object));
44905d8fae13 [xemacs-hg @ 2004-02-25 17:42:34 by james] james parents: 1743 diff changeset	4829 MODULE_API DECLARE_DOESNT_RETURN (signal_malformed_property_list_error
44905d8fae13 [xemacs-hg @ 2004-02-25 17:42:34 by james] james parents: 1743 diff changeset	4830 (Lisp_Object));
44905d8fae13 [xemacs-hg @ 2004-02-25 17:42:34 by james] james parents: 1743 diff changeset	4831 MODULE_API DECLARE_DOESNT_RETURN (signal_circular_list_error (Lisp_Object));
44905d8fae13 [xemacs-hg @ 2004-02-25 17:42:34 by james] james parents: 1743 diff changeset	4832 MODULE_API DECLARE_DOESNT_RETURN (signal_circular_property_list_error
44905d8fae13 [xemacs-hg @ 2004-02-25 17:42:34 by james] james parents: 1743 diff changeset	4833 (Lisp_Object));
436 080151679be2 Import from CVS: tag r21-2-26 cvs parents: 434 diff changeset	4834
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4835 DECLARE_DOESNT_RETURN (syntax_error (const Ascbyte *reason,
609 13e3d7ae7155 [xemacs-hg @ 2001-06-06 12:34:42 by ben] ben parents: 603 diff changeset	4836 Lisp_Object frob));
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4837 DECLARE_DOESNT_RETURN (syntax_error_2 (const Ascbyte *reason,
609 13e3d7ae7155 [xemacs-hg @ 2001-06-06 12:34:42 by ben] ben parents: 603 diff changeset	4838 Lisp_Object frob1,
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	4839 Lisp_Object frob2));
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4840 void maybe_syntax_error (const Ascbyte *, Lisp_Object, Lisp_Object,
578 190b164ddcac [xemacs-hg @ 2001-05-25 11:26:50 by ben] ben parents: 577 diff changeset	4841 Error_Behavior);
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4842 DECLARE_DOESNT_RETURN (sferror (const Ascbyte *reason, Lisp_Object frob));
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4843 DECLARE_DOESNT_RETURN (sferror_2 (const Ascbyte *reason, Lisp_Object frob1,
563 183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	4844 Lisp_Object frob2));
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4845 void maybe_sferror (const Ascbyte *, Lisp_Object, Lisp_Object,
578 190b164ddcac [xemacs-hg @ 2001-05-25 11:26:50 by ben] ben parents: 577 diff changeset	4846 Error_Behavior);
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4847 MODULE_API DECLARE_DOESNT_RETURN (invalid_argument (const Ascbyte *reason,
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4848 Lisp_Object frob));
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4849 MODULE_API DECLARE_DOESNT_RETURN (invalid_argument_2 (const Ascbyte *reason,
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4850 Lisp_Object frob1,
64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4851 Lisp_Object frob2));
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4852 void maybe_invalid_argument (const Ascbyte *, Lisp_Object, Lisp_Object,
578 190b164ddcac [xemacs-hg @ 2001-05-25 11:26:50 by ben] ben parents: 577 diff changeset	4853 Error_Behavior);
5084 6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	4854 MODULE_API DECLARE_DOESNT_RETURN (invalid_keyword_argument (Lisp_Object fun,
6afe991b8135 Add a PARSE_KEYWORDS macro, use it in #'make-hash-table. Aidan Kehoe <kehoea@parhasard.net> parents: 5077 diff changeset	4855 Lisp_Object kw));
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4856 MODULE_API DECLARE_DOESNT_RETURN (invalid_operation (const Ascbyte *reason,
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4857 Lisp_Object frob));
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4858 MODULE_API DECLARE_DOESNT_RETURN (invalid_operation_2 (const Ascbyte *reason,
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4859 Lisp_Object frob1,
64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4860 Lisp_Object frob2));
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4861 MODULE_API void maybe_invalid_operation (const Ascbyte *, Lisp_Object,
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4862 Lisp_Object, Error_Behavior);
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4863 DECLARE_DOESNT_RETURN (invalid_state (const Ascbyte *reason,
563 183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	4864 Lisp_Object frob));
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4865 DECLARE_DOESNT_RETURN (invalid_state_2 (const Ascbyte *reason,
563 183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	4866 Lisp_Object frob1,
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	4867 Lisp_Object frob2));
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4868 void maybe_invalid_state (const Ascbyte *, Lisp_Object, Lisp_Object,
609 13e3d7ae7155 [xemacs-hg @ 2001-06-06 12:34:42 by ben] ben parents: 603 diff changeset	4869 Error_Behavior);
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4870 DECLARE_DOESNT_RETURN (invalid_change (const Ascbyte *reason,
563 183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	4871 Lisp_Object frob));
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4872 DECLARE_DOESNT_RETURN (invalid_change_2 (const Ascbyte *reason,
563 183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	4873 Lisp_Object frob1,
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	4874 Lisp_Object frob2));
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4875 void maybe_invalid_change (const Ascbyte *, Lisp_Object, Lisp_Object,
609 13e3d7ae7155 [xemacs-hg @ 2001-06-06 12:34:42 by ben] ben parents: 603 diff changeset	4876 Error_Behavior);
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4877 MODULE_API DECLARE_DOESNT_RETURN (invalid_constant (const Ascbyte *reason,
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4878 Lisp_Object frob));
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4879 DECLARE_DOESNT_RETURN (invalid_constant_2 (const Ascbyte *reason,
563 183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	4880 Lisp_Object frob1,
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	4881 Lisp_Object frob2));
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4882 void maybe_invalid_constant (const Ascbyte *, Lisp_Object, Lisp_Object,
578 190b164ddcac [xemacs-hg @ 2001-05-25 11:26:50 by ben] ben parents: 577 diff changeset	4883 Error_Behavior);
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4884 DECLARE_DOESNT_RETURN (wtaerror (const Ascbyte *reason, Lisp_Object frob));
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4885 MODULE_API DECLARE_DOESNT_RETURN (out_of_memory (const Ascbyte *reason,
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	4886 Lisp_Object frob));
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	4887 DECLARE_DOESNT_RETURN (stack_overflow (const Ascbyte *reason,
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	4888 Lisp_Object frob));
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	4889
436 080151679be2 Import from CVS: tag r21-2-26 cvs parents: 434 diff changeset	4890 Lisp_Object signal_void_function_error (Lisp_Object);
080151679be2 Import from CVS: tag r21-2-26 cvs parents: 434 diff changeset	4891 Lisp_Object signal_invalid_function_error (Lisp_Object);
080151679be2 Import from CVS: tag r21-2-26 cvs parents: 434 diff changeset	4892 Lisp_Object signal_wrong_number_of_arguments_error (Lisp_Object, int);
080151679be2 Import from CVS: tag r21-2-26 cvs parents: 434 diff changeset	4893
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4894 Lisp_Object run_hook_with_args_in_buffer (struct buffer , int, Lisp_Object ,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4895 enum run_hooks_condition);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4896 Lisp_Object run_hook_with_args (int, Lisp_Object *, enum run_hooks_condition);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4897 void va_run_hook_with_args (Lisp_Object, int, ...);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4898 void va_run_hook_with_args_in_buffer (struct buffer *, Lisp_Object, int, ...);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4899 Lisp_Object run_hook (Lisp_Object);
1706 9fc738581a9d [xemacs-hg @ 2003-09-22 03:21:12 by james] james parents: 1650 diff changeset	4900 MODULE_API Lisp_Object apply1 (Lisp_Object, Lisp_Object);
9fc738581a9d [xemacs-hg @ 2003-09-22 03:21:12 by james] james parents: 1650 diff changeset	4901 MODULE_API Lisp_Object call0 (Lisp_Object);
9fc738581a9d [xemacs-hg @ 2003-09-22 03:21:12 by james] james parents: 1650 diff changeset	4902 MODULE_API Lisp_Object call1 (Lisp_Object, Lisp_Object);
9fc738581a9d [xemacs-hg @ 2003-09-22 03:21:12 by james] james parents: 1650 diff changeset	4903 MODULE_API Lisp_Object call2 (Lisp_Object, Lisp_Object, Lisp_Object);
9fc738581a9d [xemacs-hg @ 2003-09-22 03:21:12 by james] james parents: 1650 diff changeset	4904 MODULE_API Lisp_Object call3 (Lisp_Object, Lisp_Object, Lisp_Object,
9fc738581a9d [xemacs-hg @ 2003-09-22 03:21:12 by james] james parents: 1650 diff changeset	4905 Lisp_Object);
9fc738581a9d [xemacs-hg @ 2003-09-22 03:21:12 by james] james parents: 1650 diff changeset	4906 MODULE_API Lisp_Object call4 (Lisp_Object, Lisp_Object, Lisp_Object,
9fc738581a9d [xemacs-hg @ 2003-09-22 03:21:12 by james] james parents: 1650 diff changeset	4907 Lisp_Object, Lisp_Object);
9fc738581a9d [xemacs-hg @ 2003-09-22 03:21:12 by james] james parents: 1650 diff changeset	4908 MODULE_API Lisp_Object call5 (Lisp_Object, Lisp_Object, Lisp_Object,
9fc738581a9d [xemacs-hg @ 2003-09-22 03:21:12 by james] james parents: 1650 diff changeset	4909 Lisp_Object, Lisp_Object, Lisp_Object);
9fc738581a9d [xemacs-hg @ 2003-09-22 03:21:12 by james] james parents: 1650 diff changeset	4910 MODULE_API Lisp_Object call6 (Lisp_Object, Lisp_Object, Lisp_Object,
9fc738581a9d [xemacs-hg @ 2003-09-22 03:21:12 by james] james parents: 1650 diff changeset	4911 Lisp_Object, Lisp_Object, Lisp_Object,
9fc738581a9d [xemacs-hg @ 2003-09-22 03:21:12 by james] james parents: 1650 diff changeset	4912 Lisp_Object);
9fc738581a9d [xemacs-hg @ 2003-09-22 03:21:12 by james] james parents: 1650 diff changeset	4913 MODULE_API Lisp_Object call7 (Lisp_Object, Lisp_Object, Lisp_Object,
9fc738581a9d [xemacs-hg @ 2003-09-22 03:21:12 by james] james parents: 1650 diff changeset	4914 Lisp_Object, Lisp_Object, Lisp_Object,
9fc738581a9d [xemacs-hg @ 2003-09-22 03:21:12 by james] james parents: 1650 diff changeset	4915 Lisp_Object, Lisp_Object);
9fc738581a9d [xemacs-hg @ 2003-09-22 03:21:12 by james] james parents: 1650 diff changeset	4916 MODULE_API Lisp_Object call8 (Lisp_Object, Lisp_Object, Lisp_Object,
9fc738581a9d [xemacs-hg @ 2003-09-22 03:21:12 by james] james parents: 1650 diff changeset	4917 Lisp_Object, Lisp_Object, Lisp_Object,
9fc738581a9d [xemacs-hg @ 2003-09-22 03:21:12 by james] james parents: 1650 diff changeset	4918 Lisp_Object, Lisp_Object, Lisp_Object);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4919 Lisp_Object call0_in_buffer (struct buffer *, Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4920 Lisp_Object call1_in_buffer (struct buffer *, Lisp_Object, Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4921 Lisp_Object call2_in_buffer (struct buffer *, Lisp_Object, Lisp_Object,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4922 Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4923 Lisp_Object call3_in_buffer (struct buffer *, Lisp_Object, Lisp_Object,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4924 Lisp_Object, Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4925 Lisp_Object call4_in_buffer (struct buffer *, Lisp_Object, Lisp_Object,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4926 Lisp_Object, Lisp_Object, Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4927 Lisp_Object call5_in_buffer (struct buffer *, Lisp_Object, Lisp_Object,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4928 Lisp_Object, Lisp_Object, Lisp_Object,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4929 Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4930 Lisp_Object call6_in_buffer (struct buffer *, Lisp_Object, Lisp_Object,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4931 Lisp_Object, Lisp_Object, Lisp_Object,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4932 Lisp_Object, Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4933 Lisp_Object eval_in_buffer (struct buffer *, Lisp_Object);
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4934
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4935 struct call_trapping_problems_result
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4936 {
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4937 int caught_error, caught_throw;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4938 Lisp_Object error_conditions, data;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4939 Lisp_Object backtrace;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4940 Lisp_Object thrown_tag;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4941 Lisp_Object thrown_value;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4942 };
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4943
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4944 #define NO_INHIBIT_ERRORS (1<<0)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4945 #define NO_INHIBIT_THROWS (1<<1)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4946 #define INTERNAL_INHIBIT_ERRORS (1<<0)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4947 #define INTERNAL_INHIBIT_THROWS (1<<1)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4948 #define INHIBIT_WARNING_ISSUE (1<<2)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4949 #define ISSUE_WARNINGS_AT_DEBUG_LEVEL (1<<3)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4950 #define INHIBIT_QUIT (1<<4)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4951 #define UNINHIBIT_QUIT (1<<5)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4952 #define INHIBIT_GC (1<<6)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4953 #define INHIBIT_EXISTING_PERMANENT_DISPLAY_OBJECT_DELETION (1<<7)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4954 #define INHIBIT_EXISTING_CODING_SYSTEM_DELETION (1<<8)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4955 #define INHIBIT_EXISTING_CHARSET_DELETION (1<<9)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4956 #define INHIBIT_PERMANENT_DISPLAY_OBJECT_CREATION (1<<10)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4957 #define INHIBIT_CODING_SYSTEM_CREATION (1<<11)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4958 #define INHIBIT_CHARSET_CREATION (1<<12)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4959 #define INHIBIT_EXISTING_BUFFER_TEXT_MODIFICATION (1<<13)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4960 #define INHIBIT_ANY_CHANGE_AFFECTING_REDISPLAY (1<<14)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4961 #define INHIBIT_ENTERING_DEBUGGER (1<<15)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4962 #define CALL_WITH_SUSPENDED_ERRORS (1<<16)
1333 1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben] ben parents: 1318 diff changeset	4963 #define POSTPONE_WARNING_ISSUE (1<<17)
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4964
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4965 enum check_allowed_operation
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4966 {
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4967 OPERATION_DELETE_OBJECT,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4968 OPERATION_CREATE_OBJECT,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4969 OPERATION_MODIFY_BUFFER_TEXT,
1429 969b7290edca [xemacs-hg @ 2003-04-24 05:33:43 by youngs] youngs parents: 1346 diff changeset	4970 OPERATION_MODIFY_OBJECT_PROPERTY
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4971 };
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4972
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4973 int get_inhibit_flags (void);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4974 void check_allowed_operation (int what, Lisp_Object obj, Lisp_Object prop);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4975 void note_object_created (Lisp_Object obj);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4976 void note_object_deleted (Lisp_Object obj);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4977 Lisp_Object call_with_condition_handler (Lisp_Object (*handler) (Lisp_Object,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4978 Lisp_Object,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4979 Lisp_Object),
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4980 Lisp_Object handler_arg,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4981 Lisp_Object (*fun) (Lisp_Object),
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4982 Lisp_Object arg);
1318 b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	4983 int set_trapping_problems_flags (int flags);
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4984 Lisp_Object call_trapping_problems (Lisp_Object warning_class,
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4985 const Ascbyte *warning_string,
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4986 int flags,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4987 struct call_trapping_problems_result
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4988 *problem,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4989 Lisp_Object (fun) (void ),
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4990 void *arg);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4991 Lisp_Object va_call_trapping_problems (Lisp_Object warning_class,
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4992 const Ascbyte *warning_string,
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4993 int flags,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4994 struct call_trapping_problems_result
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4995 *problem,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4996 lisp_fn_t fun, int nargs, ...);
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4997 Lisp_Object call0_trapping_problems (const Ascbyte *, Lisp_Object, int);
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	4998 Lisp_Object call1_trapping_problems (const Ascbyte *, Lisp_Object, Lisp_Object,
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	4999 int);
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	5000 Lisp_Object call2_trapping_problems (const Ascbyte *, Lisp_Object, Lisp_Object,
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	5001 Lisp_Object, int);
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	5002 Lisp_Object call3_trapping_problems (const Ascbyte *, Lisp_Object, Lisp_Object,
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	5003 Lisp_Object, Lisp_Object, int);
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	5004 Lisp_Object call4_trapping_problems (const Ascbyte *, Lisp_Object, Lisp_Object,
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	5005 Lisp_Object, Lisp_Object, Lisp_Object,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	5006 int);
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	5007 Lisp_Object call5_trapping_problems (const Ascbyte *, Lisp_Object, Lisp_Object,
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	5008 Lisp_Object, Lisp_Object, Lisp_Object,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	5009 Lisp_Object, int);
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	5010 Lisp_Object eval_in_buffer_trapping_problems (const Ascbyte , struct buffer ,
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	5011 Lisp_Object, int);
1333 1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben] ben parents: 1318 diff changeset	5012 Lisp_Object run_hook_trapping_problems (Lisp_Object, Lisp_Object, int);
1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben] ben parents: 1318 diff changeset	5013 Lisp_Object safe_run_hook_trapping_problems (Lisp_Object, Lisp_Object, int);
1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben] ben parents: 1318 diff changeset	5014 Lisp_Object run_hook_with_args_in_buffer_trapping_problems (Lisp_Object,
1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben] ben parents: 1318 diff changeset	5015 struct buffer *,
1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben] ben parents: 1318 diff changeset	5016 int nargs,
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	5017 Lisp_Object *args,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	5018 enum
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	5019 run_hooks_condition
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	5020 cond, int flags);
1333 1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben] ben parents: 1318 diff changeset	5021 Lisp_Object run_hook_with_args_trapping_problems (Lisp_Object,
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	5022 int nargs,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	5023 Lisp_Object *args,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	5024 enum run_hooks_condition
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	5025 cond,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	5026 int flags);
1333 1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben] ben parents: 1318 diff changeset	5027 Lisp_Object va_run_hook_with_args_trapping_problems (Lisp_Object,
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	5028 Lisp_Object hook_var,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	5029 int nargs, ...);
1333 1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben] ben parents: 1318 diff changeset	5030 Lisp_Object va_run_hook_with_args_in_buffer_trapping_problems (Lisp_Object,
1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben] ben parents: 1318 diff changeset	5031 struct buffer *,
1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben] ben parents: 1318 diff changeset	5032 Lisp_Object,
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	5033 int nargs, ...);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	5034 Lisp_Object call_with_suspended_errors (lisp_fn_t, Lisp_Object,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	5035 Lisp_Object,
578 190b164ddcac [xemacs-hg @ 2001-05-25 11:26:50 by ben] ben parents: 577 diff changeset	5036 Error_Behavior, int, ...);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5037 /* C Code should be using internal_catch, record_unwind_p, condition_case_1 */
1318 b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben] ben parents: 1315 diff changeset	5038 int proper_redisplay_wrapping_in_place (void);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5039 Lisp_Object internal_catch (Lisp_Object, Lisp_Object (*) (Lisp_Object),
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	5040 Lisp_Object, int * volatile,
2532 989a7680c221 [xemacs-hg @ 2005-01-29 09:15:55 by ben] ben parents: 2526 diff changeset	5041 Lisp_Object * volatile,
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	5042 Lisp_Object * volatile);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5043 Lisp_Object condition_case_1 (Lisp_Object,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5044 Lisp_Object (*) (Lisp_Object),
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5045 Lisp_Object,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5046 Lisp_Object (*) (Lisp_Object, Lisp_Object),
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5047 Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5048 Lisp_Object condition_case_3 (Lisp_Object, Lisp_Object, Lisp_Object);
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	5049 MODULE_API Lisp_Object unbind_to_1 (int, Lisp_Object);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5050 #define unbind_to(obj) unbind_to_1 (obj, Qnil)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5051 void specbind (Lisp_Object, Lisp_Object);
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	5052 MODULE_API int record_unwind_protect (Lisp_Object (*) (Lisp_Object),
64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	5053 Lisp_Object);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5054 int record_unwind_protect_freeing_dynarr (void *ptr);
1333 1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben] ben parents: 1318 diff changeset	5055 int record_unwind_protect_restoring_int (int *addr, int val);
802 19dfb459d51a [xemacs-hg @ 2002-04-03 10:47:37 by ben] ben parents: 801 diff changeset	5056 int internal_bind_int (int *addr, int newval);
19dfb459d51a [xemacs-hg @ 2002-04-03 10:47:37 by ben] ben parents: 801 diff changeset	5057 int internal_bind_lisp_object (Lisp_Object *addr, Lisp_Object newval);
970 0dc7756a58c4 [xemacs-hg @ 2002-08-22 11:31:39 by stephent] stephent parents: 934 diff changeset	5058 void do_autoload (Lisp_Object, Lisp_Object); /* GCPROs both arguments */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5059 Lisp_Object un_autoload (Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5060 void warn_when_safe_lispobj (Lisp_Object, Lisp_Object, Lisp_Object);
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	5061 MODULE_API void warn_when_safe (Lisp_Object, Lisp_Object, const Ascbyte *,
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	5062 ...) PRINTF_ARGS (3, 4);
1292 f3437b56874d [xemacs-hg @ 2003-02-13 09:57:04 by ben] ben parents: 1268 diff changeset	5063 extern int backtrace_with_internal_sections;
5307 c096d8051f89 Have NATNUMP give t for positive bignums; check limits appropriately. Aidan Kehoe <kehoea@parhasard.net> parents: 5280 diff changeset	5064 extern Fixnum Vmultiple_values_limit;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5065
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5066 extern Lisp_Object Qand_optional;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5067 extern Lisp_Object Qand_rest;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5068 extern Lisp_Object Qautoload;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5069 extern Lisp_Object Qcommandp;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5070 extern Lisp_Object Qdefun;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5071 extern Lisp_Object Qexit;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5072 extern Lisp_Object Qinhibit_quit;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5073 extern Lisp_Object Qinteractive;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5074 extern Lisp_Object Qmacro;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5075 extern Lisp_Object Qprogn;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5076 extern Lisp_Object Qrun_hooks;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5077 extern Lisp_Object Qvalues;
4841 3465c3161fea when `debug', abort when lisp error during loadup Ben Wing <ben@xemacs.org> parents: 4805 diff changeset	5078 extern Lisp_Object Vdebug_on_error;
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1292 diff changeset	5079 extern Lisp_Object Vstack_trace_on_error;
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5080 extern Lisp_Object Vautoload_queue;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5081
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5082 extern MODULE_API Lisp_Object Vinhibit_quit, Vquit_flag;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5083
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5084 /* Defined in event-stream.c */
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5085 EXFUN (Faccept_process_output, 3);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5086 EXFUN (Fadd_timeout, 4);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5087 EXFUN (Fdisable_timeout, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5088 EXFUN (Fdiscard_input, 0);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5089 EXFUN (Fdispatch_event, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5090 EXFUN (Fenqueue_eval_event, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5091 EXFUN (Fnext_event, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5092 EXFUN (Fread_key_sequence, 3);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5093 EXFUN (Fsit_for, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5094 EXFUN (Fsleep_for, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5095
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5096 void wait_delaying_user_input (int () (void ), void *);
1268 fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben] ben parents: 1261 diff changeset	5097 int detect_input_pending (int how_many);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5098 void reset_this_command_keys (Lisp_Object, int);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5099 Lisp_Object enqueue_misc_user_event (Lisp_Object, Lisp_Object, Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5100 Lisp_Object enqueue_misc_user_event_pos (Lisp_Object, Lisp_Object,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5101 Lisp_Object, int, int, int, int);
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	5102 extern int modifier_keys_are_sticky;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5103
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5104 extern Lisp_Object Qdisabled;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5105 extern Lisp_Object Qsans_modifiers;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5106 extern Lisp_Object Qself_insert_defer_undo;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5107 extern Lisp_Object Vcontrolling_terminal;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5108 extern Lisp_Object Vcurrent_mouse_event;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5109 extern Lisp_Object Vlast_command;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5110 extern Lisp_Object Vlast_command_char;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5111 extern Lisp_Object Vlast_command_event;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5112 extern Lisp_Object Vlast_input_event;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5113 extern Lisp_Object Vrecent_keys_ring;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5114 extern Lisp_Object Vthis_command_keys;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5115 extern Lisp_Object Vunread_command_event;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5116
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5117 /* Defined in event-Xt.c */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5118 void signal_special_Xt_user_event (Lisp_Object, Lisp_Object, Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5119
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5120
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5121 /* Defined in events.c */
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5122 EXFUN (Fcopy_event, 2);
2862 b95fe16005fd [xemacs-hg @ 2005-07-17 20:08:40 by aidan] aidan parents: 2834 diff changeset	5123 EXFUN (Fevent_to_character, 4);
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5124
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5125 void clear_event_resource (void);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5126 Lisp_Object allocate_event (void);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5127
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5128 EXFUN (Fevent_x_pixel, 1);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5129 EXFUN (Fevent_y_pixel, 1);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5130
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5131 extern Lisp_Object Qevent_live_p;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5132
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5133
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5134 /* Defined in extents.c */
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5135 extern Lisp_Object Qend_open;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5136 extern Lisp_Object Qextent_live_p;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5137 extern Lisp_Object Qstart_open;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5138
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5139 /* Defined in faces.c */
5624 c39052c921b5 New "foreback" face property. Didier Verna <didier@xemacs.org> parents: 5619 diff changeset	5140 extern Lisp_Object Qforeground;
c39052c921b5 New "foreback" face property. Didier Verna <didier@xemacs.org> parents: 5619 diff changeset	5141 extern Lisp_Object Qforeback;
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5142 extern Lisp_Object Qbackground;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5143 extern Lisp_Object Qbackground_pixmap;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5144 extern Lisp_Object Qblinking;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5145 extern Lisp_Object Qdim;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5146 extern Lisp_Object Qdisplay_table;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5147 extern Lisp_Object Qunderline;
5619 75ad4969a16d Replace the 'flush face property with the opposite 'shrink one. Didier Verna <didier@xemacs.org> parents: 5617 diff changeset	5148 extern Lisp_Object Qshrink;
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5149
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5150 /* Defined in file-coding.c */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5151 EXFUN (Fcoding_category_list, 0);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5152 EXFUN (Fcoding_category_system, 1);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5153 EXFUN (Fcoding_priority_list, 0);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5154 EXFUN (Fcoding_system_description, 1);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5155 EXFUN (Fcoding_system_documentation, 1);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5156 EXFUN (Fcoding_system_list, 1);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5157 EXFUN (Fcoding_system_name, 1);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5158 EXFUN (Fcoding_system_p, 1);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5159 EXFUN (Fcoding_system_property, 2);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5160 EXFUN (Fcoding_system_type, 1);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5161 EXFUN (Fcopy_coding_system, 2);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5162 EXFUN (Fdecode_big5_char, 1);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5163 EXFUN (Fdecode_coding_region, 4);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5164 EXFUN (Fdecode_shift_jis_char, 1);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5165 EXFUN (Fdefine_coding_system_alias, 2);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5166 EXFUN (Fdetect_coding_region, 3);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5167 EXFUN (Fdefault_encoding_detection_enabled_p, 0);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5168 EXFUN (Fencode_big5_char, 1);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5169 EXFUN (Fencode_coding_region, 4);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5170 EXFUN (Fencode_shift_jis_char, 1);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5171 EXFUN (Ffind_coding_system, 1);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5172 EXFUN (Fget_coding_system, 1);
4690 257b468bf2ca Move the #'query-coding-region implementation to C. Aidan Kehoe <kehoea@parhasard.net> parents: 4682 diff changeset	5173 EXFUN (Fmake_coding_system_internal, 4);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5174 EXFUN (Fset_coding_category_system, 2);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5175 EXFUN (Fset_coding_priority_list, 1);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5176 EXFUN (Fsubsidiary_coding_system, 2);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5177
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5178 extern Lisp_Object Qshift_jis, Qiso2022, Qbig5, Qccl;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5179 extern Lisp_Object Qcharset_g0;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5180 extern Lisp_Object Qcharset_g1, Qcharset_g2, Qcharset_g3, Qcoding_system_error;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5181 extern Lisp_Object Qcoding_systemp, Qcr, Qcrlf, Qdecode, Qencode;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5182 extern Lisp_Object Qeol_cr, Qeol_crlf, Qeol_lf, Qeol_type, Qescape_quoted;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5183 extern Lisp_Object Qforce_g0_on_output, Qforce_g1_on_output;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5184 extern Lisp_Object Qforce_g2_on_output, Qforce_g3_on_output;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5185 extern Lisp_Object Qinput_charset_conversion, Qlf, Qlock_shift;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5186 extern Lisp_Object Qmnemonic, Qno_ascii_cntl, Qno_ascii_eol;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5187 extern Lisp_Object Qno_conversion, Qraw_text;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5188 extern Lisp_Object Qno_iso6429, Qoutput_charset_conversion;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5189 extern Lisp_Object Qpost_read_conversion, Qpre_write_conversion, Qseven;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5190 extern Lisp_Object Qshort, Vcoding_system_for_read;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5191 extern Lisp_Object Vcoding_system_for_write;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5192 extern Lisp_Object Vfile_name_coding_system, Vkeyboard_coding_system;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5193 extern Lisp_Object Vterminal_coding_system;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5194 extern Lisp_Object Qcanonicalize_after_coding;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5195 int coding_system_is_for_text_file (Lisp_Object coding_system);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5196 Lisp_Object find_coding_system_for_text_file (Lisp_Object name, int eol_wrap);
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	5197 MODULE_API Lisp_Object get_coding_system_for_text_file (Lisp_Object name,
64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	5198 int eol_wrap);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5199 int coding_system_is_binary (Lisp_Object coding_system);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5200
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5201
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5202 /* Defined in fileio.c */
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5203 EXFUN (Fdirectory_file_name, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5204 EXFUN (Fdo_auto_save, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5205 EXFUN (Fexpand_file_name, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5206 EXFUN (Ffile_accessible_directory_p, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5207 EXFUN (Ffile_directory_p, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5208 EXFUN (Ffile_executable_p, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5209 EXFUN (Ffile_exists_p, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5210 EXFUN (Ffile_name_absolute_p, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5211 EXFUN (Ffile_name_as_directory, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5212 EXFUN (Ffile_name_directory, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5213 EXFUN (Ffile_name_nondirectory, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5214 EXFUN (Ffile_readable_p, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5215 EXFUN (Ffile_symlink_p, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5216 EXFUN (Ffile_truename, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5217 EXFUN (Ffind_file_name_handler, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5218 EXFUN (Finsert_file_contents_internal, 7);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5219 EXFUN (Fmake_temp_name, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5220 EXFUN (Fsubstitute_in_file_name, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5221 EXFUN (Funhandled_file_name_directory, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5222 EXFUN (Fverify_visited_file_modtime, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5223
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5224 void record_auto_save (void);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5225 void force_auto_save_soon (void);
563 183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	5226 DECLARE_DOESNT_RETURN (report_error_with_errno (Lisp_Object errtype,
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	5227 const Ascbyte *reason,
563 183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	5228 Lisp_Object data));
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	5229 DECLARE_DOESNT_RETURN (report_file_error (const Ascbyte *, Lisp_Object));
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5230 Lisp_Object lisp_strerror (int);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5231 Lisp_Object expand_and_dir_to_file (Lisp_Object, Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5232 int internal_delete_file (Lisp_Object);
2526 902d5bd9b75c [xemacs-hg @ 2005-01-28 02:36:11 by ben] ben parents: 2516 diff changeset	5233 Ibyte find_end_of_directory_component (const Ibyte path,
902d5bd9b75c [xemacs-hg @ 2005-01-28 02:36:11 by ben] ben parents: 2516 diff changeset	5234 Bytecount len);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5235
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5236 extern Lisp_Object Qfile_name_sans_extension;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5237 extern Lisp_Object Vdirectory_sep_char;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5238
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5239 /* Defined in filelock.c */
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5240 EXFUN (Funlock_buffer, 0);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5241
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5242 void lock_file (Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5243 void unlock_file (Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5244 void unlock_all_files (void);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5245 void unlock_buffer (struct buffer *);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5246
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5247 /* Defined in floatfns.c */
4678 b5e1d4f6b66f Make #'floor, #'ceiling, #'round, #'truncate conform to Common Lisp. Aidan Kehoe <kehoea@parhasard.net> parents: 4677 diff changeset	5248 EXFUN (Ftruncate, 2);
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5249
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5250 double extract_float (Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5251
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5252 /* Defined in fns.c */
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	5253 MODULE_API EXFUN (Fappend, MANY);
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5254 EXFUN (Fassoc, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5255 EXFUN (Fassq, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5256 EXFUN (Fcanonicalize_lax_plist, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5257 EXFUN (Fcanonicalize_plist, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5258 EXFUN (Fcheck_valid_plist, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5259 EXFUN (Fconcat, MANY);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5260 EXFUN (Fcopy_alist, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5261 EXFUN (Fcopy_list, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5262 EXFUN (Fcopy_sequence, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5263 EXFUN (Fcopy_tree, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5264 EXFUN (Fdestructive_alist_to_plist, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5265 EXFUN (Felt, 2);
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	5266 MODULE_API EXFUN (Fequal, 2);
64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	5267 MODULE_API EXFUN (Fget, 3);
4906 6ef8256a020a implement equalp in C, fix case-folding, add equal() method for keymaps Ben Wing <ben@xemacs.org> parents: 4888 diff changeset	5268 MODULE_API EXFUN (Feqlsign, MANY);
6ef8256a020a implement equalp in C, fix case-folding, add equal() method for keymaps Ben Wing <ben@xemacs.org> parents: 4888 diff changeset	5269 MODULE_API EXFUN (Fequalp, 2);
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5270 EXFUN (Flast, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5271 EXFUN (Flax_plist_get, 3);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5272 EXFUN (Flax_plist_remprop, 2);
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	5273 MODULE_API EXFUN (Flength, 1);
5607 1a507c4c6c42 Refactor out sequence-oriented builtins from fns.c to the new sequence.c. Aidan Kehoe <kehoea@parhasard.net> parents: 5583 diff changeset	5274 EXFUN (Flist_length, 1);
4995 8431b52e43b1 Move the various map* functions to C; add #'map-into. Aidan Kehoe <kehoea@parhasard.net> parents: 4888 diff changeset	5275 EXFUN (FmapcarX, MANY);
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5276 EXFUN (Fmember, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5277 EXFUN (Fmemq, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5278 EXFUN (Fnconc, MANY);
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	5279 MODULE_API EXFUN (Fnreverse, 1);
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5280 EXFUN (Fnthcdr, 2);
5506 b0d87f92e60b Complete support for macro-declaration-function, bytecomp{,-runtime}.el Aidan Kehoe <kehoea@parhasard.net> parents: 5475 diff changeset	5281 EXFUN (Fnth, 2);
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5282 EXFUN (Fold_assq, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5283 EXFUN (Fold_equal, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5284 EXFUN (Fold_member, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5285 EXFUN (Fold_memq, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5286 EXFUN (Fplist_get, 3);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5287 EXFUN (Fplist_member, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5288 EXFUN (Fplist_put, 3);
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	5289 MODULE_API EXFUN (Fprovide, 1);
64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	5290 MODULE_API EXFUN (Fput, 3);
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5291 EXFUN (Frassq, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5292 EXFUN (Freplace_list, 2);
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	5293 MODULE_API EXFUN (Freverse, 1);
1268 fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben] ben parents: 1261 diff changeset	5294 EXFUN (Fsafe_length, 1);
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5295 EXFUN (Fstring_equal, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5296 EXFUN (Fstring_lessp, 2);
5089 99f8ebc082d9 Make #'substring an alias of #'subseq; give the latter the byte code. Aidan Kehoe <kehoea@parhasard.net> parents: 5084 diff changeset	5297 EXFUN (Fsubseq, 3);
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5298 EXFUN (Fvalid_plist_p, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5299
5560 58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5300 extern Boolint check_eq_nokey (Lisp_Object, Lisp_Object, Lisp_Object,
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5301 Lisp_Object);
5350 94bbd4792049 Have #'sort, #'merge use the same test approach as functions from cl-seq.el Aidan Kehoe <kehoea@parhasard.net>* parents: 5348 diff changeset	5302 extern Boolint check_lss_key_car (Lisp_Object, Lisp_Object, Lisp_Object,
94bbd4792049 Have #'sort, #'merge use the same test approach as functions from cl-seq.el Aidan Kehoe <kehoea@parhasard.net>* parents: 5348 diff changeset	5303 Lisp_Object);
94bbd4792049 Have #'sort, #'merge use the same test approach as functions from cl-seq.el Aidan Kehoe <kehoea@parhasard.net>* parents: 5348 diff changeset	5304 extern Boolint check_string_lessp_nokey (Lisp_Object, Lisp_Object,
94bbd4792049 Have #'sort, #'merge use the same test approach as functions from cl-seq.el Aidan Kehoe <kehoea@parhasard.net>* parents: 5348 diff changeset	5305 Lisp_Object, Lisp_Object);
94bbd4792049 Have #'sort, #'merge use the same test approach as functions from cl-seq.el Aidan Kehoe <kehoea@parhasard.net>* parents: 5348 diff changeset	5306
94bbd4792049 Have #'sort, #'merge use the same test approach as functions from cl-seq.el Aidan Kehoe <kehoea@parhasard.net>* parents: 5348 diff changeset	5307 typedef Boolint (*check_test_func_t) (Lisp_Object test, Lisp_Object key,
94bbd4792049 Have #'sort, #'merge use the same test approach as functions from cl-seq.el Aidan Kehoe <kehoea@parhasard.net>* parents: 5348 diff changeset	5308 Lisp_Object item, Lisp_Object elt);
94bbd4792049 Have #'sort, #'merge use the same test approach as functions from cl-seq.el Aidan Kehoe <kehoea@parhasard.net>* parents: 5348 diff changeset	5309
5560 58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5310 typedef struct
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5311 {
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5312 Lisp_Object number_table;
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5313 Lisp_Object new_;
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5314 Lisp_Object old;
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5315 Lisp_Object current_object;
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5316 Boolint test_not_unboundp;
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5317 } nsubst_structures_info_t;
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5318
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5319 Lisp_Object nsubst_structures (Lisp_Object new_, Lisp_Object old,
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5320 Lisp_Object tree, check_test_func_t check_test,
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5321 Boolint test_not_unboundp,
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5322 Lisp_Object test, Lisp_Object key);
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5323
5182 2e528066e2fc Move #'sort, #'fill, #'merge to C from cl-seq.el. Aidan Kehoe <kehoea@parhasard.net>* parents: 5181 diff changeset	5324 Lisp_Object list_merge (Lisp_Object org_l1, Lisp_Object org_l2,
5350 94bbd4792049 Have #'sort, #'merge use the same test approach as functions from cl-seq.el Aidan Kehoe <kehoea@parhasard.net>* parents: 5348 diff changeset	5325 check_test_func_t check_merge,
5182 2e528066e2fc Move #'sort, #'fill, #'merge to C from cl-seq.el. Aidan Kehoe <kehoea@parhasard.net>* parents: 5181 diff changeset	5326 Lisp_Object predicate, Lisp_Object key_func);
2e528066e2fc Move #'sort, #'fill, #'merge to C from cl-seq.el. Aidan Kehoe <kehoea@parhasard.net>* parents: 5181 diff changeset	5327 Lisp_Object list_sort (Lisp_Object list,
5350 94bbd4792049 Have #'sort, #'merge use the same test approach as functions from cl-seq.el Aidan Kehoe <kehoea@parhasard.net>* parents: 5348 diff changeset	5328 check_test_func_t check_merge,
5182 2e528066e2fc Move #'sort, #'fill, #'merge to C from cl-seq.el. Aidan Kehoe <kehoea@parhasard.net>* parents: 5181 diff changeset	5329 Lisp_Object predicate, Lisp_Object key_func);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5330
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5331 void bump_string_modiff (Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5332 Lisp_Object memq_no_quit (Lisp_Object, Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5333 Lisp_Object assoc_no_quit (Lisp_Object, Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5334 Lisp_Object assq_no_quit (Lisp_Object, Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5335 Lisp_Object rassq_no_quit (Lisp_Object, Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5336 Lisp_Object delq_no_quit (Lisp_Object, Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5337 Lisp_Object delq_no_quit_and_free_cons (Lisp_Object, Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5338 Lisp_Object remassoc_no_quit (Lisp_Object, Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5339 Lisp_Object remassq_no_quit (Lisp_Object, Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5340 Lisp_Object remrassq_no_quit (Lisp_Object, Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5341
4906 6ef8256a020a implement equalp in C, fix case-folding, add equal() method for keymaps Ben Wing <ben@xemacs.org> parents: 4888 diff changeset	5342 int plists_differ (Lisp_Object, Lisp_Object, int, int, int, int);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5343 Lisp_Object internal_plist_get (Lisp_Object, Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5344 void internal_plist_put (Lisp_Object *, Lisp_Object, Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5345 int internal_remprop (Lisp_Object *, Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5346 Lisp_Object external_plist_get (Lisp_Object *, Lisp_Object,
578 190b164ddcac [xemacs-hg @ 2001-05-25 11:26:50 by ben] ben parents: 577 diff changeset	5347 int, Error_Behavior);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5348 void external_plist_put (Lisp_Object *, Lisp_Object,
578 190b164ddcac [xemacs-hg @ 2001-05-25 11:26:50 by ben] ben parents: 577 diff changeset	5349 Lisp_Object, int, Error_Behavior);
190b164ddcac [xemacs-hg @ 2001-05-25 11:26:50 by ben] ben parents: 577 diff changeset	5350 int external_remprop (Lisp_Object *, Lisp_Object, int, Error_Behavior);
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	5351 int internal_equal_trapping_problems (Lisp_Object warning_class,
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	5352 const Ascbyte *warning_string,
853 2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	5353 int flags,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	5354 struct call_trapping_problems_result *p,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	5355 int retval,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	5356 Lisp_Object obj1, Lisp_Object obj2,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben] ben parents: 851 diff changeset	5357 int depth);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5358 int internal_equal (Lisp_Object, Lisp_Object, int);
801 2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben] ben parents: 800 diff changeset	5359 int internal_equalp (Lisp_Object obj1, Lisp_Object obj2, int depth);
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	5360 Lisp_Object MODULE_API concat2 (Lisp_Object, Lisp_Object);
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	5361 Lisp_Object MODULE_API concat3 (Lisp_Object, Lisp_Object, Lisp_Object);
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	5362 Lisp_Object MODULE_API vconcat2 (Lisp_Object, Lisp_Object);
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	5363 Lisp_Object MODULE_API vconcat3 (Lisp_Object, Lisp_Object, Lisp_Object);
19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	5364 Lisp_Object MODULE_API nconc2 (Lisp_Object, Lisp_Object);
4906 6ef8256a020a implement equalp in C, fix case-folding, add equal() method for keymaps Ben Wing <ben@xemacs.org> parents: 4888 diff changeset	5365 int internal_equal_0 (Lisp_Object, Lisp_Object, int, int);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5366 Lisp_Object bytecode_nconc2 (Lisp_Object *);
4910 6bc1f3f6cf0d Make canoncase visible to Lisp; use it with chars in internal_equalp. Aidan Kehoe <kehoea@parhasard.net> parents: 4906 diff changeset	5367 int bytecode_arithcompare (Lisp_Object obj1, Lisp_Object obj2);
5000 44d7bde26046 fix compile errors, fix revert-buffer bug on binary/Latin 1 files, Mule-ize some files Ben Wing <ben@xemacs.org> parents: 4982 diff changeset	5368 void check_losing_bytecode (const Ascbyte *, Lisp_Object);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5369
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5370 Lisp_Object add_suffix_to_symbol (Lisp_Object symbol,
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	5371 const Ascbyte *ascii_string);
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	5372 Lisp_Object add_prefix_to_symbol (const Ascbyte *ascii_string,
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5373 Lisp_Object symbol);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5374
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5375 extern Lisp_Object Qidentity;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5376 extern Lisp_Object Qstring_lessp;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5377 extern Lisp_Object Qyes_or_no_p;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5378 extern Lisp_Object Vfeatures;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5379
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5380 /* Defined in frame.c */
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5381 extern Lisp_Object Qframe_live_p;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5382
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5383 /* Defined in free-hook.c */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5384 EXFUN (Freally_free, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5385
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5386 /* Defined in general.c */
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5387 #define SYMBOL(fou) extern Lisp_Object fou
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5388 #define SYMBOL_MODULE_API(fou) extern MODULE_API Lisp_Object fou
5320 31be2a3d121d Move Qcount, Q_default, Q_test to general-slots.h; add SYMBOL_KEYWORD_GENERAL() Aidan Kehoe <kehoea@parhasard.net> parents: 5307 diff changeset	5389 #define SYMBOL_KEYWORD(la_cle_est_folle) extern Lisp_Object la_cle_est_folle
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5390 #define SYMBOL_GENERAL(tout_le_monde, est_fou) \
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5391 extern Lisp_Object tout_le_monde
5320 31be2a3d121d Move Qcount, Q_default, Q_test to general-slots.h; add SYMBOL_KEYWORD_GENERAL() Aidan Kehoe <kehoea@parhasard.net> parents: 5307 diff changeset	5392 #define SYMBOL_KEYWORD_GENERAL(y_compris_ben, mais_que_peut_on_faire) \
31be2a3d121d Move Qcount, Q_default, Q_test to general-slots.h; add SYMBOL_KEYWORD_GENERAL() Aidan Kehoe <kehoea@parhasard.net> parents: 5307 diff changeset	5393 extern Lisp_Object y_compris_ben
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5394
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5395 #include "general-slots.h"
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5396
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5397 #undef SYMBOL
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5398 #undef SYMBOL_MODULE_API
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5399 #undef SYMBOL_KEYWORD
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5400 #undef SYMBOL_GENERAL
5320 31be2a3d121d Move Qcount, Q_default, Q_test to general-slots.h; add SYMBOL_KEYWORD_GENERAL() Aidan Kehoe <kehoea@parhasard.net> parents: 5307 diff changeset	5401 #undef SYMBOL_KEYWORD_GENERAL
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5402
5191 71ee43b8a74d Add #'equalp as a hash test by default; add #'define-hash-table-test, GNU API Aidan Kehoe <kehoea@parhasard.net> parents: 5190 diff changeset	5403 extern Lisp_Object Qeq;
71ee43b8a74d Add #'equalp as a hash test by default; add #'define-hash-table-test, GNU API Aidan Kehoe <kehoea@parhasard.net> parents: 5190 diff changeset	5404 extern Lisp_Object Qeql;
71ee43b8a74d Add #'equalp as a hash test by default; add #'define-hash-table-test, GNU API Aidan Kehoe <kehoea@parhasard.net> parents: 5190 diff changeset	5405 extern Lisp_Object Qequal;
71ee43b8a74d Add #'equalp as a hash test by default; add #'define-hash-table-test, GNU API Aidan Kehoe <kehoea@parhasard.net> parents: 5190 diff changeset	5406 extern Lisp_Object Qequalp;
71ee43b8a74d Add #'equalp as a hash test by default; add #'define-hash-table-test, GNU API Aidan Kehoe <kehoea@parhasard.net> parents: 5190 diff changeset	5407
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5408 /* Defined in glyphs.c */
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5409 EXFUN (Fmake_glyph_internal, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5410
578 190b164ddcac [xemacs-hg @ 2001-05-25 11:26:50 by ben] ben parents: 577 diff changeset	5411 Error_Behavior decode_error_behavior_flag (Lisp_Object);
190b164ddcac [xemacs-hg @ 2001-05-25 11:26:50 by ben] ben parents: 577 diff changeset	5412 Lisp_Object encode_error_behavior_flag (Error_Behavior);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5413
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5414 extern Lisp_Object Qbuffer_glyph_p;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5415 extern Lisp_Object Qcolor_pixmap_image_instance_p;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5416 extern Lisp_Object Qicon_glyph_p;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5417 extern Lisp_Object Qmono_pixmap_image_instance_p;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5418 extern Lisp_Object Qnothing_image_instance_p;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5419 extern Lisp_Object Qpointer_glyph_p;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5420 extern Lisp_Object Qpointer_image_instance_p;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5421 extern Lisp_Object Qsubwindow;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5422 extern Lisp_Object Qsubwindow_image_instance_p;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5423 extern Lisp_Object Qtext_image_instance_p;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5424
563 183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	5425 /* Defined in glyphs-shared.c */
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	5426 void shared_resource_validate (Lisp_Object instantiator);
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	5427 Lisp_Object shared_resource_normalize (Lisp_Object inst,
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	5428 Lisp_Object console_type,
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	5429 Lisp_Object dest_mask,
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	5430 Lisp_Object tag);
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	5431 extern Lisp_Object Q_resource_type, Q_resource_id;
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	5432
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5433 /* Defined in glyphs-widget.c */
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5434 extern Lisp_Object Qlayout;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5435 extern Lisp_Object Qnative_layout;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5436
563 183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	5437 /* Defined in gui.c */
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	5438 DECLARE_DOESNT_RETURN (gui_error (const Ascbyte *reason,
563 183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben] ben parents: 545 diff changeset	5439 Lisp_Object frob));
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	5440 DECLARE_DOESNT_RETURN (gui_error_2 (const Ascbyte *reason,
569 9cdcb214753f [xemacs-hg @ 2001-05-24 12:20:33 by yoshiki] yoshiki parents: 563 diff changeset	5441 Lisp_Object frob0, Lisp_Object frob1));
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5442 extern Lisp_Object Qgui_error;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5443
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5444 /* Defined in indent.c */
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5445 EXFUN (Findent_to, 3);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5446 EXFUN (Fvertical_motion, 3);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5447
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5448 int byte_spaces_at_point (struct buffer *, Bytebpos);
665 fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben] ben parents: 647 diff changeset	5449 int column_at_point (struct buffer *, Charbpos, int);
793 e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	5450 int string_column_at_point (Lisp_Object, Charbpos, int);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5451 int current_column (struct buffer *);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5452 void invalidate_current_column (void);
665 fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben] ben parents: 647 diff changeset	5453 Charbpos vmotion (struct window , Charbpos, int, int );
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben] ben parents: 647 diff changeset	5454 Charbpos vmotion_pixels (Lisp_Object, Charbpos, int, int, int *);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5455
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5456 /* Defined in insdel.c */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5457 void set_buffer_point (struct buffer *buf, Charbpos pos, Bytebpos bipos);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5458
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5459 /* Defined in intl.c */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5460 EXFUN (Fgettext, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5461
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5462 /* Defined in keymap.c */
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5463 EXFUN (Fdefine_key, 3);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5464 EXFUN (Fkey_description, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5465 EXFUN (Flookup_key, 3);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5466 EXFUN (Fmake_sparse_keymap, 1);
5529 3d1f8f0e690f Add `function-key-map-parent', for non-console-specific `function-key-map' bindings Aidan Kehoe <kehoea@parhasard.net> parents: 5506 diff changeset	5467 EXFUN (Fset_keymap_parents, 2);
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5468
793 e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben] ben parents: 788 diff changeset	5469 void where_is_to_char (Lisp_Object, Eistring *);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5470
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5471 /* Defined in lread.c */
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5472 EXFUN (Fread, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5473
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5474 void ebolify_bytecode_constants (Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5475 void close_load_descs (void);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5476 int locate_file (Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object *, int);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5477 EXFUN (Flocate_file_clear_hashing, 1);
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	5478 int isfloat_string (const char *);
1983 9c872f33ecbe [xemacs-hg @ 2004-04-05 22:49:31 by james] james parents: 1957 diff changeset	5479 int isratio_string (const char *);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5480
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5481 /* Well, I've decided to enable this. -- ben */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5482 /* And I've decided to make it work right. -- sb */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5483 #define LOADHIST
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5484 /* Define the following symbol to enable load history of dumped files */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5485 #define LOADHIST_DUMPED
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5486 /* Define the following symbol to enable load history of C source */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5487 #define LOADHIST_BUILTIN
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5488
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5489 #ifdef LOADHIST /* this is just a stupid idea */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5490 #define LOADHIST_ATTACH(x) \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5491 do { if (initialized) Vcurrent_load_list = Fcons (x, Vcurrent_load_list); } \
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5492 while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5493 #else /! LOADHIST /
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5494 # define LOADHIST_ATTACH(x)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5495 #endif /! LOADHIST /
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5496
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5497 extern Lisp_Object Qfeaturep;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5498 extern Lisp_Object Qload;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5499 extern Lisp_Object Qread_char;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5500 extern Lisp_Object Qstandard_input;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5501 extern Lisp_Object Vcurrent_load_list;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5502 extern Lisp_Object Vfile_domain;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5503 extern Lisp_Object Vload_file_name_internal;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5504 extern Lisp_Object Vload_history;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5505 extern Lisp_Object Vload_path;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5506 extern Lisp_Object Vstandard_input;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5507
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5508 /* Defined in macros.c */
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5509 EXFUN (Fexecute_kbd_macro, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5510
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5511 extern Lisp_Object Vexecuting_macro;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5512
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5513 /* Defined in marker.c */
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5514 EXFUN (Fcopy_marker, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5515 EXFUN (Fmake_marker, 0);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5516 EXFUN (Fmarker_buffer, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5517 EXFUN (Fmarker_position, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5518 EXFUN (Fset_marker, 3);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5519 EXFUN (Fset_marker_insertion_type, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5520
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5521 Bytebpos byte_marker_position (Lisp_Object);
665 fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben] ben parents: 647 diff changeset	5522 Charbpos marker_position (Lisp_Object);
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5523 void set_byte_marker_position (Lisp_Object, Bytebpos);
665 fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben] ben parents: 647 diff changeset	5524 void set_marker_position (Lisp_Object, Charbpos);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5525 void unchain_marker (Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5526 Lisp_Object noseeum_copy_marker (Lisp_Object, Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5527 Lisp_Object set_marker_restricted (Lisp_Object, Lisp_Object, Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5528 #ifdef MEMORY_USAGE_STATS
5170 5ddbab03b0e6 various fixes to memory-usage stats Ben Wing <ben@xemacs.org> parents: 5169 diff changeset	5529 Bytecount compute_buffer_marker_usage (struct buffer *b);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5530 #endif
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5531 void init_buffer_markers (struct buffer *b);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5532 void uninit_buffer_markers (struct buffer *b);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5533
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5534 /* Defined in menubar.c */
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5535 extern Lisp_Object Qactivate_menubar_hook;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5536 extern Lisp_Object Qcurrent_menubar;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5537 extern Lisp_Object Vactivate_menubar_hook;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5538 extern Lisp_Object Vblank_menubar;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5539 extern Lisp_Object Vmenubar_configuration;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5540
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5541 /* Defined in minibuf.c */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5542 extern int minibuf_level;
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5543 Charcount scmp_1 (const Ibyte , const Ibyte , Charcount, int);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5544 #define scmp(s1, s2, len) scmp_1 (s1, s2, len, completion_ignore_case)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5545 extern int completion_ignore_case;
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5546 int regexp_ignore_completion_p (const Ibyte *, Lisp_Object,
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5547 Bytecount, Bytecount);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5548 Lisp_Object clear_echo_area (struct frame *, Lisp_Object, int);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5549 Lisp_Object clear_echo_area_from_print (struct frame *, Lisp_Object, int);
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5550 void echo_area_append (struct frame , const Ibyte , Lisp_Object,
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5551 Bytecount, Bytecount, Lisp_Object);
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5552 void echo_area_message (struct frame , const Ibyte , Lisp_Object,
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5553 Bytecount, Bytecount, Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5554 Lisp_Object echo_area_status (struct frame *);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5555 int echo_area_active (struct frame *);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5556 Lisp_Object echo_area_contents (struct frame *);
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5557 void message_internal (const Ibyte *, Lisp_Object, Bytecount, Bytecount);
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5558 void message_append_internal (const Ibyte *, Lisp_Object,
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5559 Bytecount, Bytecount);
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	5560 MODULE_API void message (const char *, ...) PRINTF_ARGS (1, 2);
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	5561 void message_append (const char *, ...) PRINTF_ARGS (1, 2);
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	5562 void message_no_translate (const char *, ...) PRINTF_ARGS (1, 2);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5563 void clear_message (void);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5564
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5565 extern Lisp_Object Qcompletion_ignore_case;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5566 extern Lisp_Object Vecho_area_buffer;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5567 extern Lisp_Object Vminibuf_preprompt;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5568 extern Lisp_Object Vminibuf_prompt;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5569 extern Lisp_Object Vminibuffer_zero;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5570
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5571 /* Defined in mule-charset.c */
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5572 EXFUN (Fmake_charset, 3);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5573
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5574 extern Lisp_Object Ql2r, Qr2l;
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5575 extern Lisp_Object Qdirection;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5576 extern Lisp_Object Qfinal;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5577 extern Lisp_Object Qgraphic;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5578 extern Lisp_Object Qlong_name;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5579 extern Lisp_Object Qregistries;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5580 extern Lisp_Object Qreverse_direction_charset;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5581 extern Lisp_Object Qshort_name;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5582
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5583 /* Defined in nt.c */
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5584 extern Lisp_Object Vmswindows_get_true_file_attributes;
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5585
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5586 /* Defined in print.c */
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5587 EXFUN (Fdisplay_error, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5588 EXFUN (Ferror_message_string, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5589 EXFUN (Fprin1, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5590 EXFUN (Fprin1_to_string, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5591 EXFUN (Fprinc, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5592 EXFUN (Fprint, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5593
4394 cacc942c0d0f Avoid clearing print-gensym-alist inappropriately when printing hash tables. Aidan Kehoe <kehoea@parhasard.net> parents: 4355 diff changeset	5594 Lisp_Object prin1_to_string (Lisp_Object, int);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5595
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5596 /* Lower-level ways to output data: */
3085 d9ca850d40de [xemacs-hg @ 2005-11-22 09:02:37 by crestani] crestani parents: 3063 diff changeset	5597 void default_object_printer (Lisp_Object, Lisp_Object, int);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5598 void print_internal (Lisp_Object, Lisp_Object, int);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5599 void debug_print (Lisp_Object);
1204 e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	5600 void debug_p4 (Lisp_Object obj);
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	5601 void debug_p3 (Lisp_Object obj);
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	5602 void debug_short_backtrace (int);
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	5603 void debug_backtrace (void);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5604 /* NOTE: Do not call this with the data of a Lisp_String. Use princ.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5605 * Note: stream should be defaulted before calling
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5606 * (eg Qnil means stdout, not Vstandard_output, etc) */
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	5607 MODULE_API void write_istring (Lisp_Object stream, const Ibyte *str);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5608 /* Same goes for this function. */
4953 304aebb79cd3 function renamings to track names of char typedefs Ben Wing <ben@xemacs.org> parents: 4952 diff changeset	5609 MODULE_API void write_cistring (Lisp_Object stream, const CIbyte *str);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5610 /* Same goes for this function. */
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4932 diff changeset	5611 MODULE_API void write_ascstring (Lisp_Object stream, const Ascbyte *str);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5612 /* Same goes for this function. */
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5613 void write_string_1 (Lisp_Object stream, const Ibyte *str, Bytecount size);
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5614 void write_eistring (Lisp_Object stream, const Eistring *ei);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5615
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5616 /* Higher-level (printf-style) ways to output data: */
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	5617 MODULE_API void write_fmt_string (Lisp_Object stream, const CIbyte *fmt, ...);
64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	5618 MODULE_API void write_fmt_string_lisp (Lisp_Object stream, const CIbyte *fmt,
64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	5619 int nargs, ...);
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5620 void stderr_out (const CIbyte *, ...) PRINTF_ARGS (1, 2);
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5621 void stderr_out_lisp (const CIbyte *, int nargs, ...);
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5622 void stdout_out (const CIbyte *, ...) PRINTF_ARGS (1, 2);
1346 01c57eb70ae9 [xemacs-hg @ 2003-03-09 02:27:27 by ben] ben parents: 1333 diff changeset	5623 void external_out (int dest, const CIbyte *fmt, ...) PRINTF_ARGS (2, 3);
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5624 void debug_out (const CIbyte *, ...) PRINTF_ARGS (1, 2);
5189 b65692aa90d8 Cosmetic XFT-code fixes, some variable renamings Ben Wing <ben@xemacs.org> parents: 5181 diff changeset	5625 void debug_out_lisp (const CIbyte *, int nargs, ...);
1743 543769b89fed [xemacs-hg @ 2003-10-14 05:02:57 by james] james parents: 1726 diff changeset	5626 DECLARE_DOESNT_RETURN (fatal (const CIbyte *, ...)) PRINTF_ARGS(1, 2);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5627
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5628 /* Internal functions: */
1261 465bd3c7d932 [xemacs-hg @ 2003-02-06 06:35:47 by ben] ben parents: 1204 diff changeset	5629 Lisp_Object canonicalize_printcharfun (Lisp_Object printcharfun);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5630 void temp_output_buffer_setup (Lisp_Object);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5631 void temp_output_buffer_show (Lisp_Object, Lisp_Object);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5632 void print_cons (Lisp_Object, Lisp_Object, int);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5633 void print_vector (Lisp_Object, Lisp_Object, int);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5634 void print_string (Lisp_Object, Lisp_Object, int);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5635 void print_symbol (Lisp_Object, Lisp_Object, int);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5636 void print_float (Lisp_Object, Lisp_Object, int);
603 1c880911c386 [xemacs-hg @ 2001-06-01 08:23:09 by martinb] martinb parents: 593 diff changeset	5637 /* The number of bytes required to store the decimal printed
1c880911c386 [xemacs-hg @ 2001-06-01 08:23:09 by martinb] martinb parents: 593 diff changeset	5638 representation of an integral type. Add a few bytes for truncation,
1c880911c386 [xemacs-hg @ 2001-06-01 08:23:09 by martinb] martinb parents: 593 diff changeset	5639 optional sign prefix, and null byte terminator.
614 42bfaea76395 [xemacs-hg @ 2001-06-11 01:55:26 by martinb] martinb parents: 611 diff changeset	5640 2.40824 == log (256) / log (10).
42bfaea76395 [xemacs-hg @ 2001-06-11 01:55:26 by martinb] martinb parents: 611 diff changeset	5641
42bfaea76395 [xemacs-hg @ 2001-06-11 01:55:26 by martinb] martinb parents: 611 diff changeset	5642 We don't use floating point since Sun cc (buggily?) cannot use
42bfaea76395 [xemacs-hg @ 2001-06-11 01:55:26 by martinb] martinb parents: 611 diff changeset	5643 floating point computations to define a compile-time integral
42bfaea76395 [xemacs-hg @ 2001-06-11 01:55:26 by martinb] martinb parents: 611 diff changeset	5644 constant. */
603 1c880911c386 [xemacs-hg @ 2001-06-01 08:23:09 by martinb] martinb parents: 593 diff changeset	5645 #define DECIMAL_PRINT_SIZE(integral_type) \
614 42bfaea76395 [xemacs-hg @ 2001-06-11 01:55:26 by martinb] martinb parents: 611 diff changeset	5646 (((2410824 * sizeof (integral_type)) / 1000000) + 3)
577 910449c92002 [xemacs-hg @ 2001-05-25 10:04:26 by hrvojen] hrvojen parents: 569 diff changeset	5647 void long_to_string (char *, long);
4329 d9eb5ea14f65 Provide %b in #'format; use it for converting between ints and bit vectors. Aidan Kehoe <kehoea@parhasard.net> parents: 4134 diff changeset	5648 void ulong_to_bit_string (char *, unsigned long);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5649 extern int print_escape_newlines;
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	5650 extern MODULE_API int print_readably;
4880 ae81a2c00f4f try harder to avoid crashing when debug-printing Ben Wing <ben@xemacs.org> parents: 4854 diff changeset	5651 extern int in_debug_print;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5652 Lisp_Object internal_with_output_to_temp_buffer (Lisp_Object,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5653 Lisp_Object (*) (Lisp_Object),
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5654 Lisp_Object, Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5655 void float_to_string (char *, double);
5118 e0db3c197671 merge up to latest default branch, doesn't compile yet Ben Wing <ben@xemacs.org> parents: 5117 4744 diff changeset	5656 void internal_object_printer (Lisp_Object obj, Lisp_Object printcharfun,
e0db3c197671 merge up to latest default branch, doesn't compile yet Ben Wing <ben@xemacs.org> parents: 5117 4744 diff changeset	5657 int UNUSED (escapeflag));
5117 3742ea8250b5 Checking in final CVS version of workspace 'ben-lisp-object' Ben Wing <ben@xemacs.org> parents: 3063 diff changeset	5658 void external_object_printer (Lisp_Object obj, Lisp_Object printcharfun,
3742ea8250b5 Checking in final CVS version of workspace 'ben-lisp-object' Ben Wing <ben@xemacs.org> parents: 3063 diff changeset	5659 int UNUSED (escapeflag));
5142 f965e31a35f0 reduce lcrecord headers to 2 words, rename printing_unreadable_object Ben Wing <ben@xemacs.org> parents: 5128 diff changeset	5660 MODULE_API DECLARE_DOESNT_RETURN (printing_unreadable_object_fmt (const CIbyte *,
4846 a98ca4640147 clean up object print methods Ben Wing <ben@xemacs.org> parents: 4844 diff changeset	5661 ...))
a98ca4640147 clean up object print methods Ben Wing <ben@xemacs.org> parents: 4844 diff changeset	5662 PRINTF_ARGS (1, 2);
5142 f965e31a35f0 reduce lcrecord headers to 2 words, rename printing_unreadable_object Ben Wing <ben@xemacs.org> parents: 5128 diff changeset	5663 DECLARE_DOESNT_RETURN (printing_unreadable_lisp_object (Lisp_Object obj,
4846 a98ca4640147 clean up object print methods Ben Wing <ben@xemacs.org> parents: 4844 diff changeset	5664 const Ibyte *name));
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5665
5560 58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5666 #define PRINT_PREPROCESS(obj, print_number_table, seen_object_count) \
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5667 do if (LRECORDP (obj) \
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5668 && XRECORD_LHEADER_IMPLEMENTATION (obj)->print_preprocess) \
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5669 { \
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5670 print_preprocess (obj, print_number_table, seen_object_count); \
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5671 } while (0)
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5672
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5673 typedef struct { Lisp_Object table; Elemcount *count; } preprocess_info_t;
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5674
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5675 void print_preprocess (Lisp_Object obj, Lisp_Object print_number_table,
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5676 Elemcount *seen_object_count);
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5677
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5678 /* These is in print.c because they use the print_preprocess
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5679 infrastructure. */
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5680 Lisp_Object nsubst_structures_descend (Lisp_Object new_, Lisp_Object old,
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5681 Lisp_Object object,
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5682 Lisp_Object number_table,
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5683 Boolint test_not_unboundp);
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5684
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5685 Lisp_Object nsubst_structures (Lisp_Object new_, Lisp_Object old,
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5686 Lisp_Object tree,
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5687 check_test_func_t check_test,
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5688 Boolint test_not_unboundp,
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5689 Lisp_Object test, Lisp_Object key);
58b38d5b32d0 Implement print-circle, allowing recursive and circular structures to be read. Aidan Kehoe <kehoea@parhasard.net> parents: 5529 diff changeset	5690
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5691 extern Lisp_Object Qexternal_debugging_output;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5692 extern Lisp_Object Qprint_length;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5693 extern Lisp_Object Qprint_string_length;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5694 extern Lisp_Object Qstandard_output;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5695 extern Lisp_Object Vprint_length;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5696 extern Lisp_Object Vprint_level;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5697 extern Lisp_Object Vstandard_output;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5698
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5699 /* Defined in process.c */
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5700 extern Lisp_Object Qnetwork_error;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5701 extern MODULE_API Lisp_Object Qprocess_error;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5702 extern Lisp_Object Vprocess_environment;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5703 extern Lisp_Object Vshell_file_name;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5704
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5705 /* Defined in rangetab.c */
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5706 EXFUN (Fclear_range_table, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5707 EXFUN (Fget_range_table, 3);
2421 ab71ad6ff3dd [xemacs-hg @ 2004-12-06 03:50:53 by ben] ben parents: 2367 diff changeset	5708 EXFUN (Fmake_range_table, 1);
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5709 EXFUN (Fput_range_table, 4);
4690 257b468bf2ca Move the #'query-coding-region implementation to C. Aidan Kehoe <kehoea@parhasard.net> parents: 4682 diff changeset	5710 EXFUN (Fcopy_range_table, 1);
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5711
2421 ab71ad6ff3dd [xemacs-hg @ 2004-12-06 03:50:53 by ben] ben parents: 2367 diff changeset	5712 extern Lisp_Object Qstart_closed_end_open;
ab71ad6ff3dd [xemacs-hg @ 2004-12-06 03:50:53 by ben] ben parents: 2367 diff changeset	5713 extern Lisp_Object Qstart_open_end_open;
ab71ad6ff3dd [xemacs-hg @ 2004-12-06 03:50:53 by ben] ben parents: 2367 diff changeset	5714 extern Lisp_Object Qstart_closed_end_closed;
ab71ad6ff3dd [xemacs-hg @ 2004-12-06 03:50:53 by ben] ben parents: 2367 diff changeset	5715 extern Lisp_Object Qstart_open_end_closed;
ab71ad6ff3dd [xemacs-hg @ 2004-12-06 03:50:53 by ben] ben parents: 2367 diff changeset	5716
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5717 void put_range_table (Lisp_Object, EMACS_INT, EMACS_INT, Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5718 int unified_range_table_bytes_needed (Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5719 int unified_range_table_bytes_used (void *);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5720 void unified_range_table_copy_data (Lisp_Object, void *);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5721 Lisp_Object unified_range_table_lookup (void *, EMACS_INT, Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5722 int unified_range_table_nentries (void *);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5723 void unified_range_table_get_range (void , int, EMACS_INT , EMACS_INT *,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5724 Lisp_Object *);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5725
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5726 /* Defined in search.c */
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5727 EXFUN (Fmatch_beginning, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5728 EXFUN (Fmatch_end, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5729 EXFUN (Fskip_chars_backward, 3);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5730 EXFUN (Fskip_chars_forward, 3);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5731 EXFUN (Fstring_match, 4);
4960 45b6288416e3 slight cleanup, move EXFUN of regexp-quote to lisp.h Ben Wing <ben@xemacs.org> parents: 4957 diff changeset	5732 EXFUN (Fregexp_quote, 1);
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5733
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5734 struct re_pattern_buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5735 struct re_registers;
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5736 Charbpos scan_buffer (struct buffer *, Ichar, Charbpos, Charbpos, EMACS_INT,
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5737 EMACS_INT *, int);
665 fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben] ben parents: 647 diff changeset	5738 Charbpos find_next_newline (struct buffer *, Charbpos, int);
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben] ben parents: 647 diff changeset	5739 Charbpos find_next_newline_no_quit (struct buffer *, Charbpos, int);
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5740 Bytebpos byte_find_next_newline_no_quit (struct buffer *, Bytebpos, int);
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5741 Bytecount byte_find_next_ichar_in_string (Lisp_Object, Ichar, Bytecount,
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5742 EMACS_INT);
665 fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben] ben parents: 647 diff changeset	5743 Charbpos find_before_next_newline (struct buffer *, Charbpos, Charbpos, int);
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5744 struct re_pattern_buffer *compile_pattern (Lisp_Object pattern,
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5745 struct re_registers *regp,
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5746 Lisp_Object translate,
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5747 Lisp_Object searchobj,
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5748 struct buffer *searchbuf,
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5749 int posix, Error_Behavior errb);
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5750 Bytecount fast_string_match (Lisp_Object, const Ibyte *,
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5751 Lisp_Object, Bytecount,
578 190b164ddcac [xemacs-hg @ 2001-05-25 11:26:50 by ben] ben parents: 577 diff changeset	5752 Bytecount, int, Error_Behavior, int);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5753 Bytecount fast_lisp_string_match (Lisp_Object, Lisp_Object);
507 167135c7a7ae [xemacs-hg @ 2001-05-05 10:10:36 by martinb] martinb parents: 502 diff changeset	5754 extern Fixnum warn_about_possibly_incompatible_back_references;
502 7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: 490 diff changeset	5755
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5756
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5757 /* Defined in signal.c */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5758 void init_interrupts_late (void);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5759
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5760 /* Defined in sound.c */
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5761 EXFUN (Fding, 3);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5762
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5763 void init_device_sound (struct device *);
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	5764 DECLARE_DOESNT_RETURN (report_sound_error (const Ascbyte *, Lisp_Object));
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5765
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5766 extern Lisp_Object Qsound_error;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5767 extern Lisp_Object Vsynchronous_sounds;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5768
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5769 /* Defined in specifier.c */
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5770 EXFUN (Fadd_spec_to_specifier, 5);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5771 EXFUN (Fspecifier_spec_list, 4);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5772
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5773 Lisp_Object specifier_instance (Lisp_Object, Lisp_Object, Lisp_Object,
578 190b164ddcac [xemacs-hg @ 2001-05-25 11:26:50 by ben] ben parents: 577 diff changeset	5774 Error_Behavior, int, int, Lisp_Object);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5775 Lisp_Object specifier_instance_no_quit (Lisp_Object, Lisp_Object, Lisp_Object,
578 190b164ddcac [xemacs-hg @ 2001-05-25 11:26:50 by ben] ben parents: 577 diff changeset	5776 Error_Behavior, int, Lisp_Object);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5777
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5778 /* Defined in symbols.c */
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5779 EXFUN (Fboundp, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5780 EXFUN (Fbuilt_in_variable_type, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5781 EXFUN (Fdefault_boundp, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5782 EXFUN (Fdefault_value, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5783 EXFUN (Ffboundp, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5784 EXFUN (Ffset, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5785 EXFUN (Fintern, 2);
4355 a2af1ff1761f Provide a DEFAULT argument in #'intern-soft. Aidan Kehoe <kehoea@parhasard.net> parents: 4329 diff changeset	5786 EXFUN (Fintern_soft, 3);
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5787 EXFUN (Fkill_local_variable, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5788 EXFUN (Fset, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5789 EXFUN (Fset_default, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5790 EXFUN (Fsymbol_function, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5791 EXFUN (Fsymbol_name, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5792 EXFUN (Fsymbol_plist, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5793 EXFUN (Fsymbol_value, 1);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5794
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5795 unsigned int hash_string (const Ibyte *, Bytecount);
4953 304aebb79cd3 function renamings to track names of char typedefs Ben Wing <ben@xemacs.org> parents: 4952 diff changeset	5796 Lisp_Object intern_istring (const Ibyte *str);
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 1598 diff changeset	5797 MODULE_API Lisp_Object intern (const CIbyte *str);
5277 d804e621add0 Simplify the API of PARSE_KEYWORDS for callers. Aidan Kehoe <kehoea@parhasard.net> parents: 5243 diff changeset	5798 Lisp_Object intern_massaging_name (const CIbyte *str);
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5799 Lisp_Object oblookup (Lisp_Object, const Ibyte *, Bytecount);
5634 2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5624 diff changeset	5800 /* Note that the mapper function has the same signature as in elisp_maphash. */
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5624 diff changeset	5801 void map_obarray (Lisp_Object, int () (Lisp_Object, Lisp_Object, void ),
2014ff433daf Support hash COLLECTIONs, #'{all,try}-completion{s,}; add #'test-completion Aidan Kehoe <kehoea@parhasard.net> parents: 5624 diff changeset	5802 void *);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5803 Lisp_Object indirect_function (Lisp_Object, int);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5804 Lisp_Object symbol_value_in_buffer (Lisp_Object, Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5805 void kill_buffer_local_variables (struct buffer *);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5806 int symbol_value_buffer_local_info (Lisp_Object, struct buffer *);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5807 Lisp_Object find_symbol_value (Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5808 Lisp_Object find_symbol_value_quickly (Lisp_Object, int);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5809 Lisp_Object top_level_value (Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5810 void reject_constant_symbols (Lisp_Object sym, Lisp_Object newval,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5811 int function_p,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5812 Lisp_Object follow_past_lisp_magic);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5813
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5814 extern Lisp_Object Qconst_specifier;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5815 extern Lisp_Object Qmakunbound;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5816 extern Lisp_Object Qset;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5817 extern Lisp_Object Qvariable_documentation;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5818 extern Lisp_Object Qvariable_domain;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5819 extern MODULE_API Lisp_Object Qt, Qunbound;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5820 extern Lisp_Object Vobarray;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	5821
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5822 /* Defined in syntax.c */
665 fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben] ben parents: 647 diff changeset	5823 Charbpos scan_words (struct buffer *, Charbpos, int);
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5824 EXFUN (Fchar_syntax, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5825 EXFUN (Fforward_word, 2);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5826 extern Lisp_Object Vstandard_syntax_table;
3250 2b8bb4938bb4 [xemacs-hg @ 2006-02-21 11:33:41 by stephent] stephent parents: 3094 diff changeset	5827 void signal_syntax_cache_extent_changed (EXTENT extent);
2b8bb4938bb4 [xemacs-hg @ 2006-02-21 11:33:41 by stephent] stephent parents: 3094 diff changeset	5828 void signal_syntax_cache_extent_adjust (struct buffer *buf);
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5829 void init_buffer_syntax_cache (struct buffer *buf);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5830 void mark_buffer_syntax_cache (struct buffer *buf);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5831 void uninit_buffer_syntax_cache (struct buffer *buf);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5832 extern Lisp_Object Qsyntax_table;
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5833
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5834 /* Defined in sysdep.c */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5835 long get_random (void);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5836 void seed_random (long arg);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5837
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5838 /* Defined in text.c */
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5839 void find_charsets_in_ibyte_string (unsigned char *charsets,
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5840 const Ibyte *str,
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5841 Bytecount len);
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5842 void find_charsets_in_ichar_string (unsigned char *charsets,
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5843 const Ichar *str,
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5844 Charcount len);
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5845 int ibyte_string_displayed_columns (const Ibyte *str, Bytecount len);
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5846 int ichar_string_displayed_columns (const Ichar *str, Charcount len);
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5847 Charcount ibyte_string_nonascii_chars (const Ibyte *str, Bytecount len);
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5848 void convert_ibyte_string_into_ichar_dynarr (const Ibyte *str,
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5849 Bytecount len,
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5850 Ichar_dynarr *dyn);
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5851 Charcount convert_ibyte_string_into_ichar_string (const Ibyte *str,
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5852 Bytecount len,
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5853 Ichar *arr);
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5854 void convert_ichar_string_into_ibyte_dynarr (Ichar *arr, int nels,
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5855 Ibyte_dynarr *dyn);
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5856 Ibyte convert_ichar_string_into_malloced_string (Ichar arr, int nels,
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5857 Bytecount *len_out);
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5858 Bytecount copy_text_between_formats (const Ibyte *src, Bytecount srclen,
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5859 Internal_Format srcfmt,
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5860 Lisp_Object srcobj,
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5861 Ibyte *dst, Bytecount dstlen,
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5862 Internal_Format dstfmt,
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5863 Lisp_Object dstobj,
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5864 Bytecount *src_used);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5865 Bytecount copy_buffer_text_out (struct buffer *buf, Bytebpos pos,
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5866 Bytecount len, Ibyte *dst, Bytecount dstlen,
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5867 Internal_Format dstfmt, Lisp_Object dstobj,
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5868 Bytecount *src_used);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5869
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5870 /* flags for get_buffer_pos_char(), get_buffer_range_char(), etc. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5871 /* At most one of GB_COERCE_RANGE and GB_NO_ERROR_IF_BAD should be
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5872 specified. At most one of GB_NEGATIVE_FROM_END and GB_NO_ERROR_IF_BAD
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5873 should be specified. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5874
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5875 #define GB_ALLOW_PAST_ACCESSIBLE (1 << 0)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5876 #define GB_ALLOW_NIL (1 << 1)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5877 #define GB_CHECK_ORDER (1 << 2)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5878 #define GB_COERCE_RANGE (1 << 3)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5879 #define GB_NO_ERROR_IF_BAD (1 << 4)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5880 #define GB_NEGATIVE_FROM_END (1 << 5)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5881 #define GB_HISTORICAL_STRING_BEHAVIOR (GB_NEGATIVE_FROM_END \| GB_ALLOW_NIL)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5882
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5883 Charbpos get_buffer_pos_char (struct buffer *b, Lisp_Object pos,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5884 unsigned int flags);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5885 Bytebpos get_buffer_pos_byte (struct buffer *b, Lisp_Object pos,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5886 unsigned int flags);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5887 void get_buffer_range_char (struct buffer *b, Lisp_Object from, Lisp_Object to,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5888 Charbpos from_out, Charbpos to_out,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5889 unsigned int flags);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5890 void get_buffer_range_byte (struct buffer *b, Lisp_Object from, Lisp_Object to,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5891 Bytebpos from_out, Bytebpos to_out,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5892 unsigned int flags);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5893 Charcount get_string_pos_char (Lisp_Object string, Lisp_Object pos,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5894 unsigned int flags);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5895 Bytecount get_string_pos_byte (Lisp_Object string, Lisp_Object pos,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5896 unsigned int flags);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5897 void get_string_range_char (Lisp_Object string, Lisp_Object from,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5898 Lisp_Object to, Charcount *from_out,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5899 Charcount *to_out, unsigned int flags);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5900 void get_string_range_byte (Lisp_Object string, Lisp_Object from,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5901 Lisp_Object to, Bytecount *from_out,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5902 Bytecount *to_out, unsigned int flags);
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5903 Charxpos get_buffer_or_string_pos_char (Lisp_Object object, Lisp_Object pos,
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5904 unsigned int flags);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5905 Bytexpos get_buffer_or_string_pos_byte (Lisp_Object object, Lisp_Object pos,
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5906 unsigned int flags);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5907 void get_buffer_or_string_range_char (Lisp_Object object, Lisp_Object from,
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5908 Lisp_Object to, Charxpos *from_out,
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5909 Charxpos *to_out, unsigned int flags);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5910 void get_buffer_or_string_range_byte (Lisp_Object object, Lisp_Object from,
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5911 Lisp_Object to, Bytexpos *from_out,
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5912 Bytexpos *to_out, unsigned int flags);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5913 Charxpos buffer_or_string_accessible_begin_char (Lisp_Object object);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5914 Charxpos buffer_or_string_accessible_end_char (Lisp_Object object);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5915 Bytexpos buffer_or_string_accessible_begin_byte (Lisp_Object object);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5916 Bytexpos buffer_or_string_accessible_end_byte (Lisp_Object object);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5917 Charxpos buffer_or_string_absolute_begin_char (Lisp_Object object);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5918 Charxpos buffer_or_string_absolute_end_char (Lisp_Object object);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5919 Bytexpos buffer_or_string_absolute_begin_byte (Lisp_Object object);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5920 Bytexpos buffer_or_string_absolute_end_byte (Lisp_Object object);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5921 Charbpos charbpos_clip_to_bounds (Charbpos lower, Charbpos num,
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5922 Charbpos upper);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5923 Bytebpos bytebpos_clip_to_bounds (Bytebpos lower, Bytebpos num,
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5924 Bytebpos upper);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5925 Charxpos charxpos_clip_to_bounds (Charxpos lower, Charxpos num,
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5926 Charxpos upper);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5927 Bytexpos bytexpos_clip_to_bounds (Bytexpos lower, Bytexpos num,
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5928 Bytexpos upper);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5929 Charxpos buffer_or_string_clip_to_accessible_char (Lisp_Object object,
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5930 Charxpos pos);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5931 Bytexpos buffer_or_string_clip_to_accessible_byte (Lisp_Object object,
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5932 Bytexpos pos);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5933 Charxpos buffer_or_string_clip_to_absolute_char (Lisp_Object object,
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5934 Charxpos pos);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5935 Bytexpos buffer_or_string_clip_to_absolute_byte (Lisp_Object object,
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5936 Bytexpos pos);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	5937
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5938
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5939 #ifdef ENABLE_COMPOSITE_CHARS
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5940
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5941 Ichar lookup_composite_char (Ibyte *str, int len);
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5942 Lisp_Object composite_char_string (Ichar ch);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5943 #endif /* ENABLE_COMPOSITE_CHARS */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5944
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5945 EXFUN (Ffind_charset, 1);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5946 EXFUN (Fget_charset, 1);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5947 EXFUN (Fcharset_list, 0);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5948
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5949 extern Lisp_Object Vcharset_ascii;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5950 extern Lisp_Object Vcharset_control_1;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5951 extern Lisp_Object Vcharset_latin_iso8859_1;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5952 extern Lisp_Object Vcharset_latin_iso8859_2;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5953 extern Lisp_Object Vcharset_latin_iso8859_3;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5954 extern Lisp_Object Vcharset_latin_iso8859_4;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5955 extern Lisp_Object Vcharset_thai_tis620;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5956 extern Lisp_Object Vcharset_greek_iso8859_7;
4805 980575c76541 Move the arabic-iso8859-6 character set back to C, otherwise X11 lookup fails. Aidan Kehoe <kehoea@parhasard.net> parents: 4744 diff changeset	5957 extern Lisp_Object Vcharset_arabic_iso8859_6;
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5958 extern Lisp_Object Vcharset_hebrew_iso8859_8;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5959 extern Lisp_Object Vcharset_katakana_jisx0201;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5960 extern Lisp_Object Vcharset_latin_jisx0201;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5961 extern Lisp_Object Vcharset_cyrillic_iso8859_5;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5962 extern Lisp_Object Vcharset_latin_iso8859_9;
3094 ad2f4ae9895b [xemacs-hg @ 2005-11-26 11:45:47 by stephent] stephent parents: 3092 diff changeset	5963 extern Lisp_Object Vcharset_latin_iso8859_15;
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5964 extern Lisp_Object Vcharset_japanese_jisx0208_1978;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5965 extern Lisp_Object Vcharset_chinese_gb2312;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5966 extern Lisp_Object Vcharset_japanese_jisx0208;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5967 extern Lisp_Object Vcharset_korean_ksc5601;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5968 extern Lisp_Object Vcharset_japanese_jisx0212;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5969 extern Lisp_Object Vcharset_chinese_cns11643_1;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5970 extern Lisp_Object Vcharset_chinese_cns11643_2;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5971 extern Lisp_Object Vcharset_chinese_big5_1;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5972 extern Lisp_Object Vcharset_chinese_big5_2;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5973 extern Lisp_Object Vcharset_composite;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5974
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5975 Ichar Lstream_get_ichar_1 (Lstream *stream, int first_char);
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5976 int Lstream_fput_ichar (Lstream *stream, Ichar ch);
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5977 void Lstream_funget_ichar (Lstream *stream, Ichar ch);
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5978
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5979 DECLARE_INLINE_HEADER (Ibyte qxestrdup (const Ibyte s))
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5980 {
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	5981 return (Ibyte ) xstrdup ((const Chbyte ) s);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5982 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5983
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5984 DECLARE_INLINE_HEADER (Bytecount qxestrlen (const Ibyte *s))
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5985 {
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	5986 return strlen ((const Chbyte *) s);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5987 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5988
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5989 DECLARE_INLINE_HEADER (Charcount qxestrcharlen (const Ibyte *s))
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5990 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5991 return bytecount_to_charcount (s, qxestrlen (s));
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5992 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5993
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5994 DECLARE_INLINE_HEADER (int qxestrcmp (const Ibyte *s1,
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	5995 const Ibyte *s2))
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5996 {
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	5997 return strcmp ((const Chbyte ) s1, (const Chbyte ) s2);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5998 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	5999
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6000 DECLARE_INLINE_HEADER (int qxestrcmp_ascii (const Ibyte *s1,
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6001 const Ascbyte *s2))
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6002 {
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6003 return strcmp ((const Chbyte *) s1, s2);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6004 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6005
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6006 DECLARE_INLINE_HEADER (int qxestrncmp (const Ibyte *string1,
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6007 const Ibyte *string2,
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6008 Bytecount count))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6009 {
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6010 return strncmp ((const Chbyte ) string1, (const Chbyte ) string2,
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6011 (size_t) count);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6012 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6013
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6014 DECLARE_INLINE_HEADER (int qxestrncmp_ascii (const Ibyte *string1,
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6015 const Ascbyte *string2,
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6016 Bytecount count))
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6017 {
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6018 return strncmp ((const Chbyte *) string1, string2, (size_t) count);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6019 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6020
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6021 DECLARE_INLINE_HEADER (Ibyte qxestrcpy (Ibyte strDest,
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6022 const Ibyte *strSource))
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6023 {
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6024 return (Ibyte ) strcpy ((Chbyte ) strDest, (const Chbyte *) strSource);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6025 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6026
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6027 DECLARE_INLINE_HEADER (Ibyte qxestrcpy_ascii (Ibyte strDest,
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6028 const Ascbyte *strSource))
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6029 {
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6030 return (Ibyte ) strcpy ((Chbyte ) strDest, strSource);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6031 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6032
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6033 DECLARE_INLINE_HEADER (Ibyte qxestrncpy (Ibyte strDest,
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6034 const Ibyte *strSource,
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6035 Bytecount count))
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6036 {
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6037 return (Ibyte ) strncpy ((Chbyte ) strDest, (const Chbyte *) strSource,
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6038 (size_t) count);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6039 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6040
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6041 DECLARE_INLINE_HEADER (Ibyte qxestrncpy_ascii (Ibyte strDest,
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6042 const Ascbyte *strSource,
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6043 Bytecount count))
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6044 {
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6045 return (Ibyte ) strncpy ((Chbyte ) strDest, strSource, (size_t) count);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6046 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6047
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6048 DECLARE_INLINE_HEADER (Ibyte qxestrcat (Ibyte strDest,
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6049 const Ibyte *strSource))
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6050 {
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6051 return (Ibyte ) strcat ((Chbyte ) strDest, (const Chbyte *) strSource);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6052 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6053
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6054 DECLARE_INLINE_HEADER (Ibyte qxestrcat_ascii (Ibyte strDest,
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6055 const Ascbyte *strSource))
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6056 {
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6057 return (Ibyte ) strcat ((Chbyte ) strDest, strSource);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6058 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6059
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6060 DECLARE_INLINE_HEADER (Ibyte qxestrncat (Ibyte strDest,
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6061 const Ibyte *strSource,
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6062 Bytecount count))
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6063 {
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6064 return (Ibyte ) strncat ((Chbyte ) strDest, (const Chbyte *) strSource,
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6065 (size_t) count);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6066 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6067
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6068 DECLARE_INLINE_HEADER (Ibyte qxestrncat_ascii (Ibyte strDest,
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6069 const Ascbyte *strSource,
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6070 Bytecount count))
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6071 {
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6072 return (Ibyte ) strncat ((Chbyte ) strDest, strSource, (size_t) count);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6073 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6074
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6075 DECLARE_INLINE_HEADER (Ibyte qxestrchr (const Ibyte s, Ichar c))
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6076 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6077 assert (c >= 0 && c <= 255);
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6078 return (Ibyte ) strchr ((const Chbyte ) s, c);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6079 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6080
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6081 DECLARE_INLINE_HEADER (Ibyte qxestrrchr (const Ibyte s, Ichar c))
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6082 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6083 assert (c >= 0 && c <= 255);
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6084 return (Ibyte ) strrchr ((const Chbyte ) s, c);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6085 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6086
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6087 DECLARE_INLINE_HEADER (Ibyte qxestrstr (const Ibyte string1,
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6088 const Ibyte *string2))
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6089 {
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6090 return (Ibyte ) strstr ((const Chbyte ) string1, (const Chbyte *) string2);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6091 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6092
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6093 DECLARE_INLINE_HEADER (Bytecount qxestrcspn (const Ibyte *string,
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6094 const CIbyte *strCharSet))
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6095 {
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6096 return (Bytecount) strcspn ((const Chbyte *) string, strCharSet);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6097 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6098
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6099 DECLARE_INLINE_HEADER (Bytecount qxestrspn (const Ibyte *string,
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6100 const CIbyte *strCharSet))
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6101 {
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6102 return (Bytecount) strspn ((const Chbyte *) string, strCharSet);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6103 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6104
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6105 DECLARE_INLINE_HEADER (Ibyte qxestrpbrk (const Ibyte string,
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6106 const CIbyte *strCharSet))
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6107 {
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6108 return (Ibyte ) strpbrk ((const Chbyte ) string, strCharSet);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6109 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6110
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6111 DECLARE_INLINE_HEADER (Ibyte qxestrtok (Ibyte strToken,
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6112 const CIbyte *strDelimit))
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6113 {
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6114 return (Ibyte ) strtok ((Chbyte ) strToken, strDelimit);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6115 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6116
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6117 DECLARE_INLINE_HEADER (double qxestrtod (const Ibyte *nptr,
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6118 Ibyte **endptr))
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6119 {
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6120 return strtod ((const Chbyte ) nptr, (Chbyte *) endptr);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6121 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6122
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6123 DECLARE_INLINE_HEADER (long qxestrtol (const Ibyte nptr, Ibyte *endptr,
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6124 int base))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6125 {
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6126 return strtol ((const Chbyte ) nptr, (Chbyte *) endptr, base);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6127 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6128
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6129 DECLARE_INLINE_HEADER (unsigned long qxestrtoul (const Ibyte *nptr,
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6130 Ibyte **endptr,
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6131 int base))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6132 {
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6133 return strtoul ((const Chbyte ) nptr, (Chbyte *) endptr, base);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6134 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6135
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6136 DECLARE_INLINE_HEADER (int qxeatoi (const Ibyte *string))
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6137 {
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6138 return atoi ((const Chbyte *) string);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6139 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6140
1204 e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	6141 DECLARE_INLINE_HEADER (Ibyte qxestrupr (Ibyte s))
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	6142 {
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6143 return (Ibyte ) strupr ((Chbyte ) s);
1204 e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	6144 }
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	6145
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	6146 DECLARE_INLINE_HEADER (Ibyte qxestrlwr (Ibyte s))
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	6147 {
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6148 return (Ibyte ) strlwr ((Chbyte ) s);
1204 e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	6149 }
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	6150
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6151 int qxesprintf (Ibyte buffer, const CIbyte format, ...)
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6152 PRINTF_ARGS (2, 3);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6153
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6154 DECLARE_INLINE_HEADER (int qxesscanf_ascii_1 (Ibyte *buffer,
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6155 const Ascbyte *format,
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6156 void *ptr))
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6157 {
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6158 /* #### DAMNIT! No vsscanf! */
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6159 return sscanf ((Chbyte *) buffer, format, ptr);
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6160 }
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6161
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6162 /* Do not use POSIX locale routines. Not Mule-correct. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6163 #define qxestrcoll DO NOT USE.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6164 #define qxestrxfrm DO NOT USE.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6165
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6166 int qxestrcasecmp (const Ibyte s1, const Ibyte s2);
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6167 int qxestrcasecmp_ascii (const Ibyte s1, const Ascbyte s2);
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6168 int qxestrcasecmp_i18n (const Ibyte s1, const Ibyte s2);
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6169 int ascii_strcasecmp (const Ascbyte s1, const Ascbyte s2);
4906 6ef8256a020a implement equalp in C, fix case-folding, add equal() method for keymaps Ben Wing <ben@xemacs.org> parents: 4888 diff changeset	6170 int lisp_strcasecmp_ascii (Lisp_Object s1, Lisp_Object s2);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6171 int lisp_strcasecmp_i18n (Lisp_Object s1, Lisp_Object s2);
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6172 int qxestrncasecmp (const Ibyte s1, const Ibyte s2, Bytecount len);
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6173 int qxestrncasecmp_ascii (const Ibyte s1, const Ascbyte s2,
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6174 Bytecount len);
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6175 int qxestrncasecmp_i18n (const Ibyte s1, const Ibyte s2, Bytecount len);
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6176 int ascii_strncasecmp (const Ascbyte s1, const Ascbyte s2,
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6177 Bytecount len);
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6178 int qxememcmp (const Ibyte s1, const Ibyte s2, Bytecount len);
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6179 int qxememcmp4 (const Ibyte *s1, Bytecount len1,
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6180 const Ibyte *s2, Bytecount len2);
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6181 int qxememcasecmp (const Ibyte s1, const Ibyte s2, Bytecount len);
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6182 int qxememcasecmp4 (const Ibyte *s1, Bytecount len1,
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6183 const Ibyte *s2, Bytecount len2);
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6184 int qxetextcmp (const Ibyte *s1, Bytecount len1,
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6185 const Ibyte *s2, Bytecount len2);
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6186 int qxetextcmp_matching (const Ibyte *s1, Bytecount len1,
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6187 const Ibyte *s2, Bytecount len2,
801 2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben] ben parents: 800 diff changeset	6188 Charcount *matching);
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6189 int qxetextcasecmp (const Ibyte *s1, Bytecount len1,
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6190 const Ibyte *s2, Bytecount len2);
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6191 int qxetextcasecmp_matching (const Ibyte *s1, Bytecount len1,
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6192 const Ibyte *s2, Bytecount len2,
801 2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben] ben parents: 800 diff changeset	6193 Charcount *matching);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6194
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6195 void buffer_mule_signal_inserted_region (struct buffer *buf, Charbpos start,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6196 Bytecount bytelength,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6197 Charcount charlength);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6198 void buffer_mule_signal_deleted_region (struct buffer *buf, Charbpos start,
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	6199 Charbpos end, Bytebpos byte_start,
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	6200 Bytebpos byte_end);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6201
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6202 typedef struct
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6203 {
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6204 const char *srctext;
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6205 void *dst;
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6206 Bytecount dst_size;
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6207 } alloca_convert_vals;
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6208
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6209 typedef struct
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6210 {
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6211 Dynarr_declare (alloca_convert_vals);
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6212 } alloca_convert_vals_dynarr;
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6213
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6214 extern alloca_convert_vals_dynarr *active_alloca_convert;
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6215
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6216 MODULE_API int find_pos_of_existing_active_alloca_convert (const char *
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6217 srctext);
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 2268 diff changeset	6218
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	6219 /* Defined in undo.c */
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	6220 extern Lisp_Object Qinhibit_read_only;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	6221
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6222 /* Defined in unicode.c */
1204 e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	6223 extern const struct sized_memory_description to_unicode_description;
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels] michaels parents: 1123 diff changeset	6224 extern const struct sized_memory_description from_unicode_description;
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6225 void init_charset_unicode_tables (Lisp_Object charset);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6226 void free_charset_unicode_tables (Lisp_Object charset);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6227 void recalculate_unicode_precedence (void);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6228 extern Lisp_Object Qunicode;
4096 1abf84db2c7f [xemacs-hg @ 2007-08-04 20:00:10 by aidan] aidan parents: 3988 diff changeset	6229 extern Lisp_Object Qutf_16, Qutf_8, Qucs_4, Qutf_7, Qutf_32;
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6230 #ifdef MEMORY_USAGE_STATS
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6231 Bytecount compute_from_unicode_table_size (Lisp_Object charset,
5157 1fae11d56ad2 redo memory-usage mechanism, add way of dynamically initializing Lisp objects Ben Wing <ben@xemacs.org> parents: 5146 diff changeset	6232 struct usage_stats *stats);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6233 Bytecount compute_to_unicode_table_size (Lisp_Object charset,
5157 1fae11d56ad2 redo memory-usage mechanism, add way of dynamically initializing Lisp objects Ben Wing <ben@xemacs.org> parents: 5146 diff changeset	6234 struct usage_stats *stats);
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6235 #endif /* MEMORY_USAGE_STATS */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 733 diff changeset	6236
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	6237 /* Defined in undo.c */
826 6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	6238 EXFUN (Fundo_boundary, 0);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben] ben parents: 819 diff changeset	6239
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	6240 Lisp_Object truncate_undo_list (Lisp_Object, int, int);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	6241 void record_extent (Lisp_Object, int);
665 fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben] ben parents: 647 diff changeset	6242 void record_insert (struct buffer *, Charbpos, Charcount);
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben] ben parents: 647 diff changeset	6243 void record_delete (struct buffer *, Charbpos, Charcount);
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben] ben parents: 647 diff changeset	6244 void record_change (struct buffer *, Charbpos, Charcount);
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	6245
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	6246 /* Defined in unex.c /
814 a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	6247 #ifdef WIN32_NATIVE
867 804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben] ben parents: 858 diff changeset	6248 int unexec (Ibyte , Ibyte , uintptr_t, uintptr_t, uintptr_t);
814 a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	6249 #else
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	6250 int unexec (Extbyte , Extbyte , uintptr_t, uintptr_t, uintptr_t);
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben] ben parents: 802 diff changeset	6251 #endif
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	6252 #ifdef RUN_TIME_REMAP
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	6253 int run_time_remap (char *);
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	6254 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	6255
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	6256 /* Defined in vm-limit.c */
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	6257 void memory_warnings (void , void () (const char *));
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	6258
5139 a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	6259 /* Defined in win32.c */
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	6260 extern Lisp_Object Vmswindows_downcase_file_names;
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	6261
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	6262 /* Defined in window.c */
a48ef26d87ee Clean up prototypes for Lisp variables/symbols. Put decls for them with Ben Wing <ben@xemacs.org> parents: 5097 diff changeset	6263 extern Lisp_Object Qwindow_live_p;
1927 44905d8fae13 [xemacs-hg @ 2004-02-25 17:42:34 by james] james parents: 1743 diff changeset	6264
1743 543769b89fed [xemacs-hg @ 2003-10-14 05:02:57 by james] james parents: 1726 diff changeset	6265 END_C_DECLS
1650 34abfb24e891 [xemacs-hg @ 2003-08-28 15:44:04 by james] james parents: 1632 diff changeset	6266
440 8de8e3f6228a Import from CVS: tag r21-2-28 cvs parents: 438 diff changeset	6267 #endif /* INCLUDED_lisp_h_ */

Mercurial > hg > xemacs-beta

annotate src/lisp.h @ 5664:00fd55d635fb