mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

* dynl.c: docstring editing.

Browse source
This commit is contained in:
Gary Houston 2002-07-10 22:20:16 +00:00
parent f87c105ae3
commit ee95d597c7
2 changed files with 28 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/ChangeLog
View file

@ -1,3 +1,7 @@
2002-07-10 Gary Houston <ghouston@arglist.com>
* dynl.c: docstring editing.
2002-07-09 Gary Houston <ghouston@arglist.com> 2002-07-09 Gary Houston <ghouston@arglist.com>
* dynl.c (scm_dynamic_call): docstring editing. * dynl.c (scm_dynamic_call): docstring editing.

42
libguile/dynl.c
View file

@ -201,10 +201,15 @@ dynl_obj_print (SCM exp, SCM port, scm_print_state *pstate)
SCM_DEFINE (scm_dynamic_link, "dynamic-link", 1, 0, 0, SCM_DEFINE (scm_dynamic_link, "dynamic-link", 1, 0, 0,
(SCM filename), (SCM filename),
"Open the dynamic library called @var{filename}. A library\n" "Find the shared object (shared library) denoted by\n"
"handle representing the opened library is returned; this handle\n" "@var{filename} and link it into the running Guile\n"
"should be used as the @var{dobj} argument to the following\n" "application. The returned\n"
"functions.") "scheme object is a ``handle'' for the library which can\n"
"be passed to @code{dynamic-func}, @code{dynamic-call} etc.\n\n"
"Searching for object files is system dependent. Normally,\n"
"if @var{filename} does have an explicit directory it will\n"
"be searched for in locations\n"
"such as @file{/usr/lib} and @file{/usr/local/lib}.")
#define FUNC_NAME s_scm_dynamic_link #define FUNC_NAME s_scm_dynamic_link
{ {
void *handle; void *handle;
@ -218,8 +223,8 @@ SCM_DEFINE (scm_dynamic_link, "dynamic-link", 1, 0, 0,
SCM_DEFINE (scm_dynamic_object_p, "dynamic-object?", 1, 0, 0, SCM_DEFINE (scm_dynamic_object_p, "dynamic-object?", 1, 0, 0,
(SCM obj), (SCM obj),
"Return @code{#t} if @var{obj} is a dynamic library handle, or @code{#f}\n" "Return @code{#t} if @var{obj} is a dynamic object handle,\n"
"otherwise.") "or @code{#f} otherwise.")
#define FUNC_NAME s_scm_dynamic_object_p #define FUNC_NAME s_scm_dynamic_object_p
{ {
return SCM_BOOL (SCM_TYP16_PREDICATE (scm_tc16_dynamic_obj, obj)); return SCM_BOOL (SCM_TYP16_PREDICATE (scm_tc16_dynamic_obj, obj));
@ -229,10 +234,11 @@ SCM_DEFINE (scm_dynamic_object_p, "dynamic-object?", 1, 0, 0,
SCM_DEFINE (scm_dynamic_unlink, "dynamic-unlink", 1, 0, 0, SCM_DEFINE (scm_dynamic_unlink, "dynamic-unlink", 1, 0, 0,
(SCM dobj), (SCM dobj),
"Unlink the indicated object file from the application. The\n" "Unlink a dynamic object from the application, if possible. The\n"
"argument @var{dobj} must have been obtained by a call to\n" "object must have been linked by @code{dynamic-link}, with \n"
"@code{dynamic-link}. After @code{dynamic-unlink} has been\n" "@var{dobj} the corresponding handle. After this procedure\n"
"called on @var{dobj}, its content is no longer accessible.") "is called, the handle can no longer be used to access the\n"
"object.")
#define FUNC_NAME s_scm_dynamic_unlink #define FUNC_NAME s_scm_dynamic_unlink
{ {
/*fixme* GC-problem */ /*fixme* GC-problem */
@ -250,14 +256,14 @@ SCM_DEFINE (scm_dynamic_unlink, "dynamic-unlink", 1, 0, 0,
SCM_DEFINE (scm_dynamic_func, "dynamic-func", 2, 0, 0, SCM_DEFINE (scm_dynamic_func, "dynamic-func", 2, 0, 0,
(SCM name, SCM dobj), (SCM name, SCM dobj),
"Search the dynamic object @var{dobj} for the C function\n" "Return a ``handle'' for the function @var{name} in the\n"
"indicated by the string @var{name} and return some Scheme\n" "shared object referred to by @var{dobj}. The handle\n"
"handle that can later be used with @code{dynamic-call} to\n" "can be passed to @code{dynamic-call} to actually\n"
"actually call the function.\n\n" "call the function.\n\n"
"Regardless whether your C compiler prepends an underscore @samp{_} to\n" "Regardless whether your C compiler prepends an underscore\n"
"the global names in a program, you should @strong{not} include this\n" "@samp{_} to the global names in a program, you should\n"
"underscore in @var{function}. Guile knows whether the underscore is\n" "@strong{not} include this underscore in @var{name}\n"
"needed or not and will add it when necessary.") "since it will be added automatically when necessary.")
#define FUNC_NAME s_scm_dynamic_func #define FUNC_NAME s_scm_dynamic_func
{ {
/* The returned handle is formed by casting the address of the function to a /* The returned handle is formed by casting the address of the function to a