Mercurial > hg > xemacs-beta
annotate src/chartab.h @ 5492:e82f5b7010fe
Merge some stuff in man, fix up Makefile
-------------------- ChangeLog entries follow: --------------------
man/ChangeLog addition:
2010-02-19 Ben Wing <ben@xemacs.org>
* widget.texi:
* widget.texi (Top):
* widget.texi (Introduction):
* widget.texi (User Interface):
* widget.texi (Programming Example):
* widget.texi (Setting Up the Buffer):
* widget.texi (Basic Types):
* widget.texi (link):
* widget.texi (url-link):
* widget.texi (info-link):
* widget.texi (push-button):
* widget.texi (editable-field):
* widget.texi (text):
* widget.texi (menu-choice):
* widget.texi (radio-button-choice):
* widget.texi (item):
* widget.texi (choice-item):
* widget.texi (toggle):
* widget.texi (checkbox):
* widget.texi (checklist):
* widget.texi (editable-list):
* widget.texi (group):
* widget.texi (Sexp Types):
* widget.texi (constants):
* widget.texi (generic):
* widget.texi (atoms):
* widget.texi (composite):
* widget.texi (Widget Properties):
* widget.texi (Defining New Widgets):
* widget.texi (Widget Browser):
* widget.texi (Widget Minor Mode):
* widget.texi (Utilities):
* widget.texi (Widget Wishlist):
* widget.texi (Widget Internals):
* widget.texi (GNU Free Documentation License):
* widget.texi (Index):
Sync with FSF 23.1.92.
2010-02-19 Ben Wing <ben@xemacs.org>
* texinfo/fdl.texi: New file.
* texinfo/texinfo.texi:
* texinfo/texinfo.texi (Top):
* texinfo/texinfo.texi (Copying Conditions):
* texinfo/texinfo.texi (Overview):
* texinfo/texinfo.texi (Reporting Bugs):
* texinfo/texinfo.texi (Using Texinfo):
* texinfo/texinfo.texi (Output Formats):
* texinfo/texinfo.texi (Info Files):
* texinfo/texinfo.texi (Printed Books):
* texinfo/texinfo.texi (Formatting Commands):
* texinfo/texinfo.texi (Conventions):
* texinfo/texinfo.texi (Comments):
* texinfo/texinfo.texi (Minimum):
* texinfo/texinfo.texi (Six Parts):
* texinfo/texinfo.texi (Short Sample):
* texinfo/texinfo.texi (History):
* texinfo/texinfo.texi (Texinfo Mode):
* texinfo/texinfo.texi (Texinfo Mode Overview):
* texinfo/texinfo.texi (XEmacs Editing):
* texinfo/texinfo.texi (Inserting):
* texinfo/texinfo.texi (Showing the Structure):
* texinfo/texinfo.texi (Updating Nodes and Menus):
* texinfo/texinfo.texi (Updating Commands):
* texinfo/texinfo.texi (Updating Requirements):
* texinfo/texinfo.texi (Other Updating Commands):
* texinfo/texinfo.texi (Info Formatting):
* texinfo/texinfo.texi (Printing):
* texinfo/texinfo.texi (Texinfo Mode Summary):
* texinfo/texinfo.texi (Beginning a File):
* texinfo/texinfo.texi (Sample Beginning):
* texinfo/texinfo.texi (Texinfo File Header):
* texinfo/texinfo.texi (First Line):
* texinfo/texinfo.texi (Start of Header):
* texinfo/texinfo.texi (setfilename):
* texinfo/texinfo.texi (settitle):
* texinfo/texinfo.texi (End of Header):
* texinfo/texinfo.texi (Document Permissions):
* texinfo/texinfo.texi (copying):
* texinfo/texinfo.texi (insertcopying):
* texinfo/texinfo.texi (Titlepage & Copyright Page):
* texinfo/texinfo.texi (titlepage):
* texinfo/texinfo.texi (titlefont center sp):
* texinfo/texinfo.texi (title subtitle author):
* texinfo/texinfo.texi (Copyright):
* texinfo/texinfo.texi (end titlepage):
* texinfo/texinfo.texi (headings on off):
* texinfo/texinfo.texi (Contents):
* texinfo/texinfo.texi (The Top Node):
* texinfo/texinfo.texi (Top Node Example):
* texinfo/texinfo.texi (Master Menu Parts):
* texinfo/texinfo.texi (Global Document Commands):
* texinfo/texinfo.texi (documentdescription):
* texinfo/texinfo.texi (setchapternewpage):
* texinfo/texinfo.texi (paragraphindent):
* texinfo/texinfo.texi (firstparagraphindent):
* texinfo/texinfo.texi (exampleindent):
* texinfo/texinfo.texi (Software Copying Permissions):
* texinfo/texinfo.texi (Ending a File):
* texinfo/texinfo.texi (Printing Indices & Menus):
* texinfo/texinfo.texi (File End):
* texinfo/texinfo.texi (Structuring):
* texinfo/texinfo.texi (Tree Structuring):
* texinfo/texinfo.texi (Structuring Command Types):
* texinfo/texinfo.texi (makeinfo top):
* texinfo/texinfo.texi (chapter):
* texinfo/texinfo.texi (unnumbered & appendix):
* texinfo/texinfo.texi (majorheading & chapheading):
* texinfo/texinfo.texi (section):
* texinfo/texinfo.texi (unnumberedsec appendixsec heading):
* texinfo/texinfo.texi (subsection):
* texinfo/texinfo.texi (unnumberedsubsec appendixsubsec subheading):
* texinfo/texinfo.texi (subsubsection):
* texinfo/texinfo.texi (Raise/lower sections):
* texinfo/texinfo.texi (Nodes):
* texinfo/texinfo.texi (Two Paths):
* texinfo/texinfo.texi (Node Menu Illustration):
* texinfo/texinfo.texi (node):
* texinfo/texinfo.texi (Node Names):
* texinfo/texinfo.texi (Writing a Node):
* texinfo/texinfo.texi (Node Line Tips):
* texinfo/texinfo.texi (Node Line Requirements):
* texinfo/texinfo.texi (First Node):
* texinfo/texinfo.texi (makeinfo top command):
* texinfo/texinfo.texi (makeinfo Pointer Creation):
* texinfo/texinfo.texi (anchor):
* texinfo/texinfo.texi (Menus):
* texinfo/texinfo.texi (Menu Location):
* texinfo/texinfo.texi (Writing a Menu):
* texinfo/texinfo.texi (Menu Parts):
* texinfo/texinfo.texi (Less Cluttered Menu Entry):
* texinfo/texinfo.texi (Menu Example):
* texinfo/texinfo.texi (Other Info Files):
* texinfo/texinfo.texi (Cross References):
* texinfo/texinfo.texi (References):
* texinfo/texinfo.texi (Cross Reference Commands):
* texinfo/texinfo.texi (Cross Reference Parts):
* texinfo/texinfo.texi (xref):
* texinfo/texinfo.texi (Reference Syntax):
* texinfo/texinfo.texi (One Argument):
* texinfo/texinfo.texi (Two Arguments):
* texinfo/texinfo.texi (Three Arguments):
* texinfo/texinfo.texi (Four and Five Arguments):
* texinfo/texinfo.texi (Top Node Naming):
* texinfo/texinfo.texi (ref):
* texinfo/texinfo.texi (pxref):
* texinfo/texinfo.texi (inforef):
* texinfo/texinfo.texi (uref):
* texinfo/texinfo.texi (cite):
* texinfo/texinfo.texi (Marking Text):
* texinfo/texinfo.texi (Indicating):
* texinfo/texinfo.texi (Useful Highlighting):
* texinfo/texinfo.texi (code):
* texinfo/texinfo.texi (kbd):
* texinfo/texinfo.texi (key):
* texinfo/texinfo.texi (samp):
* texinfo/texinfo.texi (verb):
* texinfo/texinfo.texi (var):
* texinfo/texinfo.texi (env):
* texinfo/texinfo.texi (file):
* texinfo/texinfo.texi (command):
* texinfo/texinfo.texi (option):
* texinfo/texinfo.texi (dfn):
* texinfo/texinfo.texi (abbr):
* texinfo/texinfo.texi (acronym):
* texinfo/texinfo.texi (indicateurl):
* texinfo/texinfo.texi (email):
* texinfo/texinfo.texi (Emphasis):
* texinfo/texinfo.texi (emph & strong):
* texinfo/texinfo.texi (Smallcaps):
* texinfo/texinfo.texi (Fonts):
* texinfo/texinfo.texi (Quotations and Examples):
* texinfo/texinfo.texi (Block Enclosing Commands):
* texinfo/texinfo.texi (quotation):
* texinfo/texinfo.texi (example):
* texinfo/texinfo.texi (verbatim):
* texinfo/texinfo.texi (verbatiminclude):
* texinfo/texinfo.texi (lisp):
* texinfo/texinfo.texi (small):
* texinfo/texinfo.texi (display):
* texinfo/texinfo.texi (format):
* texinfo/texinfo.texi (exdent):
* texinfo/texinfo.texi (flushleft & flushright):
* texinfo/texinfo.texi (noindent):
* texinfo/texinfo.texi (indent):
* texinfo/texinfo.texi (cartouche):
* texinfo/texinfo.texi (Lists and Tables):
* texinfo/texinfo.texi (Introducing Lists):
* texinfo/texinfo.texi (itemize):
* texinfo/texinfo.texi (enumerate):
* texinfo/texinfo.texi (Two-column Tables):
* texinfo/texinfo.texi (table):
* texinfo/texinfo.texi (ftable vtable):
* texinfo/texinfo.texi (itemx):
* texinfo/texinfo.texi (Multi-column Tables):
* texinfo/texinfo.texi (Multitable Column Widths):
* texinfo/texinfo.texi (Multitable Rows):
* texinfo/texinfo.texi (Special Displays):
* texinfo/texinfo.texi (Floats):
* texinfo/texinfo.texi (float):
* texinfo/texinfo.texi (caption shortcaption):
* texinfo/texinfo.texi (listoffloats):
* texinfo/texinfo.texi (Images):
* texinfo/texinfo.texi (Image Syntax):
* texinfo/texinfo.texi (Image Scaling):
* texinfo/texinfo.texi (Footnotes):
* texinfo/texinfo.texi (Footnote Commands):
* texinfo/texinfo.texi (Footnote Styles):
* texinfo/texinfo.texi (Indices):
* texinfo/texinfo.texi (Index Entries):
* texinfo/texinfo.texi (Predefined Indices):
* texinfo/texinfo.texi (Indexing Commands):
* texinfo/texinfo.texi (Combining Indices):
* texinfo/texinfo.texi (syncodeindex):
* texinfo/texinfo.texi (synindex):
* texinfo/texinfo.texi (New Indices):
* texinfo/texinfo.texi (Insertions):
* texinfo/texinfo.texi (Atsign Braces Comma):
* texinfo/texinfo.texi (Inserting an Atsign):
* texinfo/texinfo.texi (Inserting Braces):
* texinfo/texinfo.texi (Inserting a Comma):
* texinfo/texinfo.texi (Inserting Quote Characters):
* texinfo/texinfo.texi (Inserting Space):
* texinfo/texinfo.texi (Not Ending a Sentence):
* texinfo/texinfo.texi (Ending a Sentence):
* texinfo/texinfo.texi (Multiple Spaces):
* texinfo/texinfo.texi (frenchspacing):
* texinfo/texinfo.texi (dmn):
* texinfo/texinfo.texi (Inserting Accents):
* texinfo/texinfo.texi (Inserting Quotation Marks):
* texinfo/texinfo.texi (Dots Bullets):
* texinfo/texinfo.texi (dots):
* texinfo/texinfo.texi (bullet):
* texinfo/texinfo.texi (TeX and copyright):
* texinfo/texinfo.texi (tex):
* texinfo/texinfo.texi (copyright symbol):
* texinfo/texinfo.texi (registered symbol):
* texinfo/texinfo.texi (euro):
* texinfo/texinfo.texi (pounds):
* texinfo/texinfo.texi (textdegree):
* texinfo/texinfo.texi (minus):
* texinfo/texinfo.texi (geq leq):
* texinfo/texinfo.texi (math):
* texinfo/texinfo.texi (Click Sequences):
* texinfo/texinfo.texi (Glyphs):
* texinfo/texinfo.texi (Glyphs Summary):
* texinfo/texinfo.texi (result):
* texinfo/texinfo.texi (expansion):
* texinfo/texinfo.texi (Print Glyph):
* texinfo/texinfo.texi (Error Glyph):
* texinfo/texinfo.texi (Equivalence):
* texinfo/texinfo.texi (Point Glyph):
* texinfo/texinfo.texi (Breaks):
* texinfo/texinfo.texi (Break Commands):
* texinfo/texinfo.texi (Line Breaks):
* texinfo/texinfo.texi (- and hyphenation):
* texinfo/texinfo.texi (allowcodebreaks):
* texinfo/texinfo.texi (w):
* texinfo/texinfo.texi (tie):
* texinfo/texinfo.texi (sp):
* texinfo/texinfo.texi (page):
* texinfo/texinfo.texi (group):
* texinfo/texinfo.texi (need):
* texinfo/texinfo.texi (Definition Commands):
* texinfo/texinfo.texi (Def Cmd Template):
* texinfo/texinfo.texi (Def Cmd Continuation Lines):
* texinfo/texinfo.texi (Optional Arguments):
* texinfo/texinfo.texi (deffnx):
* texinfo/texinfo.texi (Def Cmds in Detail):
* texinfo/texinfo.texi (Functions Commands):
* texinfo/texinfo.texi (Variables Commands):
* texinfo/texinfo.texi (Typed Functions):
* texinfo/texinfo.texi (Typed Variables):
* texinfo/texinfo.texi (Data Types):
* texinfo/texinfo.texi (Abstract Objects):
* texinfo/texinfo.texi (Object-Oriented Variables):
* texinfo/texinfo.texi (Object-Oriented Methods):
* texinfo/texinfo.texi (Defining Macros):
* texinfo/texinfo.texi (Invoking Macros):
* texinfo/texinfo.texi (Macro Details):
* texinfo/texinfo.texi (alias):
* texinfo/texinfo.texi (definfoenclose):
* texinfo/texinfo.texi (Hardcopy):
* texinfo/texinfo.texi (Use TeX):
* texinfo/texinfo.texi (Format with tex/texindex):
* texinfo/texinfo.texi (Format with texi2dvi):
* texinfo/texinfo.texi (Print with lpr):
* texinfo/texinfo.texi (Within XEmacs):
* texinfo/texinfo.texi (Texinfo Mode Printing):
* texinfo/texinfo.texi (Compile-Command):
* texinfo/texinfo.texi (Requirements Summary):
* texinfo/texinfo.texi (Preparing for TeX):
* texinfo/texinfo.texi (Overfull hboxes):
* texinfo/texinfo.texi (smallbook):
* texinfo/texinfo.texi (A4 Paper):
* texinfo/texinfo.texi (pagesizes):
* texinfo/texinfo.texi (Cropmarks and Magnification):
* texinfo/texinfo.texi (PDF Output):
* texinfo/texinfo.texi (Obtaining TeX):
* texinfo/texinfo.texi (Creating and Installing Info Files):
* texinfo/texinfo.texi (Creating an Info File):
* texinfo/texinfo.texi (makeinfo advantages):
* texinfo/texinfo.texi (Invoking makeinfo):
* texinfo/texinfo.texi (makeinfo options):
* texinfo/texinfo.texi (Pointer Validation):
* texinfo/texinfo.texi (makeinfo in XEmacs):
* texinfo/texinfo.texi (texinfo-format commands):
* texinfo/texinfo.texi (Batch Formatting):
* texinfo/texinfo.texi (Tag and Split Files):
* texinfo/texinfo.texi (Installing an Info File):
* texinfo/texinfo.texi (Directory File):
* texinfo/texinfo.texi (New Info File):
* texinfo/texinfo.texi (Other Info Directories):
* texinfo/texinfo.texi (Installing Dir Entries):
* texinfo/texinfo.texi (Invoking install-info):
* texinfo/texinfo.texi (Generating HTML):
* texinfo/texinfo.texi (HTML Translation):
* texinfo/texinfo.texi (HTML Splitting):
* texinfo/texinfo.texi (HTML CSS):
* texinfo/texinfo.texi (HTML Xref):
* texinfo/texinfo.texi (HTML Xref Link Basics):
* texinfo/texinfo.texi (HTML Xref Node Name Expansion):
* texinfo/texinfo.texi (HTML Xref Command Expansion):
* texinfo/texinfo.texi (HTML Xref 8-bit Character Expansion):
* texinfo/texinfo.texi (HTML Xref Mismatch):
* texinfo/texinfo.texi (Command List):
* texinfo/texinfo.texi (Command Syntax):
* texinfo/texinfo.texi (Tips):
* texinfo/texinfo.texi (Sample Texinfo Files):
* texinfo/texinfo.texi (Short Sample Texinfo File):
* texinfo/texinfo.texi (GNU Sample Texts):
* texinfo/texinfo.texi (Invoking sample):
* texinfo/texinfo.texi (GNU Free Documentation License):
* texinfo/texinfo.texi (Index):
* texinfo/texinfo.texi (Verbatim Copying License):
* texinfo/texinfo.texi (All-permissive Copying License):
* texinfo/texinfo.texi (Include Files):
* texinfo/texinfo.texi (Using Include Files):
* texinfo/texinfo.texi (texinfo-multiple-files-update):
* texinfo/texinfo.texi (Include Files Requirements):
* texinfo/texinfo.texi (Sample Include File):
* texinfo/texinfo.texi (Include Files Evolution):
* texinfo/texinfo.texi (Headings):
* texinfo/texinfo.texi (Headings Introduced):
* texinfo/texinfo.texi (Heading Format):
* texinfo/texinfo.texi (Heading Choice):
* texinfo/texinfo.texi (Custom Headings):
* texinfo/texinfo.texi (Catching Mistakes):
* texinfo/texinfo.texi (makeinfo Preferred):
* texinfo/texinfo.texi (Debugging with Info):
* texinfo/texinfo.texi (Debugging with TeX):
* texinfo/texinfo.texi (Using texinfo-show-structure):
* texinfo/texinfo.texi (Using occur):
* texinfo/texinfo.texi (Running Info-Validate):
* texinfo/texinfo.texi (Using Info-validate):
* texinfo/texinfo.texi (Unsplit):
* texinfo/texinfo.texi (Tagifying):
* texinfo/texinfo.texi (Splitting):
* texinfo/texinfo.texi (Refilling Paragraphs):
* texinfo/texinfo.texi (Command and Variable Index):
* texinfo/texinfo.texi (General Index):
* texinfo/version.texi: New file.
Sync with FSF 23.1.92. Make new directory to hold the files needed
to generate texinfo.info, since there are three such files now.
2010-02-19 Ben Wing <ben@xemacs.org>
* Makefile:
* Makefile (src_files1):
* Makefile (DIR):
* Makefile (texinfo-srcs):
* Makefile ($(INFODIR)/widget.info):
* Makefile ($(INFODIR)/texinfo.info):
* Makefile (.PHONY):
* Makefile (texinfo.dvi):
* Makefile (texinfo.pdf):
* Makefile ($(HTMLDIR)/widget.html):
* Makefile ($(HTMLDIR)/texinfo.html):
Incorporate texinfo.texi moving to a subdirectory texinfo/.
Do some tricks to reduce the amount of duplication while still
maintaining compatible with non-GNU make (at least, with
Solaris make).
* doclicense.texi: New file.
* info.texi:
* info.texi (Top):
* info.texi (Getting Started):
* info.texi (Help-Small-Screen):
* info.texi (Help):
* info.texi (Help-P):
* info.texi (Help-^L):
* info.texi (Help-Inv):
* info.texi (Help-]):
* info.texi (Help-M):
* info.texi (Help-FOO):
* info.texi (Help-Xref):
* info.texi (Help-Int):
* info.texi (Help-Q):
* info.texi (Advanced):
* info.texi (Search Text):
* info.texi (Search Index):
* info.texi (Go to node):
* info.texi (Choose menu subtopic):
* info.texi (Create Info buffer):
* info.texi (XEmacs Info Variables):
* info.texi (Expert Info):
* info.texi (Add):
* info.texi (Menus):
* info.texi (Cross-refs):
* info.texi (Help-Cross):
* info.texi (Tags):
* info.texi (Checking):
* info.texi (Index):
* texinfo.tex:
* texinfo.tex (paragraphindent{%):
* texinfo.tex (sectionheading will have):
* texinfo.tex (chapterzzz{#3}%):
* texinfo.tex (subsubsection = \numberedsubsubsec):
* texinfo.tex (subsubsection = \appendixsubsubsec):
* texinfo.tex (subsubsection = \unnumberedsubsubsec):
* texinfo.tex (sectionheading{#1}{sec}{Ynumbered}{\the\chapno.\the\secno}%):
* texinfo.tex (sectionheading{#1}{sec}{Yappendix}{\appendixletter.\the\secno}%):
* texinfo.tex (sectionheading{#1}{sec}{Ynothing}{\the\unnumberedno.\the\secno}%):
* texinfo.tex (sectionheading{#1}{subsec}{Ynumbered}{\the\chapno.\the\secno.\the\subsecno}%):
* texinfo.tex (sectionheading{#1}{subsec}{Yappendix}%):
* texinfo.tex (sectionheading{#1}{subsec}{Ynothing}%):
* texinfo.tex (sectionheading{#1}{subsubsec}{Ynumbered}%):
* texinfo.tex (sectionheading{#1}{subsubsec}{Yappendix}%):
* texinfo.tex (sectionheading{#1}{subsubsec}{Ynothing}%):
* texinfo.tex (sectionheading{#1}{subsubsec}{Yomitfromtoc}{}):
* texinfo.tex (sectionheading to do the printing.):
* texinfo.tex (sectionlevel}{#1}{#4}%):
* texinfo.tex (sectionheading, q.v.):
Sync with FSF 23.1.92.
| author | Ben Wing <ben@xemacs.org> |
|---|---|
| date | Fri, 19 Feb 2010 22:39:19 -0600 |
| parents | 1e7cc382eb16 |
| children | e0db3c197671 |
| rev | line source |
|---|---|
| 428 | 1 /* Declarations having to do with Mule char tables. |
| 2 Copyright (C) 1992 Free Software Foundation, Inc. | |
| 3 Copyright (C) 1995 Sun Microsystems, Inc. | |
| 1296 | 4 Copyright (C) 2002, 2003 Ben Wing. |
| 428 | 5 |
| 6 This file is part of XEmacs. | |
| 7 | |
| 8 XEmacs is free software; you can redistribute it and/or modify it | |
| 9 under the terms of the GNU General Public License as published by the | |
| 10 Free Software Foundation; either version 2, or (at your option) any | |
| 11 later version. | |
| 12 | |
| 13 XEmacs is distributed in the hope that it will be useful, but WITHOUT | |
| 14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 16 for more details. | |
| 17 | |
| 18 You should have received a copy of the GNU General Public License | |
| 19 along with XEmacs; see the file COPYING. If not, write to | |
| 20 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
| 21 Boston, MA 02111-1307, USA. */ | |
| 22 | |
| 23 /* Synched up with: Mule 2.3. Not synched with FSF. | |
| 24 | |
| 25 This file was written independently of the FSF implementation, | |
| 26 and is not compatible. */ | |
| 27 | |
| 440 | 28 #ifndef INCLUDED_chartab_h_ |
| 29 #define INCLUDED_chartab_h_ | |
| 428 | 30 |
| 771 | 31 #include "charset.h" |
| 32 | |
| 428 | 33 /************************************************************************/ |
| 34 /* Char Tables */ | |
| 35 /************************************************************************/ | |
| 36 | |
| 37 /* Under Mule, we use a complex representation (see below). | |
| 38 When not under Mule, there are only 256 possible characters | |
| 39 so we just represent them directly. */ | |
| 40 | |
| 41 #ifdef MULE | |
| 42 | |
| 43 struct Lisp_Char_Table_Entry | |
| 44 { | |
| 3017 | 45 struct LCRECORD_HEADER header; |
| 428 | 46 |
| 47 /* In the interests of simplicity, we just use a fixed 96-entry | |
| 48 table. If we felt like being smarter, we could make this | |
| 49 variable-size and add an offset value into this structure. */ | |
| 50 Lisp_Object level2[96]; | |
| 51 }; | |
| 440 | 52 typedef struct Lisp_Char_Table_Entry Lisp_Char_Table_Entry; |
| 53 | |
| 54 DECLARE_LRECORD (char_table_entry, Lisp_Char_Table_Entry); | |
| 55 #define XCHAR_TABLE_ENTRY(x) \ | |
| 56 XRECORD (x, char_table_entry, Lisp_Char_Table_Entry) | |
| 617 | 57 #define wrap_char_table_entry(p) wrap_record (p, char_table_entry) |
| 440 | 58 #define CHAR_TABLE_ENTRYP(x) RECORDP (x, char_table_entry) |
| 59 /* #define CHECK_CHAR_TABLE_ENTRY(x) CHECK_RECORD (x, char_table_entry) | |
| 60 char table entries should never escape to Lisp */ | |
| 428 | 61 |
| 62 #endif /* MULE */ | |
| 63 | |
| 64 enum char_table_type | |
| 65 { | |
| 66 CHAR_TABLE_TYPE_GENERIC, | |
| 67 #ifdef MULE | |
| 68 CHAR_TABLE_TYPE_CATEGORY, | |
| 69 #endif | |
| 70 CHAR_TABLE_TYPE_SYNTAX, | |
| 71 CHAR_TABLE_TYPE_DISPLAY, | |
| 72 CHAR_TABLE_TYPE_CHAR | |
| 73 }; | |
| 74 | |
| 75 #ifdef MULE | |
| 76 #define NUM_ASCII_CHARS 160 | |
| 77 #else | |
| 78 #define NUM_ASCII_CHARS 256 | |
| 79 #endif | |
| 80 | |
| 81 struct Lisp_Char_Table | |
| 82 { | |
| 3017 | 83 struct LCRECORD_HEADER header; |
| 428 | 84 |
| 85 Lisp_Object ascii[NUM_ASCII_CHARS]; | |
| 826 | 86 Lisp_Object default_; |
| 793 | 87 Lisp_Object parent; /* #### not yet implemented */ |
| 88 | |
| 428 | 89 #ifdef MULE |
| 90 /* We basically duplicate the Mule vectors-of-vectors implementation. | |
| 91 We can do this because we know a great deal about the sorts of | |
| 92 things we are going to be indexing. | |
| 93 | |
| 94 The current implementation is as follows: | |
| 95 | |
| 96 ascii[0-159] is used for ASCII and Control-1 characters. | |
| 97 | |
| 98 level1[0 .. (NUM_LEADING_BYTES-1)] indexes charsets by leading | |
| 99 byte (subtract MIN_LEADING_BYTE from the leading byte). If the | |
| 100 value of this is not an opaque, then it specifies a value for all | |
| 101 characters in the charset. Otherwise, it will be a | |
| 102 96-Lisp-Object opaque that we created, specifying a value for | |
| 103 each row. If the value of this is not an opaque, then it | |
| 104 specifies a value for all characters in the row. Otherwise, it | |
| 105 will be a 96-Lisp-Object opaque that we created, specifying a | |
| 106 value for each character. | |
| 107 | |
| 108 NOTE: 1) This will fail if some C routine passes an opaque to | |
| 109 Fput_char_table(). Currently this is not a problem | |
| 110 since all char tables that are created are Lisp-visible | |
| 111 and thus no one should ever be putting an opaque in | |
| 112 a char table. Another possibility is to consider | |
| 113 adding a type to */ | |
| 114 | |
| 115 Lisp_Object level1[NUM_LEADING_BYTES]; | |
| 116 | |
| 117 #endif /* MULE */ | |
| 118 | |
| 119 enum char_table_type type; | |
| 120 | |
| 121 /* stuff used for syntax tables */ | |
| 1296 | 122 Lisp_Object mirror_table; /* points to mirror table for this table |
| 123 (a cache for quicker access), or a back | |
| 124 pointer if MIRROR_TABLE_P. */ | |
| 428 | 125 Lisp_Object next_table; /* DO NOT mark through this. */ |
| 1296 | 126 char dirty; /* nonzero if mirror dirty and needs updating. */ |
| 127 char mirror_table_p; /* nonzero if this is a mirror table. */ | |
| 428 | 128 }; |
| 440 | 129 typedef struct Lisp_Char_Table Lisp_Char_Table; |
| 130 | |
| 131 DECLARE_LRECORD (char_table, Lisp_Char_Table); | |
| 132 #define XCHAR_TABLE(x) XRECORD (x, char_table, Lisp_Char_Table) | |
| 617 | 133 #define wrap_char_table(p) wrap_record (p, char_table) |
| 440 | 134 #define CHAR_TABLEP(x) RECORDP (x, char_table) |
| 135 #define CHECK_CHAR_TABLE(x) CHECK_RECORD (x, char_table) | |
| 136 #define CONCHECK_CHAR_TABLE(x) CONCHECK_RECORD (x, char_table) | |
| 137 | |
| 138 #define CHAR_TABLE_TYPE(ct) ((ct)->type) | |
| 139 #define XCHAR_TABLE_TYPE(ct) CHAR_TABLE_TYPE (XCHAR_TABLE (ct)) | |
| 428 | 140 |
| 440 | 141 Lisp_Object get_non_ascii_char_table_value (Lisp_Char_Table *ct, |
| 142 int leading_byte, | |
| 867 | 143 Ichar c); |
| 428 | 144 |
| 826 | 145 DECLARE_INLINE_HEADER ( |
| 146 Lisp_Object | |
| 1296 | 147 get_char_table_1 (Ichar ch, Lisp_Object table) |
| 826 | 148 ) |
| 428 | 149 { |
| 826 | 150 Lisp_Object retval; |
| 151 Lisp_Char_Table *ct = XCHAR_TABLE (table); | |
| 152 #ifdef MULE | |
| 153 if (ch < NUM_ASCII_CHARS) | |
| 154 retval = ct->ascii[ch]; | |
| 428 | 155 else |
| 826 | 156 { |
| 867 | 157 unsigned char lb = ichar_leading_byte (ch); |
| 826 | 158 if (!CHAR_TABLE_ENTRYP (ct->level1[lb - MIN_LEADING_BYTE])) |
| 159 retval = ct->level1[lb - MIN_LEADING_BYTE]; | |
| 160 else | |
| 161 retval = get_non_ascii_char_table_value (ct, lb, ch); | |
| 162 } | |
| 163 #else /* not MULE */ | |
| 164 retval = ct->ascii[(unsigned char) ch]; | |
| 165 #endif /* not MULE */ | |
| 166 if (!UNBOUNDP (retval)) | |
| 167 return retval; | |
| 168 else | |
| 169 return ct->default_; | |
| 428 | 170 } |
| 171 | |
| 1296 | 172 #ifdef ERROR_CHECK_TYPES |
| 173 DECLARE_INLINE_HEADER ( | |
| 174 Lisp_Object | |
| 175 get_char_table (Ichar ch, Lisp_Object table) | |
| 176 ) | |
| 177 { | |
| 178 assert (!XCHAR_TABLE (table)->mirror_table_p); | |
| 179 return get_char_table_1 (ch, table); | |
| 180 } | |
| 181 #else | |
| 182 #define get_char_table(ch, table) get_char_table_1 (ch, table) | |
| 183 #endif | |
| 184 | |
| 428 | 185 enum chartab_range_type |
| 186 { | |
| 187 CHARTAB_RANGE_ALL, | |
| 188 #ifdef MULE | |
| 189 CHARTAB_RANGE_CHARSET, | |
| 190 CHARTAB_RANGE_ROW, | |
| 191 #endif | |
| 192 CHARTAB_RANGE_CHAR | |
| 193 }; | |
| 194 | |
| 195 struct chartab_range | |
| 196 { | |
| 197 enum chartab_range_type type; | |
| 867 | 198 Ichar ch; |
| 428 | 199 Lisp_Object charset; |
| 200 int row; | |
| 201 }; | |
| 202 | |
| 826 | 203 void set_char_table_default (Lisp_Object table, Lisp_Object value); |
| 204 void put_char_table (Lisp_Object table, struct chartab_range *range, | |
| 428 | 205 Lisp_Object val); |
| 826 | 206 int map_char_table (Lisp_Object table, |
| 428 | 207 struct chartab_range *range, |
| 208 int (*fn) (struct chartab_range *range, | |
| 826 | 209 Lisp_Object table, |
| 428 | 210 Lisp_Object val, void *arg), |
| 211 void *arg); | |
| 212 void prune_syntax_tables (void); | |
| 826 | 213 Lisp_Object get_range_char_table (struct chartab_range *range, |
| 214 Lisp_Object table, Lisp_Object multi); | |
| 1296 | 215 #ifdef ERROR_CHECK_TYPES |
| 216 Lisp_Object updating_mirror_get_range_char_table (struct chartab_range *range, | |
| 217 Lisp_Object table, | |
| 218 Lisp_Object multi); | |
| 219 #else | |
| 220 #define updating_mirror_get_range_char_table get_range_char_table | |
| 221 #endif | |
| 826 | 222 void copy_char_table_range (Lisp_Object from, Lisp_Object to, |
| 223 struct chartab_range *range); | |
| 867 | 224 int word_boundary_p (Ichar c1, Ichar c2); |
| 428 | 225 |
| 226 EXFUN (Fcopy_char_table, 1); | |
| 227 EXFUN (Fmake_char_table, 1); | |
| 228 EXFUN (Fput_char_table, 3); | |
| 229 EXFUN (Fget_char_table, 2); | |
| 230 | |
| 231 extern Lisp_Object Vall_syntax_tables; | |
| 232 | |
| 233 | |
| 234 | |
| 235 #ifdef MULE | |
| 867 | 236 int check_category_char (Ichar ch, Lisp_Object ctbl, int designator, |
| 826 | 237 int not_p); |
| 428 | 238 |
| 239 extern Lisp_Object Vstandard_category_table; | |
| 240 | |
| 241 #define CATEGORY_DESIGNATORP(x) \ | |
| 242 (CHARP (x) && XCHAR (x) >= 32 && XCHAR (x) <= 126) | |
| 243 | |
| 244 #define CHECK_CATEGORY_DESIGNATOR(x) do { \ | |
| 245 if (!CATEGORY_DESIGNATORP (x)) \ | |
| 246 dead_wrong_type_argument (Qcategory_designator_p, x); \ | |
| 247 } while (0) | |
| 248 | |
| 249 #define CONCHECK_CATEGORY_DESIGNATOR(x) do { \ | |
| 250 if (!CATEGORY_DESIGNATORP (x)) \ | |
| 251 x = wrong_type_argument (Qcategory_designator_p, x); \ | |
| 252 } while (0) | |
| 253 | |
| 254 #define CATEGORY_TABLE_VALUEP(x) \ | |
| 255 (NILP (x) || (BIT_VECTORP (x) && (bit_vector_length (XBIT_VECTOR (x)) == 95))) | |
| 256 | |
| 257 #define CHECK_CATEGORY_TABLE_VALUE(x) do { \ | |
| 258 if (!CATEGORY_TABLE_VALUEP (x)) \ | |
| 259 dead_wrong_type_argument (Qcategory_table_value_p, x); \ | |
| 260 } while (0) | |
| 261 | |
| 262 #define CONCHECK_CATEGORY_TABLE_VALUE(x) do { \ | |
| 263 if (!CATEGORY_TABLE_VALUEP (x)) \ | |
| 264 x = wrong_type_argument (Qcategory_table_value_p, x); \ | |
| 265 } while (0) | |
| 266 | |
| 267 #endif /* MULE */ | |
| 268 | |
| 440 | 269 #endif /* INCLUDED_chartab_h_ */ |