add Red language

Author: loziniak

lib/languages/red.txt

@@ -0,0 +1,8 @@
+!e
+;\p
+Red [\p-->>]\pj
+Red +[\p-->>]\pj
+comment [\p-->>]\pj
+comment +[\p-->>]\pj
+comment {\p-->>}\pj
+comment +{\p-->>}\pj

test/languages/red_test.rb

@@ -0,0 +1,42 @@
+require "test_helper"
+
+module SnippetExtractor
+  module Languages
+    class RedTest < Minitest::Test
+      def test_full_example
+        code = <<~CODE
+          Red [] ; 20 lines 10 code 6 comments 4 blanks
+
+          x: 1 ; line comment 1
+          x: 2   ;-- line comment 2
+          x: 3		;@@ line comment 3
+
+          comment ['this
+          	'is 'multiline
+          	'comment]
+          comment   {and this
+          	as well}
+
+          function add100 [x [integer!]] [
+          	"; this should not count as comment "
+          	{ comment [and neither
+          	 this] }
+          ]
+        CODE
+
+        expected = <<~CODE
+          x: 1
+          x: 2
+          x: 3
+          function add100 [x [integer!]] [
+          	"; this should not count as comment "
+          	{ comment [and neither
+          	 this] }
+          ]
+        CODE
+
+        assert_equal expected, ExtractSnippet.(code, :red)
+      end
+    end
+  end
+end