@katnip-org/compiler 0.1.0

package/stdlib/motion.knip

@@ -0,0 +1,25 @@
+#> motion.knip ~ sprite motion blocks. <#
+
+public enum Target { RANDOM, MOUSE }
+public enum RotationStyle { LEFT, RIGHT }
+
+proc move(@opcode = "motion_movesteps", steps: num) -> void {}
+proc turn(@opcode = "motion_turnright", degrees: num) -> void {}
+
+proc goTo(@opcode = "motion_goto", position: Target | str) -> void {}
+proc goTo(@opcode = "motion_gotoxy", x: num, y: num) -> void {}
+proc glideTo(@opcode = "motion_glideto", time: num, position: Target | str) -> void {}
+proc glideTo(@opcode = "motion_glidetoxy", time: num, x: num, y: num) -> void {}
+
+proc point(@opcode = "motion_pointindirection", degrees: num) -> void {}
+proc point(@opcode = "motion_pointtowards", target: Target) -> void {}
+
+proc changeX(@opcode = "motion_changexby", dX: num) -> void {}
+proc setX(@opcode = "motion_setx", x: num) -> void {}
+proc changeY(@opcode = "motion_changeyby", dY: num) -> void {}
+proc setY(@opcode = "motion_sety", y: num) -> void {}
+
+proc ifOnEdgeBounce(@opcode = "motion_ifonedgebounce") -> void {}
+proc setRotationStyle(@opcode = "motion_setrotationstyle", style: RotationStyle) -> void {}
+
+proc getPosition(@opcode = "katnip_motion_position") -> (num, num) {}

package/stdlib/pen.knip

@@ -0,0 +1,14 @@
+#> pen.knip ~ pen extension blocks. <#
+
+public enum ColorParam { COLOR, SATURATION, BRIGHTNESS, TRANSPARENCY }
+
+proc down(@opcode = "pen_penDown") -> void {}
+proc up(@opcode = "pen_penUp") -> void {}
+proc clear(@opcode = "pen_clear") -> void {}
+proc setHex(@opcode = "pen_setPenColorToColor", hex: str) -> void {}
+
+proc setAttr(@opcode = "pen_setPenColorParamTo", attr: ColorParam, value: num) -> void {}
+proc changeAttr(@opcode = "pen_changePenColorParamBy", attr: ColorParam, dA: num) -> void {}
+
+proc setSize(@opcode = "pen_setPenSizeTo", size: num) -> void {}
+proc changeSize(@opcode = "pen_changePenSizeBy", dS: num) -> void {}

package/stdlib/prelude.knip

@@ -0,0 +1,25 @@
+#> prelude.knip ~ bare global builtins, available without a namespace. <#
+
+proc typeof(@opcode = "katnip_typeof", value: any) -> str {} # TODO: use the katnip one
+
+# casts
+proc Num(@opcode = "katnip_cast_num", value: any) -> num {}
+proc Str(@opcode = "katnip_cast_str", value: any) -> str {}
+proc Bool(@opcode = "katnip_cast_bool", value: any) -> bool {}
+proc List(@opcode = "katnip_cast_list", value: any) -> list<str> {}
+
+proc wait(@opcode = "control_wait", seconds: num) -> void {}
+
+# iter helpers
+proc range(@opcode = "katnip_range", stop: num) -> list<num> {}
+proc range(@opcode = "katnip_range", start: num, stop: num, step: num = 1) -> list<num> {}
+
+proc zip(@opcode = "katnip_zip", l1: list<T>, l2: list<U>) -> (list<T>, list<U>) {}
+proc enumerate(@opcode = "katnip_enumerate", items: list<T>) -> (list<num>, list<T>) {}
+
+# constants
+public true: bool = "true" == "true";
+public false: bool = "false" == "";
+
+# misc
+proc len(@opcode = "operator_length", input: str) -> num {}

package/stdlib/str.knip

@@ -0,0 +1,3 @@
+#> str.knip ~ methods on string values (first param `self` marks a method). <#
+
+proc contains(@opcode = "operator_contains", self: str, substring: str) -> bool {}