summaryrefslogtreecommitdiff
path: root/libguile/simpos.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2000-01-18 11:24:37 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2000-01-18 11:24:37 +0000
commitd3818c298266c5f1d28a33f58da92471cfd66e66 (patch)
treec779afbb5473fb25dbeea3e408d33807a65cc782 /libguile/simpos.c
parentb380b88547226544d5a2b7d09379c79fbe300e10 (diff)
downloadguile-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.c27
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;