src/coding.h

   1 /* Header for coding system handler.
   2    Ver.1.0
   3    Copyright (C) 1995 Free Software Foundation, Inc.
   4    Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
   5
   6 This file is part of GNU Emacs.
   7
   8 GNU Emacs is free software; you can redistribute it and/or modify
   9 it under the terms of the GNU General Public License as published by
  10 the Free Software Foundation; either version 2, or (at your option)
  11 any later version.
  12
  13 GNU Emacs is distributed in the hope that it will be useful,
  14 but WITHOUT ANY WARRANTY; without even the implied warranty of
  15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16 GNU General Public License for more details.
  17
  18 You should have received a copy of the GNU General Public License
  19 along with GNU Emacs; 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 #ifndef _CODING_H
  24 #define _CODING_H
  25
  26 #ifndef _CCL_H
  27 #include "../src/ccl.h"
  28 #endif
  29
  30 /*** EMACS' INTERNAL FORMAT section ***/
  31
  32 /* All code (1-byte) of Emacs' internal format is classified into one
  33    of the followings.  See also `charset.h'.  */
  34 enum emacs_code_class_type
  35   {
  36     EMACS_control_code,         /* Control codes in the range
  37                                    0x00..0x1F and 0x7F except for the
  38                                    following two codes.  */
  39     EMACS_linefeed_code,        /* 0x0A (linefeed) to denote
  40                                    end-of-line.  */
  41     EMACS_carriage_return_code, /* 0x0D (carriage-return) to be used
  42                                    in selective display mode.  */
  43     EMACS_ascii_code,           /* ASCII characters.  */
  44     EMACS_leading_code_composition, /* Leading code of a composite
  45                                        character.  */
  46     EMACS_leading_code_2,       /* Base leading code of official
  47                                    TYPE9N character.  */
  48     EMACS_leading_code_3,       /* Base leading code of private TYPE9N
  49                                    or official TYPE9Nx9N character.  */
  50     EMACS_leading_code_4,       /* Base leading code of private
  51                                    TYPE9Nx9N character.  */
  52     EMACS_invalid_code          /* Invalid code, i.e. a base leading
  53                                    code not yet assigned to any
  54                                    charset, or a code of the range
  55                                    0xA0..0xFF.  */
  56   };
  57
  58 extern enum emacs_code_class_type emacs_code_class[256];
  59
  60 /*** ISO2022 section ***/
  61
  62 /* Macros to define code of control characters for ISO2022's functions.  */
  63                         /* code */      /* function */
  64 #define ISO_CODE_LF     0x0A            /* line-feed */
  65 #define ISO_CODE_CR     0x0D            /* carriage-return */
  66 #define ISO_CODE_SO     0x0E            /* shift-out */
  67 #define ISO_CODE_SI     0x0F            /* shift-in */
  68 #define ISO_CODE_SS2_7  0x19            /* single-shift-2 for 7-bit code */
  69 #define ISO_CODE_ESC    0x1B            /* escape */
  70 #define ISO_CODE_SS2    0x8E            /* single-shift-2 */
  71 #define ISO_CODE_SS3    0x8F            /* single-shift-3 */
  72 #define ISO_CODE_CSI    0x9B            /* control-sequence-introduce */
  73
  74 /* All code (1-byte) of ISO2022 is classified into one of the
  75    followings.  */
  76 enum iso_code_class_type
  77   {
  78     ISO_control_code,           /* Control codes in the range
  79                                    0x00..0x1F, 0x7F, and 0x80..0x9F,
  80                                    except for the following seven
  81                                    codes.  */
  82     ISO_carriage_return,        /* ISO_CODE_CR (0x0D) */
  83     ISO_shift_out,              /* ISO_CODE_SO (0x0E) */
  84     ISO_shift_in,               /* ISO_CODE_SI (0x0F) */
  85     ISO_single_shift_2_7,       /* ISO_CODE_SS2_7 (0x19) */
  86     ISO_escape,                 /* ISO_CODE_SO (0x1B) */
  87     ISO_single_shift_2,         /* ISO_CODE_SS2 (0x8E) */
  88     ISO_single_shift_3,         /* ISO_CODE_SS3 (0x8F) */
  89     ISO_control_sequence_introducer, /* ISO_CODE_CSI (0x9B) */
  90     ISO_0x20_or_0x7F,           /* Codes of the values 0x20 or 0x7F.  */
  91     ISO_graphic_plane_0,        /* Graphic codes in the range 0x21..0x7E.  */
  92     ISO_0xA0_or_0xFF,           /* Codes of the values 0xA0 or 0xFF.  */
  93     ISO_graphic_plane_1         /* Graphic codes in the range 0xA1..0xFE.  */
  94   };
  95
  96 /** The macros CODING_FLAG_ISO_XXX defines a flag bit of the `flags'
  97   element in the structure `coding_system'.  This information is used
  98   while encoding a text to ISO2022.  **/
  99
 100 /* If set, produce short-form designation sequence (e.g. ESC $ A)
 101    instead of long-form sequence (e.g. ESC $ ( A).  */
 102 #define CODING_FLAG_ISO_SHORT_FORM      0x0001
 103
 104 /* If set, reset graphic planes and registers at end-of-line to the
 105    initial state.  */
 106 #define CODING_FLAG_ISO_RESET_AT_EOL    0x0002
 107
 108 /* If set, reset graphic planes and registers before any control
 109    characters to the initial state.  */
 110 #define CODING_FLAG_ISO_RESET_AT_CNTL   0x0004
 111
 112 /* If set, encode by 7-bit environment.  */
 113 #define CODING_FLAG_ISO_SEVEN_BITS      0x0008
 114
 115 /* If set, use locking-shift function.  */
 116 #define CODING_FLAG_ISO_LOCKING_SHIFT   0x0010
 117
 118 /* If set, use single-shift function.  Overwrite
 119    CODING_FLAG_ISO_LOCKING_SHIFT.  */
 120 #define CODING_FLAG_ISO_SINGLE_SHIFT    0x0020
 121
 122 /* If set, designate JISX0201-Roman instead of ASCII.  */
 123 #define CODING_FLAG_ISO_USE_ROMAN       0x0040
 124
 125 /* If set, designate JISX0208-1978 instead of JISX0208-1983.  */
 126 #define CODING_FLAG_ISO_USE_OLDJIS      0x0080
 127
 128 /* If set, do not produce ISO6429's direction specifying sequence.  */
 129 #define CODING_FLAG_ISO_NO_DIRECTION    0x0100
 130
 131 /* If set, assume designation states are reset at beginning of line on
 132    output.  */
 133 #define CODING_FLAG_ISO_INIT_AT_BOL     0x0200
 134
 135 /* If set, designation sequence should be placed at beginning of line
 136    on output.  */
 137 #define CODING_FLAG_ISO_DESIGNATE_AT_BOL 0x0400
 138
 139 /* Structure of the field `spec.iso2022' in the structure `coding_system'.  */
 140 struct iso2022_spec
 141 {
 142   /* The current graphic register invoked to each graphic plane.  */
 143   int current_invocation[2];
 144
 145   /* The current charset designated to each graphic register.  */
 146   int current_designation[4];
 147
 148   /* A charset initially designated to each graphic register.  */
 149   int initial_designation[4];
 150
 151   /* A graphic register to which each charset should be designated.  */
 152   char requested_designation[MAX_CHARSET + 1];
 153
 154   /* Set to 1 temporarily only when graphic register 2 or 3 is invoked
 155      by single-shift while encoding.  */
 156   int single_shifting;
 157
 158   /* Set to 1 temporarily only when processing at beginning of line.  */
 159   int bol;
 160 };
 161
 162 /* Macros to access each field in the structure `spec.iso2022'.  */
 163 #define CODING_SPEC_ISO_INVOCATION(coding, plane) \
 164   coding->spec.iso2022.current_invocation[plane]
 165 #define CODING_SPEC_ISO_DESIGNATION(coding, reg) \
 166   coding->spec.iso2022.current_designation[reg]
 167 #define CODING_SPEC_ISO_INITIAL_DESIGNATION(coding, reg) \
 168   coding->spec.iso2022.initial_designation[reg]
 169 #define CODING_SPEC_ISO_REQUESTED_DESIGNATION(coding, charset) \
 170   coding->spec.iso2022.requested_designation[charset]
 171 #define CODING_SPEC_ISO_SINGLE_SHIFTING(coding) \
 172   coding->spec.iso2022.single_shifting
 173 #define CODING_SPEC_ISO_BOL(coding) \
 174   coding->spec.iso2022.bol
 175
 176 /* Return a charset which is currently designated to the graphic plane
 177    PLANE in the coding-system CODING.  */
 178 #define CODING_SPEC_ISO_PLANE_CHARSET(coding, plane) \
 179   CODING_SPEC_ISO_DESIGNATION            \
 180   (coding, CODING_SPEC_ISO_INVOCATION (coding, plane))
 181
 182 /*** BIG5 section ***/
 183
 184 /* Macros to denote each type of BIG5 coding system.  */
 185 #define CODING_FLAG_BIG5_HKU    0x00 /* BIG5-HKU is one of variants of
 186                                         BIG5 developed by Hong Kong
 187                                         University.  */
 188 #define CODING_FLAG_BIG5_ETEN   0x01 /* BIG5_ETen is one of variants
 189                                         of BIG5 developed by the
 190                                         company ETen in Taiwan.  */
 191
 192 /*** GENERAL section ***/
 193
 194 /* Types of coding system.  */
 195 enum coding_type
 196   {
 197     coding_type_no_conversion,  /* A coding system which requires no
 198                                    conversion for reading and writing
 199                                    including end-of-line format.  */
 200     coding_type_internal,       /* A coding system used in Emacs'
 201                                    buffer and string.  Requires no
 202                                    conversion for reading and writing
 203                                    except for end-of-line format.  */
 204     coding_type_automatic,      /* A coding system which requires
 205                                    automatic detection of a real
 206                                    coding system.  */
 207     coding_type_sjis,           /* SJIS coding system for Japanese.  */
 208     coding_type_iso2022,        /* Any coding system of ISO2022
 209                                    variants.  */
 210     coding_type_big5,           /* BIG5 coding system for Chinese.  */
 211     coding_type_ccl             /* The coding system of which decoder
 212                                    and encoder are written in CCL.  */
 213   };
 214
 215 /* Formats of end-of-line.  */
 216 #define CODING_EOL_LF   0       /* Line-feed only, same as Emacs'
 217                                    internal format.  */
 218 #define CODING_EOL_CRLF 1       /* Sequence of carriage-return and
 219                                    line-feed.  */
 220 #define CODING_EOL_CR   2       /* Carriage-return only.  */
 221 #define CODING_EOL_AUTOMATIC 3  /* This value is used to denote the
 222                                    eol-type is not yet decided.  */
 223
 224 /* Character composition status while encoding/decoding.  */
 225 #define COMPOSING_NO             0 /* not composing */
 226 #define COMPOSING_WITH_RULE_HEAD 1 /* 1st char of with-rule composing follow */
 227 #define COMPOSING_NO_RULE_HEAD   2 /* 1st char of no-rule composing follow */
 228 #define COMPOSING_WITH_RULE_TAIL 3 /* Nth char of with-rule composing follow */
 229 #define COMPOSING_NO_RULE_TAIL   4 /* Nth char of no-rule composing follow */
 230 #define COMPOSING_WITH_RULE_RULE 5 /* composition rule follow */
 231
 232 /* 1 iff composing.  */
 233 #define COMPOSING_P(composing) (composing)
 234 /* 1 iff 1st char of composing element follows.  */
 235 #define COMPOSING_HEAD_P(composing) \
 236   ((composing) && (composing) <= COMPOSING_NO_RULE_HEAD)
 237 /* 1 iff composing with embeded composition rule.  */
 238 #define COMPOSING_WITH_RULE_P(composing) ((composing) & 1)
 239
 240 struct coding_system
 241 {
 242   /* Type of the coding system.  */
 243   enum coding_type type;
 244
 245   /* If the coding system requires specific code to be attached at the
 246      tail of converted text, this value should be set to `1'.  */
 247   int require_flushing;
 248
 249   /* Flag bits of the coding system.  The meaning of each bit depends
 250      on the type of the coding system.  */
 251   unsigned int flags;
 252
 253   /* Type of end-of-line format (LF, CRLF, or CR) of the coding system.  */
 254   int eol_type;
 255
 256   /* Non-zero means that the current source text is the last block of the
 257      whole text to be converted.  */
 258   int last_block;
 259
 260   /* Non-zero means that characters are being composed currently while
 261      decoding or encoding.  See macros COMPOSING_XXXX above for the
 262      meaing of each non-zero value.  */
 263   int composing;
 264
 265   /* 0 (left-to-right) or 1 (right-to-left): the direction of the text
 266      being processed currently.  */
 267   int direction;
 268
 269   /* Non-zero means that the current source text is in a buffer which
 270      enables selective display.  */
 271   int selective;
 272
 273   /* Detailed information specific to each type of coding system.  */
 274   union spec
 275     {
 276       struct iso2022_spec iso2022;
 277       struct ccl_spec ccl;      /* Defined in ccl.h.  */
 278     } spec;
 279
 280   /* Backward pointer to the Lisp symbol of the coding system.  */
 281   Lisp_Object symbol;
 282
 283   /* Lisp function (symbol) to be called after decoding to do
 284      additional conversion. */
 285   Lisp_Object post_read_conversion;
 286
 287   /* Lisp function (symbol) to be called before encoding to do
 288      additional conversion. */
 289   Lisp_Object pre_write_conversion;
 290
 291   /* Carryover yielded by decoding/encoding incomplete source.  No
 292      coding-system yields more than 7-byte of carryover.  This does
 293      not include a text which is not processed because of short of
 294      output buffer.  */
 295   char carryover[8];
 296
 297   /* Actual data length in the above array.  */
 298   int carryover_size;
 299 };
 300
 301 /* Return 1 if the coding-system CODING requires conversion of
 302    representation of a visible character (text).  */
 303 #define CODING_REQUIRE_TEXT_CONVERSION(coding)  \
 304   ((coding)->type != coding_type_no_conversion          \
 305    && (coding)->type != coding_type_internal)
 306
 307 /* Return 1 if the coding-system CODING requires conversion of the
 308    format of end-of-line.  */
 309 #define CODING_REQUIRE_EOL_CONVERSION(coding)   \
 310   ((coding)->eol_type != CODING_EOL_AUTOMATIC   \
 311    && (coding)->eol_type != CODING_EOL_LF)
 312
 313 /* Return 1 if the coding-system CODING requires some conversion.  */
 314 #define CODING_REQUIRE_CONVERSION(coding)       \
 315   (CODING_REQUIRE_TEXT_CONVERSION (coding)      \
 316    || CODING_REQUIRE_EOL_CONVERSION (coding))
 317
 318 /* Index for each coding category in `coding_category_table' */
 319 #define CODING_CATEGORY_IDX_INTERNAL    0
 320 #define CODING_CATEGORY_IDX_SJIS        1
 321 #define CODING_CATEGORY_IDX_ISO_7       2
 322 #define CODING_CATEGORY_IDX_ISO_8_1     3
 323 #define CODING_CATEGORY_IDX_ISO_8_2     4
 324 #define CODING_CATEGORY_IDX_ISO_ELSE    5
 325 #define CODING_CATEGORY_IDX_BIG5        6
 326 #define CODING_CATEGORY_IDX_BINARY      7
 327 #define CODING_CATEGORY_IDX_MAX         8
 328
 329 /* Definitions of flag bits returned by the function
 330    detect_coding_mask ().  */
 331 #define CODING_CATEGORY_MASK_INTERNAL   (1 << CODING_CATEGORY_IDX_INTERNAL)
 332 #define CODING_CATEGORY_MASK_SJIS       (1 << CODING_CATEGORY_IDX_SJIS)
 333 #define CODING_CATEGORY_MASK_ISO_7      (1 << CODING_CATEGORY_IDX_ISO_7)
 334 #define CODING_CATEGORY_MASK_ISO_8_1    (1 << CODING_CATEGORY_IDX_ISO_8_1)
 335 #define CODING_CATEGORY_MASK_ISO_8_2    (1 << CODING_CATEGORY_IDX_ISO_8_2)
 336 #define CODING_CATEGORY_MASK_ISO_ELSE   (1 << CODING_CATEGORY_IDX_ISO_ELSE)
 337 #define CODING_CATEGORY_MASK_BIG5       (1 << CODING_CATEGORY_IDX_BIG5)
 338
 339 /* This value is returned if detect_coding_mask () find nothing other
 340    than ASCII characters.  */
 341 #define CODING_CATEGORY_MASK_ANY        \
 342   (  CODING_CATEGORY_MASK_INTERNAL      \
 343    | CODING_CATEGORY_MASK_SJIS          \
 344    | CODING_CATEGORY_MASK_ISO_7         \
 345    | CODING_CATEGORY_MASK_ISO_8_1       \
 346    | CODING_CATEGORY_MASK_ISO_8_2       \
 347    | CODING_CATEGORY_MASK_ISO_ELSE      \
 348    | CODING_CATEGORY_MASK_BIG5)
 349
 350 /* Macros to decode or encode a character of JISX0208 in SJIS.  S1 and
 351    S2 are the 1st and 2nd position-codes of JISX0208 in SJIS coding
 352    system.  C1 and C2 are the 1st and 2nd position codes of Emacs'
 353    internal format.  */
 354
 355 #define DECODE_SJIS(s1, s2, c1, c2)                     \
 356   do {                                                  \
 357     if (s2 >= 0x9F)                                     \
 358       c1 = s1 * 2 - (s1 >= 0xE0 ? 0x160 : 0xE0),        \
 359       c2 = s2 - 0x7E;                                   \
 360     else                                                \
 361       c1 = s1 * 2 - ((s1 >= 0xE0) ? 0x161 : 0xE1),      \
 362       c2 = s2 - ((s2 >= 0x7F) ? 0x20 : 0x1F);           \
 363   } while (0)
 364
 365 #define ENCODE_SJIS(c1, c2, s1, s2)                     \
 366   do {                                                  \
 367     if (c1 & 1)                                         \
 368       s1 = c1 / 2 + ((c1 < 0x5F) ? 0x71 : 0xB1),        \
 369       s2 = c2 + ((c2 >= 0x60) ? 0x20 : 0x1F);           \
 370     else                                                \
 371       s1 = c1 / 2 + ((c1 < 0x5F) ? 0x70 : 0xB0),        \
 372       s2 = c2 + 0x7E;                                   \
 373   } while (0)
 374
 375 /* Extern declarations.  */
 376 extern int decode_coding (), encode_coding ();
 377 extern int decoding_buffer_size (), encoding_buffer_size ();
 378 extern int conversion_buffer_size;
 379 extern char *conversion_buffer, *get_conversion_buffer ();
 380 extern Lisp_Object Fcheck_coding_system ();
 381 extern Lisp_Object Qcoding_system, Qeol_type, Qcoding_category_index;
 382 extern Lisp_Object Qbuffer_file_coding_system;
 383 extern Lisp_Object Vcoding_category_list;
 384
 385 /* Mnemonic character to indicate each type of end-of-line.  */
 386 extern int eol_mnemonic_unix, eol_mnemonic_dos, eol_mnemonic_mac;
 387 /* Mnemonic character to indicate type of end-of-line is not yet decided.  */
 388 extern int eol_mnemonic_undecided;
 389
 390 /* Table of coding-systems currently assigned to each coding-category.  */
 391 extern Lisp_Object coding_category_table[CODING_CATEGORY_IDX_MAX];
 392 /* Table of names of symbol for each coding-category.  */
 393 extern char *coding_category_name[CODING_CATEGORY_IDX_MAX];
 394
 395 #ifdef emacs
 396 extern Lisp_Object Qfile_coding_system;
 397 extern Lisp_Object Qcall_process, Qcall_process_region, Qprocess_argument;
 398 extern Lisp_Object Qstart_process, Qopen_network_stream;
 399
 400 /* Coding-system for reading files and receiving data from process.  */
 401 extern Lisp_Object Vcoding_system_for_read;
 402 /* Coding-system for writing files and sending data to process.  */
 403 extern Lisp_Object Vcoding_system_for_write;
 404 /* Coding-system actually used in the latest I/O.  */
 405 extern Lisp_Object Vlast_coding_system_used;
 406
 407 /* Coding-system to be used for encoding terminal output.  This
 408    structure contains information of a coding-system specified by the
 409    function `set-terminal-coding-system'.  */
 410 extern struct coding_system terminal_coding;
 411
 412 /* Coding-system of what is sent from terminal keyboard.  This
 413    structure contains information of a coding-system specified by the
 414    function `set-keyboard-coding-system'.  */
 415 extern struct coding_system keyboard_coding;
 416
 417 extern Lisp_Object Vcoding_system_alist;
 418
 419 #endif
 420
 421 #endif /* _CODING_H */