Refresh the repo

examples/polymorphism.core

@@ -0,0 +1,92 @@
+
+/* @todo
+QueueAddSLL(list: $List, node: $Node, $first = first, $last = last, $next = next)
+	if list.first == 0
+		list.first = list.last = node
+	else
+		list.last = list.last.next = node
+*/
+
+Array :: struct($T: Type)
+	data: *T
+	len: int
+	cap: int
+
+Tuple :: struct($A: Type, $B: Type)
+	a: A
+	b: B
+
+Triple :: struct($A: Type, $B: Type, $C: Type)
+	a: A
+	b: B
+	c: C
+
+
+Variant :: union($A: Type, $B: Type, $C: Type)
+	a: A
+	b: B
+	c: C
+
+MakeArray :: (a: *int, count: int): Array(int)
+	result := Array(int) {
+		data = a,
+		len = count,
+		cap = count
+	}
+	return result
+
+MultipleArgs :: (): Tuple(int, F32)
+	return {32, 32}
+
+PolyLambda :: ($T: Type = *int): T
+	return 0
+
+PolyType :: (a: $T): T
+	return a
+
+GetCount :: (a: int): int
+	return a
+
+C :: #import "LibC.core"
+
+Add :: (arr: *Array($T), val: T)
+	if arr.cap == 0
+		arr.cap = 16
+		arr.data = C.malloc(sizeof(T)->U64 * arr.cap->U64)
+	arr.data[arr.len++] = val
+
+main :: (argc: int, argv: **char): int
+	buff: *int
+	array: Array(S64)
+	second_array: Array(int)
+	third_array: Array(int)
+	fourth: Array(F32)
+	fifth: Array(F32)
+	sixth: Array(Array(F32))
+	seventh: Variant(int, F32, S64)
+
+	test_a := int
+	test := *int
+	Assert(test_a != test)
+
+	// c := MakeArray(buff, GetCount(GetCount(32)))
+
+	a, b := MultipleArgs()
+	Assert(a == 32 && b == 32)
+
+	Add(&array, 32)
+	Add(&second_array, 32)
+	Add(&third_array, 32)
+	Add(&fourth, 32)
+	Add(&fifth, 32)
+	Add(&sixth, {})
+
+	value := PolyLambda(**int)
+	PolyType_r1 := PolyType(10)
+	PolyType_r2 := PolyType(int)
+	PolyType_r3 := PolyType(test)
+	PolyType_r4 := PolyType(test_a)
+	PolyType_r5 := PolyType(sixth)
+	PolyType_r6 := PolyType(seventh)
+
+	return 0