Mercurial > hg > xemacs-beta

comparison src/file-coding.h @ 272:c5d627a313b1 r21-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b34
author cvs
date Mon, 13 Aug 2007 10:28:48 +0200
parents 727739f917cb
children 70ad99077275
comparison
equal deleted inserted replaced
271:c7b7086b0a39 272:c5d627a313b1
218 CODING_SYSTEM_CCL_DECODE (XCODING_SYSTEM (codesys)) 218 CODING_SYSTEM_CCL_DECODE (XCODING_SYSTEM (codesys))
219 #define XCODING_SYSTEM_CCL_ENCODE(codesys) \ 219 #define XCODING_SYSTEM_CCL_ENCODE(codesys) \
220 CODING_SYSTEM_CCL_ENCODE (XCODING_SYSTEM (codesys)) 220 CODING_SYSTEM_CCL_ENCODE (XCODING_SYSTEM (codesys))
221 #endif /* MULE */ 221 #endif /* MULE */
222 222
223 extern Lisp_Object Qbuffer_file_coding_system, Qcoding_system_error; 223 EXFUN (Fcoding_category_list, 0);
224 224 EXFUN (Fcoding_category_system, 1);
225 extern Lisp_Object Vkeyboard_coding_system; 225 EXFUN (Fcoding_priority_list, 0);
226 EXFUN (Fcoding_system_charset, 2);
227 EXFUN (Fcoding_system_doc_string, 1);
228 EXFUN (Fcoding_system_list, 0);
229 EXFUN (Fcoding_system_name, 1);
230 EXFUN (Fcoding_system_p, 1);
231 EXFUN (Fcoding_system_property, 2);
232 EXFUN (Fcoding_system_type, 1);
233 EXFUN (Fcopy_coding_system, 2);
234 EXFUN (Fdecode_big5_char, 1);
235 EXFUN (Fdecode_coding_region, 4);
236 EXFUN (Fdecode_shift_jis_char, 1);
237 EXFUN (Fdetect_coding_region, 3);
238 EXFUN (Fencode_big5_char, 1);
239 EXFUN (Fencode_coding_region, 4);
240 EXFUN (Fencode_shift_jis_char, 1);
241 EXFUN (Ffind_coding_system, 1);
242 EXFUN (Fget_coding_system, 1);
243 EXFUN (Fmake_coding_system, 4);
244 EXFUN (Fset_coding_category_system, 2);
245 EXFUN (Fset_coding_priority_list, 1);
246 EXFUN (Fsubsidiary_coding_system, 2);
247
248 extern Lisp_Object Qbig5, Qbuffer_file_coding_system, Qccl, Qcharset_g0;
249 extern Lisp_Object Qcharset_g1, Qcharset_g2, Qcharset_g3, Qcoding_system_error;
250 extern Lisp_Object Qcoding_system_p, Qcr, Qcrlf, Qctext, Qdecode, Qencode;
251 extern Lisp_Object Qeol_cr, Qeol_crlf, Qeol_lf, Qeol_type, Qescape_quoted;
252 extern Lisp_Object Qforce_g0_on_output, Qforce_g1_on_output;
253 extern Lisp_Object Qforce_g2_on_output, Qforce_g3_on_output;
254 extern Lisp_Object Qinput_charset_conversion, Qiso2022, Qlf, Qlock_shift;
255 extern Lisp_Object Qmnemonic, Qno_ascii_cntl, Qno_ascii_eol, Qno_conversion;
256 extern Lisp_Object Qno_iso6429, Qoutput_charset_conversion;
257 extern Lisp_Object Qpost_read_conversion, Qpre_write_conversion, Qseven;
258 extern Lisp_Object Qshift_jis, Qshort, Vcoding_system_for_read;
259 extern Lisp_Object Vcoding_system_for_write, Vcoding_system_hashtable;
260 extern Lisp_Object Vfile_name_coding_system, Vkeyboard_coding_system;
226 extern Lisp_Object Vterminal_coding_system; 261 extern Lisp_Object Vterminal_coding_system;
227 extern Lisp_Object Vcoding_system_for_read;
228 extern Lisp_Object Vcoding_system_for_write;
229 extern Lisp_Object Vpathname_coding_system;
230
231 extern Lisp_Object Qescape_quoted;
232 262
233 /* Flags indicating current state while converting code. */ 263 /* Flags indicating current state while converting code. */
234 264
235 /* Used by everyone. */ 265 /* Used by everyone. */
236 266
452 sj1 = (I1 >> 1) + ((I1 < 0xdf) ? 0x30 : 0x70), \ 482 sj1 = (I1 >> 1) + ((I1 < 0xdf) ? 0x30 : 0x70), \
453 sj2 = I2 - 2; \ 483 sj2 = I2 - 2; \
454 } while (0) 484 } while (0)
455 #endif /* MULE */ 485 #endif /* MULE */
456 486
457 extern Lisp_Object make_decoding_input_stream (Lstream *stream, 487 Lisp_Object make_decoding_input_stream (Lstream *stream,
458 Lisp_Object codesys); 488 Lisp_Object codesys);
459 extern Lisp_Object make_encoding_input_stream (Lstream *stream, 489 Lisp_Object make_encoding_input_stream (Lstream *stream,
460 Lisp_Object codesys); 490 Lisp_Object codesys);
461 extern Lisp_Object make_decoding_output_stream (Lstream *stream, 491 Lisp_Object make_decoding_output_stream (Lstream *stream,
462 Lisp_Object codesys); 492 Lisp_Object codesys);
463 extern Lisp_Object make_encoding_output_stream (Lstream *stream, 493 Lisp_Object make_encoding_output_stream (Lstream *stream,
464 Lisp_Object codesys); 494 Lisp_Object codesys);
465 extern Lisp_Object decoding_stream_coding_system (Lstream *stream); 495 Lisp_Object decoding_stream_coding_system (Lstream *stream);
466 extern Lisp_Object encoding_stream_coding_system (Lstream *stream); 496 Lisp_Object encoding_stream_coding_system (Lstream *stream);
467 extern void set_decoding_stream_coding_system (Lstream *stream, 497 void set_decoding_stream_coding_system (Lstream *stream,
468 Lisp_Object codesys); 498 Lisp_Object codesys);
469 extern void set_encoding_stream_coding_system (Lstream *stream, 499 void set_encoding_stream_coding_system (Lstream *stream,
470 Lisp_Object codesys); 500 Lisp_Object codesys);
471 extern void determine_real_coding_system (Lstream *stream, Lisp_Object *codesys_in_out, 501 void determine_real_coding_system (Lstream *stream, Lisp_Object *codesys_in_out,
472 enum eol_type *eol_type_in_out); 502 enum eol_type *eol_type_in_out);
473 503
474 504
475 #ifndef MULE 505 #ifndef MULE
476 #define MIN_LEADING_BYTE 0x80 506 #define MIN_LEADING_BYTE 0x80
477 /* These need special treatment in a string and/or character */ 507 /* These need special treatment in a string and/or character */