mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

* alist.c, chars.c, debug.c, dynl.c, dynwind.c, error.c, eval.c,

Browse source 
evalext.c, filesys.c, gc.c, hash.c, hashtab.c, ioext.c,
   keywords.c, list.c, load.c, macros.c, net_db.c, numbers.c,
   objprop.c, ports.c, posix.c, print.c, procprop.c, procs.c,
   ramap.c, regex-posix.c, root.c, scmsigs.c, simpos.c, socket.c,
   stacks.c, stime.c, strings.c, strop.c, strports.c, struct.c,
   symbols.c, throw.c, unif.c, vectors.c, version.c, vports.c,
   weaks.c: Converted docstrings to ANSI C format.

* filesys.c (scm_chmod), simpos.c (s_scm_system), version
(scm_version), vports (scm_make_soft_port): Escape " occuring
inside docstring.
This commit is contained in:
Mikael Djurfeldt 2000-01-18 11:24:37 +00:00
parent b380b88547
commit d3818c2982
4 changed files with 243 additions and 264 deletions
Download patch file Download diff file Expand all files Collapse all files

27
libguile/simpos.c
View file

@ -66,13 +66,12 @@ extern int system();
#ifdef HAVE_SYSTEM
SCM_DEFINE (scm_system, "system", 0, 1, 0,
(SCM cmd),
"Executes @var{cmd} using the operating system's "command processor".
Under Unix this is usually the default shell @code{sh}. The value
returned is @var{cmd}'s exit status as returned by @code{waitpid}, which
can be interpreted using the functions above.
If @code{system} is called without arguments, it returns a boolean
indicating whether the command processor is available.")
"Executes @var{cmd} using the operating system's \"command processor\".\n"
"Under Unix this is usually the default shell @code{sh}. The value\n"
"returned is @var{cmd}'s exit status as returned by @code{waitpid}, which\n"
"can be interpreted using the functions above.\n\n"
"If @code{system} is called without arguments, it returns a boolean\n"
"indicating whether the command processor is available.")
#define FUNC_NAME s_scm_system
{
int rv;
@ -99,10 +98,10 @@ indicating whether the command processor is available.")
extern char *getenv();
SCM_DEFINE (scm_getenv, "getenv", 1, 0, 0,
(SCM nam),
"Looks up the string @var{name} in the current environment. The return
value is @code{#f} unless a string of the form @code{NAME=VALUE} is
found, in which case the string @code{VALUE} is
returned.")
"Looks up the string @var{name} in the current environment. The return\n"
"value is @code{#f} unless a string of the form @code{NAME=VALUE} is\n"
"found, in which case the string @code{VALUE} is\n"
"returned.")
#define FUNC_NAME s_scm_getenv
{
char *val;
@ -116,9 +115,9 @@ returned.")
/* simple exit, without unwinding the scheme stack or flushing ports. */
SCM_DEFINE (scm_primitive_exit, "primitive-exit", 0, 1, 0,
(SCM status),
"Terminate the current process without unwinding the Scheme stack.
This is would typically be useful after a fork. The exit status
is @var{status} if supplied, otherwise zero.")
"Terminate the current process without unwinding the Scheme stack.\n"
"This is would typically be useful after a fork. The exit status\n"
"is @var{status} if supplied, otherwise zero.")
#define FUNC_NAME s_scm_primitive_exit
{
int cstatus = 0;