File: guile-support.c

package info (click to toggle)
gnumeric 1.4.3-4
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 71,576 kB
  • ctags: 28,555
  • sloc: ansic: 282,333; xml: 45,788; sh: 8,479; makefile: 3,119; yacc: 1,129; lisp: 200; perl: 173; python: 86
file content (29 lines) | stat: -rw-r--r-- 494 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
/* -*- mode: c; c-basic-offset: 8 -*- */

/*
  Authors: Ariel Rios <ariel@arcavia.com>
*/

#include <gnumeric-config.h>
#include <gnumeric.h>
#include <libguile.h>
#include <gtk/gtk.h>
#include <guile/gh.h>
#include <position.h>
#include "guile-support.h"
#include "smob-value.h"


SCM
value_to_scm (GnmValue const *val, GnmCellRef cell_ref)
{
	GnmValue *v = (GnmValue *) val;
	return make_new_smob (v);
}

GnmValue*
scm_to_value (SCM value_smob)
{
	return get_value_from_smob (value_smob);
}