Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added char predicates

Browse source
This commit is contained in:
Justin Ethier 2015-03-25 17:52:42 -04:00
parent 3bb3234db7
commit 255e9d71d8
1 changed files with 17 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
trans.scm
View file

@ -55,18 +55,23 @@
(define *Cyc-version-banner* ,*version-banner*)
;; TODO: The whitespace characters are space, tab, line feed, form feed (not in parser yet), and carriage return.
(define call-with-current-continuation call/cc)
; TODO: (define (Cyc-bool-op cmp x lst)
; TODO: (cond
; TODO: ((null? lst) #t)
; TODO: ((cmp x (car lst))
; TODO: (Cyc-bool-op (car lst) (cdr lst)))
; TODO: (else #f)))
; TODO: (define (char>? c1 c2 . cs)
; TODO: (Cyc-bool-op
; TODO: (lambda (x y)
; TODO: (> (char->integer x) (char->integer y)))
; TODO: c1
; TODO: (cons c2 cs)))
(define (Cyc-bin-op cmp x lst)
(cond
((null? lst) #t)
((cmp x (car lst))
(Cyc-bin-op cmp (car lst) (cdr lst)))
(else #f)))
(define (Cyc-bin-op-char cmp c cs)
(Cyc-bin-op
(lambda (x y)
(cmp (char->integer x) (char->integer y)))
c
cs))
(define (char=? c1 c2 . cs) (Cyc-bin-op-char = c1 (cons c2 cs)))
(define (char<? c1 c2 . cs) (Cyc-bin-op-char < c1 (cons c2 cs)))
(define (char>? c1 c2 . cs) (Cyc-bin-op-char > c1 (cons c2 cs)))
(define (char<=? c1 c2 . cs) (Cyc-bin-op-char <= c1 (cons c2 cs)))
(define (char>=? c1 c2 . cs) (Cyc-bin-op-char >= c1 (cons c2 cs)))
(define (char-whitespace? c) (member c '(#\tab #\space #\return #\newline)))
(define (char-numeric? c) (member c '(#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9)))
; TODO: implement in terms of char>? procs ==> (define (char-upper-case? c)