lily/lily-lexer-scheme.cc

   1 /*
   2   lily-lexer-scheme.cc -- implement Lily_lexer bindings.
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2006--2007 Han-Wen Nienhuys <hanwen@lilypond.org>
   7
   8 */
   9
  10 #include "lily-lexer.hh"
  11
  12 LY_DEFINE (ly_lexer_keywords, "ly:lexer-keywords",
  13           1, 0, 0, (SCM lexer),
  14           "Return a list of @code{(KEY . CODE)} pairs, signifying the"
  15           " LilyPond reserved words list.")
  16 {
  17   LY_ASSERT_SMOB (Lily_lexer, lexer, 1);
  18
  19   Lily_lexer * lex = Lily_lexer::unsmob (lexer);
  20   return lex->keyword_list ();
  21 }