GLOBAL_FOLDING_PRIM cleanup char.c
svn: r17521
This commit is contained in:
parent
8b7fb01692
commit
aeb3523346
|
@ -104,158 +104,36 @@ void scheme_init_char (Scheme_Env *env)
|
|||
SCHEME_PRIM_PROC_FLAGS(p) |= SCHEME_PRIM_IS_BINARY_INLINED;
|
||||
scheme_add_global_constant("char=?", p, env);
|
||||
|
||||
scheme_add_global_constant("char<?",
|
||||
scheme_make_folding_prim(char_lt,
|
||||
"char<?",
|
||||
2, -1, 1),
|
||||
env);
|
||||
scheme_add_global_constant("char>?",
|
||||
scheme_make_folding_prim(char_gt,
|
||||
"char>?",
|
||||
2, -1, 1),
|
||||
env);
|
||||
scheme_add_global_constant("char<=?",
|
||||
scheme_make_folding_prim(char_lt_eq,
|
||||
"char<=?",
|
||||
2, -1, 1),
|
||||
env);
|
||||
scheme_add_global_constant("char>=?",
|
||||
scheme_make_folding_prim(char_gt_eq,
|
||||
"char>=?",
|
||||
2, -1, 1),
|
||||
env);
|
||||
scheme_add_global_constant("char-ci=?",
|
||||
scheme_make_folding_prim(char_eq_ci,
|
||||
"char-ci=?",
|
||||
2, -1, 1),
|
||||
env);
|
||||
scheme_add_global_constant("char-ci<?",
|
||||
scheme_make_folding_prim(char_lt_ci,
|
||||
"char-ci<?",
|
||||
2, -1, 1),
|
||||
env);
|
||||
scheme_add_global_constant("char-ci>?",
|
||||
scheme_make_folding_prim(char_gt_ci,
|
||||
"char-ci>?",
|
||||
2, -1, 1),
|
||||
env);
|
||||
scheme_add_global_constant("char-ci<=?",
|
||||
scheme_make_folding_prim(char_lt_eq_ci,
|
||||
"char-ci<=?",
|
||||
2, -1, 1),
|
||||
env);
|
||||
scheme_add_global_constant("char-ci>=?",
|
||||
scheme_make_folding_prim(char_gt_eq_ci,
|
||||
"char-ci>=?",
|
||||
2, -1, 1),
|
||||
env);
|
||||
scheme_add_global_constant("char-alphabetic?",
|
||||
scheme_make_folding_prim(char_alphabetic,
|
||||
"char-alphabetic?",
|
||||
1, 1, 1),
|
||||
env);
|
||||
scheme_add_global_constant("char-numeric?",
|
||||
scheme_make_folding_prim(char_numeric,
|
||||
"char-numeric?",
|
||||
1, 1, 1),
|
||||
env);
|
||||
scheme_add_global_constant("char-symbolic?",
|
||||
scheme_make_folding_prim(char_symbolic,
|
||||
"char-symbolic?",
|
||||
1, 1, 1),
|
||||
env);
|
||||
scheme_add_global_constant("char-graphic?",
|
||||
scheme_make_folding_prim(char_graphic,
|
||||
"char-graphic?",
|
||||
1, 1, 1),
|
||||
env);
|
||||
scheme_add_global_constant("char-whitespace?",
|
||||
scheme_make_folding_prim(char_whitespace,
|
||||
"char-whitespace?",
|
||||
1, 1, 1),
|
||||
env);
|
||||
scheme_add_global_constant("char-blank?",
|
||||
scheme_make_folding_prim(char_blank,
|
||||
"char-blank?",
|
||||
1, 1, 1),
|
||||
env);
|
||||
scheme_add_global_constant("char-iso-control?",
|
||||
scheme_make_folding_prim(char_control,
|
||||
"char-iso-control?",
|
||||
1, 1, 1),
|
||||
env);
|
||||
scheme_add_global_constant("char-punctuation?",
|
||||
scheme_make_folding_prim(char_punctuation,
|
||||
"char-punctuation?",
|
||||
1, 1, 1),
|
||||
env);
|
||||
scheme_add_global_constant("char-upper-case?",
|
||||
scheme_make_folding_prim(char_upper_case,
|
||||
"char-upper-case?",
|
||||
1, 1, 1),
|
||||
env);
|
||||
scheme_add_global_constant("char-title-case?",
|
||||
scheme_make_folding_prim(char_title_case,
|
||||
"char-title-case?",
|
||||
1, 1, 1),
|
||||
env);
|
||||
scheme_add_global_constant("char-lower-case?",
|
||||
scheme_make_folding_prim(char_lower_case,
|
||||
"char-lower-case?",
|
||||
1, 1, 1),
|
||||
env);
|
||||
scheme_add_global_constant("char-title-case?",
|
||||
scheme_make_folding_prim(char_title_case,
|
||||
"char-title-case?",
|
||||
1, 1, 1),
|
||||
env);
|
||||
scheme_add_global_constant("char->integer",
|
||||
scheme_make_folding_prim(char_to_integer,
|
||||
"char->integer",
|
||||
1, 1, 1),
|
||||
env);
|
||||
scheme_add_global_constant("integer->char",
|
||||
scheme_make_folding_prim(integer_to_char,
|
||||
"integer->char",
|
||||
1, 1, 1),
|
||||
env);
|
||||
scheme_add_global_constant("char-upcase",
|
||||
scheme_make_folding_prim(char_upcase,
|
||||
"char-upcase",
|
||||
1, 1, 1),
|
||||
env);
|
||||
scheme_add_global_constant("char-downcase",
|
||||
scheme_make_folding_prim(char_downcase,
|
||||
"char-downcase",
|
||||
1, 1, 1),
|
||||
env);
|
||||
scheme_add_global_constant("char-titlecase",
|
||||
scheme_make_folding_prim(char_titlecase,
|
||||
"char-titlecase",
|
||||
1, 1, 1),
|
||||
env);
|
||||
scheme_add_global_constant("char-foldcase",
|
||||
scheme_make_folding_prim(char_foldcase,
|
||||
"char-foldcase",
|
||||
1, 1, 1),
|
||||
env);
|
||||
scheme_add_global_constant("char-general-category",
|
||||
scheme_make_folding_prim(char_general_category,
|
||||
"char-general-category",
|
||||
1, 1, 1),
|
||||
env);
|
||||
|
||||
scheme_add_global_constant("char-utf-8-length",
|
||||
scheme_make_folding_prim(char_utf8_length,
|
||||
"char-utf-8-length",
|
||||
1, 1, 1),
|
||||
env);
|
||||
|
||||
scheme_add_global_constant("make-known-char-range-list",
|
||||
scheme_make_immed_prim(char_map_list,
|
||||
"make-known-char-range-list",
|
||||
0, 0),
|
||||
env);
|
||||
GLOBAL_FOLDING_PRIM("char<?", char_lt, 2, -1, 1, env);
|
||||
GLOBAL_FOLDING_PRIM("char>?", char_gt, 2, -1, 1, env);
|
||||
GLOBAL_FOLDING_PRIM("char<=?", char_lt_eq, 2, -1, 1, env);
|
||||
GLOBAL_FOLDING_PRIM("char>=?", char_gt_eq, 2, -1, 1, env);
|
||||
GLOBAL_FOLDING_PRIM("char-ci=?", char_eq_ci, 2, -1, 1, env);
|
||||
GLOBAL_FOLDING_PRIM("char-ci<?", char_lt_ci, 2, -1, 1, env);
|
||||
GLOBAL_FOLDING_PRIM("char-ci>?", char_gt_ci, 2, -1, 1, env);
|
||||
GLOBAL_FOLDING_PRIM("char-ci<=?", char_lt_eq_ci, 2, -1, 1, env);
|
||||
GLOBAL_FOLDING_PRIM("char-ci>=?", char_gt_eq_ci, 2, -1, 1, env);
|
||||
GLOBAL_FOLDING_PRIM("char-alphabetic?", char_alphabetic, 1, 1, 1, env);
|
||||
GLOBAL_FOLDING_PRIM("char-numeric?", char_numeric, 1, 1, 1, env);
|
||||
GLOBAL_FOLDING_PRIM("char-symbolic?", char_symbolic, 1, 1, 1, env);
|
||||
GLOBAL_FOLDING_PRIM("char-graphic?", char_graphic, 1, 1, 1, env);
|
||||
GLOBAL_FOLDING_PRIM("char-whitespace?", char_whitespace, 1, 1, 1, env);
|
||||
GLOBAL_FOLDING_PRIM("char-blank?", char_blank, 1, 1, 1, env);
|
||||
GLOBAL_FOLDING_PRIM("char-iso-control?", char_control, 1, 1, 1, env);
|
||||
GLOBAL_FOLDING_PRIM("char-punctuation?", char_punctuation, 1, 1, 1, env);
|
||||
GLOBAL_FOLDING_PRIM("char-upper-case?", char_upper_case, 1, 1, 1, env);
|
||||
GLOBAL_FOLDING_PRIM("char-title-case?", char_title_case, 1, 1, 1, env);
|
||||
GLOBAL_FOLDING_PRIM("char-lower-case?", char_lower_case, 1, 1, 1, env);
|
||||
GLOBAL_FOLDING_PRIM("char-title-case?", char_title_case, 1, 1, 1, env);
|
||||
GLOBAL_FOLDING_PRIM("char->integer", char_to_integer, 1, 1, 1, env);
|
||||
GLOBAL_FOLDING_PRIM("integer->char", integer_to_char, 1, 1, 1, env);
|
||||
GLOBAL_FOLDING_PRIM("char-upcase", char_upcase, 1, 1, 1, env);
|
||||
GLOBAL_FOLDING_PRIM("char-downcase", char_downcase, 1, 1, 1, env);
|
||||
GLOBAL_FOLDING_PRIM("char-titlecase", char_titlecase, 1, 1, 1, env);
|
||||
GLOBAL_FOLDING_PRIM("char-foldcase", char_foldcase, 1, 1, 1, env);
|
||||
GLOBAL_FOLDING_PRIM("char-general-category", char_general_category, 1, 1, 1, env);
|
||||
GLOBAL_FOLDING_PRIM("char-utf-8-length", char_utf8_length, 1, 1, 1, env);
|
||||
GLOBAL_IMMED_PRIM("make-known-char-range-list", char_map_list, 0, 0, env);
|
||||
}
|
||||
|
||||
Scheme_Object *scheme_make_char(mzchar ch)
|
||||
|
|
Loading…
Reference in New Issue
Block a user