mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-24 12:20:20 +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
248
libguile/posix.c
248
libguile/posix.c
|
|
@ -188,13 +188,9 @@ char *strptime ();
|
|||
|
||||
|
||||
SCM_PROC (s_sys_pipe, "pipe", 0, 0, 0, scm_sys_pipe);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_sys_pipe (void)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_sys_pipe ()
|
||||
#endif
|
||||
{
|
||||
int fd[2], rv;
|
||||
FILE *f_rd, *f_wt;
|
||||
|
|
@ -240,13 +236,9 @@ scm_sys_pipe ()
|
|||
|
||||
|
||||
SCM_PROC (s_sys_getgroups, "getgroups", 0, 0, 0, scm_sys_getgroups);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_sys_getgroups(void)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_sys_getgroups()
|
||||
#endif
|
||||
{
|
||||
SCM grps, ans;
|
||||
int ngroups = getgroups (0, NULL);
|
||||
|
|
@ -279,14 +271,10 @@ scm_sys_getgroups()
|
|||
|
||||
|
||||
SCM_PROC (s_sys_getpwuid, "getpw", 0, 1, 0, scm_sys_getpwuid);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_sys_getpwuid (SCM user)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_sys_getpwuid (user)
|
||||
SCM user;
|
||||
#endif
|
||||
{
|
||||
SCM result;
|
||||
struct passwd *entry;
|
||||
|
|
@ -335,14 +323,10 @@ scm_sys_getpwuid (user)
|
|||
|
||||
|
||||
SCM_PROC (s_setpwent, "setpw", 0, 1, 0, scm_setpwent);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_setpwent (SCM arg)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_setpwent (arg)
|
||||
SCM arg;
|
||||
#endif
|
||||
{
|
||||
if (SCM_UNBNDP (arg) || SCM_FALSEP (arg))
|
||||
endpwent ();
|
||||
|
|
@ -355,14 +339,10 @@ scm_setpwent (arg)
|
|||
|
||||
/* Combines getgrgid and getgrnam. */
|
||||
SCM_PROC (s_sys_getgrgid, "getgr", 0, 1, 0, scm_sys_getgrgid);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_sys_getgrgid (SCM name)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_sys_getgrgid (name)
|
||||
SCM name;
|
||||
#endif
|
||||
{
|
||||
SCM result;
|
||||
struct group *entry;
|
||||
|
|
@ -395,14 +375,10 @@ scm_sys_getgrgid (name)
|
|||
|
||||
|
||||
SCM_PROC (s_setgrent, "setgr", 0, 1, 0, scm_setgrent);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_setgrent (SCM arg)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_setgrent (arg)
|
||||
SCM arg;
|
||||
#endif
|
||||
{
|
||||
if (SCM_UNBNDP (arg) || SCM_FALSEP (arg))
|
||||
endgrent ();
|
||||
|
|
@ -414,15 +390,11 @@ scm_setgrent (arg)
|
|||
|
||||
|
||||
SCM_PROC (s_sys_kill, "kill", 2, 0, 0, scm_sys_kill);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_sys_kill (SCM pid, SCM sig)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_sys_kill (pid, sig)
|
||||
SCM pid;
|
||||
SCM sig;
|
||||
#endif
|
||||
{
|
||||
SCM_ASSERT (SCM_INUMP (pid), pid, SCM_ARG1, s_sys_kill);
|
||||
SCM_ASSERT (SCM_INUMP (sig), sig, SCM_ARG2, s_sys_kill);
|
||||
|
|
@ -435,15 +407,11 @@ scm_sys_kill (pid, sig)
|
|||
|
||||
|
||||
SCM_PROC (s_sys_waitpid, "waitpid", 1, 1, 0, scm_sys_waitpid);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_sys_waitpid (SCM pid, SCM options)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_sys_waitpid (pid, options)
|
||||
SCM pid;
|
||||
SCM options;
|
||||
#endif
|
||||
{
|
||||
#ifdef HAVE_WAITPID
|
||||
int i;
|
||||
|
|
@ -472,13 +440,9 @@ scm_sys_waitpid (pid, options)
|
|||
|
||||
|
||||
SCM_PROC (s_getppid, "getppid", 0, 0, 0, scm_getppid);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_getppid (void)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_getppid ()
|
||||
#endif
|
||||
{
|
||||
return SCM_MAKINUM (0L + getppid ());
|
||||
}
|
||||
|
|
@ -486,13 +450,9 @@ scm_getppid ()
|
|||
|
||||
|
||||
SCM_PROC (s_getuid, "getuid", 0, 0, 0, scm_getuid);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_getuid (void)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_getuid ()
|
||||
#endif
|
||||
{
|
||||
return SCM_MAKINUM (0L + getuid ());
|
||||
}
|
||||
|
|
@ -500,13 +460,9 @@ scm_getuid ()
|
|||
|
||||
|
||||
SCM_PROC (s_getgid, "getgid", 0, 0, 0, scm_getgid);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_getgid (void)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_getgid ()
|
||||
#endif
|
||||
{
|
||||
return SCM_MAKINUM (0L + getgid ());
|
||||
}
|
||||
|
|
@ -514,13 +470,9 @@ scm_getgid ()
|
|||
|
||||
|
||||
SCM_PROC (s_geteuid, "geteuid", 0, 0, 0, scm_geteuid);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_geteuid (void)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_geteuid ()
|
||||
#endif
|
||||
{
|
||||
#ifdef HAVE_GETEUID
|
||||
return SCM_MAKINUM (0L + geteuid ());
|
||||
|
|
@ -532,13 +484,9 @@ scm_geteuid ()
|
|||
|
||||
|
||||
SCM_PROC (s_getegid, "getegid", 0, 0, 0, scm_getegid);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_getegid (void)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_getegid ()
|
||||
#endif
|
||||
{
|
||||
#ifdef HAVE_GETEUID
|
||||
return SCM_MAKINUM (0L + getegid ());
|
||||
|
|
@ -549,14 +497,10 @@ scm_getegid ()
|
|||
|
||||
|
||||
SCM_PROC (s_sys_setuid, "setuid", 1, 0, 0, scm_sys_setuid);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_sys_setuid (SCM id)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_sys_setuid (id)
|
||||
SCM id;
|
||||
#endif
|
||||
{
|
||||
SCM_ASSERT (SCM_INUMP (id), id, SCM_ARG1, s_sys_setuid);
|
||||
if (setuid (SCM_INUM (id)) != 0)
|
||||
|
|
@ -565,14 +509,10 @@ scm_sys_setuid (id)
|
|||
}
|
||||
|
||||
SCM_PROC (s_sys_setgid, "setgid", 1, 0, 0, scm_sys_setgid);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_sys_setgid (SCM id)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_sys_setgid (id)
|
||||
SCM id;
|
||||
#endif
|
||||
{
|
||||
SCM_ASSERT (SCM_INUMP (id), id, SCM_ARG1, s_sys_setgid);
|
||||
if (setgid (SCM_INUM (id)) != 0)
|
||||
|
|
@ -581,14 +521,10 @@ scm_sys_setgid (id)
|
|||
}
|
||||
|
||||
SCM_PROC (s_sys_seteuid, "seteuid", 1, 0, 0, scm_sys_seteuid);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_sys_seteuid (SCM id)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_sys_seteuid (id)
|
||||
SCM id;
|
||||
#endif
|
||||
{
|
||||
int rv;
|
||||
|
||||
|
|
@ -604,14 +540,10 @@ scm_sys_seteuid (id)
|
|||
}
|
||||
|
||||
SCM_PROC (s_sys_setegid, "setegid", 1, 0, 0, scm_sys_setegid);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_sys_setegid (SCM id)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_sys_setegid (id)
|
||||
SCM id;
|
||||
#endif
|
||||
{
|
||||
int rv;
|
||||
|
||||
|
|
@ -672,14 +604,10 @@ scm_setsid ()
|
|||
}
|
||||
|
||||
SCM_PROC (s_ttyname, "ttyname", 1, 0, 0, scm_ttyname);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_ttyname (SCM port)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_ttyname (port)
|
||||
SCM port;
|
||||
#endif
|
||||
{
|
||||
char *ans;
|
||||
int fd;
|
||||
|
|
@ -754,14 +682,12 @@ scm_tcsetpgrp (port, pgid)
|
|||
}
|
||||
|
||||
/* Copy exec args from an SCM vector into a new C array. */
|
||||
#ifdef __STDC__
|
||||
static char **
|
||||
scm_convert_exec_args (SCM args)
|
||||
#else
|
||||
|
||||
static char ** scm_convert_exec_args SCM_P ((SCM args));
|
||||
|
||||
static char **
|
||||
scm_convert_exec_args (args)
|
||||
SCM args;
|
||||
#endif
|
||||
{
|
||||
char **execargv;
|
||||
int num_args;
|
||||
|
|
@ -790,14 +716,10 @@ scm_convert_exec_args (args)
|
|||
}
|
||||
|
||||
SCM_PROC (s_sys_execl, "execl", 0, 0, 1, scm_sys_execl);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_sys_execl (SCM args)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_sys_execl (args)
|
||||
SCM args;
|
||||
#endif
|
||||
{
|
||||
char **execargv;
|
||||
SCM filename = SCM_CAR (args);
|
||||
|
|
@ -813,14 +735,10 @@ scm_sys_execl (args)
|
|||
}
|
||||
|
||||
SCM_PROC (s_sys_execlp, "execlp", 0, 0, 1, scm_sys_execlp);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_sys_execlp (SCM args)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_sys_execlp (args)
|
||||
SCM args;
|
||||
#endif
|
||||
{
|
||||
char **execargv;
|
||||
SCM filename = SCM_CAR (args);
|
||||
|
|
@ -837,13 +755,9 @@ scm_sys_execlp (args)
|
|||
|
||||
/* Flushing streams etc., is not done here. */
|
||||
SCM_PROC (s_sys_fork, "fork", 0, 0, 0, scm_sys_fork);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_sys_fork(void)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_sys_fork()
|
||||
#endif
|
||||
{
|
||||
int pid;
|
||||
pid = fork ();
|
||||
|
|
@ -854,13 +768,9 @@ scm_sys_fork()
|
|||
|
||||
|
||||
SCM_PROC (s_sys_uname, "uname", 0, 0, 0, scm_sys_uname);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_sys_uname (void)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_sys_uname ()
|
||||
#endif
|
||||
{
|
||||
#ifdef HAVE_UNAME
|
||||
struct utsname buf;
|
||||
|
|
@ -886,14 +796,10 @@ scm_sys_uname ()
|
|||
}
|
||||
|
||||
SCM_PROC (s_environ, "environ", 0, 1, 0, scm_environ);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_environ (SCM env)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_environ (env)
|
||||
SCM env;
|
||||
#endif
|
||||
{
|
||||
if (SCM_UNBNDP (env))
|
||||
return scm_makfromstrs (-1, environ);
|
||||
|
|
@ -944,15 +850,11 @@ scm_environ (env)
|
|||
|
||||
|
||||
SCM_PROC (s_open_pipe, "open-pipe", 2, 0, 0, scm_open_pipe);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_open_pipe (SCM pipestr, SCM modes)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_open_pipe (pipestr, modes)
|
||||
SCM pipestr;
|
||||
SCM modes;
|
||||
#endif
|
||||
{
|
||||
FILE *f;
|
||||
register SCM z;
|
||||
|
|
@ -982,43 +884,31 @@ scm_open_pipe (pipestr, modes)
|
|||
|
||||
|
||||
SCM_PROC (s_open_input_pipe, "open-input-pipe", 1, 0, 0, scm_open_input_pipe);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_open_input_pipe(SCM pipestr)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_open_input_pipe(pipestr)
|
||||
SCM pipestr;
|
||||
#endif
|
||||
{
|
||||
return scm_open_pipe(pipestr, scm_makfromstr("r", (sizeof "r")-1, 0));
|
||||
}
|
||||
|
||||
SCM_PROC (s_open_output_pipe, "open-output-pipe", 1, 0, 0, scm_open_output_pipe);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_open_output_pipe(SCM pipestr)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_open_output_pipe(pipestr)
|
||||
SCM pipestr;
|
||||
#endif
|
||||
{
|
||||
return scm_open_pipe(pipestr, scm_makfromstr("w", (sizeof "w")-1, 0));
|
||||
}
|
||||
|
||||
|
||||
SCM_PROC (s_sys_utime, "utime", 1, 2, 0, scm_sys_utime);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_sys_utime (SCM pathname, SCM actime, SCM modtime)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_sys_utime (pathname, actime, modtime)
|
||||
SCM pathname;
|
||||
SCM actime;
|
||||
SCM modtime;
|
||||
#endif
|
||||
{
|
||||
int rv;
|
||||
struct utimbuf utm_tmp;
|
||||
|
|
@ -1042,15 +932,11 @@ scm_sys_utime (pathname, actime, modtime)
|
|||
}
|
||||
|
||||
SCM_PROC (s_sys_access, "access?", 2, 0, 0, scm_sys_access);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_sys_access (SCM path, SCM how)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_sys_access (path, how)
|
||||
SCM path;
|
||||
SCM how;
|
||||
#endif
|
||||
{
|
||||
int rv;
|
||||
|
||||
|
|
@ -1063,26 +949,18 @@ scm_sys_access (path, how)
|
|||
}
|
||||
|
||||
SCM_PROC (s_getpid, "getpid", 0, 0, 0, scm_getpid);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_getpid (void)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_getpid ()
|
||||
#endif
|
||||
{
|
||||
return SCM_MAKINUM ((unsigned long) getpid ());
|
||||
}
|
||||
|
||||
SCM_PROC (s_sys_putenv, "putenv", 1, 0, 0, scm_sys_putenv);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_sys_putenv (SCM str)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_sys_putenv (str)
|
||||
SCM str;
|
||||
#endif
|
||||
{
|
||||
#ifdef HAVE_PUTENV
|
||||
SCM_ASSERT (SCM_NIMP (str) && SCM_STRINGP (str), str, SCM_ARG1, s_sys_putenv);
|
||||
|
|
@ -1095,15 +973,11 @@ scm_sys_putenv (str)
|
|||
}
|
||||
|
||||
SCM_PROC (s_read_line, "read-line", 0, 2, 0, scm_read_line);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_read_line (SCM port, SCM include_terminator)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_read_line (port, include_terminator)
|
||||
SCM port;
|
||||
SCM include_terminator;
|
||||
#endif
|
||||
{
|
||||
register int c;
|
||||
register int j = 0;
|
||||
|
|
@ -1157,15 +1031,11 @@ scm_read_line (port, include_terminator)
|
|||
}
|
||||
|
||||
SCM_PROC (s_read_line_x, "read-line!", 1, 1, 0, scm_read_line_x);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_read_line_x (SCM str, SCM port)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_read_line_x (str, port)
|
||||
SCM str;
|
||||
SCM port;
|
||||
#endif
|
||||
{
|
||||
register int c;
|
||||
register int j = 0;
|
||||
|
|
@ -1201,30 +1071,22 @@ scm_read_line_x (str, port)
|
|||
}
|
||||
|
||||
SCM_PROC (s_write_line, "write-line", 1, 1, 0, scm_write_line);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_write_line (SCM obj, SCM port)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_write_line (obj, port)
|
||||
SCM obj;
|
||||
SCM port;
|
||||
#endif
|
||||
{
|
||||
scm_display (obj, port);
|
||||
return scm_newline (port);
|
||||
}
|
||||
|
||||
SCM_PROC (s_setlocale, "setlocale", 1, 1, 0, scm_setlocale);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_setlocale (SCM category, SCM locale)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_setlocale (category, locale)
|
||||
SCM category;
|
||||
SCM locale;
|
||||
#endif
|
||||
{
|
||||
#ifdef HAVE_SETLOCALE
|
||||
char *clocale;
|
||||
|
|
@ -1253,15 +1115,11 @@ scm_setlocale (category, locale)
|
|||
}
|
||||
|
||||
SCM_PROC (s_strftime, "strftime", 2, 0, 0, scm_strftime);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_strftime (SCM format, SCM stime)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_strftime (format, stime)
|
||||
SCM format;
|
||||
SCM stime;
|
||||
#endif
|
||||
{
|
||||
struct tm t;
|
||||
|
||||
|
|
@ -1306,15 +1164,11 @@ scm_strftime (format, stime)
|
|||
}
|
||||
|
||||
SCM_PROC (s_sys_strptime, "strptime", 2, 0, 0, scm_sys_strptime);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_sys_strptime (SCM format, SCM string)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_sys_strptime (format, string)
|
||||
SCM format;
|
||||
SCM string;
|
||||
#endif
|
||||
{
|
||||
#ifdef HAVE_STRPTIME
|
||||
SCM stime;
|
||||
|
|
@ -1377,16 +1231,12 @@ scm_sys_strptime (format, string)
|
|||
}
|
||||
|
||||
SCM_PROC (s_sys_mknod, "mknod", 3, 0, 0, scm_sys_mknod);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_sys_mknod(SCM path, SCM mode, SCM dev)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_sys_mknod(path, mode, dev)
|
||||
SCM path;
|
||||
SCM mode;
|
||||
SCM dev;
|
||||
#endif
|
||||
{
|
||||
#ifdef HAVE_MKNOD
|
||||
int val;
|
||||
|
|
@ -1406,14 +1256,10 @@ scm_sys_mknod(path, mode, dev)
|
|||
|
||||
|
||||
SCM_PROC (s_sys_nice, "nice", 1, 0, 0, scm_sys_nice);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_sys_nice(SCM incr)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_sys_nice(incr)
|
||||
SCM incr;
|
||||
#endif
|
||||
{
|
||||
#ifdef HAVE_NICE
|
||||
SCM_ASSERT(SCM_INUMP(incr), incr, SCM_ARG1, s_sys_nice);
|
||||
|
|
@ -1429,13 +1275,9 @@ scm_sys_nice(incr)
|
|||
|
||||
|
||||
SCM_PROC (s_sync, "sync", 0, 0, 0, scm_sync);
|
||||
#ifdef __STDC__
|
||||
SCM
|
||||
scm_sync(void)
|
||||
#else
|
||||
|
||||
SCM
|
||||
scm_sync()
|
||||
#endif
|
||||
{
|
||||
#ifdef HAVE_SYNC
|
||||
sync();
|
||||
|
|
@ -1448,13 +1290,9 @@ scm_sync()
|
|||
|
||||
|
||||
|
||||
#ifdef __STDC__
|
||||
void
|
||||
scm_init_posix (void)
|
||||
#else
|
||||
|
||||
void
|
||||
scm_init_posix ()
|
||||
#endif
|
||||
{
|
||||
scm_add_feature ("posix");
|
||||
#ifdef HAVE_GETEUID
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue