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

TODO stubs for char>?

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

13
trans.scm
View file

@ -55,7 +55,18 @@
(define *Cyc-version-banner* ,*version-banner*) (define *Cyc-version-banner* ,*version-banner*)
;; TODO: The whitespace characters are space, tab, line feed, form feed (not in parser yet), and carriage return. ;; 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) (define call-with-current-continuation call/cc)
; TODO: (define (char>? c1 c2 . cs) ; 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 (char-whitespace? c) (member c '(#\tab #\space #\return #\newline))) (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))) (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) ; TODO: implement in terms of char>? procs ==> (define (char-upper-case? c)