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

WIP for flush-output-port

Browse source
This commit is contained in:
Justin Ethier 2015-07-29 22:11:12 -04:00
parent 4484dd9540
commit bc14eb2a80
3 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
scheme/base.sld
View file

@ -77,6 +77,7 @@
Cyc-remove-exception-handler Cyc-remove-exception-handler
newline newline
write-char write-char
flush-output-port
) )
(begin (begin
;; 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.
@ -134,6 +135,11 @@
(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 (flush-output-port . port)
'TODO)
; (if (null? port)
; (Cyc-flush-output-port (current-output-port))
; (Cyc-flush-output-port (car port))))
(define (write-char char . port) (define (write-char char . port)
(if (null? port) (if (null? port)
(Cyc-write-char char (current-output-port)) (Cyc-write-char char (current-output-port))

1
scheme/cyclone/cgen.scm
View file

@ -440,6 +440,7 @@
((eq? p 'close-port) "Cyc_io_close_port") ((eq? p 'close-port) "Cyc_io_close_port")
((eq? p 'close-input-port) "Cyc_io_close_input_port") ((eq? p 'close-input-port) "Cyc_io_close_input_port")
((eq? p 'close-output-port) "Cyc_io_close_output_port") ((eq? p 'close-output-port) "Cyc_io_close_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 'read-char) "Cyc_io_read_char")

2
scheme/cyclone/transforms.scm
View file

@ -601,6 +601,7 @@
close-port close-port
close-input-port close-input-port
close-output-port close-output-port
Cyc-flush-output-port
file-exists? file-exists?
delete-file delete-file
read-char read-char
@ -648,6 +649,7 @@
close-port close-port
close-input-port close-input-port
close-output-port close-output-port
Cyc-flush-output-port
file-exists? file-exists?
delete-file delete-file
read-char read-char