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

apl.lua (1539B)


  1. -- Copyright 2015-2024 David B. Lamkins <david@lamkins.net>. See LICENSE.
  2. -- APL LPeg lexer.
  3. local lexer = require('lexer')
  4. local token, word_match = lexer.token, lexer.word_match
  5. local P, S = lpeg.P, lpeg.S
  6. local lex = lexer.new('apl')
  7. -- Whitespace.
  8. lex:add_rule('whitespace', token(lexer.WHITESPACE, lexer.space^1))
  9. -- Comments.
  10. lex:add_rule('comment', token(lexer.COMMENT, lexer.to_eol(P('⍝') + '#')))
  11. -- Strings.
  12. local sq_str = lexer.range("'", false, false)
  13. local dq_str = lexer.range('"')
  14. lex:add_rule('string', token(lexer.STRING, sq_str + dq_str))
  15. -- Numbers.
  16. local dig = lexer.digit
  17. local rad = P('.')
  18. local exp = S('eE')
  19. local img = S('jJ')
  20. local sgn = P('¯')^-1
  21. local float = sgn * (dig^0 * rad * dig^1 + dig^1 * rad * dig^0 + dig^1) * (exp * sgn * dig^1)^-1
  22. lex:add_rule('number', token(lexer.NUMBER, float * img * float + float))
  23. -- Keywords.
  24. lex:add_rule('keyword', token(lexer.KEYWORD,
  25. P('⍞') + 'χ' + '⍺' + '⍶' + '⍵' + '⍹' + '⎕' * lexer.alpha^0))
  26. -- Names.
  27. local n1l = lexer.alpha
  28. local n1b = P('_') + '∆' + '⍙'
  29. local n2l = n1l + lexer.digit
  30. local n2b = n1b + '¯'
  31. local n1 = n1l + n1b
  32. local n2 = n2l + n2b
  33. local name = n1 * n2^0
  34. -- Labels.
  35. lex:add_rule('label', token(lexer.LABEL, name * ':'))
  36. -- Variables.
  37. lex:add_rule('variable', token(lexer.VARIABLE, name))
  38. -- Special.
  39. lex:add_rule('special', token(lexer.TYPE, S('{}[]();') + '←' + '→' + '◊'))
  40. -- Nabla.
  41. lex:add_rule('nabla', token(lexer.PREPROCESSOR, P('∇') + '⍫'))
  42. lexer.property['scintillua.comment'] = '#'
  43. return lex