mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 05:39:18 +02:00
27 lines
1,012 B
Scheme
27 lines
1,012 B
Scheme
|
|
(define-library (scheme char)
|
|
(import (scheme base))
|
|
(cond-expand
|
|
(full-unicode
|
|
(import (chibi char-set full)
|
|
(chibi char-set base)
|
|
(chibi iset base))
|
|
(include "char/full.scm")
|
|
(include "char/special-casing.scm")
|
|
(include "char/case-offsets.scm"))
|
|
(else
|
|
(include "char/ascii.scm")
|
|
(import
|
|
(only (chibi)
|
|
string-ci<=? string-ci<? string-ci=? string-ci>=? string-ci>?
|
|
char-ci<=? char-ci<? char-ci=? char-ci>=? char-ci>?
|
|
char-alphabetic? char-lower-case? char-numeric?
|
|
char-upper-case? char-whitespace? digit-value
|
|
char-upcase char-downcase))))
|
|
(include "digit-value.scm")
|
|
(export
|
|
char-alphabetic? char-ci<=? char-ci<? char-ci=? char-ci>=? char-ci>?
|
|
char-downcase char-foldcase char-lower-case? char-numeric?
|
|
char-upcase char-upper-case? char-whitespace? digit-value
|
|
string-ci<=? string-ci<? string-ci=? string-ci>=? string-ci>?
|
|
string-downcase string-foldcase string-upcase))
|