From bc14eb2a804525df349c555aaffc41e5f595dbc7 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Wed, 29 Jul 2015 22:11:12 -0400 Subject: [PATCH] WIP for flush-output-port --- scheme/base.sld | 6 ++++++ scheme/cyclone/cgen.scm | 1 + scheme/cyclone/transforms.scm | 2 ++ 3 files changed, 9 insertions(+) diff --git a/scheme/base.sld b/scheme/base.sld index 9e43325b..86e0c6d6 100644 --- a/scheme/base.sld +++ b/scheme/base.sld @@ -77,6 +77,7 @@ Cyc-remove-exception-handler newline write-char + flush-output-port ) (begin ;; 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) end (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) (if (null? port) (Cyc-write-char char (current-output-port)) diff --git a/scheme/cyclone/cgen.scm b/scheme/cyclone/cgen.scm index ac6245e4..85e6a30b 100644 --- a/scheme/cyclone/cgen.scm +++ b/scheme/cyclone/cgen.scm @@ -440,6 +440,7 @@ ((eq? p 'close-port) "Cyc_io_close_port") ((eq? p 'close-input-port) "Cyc_io_close_input_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 'delete-file) "Cyc_io_delete_file") ((eq? p 'read-char) "Cyc_io_read_char") diff --git a/scheme/cyclone/transforms.scm b/scheme/cyclone/transforms.scm index 900e76eb..3cf3cd76 100644 --- a/scheme/cyclone/transforms.scm +++ b/scheme/cyclone/transforms.scm @@ -601,6 +601,7 @@ close-port close-input-port close-output-port + Cyc-flush-output-port file-exists? delete-file read-char @@ -648,6 +649,7 @@ close-port close-input-port close-output-port + Cyc-flush-output-port file-exists? delete-file read-char