]> git.donarmstrong.com Git - lilypond.git/blob - lily/lily-lexer-scheme.cc
PO: fetch eo form FTP
[lilypond.git] / lily / lily-lexer-scheme.cc
1 /*
2   This file is part of LilyPond, the GNU music typesetter.
3
4   Copyright (C) 2006--2015 Han-Wen Nienhuys <hanwen@lilypond.org>
5
6
7   LilyPond is free software: you can redistribute it and/or modify
8   it under the terms of the GNU General Public License as published by
9   the Free Software Foundation, either version 3 of the License, or
10   (at your option) any later version.
11
12   LilyPond is distributed in the hope that it will be useful,
13   but WITHOUT ANY WARRANTY; without even the implied warranty of
14   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15   GNU General Public License for more details.
16
17   You should have received a copy of the GNU General Public License
18   along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
19 */
20
21 #include "lily-lexer.hh"
22
23 LY_DEFINE (ly_lexer_keywords, "ly:lexer-keywords",
24            1, 0, 0, (SCM lexer),
25            "Return a list of @code{(KEY . CODE)} pairs, signifying the"
26            " LilyPond reserved words list.")
27 {
28   LY_ASSERT_SMOB (Lily_lexer, lexer, 1);
29
30   Lily_lexer *lex = unsmob<Lily_lexer> (lexer);
31   return lex->keyword_list ();
32 }