* ioext.c (scm_read_string_x_partial): new procedure, implements

[bpt/guile.git] / libguile / ioext.h

diff --git a/libguile/ioext.h b/libguile/ioext.h
index 194c74a..579da70 100644 (file)
--- a/libguile/ioext.h
+++ b/libguile/ioext.h
@@ -2,7 +2,7 @@
 
 #ifndef IOEXTH
 #define IOEXTH
-/*     Copyright (C) 1995, 1996, 1997 Free Software Foundation, Inc.
+/*     Copyright (C) 1995, 1996, 1997, 1998, 2000 Free Software Foundation, Inc.
  * 
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -48,19 +48,35 @@
 
 \f
 
-extern SCM scm_read_delimited_x SCM_P ((SCM delims, SCM buf, SCM gobble, SCM port, SCM offset, SCM length));
-extern SCM scm_write_line SCM_P ((SCM obj, SCM port));
-extern SCM scm_ftell SCM_P ((SCM port));
-extern SCM scm_fseek SCM_P ((SCM port, SCM offset, SCM whence));
-extern SCM scm_freopen SCM_P ((SCM filename, SCM modes, SCM port));
-extern SCM scm_duplicate_port SCM_P ((SCM oldpt, SCM modes));
-extern SCM scm_redirect_port SCM_P ((SCM into_pt, SCM from_pt));
-extern SCM scm_fileno SCM_P ((SCM port));
-extern SCM scm_isatty_p SCM_P ((SCM port));
-extern SCM scm_fdopen SCM_P ((SCM fdes, SCM modes));
-extern SCM scm_primitive_move_to_fdes SCM_P ((SCM port, SCM fd));
-extern void scm_setfileno SCM_P ((FILE *fs, int fd));
-extern SCM scm_fdes_to_ports SCM_P ((SCM fd));
-extern void scm_init_ioext SCM_P ((void));
+extern SCM scm_read_string_x_partial (SCM str, SCM port_or_fdes, SCM start,
+                                     SCM end);
+extern SCM scm_read_delimited_x (SCM delims, SCM buf, SCM gobble, SCM port,
+                                SCM offset, SCM length);
+extern SCM scm_read_line (SCM port);
+extern SCM scm_write_line (SCM obj, SCM port);
+extern SCM scm_ftell (SCM object);
+extern SCM scm_redirect_port (SCM into_pt, SCM from_pt);
+extern SCM scm_dup_to_fdes (SCM fd_or_port, SCM newfd);
+extern SCM scm_dup2 (SCM oldfd, SCM newfd);
+extern SCM scm_fileno (SCM port);
+extern SCM scm_isatty_p (SCM port);
+extern SCM scm_fdopen (SCM fdes, SCM modes);
+extern SCM scm_primitive_move_to_fdes (SCM port, SCM fd);
+extern SCM scm_fdes_to_ports (SCM fd);
+extern void scm_init_ioext (void);
+
+\f
+
+#if (SCM_DEBUG_DEPRECATED == 0)
+
+extern SCM scm_fseek (SCM object, SCM offset, SCM whence);
+
+#endif  /* SCM_DEBUG_DEPRECATED == 0 */
 
 #endif  /* IOEXTH */
+
+/*
+  Local Variables:
+  c-file-style: "gnu"
+  End:
+*/