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 (string=?) family of functions

Browse source
This commit is contained in:
Justin Ethier 2015-05-26 21:37:09 -04:00
parent b2568e6e09
commit f5bc6b0811
2 changed files with 13 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
TODO
View file

@ -13,7 +13,6 @@ Working TODO list:
- need to change current*port functions to actually have a current port, and other i/o operations to use the correct current port
- quasiquote - will need to enhance the parser to support a second type of quote, at minimum
- string<? - and related functions, too
- vectors - limited use in cgen module - make-vector, vector-set!, and vector-ref
- Reduction in size of generated code

14
scheme/base.sld
View file

@ -13,6 +13,11 @@
char>?
char<=?
char>=?
string=?
string<?
string<=?
string>?
string>=?
foldl
foldr
not
@ -66,7 +71,14 @@
(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)))
; TODO: char-ci predicates (in scheme/char library)
; TODO: (define (string<? str1 str2 . strs)
(define (string=? str1 str2) (equal? (string-cmp str1 str2) 0))
(define (string<? str1 str2) (< (string-cmp str1 str2) 0))
(define (string<=? str1 str2) (<= (string-cmp str1 str2) 0))
(define (string>? str1 str2) (> (string-cmp str1 str2) 0))
(define (string>=? str1 str2) (>= (string-cmp str1 str2) 0))
; TODO: generalize to multiple arguments: (define (string<? str1 str2 . strs)
(define (foldl func accum lst)
(if (null? lst)