76 |
"else @code{#f}.") |
"else @code{#f}.") |
77 |
#define FUNC_NAME s_scm_char_less_p |
#define FUNC_NAME s_scm_char_less_p |
78 |
{ |
{ |
79 |
SCM_VALIDATE_CHAR (1,x); |
SCM_VALIDATE_CHAR (1, x); |
80 |
SCM_VALIDATE_CHAR (2,y); |
SCM_VALIDATE_CHAR (2, y); |
81 |
return SCM_BOOL(SCM_CHAR(x) < SCM_CHAR(y)); |
return SCM_BOOL(SCM_CHAR(x) < SCM_CHAR(y)); |
82 |
} |
} |
83 |
#undef FUNC_NAME |
#undef FUNC_NAME |
88 |
"ASCII sequence, else @code{#f}.") |
"ASCII sequence, else @code{#f}.") |
89 |
#define FUNC_NAME s_scm_char_leq_p |
#define FUNC_NAME s_scm_char_leq_p |
90 |
{ |
{ |
91 |
SCM_VALIDATE_CHAR (1,x); |
SCM_VALIDATE_CHAR (1, x); |
92 |
SCM_VALIDATE_CHAR (2,y); |
SCM_VALIDATE_CHAR (2, y); |
93 |
return SCM_BOOL(SCM_CHAR(x) <= SCM_CHAR(y)); |
return SCM_BOOL(SCM_CHAR(x) <= SCM_CHAR(y)); |
94 |
} |
} |
95 |
#undef FUNC_NAME |
#undef FUNC_NAME |
100 |
"sequence, else @code{#f}.") |
"sequence, else @code{#f}.") |
101 |
#define FUNC_NAME s_scm_char_gr_p |
#define FUNC_NAME s_scm_char_gr_p |
102 |
{ |
{ |
103 |
SCM_VALIDATE_CHAR (1,x); |
SCM_VALIDATE_CHAR (1, x); |
104 |
SCM_VALIDATE_CHAR (2,y); |
SCM_VALIDATE_CHAR (2, y); |
105 |
return SCM_BOOL(SCM_CHAR(x) > SCM_CHAR(y)); |
return SCM_BOOL(SCM_CHAR(x) > SCM_CHAR(y)); |
106 |
} |
} |
107 |
#undef FUNC_NAME |
#undef FUNC_NAME |
112 |
"ASCII sequence, else @code{#f}.") |
"ASCII sequence, else @code{#f}.") |
113 |
#define FUNC_NAME s_scm_char_geq_p |
#define FUNC_NAME s_scm_char_geq_p |
114 |
{ |
{ |
115 |
SCM_VALIDATE_CHAR (1,x); |
SCM_VALIDATE_CHAR (1, x); |
116 |
SCM_VALIDATE_CHAR (2,y); |
SCM_VALIDATE_CHAR (2, y); |
117 |
return SCM_BOOL(SCM_CHAR(x) >= SCM_CHAR(y)); |
return SCM_BOOL(SCM_CHAR(x) >= SCM_CHAR(y)); |
118 |
} |
} |
119 |
#undef FUNC_NAME |
#undef FUNC_NAME |
124 |
"case, else @code{#f}.") |
"case, else @code{#f}.") |
125 |
#define FUNC_NAME s_scm_char_ci_eq_p |
#define FUNC_NAME s_scm_char_ci_eq_p |
126 |
{ |
{ |
127 |
SCM_VALIDATE_CHAR (1,x); |
SCM_VALIDATE_CHAR (1, x); |
128 |
SCM_VALIDATE_CHAR (2,y); |
SCM_VALIDATE_CHAR (2, y); |
129 |
return SCM_BOOL(scm_upcase(SCM_CHAR(x))==scm_upcase(SCM_CHAR(y))); |
return SCM_BOOL(scm_upcase(SCM_CHAR(x))==scm_upcase(SCM_CHAR(y))); |
130 |
} |
} |
131 |
#undef FUNC_NAME |
#undef FUNC_NAME |
136 |
"ignoring case, else @code{#f}.") |
"ignoring case, else @code{#f}.") |
137 |
#define FUNC_NAME s_scm_char_ci_less_p |
#define FUNC_NAME s_scm_char_ci_less_p |
138 |
{ |
{ |
139 |
SCM_VALIDATE_CHAR (1,x); |
SCM_VALIDATE_CHAR (1, x); |
140 |
SCM_VALIDATE_CHAR (2,y); |
SCM_VALIDATE_CHAR (2, y); |
141 |
return SCM_BOOL((scm_upcase(SCM_CHAR(x))) < scm_upcase(SCM_CHAR(y))); |
return SCM_BOOL((scm_upcase(SCM_CHAR(x))) < scm_upcase(SCM_CHAR(y))); |
142 |
} |
} |
143 |
#undef FUNC_NAME |
#undef FUNC_NAME |
148 |
"ASCII sequence ignoring case, else @code{#f}.") |
"ASCII sequence ignoring case, else @code{#f}.") |
149 |
#define FUNC_NAME s_scm_char_ci_leq_p |
#define FUNC_NAME s_scm_char_ci_leq_p |
150 |
{ |
{ |
151 |
SCM_VALIDATE_CHAR (1,x); |
SCM_VALIDATE_CHAR (1, x); |
152 |
SCM_VALIDATE_CHAR (2,y); |
SCM_VALIDATE_CHAR (2, y); |
153 |
return SCM_BOOL(scm_upcase(SCM_CHAR(x)) <= scm_upcase(SCM_CHAR(y))); |
return SCM_BOOL(scm_upcase(SCM_CHAR(x)) <= scm_upcase(SCM_CHAR(y))); |
154 |
} |
} |
155 |
#undef FUNC_NAME |
#undef FUNC_NAME |
160 |
"sequence ignoring case, else @code{#f}.") |
"sequence ignoring case, else @code{#f}.") |
161 |
#define FUNC_NAME s_scm_char_ci_gr_p |
#define FUNC_NAME s_scm_char_ci_gr_p |
162 |
{ |
{ |
163 |
SCM_VALIDATE_CHAR (1,x); |
SCM_VALIDATE_CHAR (1, x); |
164 |
SCM_VALIDATE_CHAR (2,y); |
SCM_VALIDATE_CHAR (2, y); |
165 |
return SCM_BOOL(scm_upcase(SCM_CHAR(x)) > scm_upcase(SCM_CHAR(y))); |
return SCM_BOOL(scm_upcase(SCM_CHAR(x)) > scm_upcase(SCM_CHAR(y))); |
166 |
} |
} |
167 |
#undef FUNC_NAME |
#undef FUNC_NAME |
172 |
"ASCII sequence ignoring case, else @code{#f}.") |
"ASCII sequence ignoring case, else @code{#f}.") |
173 |
#define FUNC_NAME s_scm_char_ci_geq_p |
#define FUNC_NAME s_scm_char_ci_geq_p |
174 |
{ |
{ |
175 |
SCM_VALIDATE_CHAR (1,x); |
SCM_VALIDATE_CHAR (1, x); |
176 |
SCM_VALIDATE_CHAR (2,y); |
SCM_VALIDATE_CHAR (2, y); |
177 |
return SCM_BOOL(scm_upcase(SCM_CHAR(x)) >= scm_upcase(SCM_CHAR(y))); |
return SCM_BOOL(scm_upcase(SCM_CHAR(x)) >= scm_upcase(SCM_CHAR(y))); |
178 |
} |
} |
179 |
#undef FUNC_NAME |
#undef FUNC_NAME |
185 |
"Alphabetic means the same thing as the isalpha C library function.") |
"Alphabetic means the same thing as the isalpha C library function.") |
186 |
#define FUNC_NAME s_scm_char_alphabetic_p |
#define FUNC_NAME s_scm_char_alphabetic_p |
187 |
{ |
{ |
188 |
SCM_VALIDATE_CHAR (1,chr); |
SCM_VALIDATE_CHAR (1, chr); |
189 |
return SCM_BOOL(isalpha(SCM_CHAR(chr))); |
return SCM_BOOL(isalpha(SCM_CHAR(chr))); |
190 |
} |
} |
191 |
#undef FUNC_NAME |
#undef FUNC_NAME |
196 |
"Numeric means the same thing as the isdigit C library function.") |
"Numeric means the same thing as the isdigit C library function.") |
197 |
#define FUNC_NAME s_scm_char_numeric_p |
#define FUNC_NAME s_scm_char_numeric_p |
198 |
{ |
{ |
199 |
SCM_VALIDATE_CHAR (1,chr); |
SCM_VALIDATE_CHAR (1, chr); |
200 |
return SCM_BOOL(isdigit(SCM_CHAR(chr))); |
return SCM_BOOL(isdigit(SCM_CHAR(chr))); |
201 |
} |
} |
202 |
#undef FUNC_NAME |
#undef FUNC_NAME |
207 |
"Whitespace means the same thing as the isspace C library function.") |
"Whitespace means the same thing as the isspace C library function.") |
208 |
#define FUNC_NAME s_scm_char_whitespace_p |
#define FUNC_NAME s_scm_char_whitespace_p |
209 |
{ |
{ |
210 |
SCM_VALIDATE_CHAR (1,chr); |
SCM_VALIDATE_CHAR (1, chr); |
211 |
return SCM_BOOL(isspace(SCM_CHAR(chr))); |
return SCM_BOOL(isspace(SCM_CHAR(chr))); |
212 |
} |
} |
213 |
#undef FUNC_NAME |
#undef FUNC_NAME |
220 |
"Uppercase means the same thing as the isupper C library function.") |
"Uppercase means the same thing as the isupper C library function.") |
221 |
#define FUNC_NAME s_scm_char_upper_case_p |
#define FUNC_NAME s_scm_char_upper_case_p |
222 |
{ |
{ |
223 |
SCM_VALIDATE_CHAR (1,chr); |
SCM_VALIDATE_CHAR (1, chr); |
224 |
return SCM_BOOL(isupper(SCM_CHAR(chr))); |
return SCM_BOOL(isupper(SCM_CHAR(chr))); |
225 |
} |
} |
226 |
#undef FUNC_NAME |
#undef FUNC_NAME |
232 |
"Lowercase means the same thing as the islower C library function.") |
"Lowercase means the same thing as the islower C library function.") |
233 |
#define FUNC_NAME s_scm_char_lower_case_p |
#define FUNC_NAME s_scm_char_lower_case_p |
234 |
{ |
{ |
235 |
SCM_VALIDATE_CHAR (1,chr); |
SCM_VALIDATE_CHAR (1, chr); |
236 |
return SCM_BOOL(islower(SCM_CHAR(chr))); |
return SCM_BOOL(islower(SCM_CHAR(chr))); |
237 |
} |
} |
238 |
#undef FUNC_NAME |
#undef FUNC_NAME |
246 |
"C library functions.") |
"C library functions.") |
247 |
#define FUNC_NAME s_scm_char_is_both_p |
#define FUNC_NAME s_scm_char_is_both_p |
248 |
{ |
{ |
249 |
SCM_VALIDATE_CHAR (1,chr); |
SCM_VALIDATE_CHAR (1, chr); |
250 |
return SCM_BOOL((isupper(SCM_CHAR(chr)) || islower(SCM_CHAR(chr)))); |
return SCM_BOOL((isupper(SCM_CHAR(chr)) || islower(SCM_CHAR(chr)))); |
251 |
} |
} |
252 |
#undef FUNC_NAME |
#undef FUNC_NAME |
260 |
"ASCII sequence.") |
"ASCII sequence.") |
261 |
#define FUNC_NAME s_scm_char_to_integer |
#define FUNC_NAME s_scm_char_to_integer |
262 |
{ |
{ |
263 |
SCM_VALIDATE_CHAR (1,chr); |
SCM_VALIDATE_CHAR (1, chr); |
264 |
return scm_ulong2num((unsigned long)SCM_CHAR(chr)); |
return scm_ulong2num((unsigned long)SCM_CHAR(chr)); |
265 |
} |
} |
266 |
#undef FUNC_NAME |
#undef FUNC_NAME |
283 |
"Return the uppercase character version of @var{chr}.") |
"Return the uppercase character version of @var{chr}.") |
284 |
#define FUNC_NAME s_scm_char_upcase |
#define FUNC_NAME s_scm_char_upcase |
285 |
{ |
{ |
286 |
SCM_VALIDATE_CHAR (1,chr); |
SCM_VALIDATE_CHAR (1, chr); |
287 |
return SCM_MAKE_CHAR(scm_upcase(SCM_CHAR(chr))); |
return SCM_MAKE_CHAR(scm_upcase(SCM_CHAR(chr))); |
288 |
} |
} |
289 |
#undef FUNC_NAME |
#undef FUNC_NAME |
294 |
"Return the lowercase character version of @var{chr}.") |
"Return the lowercase character version of @var{chr}.") |
295 |
#define FUNC_NAME s_scm_char_downcase |
#define FUNC_NAME s_scm_char_downcase |
296 |
{ |
{ |
297 |
SCM_VALIDATE_CHAR (1,chr); |
SCM_VALIDATE_CHAR (1, chr); |
298 |
return SCM_MAKE_CHAR(scm_downcase(SCM_CHAR(chr))); |
return SCM_MAKE_CHAR(scm_downcase(SCM_CHAR(chr))); |
299 |
} |
} |
300 |
#undef FUNC_NAME |
#undef FUNC_NAME |
358 |
#ifdef EBCDIC |
#ifdef EBCDIC |
359 |
char *const scm_charnames[] = |
char *const scm_charnames[] = |
360 |
{ |
{ |
361 |
"nul","soh","stx","etx", "pf", "ht", "lc","del", |
"nul", "soh", "stx", "etx", "pf", "ht", "lc", "del", |
362 |
0 , 0 ,"smm", "vt", "ff", "cr", "so", "si", |
0 , 0 , "smm", "vt", "ff", "cr", "so", "si", |
363 |
"dle","dc1","dc2","dc3","res", "nl", "bs", "il", |
"dle", "dc1", "dc2", "dc3", "res", "nl", "bs", "il", |
364 |
"can", "em", "cc", 0 ,"ifs","igs","irs","ius", |
"can", "em", "cc", 0 , "ifs", "igs", "irs", "ius", |
365 |
"ds","sos", "fs", 0 ,"byp", "lf","eob","pre", |
"ds", "sos", "fs", 0 , "byp", "lf", "eob", "pre", |
366 |
0 , 0 , "sm", 0 , 0 ,"enq","ack","bel", |
0 , 0 , "sm", 0 , 0 , "enq", "ack", "bel", |
367 |
0 , 0 ,"syn", 0 , "pn", "rs", "uc","eot", |
0 , 0 , "syn", 0 , "pn", "rs", "uc", "eot", |
368 |
0 , 0 , 0 , 0 ,"dc4","nak", 0 ,"sub", |
0 , 0 , 0 , 0 , "dc4", "nak", 0 , "sub", |
369 |
"space", scm_s_newline, "tab", "backspace", "return", "page", "null"}; |
"space", scm_s_newline, "tab", "backspace", "return", "page", "null"}; |
370 |
|
|
371 |
const char scm_charnums[] = |
const char scm_charnums[] = |