guile/guile-core/libguile ChangeLog ports.c por...

[Gary Houston]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Gary Houston <address@hidden>   00/11/09 14:44:10

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

Log message:
        2000-11-09  Gary Houston  <address@hidden>
        
        * ports.c, ports.h (scm_close_all_ports_except): deprecated.
        use port-for-each.  Updated its docstring.

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/ChangeLog.diff?r1=1.1163&r2=1.1164
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/ports.c.diff?r1=1.120&r2=1.121
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/ports.h.diff?r1=1.68&r2=1.69

Patches:
Index: guile/guile-core/libguile/ChangeLog
diff -u guile/guile-core/libguile/ChangeLog:1.1163 
guile/guile-core/libguile/ChangeLog:1.1164
--- guile/guile-core/libguile/ChangeLog:1.1163  Tue Nov  7 13:34:44 2000
+++ guile/guile-core/libguile/ChangeLog Thu Nov  9 14:44:09 2000
@@ -1,3 +1,8 @@
+2000-11-09  Gary Houston  <address@hidden>
+
+       * ports.c, ports.h (scm_close_all_ports_except): deprecated.
+       use port-for-each.  Updated its docstring.
+
 2000-11-07  Gary Houston  <address@hidden>
 
        * ports.c (scm_port_for_each): new proc.  implements port-for-each,
Index: guile/guile-core/libguile/ports.c
diff -u guile/guile-core/libguile/ports.c:1.120 
guile/guile-core/libguile/ports.c:1.121
--- guile/guile-core/libguile/ports.c:1.120     Tue Nov  7 13:34:45 2000
+++ guile/guile-core/libguile/ports.c   Thu Nov  9 14:44:09 2000
@@ -688,12 +688,16 @@
 }
 #undef FUNC_NAME
 
+#if (SCM_DEBUG_DEPRECATED == 0)
+
 SCM_DEFINE (scm_close_all_ports_except, "close-all-ports-except", 0, 0, 1,
            (SCM ports),
-           "Close all open file ports used by the interpreter\n"
+           "[DEPRECATED] Close all open file ports used by the interpreter\n"
            "except for those supplied as arguments.  This procedure\n"
-           "is intended to be used before an exec call to close file 
descriptors\n"
-           "which are not needed in the new process.")
+           "was intended to be used before an exec call to close file 
descriptors\n"
+           "which are not needed in the new process.  However it has the\n"
+           "undesirable side-effect of flushing buffes, so it's deprecated.\n"
+           "Use port-for-each instead.")
 #define FUNC_NAME s_scm_close_all_ports_except
 {
   int i = 0;
@@ -723,6 +727,7 @@
 }
 #undef FUNC_NAME
 
+#endif
 
 
 /* Utter miscellany.  Gosh, we should clean this up some time.  */
Index: guile/guile-core/libguile/ports.h
diff -u guile/guile-core/libguile/ports.h:1.68 
guile/guile-core/libguile/ports.h:1.69
--- guile/guile-core/libguile/ports.h:1.68      Tue Nov  7 13:34:45 2000
+++ guile/guile-core/libguile/ports.h   Thu Nov  9 14:44:09 2000
@@ -267,7 +267,6 @@
 extern SCM scm_close_output_port (SCM port);
 extern SCM scm_close_port (SCM port);
 extern SCM scm_port_for_each (SCM proc);
-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);
@@ -315,6 +314,8 @@
 /* #define SCM_CRDY    (32L<<16)  obsolete, for pushed back characters  */
 #define SCM_INPORTP(x) SCM_INPUT_PORT_P (x)
 #define SCM_OUTPORTP(x) SCM_OUTPUT_PORT_P (x)
+
+extern SCM scm_close_all_ports_except (SCM ports);
 
 #endif  /* SCM_DEBUG_DEPRECATED == 0 */