284 |
|
|
285 |
SCM_DEFINE (scm_dynamic_call, "dynamic-call", 2, 0, 0, |
SCM_DEFINE (scm_dynamic_call, "dynamic-call", 2, 0, 0, |
286 |
(SCM func, SCM dobj), |
(SCM func, SCM dobj), |
287 |
"Call the C function indicated by @var{func} and @var{dobj}.\n" |
"Call a C function in a dynamic object. Two styles of\n" |
288 |
"The function is passed no arguments and its return value is\n" |
"invocation are supported:\n\n" |
289 |
"ignored. When @var{function} is something returned by\n" |
"@itemize @bullet\n" |
290 |
"@code{dynamic-func}, call that function and ignore @var{dobj}.\n" |
"@item @var{func} can be a function handle returned by\n" |
291 |
"When @var{func} is a string , look it up in @var{dynobj}; this\n" |
"@code{dynamic-func}. In this case @var{dobj} is\n" |
292 |
"is equivalent to\n" |
"ignored\n" |
293 |
"@smallexample\n" |
"@item @var{func} can be a string with the name of the\n" |
294 |
"(dynamic-call (dynamic-func @var{func} @var{dobj} #f))\n" |
"function to call, with @var{dobj} the handle of the\n" |
295 |
"@end smallexample\n\n") |
"dynamic object in which to find the function.\n" |
296 |
|
"This is equivalent to\n" |
297 |
|
"@smallexample\n\n" |
298 |
|
"(dynamic-call (dynamic-func @var{func} @var{dobj}) #f)\n" |
299 |
|
"@end smallexample\n" |
300 |
|
"@end itemize\n\n" |
301 |
|
"In either case, the function is passed no arguments\n" |
302 |
|
"and its return value is ignored.") |
303 |
#define FUNC_NAME s_scm_dynamic_call |
#define FUNC_NAME s_scm_dynamic_call |
304 |
{ |
{ |
305 |
void (*fptr) (); |
void (*fptr) (); |