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

store logFile path absolute

Browse Source
This commit is contained in:
Nat Quayle Nelson
2023-09-29 12:11:27 -06:00
parent 7bc5357633
commit 1df8bc715f
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/kiss_flixel/Log.kiss
View File

@@ -10,14 +10,17 @@
(sys (sys
(#when debug (#when debug
(Sys.println s)) (Sys.println s))
(let [file (sys.io.File.append "log.txt" false)] (let [file (sys.io.File.append logFile false)]
(file.writeString "${s}\n") (file.writeString "${s}\n")
(file.close))) (file.close)))
(true (true
(haxe.Log.trace s)))) (haxe.Log.trace s))))
// Store the absolute path of the log file in case the program needs to change cwd:
(var &mut logFile "")
(function use [] (function use []
(set Prelude.printStr log) (set Prelude.printStr log)
(set logFile (joinPath (Sys.getCwd) "log.txt"))
(let [msg "Launching version $(gitVersion) for $(Sys.systemName) on $(.toString (Date.now))" (let [msg "Launching version $(gitVersion) for $(Sys.systemName) on $(.toString (Date.now))"
divider (* msg.length "-")] divider (* msg.length "-")]
(log "${divider}\n${msg}\n${divider}"))) (log "${divider}\n${msg}\n${divider}")))