kchar.h (868B)
1 /* 2 ** kchar.h 3 ** Kernel Characters 4 ** See Copyright Notice in klisp.h 5 */ 6 7 #ifndef kchar_h 8 #define kchar_h 9 10 #include <stdbool.h> 11 12 #include "kobject.h" 13 #include "kstate.h" 14 15 bool kcharp(TValue tv); 16 bool kchar_alphabeticp(TValue ch); 17 bool kchar_numericp(TValue ch); 18 bool kchar_whitespacep(TValue ch); 19 bool kchar_upper_casep(TValue ch); 20 bool kchar_lower_casep(TValue ch); 21 bool kchar_title_casep(TValue ch); 22 /* Helpers for binary typed predicates */ 23 bool kchar_eqp(TValue ch1, TValue ch2); 24 bool kchar_ltp(TValue ch1, TValue ch2); 25 bool kchar_lep(TValue ch1, TValue ch2); 26 bool kchar_gtp(TValue ch1, TValue ch2); 27 bool kchar_gep(TValue ch1, TValue ch2); 28 29 bool kchar_ci_eqp(TValue ch1, TValue ch2); 30 bool kchar_ci_ltp(TValue ch1, TValue ch2); 31 bool kchar_ci_lep(TValue ch1, TValue ch2); 32 bool kchar_ci_gtp(TValue ch1, TValue ch2); 33 bool kchar_ci_gep(TValue ch1, TValue ch2); 34 35 #endif