* 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 0971da7..579da70 100644 (file)
--- a/libguile/ioext.h
+++ b/libguile/ioext.h
@@ -2,7 +2,7 @@
 
 #ifndef IOEXTH
 #define IOEXTH
-/*     Copyright (C) 1995 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
@@ -16,7 +16,8 @@
  * 
  * You should have received a copy of the GNU General Public License
  * along with this software; see the file COPYING.  If not, write to
- * the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+ * the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
+ * Boston, MA 02111-1307 USA
  *
  * As a special exception, the Free Software Foundation gives permission
  * for additional uses of the text contained in its release of GUILE.
@@ -40,48 +41,42 @@
  *
  * If you write modifications of your own for GUILE, it is your choice
  * whether to permit this exception to apply to your modifications.
- * If you do not wish that, delete this exception notice.  
- */
+ * If you do not wish that, delete this exception notice.  */
 \f
 
 #include "libguile/__scm.h"
 
 \f
 
-
-\f
-#ifdef __STDC__
-extern SCM scm_sys_ftell (SCM port);
-extern SCM scm_sys_fseek (SCM port, SCM offset, SCM whence);
-extern SCM scm_sys_freopen (SCM filename, SCM modes, SCM port);
-extern SCM scm_sys_duplicate_port (SCM oldpt, SCM modes);
-extern SCM scm_sys_redirect_port (SCM into_pt, SCM from_pt);
-extern SCM scm_sys_fileno (SCM port);
-extern SCM scm_sys_isatty (SCM port);
-extern SCM scm_sys_fdopen (SCM fdes, SCM modes);
-extern SCM scm_sys_primitive_move_to_fdes (SCM port, SCM fd);
-extern void scm_setfileno (FILE *fs, int fd);
-extern void scm_evict_ports (int fd);
+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);
 
-#else /* STDC */
-extern SCM scm_sys_ftell ();
-extern SCM scm_sys_fseek ();
-extern SCM scm_sys_freopen ();
-extern SCM scm_sys_duplicate_port ();
-extern SCM scm_sys_redirect_port ();
-extern SCM scm_sys_fileno ();
-extern SCM scm_sys_isatty ();
-extern SCM scm_sys_fdopen ();
-extern SCM scm_sys_primitive_move_to_fdes ();
-extern void scm_setfileno ();
-extern void scm_evict_ports ();
-extern SCM scm_fdes_to_ports ();
-extern void scm_init_ioext ();
+\f
 
-#endif /* STDC */
+#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:
+*/