1204
+ − 1 /* Definitions of marked slots in coding systems
+ − 2 Copyright (C) 1991, 1995 Free Software Foundation, Inc.
+ − 3 Copyright (C) 1995 Sun Microsystems, Inc.
+ − 4 Copyright (C) 2000, 2001, 2002 Ben Wing.
+ − 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: ????. Split out of file-coding.h. */
+ − 24
+ − 25 /* We define the Lisp_Objects in the coding system structure in a separate
+ − 26 file because there are numerous places we want to iterate over them,
+ − 27 such as when defining them in the structure, initializing them, or
+ − 28 marking them.
+ − 29
+ − 30 To use, define MARKED_SLOT before including this file. In the structure
+ − 31 definition, you also need to define CODING_SYSTEM_SLOT_DECLARATION. No
+ − 32 need to undefine either value; that happens automatically. */
+ − 33
+ − 34 #ifndef MARKED_SLOT_ARRAY
+ − 35 #ifdef CODING_SYSTEM_SLOT_DECLARATION
+ − 36 #define MARKED_SLOT_ARRAY(slot, size) MARKED_SLOT(slot[size])
+ − 37 #else
+ − 38 #define MARKED_SLOT_ARRAY(slot, size) do { \
+ − 39 int mslotidx; \
+ − 40 for (mslotidx = 0; mslotidx < size; mslotidx++) \
+ − 41 { \
+ − 42 MARKED_SLOT (slot[mslotidx]) \
+ − 43 } \
+ − 44 } while (0);
+ − 45 #endif
+ − 46 #endif /* not MARKED_SLOT_ARRAY */
+ − 47
+ − 48 /* Name and description of this coding system. The description
+ − 49 should be suitable for a menu entry. */
+ − 50 MARKED_SLOT (name)
+ − 51 MARKED_SLOT (description)
+ − 52
+ − 53 /* Mnemonic string displayed in the modeline when this coding
+ − 54 system is active for a particular buffer. */
+ − 55 MARKED_SLOT (mnemonic)
+ − 56
+ − 57 /* Long documentation on the coding system. */
+ − 58 MARKED_SLOT (documentation)
+ − 59 /* Functions to handle additional conversion after reading or before
+ − 60 writing. #### This mechanism should be replaced by the ability to
+ − 61 simply create new coding system types. */
+ − 62 MARKED_SLOT (post_read_conversion)
+ − 63 MARKED_SLOT (pre_write_conversion)
+ − 64
+ − 65 /* If this coding system is not of the correct type for text file
+ − 66 conversion (i.e. decodes byte->char), we wrap it with appropriate
+ − 67 char<->byte converters. This is created dynamically, when it's
+ − 68 needed, and cached here. */
+ − 69 MARKED_SLOT (text_file_wrapper)
+ − 70
+ − 71 /* ------------------------ junk to handle EOL -------------------------
+ − 72 I had hoped that we could handle this without lots of special-case
+ − 73 code, but it appears not to be the case if we want to maintain
+ − 74 compatibility with the existing way. However, at least with the way
+ − 75 we do things now, we avoid EOL junk in most of the coding system
+ − 76 methods themselves, or in the decode/encode functions. The EOL
+ − 77 special-case code is limited to coding-system creation and to the
+ − 78 convert-eol and undecided coding system types. */
+ − 79
+ − 80 /* If this coding system wants autodetection of the EOL type, then at the
+ − 81 appropriate time we wrap this coding system with
+ − 82 convert-eol-autodetect. (We do NOT do this at creation time because
+ − 83 then we end up with multiple convert-eols wrapped into the final
+ − 84 result -- esp. with autodetection using `undecided' -- leading to a
+ − 85 big mess.) We cache the wrapped coding system here. */
+ − 86 MARKED_SLOT (auto_eol_wrapper)
+ − 87
+ − 88 /* Subsidiary coding systems that specify a particular type of EOL
+ − 89 marking, rather than autodetecting it. These will only be non-nil
+ − 90 if (eol_type == EOL_AUTODETECT). These are chains. */
+ − 91 MARKED_SLOT_ARRAY (eol, 3)
+ − 92 /* If this coding system is a subsidiary, this element points back to its
+ − 93 parent. */
+ − 94 MARKED_SLOT (subsidiary_parent)
+ − 95
+ − 96 /* At decoding or encoding time, we use the following coding system, if
+ − 97 it exists, in place of the coding system object. This is how we
+ − 98 handle coding systems with EOL types of CRLF or CR. Formerly, we did
+ − 99 the canonicalization at creation time, returning a chain in place of
+ − 100 the original coding system; but that interferes with
+ − 101 `coding-system-property' and causes other complications. CANONICAL is
+ − 102 used when determining the end types of a coding system.
+ − 103 canonicalize-after-coding also consults CANONICAL (it has to, because
+ − 104 the data in the lstream is based on CANONICAL, not on the original
+ − 105 coding system). */
+ − 106 MARKED_SLOT (canonical)
+ − 107
+ − 108 #undef MARKED_SLOT
+ − 109 #undef MARKED_SLOT_ARRAY
+ − 110 #undef CODING_SYSTEM_SLOT_DECLARATION
