A multilingual input method framework
リビジョン | d78257bf4c6948974f5d47082b501fb26a2914cc (tree) |
---|---|
日時 | 2004-12-07 21:53:04 |
作者 | tkng <tkng@ff9a...> |
コミッター | tkng |
@@ -1012,6 +1012,36 @@ lang_code_to_lang_name_raw(LISP code_) | ||
1012 | 1012 | } |
1013 | 1013 | |
1014 | 1014 | void |
1015 | +uim_init_subr_0 (char *name, uim_lisp (*fcn) (void)) | |
1016 | +{ | |
1017 | + init_subr (name, tc_subr_0, (SUBR_FUNC) fcn); | |
1018 | +} | |
1019 | + | |
1020 | +void | |
1021 | +uim_init_subr_1 (char *name, uim_lisp (*fcn) (uim_lisp)) | |
1022 | +{ | |
1023 | + init_subr (name, tc_subr_1, (SUBR_FUNC) fcn); | |
1024 | +} | |
1025 | + | |
1026 | +void | |
1027 | +uim_init_subr_2 (char *name, uim_lisp (*fcn) (uim_lisp, uim_lisp)) | |
1028 | +{ | |
1029 | + init_subr (name, tc_subr_2, (SUBR_FUNC) fcn); | |
1030 | +} | |
1031 | + | |
1032 | +void | |
1033 | +uim_init_subr_3 (char *name, uim_lisp (*fcn) (uim_lisp, uim_lisp, uim_lisp)) | |
1034 | +{ | |
1035 | + init_subr (name, tc_subr_3, (SUBR_FUNC) fcn); | |
1036 | +} | |
1037 | + | |
1038 | +void | |
1039 | +uim_init_subr_4 (char *name, uim_lisp (*fcn) (uim_lisp, uim_lisp, uim_lisp, uim_lisp)) | |
1040 | +{ | |
1041 | + init_subr (name, tc_subr_4, (SUBR_FUNC) fcn); | |
1042 | +} | |
1043 | + | |
1044 | +void | |
1015 | 1045 | uim_init_util_subrs() |
1016 | 1046 | { |
1017 | 1047 | true_sym = siod_true_value(); |