rf-web/vendor/bundle/gems/rouge-3.12.0/lib/rouge/lexers/lustre.rb

80 lines
2.1 KiB
Ruby
Raw Normal View History

2019-10-21 08:18:17 +00:00
# -*- coding: utf-8 -*- #
# frozen_string_literal: true
module Rouge
module Lexers
class Lustre < RegexLexer
title "Lustre"
desc 'The Lustre programming language (Verimag)'
tag 'lustre'
filenames '*.lus'
mimetypes 'text/x-lustre'
def self.keywords
@keywords ||= Set.new %w(
extern unsafe assert const current enum function let node operator
returns step struct tel type var model package needs provides uses is
body end include merge
)
end
def self.word_operators
@word_operators ||= Set.new %w(
div and xor mod or not nor if then else fby pre when with
)
end
def self.primitives
@primitives ||= Set.new %w(int real bool)
end
operator = %r([,!$%&*+./:<=>?@^|~#-]+)
id = /[a-z_][\w']*/i
state :root do
rule %r/\s+/m, Text
rule %r/false|true/, Keyword::Constant
rule %r(\-\-.*), Comment::Single
rule %r(/\*.*?\*/)m, Comment::Multiline
rule %r(\(\*.*?\*\))m, Comment::Multiline
rule id do |m|
match = m[0]
if self.class.keywords.include? match
token Keyword
elsif self.class.word_operators.include? match
token Operator::Word
elsif self.class.primitives.include? match
token Keyword::Type
else
token Name
end
end
rule %r/[(){}\[\];]+/, Punctuation
rule operator, Operator
rule %r/-?\d[\d_]*(.[\d_]*)?(e[+-]?\d[\d_]*)/i, Num::Float
rule %r/\d[\d_]*/, Num::Integer
rule %r/'(?:(\\[\\"'ntbr ])|(\\[0-9]{3})|(\\x\h{2}))'/, Str::Char
rule %r/'[.]'/, Str::Char
rule %r/"/, Str::Double, :string
rule %r/[~?]#{id}/, Name::Variable
end
state :string do
rule %r/[^\\"]+/, Str::Double
mixin :escape_sequence
rule %r/\\\n/, Str::Double
rule %r/"/, Str::Double, :pop!
end
state :escape_sequence do
rule %r/\\[\\"'ntbr]/, Str::Escape
rule %r/\\\d{3}/, Str::Escape
rule %r/\\x\h{2}/, Str::Escape
end
end
end
end