aver-lang 0.16.0

VM and transpiler for Aver, a statically-typed language designed for AI-assisted development
Documentation 
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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140

;; UTF-8 indexed char access. Walks code points until char_pos == idx
;; or end-of-string, then alloc + copy that single char's bytes into a
;; fresh OBJ_STRING, wrapped as Some(string). Out-of-range or negative
;; idx → NONE_SENTINEL (-1).

(func $rt_str_char_at (param $str i32) (param $idx i64) (result i32)
  (local $byte_len i32)
  (local $target i32)
  (local $byte_pos i32)
  (local $char_pos i32)
  (local $lead i32)
  (local $width i32)
  (local $ptr i32)

  ;; Negative idx → None
  local.get $idx
  i64.const 0
  i64.lt_s
  if
    i32.const -1
    return
  end

  ;; byte_len = header.byte_len
  local.get $str
  i64.load
  i64.const 0xFFFFFFFF
  i64.and
  i32.wrap_i64
  local.set $byte_len

  local.get $idx
  i32.wrap_i64
  local.set $target

  i32.const 0
  local.set $byte_pos
  i32.const 0
  local.set $char_pos

  block
    loop
      local.get $byte_pos
      local.get $byte_len
      i32.ge_u
      br_if 1

      ;; lead byte
      local.get $str
      local.get $byte_pos
      i32.add
      i32.load8_u offset=8
      local.set $lead

      ;; width
      local.get $lead
      i32.const 0x80
      i32.lt_u
      if
        i32.const 1
        local.set $width
      else
        local.get $lead
        i32.const 0xE0
        i32.lt_u
        if
          i32.const 2
          local.set $width
        else
          local.get $lead
          i32.const 0xF0
          i32.lt_u
          if
            i32.const 3
            local.set $width
          else
            i32.const 4
            local.set $width
          end
        end
      end

      ;; if char_pos == target → emit and return
      local.get $char_pos
      local.get $target
      i32.eq
      if
        ;; alloc OBJ_STRING with len = width
        i32.const 8
        local.get $width
        i32.const 7
        i32.add
        i32.const -8
        i32.and
        i32.add
        call $rt_alloc
        local.set $ptr

        local.get $ptr
        i64.const 0
        local.get $width
        i64.extend_i32_u
        i64.or
        i64.store

        ;; memory.copy: dst = ptr+8, src = str+8+byte_pos, len = width
        local.get $ptr
        i32.const 8
        i32.add
        local.get $str
        i32.const 8
        i32.add
        local.get $byte_pos
        i32.add
        local.get $width
        memory.copy

        i32.const 2   ;; WRAP_SOME
        local.get $ptr
        i32.const 1
        call $rt_wrap_i32
        return
      end

      local.get $byte_pos
      local.get $width
      i32.add
      local.set $byte_pos

      local.get $char_pos
      i32.const 1
      i32.add
      local.set $char_pos
      br 0
    end
  end

  i32.const -1   ;; NONE_SENTINEL
)
(export "rt_str_char_at" (func $rt_str_char_at))