Commit a7bb3001aa21c9914344aef7ccaef67d073e24dd

Michael Schmidt 2021-12-10T14:37:50

Smalltalk: Use standard `char` token (#3255)

diff --git a/components/prism-smalltalk.js b/components/prism-smalltalk.js
index 2dbf08a..2e85765 100644
--- a/components/prism-smalltalk.js
+++ b/components/prism-smalltalk.js
@@ -1,10 +1,16 @@
 Prism.languages.smalltalk = {
-	'comment': /"(?:""|[^"])*"/,
-	'character': {
+	'comment': {
+		pattern: /"(?:""|[^"])*"/,
+		greedy: true
+	},
+	'char': {
 		pattern: /\$./,
-		alias: 'string'
+		greedy: true
+	},
+	'string': {
+		pattern: /'(?:''|[^'])*'/,
+		greedy: true
 	},
-	'string': /'(?:''|[^'])*'/,
 	'symbol': /#[\da-z]+|#(?:-|([+\/\\*~<>=@%|&?!])\1?)|#(?=\()/i,
 	'block-arguments': {
 		pattern: /(\[\s*):[^\[|]*\|/,
diff --git a/components/prism-smalltalk.min.js b/components/prism-smalltalk.min.js
index 5deec21..32e3046 100644
--- a/components/prism-smalltalk.min.js
+++ b/components/prism-smalltalk.min.js
@@ -1 +1 @@
-Prism.languages.smalltalk={comment:/"(?:""|[^"])*"/,character:{pattern:/\$./,alias:"string"},string:/'(?:''|[^'])*'/,symbol:/#[\da-z]+|#(?:-|([+\/\\*~<>=@%|&?!])\1?)|#(?=\()/i,"block-arguments":{pattern:/(\[\s*):[^\[|]*\|/,lookbehind:!0,inside:{variable:/:[\da-z]+/i,punctuation:/\|/}},"temporary-variables":{pattern:/\|[^|]+\|/,inside:{variable:/[\da-z]+/i,punctuation:/\|/}},keyword:/\b(?:new|nil|self|super)\b/,boolean:/\b(?:false|true)\b/,number:[/\d+r-?[\dA-Z]+(?:\.[\dA-Z]+)?(?:e-?\d+)?/,/\b\d+(?:\.\d+)?(?:e-?\d+)?/],operator:/[<=]=?|:=|~[~=]|\/\/?|\\\\|>[>=]?|[!^+\-*&|,@]/,punctuation:/[.;:?\[\](){}]/};
\ No newline at end of file
+Prism.languages.smalltalk={comment:{pattern:/"(?:""|[^"])*"/,greedy:!0},char:{pattern:/\$./,greedy:!0},string:{pattern:/'(?:''|[^'])*'/,greedy:!0},symbol:/#[\da-z]+|#(?:-|([+\/\\*~<>=@%|&?!])\1?)|#(?=\()/i,"block-arguments":{pattern:/(\[\s*):[^\[|]*\|/,lookbehind:!0,inside:{variable:/:[\da-z]+/i,punctuation:/\|/}},"temporary-variables":{pattern:/\|[^|]+\|/,inside:{variable:/[\da-z]+/i,punctuation:/\|/}},keyword:/\b(?:new|nil|self|super)\b/,boolean:/\b(?:false|true)\b/,number:[/\d+r-?[\dA-Z]+(?:\.[\dA-Z]+)?(?:e-?\d+)?/,/\b\d+(?:\.\d+)?(?:e-?\d+)?/],operator:/[<=]=?|:=|~[~=]|\/\/?|\\\\|>[>=]?|[!^+\-*&|,@]/,punctuation:/[.;:?\[\](){}]/};
\ No newline at end of file
diff --git a/tests/languages/smalltalk/char_feature.test b/tests/languages/smalltalk/char_feature.test
new file mode 100644
index 0000000..6c3bd04
--- /dev/null
+++ b/tests/languages/smalltalk/char_feature.test
@@ -0,0 +1,17 @@
+$a
+$4
+$.
+$^
+
+----------------------------------------------------
+
+[
+	["char", "$a"],
+	["char", "$4"],
+	["char", "$."],
+	["char", "$^"]
+]
+
+----------------------------------------------------
+
+Checks for characters.
diff --git a/tests/languages/smalltalk/character_feature.test b/tests/languages/smalltalk/character_feature.test
deleted file mode 100644
index 096cf71..0000000
--- a/tests/languages/smalltalk/character_feature.test
+++ /dev/null
@@ -1,17 +0,0 @@
-$a
-$4
-$.
-$^
-
-----------------------------------------------------
-
-[
-	["character", "$a"],
-	["character", "$4"],
-	["character", "$."],
-	["character", "$^"]
-]
-
-----------------------------------------------------
-
-Checks for characters.
\ No newline at end of file
diff --git a/tests/languages/smalltalk/string_char_feature.test b/tests/languages/smalltalk/string_char_feature.test
new file mode 100644
index 0000000..4750cd2
--- /dev/null
+++ b/tests/languages/smalltalk/string_char_feature.test
@@ -0,0 +1,13 @@
+$'
+'foobar'
+
+----------------------------------------------------
+
+[
+	["char", "$'"],
+	["string", "'foobar'"]
+]
+
+----------------------------------------------------
+
+Checks a single-quote-character doesn't confuse string parsing.
diff --git a/tests/languages/smalltalk/string_character_feature.test b/tests/languages/smalltalk/string_character_feature.test
deleted file mode 100644
index 83e057c..0000000
--- a/tests/languages/smalltalk/string_character_feature.test
+++ /dev/null
@@ -1,13 +0,0 @@
-$'
-'foobar'
-
-----------------------------------------------------
-
-[
-	["character", "$'"],
-	["string", "'foobar'"]
-]
-
-----------------------------------------------------
-
-Checks a single-quote-character doesn't confuse string parsing.