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

Issue #217

Browse source
This commit is contained in:
Justin Ethier 2017-09-02 18:49:41 -04:00
parent 572a05307a
commit 12c91b86a5
2 changed files with 13 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
scheme/base.sld
View file

@ -129,6 +129,7 @@
write-char write-char
write-string write-string
flush-output-port flush-output-port
read-char
read-line read-line
read-string read-string
input-port? input-port?
@ -627,6 +628,10 @@
(if (null? lst) (if (null? lst)
end end
(func (car lst) (foldr func end (cdr lst))))) (func (car lst) (foldr func end (cdr lst)))))
(define (read-char . port)
(if (null? port)
(Cyc-read-char (current-input-port))
(Cyc-read-char (car port))))
(define (read-line . port) (define (read-line . port)
(if (null? port) (if (null? port)
(Cyc-read-line (current-input-port)) (Cyc-read-line (current-input-port))

16
scheme/cyclone/primitives.sld
View file

@ -186,7 +186,7 @@
Cyc-flush-output-port Cyc-flush-output-port
file-exists? file-exists?
delete-file delete-file
read-char Cyc-read-char
peek-char peek-char
Cyc-read-line Cyc-read-line
Cyc-write-char Cyc-write-char
@ -347,7 +347,7 @@
(Cyc-flush-output-port 1 1) (Cyc-flush-output-port 1 1)
(file-exists? 1 1) (file-exists? 1 1)
(delete-file 1 1) (delete-file 1 1)
(read-char 1 1) (Cyc-read-char 1 1)
(peek-char 1 1) (peek-char 1 1)
(Cyc-read-line 1 1) (Cyc-read-line 1 1)
(Cyc-write-char 1 2) (Cyc-write-char 1 2)
@ -428,7 +428,7 @@
; Cyc-flush-output-port ; Cyc-flush-output-port
; file-exists? ; file-exists?
; delete-file ; delete-file
; read-char ; Cyc-read-char
; peek-char ; peek-char
; Cyc-read-line ; Cyc-read-line
; Cyc-write-char ; Cyc-write-char
@ -498,7 +498,7 @@
((eq? p 'Cyc-flush-output-port) "Cyc_io_flush_output_port") ((eq? p 'Cyc-flush-output-port) "Cyc_io_flush_output_port")
((eq? p 'file-exists?) "Cyc_io_file_exists") ((eq? p 'file-exists?) "Cyc_io_file_exists")
((eq? p 'delete-file) "Cyc_io_delete_file") ((eq? p 'delete-file) "Cyc_io_delete_file")
((eq? p 'read-char) "Cyc_io_read_char") ((eq? p 'Cyc-read-char) "Cyc_io_read_char")
((eq? p 'peek-char) "Cyc_io_peek_char") ((eq? p 'peek-char) "Cyc_io_peek_char")
((eq? p 'Cyc-read-line) "Cyc_io_read_line") ((eq? p 'Cyc-read-line) "Cyc_io_read_line")
((eq? p 'Cyc-display) "Cyc_display_va") ((eq? p 'Cyc-display) "Cyc_display_va")
@ -652,7 +652,7 @@
Cyc-write Cyc-write
file-exists? file-exists?
delete-file delete-file
read-char Cyc-read-char
peek-char peek-char
Cyc-read-line Cyc-read-line
Cyc-write-char Cyc-write-char
@ -744,7 +744,7 @@
((eq? p 'string-append) "object") ((eq? p 'string-append) "object")
((eq? p 'apply) "object") ((eq? p 'apply) "object")
((eq? p 'Cyc-read-line) "object") ((eq? p 'Cyc-read-line) "object")
((eq? p 'read-char) "object") ((eq? p 'Cyc-read-char) "object")
((eq? p 'peek-char) "object") ((eq? p 'peek-char) "object")
((eq? p 'command-line-arguments) "object") ((eq? p 'command-line-arguments) "object")
((eq? p 'number->string) "object") ((eq? p 'number->string) "object")
@ -805,7 +805,7 @@
= > < >= <= = > < >= <=
command-line-arguments command-line-arguments
Cyc-read-line Cyc-read-line
read-char peek-char Cyc-read-char peek-char
cons cell)) cons cell))
(member exp *udf-prims*)))) (member exp *udf-prims*))))
@ -816,7 +816,7 @@
+ - * / + - * /
= > < >= <= = > < >= <=
Cyc-list Cyc-list
read-char peek-char Cyc-read-char peek-char
symbol->string list->string substring string-append string->number symbol->string list->string substring string-append string->number
make-bytevector make-bytevector
bytevector-append bytevector-append