Changeset 13328 in project


Ignore:
Timestamp:
02/17/09 14:16:13 (11 years ago)
Author:
felix winkelmann
Message:

fixed broken fix for non-ascii character case conversion

Location:
chicken/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/TODO

    r13300 r13328  
    4040    by Jim Ursetto)
    4141
    42 ** build
    43 *** get rid of auto-import warnings for mingw compiler/linker
    44 
    4542
    4643* tasks
     
    5350**** test "numbers" egg
    5451**** is s48-modules still working?
    55 **** port xlib egg
    5652*** at some stage remove debug-output in expand.scm
    5753
     
    10399    .SECONDARY help?
    104100*** using "touch" with WINDOWS_SHELL won't work (need alternative)
    105 ** test --enable-auto-import witg mingw builds
    106101
    107102** documentation
  • chicken/trunk/chicken.h

    r13177 r13328  
    11241124#define C_i_structurep(x, s)            C_mk_bool(!C_immediatep(x) && C_header_bits(x) == C_STRUCTURE_TYPE && C_block_item(x, 0) == (s))
    11251125
    1126 #define C_u_i_char_alphabeticp(x)       C_mk_bool(C_isalpha(C_character_code(x) & 0xff))
    1127 #define C_u_i_char_numericp(x)          C_mk_bool(C_isdigit(C_character_code(x) & 0xff))
    1128 #define C_u_i_char_whitespacep(x)       C_mk_bool(C_isspace(C_character_code(x) & 0xff))
    1129 #define C_u_i_char_upper_casep(x)       C_mk_bool(C_isupper(C_character_code(x) & 0xff))
    1130 #define C_u_i_char_lower_casep(x)       C_mk_bool(C_islower(C_character_code(x) & 0xff))
    1131 
    1132 #define C_u_i_char_upcase(x)            C_make_character(C_toupper(C_character_code(x) & 0xff))
    1133 #define C_u_i_char_downcase(x)          C_make_character(C_tolower(C_character_code(x) & 0xff))
     1126#define C_u_i_char_alphabeticp(x)       C_mk_bool(C_character_code(x) < 0x100 && C_isalpha(C_character_code(x)))
     1127#define C_u_i_char_numericp(x)          C_mk_bool(C_character_code(x) < 0x100 && C_isdigit(C_character_code(x)))
     1128#define C_u_i_char_whitespacep(x)       C_mk_bool(C_character_code(x) < 0x100 && C_isspace(C_character_code(x)))
     1129#define C_u_i_char_upper_casep(x)       C_mk_bool(C_character_code(x) < 0x100 && C_isupper(C_character_code(x)))
     1130#define C_u_i_char_lower_casep(x)       C_mk_bool(C_character_code(x) < 0x100 && C_islower(C_character_code(x)))
     1131
     1132#define C_u_i_char_upcase(x)            (C_character_code(x) < 0x100 ? C_make_character(C_toupper(C_character_code(x))) : (x))
     1133#define C_u_i_char_downcase(x)          (C_character_code(x) < 0x100 ? C_make_character(C_tolower(C_character_code(x))) : (x))
    11341134
    11351135#define C_i_list_ref(lst, i)            C_i_car(C_i_list_tail(lst, i))
Note: See TracChangeset for help on using the changeset viewer.