-- Copyright 2006-2013 Robert Gieseke. See LICENSE. -- Lilypond LPeg lexer. -- TODO Embed Scheme; Notes?, Numbers? local l = require('lexer') local token, word_match = l.token, l.word_match local P, R, S = lpeg.P, lpeg.R, lpeg.S local M = {_NAME = 'lilypond'} -- Whitespace. local ws = token(l.WHITESPACE, l.space^1) -- Comments. local line_comment = '%' * l.nonnewline^0 -- TODO: block comment. local comment = token(l.COMMENT, line_comment) -- Strings. local string = token(l.STRING, l.delimited_range('"', false, true)) -- Keywords, commands. local keyword = token(l.KEYWORD, '\\' * l.word) -- Identifiers. local identifier = token(l.IDENTIFIER, l.word) -- Operators. local operator = token(l.OPERATOR, S("{}'~<>|")) M._rules = { {'whitespace', ws}, {'comment', comment}, {'string', string}, {'keyword', keyword}, {'operator', operator}, {'identifier', identifier}, } return M