suckless/dwm - Unnamed repository; edit this file 'description' to name the repository.

about summary refs log tree commit diff stats

diff options

Diffstat (limited to 'util.c')

0 files changed, 0 insertions, 0 deletions

tik.com> 2016-05-26 16:46:38 -0700 3015 - more symbolic names in tests' href='/akkartik/mu/commit/073array.mu?h=main&id=ad8161f34526599a94b12d38554cff9ac20467da'>ad8161f3 ^

9636c7ae ^

b0bf5321 ^

77d5b5d6 ^

bc643692 ^

9636c7ae ^

d4cb1a51 ^

502d2ea5 ^

9636c7ae ^

455fbac6 ^

9636c7ae ^

bc643692 ^

9636c7ae ^

502d2ea5 ^

d4cb1a51 ^

502d2ea5 ^

991d76f3 ^

502d2ea5 ^

9636c7ae ^

1ead3562 ^

9636c7ae ^

1
2

3
4
5

19
20

22
23

24
25

29
30

31
32

37
38

scenario array-from-args [
  run [
    local-scope
    x:address:array:character <- new-array 0, 1, 2
    10:array:character/raw <- copy *x
  ]
  memory-should-contain [
    10 <- 3  # array length
    11 <- 0
    12 <- 1
    13 <- 2
  ]
]

# create an array out of a list of scalar args
def new-array -> result:address:array:character [
  local-scope
  capacity:number <- copy 0
  {
    # while read curr-value
    curr-value:character, exists?:boolean <- next-ingredient
    break-unless exists?
    capacity <- add capacity, 1
    loop
  }
  result <- new character:type, capacity
  rewind-ingredients
  i:number <- copy 0
  {
    # while read curr-value
    done?:boolean <- greater-or-equal i, capacity
    break-if done?
    curr-value:character, exists?:boolean <- next-ingredient
    assert exists?, [error in rewinding ingredients to new-array]
    *result <- put-index *result, i, curr-value
    i <- add i, 1
    loop
  }
  return result
]


context:
space:
mode: