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

[Dirk Herrmann]

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 */