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
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
# -*- coding: utf-8 -*- #
# frozen_string_literal: true
module Rouge
module Lexers
class SuperCollider < RegexLexer
tag 'supercollider'
filenames '*.sc', '*.scd'
title "SuperCollider"
desc 'A cross-platform interpreted programming language for sound synthesis, algorithmic composition, and realtime performance'
def self.keywords
@keywords ||= Set.new %w(
var arg classvar const super this
)
end
# these aren't technically keywords, but we treat
# them as such because it makes things clearer 99%
# of the time
def self.reserved
@reserved ||= Set.new %w(
case do for forBy loop if while new newCopyArgs
)
end
def self.constants
@constants ||= Set.new %w(
true false nil inf thisThread
thisMethod thisFunction thisProcess
thisFunctionDef currentEnvironment
topEnvironment
)
end
state :whitespace do
rule %r/\s+/m, Text
end
state :comments do
rule %r(//.*?$), Comment::Single
rule %r(/[*]) do
token Comment::Multiline
push :nested_comment
end
end
state :nested_comment do
rule %r(/[*]), Comment::Multiline, :nested_comment
rule %r([*]/), Comment::Multiline, :pop!
rule %r([^*/]+)m, Comment::Multiline
rule %r/./, Comment::Multiline
end
state :root do
mixin :whitespace
mixin :comments
rule %r/[\-+]?0[xX]\h+/, Num::Hex
# radix float
rule %r/[\-+]?\d+r[0-9a-zA-Z]*(\.[0-9A-Z]*)?/, Num::Float
# normal float
rule %r/[\-+]?((\d+(\.\d+)?([eE][\-+]?\d+)?(pi)?)|pi)/, Num::Float
rule %r/[\-+]?\d+/, Num::Integer
rule %r/\$(\\.|.)/, Str::Char
rule %r/"([^\\"]|\\.)*"/, Str
# symbols (single-quote notation)
rule %r/'([^\\']|\\.)*'/, Str::Other
# symbols (backslash notation)
rule %r/\\\w+/, Str::Other
# symbol arg
rule %r/[A-Za-z_]\w*:/, Name::Label
rule %r/[A-Z]\w*/, Name::Class
# primitive
rule %r/_\w+/, Name::Function
# main identifiers section
rule %r/[a-z]\w*/ do |m|
if self.class.keywords.include? m[0]
token Keyword
elsif self.class.constants.include? m[0]
token Keyword::Constant
elsif self.class.reserved.include? m[0]
token Keyword::Reserved
else
token Name
end
end
# environment variables
rule %r/~\w+/, Name::Variable::Global
rule %r/[\{\}()\[\];,\.]/, Punctuation
# operators. treat # (array unpack) as an operator
rule %r/[\+\-\*\/&\|%<>=]+/, Operator
rule %r/[\^:#]/, Operator
# treat curry argument as a special operator
rule %r/\b_\b/, Name::Builtin
end
end
end
end
|
