2 graphical-lisp-element.cc -- implement Graphical_lisp_element
4 source file of the GNU LilyPond music typesetter
6 (c) 1998 Jan Nieuwenhuizen <janneke@gnu.org>
9 #include "graphical-lisp-element.hh"
13 #undef IMPLEMENT_STATIC_NAME
14 #define IMPLEMENT_STATIC_NAME(c)\
15 char const* c::static_name ()\
16 { return type_str_.ch_C (); }\
17 size_t c::static_class_size () { return sizeof (c); }
19 IMPLEMENT_IS_TYPE_B (Graphical_lisp_element);
21 Graphical_lisp_element::Graphical_lisp_element (String str)
27 Graphical_lisp_element::access (String str)
30 // scm = gh_cons (gh_str02scm (str.ch_C ()));
31 // scm = gh_cons (gh_symbol2scm (str.ch_C ()));
36 Graphical_lisp_element::call (String str, void* p)
38 // gh_apply (str.ch_C (), SCM_EOL);
39 // gh_apply (str.ch_C (), SCM_EOL);
41 // mm, common lisp only?
42 // String ptr = to_str (" \\%x", p);
43 String ptr = to_str (" '%x", p);
44 str = "(" + str + ptr + ")";
45 gh_eval_str (str.ch_l ());
46 // gh_eval_str ("(add-column 0)");