Mercurial > hg > xemacs-beta

comparison src/lisp.h @ 5200:70ed8a0d8da8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
port Mule-ization of mule-wnnfns.c from ben-unicode-internal -------------------- ChangeLog entries follow: -------------------- src/ChangeLog addition: 2010-04-12 Ben Wing <ben@xemacs.org> * charset.h: * lisp.h: * lisp.h (XREALLOC_ARRAY): * text.h: Port charset_codepoint_to_itext(), buffer_itext_to_charset_codepoint(), EXTBYTE_STRING_TO_ALLOCA(), `enum converr' from ben-unicode-internal, for use with the mule-wnnfns.c changes. * mule-wnnfns.c: * mule-wnnfns.c (Fwnn_open): * mule-wnnfns.c (Fwnn_dict_add): * mule-wnnfns.c (Fwnn_dict_list): * mule-wnnfns.c (Fwnn_get_zenkouho): * mule-wnnfns.c (Fwnn_inspect): * mule-wnnfns.c (Fwnn_bunsetu_kanji): * mule-wnnfns.c (Fwnn_bunsetu_yomi): * mule-wnnfns.c (Fwnn_word_info): * mule-wnnfns.c (Fwnn_dict_search): * mule-wnnfns.c (Fwnn_get_msg): * mule-wnnfns.c (Fwnn_fuzokugo_set): * mule-wnnfns.c (Fwnn_fuzokugo_get): * mule-wnnfns.c (Fwnn_hinsi_list): * mule-wnnfns.c (Fwnn_fisys_dict_add): * mule-wnnfns.c (Fwnn_fiusr_dict_add): * mule-wnnfns.c (Fwnn_notrans_dict_add): * mule-wnnfns.c (Fwnn_bmodify_dict_add): * mule-wnnfns.c (reinit_vars_of_mule_wnn): * mule-wnnfns.c (vars_of_mule_wnn): * mule-wnnfns.c (w2m): * mule-wnnfns.c (m2w): * mule-wnnfns.c (yes_or_no): * mule-wnnfns.c (puts2): * mule-wnnfns.c (check_wnn_server_type): Mule-ize, borrowed from ben-unicode-internal.
author Ben Wing <ben@xemacs.org>
date Mon, 12 Apr 2010 00:55:04 -0500
parents 71ee43b8a74d
children cdca98f2d36f
comparison
equal deleted inserted replaced
5199:49e931565616 5200:70ed8a0d8da8
1440 Bytecount _bsta_3 = qxestrlen (_bsta_2); \ 1440 Bytecount _bsta_3 = qxestrlen (_bsta_2); \
1441 *_bsta_ = alloca_ibytes (1 + _bsta_3); \ 1441 *_bsta_ = alloca_ibytes (1 + _bsta_3); \
1442 memcpy (*_bsta_, _bsta_2, 1 + _bsta_3); \ 1442 memcpy (*_bsta_, _bsta_2, 1 + _bsta_3); \
1443 } while (0) 1443 } while (0)
1444 1444
1445 /* Make an alloca'd copy of a Extbyte * */
1446 #define EXTBYTE_STRING_TO_ALLOCA(p, lval) \
1447 do { \
1448 Extbyte **_esta_ = (Extbyte **) &(lval); \
1449 const Extbyte *_esta_2 = (p); \
1450 Bytecount _esta_3 = strlen (_esta_2); \
1451 *_esta_ = alloca_extbytes (1 + _esta_3); \
1452 memcpy (*_esta_, _esta_2, 1 + _esta_3); \
1453 } while (0)
1454
1445 /* ----------------- convenience functions for reallocation --------------- */ 1455 /* ----------------- convenience functions for reallocation --------------- */
1446 1456
1447 #define XREALLOC_ARRAY(ptr, type, len) \ 1457 #define XREALLOC_ARRAY(ptr, type, len) \
1448 ((void) (ptr = (type *) xrealloc (ptr, (len) * sizeof (type)))) 1458 ((void) (ptr = (type *) xrealloc (ptr, (len) * sizeof (type))))
1449 1459