hellerve/dotfiles
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Added cabal and vim dir

Browse Source
This commit is contained in:
hellerve
2015-04-05 17:47:08 +02:00
parent 1e73d5652c
commit ae5a30a4a4
2440 changed files with 40465 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
cabal/share/x86_64-osx-ghc-7.10.1/zepto-0.6.4/stdlib/char.scm Normal file
View File

@@ -0,0 +1,22 @@
(define (char-cmp? cmp a b) "compares two chars with a compare option cmp"
(cmp (char->integer a) (char->integer b)))
(define (char-ci-cmp? cmp a b) "compares two chars case insensitive with a compare option cmp"
(cmp (char->integer (char-downcase a)) (char->integer (char-downcase b))))
(define (char=? a b) "are chars equal" (char-cmp? = a b))
(define (char<? a b) "is char less than" (char-cmp? < a b))
(define (char>? a b) "is char greater than" (char-cmp? > a b))
(define (char<=? a b) "is char less than or equal to" (char-cmp? <= a b))
(define (char>=? a b) "is char greater than or equal to" (char-cmp? >= a b))
(define (char-ci=? a b) "are chars equal; case insensitive"
(char-ci-cmp? = a b))
(define (char-ci<? a b) "is char less than; case insensitive"
(char-ci-cmp? < a b))
(define (char-ci>? a b) "is char greater than; case insensitive"
(char-ci-cmp? > a b))
(define (char-ci<=? a b) "is char less than or equal to; case insensitive"
(char-ci-cmp? <= a b))
(define (char-ci>=? a b) "is char greater than or equal to; case insensitive"
(char-ci-cmp? >= a b))