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

vb.lua (2396B)


  1. -- Copyright 2006-2024 Mitchell. See LICENSE.
  2. -- VisualBasic LPeg lexer.
  3. local lexer = lexer
  4. local P, S = lpeg.P, lpeg.S
  5. local lex = lexer.new(..., {case_insensitive_fold_points = true})
  6. -- Keywords.
  7. lex:add_rule('keyword', lex:tag(lexer.KEYWORD, lex:word_match(lexer.KEYWORD, true)))
  8. -- Types.
  9. lex:add_rule('type', lex:tag(lexer.TYPE, lex:word_match(lexer.TYPE, true)))
  10. -- Comments.
  11. lex:add_rule('comment', lex:tag(lexer.COMMENT, lexer.to_eol("'" + lexer.word_match('rem', true))))
  12. -- Identifiers.
  13. lex:add_rule('identifier', lex:tag(lexer.IDENTIFIER, lexer.word))
  14. -- Strings.
  15. lex:add_rule('string', lex:tag(lexer.STRING, lexer.range('"', true, false)))
  16. -- Numbers.
  17. lex:add_rule('number', lex:tag(lexer.NUMBER, lexer.number * S('LlUuFf')^-2))
  18. -- Operators.
  19. lex:add_rule('operator', lex:tag(lexer.OPERATOR, S('=><+-*^&:.,_()')))
  20. -- Fold points.
  21. lex:add_fold_point(lexer.KEYWORD, 'If', 'End If')
  22. lex:add_fold_point(lexer.KEYWORD, 'Select', 'End Select')
  23. lex:add_fold_point(lexer.KEYWORD, 'For', 'Next')
  24. lex:add_fold_point(lexer.KEYWORD, 'While', 'End While')
  25. lex:add_fold_point(lexer.KEYWORD, 'While', 'Wend')
  26. lex:add_fold_point(lexer.KEYWORD, 'Do', 'Loop')
  27. lex:add_fold_point(lexer.KEYWORD, 'With', 'End With')
  28. lex:add_fold_point(lexer.KEYWORD, 'Sub', 'End Sub')
  29. lex:add_fold_point(lexer.KEYWORD, 'Function', 'End Function')
  30. lex:add_fold_point(lexer.KEYWORD, 'Property', 'End Property')
  31. lex:add_fold_point(lexer.KEYWORD, 'Module', 'End Module')
  32. lex:add_fold_point(lexer.KEYWORD, 'Class', 'End Class')
  33. lex:add_fold_point(lexer.KEYWORD, 'Try', 'End Try')
  34. -- Word lists.
  35. lex:set_word_list(lexer.KEYWORD, {
  36. -- Control.
  37. 'If', 'Then', 'Else', 'ElseIf', 'While', 'Wend', 'For', 'To', 'Each', 'In', 'Step', 'Case',
  38. 'Select', 'Return', 'Continue', 'Do', 'Until', 'Loop', 'Next', 'With', 'Exit',
  39. -- Operators.
  40. 'Mod', 'And', 'Not', 'Or', 'Xor', 'Is',
  41. -- Storage types.
  42. 'Call', 'Class', 'Const', 'Dim', 'ReDim', 'Preserve', 'Function', 'Sub', 'Property', 'End', 'Set',
  43. 'Let', 'Get', 'New', 'Randomize', 'Option', 'Explicit', 'On', 'Error', 'Execute', 'Module',
  44. -- Storage modifiers.
  45. 'Private', 'Public', 'Default',
  46. -- Constants.
  47. 'Empty', 'False', 'Nothing', 'Null', 'True'
  48. })
  49. lex:set_word_list(lexer.TYPE, {
  50. 'Boolean', 'Byte', 'Char', 'Date', 'Decimal', 'Double', 'Long', 'Object', 'Short', 'Single',
  51. 'String'
  52. })
  53. lexer.property['scintillua.comment'] = "'"
  54. return lex