rouge-alda 3.3.0

data/lib/rouge/lexers/viml.rb

@@ -0,0 +1,102 @@
+# -*- coding: utf-8 -*- #
+# frozen_string_literal: true
+
+module Rouge
+  module Lexers
+    class VimL < RegexLexer
+      title "VimL"
+      desc "VimL, the scripting language for the Vim editor (vim.org)"
+      tag 'viml'
+      aliases 'vim', 'vimscript', 'ex'
+      filenames '*.vim', '*.vba', '.vimrc', '.exrc', '.gvimrc',
+                '_vimrc', '_exrc', '_gvimrc' # _ names for windows
+
+      mimetypes 'text/x-vim'
+
+      def self.keywords
+        load Pathname.new(__FILE__).dirname.join('viml/keywords.rb')
+        self.keywords
+      end
+
+      state :root do
+        rule /^(\s*)(".*?)$/ do
+          groups Text, Comment
+        end
+
+        rule /^\s*\\/, Str::Escape
+
+        rule /[ \t]+/, Text
+
+        # TODO: regexes can have other delimiters
+        rule %r(/(\\\\|\\/|[^\n/])*/), Str::Regex
+        rule %r("(\\\\|\\"|[^\n"])*"), Str::Double
+        rule %r('(\\\\|\\'|[^\n'])*'), Str::Single
+
+        # if it's not a string, it's a comment.
+        rule /(?<=\s)"[^-:.%#=*].*?$/, Comment
+
+        rule /-?\d+/, Num
+        rule /#[0-9a-f]{6}/i, Num::Hex
+        rule /^:/, Punctuation
+        rule /[():<>+=!\[\]{}\|,~.-]/, Punctuation
+        rule /\b(let|if|else|endif|elseif|fun|function|endfunction)\b/,
+          Keyword
+
+        rule /\b(NONE|bold|italic|underline|dark|light)\b/, Name::Builtin
+
+        rule /[absg]:\w+\b/, Name::Variable
+        rule /\b\w+\b/ do |m|
+          name = m[0]
+          keywords = self.class.keywords
+
+          if mapping_contains?(keywords[:command], name)
+            token Keyword
+          elsif mapping_contains?(keywords[:option], name)
+            token Name::Builtin
+          elsif mapping_contains?(keywords[:auto], name)
+            token Name::Builtin
+          else
+            token Text
+          end
+        end
+
+        # no errors in VimL!
+        rule /./m, Text
+      end
+
+      def mapping_contains?(mapping, word)
+        shortest, longest = find_likely_mapping(mapping, word)
+
+        shortest and word.start_with?(shortest) and
+        longest and longest.start_with?(word)
+      end
+
+      # binary search through the mappings to find the one that's likely
+      # to actually work.
+      def find_likely_mapping(mapping, word)
+        min = 0
+        max = mapping.size
+
+        until max == min
+          mid = (max + min) / 2
+
+          cmp, _ = mapping[mid]
+
+          case word <=> cmp
+          when 1
+            # too low
+            min = mid + 1
+          when -1
+            # too high
+            max = mid
+          when 0
+            # just right, abort!
+            return mapping[mid]
+          end
+        end
+
+        mapping[max - 1]
+      end
+    end
+  end
+end

data/lib/rouge/lexers/vue.rb

@@ -0,0 +1,124 @@
+# frozen_string_literal: true
+
+module Rouge
+  module Lexers
+    load_lexer 'html.rb'
+
+    class Vue < HTML
+      desc 'Vue.js single-file components'
+      tag 'vue'
+      aliases 'vuejs'
+      filenames '*.vue'
+
+      mimetypes 'text/x-vue', 'application/x-vue'
+
+      def initialize(*)
+        super
+        @js = Javascript.new(options)
+      end
+
+      def lookup_lang(lang)
+        lang.downcase!
+        lang = lang.gsub(/["']*/, '')
+        case lang
+        when 'html' then HTML
+        when 'css' then CSS
+        when 'javascript' then Javascript
+        when 'sass' then Sass
+        when 'scss' then Scss
+        when 'coffee' then Coffeescript
+          # TODO: add more when the lexers are done
+        else
+          PlainText
+        end
+      end
+
+      start { @js.reset! }
+
+      prepend :root do
+        rule /(<)(\s*)(template)/ do
+          groups Name::Tag, Text, Keyword
+          @lang = HTML
+          push :template
+          push :lang_tag
+        end
+
+        rule /(<)(\s*)(style)/ do
+          groups Name::Tag, Text, Keyword
+          @lang = CSS
+          push :style
+          push :lang_tag
+        end
+
+        rule /(<)(\s*)(script)/ do
+          groups Name::Tag, Text, Keyword
+          @lang = Javascript
+          push :script
+          push :lang_tag
+        end
+      end
+
+      state :style do
+        rule /(<\s*\/\s*)(style)(\s*>)/ do
+          groups Name::Tag, Keyword, Name::Tag
+          pop!
+        end
+
+        mixin :style_content
+        mixin :embed
+      end
+
+      state :script do
+        rule /(<\s*\/\s*)(script)(\s*>)/ do
+          groups Name::Tag, Keyword, Name::Tag
+          pop!
+        end
+
+        mixin :script_content
+        mixin :embed
+      end
+
+      state :lang_tag do
+        rule /(lang\s*=)(\s*)("(?:\\.|[^\\])*?"|'(\\.|[^\\])*?'|[^\s>]+)/ do |m|
+          groups Name::Attribute, Text, Str
+          @lang = lookup_lang(m[3])
+        end
+
+        mixin :tag
+      end
+
+      state :template do
+        rule %r((<\s*/\s*)(template)(\s*>)) do
+          groups Name::Tag, Keyword, Name::Tag
+          pop!
+        end
+
+        rule /{{/ do
+          token Str::Interpol
+          push :template_interpol
+          @js.reset!
+        end
+
+        mixin :embed
+      end
+
+      state :template_interpol do
+        rule /}}/, Str::Interpol, :pop!
+        rule /}/, Error
+        mixin :template_interpol_inner
+      end
+
+      state :template_interpol_inner do
+        rule(/{/) { delegate @js; push }
+        rule(/}/) { delegate @js; pop! }
+        rule(/[^{}]+/) { delegate @js }
+      end
+
+      state :embed do
+        rule(/[^{<]+/) { delegate @lang }
+        rule(/[<{][^<{]*/) { delegate @lang }
+      end
+    end
+  end
+end
+

data/lib/rouge/lexers/wollok.rb

@@ -0,0 +1,104 @@
+# -*- coding: utf-8 -*- # 
+# frozen_string_literal: true
+
+module Rouge
+  module Lexers
+    class Wollok < RegexLexer
+      title 'Wollok'
+      desc 'Wollok lang'
+      tag 'wollok'
+      filenames *%w(*.wlk *.wtest *.wpgm)
+
+      keywords = %w(new super return if else var const override constructor)
+
+      entity_name = /[a-zA-Z][a-zA-Z0-9]*/
+      variable_naming = /_?#{entity_name}/
+
+      entities = []
+
+      state :whitespaces_and_comments do
+        rule /\s+/m, Text::Whitespace
+        rule /$+/m, Text::Whitespace
+        rule %r(//.*$), Comment::Single
+        rule %r(/\*(.|\s)*?\*/)m, Comment::Multiline
+      end
+
+      state :root do
+        mixin :whitespaces_and_comments
+        rule /(import)(.+$)/ do
+          groups Keyword::Reserved, Text
+        end
+        rule /(class|object|mixin)/, Keyword::Reserved, :foo
+        rule /test|program/, Keyword::Reserved #, :chunk_naming
+        rule /(package)(\s+)(#{entity_name})/ do
+          groups Keyword::Reserved, Text::Whitespace, Name::Class
+        end
+        rule /{|}/, Text
+        mixin :keywords
+        mixin :symbols
+        mixin :objects
+      end
+
+      state :foo do
+        mixin :whitespaces_and_comments
+        rule /inherits|mixed|with|and/, Keyword::Reserved
+        rule /#{entity_name}(?=\s*{)/ do |m|
+          token Name::Class
+          entities << m[0]
+          pop!
+        end
+        rule /#{entity_name}/ do |m|
+          token Name::Class
+          entities << m[0]
+        end
+      end
+
+      state :keywords do
+        def any(expressions)
+          /#{expressions.map { |keyword| "#{keyword}\\b" }.join('|')}/
+        end
+
+        rule /self\b/, Name::Builtin::Pseudo
+        rule any(keywords), Keyword::Reserved
+        rule /(method)(\s+)(#{variable_naming})/ do
+          groups Keyword::Reserved, Text::Whitespace, Text
+        end
+      end
+
+      state :objects do
+        rule variable_naming do |m|
+          variable = m[0]
+          if entities.include?(variable) || ('A'..'Z').cover?(variable[0])
+            token Name::Class
+          else
+            token Keyword::Variable
+          end
+        end
+        rule /\.#{entity_name}/, Text
+        mixin :literals
+      end
+
+      state :literals do
+        mixin :whitespaces_and_comments
+        rule /[0-9]+\.?[0-9]*/, Literal::Number
+        rule /"[^"]*"/m, Literal::String
+        rule /\[|\#{/, Punctuation, :lists
+      end
+
+      state :lists do
+        rule /,/, Punctuation
+        rule /]|}/, Punctuation, :pop!
+        mixin :objects
+      end
+
+      state :symbols do
+        rule /\+\+|--|\+=|-=|\*\*|!/, Operator
+        rule /\+|-|\*|\/|%/, Operator
+        rule /<=|=>|===|==|<|>/, Operator
+        rule /and\b|or\b|not\b/, Operator
+        rule /\(|\)|=/, Text
+        rule /,/, Punctuation
+      end
+    end
+  end
+end

data/lib/rouge/lexers/xml.rb

@@ -0,0 +1,58 @@
+# -*- coding: utf-8 -*- #
+# frozen_string_literal: true
+
+module Rouge
+  module Lexers
+    class XML < RegexLexer
+      title "XML"
+      desc %q(<desc for="this-lexer">XML</desc>)
+      tag 'xml'
+      filenames *%w(*.xml *.xsl *.rss *.xslt *.xsd *.wsdl *.svg)
+      mimetypes *%w(
+        text/xml
+        application/xml
+        image/svg+xml
+        application/rss+xml
+        application/atom+xml
+      )
+
+      def self.detect?(text)
+        return false if text.doctype?(/html/)
+        return true if text =~ /\A<\?xml\b/
+        return true if text.doctype?
+      end
+
+      state :root do
+        rule /[^<&]+/, Text
+        rule /&\S*?;/, Name::Entity
+        rule /<!\[CDATA\[.*?\]\]\>/, Comment::Preproc
+        rule /<!--/, Comment, :comment
+        rule /<\?.*?\?>/, Comment::Preproc
+        rule /<![^>]*>/, Comment::Preproc
+
+        # open tags
+        rule %r(<\s*[\w:.-]+)m, Name::Tag, :tag
+
+        # self-closing tags
+        rule %r(<\s*/\s*[\w:.-]+\s*>)m, Name::Tag
+      end
+
+      state :comment do
+        rule /[^-]+/m, Comment
+        rule /-->/, Comment, :pop!
+        rule /-/, Comment
+      end
+
+      state :tag do
+        rule /\s+/m, Text
+        rule /[\w.:-]+\s*=/m, Name::Attribute, :attr
+        rule %r(/?\s*>), Name::Tag, :pop!
+      end
+
+      state :attr do
+        rule /\s+/m, Text
+        rule /".*?"|'.*?'|[^\s>]+/m, Str, :pop!
+      end
+    end
+  end
+end