[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core NEWS libguile/ChangeLog libgui...
From: |
Gary Houston |
Subject: |
guile/guile-core NEWS libguile/ChangeLog libgui... |
Date: |
Sat, 04 Nov 2000 15:24:15 -0800 |
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);
- guile/guile-core NEWS libguile/ChangeLog libgui...,
Gary Houston <=