[Guile-commits] 02/09: Add port-line-buffered?

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit 1123002a9e66f0fc9c329cc445fedfd077bfd770
Author: Andy Wingo <address@hidden>
Date:   Wed May 25 21:48:56 2016 +0200

    Add port-line-buffered?
    
    * libguile/ports.c (scm_port_line_buffered_p): New function.
    * module/ice-9/ports.scm: Plump port-line-buffered? and
      port-auxiliary-write-buffer through to the internals module
---
 libguile/ports.c       |   11 +++++++++++
 module/ice-9/ports.scm |    4 ++++
 2 files changed, 15 insertions(+)

diff --git a/libguile/ports.c b/libguile/ports.c
index 5660984..d04adc6 100644
--- a/libguile/ports.c
+++ b/libguile/ports.c
@@ -2703,6 +2703,17 @@ SCM_DEFINE (scm_port_auxiliary_write_buffer, 
"port-auxiliary-write-buffer",
 }
 #undef FUNC_NAME
 
+SCM_INTERNAL SCM scm_port_line_buffered_p (SCM);
+SCM_DEFINE (scm_port_line_buffered_p, "port-line-buffered?", 1, 0, 0,
+            (SCM port),
+           "Return true if the port is line buffered.")
+#define FUNC_NAME s_scm_port_line_buffered_p
+{
+  SCM_VALIDATE_OPPORT (1, port);
+  return scm_from_bool (SCM_CELL_WORD_0 (port) & SCM_BUFLINE);
+}
+#undef FUNC_NAME
+
 
 
 
diff --git a/module/ice-9/ports.scm b/module/ice-9/ports.scm
index 4b74625..3fc2f64 100644
--- a/module/ice-9/ports.scm
+++ b/module/ice-9/ports.scm
@@ -164,6 +164,8 @@ interpret its input and output."
   #:use-module (ice-9 ports)
   #:export (port-read-buffer
             port-write-buffer
+            port-auxiliary-write-buffer
+            port-line-buffered?
             expand-port-read-buffer!
             port-buffer-bytevector
             port-buffer-cur
@@ -219,6 +221,8 @@ interpret its input and output."
 
 (private-port-bindings port-read-buffer
                        port-write-buffer
+                       port-auxiliary-write-buffer
+                       port-line-buffered?
                        expand-port-read-buffer!
                        port-read
                        port-write