Add support for Red

.github/workflows/test.yml

@@ -0,0 +1,44 @@
+name: Tests
+
+on:
+  push:
+    branches:
+      - master
+  pull_request:
+    branches:
+      - master
+  workflow_dispatch:
+
+jobs:
+  build_and_test:
+    runs-on: ubuntu-22.04
+    env:
+      platform: linux-musl
+      channel: stable
+      target: x86_64-unknown-linux-musl
+    steps:
+      - uses: actions/checkout@b4ffde65f46336ab88eb53be808477a3936bae11
+      - uses: actions/cache@704facf57e6136b1bc63b828d79edcd491f0ee84
+        with:
+          path: |
+            ~/.cargo/bin/
+            ~/.cargo/registry/index/
+            ~/.cargo/registry/cache/
+            ~/.cargo/git/db/
+            target/
+          key: ${{ runner.os }}-cargo-${{ hashFiles('**/Cargo.lock') }}
+      - name: Download cross binary
+        run: ci/download_cross.bash $target $platform
+        env:
+          GITHUB_TOKEN: ${{ secrets.GITHUB_TOKEN }}
+      - name: Set Rust version
+        run: ci/set_rust_version.bash $channel $target
+      - name: Build
+        run: ci/build.bash $PWD/cross $target
+      - name: Run tests
+        run: ci/test.bash $PWD/cross $target
+      - name: Trigger lines of code counter re-deploy
+        if: github.ref == 'refs/heads/master' && github.event_name == 'push'
+        run: ci/redeploy_lines_of_code_counter.bash
+        env:
+          GITHUB_TOKEN: ${{ secrets.WORKFLOWS_PAT }}

README.md

@@ -323,6 +323,7 @@ request. Languages are defined in [`languages.json`](./languages.json), and you
 read how to add and test your language in our [CONTRIBUTING.md](./CONTRIBUTING.md).
 
 ```
+8th
 Abap
 ActionScript
 Ada
@@ -434,6 +435,7 @@ KakouneScript
 Kotlin
 Lean
 Less
+LFE
 LinkerScript
 Liquid
 Lisp
@@ -466,6 +468,7 @@ Pascal
 Perl
 Perl6
 Pest
+Smalltalk
 Php
 Poke
 Polly
@@ -477,6 +480,7 @@ Prolog
 Protobuf
 PSL
 PureScript
+Pyret
 Python
 Qcl
 Qml
@@ -540,6 +544,7 @@ VisualStudioSolution
 Vue
 WebAssembly
 Wolfram
+Wren
 Xaml
 XcodeConfig
 Xml

ci/download_cross.bash

@@ -0,0 +1,6 @@
+#!/usr/bin/env bash
+# Script for downloading cross.
+set -e
+
+gh release download --repo cross-rs/cross --pattern "*$2*"
+tar -xvzf cross-$1.tar.gz

ci/redeploy_lines_of_code_counter.bash

@@ -0,0 +1,5 @@
+#!/usr/bin/env bash
+# Script for triggering deploy of lines of code counter.
+set -e
+
+gh workflow run deploy.yml --repo exercism/lines-of-code-counter

languages.json

@@ -1,5 +1,13 @@
 {
   "languages": {
+    "_8th": {
+      "name": "8th",
+      "line_comment": ["\\\\ ", "-- "],
+      "multi_line_comments": [["(*", "*)"]],
+      "nested": true,
+      "quotes": [["\\\"", "\\\""]],
+      "extensions": ["8th"]
+    },
     "Abap": {
       "name": "ABAP",
       "line_comment": ["*", "\\\""],
@@ -830,6 +838,14 @@
       "extensions": ["less"],
       "quotes": [["\\\"", "\\\""], ["'", "'"]]
     },
+    "Lfe": {
+      "name": "LFE",
+      "line_comment": [";"],
+      "multi_line_comments": [["#|", "|#"]],
+      "quotes": [["\\\"", "\\\""], ["'", "'"]],
+      "nested": true,
+      "extensions": ["lfe"]
+    },
     "Liquid": {
       "name": "Liquid",
       "quotes": [["\\\"", "\\\""], ["'", "'"]],
@@ -1140,6 +1156,13 @@
       "multi_line_comments": [["{-", "-}"]],
       "extensions": ["purs"]
     },
+    "Pyret": {
+      "line_comment": ["#"],
+      "multi_line_comments": [["#|", "|#"]],
+      "quotes": [["\\\"", "\\\""], ["'", "'"]],
+      "extensions": ["arr"],
+      "nested": true
+    },
     "Python": {
       "line_comment": ["#"],
       "doc_quotes": [["\\\"\\\"\\\"", "\\\"\\\"\\\""], ["'''", "'''"]],
@@ -1228,6 +1251,12 @@
       "multi_line_comments": [["<!--", "-->"], ["@*", "*@"]],
       "extensions": ["cshtml"]
     },
+    "Red": {
+      "line_comment": [";"],
+      "multi_line_comments": [["comment [", "]"], ["comment {", "}"]],
+      "quotes": [["\\\"", "\\\""], ["{", "}"]],
+      "extensions": ["red"]
+    },
     "Redscript": {
       "name": "Redscript",
       "line_comment": ["//", "///"],
@@ -1341,7 +1370,7 @@
       "name": "Smalltalk",
       "quotes": [["'", "'"]],
       "multi_line_comments": [["\\\"", "\\\""]],
-      "extensions": ["cs.st", "pck.st"]
+      "extensions": ["st"]
     },
     "Solidity": {
       "name": "Solidity",
@@ -1647,6 +1676,13 @@
       "multi_line_comments": [["(*", "*)"]],
       "extensions": ["nb", "wl"]
     },
+    "Wren": {
+      "line_comment": ["//"],
+      "multi_line_comments": [["/*", "*/"]],
+      "nested": true,
+      "quotes": [["\\\"", "\\\""]],
+      "extensions": ["wren"]
+    },
     "Xaml": {
       "name": "XAML",
       "multi_line_comments": [["<!--", "-->"]],

tests/data/_8th.8th

@@ -0,0 +1,22 @@
+\ 22 lines 9 code 8 comments 5 blanks
+
+(* multiline comments
+  (* a nested 
+     comment *)
+ *
+ *)
+
+-- here's a single line comment
+"Hello, " var, foo -- line ending comment
+
+\ here's another single line comment
+"!" var, bar \ a different line ending comment
+
+: hello   \ s --
+  foo @ s:<+ 
+  bar @ s:+
+  . cr
+;
+
+"World" hello
+bye

tests/data/lfe.lfe

@@ -0,0 +1,15 @@
+; 15 lines 4 code 5 comments 6 blanks
+
+(defmodule my-code
+  (export (hello-world 0)))
+
+;;; Commentary:
+;; Provides helper functions
+
+;;; Code
+
+(defun pi () 3.14) ; a constant for Π not exported
+
+(defun hello-world () "Hello, World!")
+
+;;; lfe.lfe ends here

tests/data/pyret.arr

@@ -0,0 +1,22 @@
+# 22 lines 9 code 8 comments 5 blanks
+
+fun single-quote():
+  doc: "this is a documentation string"
+  'foo'
+end
+
+#|
+  Hello, this is a multiline message
+|#
+
+# This is a line message
+
+fun double-quotes():
+  "bar"
+end
+
+nested = #|
+  doesn't start yet
+  or yet
+|#
+"nested"

tests/data/red.red

@@ -0,0 +1,20 @@
+Red [] ; 20 lines 10 code 6 comments 4 blanks
+
+x: 1 ; line comment 1
+x: 3   ;-- 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] }
+]
+
+comment   {unfortunately, tokei does not allow regexp in comment prefix}
+; so probably previous block comment is not parsed properly

tests/data/smalltalk.st

@@ -0,0 +1,22 @@
+" 22 lines 15 code 4 comments 3 blanks "
+
+"
+I will return a message containing the given name, or a default value if no name given. 
+"
+Class {
+	#name : #TwoFer,
+	#superclass : #Object,
+	#category : #'Exercise@TwoFer'
+}
+
+{ #category : #translating }
+TwoFer >> who [
+	^ self who: 'you'.
+]
+
+{ #category : #translating }
+TwoFer >> who: name [ 
+	^ name isNil 
+		ifTrue: [ self who ]
+		ifFalse: [ 'One for {1}, one for me.' format: {name} ].
+]

tests/data/wren.wren

@@ -0,0 +1,17 @@
+// 17 lines 7 code 6 comments 4 blanks
+
+/* multiline comments
+  /* can be nested */
+ * Right, tokei?
+ */
+
+// here's a single line comment
+var PREFIX = "Hello, " // line ending comment
+
+class Hello {
+  static hello(name) {
+    System.print(PREFIX + name + "!")
+  }
+}
+
+Hello.hello("World")