guile/guile-core NEWS libguile/ChangeLog libgui...

[Gary Houston]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Gary Houston <address@hidden>   00/11/04 15:24:14

Modified files:
        guile-core     : NEWS 
        guile-core/libguile: ChangeLog ports.c ports.h 

Log message:
        2000-11-04  Gary Houston  <address@hidden>
        
        * ports.c (scm_port_p): new function, implements "port?" which
        is mentioned in R5RS.
        * ports.h: declare scm_port_p.

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/NEWS.diff?r1=1.211&r2=1.212
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/ChangeLog.diff?r1=1.1160&r2=1.1161
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/ports.c.diff?r1=1.118&r2=1.119
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/ports.h.diff?r1=1.66&r2=1.67

Patches:
Index: guile/guile-core/NEWS
diff -u guile/guile-core/NEWS:1.211 guile/guile-core/NEWS:1.212
--- guile/guile-core/NEWS:1.211 Thu Nov  2 02:36:31 2000
+++ guile/guile-core/NEWS       Sat Nov  4 15:24:14 2000
@@ -169,6 +169,11 @@
 
 Instead, use scm_memq, scm_memv, scm_member.
 
+** New function: port? X
+
+Returns a boolean indicating whether X is a port.  Equivalent to
+`(or (input-port? X) (output-port? X))'.
+
 * Changes to the gh_ interface
 
 * Changes to the scm_ interface
Index: guile/guile-core/libguile/ChangeLog
diff -u guile/guile-core/libguile/ChangeLog:1.1160 
guile/guile-core/libguile/ChangeLog:1.1161
--- guile/guile-core/libguile/ChangeLog:1.1160  Thu Nov  2 02:41:33 2000
+++ guile/guile-core/libguile/ChangeLog Sat Nov  4 15:24:14 2000
@@ -1,3 +1,9 @@
+2000-11-04  Gary Houston  <address@hidden>
+
+       * ports.c (scm_port_p): new function, implements "port?" which
+       is mentioned in R5RS.
+       * ports.h: declare scm_port_p.
+
 2000-11-01  Dirk Herrmann  <address@hidden>
 
        * backtrace.c (display_expression, display_error_body), fports.c
Index: guile/guile-core/libguile/ports.c
diff -u guile/guile-core/libguile/ports.c:1.118 
guile/guile-core/libguile/ports.c:1.119
--- guile/guile-core/libguile/ports.c:1.118     Thu Nov  2 02:36:31 2000
+++ guile/guile-core/libguile/ports.c   Sat Nov  4 15:24:14 2000
@@ -735,6 +735,16 @@
 }
 #undef FUNC_NAME
 
+SCM_DEFINE (scm_port_p, "port?", 1, 0, 0,
+           (SCM x),
+            "Returns a boolean indicating whether @var{x} is a port.\n"
+           "Equivalent to @code{(or (input-port? X) (output-port? X))}.")
+#define FUNC_NAME s_scm_port_p
+{
+  return SCM_BOOL (SCM_PORTP (x));
+}
+#undef FUNC_NAME
+
 SCM_DEFINE (scm_port_closed_p, "port-closed?", 1, 0, 0,
            (SCM port),
            "Returns @code{#t} if @var{port} is closed or @code{#f} if it is 
open.")
Index: guile/guile-core/libguile/ports.h
diff -u guile/guile-core/libguile/ports.h:1.66 
guile/guile-core/libguile/ports.h:1.67
--- guile/guile-core/libguile/ports.h:1.66      Thu Nov  2 02:36:31 2000
+++ guile/guile-core/libguile/ports.h   Sat Nov  4 15:24:14 2000
@@ -269,6 +269,7 @@
 extern SCM scm_close_all_ports_except (SCM ports);
 extern SCM scm_input_port_p (SCM x);
 extern SCM scm_output_port_p (SCM x);
+extern SCM scm_port_p (SCM x);
 extern SCM scm_port_closed_p (SCM port);
 extern SCM scm_eof_object_p (SCM x);
 extern SCM scm_force_output (SCM port);