AmlInterp.in.list.set: def of bend-osdev-acpi@0.1.1.0
Import: import bend-osdev-acpi@0.1.1.0/aml_interp.bend as AmlInterp
Lines 484-494 of bend-osdev-acpi@0.1.1.0/aml_interp.bend: https://jend.leeeet.dev/read.txt?path=bend-osdev-acpi@0.1.1.0/aml_interp.bend&start_line=484&end_line=494

import Base
import bend-osdev-acpi@0.1.1.0/aml_value.bend as V

# xs with element i replaced (padded with Uninitialized up to i)
def in.list.set(i: Nat, xs: List<&2, V.AmlValue>, v: V.AmlValue) -> List<&2, V.AmlValue>:
  match i xs:
    case 0n Nil{}:
      [v]
    case 0n Con{h, t}:
      Con{v, t}
    case 1n+k Nil{}:
      Con{V.AmlUninit{}, in.list.set(k, Nil{}, v)}
    case 1n+k Con{h, t}:
      Con{h, in.list.set(k, t, v)}

Uses (3):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=List
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Nat
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-acpi@0.1.1.0/aml_value.bend&name=AmlValue