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

216 lines
7.0 KiB
Ruby
Raw Normal View History

2019-10-21 08:18:17 +00:00
# -*- coding: utf-8 -*- #
# frozen_string_literal: true
require 'yaml'
module Rouge
module Lexers
class Lasso < TemplateLexer
title "Lasso"
desc "The Lasso programming language (lassosoft.com)"
tag 'lasso'
aliases 'lassoscript'
filenames '*.lasso', '*.lasso[89]'
mimetypes 'text/x-lasso', 'text/html+lasso', 'application/x-httpd-lasso'
option :start_inline, 'Whether to start inline instead of requiring <?lasso or ['
def self.detect?(text)
return true if text.shebang?('lasso9')
return true if text =~ /\A.*?<\?(lasso(script)?|=)/
end
def initialize(*)
super
@start_inline = bool_option(:start_inline)
end
def start_inline?
@start_inline
end
start do
push :lasso if start_inline?
end
class << self
attr_reader :keywords
end
# Load Lasso keywords from separate YML file
@keywords = ::YAML.load_file(File.join(__dir__, 'lasso/keywords.yml')).tap do |h|
h.each do |k,v|
h[k] = Set.new v
end
end
id = /[a-z_][\w.]*/i
state :root do
rule %r/^#![ \S]+lasso9\b/, Comment::Preproc, :lasso
rule(/(?=\[|<)/) { push :delimiters }
rule %r/\s+/, Text::Whitespace
rule(//) { push :delimiters; push :lassofile }
end
state :delimiters do
rule %r/\[no_square_brackets\]/, Comment::Preproc, :nosquarebrackets
rule %r/\[noprocess\]/, Comment::Preproc, :noprocess
rule %r/\[/, Comment::Preproc, :squarebrackets
rule %r/<\?(lasso(script)?|=)/i, Comment::Preproc, :anglebrackets
rule(/([^\[<]|<!--.*?-->|<(script|style).*?\2>|<(?!\?(lasso(script)?|=)))+/im) { delegate parent }
end
state :nosquarebrackets do
rule %r/\[noprocess\]/, Comment::Preproc, :noprocess
rule %r/<\?(lasso(script)?|=)/i, Comment::Preproc, :anglebrackets
rule(/([^\[<]|<!--.*?-->|<(script|style).*?\2>|<(?!\?(lasso(script)?|=))|\[(?!noprocess))+/im) { delegate parent }
end
state :noprocess do
rule %r(\[/noprocess\]), Comment::Preproc, :pop!
rule(%r(([^\[]|\[(?!/noprocess))+)i) { delegate parent }
end
state :squarebrackets do
rule %r/\]/, Comment::Preproc, :pop!
mixin :lasso
end
state :anglebrackets do
rule %r/\?>/, Comment::Preproc, :pop!
mixin :lasso
end
state :lassofile do
rule %r/\]|\?>/, Comment::Preproc, :pop!
mixin :lasso
end
state :whitespacecomments do
rule %r/\s+/, Text
rule %r(//.*?\n), Comment::Single
rule %r(/\*\*!.*?\*/)m, Comment::Doc
rule %r(/\*.*?\*/)m, Comment::Multiline
end
state :lasso do
mixin :whitespacecomments
# literals
rule %r/\d*\.\d+(e[+-]?\d+)?/i, Num::Float
rule %r/0x[\da-f]+/i, Num::Hex
rule %r/\d+/, Num::Integer
rule %r/(infinity|NaN)\b/i, Num
rule %r/'[^'\\]*(\\.[^'\\]*)*'/m, Str::Single
rule %r/"[^"\\]*(\\.[^"\\]*)*"/m, Str::Double
rule %r/`[^`]*`/m, Str::Backtick
# names
rule %r/\$#{id}/, Name::Variable
rule %r/#(#{id}|\d+\b)/, Name::Variable::Instance
rule %r/(\.\s*)('#{id}')/ do
groups Name::Builtin::Pseudo, Name::Variable::Class
end
rule %r/(self)(\s*->\s*)('#{id}')/i do
groups Name::Builtin::Pseudo, Operator, Name::Variable::Class
end
rule %r/(\.\.?\s*)(#{id}(=(?!=))?)/ do
groups Name::Builtin::Pseudo, Name::Other
end
rule %r/(->\\?\s*|&\s*)(#{id}(=(?!=))?)/ do
groups Operator, Name::Other
end
rule %r/(?<!->)(self|inherited|currentcapture|givenblock)\b/i, Name::Builtin::Pseudo
rule %r/-(?!infinity)#{id}/i, Name::Attribute
rule %r/::\s*#{id}/, Name::Label
rule %r/error_((code|msg)_\w+|adderror|columnrestriction|databaseconnectionunavailable|databasetimeout|deleteerror|fieldrestriction|filenotfound|invaliddatabase|invalidpassword|invalidusername|modulenotfound|noerror|nopermission|outofmemory|reqcolumnmissing|reqfieldmissing|requiredcolumnmissing|requiredfieldmissing|updateerror)/i, Name::Exception
# definitions
rule %r/(define)(\s+)(#{id})(\s*=>\s*)(type|trait|thread)\b/i do
groups Keyword::Declaration, Text, Name::Class, Operator, Keyword
end
rule %r((define)(\s+)(#{id})(\s*->\s*)(#{id}=?|[-+*/%]))i do
groups Keyword::Declaration, Text, Name::Class, Operator, Name::Function
push :signature
end
rule %r/(define)(\s+)(#{id})/i do
groups Keyword::Declaration, Text, Name::Function
push :signature
end
rule %r((public|protected|private|provide)(\s+)((#{id}=?|[-+*/%])(?=\s*\()))i do
groups Keyword, Text, Name::Function
push :signature
end
rule %r/(public|protected|private|provide)(\s+)(#{id})/i do
groups Keyword, Text, Name::Function
end
# keywords
rule %r/(true|false|none|minimal|full|all|void)\b/i, Keyword::Constant
rule %r/(local|var|variable|global|data(?=\s))\b/i, Keyword::Declaration
rule %r/(array|date|decimal|duration|integer|map|pair|string|tag|xml|null|boolean|bytes|keyword|list|locale|queue|set|stack|staticarray)\b/i, Keyword::Type
rule %r/(#{id})(\s+)(in)\b/i do
groups Name, Text, Keyword
end
rule %r/(let|into)(\s+)(#{id})/i do
groups Keyword, Text, Name
end
# other
rule %r/,/, Punctuation, :commamember
rule %r/(and|or|not)\b/i, Operator::Word
rule %r/(#{id})(\s*::\s*#{id})?(\s*=(?!=|>))/ do
groups Name, Name::Label, Operator
end
rule %r((/?)([\w.]+)) do |m|
name = m[2].downcase
if m[1] != ''
token Punctuation, m[1]
end
if name == 'namespace_using'
token Keyword::Namespace, m[2]
elsif self.class.keywords[:keywords].include? name
token Keyword, m[2]
elsif self.class.keywords[:types_traits].include? name
token Name::Builtin, m[2]
else
token Name::Other, m[2]
end
end
rule %r/(=)(n?bw|n?ew|n?cn|lte?|gte?|n?eq|n?rx|ft)\b/i do
groups Operator, Operator::Word
end
rule %r(:=|[-+*/%=<>&|!?\\]+), Operator
rule %r/[{}():;,@^]/, Punctuation
end
state :signature do
rule %r/\=>/, Operator, :pop!
rule %r/\)/, Punctuation, :pop!
rule %r/[(,]/, Punctuation, :parameter
mixin :lasso
end
state :parameter do
rule %r/\)/, Punctuation, :pop!
rule %r/-?#{id}/, Name::Attribute, :pop!
rule %r/\.\.\./, Name::Builtin::Pseudo
mixin :lasso
end
state :commamember do
rule %r((#{id}=?|[-+*/%])(?=\s*(\(([^()]*\([^()]*\))*[^\)]*\)\s*)?(::[\w.\s]+)?=>)), Name::Function, :signature
mixin :whitespacecomments
rule %r//, Text, :pop!
end
end
end
end