32 lines
706 B
Plaintext
32 lines
706 B
Plaintext
(defvar runningInHaxe (#if interp true false))
|
|
(defvar runningInPyOrJs (#if (or py js) true false))
|
|
|
|
(defun number []
|
|
(let [&mut num 5]
|
|
(#when interp
|
|
(+= num 5)
|
|
(-= num 4))
|
|
num))
|
|
|
|
(defun number2 []
|
|
(let [&mut num 12]
|
|
(#unless interp
|
|
(+= num 5)
|
|
(-= num 8))
|
|
num))
|
|
|
|
(defvar targetLanguage
|
|
(#cond
|
|
(cpp "C++")
|
|
(interp "Haxe")
|
|
(hxnodejs "NodeJS")
|
|
(js "JavaScript")
|
|
(py "Python")))
|
|
|
|
(defun _testCase []
|
|
(#case var1ForCase
|
|
("var1" (Assert.pass))
|
|
(otherwise (Assert.fail)))
|
|
(#case var2ForCase
|
|
("var2" (Assert.pass))
|
|
(otherwise (Assert.fail)))) |