Fix windows parsing

bugdone · Feb 10, 2024 · 3f6e42b · 3f6e42b
1 parent 9892768
commit 3f6e42b
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/src/hsbox/demo.clj b/src/hsbox/demo.clj
@@ -50,12 +50,18 @@
   (def demoinfo-dir-path dir))
 
 (defn find-demoparser []
-  (let [csdemoparser (str demoinfo-dir-path "/csdemoparser")
+  (let [csdemoparser-exe (str demoinfo-dir-path "/csdemoparser.exe")
+        csdemoparser (str demoinfo-dir-path "/csdemoparser")
+        csdemoparser-dev-exe (str demoinfo-dir-path "/target/release/csdemoparser.exe")
         csdemoparser-dev (str demoinfo-dir-path "/target/release/csdemoparser")
+        demoinfogo-exe (str demoinfo-dir-path "/demoinfogo.exe")
         demoinfogo (str demoinfo-dir-path "/demoinfogo")]
     (cond
+      (file-exists? csdemoparser-exe) [csdemoparser-exe]
       (file-exists? csdemoparser) [csdemoparser]
+      (file-exists? csdemoparser-dev-exe) [csdemoparser-dev-exe]
       (file-exists? csdemoparser-dev) [csdemoparser-dev]
+      (file-exists? demoinfogo-exe) [demoinfogo-exe "-hsbox"]
       (file-exists? demoinfogo) [demoinfogo "-hsbox"]
       :else (throw (Exception. (str "No demo parser found in '" demoinfo-dir-path "'"))))))