annotate src/rangetab.h @ 412:697ef44129c6 r21-2-14

Import from CVS: tag r21-2-14
author cvs
date Mon, 13 Aug 2007 11:20:41 +0200
parents 74fd4e045ea6
children 11054d720c21
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
280
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
1 /* XEmacs routines to deal with range tables.
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
2 Copyright (C) 1995 Sun Microsystems, Inc.
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
3 Copyright (C) 1995 Ben Wing.
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
4
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
5 This file is part of XEmacs.
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
6
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
7 XEmacs is free software; you can redistribute it and/or modify it
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
8 under the terms of the GNU General Public License as published by the
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
9 Free Software Foundation; either version 2, or (at your option) any
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
10 later version.
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
11
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
12 XEmacs is distributed in the hope that it will be useful, but WITHOUT
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
15 for more details.
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
16
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
17 You should have received a copy of the GNU General Public License
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
18 along with XEmacs; see the file COPYING. If not, write to
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
20 Boston, MA 02111-1307, USA. */
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
21
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
22 /* Synched up with: Not in FSF. */
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
23
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
24 /* Extracted from rangetab.c by O. Galibert, 1998. */
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
25
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 398
diff changeset
26 #ifndef _XEMACS_RANGETAB_H_
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 398
diff changeset
27 #define _XEMACS_RANGETAB_H_
280
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
28
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
29 typedef struct range_table_entry range_table_entry;
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
30 struct range_table_entry
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
31 {
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
32 EMACS_INT first;
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
33 EMACS_INT last;
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
34 Lisp_Object val;
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
35 };
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
36
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
37 typedef struct
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
38 {
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
39 Dynarr_declare (range_table_entry);
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
40 } range_table_entry_dynarr;
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
41
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
42 struct Lisp_Range_Table
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
43 {
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
44 struct lcrecord_header header;
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
45 range_table_entry_dynarr *entries;
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
46 };
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
47
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 398
diff changeset
48 DECLARE_LRECORD (range_table, struct Lisp_Range_Table);
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 398
diff changeset
49 #define XRANGE_TABLE(x) \
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 398
diff changeset
50 XRECORD (x, range_table, struct Lisp_Range_Table)
280
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
51 #define XSETRANGE_TABLE(x, p) XSETRECORD (x, p, range_table)
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
52 #define RANGE_TABLEP(x) RECORDP (x, range_table)
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 398
diff changeset
53 #define GC_RANGE_TABLEP(x) GC_RECORDP (x, range_table)
280
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
54 #define CHECK_RANGE_TABLE(x) CHECK_RECORD (x, range_table)
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents:
diff changeset
55
412
697ef44129c6 Import from CVS: tag r21-2-14
cvs
parents: 398
diff changeset
56 #endif