C and Guile

c_call_guile.c

#include <stdio.h>
#include <libguile.h>

int main(int argc, char** argv) {
  SCM func;

  scm_init_guile();
  scm_c_primitive_load("c_call_guile.scm");
  func = scm_variable_ref(scm_c_lookup("show-me"));
  scm_call_0(func);

  return 0;
}

c_call_guile.scm

(define (show-me)
  (display "script called")
  (newline))

guile_call_c.c

#include <stdio.h>
#include <libguile.h>

SCM c_square(SCM arg) {
  int c_arg = scm_num2int(arg, 0, NULL);
  return scm_from_int(c_arg* c_arg);
}

int main(int argc, char** argv) {
  SCM func;
  
  scm_init_guile();
  scm_c_define_gsubr("c_square", 1, 0, 0, c_square);
  scm_c_primitive_load("guile_call_c.scm");
  func = scm_variable_ref(scm_c_lookup("main-script"));
  scm_call_0(func);

  return 0;
}
  

guile_call_c.scm

(define (main-script)
  (display (c_square 8))
  (newline))

居然这么简单？！