/[guile]/guile/guile-core/libguile/chars.c
ViewVC logotype

Diff of /guile/guile-core/libguile/chars.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.32 by ttn, Thu Mar 14 03:47:41 2002 UTC revision 1.33 by xxhanwen, Sat Jul 20 14:08:33 2002 UTC
# Line 76  SCM_DEFINE1 (scm_char_less_p, "char<?", Line 76  SCM_DEFINE1 (scm_char_less_p, "char<?",
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
# Line 88  SCM_DEFINE1 (scm_char_leq_p, "char<=?", Line 88  SCM_DEFINE1 (scm_char_leq_p, "char<=?",
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
# Line 100  SCM_DEFINE1 (scm_char_gr_p, "char>?", sc Line 100  SCM_DEFINE1 (scm_char_gr_p, "char>?", sc
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
# Line 112  SCM_DEFINE1 (scm_char_geq_p, "char>=?", Line 112  SCM_DEFINE1 (scm_char_geq_p, "char>=?",
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
# Line 124  SCM_DEFINE1 (scm_char_ci_eq_p, "char-ci= Line 124  SCM_DEFINE1 (scm_char_ci_eq_p, "char-ci=
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
# Line 136  SCM_DEFINE1 (scm_char_ci_less_p, "char-c Line 136  SCM_DEFINE1 (scm_char_ci_less_p, "char-c
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
# Line 148  SCM_DEFINE1 (scm_char_ci_leq_p, "char-ci Line 148  SCM_DEFINE1 (scm_char_ci_leq_p, "char-ci
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
# Line 160  SCM_DEFINE1 (scm_char_ci_gr_p, "char-ci> Line 160  SCM_DEFINE1 (scm_char_ci_gr_p, "char-ci>
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
# Line 172  SCM_DEFINE1 (scm_char_ci_geq_p, "char-ci Line 172  SCM_DEFINE1 (scm_char_ci_geq_p, "char-ci
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
# Line 185  SCM_DEFINE (scm_char_alphabetic_p, "char Line 185  SCM_DEFINE (scm_char_alphabetic_p, "char
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
# Line 196  SCM_DEFINE (scm_char_numeric_p, "char-nu Line 196  SCM_DEFINE (scm_char_numeric_p, "char-nu
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
# Line 207  SCM_DEFINE (scm_char_whitespace_p, "char Line 207  SCM_DEFINE (scm_char_whitespace_p, "char
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
# Line 220  SCM_DEFINE (scm_char_upper_case_p, "char Line 220  SCM_DEFINE (scm_char_upper_case_p, "char
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
# Line 232  SCM_DEFINE (scm_char_lower_case_p, "char Line 232  SCM_DEFINE (scm_char_lower_case_p, "char
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
# Line 246  SCM_DEFINE (scm_char_is_both_p, "char-is Line 246  SCM_DEFINE (scm_char_is_both_p, "char-is
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
# Line 260  SCM_DEFINE (scm_char_to_integer, "char-> Line 260  SCM_DEFINE (scm_char_to_integer, "char->
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
# Line 283  SCM_DEFINE (scm_char_upcase, "char-upcas Line 283  SCM_DEFINE (scm_char_upcase, "char-upcas
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
# Line 294  SCM_DEFINE (scm_char_downcase, "char-dow Line 294  SCM_DEFINE (scm_char_downcase, "char-dow
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
# Line 358  scm_downcase (unsigned int c) Line 358  scm_downcase (unsigned int c)
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[] =

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26