/* Header for coding system handler.
- Copyright (C) 2004 Free Software Foundation, Inc.
- Copyright (C) 1995, 1997 Electrotechnical Laboratory, JAPAN.
- Licensed to the Free Software Foundation.
+ Copyright (C) 2002, 2003, 2004, 2005,
+ 2006 Free Software Foundation, Inc.
+ Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
+ 2005, 2006
+ National Institute of Advanced Industrial Science and Technology (AIST)
+ Registration Number H14PRO021
This file is part of GNU Emacs.
You should have received a copy of the GNU General Public License
along with GNU Emacs; see the file COPYING. If not, write to
-the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-Boston, MA 02111-1307, USA. */
+the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+Boston, MA 02110-1301, USA. */
#ifndef EMACS_CODING_H
#define EMACS_CODING_H
Lisp_Object translation_table_for_encode;
};
-#define CODING_REQUIRE_FLUSHING_MASK 1
-#define CODING_REQUIRE_DECODING_MASK 2
-#define CODING_REQUIRE_ENCODING_MASK 4
-#define CODING_REQUIRE_DETECTION_MASK 8
+/* Mask bits for (struct coding_system *)->common_flags. */
+#define CODING_REQUIRE_FLUSHING_MASK 0x01
+#define CODING_REQUIRE_DECODING_MASK 0x02
+#define CODING_REQUIRE_ENCODING_MASK 0x04
+#define CODING_REQUIRE_DETECTION_MASK 0x08
+#define CODING_ASCII_INCOMPATIBLE_MASK 0x10
/* Return 1 if the coding system CODING requires specific code to be
attached at the tail of converted text. */
|| (coding)->common_flags & CODING_REQUIRE_DECODING_MASK)
/* Return 1 if the coding system CODING requires code conversion on
- encoding. */
+ encoding.
+ The non-multibyte part of the condition is to support encoding of
+ unibyte strings/buffers generated by string-as-unibyte or
+ (set-buffer-multibyte nil) from multibyte strings/buffers. */
#define CODING_REQUIRE_ENCODING(coding) \
((coding)->src_multibyte \
|| (coding)->common_flags & CODING_REQUIRE_ENCODING_MASK)
? code_convert_string_norecord (name, Vdefault_file_name_coding_system, 0) \
: name))
-#ifdef WINDOWSNT
/* Encode the string STR using the specified coding system
- for w32 system functions, if any. */
+ for system functions, if any. */
#define ENCODE_SYSTEM(str) \
(! NILP (Vlocale_coding_system) \
&& !EQ (Vlocale_coding_system, make_number (0)) \
: str)
/* Decode the string STR using the specified coding system
- for w32 system functions, if any. */
-#define DECODE_SYSTEM(name) \
+ for system functions, if any. */
+#define DECODE_SYSTEM(str) \
(! NILP (Vlocale_coding_system) \
&& !EQ (Vlocale_coding_system, make_number (0)) \
? code_convert_string_norecord (str, Vlocale_coding_system, 0) \
: str)
-#else /* WINDOWSNT */
-
-#define ENCODE_SYSTEM(str) string_make_unibyte(str)
-#define DECODE_SYSTEM(name) name
-
-#endif /* !WINDOWSNT */
-
#define ENCODE_UTF_8(str) code_convert_string_norecord (str, Qutf_8, 1)
/* Extern declarations. */
extern Lisp_Object run_pre_post_conversion_on_str P_ ((Lisp_Object,
struct coding_system *,
int));
-extern void run_pre_write_conversin_on_c_str P_ ((unsigned char **, int *,
+extern void run_pre_write_conversin_on_c_str P_ ((unsigned char **, int *,
int, int,
struct coding_system *));
/* Mnemonic string to indicate type of end-of-line is not yet decided. */
extern Lisp_Object eol_mnemonic_undecided;
+/* Format of end-of-line decided by system. */
+extern int system_eol_type;
+
#ifdef emacs
extern Lisp_Object Qfile_coding_system;
-extern Lisp_Object Qcall_process, Qcall_process_region, Qprocess_argument;
+extern Lisp_Object Qcall_process, Qcall_process_region;
extern Lisp_Object Qstart_process, Qopen_network_stream;
extern Lisp_Object Qwrite_region;