lily/ly-symbols.cc

   1 /*
   2   ly-symbols.cc --  implement scheme symbols
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9 #include "lily-guile.hh"
  10
  11 /*
  12   storage
  13  */
  14 #undef LY_SYMBOLS_HH
  15 #define extern
  16 #include "ly-symbols.hh"
  17
  18 #undef DECLARE_LY_SYMBOL
  19 #undef LY_SYMBOLS_HH
  20 #define DECLARE_LY_SYMBOL(a) a ## _scm_sym = ly_symbol (#a); scm_permanent_object(a ## _scm_sym)
  21
  22 /*
  23   initialisations.
  24  */
  25 void
  26 init_symbols ()
  27 {
  28 #include "ly-symbols.hh"
  29 }
  30
  31
  32 ADD_SCM_INIT_FUNC(lysyms, init_symbols);