Re: function registered with scm_c_define_gsubr: how can i handle an optional parameter?

[Alex Vong <alexvong1995@gmail.com>]

[-- Attachment #1.1: Type: text/plain, Size: 654 bytes --]

Hello,

From the Guile manual ``6.1 Overview of the Guile API'',

>    For some Scheme functions, some last arguments are optional; the
> corresponding C function must always be invoked with all optional
> arguments specified.  To get the effect as if an argument has not been
> specified, pass ‘SCM_UNDEFINED’ as its value.  You can not do this for
> an argument in the middle; when one argument is ‘SCM_UNDEFINED’ all the
> ones following it must be ‘SCM_UNDEFINED’ as well.

Therefore, we can check if opt_arg2 has the value SCM_UNDEFINED, to
decide if we have received an optional argument. The code is in the
attachment:


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1.2: myfun.c --]
[-- Type: text/x-csrc, Size: 436 bytes --]

#include <libguile.h>

static SCM myfun(SCM arg1,SCM opt_arg2)
{
  if (opt_arg2 == SCM_UNDEFINED)
    scm_display(scm_from_utf8_string("Optional argument NOT received!\n"),
                scm_current_output_port());
  else
    scm_display(scm_from_utf8_string("Optional argument received!\n"),
                scm_current_output_port());
  return SCM_BOOL_T;
}

void
init_myfun(void)
{
  scm_c_define_gsubr("myfun", 1, 1, 0, myfun);
}

[-- Attachment #1.3: Type: text/plain, Size: 517 bytes --]


Cheers,
Alex

Pierre LINDENBAUM <Pierre.Lindenbaum@univ-nantes.fr> writes:

> Hi all,
>
> (cross posted on SO: https://stackoverflow.com/questions/47797521 )
>
>
> I've defined a guile C function:
>
>     static SCM myfun(SCM arg1,SCM opt_arg2)
>       {
>       return SCM_BOOL_T;
>       }
>
> registered with
>
>     scm_c_define_gsubr ("myfun", 1, 1, 0, myfun);
>
> there is one optional argument. How can I detect if opt_arg2 has been
> used ?
>
> in
>
>     (myfun 1)
>
> or
>
>     (myfun 1 2)
>
>
> Thanks !

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 832 bytes --]