* Added a file-port? primitive.

diff --git a/NEWS b/NEWS
index 813f3ac..fc58c02 100644 (file)
--- a/NEWS
+++ b/NEWS
@@ -262,6 +262,10 @@ Instead, use scm_c_memq or scm_memq, scm_memv, scm_member.
 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

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 8ce25d6..6114d7a 100644 (file)
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,7 @@
+2001-01-25  Dirk Herrmann  <D.Herrmann@tu-bs.de>
+
+       * fports.[ch] (scm_file_port_p):  New primitive.
+
 2001-01-25  Dirk Herrmann  <D.Herrmann@tu-bs.de>
 
        * tags.h (scm_tc16_fport, scm_tc16_strport, scm_tc16_sfport):

diff --git a/libguile/fports.c b/libguile/fports.c
index 302303f..b711071 100644 (file)
--- a/libguile/fports.c
+++ b/libguile/fports.c
@@ -226,6 +226,17 @@ scm_evict_ports (int fd)
     }
 }
 
+
+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.
  *

diff --git a/libguile/fports.h b/libguile/fports.h
index 8fc9925..3d970d9 100644 (file)
--- a/libguile/fports.h
+++ b/libguile/fports.h
@@ -77,6 +77,7 @@ extern SCM scm_setvbuf (SCM port, SCM mode, SCM size);
 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 */