Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-14 08:17:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added char-foldcase and char-ci predicates

Browse source
This commit is contained in:
Justin Ethier 2016-03-31 22:23:07 -04:00
parent f671d85ce6
commit 489389a3ee
1 changed files with 15 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
scheme/char.sld
View file

@ -10,16 +10,25 @@
(export
char-alphabetic?
char-downcase
char-foldcase
char-lower-case?
char-numeric?
char-upcase
char-upper-case?
char-whitespace?
char-ci<=?
char-ci<?
char-ci=?
char-ci>=?
char-ci>?
digit-value
string-upcase
string-downcase
; TODO:
;string-foldcase
;string-ci<=? string-ci<?
;string-ci=? string-ci>=?
;string-ci>?
)
(import (scheme base))
(begin
@ -37,7 +46,12 @@
(- (char->integer #\a)
(char->integer #\A))))
c))
; TODO: char-foldcase
(define char-foldcase char-downcase) ;; Good enough for now, since no Unicode yet
(define (char-ci=? c1 c2 . cs) (apply char=? (map char-foldcase (cons c1 (cons c2 cs)))))
(define (char-ci<=? c1 c2 . cs) (apply char<=? (map char-foldcase (cons c1 (cons c2 cs)))))
(define (char-ci<? c1 c2 . cs) (apply char<? (map char-foldcase (cons c1 (cons c2 cs)))))
(define (char-ci>=? c1 c2 . cs) (apply char>=? (map char-foldcase (cons c1 (cons c2 cs)))))
(define (char-ci>? c1 c2 . cs) (apply char>? (map char-foldcase (cons c1 (cons c2 cs)))))
(define (char-alphabetic? c) (or (char-upper-case? c) (char-lower-case? c)))
(define (char-upper-case? c) (and (char>=? c #\A) (char<=? c #\Z))) ;; ASCII-only
(define (char-lower-case? c) (and (char>=? c #\a) (char<=? c #\z))) ;; ASCII-only