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

99 lines
2.9 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 VHDL < RegexLexer
title "VHDL 2008"
desc "Very High Speed Integrated Circuit Hardware Description Language"
tag 'vhdl'
filenames '*.vhd', '*.vhdl', '*.vho'
mimetypes 'text/x-vhdl'
def self.keywords
@keywords ||= Set.new %w(
access after alias all architecture array assert assume assume_guarantee attribute
begin block body buffer bus case component configuration constant context cover
default disconnect downto else elsif end entity exit fairness file for force function
generate generic group guarded if impure in inertial inout is label library linkage
literal loop map new next null of on open others out package parameter port postponed
procedure process property protected pure range record register reject release report
return select sequence severity shared signal strong subtype then to transport type
unaffected units until use variable vmode vprop vunit wait when while with
)
end
def self.keywords_type
@keywords_type ||= Set.new %w(
bit bit_vector boolean boolean_vector character integer integer_vector natural positive
real real_vector severity_level signed std_logic std_logic_vector std_ulogic
std_ulogic_vector string unsigned time time_vector
)
end
def self.operator_words
@operator_words ||= Set.new %w(
abs and mod nand nor not or rem rol ror sla sll sra srl xnor xor
)
end
id = /[a-zA-Z][a-zA-Z0-9_]*/
state :whitespace do
rule %r/\s+/, Text
rule %r/\n/, Text
# Find Comments (VHDL doesn't support multiline comments)
rule %r/--.*$/, Comment::Single
end
state :statements do
# Find Numbers
rule %r/-?\d+/i, Num::Integer
rule %r/-?\d+[.]\d+/i, Num::Float
# Find Strings
rule %r/[box]?"[^"]*"/i, Str::Single
rule %r/'[^']?'/i, Str::Char
# Find Attributes
rule %r/'#{id}/i, Name::Attribute
# Punctuations
rule %r/[(),:;]/, Punctuation
# Boolean and NULL
rule %r/(?:true|false|null)\b/i, Name::Builtin
rule id do |m|
match = m[0].downcase #convert to lower case
if self.class.keywords.include? match
token Keyword
elsif self.class.keywords_type.include? match
token Keyword::Type
elsif self.class.operator_words.include? match
token Operator::Word
else
token Name
end
end
rule(
%r(=>|[*][*]|:=|\/=|>=|<=|<>|\?\?|\?=|\?\/=|\?>|\?<|\?>=|\?<=|<<|>>|[#&'*+-.\/:<=>\?@^]),
Operator
)
end
state :root do
mixin :whitespace
mixin :statements
end
end
end
end