lily/graphical-lisp-element.cc

   1 /*
   2   graphical-lisp-element.cc -- implement Graphical_lisp_element
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1998 Jan Nieuwenhuizen <janneke@gnu.org>
   7 */
   8
   9 #include "graphical-lisp-element.hh"
  10 #include "string.hh"
  11 #include "debug.hh"
  12
  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); }
  18
  19 IMPLEMENT_IS_TYPE_B (Graphical_lisp_element);
  20
  21 Graphical_lisp_element::Graphical_lisp_element (String str)
  22 {
  23   type_str_ = str;
  24 }
  25
  26 void*
  27 Graphical_lisp_element::access (String str)
  28 {
  29   SCM scm;
  30 //  scm = gh_cons (gh_str02scm (str.ch_C ()));
  31 //  scm = gh_cons (gh_symbol2scm (str.ch_C ()));
  32   return 0;
  33 }
  34
  35 void
  36 Graphical_lisp_element::call (String str, void* p)
  37 {
  38 //  gh_apply (str.ch_C (), SCM_EOL);
  39 //  gh_apply (str.ch_C (), SCM_EOL);
  40
  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)");
  47 }