SCM_SYMBOL (sym_read_pipe, "read pipe");
SCM_SYMBOL (sym_write_pipe, "write pipe");
-GUILE_PROC (scm_pipe, "pipe", 0, 0, 0,
+SCM_DEFINE (scm_pipe, "pipe", 0, 0, 0,
(),
"Creates a pipe which can be used for communication. The return value
is a pair in which the CAR contains an input port and the CDR an
#ifdef HAVE_GETGROUPS
-GUILE_PROC (scm_getgroups, "getgroups", 0, 0, 0,
+SCM_DEFINE (scm_getgroups, "getgroups", 0, 0, 0,
(),
"Returns a vector of integers representing the current supplimentary group IDs.")
#define FUNC_NAME s_scm_getgroups
#endif
-GUILE_PROC (scm_getpwuid, "getpw", 0, 1, 0,
+SCM_DEFINE (scm_getpwuid, "getpw", 0, 1, 0,
(SCM user),
"Look up an entry in the user database. @var{obj} can be an integer,
a string, or omitted, giving the behaviour of getpwuid, getpwnam
#ifdef HAVE_SETPWENT
-GUILE_PROC (scm_setpwent, "setpw", 0, 1, 0,
+SCM_DEFINE (scm_setpwent, "setpw", 0, 1, 0,
(SCM arg),
"If called with a true argument, initialize or reset the password data
stream. Otherwise, close the stream. The @code{setpwent} and
/* Combines getgrgid and getgrnam. */
-GUILE_PROC (scm_getgrgid, "getgr", 0, 1, 0,
+SCM_DEFINE (scm_getgrgid, "getgr", 0, 1, 0,
(SCM name),
"Look up an entry in the group database. @var{obj} can be an integer,
a string, or omitted, giving the behaviour of getgrgid, getgrnam
-GUILE_PROC (scm_setgrent, "setgr", 0, 1, 0,
+SCM_DEFINE (scm_setgrent, "setgr", 0, 1, 0,
(SCM arg),
"If called with a true argument, initialize or reset the group data
stream. Otherwise, close the stream. The @code{setgrent} and
-GUILE_PROC (scm_kill, "kill", 2, 0, 0,
+SCM_DEFINE (scm_kill, "kill", 2, 0, 0,
(SCM pid, SCM sig),
"Sends a signal to the specified process or group of processes.
#undef FUNC_NAME
#ifdef HAVE_WAITPID
-GUILE_PROC (scm_waitpid, "waitpid", 1, 1, 0,
+SCM_DEFINE (scm_waitpid, "waitpid", 1, 1, 0,
(SCM pid, SCM options),
"This procedure collects status information from a child process which
has terminated or (optionally) stopped. Normally it will
#undef FUNC_NAME
#endif /* HAVE_WAITPID */
-GUILE_PROC (scm_status_exit_val, "status:exit-val", 1, 0, 0,
+SCM_DEFINE (scm_status_exit_val, "status:exit-val", 1, 0, 0,
(SCM status),
"Returns the exit status value, as would be
set if a process ended normally through a
}
#undef FUNC_NAME
-GUILE_PROC (scm_status_term_sig, "status:term-sig", 1, 0, 0,
+SCM_DEFINE (scm_status_term_sig, "status:term-sig", 1, 0, 0,
(SCM status),
"Returns the signal number which terminated the
process, if any, otherwise @code{#f}.")
}
#undef FUNC_NAME
-GUILE_PROC (scm_status_stop_sig, "status:stop-sig", 1, 0, 0,
+SCM_DEFINE (scm_status_stop_sig, "status:stop-sig", 1, 0, 0,
(SCM status),
"Returns the signal number which stopped the
process, if any, otherwise @code{#f}.")
}
#undef FUNC_NAME
-GUILE_PROC (scm_getppid, "getppid", 0, 0, 0,
+SCM_DEFINE (scm_getppid, "getppid", 0, 0, 0,
(),
"Returns an integer representing the process ID of the parent process.")
#define FUNC_NAME s_scm_getppid
-GUILE_PROC (scm_getuid, "getuid", 0, 0, 0,
+SCM_DEFINE (scm_getuid, "getuid", 0, 0, 0,
(),
"Returns an integer representing the current real user ID.")
#define FUNC_NAME s_scm_getuid
-GUILE_PROC (scm_getgid, "getgid", 0, 0, 0,
+SCM_DEFINE (scm_getgid, "getgid", 0, 0, 0,
(),
"Returns an integer representing the current real group ID.")
#define FUNC_NAME s_scm_getgid
-GUILE_PROC (scm_geteuid, "geteuid", 0, 0, 0,
+SCM_DEFINE (scm_geteuid, "geteuid", 0, 0, 0,
(),
"Returns an integer representing the current effective user ID.
If the system does not support effective IDs, then the real ID
-GUILE_PROC (scm_getegid, "getegid", 0, 0, 0,
+SCM_DEFINE (scm_getegid, "getegid", 0, 0, 0,
(),
"Returns an integer representing the current effective group ID.
If the system does not support effective IDs, then the real ID
#undef FUNC_NAME
-GUILE_PROC (scm_setuid, "setuid", 1, 0, 0,
+SCM_DEFINE (scm_setuid, "setuid", 1, 0, 0,
(SCM id),
"Sets both the real and effective user IDs to the integer @var{id}, provided
the process has appropriate privileges.
}
#undef FUNC_NAME
-GUILE_PROC (scm_setgid, "setgid", 1, 0, 0,
+SCM_DEFINE (scm_setgid, "setgid", 1, 0, 0,
(SCM id),
"Sets both the real and effective group IDs to the integer @var{id}, provided
the process has appropriate privileges.
}
#undef FUNC_NAME
-GUILE_PROC (scm_seteuid, "seteuid", 1, 0, 0,
+SCM_DEFINE (scm_seteuid, "seteuid", 1, 0, 0,
(SCM id),
"Sets the effective user ID to the integer @var{id}, provided the process
has appropriate privileges. If effective IDs are not supported, the
#undef FUNC_NAME
#ifdef HAVE_SETEGID
-GUILE_PROC (scm_setegid, "setegid", 1, 0, 0,
+SCM_DEFINE (scm_setegid, "setegid", 1, 0, 0,
(SCM id),
"Sets the effective group ID to the integer @var{id}, provided the process
has appropriate privileges. If effective IDs are not supported, the
#undef FUNC_NAME
#endif
-GUILE_PROC (scm_getpgrp, "getpgrp", 0, 0, 0,
+SCM_DEFINE (scm_getpgrp, "getpgrp", 0, 0, 0,
(),
"Returns an integer representing the current process group ID.
This is the POSIX definition, not BSD.")
}
#undef FUNC_NAME
-GUILE_PROC (scm_setpgid, "setpgid", 2, 0, 0,
+SCM_DEFINE (scm_setpgid, "setpgid", 2, 0, 0,
(SCM pid, SCM pgid),
"Move the process @var{pid} into the process group @var{pgid}. @var{pid} or
@var{pgid} must be integers: they can be zero to indicate the ID of the
}
#undef FUNC_NAME
-GUILE_PROC (scm_setsid, "setsid", 0, 0, 0,
+SCM_DEFINE (scm_setsid, "setsid", 0, 0, 0,
(),
"Creates a new session. The current process becomes the session leader
and is put in a new process group. The process will be detached
}
#undef FUNC_NAME
-GUILE_PROC (scm_ttyname, "ttyname", 1, 0, 0,
+SCM_DEFINE (scm_ttyname, "ttyname", 1, 0, 0,
(SCM port),
"Returns a string with the name of the serial terminal device underlying
@var{port}.")
#undef FUNC_NAME
-GUILE_PROC (scm_ctermid, "ctermid", 0, 0, 0,
+SCM_DEFINE (scm_ctermid, "ctermid", 0, 0, 0,
(),
"Returns a string containing the file name of the controlling terminal
for the current process.")
}
#undef FUNC_NAME
-GUILE_PROC (scm_tcgetpgrp, "tcgetpgrp", 1, 0, 0,
+SCM_DEFINE (scm_tcgetpgrp, "tcgetpgrp", 1, 0, 0,
(SCM port),
"Returns the process group ID of the foreground
process group associated with the terminal open on the file descriptor
}
#undef FUNC_NAME
-GUILE_PROC (scm_tcsetpgrp, "tcsetpgrp", 2, 0, 0,
+SCM_DEFINE (scm_tcsetpgrp, "tcsetpgrp", 2, 0, 0,
(SCM port, SCM pgid),
"Set the foreground process group ID for the terminal used by the file
descriptor underlying @var{port} to the integer @var{pgid}.
return execargv;
}
-GUILE_PROC (scm_execl, "execl", 1, 0, 1,
+SCM_DEFINE (scm_execl, "execl", 1, 0, 1,
(SCM filename, SCM args),
"Executes the file named by @var{path} as a new process image.
The remaining arguments are supplied to the process; from a C program
}
#undef FUNC_NAME
-GUILE_PROC (scm_execlp, "execlp", 1, 0, 1,
+SCM_DEFINE (scm_execlp, "execlp", 1, 0, 1,
(SCM filename, SCM args),
"Similar to @code{execl}, however if
@var{filename} does not contain a slash
return result;
}
-GUILE_PROC (scm_execle, "execle", 2, 0, 1,
+SCM_DEFINE (scm_execle, "execle", 2, 0, 1,
(SCM filename, SCM env, SCM args),
"Similar to @code{execl}, but the environment of the new process is
specified by @var{env}, which must be a list of strings as returned by the
}
#undef FUNC_NAME
-GUILE_PROC (scm_fork, "primitive-fork", 0, 0, 0,
+SCM_DEFINE (scm_fork, "primitive-fork", 0, 0, 0,
(),
"Creates a new \"child\" process by duplicating the current \"parent\" process.
In the child the return value is 0. In the parent the return value is
#undef FUNC_NAME
-GUILE_PROC (scm_uname, "uname", 0, 0, 0,
+SCM_DEFINE (scm_uname, "uname", 0, 0, 0,
(),
"Returns an object with some information about the computer system the
program is running on.")
}
#undef FUNC_NAME
-GUILE_PROC (scm_environ, "environ", 0, 1, 0,
+SCM_DEFINE (scm_environ, "environ", 0, 1, 0,
(SCM env),
"If @var{env} is omitted, returns the current environment as a list of strings.
Otherwise it sets the current environment, which is also the
#ifdef L_tmpnam
-GUILE_PROC (scm_tmpnam, "tmpnam", 0, 0, 0,
+SCM_DEFINE (scm_tmpnam, "tmpnam", 0, 0, 0,
(),
"Create a new file in the file system with a unique name. The return
value is the name of the new file. This function is implemented with
#endif
-GUILE_PROC (scm_utime, "utime", 1, 2, 0,
+SCM_DEFINE (scm_utime, "utime", 1, 2, 0,
(SCM pathname, SCM actime, SCM modtime),
"@code{utime} sets the access and modification times for
the file named by @var{path}. If @var{actime} or @var{modtime}
}
#undef FUNC_NAME
-GUILE_PROC (scm_access, "access?", 2, 0, 0,
+SCM_DEFINE (scm_access, "access?", 2, 0, 0,
(SCM path, SCM how),
"Returns @code{#t} if @var{path} corresponds to an existing
file and the current process
}
#undef FUNC_NAME
-GUILE_PROC (scm_getpid, "getpid", 0, 0, 0,
+SCM_DEFINE (scm_getpid, "getpid", 0, 0, 0,
(),
"Returns an integer representing the current process ID.")
#define FUNC_NAME s_scm_getpid
}
#undef FUNC_NAME
-GUILE_PROC (scm_putenv, "putenv", 1, 0, 0,
+SCM_DEFINE (scm_putenv, "putenv", 1, 0, 0,
(SCM str),
"Modifies the environment of the current process, which is
also the default environment inherited by child processes.
}
#undef FUNC_NAME
-GUILE_PROC (scm_setlocale, "setlocale", 1, 1, 0,
+SCM_DEFINE (scm_setlocale, "setlocale", 1, 1, 0,
(SCM category, SCM locale),
"If @var{locale} is omitted, returns the current value of the specified
locale category
}
#undef FUNC_NAME
-GUILE_PROC (scm_mknod, "mknod", 4, 0, 0,
+SCM_DEFINE (scm_mknod, "mknod", 4, 0, 0,
(SCM path, SCM type, SCM perms, SCM dev),
"Creates a new special file, such as a file corresponding to a device.
@var{path} specifies the name of the file. @var{type} should
#undef FUNC_NAME
-GUILE_PROC (scm_nice, "nice", 1, 0, 0,
+SCM_DEFINE (scm_nice, "nice", 1, 0, 0,
(SCM incr),
"Increment the priority of the current process by @var{incr}. A higher
priority value means that the process runs less often.
#undef FUNC_NAME
-GUILE_PROC (scm_sync, "sync", 0, 0, 0,
+SCM_DEFINE (scm_sync, "sync", 0, 0, 0,
(),
"Flush the operating system disk buffers.
The return value is unspecified.")
HCoop / bpt / guile.git / blobdiff