mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-26 05:00:28 +02:00
Code Activity

Add 'set-port-binary/text-mode!' procedure for MinGW.

Browse source 
* libguile/ports.c (scm_init_ports)[O_BINARY]: Define 'O_BINARY'.
[O_TEXT]: Define 'O_TEXT'.
(scm_c_set_port_binary_text_mode_x): New function.
* libguile/ports.h (scm_set_binary_text_mode_x): Declare it.
* module/ice-9/ports.scm (ice-9): Export it as
'set-port-binary/text-mode!'.
* doc/ref/api-io.texi (File Ports): Document it.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2020-11-19 15:08:33 +01:00 • committed by Michael Gran
parent 2d82b49cf3
commit d58c9411ae
4 changed files with 57 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
module/ice-9/ports.scm
View file

@ -69,6 +69,7 @@
port-for-each
flush-all-ports
%make-void-port
set-port-binary/text-mode!
;; Definitions from fports.c.
open-file