about summary refs log tree commit diff stats
path: root/event.c
diff options
context:
space:
mode:
authorAnselm R. Garbe <arg@suckless.org>2007-01-08 12:18:49 +0100
committerAnselm R. Garbe <arg@suckless.org>2007-01-08 12:18:49 +0100
commit3a96c9a8d5df3747b9c538decbbbe63eb228d082 (patch)
treebc2a2df12a7ab117bfaaf1dd4ea4bd04902f1c11 /event.c
parent1617b95598defdf0042b93f4b9fe0b4a237fb81d (diff)
downloaddwm-3a96c9a8d5df3747b9c538decbbbe63eb228d082.tar.gz
fofofo
Diffstat (limited to 'event.c')
0 files changed, 0 insertions, 0 deletions
 

generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2025-08-01 13:14:21 +0000


 


le='Blame the previous revision' href='/akkartik/mu/blame/062array.mu?h=hlt&id=84e4ed1ab58d5b34cf92919aedbb15736a7349d9'>^

bc643692 ^

9636c7ae ^


d4cb1a51 ^

502d2ea5 ^


9636c7ae ^


d4cb1a51 ^

9636c7ae ^

bc643692 ^

9636c7ae ^


502d2ea5 ^


d4cb1a51 ^

502d2ea5 ^

d4cb1a51 ^

502d2ea5 ^


9636c7ae ^


502d2ea5 ^

9636c7ae ^



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




                          

                                                        
   
                         







                                              
                  
             
                           

                           
                                                            

                               

        
                                                                
                    
                    

                           

                                                 
                                                            
                                                                 
                                                     

                           

        
              
 
scenario array-from-args [
  run [
    1:address:array:character <- new-array 0, 1, 2
    2:array:character <- copy *1:address:array:character
  ]
  memory-should-contain [
    2 <- 3  # array length
    3 <- 0
    4 <- 1
    5 <- 2
  ]
]

# create an array out of a list of scalar args
recipe new-array [
  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:address:array:character <- 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]
    tmp:address:character <- index-address *result, i
    *tmp <- copy curr-value
    i <- add i, 1
    loop
  }
  reply result
]






 

generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2025-08-01 13:14:21 +0000