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

(scm_read_options, scm_read, scm_read_hash_extend): Added docstrings.

Browse source
This commit is contained in:
Martin Grabmüller 2001-02-16 15:17:20 +00:00
parent fa6a543f0d
commit dc7fa443d6
1 changed files with 11 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

14
libguile/read.c
View file

@ -79,7 +79,9 @@ scm_option scm_read_opts[] = {
SCM_DEFINE (scm_read_options, "read-options-interface", 0, 1, 0, SCM_DEFINE (scm_read_options, "read-options-interface", 0, 1, 0,
(SCM setting), (SCM setting),
"") "Option interface for the read options. Instead of using\n"
"this procedure directly, use the procedures @code{read-enable},\n"
"@code{read-disable}, @code{read-set!} and @var{read-options}.")
#define FUNC_NAME s_scm_read_options #define FUNC_NAME s_scm_read_options
{ {
SCM ans = scm_options (setting, SCM ans = scm_options (setting,
@ -97,7 +99,9 @@ static SCM *scm_read_hash_procedures;
SCM_DEFINE (scm_read, "read", 0, 1, 0, SCM_DEFINE (scm_read, "read", 0, 1, 0,
(SCM port), (SCM port),
"") "Read an s-expression from the input port @var{port}, or from\n"
"the current input port if @var{port} is not specified.\n"
"Any whitespace before the next token is discarded.")
#define FUNC_NAME s_scm_read #define FUNC_NAME s_scm_read
{ {
int c; int c;
@ -725,7 +729,11 @@ exit:
Scheme, but maybe it will also be used by C code during initialisation. */ Scheme, but maybe it will also be used by C code during initialisation. */
SCM_DEFINE (scm_read_hash_extend, "read-hash-extend", 2, 0, 0, SCM_DEFINE (scm_read_hash_extend, "read-hash-extend", 2, 0, 0,
(SCM chr, SCM proc), (SCM chr, SCM proc),
"") "Install the procedure @var{proc} for reading expressions\n"
"starting with the character sequence @code{#} and @var{chr}.\n"
"@var{proc} will be called with two arguments: the character\n"
"@var{chr} and the port to read further data from. The object\n"
"returned will be the return value of @code{read}.")
#define FUNC_NAME s_scm_read_hash_extend #define FUNC_NAME s_scm_read_hash_extend
{ {
SCM this; SCM this;