Mercurial > hg > xemacs-beta

comparison src/unicode.c @ 800:a5954632b187

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-03-31 08:27:14 by ben] more fixes, first crack at finishing behavior implementation TODO.ben-mule-21-5: Update. configure.in: Fix for new error-checking types. make-mswin-unicode.pl: Don't be fucked up by CRLF. Output code to force errors when nonintercepted Windows calls issued. behavior.el, dumped-lisp.el, menubar-items.el: Add support for saving using custom. Load into a dumped XEmacs. Correct :title to :short-doc in accordance with behavior-defs.el. Add a submenu under Options for turning on/off behaviors. cl-macs.el: Properly document `loop'. Fix a minor bug in keymap iteration and add support for bit-vector iteration. lisp-mode.el: Rearrange and add items for macro expanding. menubar-items.el: Document connection between these two functions. window.el: Port stuff from GNU 21.1. config.inc.samp, xemacs.mak: Separate out and add new variable for controlling error-checking. s/windowsnt.h: Use new ERROR_CHECK_ALL; not related to DEBUG_XEMACS. alloc.c, backtrace.h, buffer.c, buffer.h, bytecode.c, callproc.c, casetab.c, charset.h, chartab.c, cmdloop.c, config.h.in, console-msw.c, console-stream.c, console-tty.c, console.c, console.h, data.c, device-msw.c, device.c, device.h, dired-msw.c, dired.c, dumper.c, editfns.c, eldap.c, elhash.c, emacs.c, eval.c, event-Xt.c, event-gtk.c, event-msw.c, event-stream.c, events.c, extents.c, faces.c, file-coding.c, file-coding.h, fileio.c, frame-msw.c, frame.c, frame.h, glyphs-gtk.c, glyphs-msw.c, glyphs-shared.c, glyphs-widget.c, glyphs-x.c, glyphs.c, glyphs.h, insdel.c, intl-auto-encap-win32.c, intl-auto-encap-win32.h, intl-encap-win32.c, intl-win32.c, keymap.c, lisp-union.h, lisp.h, lread.c, lrecord.h, lstream.c, lstream.h, macros.c, marker.c, md5.c, menubar-x.c, menubar.c, mule-coding.c, ntproc.c, objects-gtk.c, objects-msw.c, objects-x.c, objects.c, opaque.c, print.c, process-nt.c, process-unix.c, process.c, rangetab.c, redisplay-msw.c, redisplay-output.c, redisplay.c, regex.c, scrollbar-msw.c, select-msw.c, signal.c, specifier.c, specifier.h, symbols.c, sysdep.c, syswindows.h, text.c, text.h, toolbar-msw.c, tooltalk.c, ui-gtk.c, unicode.c, window.c: Redo error-checking macros: ERROR_CHECK_TYPECHECK -> ERROR_CHECK_TYPES, ERROR_CHECK_CHARBPOS -> ERROR_CHECK_TEXT, add ERROR_CHECK_DISPLAY, ERROR_CHECK_STRUCTURES. Document these in config.h.in. Fix code to follow docs. Fix *_checking_assert() in accordance with new names. Attempt to fix periodic redisplay crash freeing display line structures. Add first implementation of sledgehammer redisplay check. Redo print_*() to use write_fmt_string(), write_fmt_string_lisp(). Fix bug in md5 handling. Rename character-to-unicode to char-to-unicode; same for unicode-to-char{acter}. Move chartab documentation to `make-char-table'. Some header cleanup. Clean up remaining places where nonintercepted Windows calls are being used. automated/mule-tests.el: Fix for new Unicode support.
author ben
date Sun, 31 Mar 2002 08:30:17 +0000
parents e38acbeb1cae
children 6728e641994e
comparison
equal deleted inserted replaced
799:03d9f9084848 800:a5954632b187
1111 return Qnil; 1111 return Qnil;
1112 } 1112 }
1113 1113
1114 #endif /* MULE */ 1114 #endif /* MULE */
1115 1115
1116 DEFUN ("character-to-unicode", Fcharacter_to_unicode, 1, 1, 0, /* 1116 DEFUN ("char-to-unicode", Fchar_to_unicode, 1, 1, 0, /*
1117 Convert character to Unicode codepoint. 1117 Convert character to Unicode codepoint.
1118 When there is no international support (i.e. MULE is not defined), 1118 When there is no international support (i.e. MULE is not defined),
1119 this function simply does `char-to-int'. 1119 this function simply does `char-to-int'.
1120 */ 1120 */
1121 (character)) 1121 (character))
1126 #else 1126 #else
1127 return Fchar_to_int (character); 1127 return Fchar_to_int (character);
1128 #endif /* MULE */ 1128 #endif /* MULE */
1129 } 1129 }
1130 1130
1131 DEFUN ("unicode-to-character", Funicode_to_character, 1, 2, 0, /* 1131 DEFUN ("unicode-to-char", Funicode_to_char, 1, 2, 0, /*
1132 Convert Unicode codepoint to character. 1132 Convert Unicode codepoint to character.
1133 CODE should be a non-negative integer. 1133 CODE should be a non-negative integer.
1134 If CHARSETS is given, it should be a list of charsets, and only those 1134 If CHARSETS is given, it should be a list of charsets, and only those
1135 charsets will be consulted, in the given order, for a translation. 1135 charsets will be consulted, in the given order, for a translation.
1136 Otherwise, the default ordering of all charsets will be given (see 1136 Otherwise, the default ordering of all charsets will be given (see
2110 } 2110 }
2111 2111
2112 static void 2112 static void
2113 unicode_print (Lisp_Object cs, Lisp_Object printcharfun, int escapeflag) 2113 unicode_print (Lisp_Object cs, Lisp_Object printcharfun, int escapeflag)
2114 { 2114 {
2115 write_c_string ("(", printcharfun); 2115 write_fmt_string_lisp (printcharfun, "(%s", 1, unicode_getprop (cs, Qtype));
2116 print_internal (unicode_getprop (cs, Qtype), printcharfun, 0);
2117 if (XCODING_SYSTEM_UNICODE_LITTLE_ENDIAN (cs)) 2116 if (XCODING_SYSTEM_UNICODE_LITTLE_ENDIAN (cs))
2118 write_c_string (", little-endian", printcharfun); 2117 write_c_string (", little-endian", printcharfun);
2119 if (XCODING_SYSTEM_UNICODE_NEED_BOM (cs)) 2118 if (XCODING_SYSTEM_UNICODE_NEED_BOM (cs))
2120 write_c_string (", need-bom", printcharfun); 2119 write_c_string (", need-bom", printcharfun);
2121 write_c_string (")", printcharfun); 2120 write_c_string (")", printcharfun);
2153 DEFSUBR (Fparse_unicode_translation_table); 2152 DEFSUBR (Fparse_unicode_translation_table);
2154 2153
2155 DEFSYMBOL (Qignore_first_column); 2154 DEFSYMBOL (Qignore_first_column);
2156 #endif /* MULE */ 2155 #endif /* MULE */
2157 2156
2158 DEFSUBR (Fcharacter_to_unicode); 2157 DEFSUBR (Fchar_to_unicode);
2159 DEFSUBR (Funicode_to_character); 2158 DEFSUBR (Funicode_to_char);
2160 2159
2161 DEFSYMBOL (Qunicode); 2160 DEFSYMBOL (Qunicode);
2162 DEFSYMBOL (Qucs_4); 2161 DEFSYMBOL (Qucs_4);
2163 DEFSYMBOL (Qutf_16); 2162 DEFSYMBOL (Qutf_16);
2164 DEFSYMBOL (Qutf_8); 2163 DEFSYMBOL (Qutf_8);