dimgigov
d60ce2bc3f
ci / build (ubuntu) (push) Has been cancelled
ci / unit + fmt (push) Has been cancelled
ci / examples (push) Has been cancelled
ci / goldens + tools (push) Has been cancelled
ci / apps (push) Has been cancelled
ci / selfhost smoke (push) Has been cancelled
ci / macos smoke (push) Has been cancelled
ci / windows smoke (push) Has been cancelled
ci / CI gate (push) Has been cancelled
selfhost-loop / bootstrap determinism (push) Has been cancelled
Sessions 83–87: grow Array/Map/String/Test ergonomics; delimiter-balanced and juxta :tt macros plus $t:type fragments; expression-level $(…),* in templates; selfhost slice lits; riscv64/aarch64 cross smoke helper and freestanding docs. Null-safe CBE type names and String_StartsWith.
73 lines
2.9 KiB
Plaintext
73 lines
2.9 KiB
Plaintext
// Session 83 — Array RemoveAt/Insert/SwapRemove/Clone + String Cmp/IndexOf/case
|
|
import Std::Io::{PrintLine, PrintInt};
|
|
import Std::Array::{
|
|
Array, Array_New, Array_Push, Array_Get, Array_Len, Array_Free,
|
|
Array_RemoveAt, Array_Insert, Array_SwapRemove, Array_Clone
|
|
};
|
|
import Std::String::{
|
|
String_Eq, String_Cmp, String_IndexOf, String_ToUpper, String_ToLower
|
|
};
|
|
import Std::Map::{Map, Map_New, Map_Set, Map_GetOr, Map_Free};
|
|
import Std::Test::{
|
|
Test_AssertTrue, Test_AssertFalse, Test_AssertEqInt, Test_AssertEqString, Test_Pass
|
|
};
|
|
|
|
func Main() -> int {
|
|
// --- Array_Insert / RemoveAt ---
|
|
var arr: Array<int> = Array_New<int>(4);
|
|
Array_Push<int>(&arr, 10);
|
|
Array_Push<int>(&arr, 30);
|
|
Array_Insert<int>(&arr, 1, 20); // [10, 20, 30]
|
|
Array_Insert<int>(&arr, 3, 40); // append via insert at len
|
|
Test_AssertEqInt(Array_Len<int>(&arr) as int, 4);
|
|
Test_AssertEqInt(Array_Get<int>(&arr, 0), 10);
|
|
Test_AssertEqInt(Array_Get<int>(&arr, 1), 20);
|
|
Test_AssertEqInt(Array_Get<int>(&arr, 2), 30);
|
|
Test_AssertEqInt(Array_Get<int>(&arr, 3), 40);
|
|
|
|
let rem: int = Array_RemoveAt<int>(&arr, 1); // remove 20 → [10, 30, 40]
|
|
Test_AssertEqInt(rem, 20);
|
|
Test_AssertEqInt(Array_Len<int>(&arr) as int, 3);
|
|
Test_AssertEqInt(Array_Get<int>(&arr, 1), 30);
|
|
|
|
// --- Array_SwapRemove (order not preserved) ---
|
|
let swapped: int = Array_SwapRemove<int>(&arr, 0); // remove 10, last→front
|
|
Test_AssertEqInt(swapped, 10);
|
|
Test_AssertEqInt(Array_Len<int>(&arr) as int, 2);
|
|
|
|
// --- Array_Clone ---
|
|
var clone: Array<int> = Array_Clone<int>(&arr);
|
|
Test_AssertEqInt(Array_Len<int>(&clone) as int, Array_Len<int>(&arr) as int);
|
|
Test_AssertEqInt(Array_Get<int>(&clone, 0), Array_Get<int>(&arr, 0));
|
|
Array_Push<int>(&clone, 99);
|
|
Test_AssertEqInt(Array_Len<int>(&clone) as int, 3);
|
|
Test_AssertEqInt(Array_Len<int>(&arr) as int, 2); // original unchanged
|
|
|
|
Array_Free<int>(&arr);
|
|
Array_Free<int>(&clone);
|
|
|
|
// --- String_Cmp / IndexOf / ToUpper / ToLower ---
|
|
Test_AssertEqInt(String_Cmp("abc", "abc"), 0);
|
|
Test_AssertTrue(String_Cmp("a", "b") < 0);
|
|
Test_AssertTrue(String_Cmp("z", "a") > 0);
|
|
Test_AssertEqInt(String_IndexOf("hello world", "world"), 6);
|
|
Test_AssertEqInt(String_IndexOf("hello", "xyz"), -1);
|
|
Test_AssertEqInt(String_IndexOf("aaa", "a"), 0);
|
|
|
|
Test_AssertEqString(String_ToUpper("Hello, Bux!"), "HELLO, BUX!");
|
|
Test_AssertEqString(String_ToLower("Hello, Bux!"), "hello, bux!");
|
|
Test_AssertEqString(String_ToUpper("123"), "123");
|
|
Test_AssertEqString(String_ToLower(""), "");
|
|
|
|
// --- Map_GetOr ---
|
|
var m: Map<int, int> = Map_New<int, int>(8);
|
|
Map_Set<int, int>(&m, 1, 100);
|
|
Test_AssertEqInt(Map_GetOr<int, int>(&m, 1, -1), 100);
|
|
Test_AssertEqInt(Map_GetOr<int, int>(&m, 99, -1), -1);
|
|
Map_Free<int, int>(&m);
|
|
|
|
PrintLine("collections_extra: all checks passed");
|
|
Test_Pass("collections_extra");
|
|
return 0;
|
|
}
|