Mercurial > hg > xemacs-beta
diff src/file-coding.h @ 263:727739f917cb r20-5b30
Import from CVS: tag r20-5b30
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:24:41 +0200 |
parents | 405dd6d1825b |
children | c5d627a313b1 |
line wrap: on
line diff
--- a/src/file-coding.h Mon Aug 13 10:23:52 2007 +0200 +++ b/src/file-coding.h Mon Aug 13 10:24:41 2007 +0200 @@ -62,6 +62,7 @@ EOL_CR }; +#ifdef MULE typedef struct charset_conversion_spec charset_conversion_spec; struct charset_conversion_spec { @@ -73,6 +74,7 @@ { Dynarr_declare (charset_conversion_spec); } charset_conversion_spec_dynarr; +#endif struct Lisp_Coding_System { @@ -97,7 +99,7 @@ marking, rather than autodetecting it. These will only be non-nil if (eol_type == EOL_AUTODETECT). */ Lisp_Object eol_lf, eol_crlf, eol_cr; - +#ifdef MULE struct { /* What are the charsets to be initially designated to G0, G1, @@ -121,13 +123,13 @@ unsigned int no_iso6429 :1; unsigned int escape_quoted :1; } iso2022; - struct { /* For a CCL coding system, these specify the CCL programs used for decoding (input) and encoding (output). */ Lisp_Object decode, encode; } ccl; +#endif }; DECLARE_LRECORD (coding_system, struct Lisp_Coding_System); @@ -150,6 +152,8 @@ #define CODING_SYSTEM_EOL_LF(codesys) ((codesys)->eol_lf) #define CODING_SYSTEM_EOL_CRLF(codesys) ((codesys)->eol_crlf) #define CODING_SYSTEM_EOL_CR(codesys) ((codesys)->eol_cr) + +#ifdef MULE #define CODING_SYSTEM_ISO2022_INITIAL_CHARSET(codesys, g) \ ((codesys)->iso2022.initial_charset[g]) #define CODING_SYSTEM_ISO2022_FORCE_CHARSET_ON_OUTPUT(codesys, g) \ @@ -168,6 +172,7 @@ ((codesys)->iso2022.escape_quoted) #define CODING_SYSTEM_CCL_DECODE(codesys) ((codesys)->ccl.decode) #define CODING_SYSTEM_CCL_ENCODE(codesys) ((codesys)->ccl.encode) +#endif /* MULE */ #define XCODING_SYSTEM_NAME(codesys) \ CODING_SYSTEM_NAME (XCODING_SYSTEM (codesys)) @@ -189,6 +194,8 @@ CODING_SYSTEM_EOL_CRLF (XCODING_SYSTEM (codesys)) #define XCODING_SYSTEM_EOL_CR(codesys) \ CODING_SYSTEM_EOL_CR (XCODING_SYSTEM (codesys)) + +#ifdef MULE #define XCODING_SYSTEM_ISO2022_INITIAL_CHARSET(codesys, g) \ CODING_SYSTEM_ISO2022_INITIAL_CHARSET (XCODING_SYSTEM (codesys), g) #define XCODING_SYSTEM_ISO2022_FORCE_CHARSET_ON_OUTPUT(codesys, g) \ @@ -211,6 +218,7 @@ CODING_SYSTEM_CCL_DECODE (XCODING_SYSTEM (codesys)) #define XCODING_SYSTEM_CCL_ENCODE(codesys) \ CODING_SYSTEM_CCL_ENCODE (XCODING_SYSTEM (codesys)) +#endif /* MULE */ extern Lisp_Object Qbuffer_file_coding_system, Qcoding_system_error; @@ -235,7 +243,7 @@ /* Used by Big 5 on output. */ - +#ifdef MULE #define CODING_STATE_BIG5_1 (1 << 2) /* If set, we just encountered LEADING_BYTE_BIG5_1. */ #define CODING_STATE_BIG5_2 (1 << 3) /* If set, we just encountered @@ -353,6 +361,7 @@ #define ISO_CODE_SS2 0x8E /* single-shift-2 */ #define ISO_CODE_SS3 0x8F /* single-shift-3 */ #define ISO_CODE_CSI 0x9B /* control-sequence-introduce */ +#endif /* MULE */ /* Macros to access an encoding stream or decoding stream */ @@ -393,6 +402,7 @@ #define CODING_CATEGORY_LAST CODING_CATEGORY_NO_CONVERSION +#ifdef MULE #define CODING_CATEGORY_SHIFT_JIS_MASK \ (1 << CODING_CATEGORY_SHIFT_JIS) #define CODING_CATEGORY_ISO_7_MASK \ @@ -407,11 +417,13 @@ (1 << CODING_CATEGORY_ISO_LOCK_SHIFT) #define CODING_CATEGORY_BIG5_MASK \ (1 << CODING_CATEGORY_BIG5) +#endif #define CODING_CATEGORY_NO_CONVERSION_MASK \ (1 << CODING_CATEGORY_NO_CONVERSION) #define CODING_CATEGORY_NOT_FINISHED_MASK \ (1 << 30) +#ifdef MULE /* Convert shift-JIS code (sj1, sj2) into internal string representation (c1, c2). (The leading byte is assumed.) */ @@ -440,6 +452,7 @@ sj1 = (I1 >> 1) + ((I1 < 0xdf) ? 0x30 : 0x70), \ sj2 = I2 - 2; \ } while (0) +#endif /* MULE */ extern Lisp_Object make_decoding_input_stream (Lstream *stream, Lisp_Object codesys);