Add support for smalltalk (#839)

XAMPPRocky · Apr 20, 2023 · 5acdb19 · 5acdb19
1 parent 8733101
commit 5acdb19
Show file tree

Hide file tree

Showing 2 changed files with 22 additions and 0 deletions.
diff --git a/languages.json b/languages.json
@@ -1294,6 +1294,12 @@
       "multi_line_comments": [["(*", "*)"]],
       "extensions": ["sml"]
     },
+    "Smalltalk": {
+      "name": "Smalltalk",
+      "quotes": [["'", "'"]],
+      "multi_line_comments": [["\\\"", "\\\""]],
+      "extensions": ["cs.st", "pck.st"]
+    },
     "Solidity": {
       "name": "Solidity",
       "line_comment": ["//"],

diff --git a/tests/data/Smalltalk.cs.st b/tests/data/Smalltalk.cs.st
@@ -0,0 +1,16 @@
+"16 lines 9 code 5 comment 2 blank"
+
+exampleWithNumber: x
+    | y |
+    "this is a comment"
+    true & false not & (nil isNil) ifFalse: [self halt].
+    y := self size + super size.
+    #($a #a 'a' 1 1.0)
+        do: [ :each |
+
+            "This is 
+            a multiline 
+            comment"
+            Transcript show: (each class name);
+                       show: ' '].
+    ^x < y