mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-18 01:30:27 +02:00
* __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.)
This commit is contained in:
Jim Blandy
parent
1717856b4e
commit
1cc91f1b29
115 changed files with 1793 additions and 5912 deletions
|
|
@ -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));
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue