mirror of
https://github.com/janet-lang/janet
synced 2025-01-10 15:40:30 +00:00
62 lines
1.3 KiB
Plaintext
62 lines
1.3 KiB
Plaintext
(use ./frontend)
|
|
|
|
(def square
|
|
'(defn square:int [num:int]
|
|
(return (* num num))))
|
|
|
|
(def simple
|
|
'(defn simple:int [x:int]
|
|
(def xyz:int (+ 1 2 3))
|
|
(return (the int (* x 2 x)))))
|
|
|
|
(def myprog
|
|
'(defn myprog:int []
|
|
(def xyz:int (+ 1 2 3))
|
|
(def abc:int (* 4 5 6))
|
|
(def x:boolean (= (the int 5) xyz))
|
|
(var i:int 0)
|
|
(while (< i (the int 10))
|
|
(set i (the int (+ 1 i)))
|
|
(printf "i = %d\n" i))
|
|
(printf "hello, world!\n%d\n" (the int (if x abc xyz)))
|
|
#(return (* abc xyz))))
|
|
(return (the int (simple (* abc xyz))))))
|
|
|
|
(def doloop
|
|
'(defn doloop [x:int y:int]
|
|
(var i:int x)
|
|
(while (< i y)
|
|
(set i (the int (+ 1 i)))
|
|
(printf "i = %d\n" (the int i)))
|
|
(myprog)
|
|
(return x)))
|
|
|
|
(def main-fn
|
|
'(defn _start:void []
|
|
#(syscall 1 1 "Hello, world!\n" 14)
|
|
(doloop 10 20)
|
|
(exit (the int 0))
|
|
(return)))
|
|
|
|
(def winmain
|
|
'(defn Start:void []
|
|
(MessageBoxExA (the pointer 0) "Hello, world!" "Test" 0 (the s16 0))
|
|
(ExitProcess (the int 0))
|
|
(return)))
|
|
|
|
|
|
####
|
|
|
|
#(compile1 square)
|
|
#(compile1 simple)
|
|
#(compile1 myprog)
|
|
#(compile1 doloop)
|
|
#(compile1 main-fn)
|
|
(compile1 winmain)
|
|
#(dump)
|
|
#(dumpc)
|
|
(dumpx64)
|
|
|
|
# Run with
|
|
# janet examples/sysir/scratch.janet > temp.nasm && nasm -felf64 temp.nasm -l temp.lst && ld temp.o && ./a.out
|