diff options
author | Jim Blandy <jimb@red-bean.com> | 1996-10-14 01:33:50 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1996-10-14 01:33:50 +0000 |
commit | 1cc91f1b2937a230a2dc80dd25cc6003b7b8f2b5 (patch) | |
tree | 64ddce6a971f0e0ca6ddd41d9ac0f5b999122484 /libguile/ioext.c | |
parent | 1717856b4e8072b5aebab2324fcfba55bc504369 (diff) | |
download | guile-1cc91f1b2937a230a2dc80dd25cc6003b7b8f2b5.tar.gz |
* __scm.h, alist.c, alist.h, append.c, append.h, appinit.c,
arbiters.c, arbiters.h, async.c, async.h, boolean.c, boolean.h,
chars.c, chars.h, continuations.c, continuations.h, debug.c,
debug.h, dynwind.c, dynwind.h, eq.c, eq.h, error.c, eval.c,
eval.h, extchrs.c, extchrs.h, fdsocket.c, fdsocket.h, filesys.c,
filesys.h, fports.c, fports.h, gc.c, gdb_interface.h, gdbint.c,
gdbint.h, genio.c, genio.h, gscm.c, gscm.h, gsubr.c, gsubr.h,
hash.c, hash.h, hashtab.c, hashtab.h, init.c, ioext.c, ioext.h,
kw.c, kw.h, libguile.h, mallocs.c, mallocs.h, markers.c,
markers.h, mbstrings.c, mbstrings.h, numbers.c, numbers.h,
objprop.c, objprop.h, options.c, options.h, pairs.c, pairs.h,
ports.c, ports.h, posix.c, posix.h, print.c, print.h, procprop.c,
procprop.h, procs.c, procs.h, ramap.c, ramap.h, read.c, read.h,
root.c, scmsigs.c, scmsigs.h, sequences.c, sequences.h, simpos.c,
simpos.h, smob.c, socket.c, socket.h, srcprop.c, srcprop.h,
stackchk.c, stackchk.h, stime.c, stime.h, strings.c, strings.h,
strop.c, strop.h, strorder.c, strorder.h, strports.c, strports.h,
struct.c, struct.h, symbols.c, symbols.h, tag.c, tag.h, unif.c,
unif.h, variable.c, variable.h, vectors.c, vectors.h, version.c,
version.h, vports.c, vports.h, weaks.c, weaks.h: Use SCM_P to
declare functions with prototypes. (Patch thanks to Marius
Vollmer.)
Diffstat (limited to 'libguile/ioext.c')
-rw-r--r-- | libguile/ioext.c | 78 |
1 files changed, 13 insertions, 65 deletions
diff --git a/libguile/ioext.c b/libguile/ioext.c index 9f1959c39..221b72fab 100644 --- a/libguile/ioext.c +++ b/libguile/ioext.c @@ -57,14 +57,10 @@ SCM_PROC (s_sys_ftell, "ftell", 1, 0, 0, scm_sys_ftell); -#ifdef __STDC__ -SCM -scm_sys_ftell (SCM port) -#else + SCM scm_sys_ftell (port) SCM port; -#endif { long pos; SCM_ASSERT (SCM_NIMP (port) && SCM_OPFPORTP (port), port, SCM_ARG1, s_sys_ftell); @@ -79,16 +75,12 @@ scm_sys_ftell (port) SCM_PROC (s_sys_fseek, "fseek", 3, 0, 0, scm_sys_fseek); -#ifdef __STDC__ -SCM -scm_sys_fseek (SCM port, SCM offset, SCM whence) -#else + SCM scm_sys_fseek (port, offset, whence) SCM port; SCM offset; SCM whence; -#endif { int rv; SCM_ASSERT (SCM_NIMP (port) && SCM_OPFPORTP (port), port, SCM_ARG1, s_sys_fseek); @@ -106,16 +98,12 @@ scm_sys_fseek (port, offset, whence) SCM_PROC (s_sys_freopen, "freopen", 3, 0, 0, scm_sys_freopen); -#ifdef __STDC__ -SCM -scm_sys_freopen (SCM filename, SCM modes, SCM port) -#else + SCM scm_sys_freopen (filename, modes, port) SCM filename; SCM modes; SCM port; -#endif { FILE *f; SCM_ASSERT (SCM_NIMP (filename) && SCM_STRINGP (filename), filename, SCM_ARG1, s_sys_freopen); @@ -145,15 +133,11 @@ scm_sys_freopen (filename, modes, port) SCM_PROC (s_sys_duplicate_port, "duplicate-port", 2, 0, 0, scm_sys_duplicate_port); -#ifdef __STDC__ -SCM -scm_sys_duplicate_port (SCM oldpt, SCM modes) -#else + SCM scm_sys_duplicate_port (oldpt, modes) SCM oldpt; SCM modes; -#endif { int oldfd; int newfd; @@ -191,15 +175,11 @@ scm_sys_duplicate_port (oldpt, modes) SCM_PROC (s_sys_redirect_port, "redirect-port", 2, 0, 0, scm_sys_redirect_port); -#ifdef __STDC__ -SCM -scm_sys_redirect_port (SCM into_pt, SCM from_pt) -#else + SCM scm_sys_redirect_port (into_pt, from_pt) SCM into_pt; SCM from_pt; -#endif { int ans, oldfd, newfd; SCM_DEFER_INTS; @@ -219,14 +199,10 @@ scm_sys_redirect_port (into_pt, from_pt) } SCM_PROC (s_sys_fileno, "fileno", 1, 0, 0, scm_sys_fileno); -#ifdef __STDC__ -SCM -scm_sys_fileno (SCM port) -#else + SCM scm_sys_fileno (port) SCM port; -#endif { int fd; SCM_ASSERT (SCM_NIMP (port) && SCM_OPFPORTP (port), port, SCM_ARG1, s_sys_fileno); @@ -237,14 +213,10 @@ scm_sys_fileno (port) } SCM_PROC (s_sys_isatty, "isatty?", 1, 0, 0, scm_sys_isatty_p); -#ifdef __STDC__ -SCM -scm_sys_isatty_p (SCM port) -#else + SCM scm_sys_isatty_p (port) SCM port; -#endif { int rv; SCM_ASSERT (SCM_NIMP (port) && SCM_OPFPORTP (port), port, SCM_ARG1, s_sys_isatty); @@ -258,15 +230,11 @@ scm_sys_isatty_p (port) SCM_PROC (s_sys_fdopen, "fdopen", 2, 0, 0, scm_sys_fdopen); -#ifdef __STDC__ -SCM -scm_sys_fdopen (SCM fdes, SCM modes) -#else + SCM scm_sys_fdopen (fdes, modes) SCM fdes; SCM modes; -#endif { FILE *f; SCM port; @@ -297,15 +265,11 @@ scm_sys_fdopen (fdes, modes) * MOVE->FDES is implemented in Scheme and calls this primitive. */ SCM_PROC (s_sys_primitive_move_to_fdes, "primitive-move->fdes", 2, 0, 0, scm_sys_primitive_move_to_fdes); -#ifdef __STDC__ -SCM -scm_sys_primitive_move_to_fdes (SCM port, SCM fd) -#else + SCM scm_sys_primitive_move_to_fdes (port, fd) SCM port; SCM fd; -#endif { FILE *stream; int old_fd; @@ -333,15 +297,11 @@ scm_sys_primitive_move_to_fdes (port, fd) return SCM_BOOL_T; } -#ifdef __STDC__ -void -scm_setfileno (FILE *fs, int fd) -#else + void scm_setfileno (fs, fd) FILE *fs; int fd; -#endif { #ifdef SET_FILE_FD_FIELD SET_FILE_FD_FIELD(fs, fd); @@ -362,14 +322,10 @@ scm_setfileno (fs, fd) * reseting the revealed count to 0. * Should be called with SCM_DEFER_INTS active. */ -#ifdef __STDC__ -void -scm_evict_ports (int fd) -#else + void scm_evict_ports (fd) int fd; -#endif { int i; @@ -386,14 +342,10 @@ scm_evict_ports (fd) /* Return a list of ports using a given file descriptor. */ SCM_PROC(s_fdes_to_ports, "fdes->ports", 1, 0, 0, scm_fdes_to_ports); -#ifdef __STDC__ -SCM -scm_fdes_to_ports (SCM fd) -#else + SCM scm_fdes_to_ports (fd) SCM fd; -#endif { SCM result = SCM_EOL; int int_fd; @@ -413,13 +365,9 @@ scm_fdes_to_ports (fd) return result; } -#ifdef __STDC__ -void -scm_init_ioext (void) -#else + void scm_init_ioext () -#endif { /* fseek() symbols. */ scm_sysintern ("SEEK_SET", SCM_MAKINUM (SEEK_SET)); |