kiss-lang/kiss-vscode
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

initialization macro to suppress the unused case warning

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-02-23 14:17:35 -07:00
parent dd5fbc2f66
commit 1433c78144
5 changed files with 36 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
projects/kiss-vscode/config/build.hxml
View File

@@ -5,5 +5,6 @@ args.hxml
-lib kiss-vscode
-lib kiss-tools
-lib re-flex
--macro kiss.Kiss.setup()
KissConfig
-js config.js

27
projects/kiss-vscode/src/Util.kiss
View File

@@ -134,20 +134,19 @@
null)))))
(function :Void showCompileError [errorMessage]
(ifLet [errorMessage (.join (filter (errorMessage.split "\n") ->[:String l] (= -1 (l.indexOf "This case is unused"))) "\n")
compileErrors (R.distinctMatches
(R.group
(R.namedGroup "file"
(R.repeat (R.oneOf R.anyLetter R.anyDigit (R.escape "/")) 1) // filename
(R.escape ".kiss:")
(R.repeat R.anyDigit 1) // line
(R.escape ":")
(R.optional
(R.group
(R.repeat R.anyDigit 1) // column
(R.escape ":"))))
(R.repeat R.anyChar 1))
errorMessage)]
(ifLet [compileErrors (R.distinctMatches
(R.group
(R.namedGroup "file"
(R.repeat (R.oneOf R.anyLetter R.anyDigit (R.escape "/")) 1) // filename
(R.escape ".kiss:")
(R.repeat R.anyDigit 1) // line
(R.escape ":")
(R.optional
(R.group
(R.repeat R.anyDigit 1) // column
(R.escape ":"))))
(R.repeat R.anyChar 1))
errorMessage)]
{
(Vscode.window.showErrorMessage errorMessage)
(awaitLet [chosen (quickPickMap (for match compileErrors =>match.match match))]