[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core NEWS libguile/ChangeLog libgui...
From: |
Dirk Herrmann |
Subject: |
guile/guile-core NEWS libguile/ChangeLog libgui... |
Date: |
Thu, 25 Jan 2001 09:40:50 -0800 |
CVSROOT: /cvs
Module name: guile
Changes by: Dirk Herrmann <address@hidden> 01/01/25 09:40:50
Modified files:
guile-core : NEWS
guile-core/libguile: ChangeLog fports.c fports.h
Log message:
* Added a file-port? primitive.
CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/NEWS.diff?r1=1.242&r2=1.243
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/ChangeLog.diff?r1=1.1248&r2=1.1249
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/fports.c.diff?r1=1.89&r2=1.90
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/fports.h.diff?r1=1.26&r2=1.27
Patches:
Index: guile/guile-core/NEWS
diff -u guile/guile-core/NEWS:1.242 guile/guile-core/NEWS:1.243
--- guile/guile-core/NEWS:1.242 Wed Jan 24 13:31:39 2001
+++ guile/guile-core/NEWS Thu Jan 25 09:40:49 2001
@@ -262,6 +262,10 @@
Returns a boolean indicating whether X is a port. Equivalent to
`(or (input-port? X) (output-port? X))'.
+** New function: file-port?
+
+Determines whether a given object is a port that is related to a file.
+
** New function: port-for-each proc
Apply PROC to each port in the Guile port table in turn. The
Index: guile/guile-core/libguile/ChangeLog
diff -u guile/guile-core/libguile/ChangeLog:1.1248
guile/guile-core/libguile/ChangeLog:1.1249
--- guile/guile-core/libguile/ChangeLog:1.1248 Thu Jan 25 09:18:40 2001
+++ guile/guile-core/libguile/ChangeLog Thu Jan 25 09:40:50 2001
@@ -1,5 +1,9 @@
2001-01-25 Dirk Herrmann <address@hidden>
+ * fports.[ch] (scm_file_port_p): New primitive.
+
+2001-01-25 Dirk Herrmann <address@hidden>
+
* tags.h (scm_tc16_fport, scm_tc16_strport, scm_tc16_sfport):
These are now defined in fports.c, strports.c and vports.c.
Index: guile/guile-core/libguile/fports.c
diff -u guile/guile-core/libguile/fports.c:1.89
guile/guile-core/libguile/fports.c:1.90
--- guile/guile-core/libguile/fports.c:1.89 Thu Jan 25 09:18:41 2001
+++ guile/guile-core/libguile/fports.c Thu Jan 25 09:40:50 2001
@@ -226,6 +226,17 @@
}
}
+
+SCM_DEFINE (scm_file_port_p, "file-port?", 1, 0, 0,
+ (SCM obj),
+ "Determine whether OBJ is a port that is related to a file.")
+#define FUNC_NAME s_scm_file_port_p
+{
+ return SCM_BOOL (SCM_FPORTP (obj));
+}
+#undef FUNC_NAME
+
+
/* scm_open_file
* Return a new port open on a given file.
*
Index: guile/guile-core/libguile/fports.h
diff -u guile/guile-core/libguile/fports.h:1.26
guile/guile-core/libguile/fports.h:1.27
--- guile/guile-core/libguile/fports.h:1.26 Thu Jan 25 09:18:41 2001
+++ guile/guile-core/libguile/fports.h Thu Jan 25 09:40:50 2001
@@ -77,6 +77,7 @@
extern void scm_evict_ports (int fd);
extern SCM scm_open_file (SCM filename, SCM modes);
extern SCM scm_fdes_to_port (int fdes, char *mode, SCM name);
+extern SCM scm_file_port_p (SCM obj);
extern void scm_init_fports (void);
#endif /* FPORTSH */
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- guile/guile-core NEWS libguile/ChangeLog libgui...,
Dirk Herrmann <=