unofficial mirror of bug-guile@gnu.org 
 help / color / mirror / Atom feed
* bug#10974: guile-user@gnu.org
@ 2012-03-08 11:36 Alexei Matveev
  2012-07-02  9:38 ` Ludovic Courtès
  0 siblings, 1 reply; 8+ messages in thread
From: Alexei Matveev @ 2012-03-08 11:36 UTC (permalink / raw)
  To: 10974

Hi, All,

For use from a Fortran program I am collecting API fixes for libguile.so
as wrapper functions for what is provided to C-programs as macros.
I noted that some of the macros are function-macros some are symbol
macros. An example of the latter is

  #define scm_to_int scm_to_int23

This is inconsistent and makes escaping such macros slightly more difficult.
(Honestly I dont know a way yet).

One guile developer on IRC said this is "probably a good thing to fix"
so I report
it here. I dont build Guile 2 myself as the installations I use are quite
dated/conservative.

As a background, Fortran allows you to declare "foreign" functions, for example,
like this:

type, public, bind(c) :: scm_t
   private
   integer(c_intptr_t) :: do_not_ever_use
end type scm_t

interface
  function scm_symbol_p (obj) result (yes) bind (c)
     type(scm_t), intent(in), value :: obj
    type(scm_t) :: yes
  end function scm_symbol_p
  ...
end interface

This makes use of library functions quite handy. But it does not provide a
way to access a C-macro, naturally.

Alexei

#include <libguile.h>

SCM guile_macro_scm_from_int (int i);
int guile_macro_scm_to_int (SCM obj);

int (scm_is_true) (SCM obj);
int (scm_is_symbol) (SCM obj);

int (scm_is_null) (SCM obj);
SCM (scm_eol) (void);

SCM guile_macro_scm_from_int (int i)
{
  return scm_from_int(i);
}

int guile_macro_scm_to_int (SCM obj)
{
  return scm_to_int(obj);
}

int (scm_is_true) (SCM obj)
{
  return scm_is_true(obj);
}

int (scm_is_symbol) (SCM obj)
{
  return scm_is_symbol(obj);
}

int (scm_is_null) (SCM obj)
{
  return scm_is_null(obj);
}

SCM (scm_eol) ()
{
  return SCM_EOL;
}





^ permalink raw reply	[flat|nested] 8+ messages in thread

end of thread, other threads:[~2012-07-03  8:09 UTC | newest]

Thread overview: 8+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2012-03-08 11:36 bug#10974: guile-user@gnu.org Alexei Matveev
2012-07-02  9:38 ` Ludovic Courtès
2012-07-02 10:15   ` Alexei Matveev
     [not found]   ` <CACMrLAeaLn4Bw13TitmeAO8sympbsvFRkM+skFrMTvSe0iYf2w@mail.gmail.com>
2012-07-02 19:17     ` Ludovic Courtès
2012-07-02 21:45   ` Andy Wingo
2012-07-02 22:35     ` Ludovic Courtès
2012-07-02 23:17       ` Andy Wingo
2012-07-03  8:09         ` Ludovic Courtès

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).