Mercurial > hg > xemacs-beta

comparison src/unicode.c @ 4270:bd9b678f4db7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-11-15 10:05:14 by aidan] Eliminate a non-Mule build failure from my last Unicode change--thank you Vin!
author aidan
date Thu, 15 Nov 2007 10:05:16 +0000
parents 75d0292c1bff
children 2669b1b7e33b
comparison
equal deleted inserted replaced
4269:609a5762d915 4270:bd9b678f4db7
2860 } 2860 }
2861 2861
2862 void 2862 void
2863 coding_system_type_create_unicode (void) 2863 coding_system_type_create_unicode (void)
2864 { 2864 {
2865 INITIALIZE_CODING_SYSTEM_TYPE_WITH_DATA (unicode, "unicode-coding-system-p");
2866 CODING_SYSTEM_HAS_METHOD (unicode, print);
2867 CODING_SYSTEM_HAS_METHOD (unicode, convert);
2868 CODING_SYSTEM_HAS_METHOD (unicode, init_coding_stream);
2869 CODING_SYSTEM_HAS_METHOD (unicode, rewind_coding_stream);
2870 CODING_SYSTEM_HAS_METHOD (unicode, putprop);
2871 CODING_SYSTEM_HAS_METHOD (unicode, getprop);
2872
2873 INITIALIZE_DETECTOR (utf_8);
2874 DETECTOR_HAS_METHOD (utf_8, detect);
2875 INITIALIZE_DETECTOR_CATEGORY (utf_8, utf_8);
2876 INITIALIZE_DETECTOR_CATEGORY (utf_8, utf_8_bom);
2877
2878 INITIALIZE_DETECTOR (ucs_4);
2879 DETECTOR_HAS_METHOD (ucs_4, detect);
2880 INITIALIZE_DETECTOR_CATEGORY (ucs_4, ucs_4);
2881
2882 INITIALIZE_DETECTOR (utf_16);
2883 DETECTOR_HAS_METHOD (utf_16, detect);
2884 INITIALIZE_DETECTOR_CATEGORY (utf_16, utf_16);
2885 INITIALIZE_DETECTOR_CATEGORY (utf_16, utf_16_little_endian);
2886 INITIALIZE_DETECTOR_CATEGORY (utf_16, utf_16_bom);
2887 INITIALIZE_DETECTOR_CATEGORY (utf_16, utf_16_little_endian_bom);
2888 }
2889
2890 void
2891 reinit_coding_system_type_create_unicode (void)
2892 {
2893 REINITIALIZE_CODING_SYSTEM_TYPE (unicode);
2894 }
2895
2896 void
2897 vars_of_unicode (void)
2898 {
2899 Fprovide (intern ("unicode"));
2900
2901 #ifdef MULE
2865 staticpro (&Vnumber_of_jit_charsets); 2902 staticpro (&Vnumber_of_jit_charsets);
2866 Vnumber_of_jit_charsets = make_int (0); 2903 Vnumber_of_jit_charsets = make_int (0);
2867 staticpro (&Vlast_jit_charset_final); 2904 staticpro (&Vlast_jit_charset_final);
2868 Vlast_jit_charset_final = make_char (0x30); 2905 Vlast_jit_charset_final = make_char (0x30);
2869 staticpro (&Vcharset_descr); 2906 staticpro (&Vcharset_descr);
2870 Vcharset_descr 2907 Vcharset_descr
2871 = build_string ("Mule charset for otherwise unknown Unicode code points."); 2908 = build_string ("Mule charset for otherwise unknown Unicode code points.");
2872 2909
2873 INITIALIZE_CODING_SYSTEM_TYPE_WITH_DATA (unicode, "unicode-coding-system-p");
2874 CODING_SYSTEM_HAS_METHOD (unicode, print);
2875 CODING_SYSTEM_HAS_METHOD (unicode, convert);
2876 CODING_SYSTEM_HAS_METHOD (unicode, init_coding_stream);
2877 CODING_SYSTEM_HAS_METHOD (unicode, rewind_coding_stream);
2878 CODING_SYSTEM_HAS_METHOD (unicode, putprop);
2879 CODING_SYSTEM_HAS_METHOD (unicode, getprop);
2880
2881 INITIALIZE_DETECTOR (utf_8);
2882 DETECTOR_HAS_METHOD (utf_8, detect);
2883 INITIALIZE_DETECTOR_CATEGORY (utf_8, utf_8);
2884 INITIALIZE_DETECTOR_CATEGORY (utf_8, utf_8_bom);
2885
2886 INITIALIZE_DETECTOR (ucs_4);
2887 DETECTOR_HAS_METHOD (ucs_4, detect);
2888 INITIALIZE_DETECTOR_CATEGORY (ucs_4, ucs_4);
2889
2890 INITIALIZE_DETECTOR (utf_16);
2891 DETECTOR_HAS_METHOD (utf_16, detect);
2892 INITIALIZE_DETECTOR_CATEGORY (utf_16, utf_16);
2893 INITIALIZE_DETECTOR_CATEGORY (utf_16, utf_16_little_endian);
2894 INITIALIZE_DETECTOR_CATEGORY (utf_16, utf_16_bom);
2895 INITIALIZE_DETECTOR_CATEGORY (utf_16, utf_16_little_endian_bom);
2896 }
2897
2898 void
2899 reinit_coding_system_type_create_unicode (void)
2900 {
2901 REINITIALIZE_CODING_SYSTEM_TYPE (unicode);
2902 }
2903
2904 void
2905 vars_of_unicode (void)
2906 {
2907 Fprovide (intern ("unicode"));
2908
2909 #ifdef MULE
2910 staticpro (&Vlanguage_unicode_precedence_list); 2910 staticpro (&Vlanguage_unicode_precedence_list);
2911 Vlanguage_unicode_precedence_list = Qnil; 2911 Vlanguage_unicode_precedence_list = Qnil;
2912 2912
2913 staticpro (&Vdefault_unicode_precedence_list); 2913 staticpro (&Vdefault_unicode_precedence_list);
2914 Vdefault_unicode_precedence_list = Qnil; 2914 Vdefault_unicode_precedence_list = Qnil;