From 039042f2e323c1f982f1de61b702c88fb33d6ccb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Marc=20Andr=C3=A9=20Tanner?= <mat@brain-dump.org>
Date: Fri, 16 Oct 2015 12:36:47 +0200
Subject: Import LPeg based lexers from Scintillua 3.6.1-1

These are Copyright (c) 2007-2015 Mitchell and released under the
MIT license.
---
 lexers/xtend.lua | 112 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 112 insertions(+)
 create mode 100644 lexers/xtend.lua

(limited to 'lexers/xtend.lua')

diff --git a/lexers/xtend.lua b/lexers/xtend.lua
new file mode 100644
index 0000000..500dc33
--- /dev/null
+++ b/lexers/xtend.lua
@@ -0,0 +1,112 @@
+-- Copyright (c) 2014-2015 Piotr Orzechowski [drzewo.org]. See LICENSE.
+-- Xtend LPeg lexer.
+
+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 = 'xtend'}
+
+-- Whitespace.
+local ws = token(l.WHITESPACE, l.space^1)
+
+-- Comments.
+local line_comment = '//' * l.nonnewline_esc^0
+local block_comment = '/*' * (l.any - '*/')^0 * P('*/')^-1
+local comment = token(l.COMMENT, line_comment + block_comment)
+
+-- Strings.
+local sq_str = l.delimited_range("'", true)
+local dq_str = l.delimited_range('"', true)
+local string = token(l.STRING, sq_str + dq_str)
+
+-- Templates.
+local templ_str = "'''" * (l.any - P("'''"))^0 * P("'''")^-1
+local template = token('template', templ_str, true)
+
+-- Numbers.
+local small_suff = S('lL')
+local med_suff = P(S('bB') * S('iI'))
+local large_suff = S('dD') + S('fF') + P(S('bB') * S('dD'))
+local exp = S('eE') * l.digit^1
+
+local dec_inf = ('_' * l.digit^1)^0
+local hex_inf = ('_' * l.xdigit^1)^0
+local float_pref = l.digit^1 * '.' * l.digit^1
+local float_suff = exp^-1 * med_suff^-1 * large_suff^-1
+
+local dec = l.digit * dec_inf * (small_suff^-1 + float_suff)
+local hex = l.hex_num * hex_inf * P('#' * (small_suff + med_suff))^-1
+local float = float_pref * dec_inf * float_suff
+
+local number = token(l.NUMBER, float + hex + dec)
+
+-- Keywords.
+local keyword = token(l.KEYWORD, word_match{
+  -- General.
+  'abstract', 'annotation', 'as', 'case', 'catch', 'class', 'create', 'def',
+  'default', 'dispatch', 'do', 'else', 'enum', 'extends', 'extension', 'final',
+  'finally', 'for', 'if', 'implements', 'import', 'interface', 'instanceof',
+  'it', 'new', 'override', 'package', 'private', 'protected', 'public',
+  'return', 'self', 'static', 'super', 'switch', 'synchronized', 'this',
+  'throw', 'throws', 'try', 'typeof', 'val', 'var', 'while',
+  -- Templates.
+  -- 'AFTER', 'BEFORE', 'ENDFOR', 'ENDIF', 'FOR', 'IF', 'SEPARATOR',
+  -- Literals.
+  'true', 'false', 'null'
+})
+
+-- Types.
+local type = token(l.TYPE, word_match{
+  'boolean', 'byte', 'char', 'double', 'float', 'int', 'long', 'short', 'void',
+  'Boolean', 'Byte', 'Character', 'Double', 'Float', 'Integer', 'Long', 'Short',
+  'String'
+})
+
+-- Identifiers.
+local identifier = token(l.IDENTIFIER, l.word)
+
+-- Operators.
+local operator = token(l.OPERATOR, S('+-/*%<>!=^&|?~:;.()[]{}#'))
+
+-- Annotations.
+local annotation = token('annotation', '@' * l.word)
+
+-- Functions.
+local func = token(l.FUNCTION, l.word) * #P('(')
+
+-- Classes.
+local class = token(l.KEYWORD, P('class')) * ws^1 * token(l.CLASS, l.word)
+
+-- Rules.
+M._rules = {
+  {'whitespace', ws},
+  {'class', class},
+  {'keyword', keyword},
+  {'type', type},
+  {'function', func},
+  {'identifier', identifier},
+  {'template', template},
+  {'string', string},
+  {'comment', comment},
+  {'number', number},
+  {'annotation', annotation},
+  {'operator', operator},
+  {'error', token(l.ERROR, l.any)},
+}
+
+-- Token styles.
+M._tokenstyles = {
+  annotation = l.STYLE_PREPROCESSOR,
+  template = l.STYLE_EMBEDDED
+}
+
+-- Folding.
+M._foldsymbols = {
+  _patterns = {'[{}]', '/%*', '%*/', '//', 'import'},
+  [l.OPERATOR] = {['{'] = 1, ['}'] = -1},
+  [l.COMMENT] = {['/*'] = 1, ['*/'] = -1, ['//'] = l.fold_line_comments('//')},
+  [l.KEYWORD] = {['import'] = l.fold_line_comments('import')}
+}
+
+return M
-- 
cgit v1.2.3