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

report error when ktxt2 source and output ext are same

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-05-09 15:38:15 -04:00
parent 265f81405b
commit e861e7f18d
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
projects/kiss-vscode/src/ktxt2/KTxt2EditorProvider.kiss
View File

@@ -123,12 +123,16 @@
(function exportSourceAndOutputFiles [document] (function exportSourceAndOutputFiles [document]
(let [:String ktxt2FullFilename document.fileName (let [:String ktxt2FullFilename document.fileName
[sourceText outputText] (KTxt2.extractFileContents (Stream.fromFile ktxt2FullFilename) ->message (errorMessage message))
ktxt2Directory (ktxt2FullFilename.directory) ktxt2Directory (ktxt2FullFilename.directory)
ktxt2Filename (ktxt2FullFilename.withoutDirectory) ktxt2Filename (ktxt2FullFilename.withoutDirectory)
[baseFilename sourceExt outputExt ktxt2Ext] (ktxt2Filename.split ".") [baseFilename sourceExt outputExt ktxt2Ext] (ktxt2Filename.split ".")
sourceFilename (joinPath ktxt2Directory "${baseFilename}.${sourceExt}") sourceFilename (joinPath ktxt2Directory "${baseFilename}.${sourceExt}")
outputFilename (joinPath ktxt2Directory "${baseFilename}.${outputExt}")] outputFilename (joinPath ktxt2Directory "${baseFilename}.${outputExt}")]
(File.saveContent sourceFilename sourceText) (when (= sourceExt outputExt)
(File.saveContent outputFilename outputText) (let [m "Source and output extension cannot be the same in $ktxt2Filename"]
(print "Export for $(document.fileName.withoutDirectory) succeeded."))) (errorMessage m)
(throw m)))
(let [[sourceText outputText] (KTxt2.extractFileContents (Stream.fromFile ktxt2FullFilename) ->message (errorMessage message))]
(File.saveContent sourceFilename sourceText)
(File.saveContent outputFilename outputText)
(print "Export for $(document.fileName.withoutDirectory) succeeded."))))