From b41a06dceaa2b4432900db98c49e55118b77fdef Mon Sep 17 00:00:00 2001 From: thing1 Date: Fri, 20 Sep 2024 17:56:55 +0100 Subject: pushed alot to the stdlib --- comp/lucas-standen-NEA/code2/examples/Makefile | 6 ++++++ comp/lucas-standen-NEA/code2/examples/fib_example | Bin 0 -> 21624 bytes comp/lucas-standen-NEA/code2/examples/fib_example.zpy | 13 +++++++++++++ comp/lucas-standen-NEA/code2/examples/raylib_example | Bin 0 -> 1082656 bytes .../code2/examples/raylib_example.zpy | 16 ++++++++++++++++ comp/lucas-standen-NEA/code2/examples/str_example | Bin 0 -> 21944 bytes comp/lucas-standen-NEA/code2/examples/str_example.zpy | 5 +++++ 7 files changed, 40 insertions(+) create mode 100644 comp/lucas-standen-NEA/code2/examples/Makefile create mode 100755 comp/lucas-standen-NEA/code2/examples/fib_example create mode 100644 comp/lucas-standen-NEA/code2/examples/fib_example.zpy create mode 100755 comp/lucas-standen-NEA/code2/examples/raylib_example create mode 100644 comp/lucas-standen-NEA/code2/examples/raylib_example.zpy create mode 100755 comp/lucas-standen-NEA/code2/examples/str_example create mode 100644 comp/lucas-standen-NEA/code2/examples/str_example.zpy (limited to 'comp/lucas-standen-NEA/code2/examples') diff --git a/comp/lucas-standen-NEA/code2/examples/Makefile b/comp/lucas-standen-NEA/code2/examples/Makefile new file mode 100644 index 0000000..ccb9b35 --- /dev/null +++ b/comp/lucas-standen-NEA/code2/examples/Makefile @@ -0,0 +1,6 @@ +all: + zpy raylib_example.zpy -o raylib_example -f -lraylib -f -lm -i raylib.h + zpy fib_example.zpy -o fib_example -f -ggdb + zpy str_example.zpy -o str_example -f -ggdb +clean: + rm -rf fib_example raylib_example diff --git a/comp/lucas-standen-NEA/code2/examples/fib_example b/comp/lucas-standen-NEA/code2/examples/fib_example new file mode 100755 index 0000000..e81a20c Binary files /dev/null and b/comp/lucas-standen-NEA/code2/examples/fib_example differ diff --git a/comp/lucas-standen-NEA/code2/examples/fib_example.zpy b/comp/lucas-standen-NEA/code2/examples/fib_example.zpy new file mode 100644 index 0000000..a79b7d7 --- /dev/null +++ b/comp/lucas-standen-NEA/code2/examples/fib_example.zpy @@ -0,0 +1,13 @@ +(defun fib int n:int) + (if (< n 2)) + (return n) + (endif) + + (return (+ (fib (- n 1)) (fib (- n 2)))) +(endfun) + +(defun main int) + (let n:int (readint)) + (printint (fib n)) + (printchar '\n') +(endfun) diff --git a/comp/lucas-standen-NEA/code2/examples/raylib_example b/comp/lucas-standen-NEA/code2/examples/raylib_example new file mode 100755 index 0000000..2e3f1e9 Binary files /dev/null and b/comp/lucas-standen-NEA/code2/examples/raylib_example differ diff --git a/comp/lucas-standen-NEA/code2/examples/raylib_example.zpy b/comp/lucas-standen-NEA/code2/examples/raylib_example.zpy new file mode 100644 index 0000000..931c0e4 --- /dev/null +++ b/comp/lucas-standen-NEA/code2/examples/raylib_example.zpy @@ -0,0 +1,16 @@ +(defun main int) + (InitWindow 800 800 "test") + (SetTargetFPS 40) + (let x:int 0) + (let y:int 0) + (for i:int 0 (= (WindowShouldClose) 0) 0) + (BeginDrawing) + (ClearBackground RAYWHITE) + (DrawText "test" x y 40 RED) + (EndDrawing) + + (set x (+ x 5)) + (set y (+ y 5)) + (endfor) + (CloseWindow) +(endfun) diff --git a/comp/lucas-standen-NEA/code2/examples/str_example b/comp/lucas-standen-NEA/code2/examples/str_example new file mode 100755 index 0000000..ca715dd Binary files /dev/null and b/comp/lucas-standen-NEA/code2/examples/str_example differ diff --git a/comp/lucas-standen-NEA/code2/examples/str_example.zpy b/comp/lucas-standen-NEA/code2/examples/str_example.zpy new file mode 100644 index 0000000..9b67f5f --- /dev/null +++ b/comp/lucas-standen-NEA/code2/examples/str_example.zpy @@ -0,0 +1,5 @@ +(defun main int) + (let str:string* (String "hello")) + (printchar str->_str[0]) + (str->free str) +(endfun) -- cgit v1.2.3