1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
# -*- coding: utf-8 -*- #
# frozen_string_literal: true
module Rouge
module Lexers
class Matlab < RegexLexer
title "MATLAB"
desc "Matlab"
tag 'matlab'
aliases 'm'
filenames '*.m'
mimetypes 'text/x-matlab', 'application/x-matlab'
def self.keywords
@keywords = Set.new %w(
arguments break case catch classdef continue else elseif end for
function global if import methods otherwise parfor persistent
properties return spmd switch try while
)
end
# self-modifying method that loads the builtins file
def self.builtins
Kernel::load File.join(Lexers::BASE_DIR, 'matlab/keywords.rb')
builtins
end
state :root do
rule %r/\s+/m, Text # Whitespace
rule %r([{]%.*?%[}])m, Comment::Multiline
rule %r/%.*$/, Comment::Single
rule %r/([.][.][.])(.*?)$/ do
groups(Keyword, Comment)
end
rule %r/^(!)(.*?)(?=%|$)/ do |m|
token Keyword, m[1]
delegate Shell, m[2]
end
rule %r/[a-zA-Z][_a-zA-Z0-9]*/m do |m|
match = m[0]
if self.class.keywords.include? match
token Keyword
elsif self.class.builtins.include? match
token Name::Builtin
else
token Name
end
end
rule %r{[(){};:,\/\\\]\[]}, Punctuation
rule %r/~=|==|<<|>>|[-~+\/*%=<>&^|.@]/, Operator
rule %r/(\d+\.\d*|\d*\.\d+)(e[+-]?[0-9]+)?/i, Num::Float
rule %r/\d+e[+-]?[0-9]+/i, Num::Float
rule %r/\d+L/, Num::Integer::Long
rule %r/\d+/, Num::Integer
rule %r/'(?=(.*'))/, Str::Single, :chararray
rule %r/"(?=(.*"))/, Str::Double, :string
rule %r/'/, Operator
end
state :chararray do
rule %r/[^']+/, Str::Single
rule %r/''/, Str::Escape
rule %r/'/, Str::Single, :pop!
end
state :string do
rule %r/[^"]+/, Str::Double
rule %r/""/, Str::Escape
rule %r/"/, Str::Double, :pop!
end
end
end
end
|
