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

parse-protection on miscInt and miscFloat

Browse Source
This commit is contained in:
Nat Quayle Nelson
2024-02-15 20:04:09 -07:00
parent f7077f992d
commit 2dae27daa5
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/hollywoo/Movie.kiss
View File

@@ -645,7 +645,9 @@
(director.enterString "Redefine $key from ${.value (miscInts.get key)}?" (director.enterString "Redefine $key from ${.value (miscInts.get key)}?"
->valStr ->valStr
(let [v (Std.parseInt valStr)] (let [v (Std.parseInt valStr)]
(miscInts.put key (new HInt v)) (if (= v null)
(print "Failed to parse ${valStr}. leaving value the same")
(miscInts.put key (new HInt v)))
(cc)))) (cc))))
] ]
(set lastCommand defineMiscInt) (set lastCommand defineMiscInt)
@@ -661,7 +663,9 @@
(director.enterString "Redefine $key from ${.value (miscFloats.get key)}?" (director.enterString "Redefine $key from ${.value (miscFloats.get key)}?"
->valStr ->valStr
(let [v (Std.parseFloat valStr)] (let [v (Std.parseFloat valStr)]
(miscFloats.put key (new HFloat v)) (if (Math.isNaN v)
(print "Failed to parse ${valStr}. leaving value the same")
(miscFloats.put key (new HFloat v)))
(cc)))) (cc))))
] ]
(set lastCommand defineMiscFloat) (set lastCommand defineMiscFloat)