Как использовать (или перебирать) массив в ATS

Question

Предположим, мы объявили массив следующим образом:

dataview myarray 
( a:t@ype (* element types *)
, addr (* location *)
, int (* size *)
) =
  | {l:addr}
    myarray_nil(a, l, 0)
  | {l:addr}{n:int}
    myarray_cons(a, l, n + 1) of (a@l, myarray(a, l + sizeof(a), n))

Я хотел бы перебрать такой массив. Я пробовал следующий способ:

fun
{a:t@ype}
myarray_map
{l: addr}{n: nat}
(pf: !myarray(a, l, n) | p0: ptr(l), f:a-<cloref1>a): void = let
    prval myarray_cons(pf1, pf2) = pf
    val elm = ptr_get<a>(pf1 | p0)
    val ()  = ptr_set<a>(pf1 | p0, f(elm))
    val p1  = ptr_succ<a>(p0)
in
  (pf:= myarray_cons(pf1, pf2); myarray_map(pf | p1, f))
end

Проблема в том, что когда я запускаю дело myarray_nil, prval становится бесподобным.

Поскольку pf является линейным ресурсом, я не могу сделать

case+ pf of
| myarray_nil() =>
| myarray_cons(pf1, pf2) =>

Потому что здесь используется pf, но оно должно быть сохранено в соответствии с определением функции. Как я могу перебрать myarray таким образом и обеспечить полное совпадение pf, не потребляя при этом?

Спасибо!

Answer 1

Следуя совету, приведенному в комментариях, я написал следующие проверки типов:

fun
{a:t@ype}
myarray_map
{l: addr}{n: nat | n > 0}
(pf: !myarray(a, l, n) | p0: ptr(l), n: int(n), f:a-<cloref1>a): void = let
    prval myarray_cons(pf1, pf2) = pf
    val elm = ptr_get<a>(pf1 | p0)
    val ()  = ptr_set<a>(pf1 | p0, f(elm))
    val p1  = ptr_succ<a>(p0)
  in
    if n = 1
    then ()
    else myarray_map(pf2 | p1, n - 1, f); pf := myarray_cons(pf1, pf2)
  end