diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-01-18 11:24:37 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-01-18 11:24:37 +0000 |
commit | d3818c298266c5f1d28a33f58da92471cfd66e66 (patch) | |
tree | c779afbb5473fb25dbeea3e408d33807a65cc782 /libguile/simpos.c | |
parent | b380b88547226544d5a2b7d09379c79fbe300e10 (diff) | |
download | guile-d3818c298266c5f1d28a33f58da92471cfd66e66.tar.gz |
* alist.c, chars.c, debug.c, dynl.c, dynwind.c, error.c, eval.c,
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.
Diffstat (limited to 'libguile/simpos.c')
-rw-r--r-- | libguile/simpos.c | 27 |
1 files changed, 13 insertions, 14 deletions
diff --git a/libguile/simpos.c b/libguile/simpos.c index 1f66288f0..5265269d4 100644 --- a/libguile/simpos.c +++ b/libguile/simpos.c @@ -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; |