code/lib/vector.felan


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47

@import("operator.felan");
@import("memory.felan");

vector :: (comptime t:type)->type{
  return struct {
    ptr : *t;
    size : u64;
    capacity : u64;
  };
};

vector_new :: (comptime t:type) -> (vector(t)) {
  v : vector(t) = undefined;
  v.ptr = malloc(0,@type_of(v.ptr.*));
  v.size = 0u64;
  v.capacity = 0u64;
  return v;
};

__get_item__ :: (left:*vector(anytype),index:i64) -> (@type_of(left.*.ptr.*)) {
  return (left.*.ptr + index).*;
};

__set_item__ :: (left:*vector(anytype),index:i64,item:@type_of(left.*.ptr.*)) -> (@type_of(left.*.ptr.*)) {
  return (left.*.ptr + index).* = item;
};

__get_item_address__ :: (left:*vector(anytype),index:i64) -> (@type_of(left.*.ptr)) {
  return (left.*.ptr + index);
};

push_back :: (vec:*vector(anytype),value:@type_of(vec.*[0])) -> void {
  _grow_if_needed(vec);
  vec.*[@cast(vec.*.size,i64)] = value;
  vec.*.size += 1u64;
};

_grow_if_needed :: (vec:*vector(anytype)) -> void {
  if vec.*.size == vec.*.capacity {
    vec.*.capacity = vec.*.capacity + vec.*.capacity/2u64 + 1u64;
    vec.*.ptr = realloc(vec.*.ptr,vec.*.capacity);
  }
};

delete :: (vec:vector(anytype)) -> void {
  free(vec.ptr);
};