logo

oasis-root

Compiled tree of Oasis Linux based on own branch at <https://hacktivis.me/git/oasis/> git clone https://anongit.hacktivis.me/git/oasis-root.git

haskell.lua (1470B)

    

  1. -- Copyright 2006-2024 Mitchell. See LICENSE.
  2. -- Haskell LPeg lexer.
  3. -- Modified by Alex Suraci.
  5. local lexer = require('lexer')
  6. local token, word_match = lexer.token, lexer.word_match
  7. local P, S = lpeg.P, lpeg.S
  9. local lex = lexer.new('haskell', {fold_by_indentation = true})
  11. -- Whitespace.
  12. lex:add_rule('whitespace', token(lexer.WHITESPACE, lexer.space^1))
  14. -- Keywords.
  15. lex:add_rule('keyword', token(lexer.KEYWORD, word_match{
  16.   'case', 'class', 'data', 'default', 'deriving', 'do', 'else', 'if', 'import', 'in', 'infix',
  17.   'infixl', 'infixr', 'instance', 'let', 'module', 'newtype', 'of', 'then', 'type', 'where', '_',
  18.   'as', 'qualified', 'hiding'
  19. }))
  21. -- Types & type constructors.
  22. local word = (lexer.alnum + S("._'#"))^0
  23. local op = lexer.punct - S('()[]{}')
  24. lex:add_rule('type', token(lexer.TYPE, (lexer.upper * word) + (':' * (op^1 - ':'))))
  26. -- Identifiers.
  27. lex:add_rule('identifier', token(lexer.IDENTIFIER, (lexer.alpha + '_') * word))
  29. -- Strings.
  30. local sq_str = lexer.range("'", true)
  31. local dq_str = lexer.range('"')
  32. lex:add_rule('string', token(lexer.STRING, sq_str + dq_str))
  34. -- Comments.
  35. local line_comment = lexer.to_eol('--', true)
  36. local block_comment = lexer.range('{-', '-}')
  37. lex:add_rule('comment', token(lexer.COMMENT, line_comment + block_comment))
  39. -- Numbers.
  40. lex:add_rule('number', token(lexer.NUMBER, lexer.number))
  42. -- Operators.
  43. lex:add_rule('operator', token(lexer.OPERATOR, op))
  45. lexer.property['scintillua.comment'] = '--'
  47. return lex