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

Issue #217 - Optional port arg for peek-char

Browse source
This commit is contained in:
Justin Ethier 2017-09-04 18:38:15 -04:00
parent cd7d3ca7a5
commit 8f2a918283
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
peek-char
read-char read-char
read-line read-line
read-string read-string
@ -628,6 +629,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 (peek-char . port)
(if (null? port)
(Cyc-peek-char (current-input-port))
(Cyc-peek-char (car port))))
(define (read-char . port) (define (read-char . port)
(if (null? port) (if (null? port)
(Cyc-read-char (current-input-port)) (Cyc-read-char (current-input-port))

16
scheme/cyclone/primitives.sld
View file

@ -187,7 +187,7 @@
file-exists? file-exists?
delete-file delete-file
Cyc-read-char Cyc-read-char
peek-char Cyc-peek-char
Cyc-read-line Cyc-read-line
Cyc-write-char Cyc-write-char
Cyc-write Cyc-write
@ -348,7 +348,7 @@
(file-exists? 1 1) (file-exists? 1 1)
(delete-file 1 1) (delete-file 1 1)
(Cyc-read-char 1 1) (Cyc-read-char 1 1)
(peek-char 1 1) (Cyc-peek-char 1 1)
(Cyc-read-line 1 1) (Cyc-read-line 1 1)
(Cyc-write-char 1 2) (Cyc-write-char 1 2)
(Cyc-write 1 2) (Cyc-write 1 2)
@ -429,7 +429,7 @@
; file-exists? ; file-exists?
; delete-file ; delete-file
; Cyc-read-char ; Cyc-read-char
; peek-char ; Cyc-peek-char
; Cyc-read-line ; Cyc-read-line
; Cyc-write-char ; Cyc-write-char
; Cyc-write ; Cyc-write
@ -499,7 +499,7 @@
((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 'Cyc-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 'Cyc-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")
((eq? p 'Cyc-write) "Cyc_write_va") ((eq? p 'Cyc-write) "Cyc_write_va")
@ -653,7 +653,7 @@
file-exists? file-exists?
delete-file delete-file
Cyc-read-char Cyc-read-char
peek-char Cyc-peek-char
Cyc-read-line Cyc-read-line
Cyc-write-char Cyc-write-char
integer->char integer->char
@ -745,7 +745,7 @@
((eq? p 'apply) "object") ((eq? p 'apply) "object")
((eq? p 'Cyc-read-line) "object") ((eq? p 'Cyc-read-line) "object")
((eq? p 'Cyc-read-char) "object") ((eq? p 'Cyc-read-char) "object")
((eq? p 'peek-char) "object") ((eq? p 'Cyc-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")
((eq? p 'symbol->string) "object") ((eq? p 'symbol->string) "object")
@ -805,7 +805,7 @@
= > < >= <= = > < >= <=
command-line-arguments command-line-arguments
Cyc-read-line Cyc-read-line
Cyc-read-char peek-char Cyc-read-char Cyc-peek-char
cons cell)) cons cell))
(member exp *udf-prims*)))) (member exp *udf-prims*))))
@ -816,7 +816,7 @@
+ - * / + - * /
= > < >= <= = > < >= <=
Cyc-list Cyc-list
Cyc-read-char peek-char Cyc-read-char Cyc-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