mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 17:20:29 +02:00
Code Activity

* variable.c, version.c: Added documentation, written by hand

Browse source 
since I could not find anything already written that was
relevant.
This commit is contained in:
Greg J. Badros 2000-01-25 01:50:50 +00:00
parent d831b03918
commit d727c64bf9
2 changed files with 41 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

24
libguile/variable.c
View file

@ -101,6 +101,11 @@ make_vcell_variable (SCM vcell)
SCM_DEFINE (scm_make_variable, "make-variable", 1, 1, 0,
(SCM init, SCM name_hint),
"Return a variable object initialized to value INIT.\n"
"If given, uses NAME-HINT as its internal (debugging)\n"
"name, otherwise just treat it as an anonymous variable.\n"
"Remember, of course, that multiple bindings to the same\n"
"variable may exist, so NAME-HINT is just that---a hint.\n"
"")
#define FUNC_NAME s_scm_make_variable
{
@ -121,6 +126,11 @@ SCM_DEFINE (scm_make_variable, "make-variable", 1, 1, 0,
SCM_DEFINE (scm_make_undefined_variable, "make-undefined-variable", 0, 1, 0,
(SCM name_hint),
"Return a variable object initialized to an undefined value.\n"
"If given, uses NAME-HINT as its internal (debugging)\n"
"name, otherwise just treat it as an anonymous variable.\n"
"Remember, of course, that multiple bindings to the same\n"
"variable may exist, so NAME-HINT is just that---a hint.\n"
"")
#define FUNC_NAME s_scm_make_undefined_variable
{
@ -141,7 +151,7 @@ SCM_DEFINE (scm_make_undefined_variable, "make-undefined-variable", 0, 1, 0,
SCM_DEFINE (scm_variable_p, "variable?", 1, 0, 0,
(SCM obj),
"")
"Return #t iff OBJ is a variable object, else return #f\n")
#define FUNC_NAME s_scm_variable_p
{
return SCM_BOOL(SCM_VARIABLEP (obj));
@ -151,7 +161,9 @@ SCM_DEFINE (scm_variable_p, "variable?", 1, 0, 0,
SCM_DEFINE (scm_variable_ref, "variable-ref", 1, 0, 0,
(SCM var),
"")
"Dereference VAR and return its value.\n"
"VAR must be a variable object; see `make-variable' and\n"
"`make-undefined-variable'")
#define FUNC_NAME s_scm_variable_ref
{
SCM_VALIDATE_VARIABLE (1,var);
@ -163,6 +175,9 @@ SCM_DEFINE (scm_variable_ref, "variable-ref", 1, 0, 0,
SCM_DEFINE (scm_variable_set_x, "variable-set!", 2, 0, 0,
(SCM var, SCM val),
"Set the value of the variable VAR to VAL.\n"
"VAR must be a variable object, VAL can be any value.\n"
"Returns an unspecified value.\n"
"")
#define FUNC_NAME s_scm_variable_set_x
{
@ -175,6 +190,9 @@ SCM_DEFINE (scm_variable_set_x, "variable-set!", 2, 0, 0,
SCM_DEFINE (scm_builtin_variable, "builtin-variable", 1, 0, 0,
(SCM name),
"Return the built-in variable with the name NAME.\n"
"NAME must be a symbol (not a string).\n"
"Then use `variable-ref' to access its value.\n"
"")
#define FUNC_NAME s_scm_builtin_variable
{
@ -202,6 +220,8 @@ SCM_DEFINE (scm_builtin_variable, "builtin-variable", 1, 0, 0,
SCM_DEFINE (scm_variable_bound_p, "variable-bound?", 1, 0, 0,
(SCM var),
"Return #t iff VAR is bound to a value.\n"
"Throws an error if VAR is not a variable object.\n"
"")
#define FUNC_NAME s_scm_variable_bound_p
{

6
libguile/version.c
View file

@ -54,7 +54,8 @@
SCM_DEFINE (scm_major_version, "major-version", 0, 0, 0,
(),
"")
"Return a string containing Guile's major version number.\n"
"E.g., \"1\".")
#define FUNC_NAME s_scm_major_version
{
return scm_makfrom0str (GUILE_MAJOR_VERSION);
@ -65,7 +66,8 @@ SCM_DEFINE (scm_major_version, "major-version", 0, 0, 0,
SCM_DEFINE (scm_minor_version, "minor-version", 0, 0, 0,
(),
"")
"Return a string containing Guile's minor version number.\n"
"E.g., \"3.5\".")
#define FUNC_NAME s_scm_minor_version
{
return scm_makfrom0str (GUILE_MINOR_VERSION);