blob: 12d44f56fd2c7ee0d44cffa796b98da64ecb9494 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
// array package
pkg "arr";
#export Arr ::= fn (t :: Type) Type {
struct {
data : []t;
cap : int;
}
};
#export arr_add ::= fn(t ::=, a : &Arr(t), x : t) {
if a.data.len >= a.cap {
a.cap = a.cap * 2 + 2;
new_data := new(t, a.cap);
new_data.len = a.data.len;
for i := 0..a.data.len-1 {
new_data[i] = a.data[i];
}
a.data = new_data;
}
a.data[a.data.len] = x;
a.data.len += 1;
};
#export arr_len ::= fn(t ::=, a : Arr(t)) int { a.data.len };
|