plugins/guile/guile-support.c

   1 /* -*- mode: c; c-basic-offset: 8 -*- */
   2
   3 /*
   4   Authors: Ariel Rios <ariel@arcavia.com>
   5 */
   6
   7 #include <gnumeric-config.h>
   8 #include <gnumeric.h>
   9 #include <libguile.h>
  10 #include <gtk/gtk.h>
  11 #include <guile/gh.h>
  12 #include <position.h>
  13 #include "guile-support.h"
  14 #include "smob-value.h"
  15
  16
  17 SCM
  18 value_to_scm (GnmValue const *val, GnmCellRef cell_ref)
  19 {
  20         GnmValue *v = (GnmValue *) val;
  21         return make_new_smob (v);
  22 }
  23
  24 GnmValue*
  25 scm_to_value (SCM value_smob)
  26 {
  27         return get_value_from_smob (value_smob);
  28 }
  29