Add Xojo lexer.

lib/rouge/demos/xojo

@@ -0,0 +1,13 @@
+Dim f As FolderItem
+f = GetOpenFolderItem(FileTypes1.jpeg) // defined in the File Type Set editor
+If not f.Exists Then
+  Beep
+  MsgBox("The file " + f.NativePath + "doesn't ""exist.""")
+Else // document exists
+  ImageWell1.image=Picture.Open(f)
+End If
+if f isa folderitem then
+  msgbox(f.name)
+end if
+Exception err As NilObjectException
+  MsgBox("Invalid pathname!")

lib/rouge/lexers/xojo.rb

@@ -0,0 +1,66 @@
+# -*- coding: utf-8 -*- #
+# frozen_string_literal: true
+
+module Rouge
+  module Lexers
+    class Xojo < RegexLexer
+      title "Xojo"
+      desc "Xojo"
+      tag 'xojo'
+      aliases 'realbasic'
+      filenames '*.xojo_code', '*.xojo_window', '*.xojo_toolbar', '*.xojo_menu'
+
+        keywords = %w(
+          addhandler aggregates array asc assigns attributes begin break
+          byref byval call case catch class const continue char ctype declare
+          delegate dim do downto each else elseif end enum event exception
+          exit extends false finally for function global goto if
+          implements inherits interface lib loop mod module
+          new next nil object of optional paramarray
+          private property protected public raise raiseevent rect redim
+          removehandler return select shared soft static step sub super
+          then to true try until using uend uhile
+        )
+
+        keywords_type = %w(
+          boolean cfstringref cgfloat cstring curency date double int8 int16
+          int32 int64 integer ostype pstring ptr short single
+          single string structure variant uinteger uint8 uint16 uint32 uint64
+          ushort windowptr wstring
+        )
+
+        operator_words = %w(
+          addressof and as in is isa mod not or xor
+        )
+
+      state :whitespace do
+        rule /\s+/, Text
+        rule /rem\b.*?$/i, Comment::Single
+        rule /\/\/.*$/, Comment::Single
+        rule /\#tag Note.*\#tag EndNote/m, Comment::Doc
+        rule /".*"/, Literal::String
+      end
+
+
+      state :root do
+        mixin :whitespace
+        rule /\s*[#].*$/x, Comment::Preproc
+        rule /[(){}!#,:]/, Punctuation
+        rule /\b(?:#{keywords.join('|')})\b/i, Keyword
+        rule /\b(?:#{keywords_type.join('|')})\b/i, Keyword::Declaration
+        rule /\b(?:#{operator_words.join('|')})\b/i, Operator
+
+        rule(
+          %r(<=|>=|<>|[=><\+\-\*\/\\]),
+          Operator
+        )
+
+        rule /[+-]?(\d+\.\d*|\d*\.\d+)(f[+-]?\d+)?/i, Literal::Number::Float
+        rule /[+-]?\d+/, Literal::Number::Integer
+        rule /&[CH][0-9a-f]+/i, Literal::Number::Integer
+        rule /&O[0-7]+/i, Literal::Number::Oct
+        rule /\b[\w\.]+\b/i, Text
+      end
+    end
+  end
+end

spec/lexers/xojo_spec.rb

@@ -0,0 +1,18 @@
+# -*- coding: utf-8 -*- #
+# frozen_string_literal: true
+
+describe Rouge::Lexers::Xojo do
+  let(:subject) { Rouge::Lexers::Xojo.new }
+
+  describe 'guessing' do
+    include Support::Guessing
+
+    it 'guesses by filename' do
+      assert_guess :filename => 'foo.xojo_code'
+      assert_guess :filename => 'foo.xojo_window'
+      assert_guess :filename => 'foo.xojo_toolbar'
+      assert_guess :filename => 'foo.xojo_menu'
+    end
+
+  end
+end