about summary refs log tree commit diff stats
path: root/.github
diff options
context:
space:
mode:
authorToon Nolten <toonn@toonn.io>2019-10-01 22:12:24 +0200
committerGitHub <noreply@github.com>2019-10-01 22:12:24 +0200
commit11087fd48f4fcbec9112a25d77eec0a5b2211d9f (patch)
tree6cb28f4bb02f1b78e3450dcc9fa3bcf3f6adf161 /.github
parentbb2b2e887b1cba76a0b55a0fef99f28ddd39ea95 (diff)
parent24a5736e3928ffe034bd733b97ba0d99990603b7 (diff)
downloadranger-11087fd48f4fcbec9112a25d77eec0a5b2211d9f.tar.gz
Merge pull request #1705 from Vifon/vcs-truncate
Truncate the VCS commit message
Diffstat (limited to '.github')
0 files changed, 0 insertions, 0 deletions
s in tests' href='/akkartik/mu/commit/079table.mu?h=hlt&id=ad8161f34526599a94b12d38554cff9ac20467da'>ad8161f3 ^
48835572 ^
b17de7ba ^

48835572 ^

b17de7ba ^


4f3d9065 ^
6f65d591 ^
f017a508 ^
4f3d9065 ^
f017a508 ^
48835572 ^
4f3d9065 ^

ad8161f3 ^
48835572 ^












4f3d9065 ^


b17de7ba ^
7a84094a ^

7c3bbb77 ^
b17de7ba ^

7c3bbb77 ^
51b0936f ^
b17de7ba ^



760f683f ^
b17de7ba ^
4a48bedc ^
b17de7ba ^
7c3bbb77 ^
748b6865 ^
b17de7ba ^

8bd3f99f ^

760f683f ^
b17de7ba ^
4a48bedc ^
7a84094a ^
4f3d9065 ^
7a84094a ^
88b8d612 ^
9d9da2ad ^
7c3bbb77 ^
88b8d612 ^
51b0936f ^

b17de7ba ^
dd660682 ^
88b8d612 ^
b17de7ba ^

48835572 ^
b17de7ba ^
4a48bedc ^
7a84094a ^
4f3d9065 ^
7a84094a ^
88b8d612 ^
9d9da2ad ^
7c3bbb77 ^
88b8d612 ^
48835572 ^






aed29290 ^
b17de7ba ^
cdb9fbee ^


4a48bedc ^
cdb9fbee ^



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

                                                                             
 

                                           
                           

                                     
       
                         
                                            

                         

                    


   
                                       
             
                                      
       
                                
                                                 

                         
           












                                                 


   
                             

              
                                

 
                                 
                



              
                                                          
             
             
                                           
                                                                                 
                                           

 

                                                                                    
                                                                                              
             
             
                      
                  
                                             
                                                         
                                                                                                                               
                                                                 
                                                        

                                           
                                                     
                                                         
                                                         

 
                                                                             
             
             
                      
                  
                                             
                                                         
                                                                                                                               
                                                                 
                                                        






                                        
                               
 


                             
             



                                         
# A table is like an array, except that you can index it with arbitrary types
# and not just non-negative whole numbers.

# incomplete; doesn't handle hash conflicts

scenario table-read-write [
  local-scope
  tab:&:table:num:num <- new-table 30
  run [
    put-index tab, 12, 34
    60:num/raw, 61:bool/raw <- index tab, 12
  ]
  memory-should-contain [
    60 <- 34
    61 <- 1  # found
  ]
]

scenario table-read-write-non-integer [
  local-scope
  tab:&:table:text:num <- new-table 30
  run [
    put-index tab, [abc def], 34
    1:num/raw, 2:bool/raw <- index tab, [abc def]
  ]
  memory-should-contain [
    1 <- 34
    2 <- 1  # found
  ]
]

scenario table-read-not-found [
  local-scope
  tab:&:table:text:num <- new-table 30
  run [
    1:num/raw, 2:bool/raw <- index tab, [abc def]
  ]
  memory-should-contain [
    1 <- 0
    2 <- 0  # not found
  ]
]

container table:_key:_value [
  length:num
  capacity:num
  data:&:@:table-row:_key:_value
]

container table-row:_key:_value [
  occupied?:bool
  key:_key
  value:_value
]

def new-table capacity:num -> result:&:table:_key:_value [
  local-scope
  load-inputs
  result <- new {(table _key _value): type}
  data:&:@:table-row:_key:_value <- new {(table-row _key _value): type}, capacity
  *result <- merge 0/length, capacity, data
]

# todo: tag results as /required so that call-sites are forbidden from ignoring them
# then we could handle conflicts simply by resizing the table
def put-index table:&:table:_key:_value, key:_key, value:_value -> table:&:table:_key:_value [
  local-scope
  load-inputs
  hash:num <- hash key
  hash <- abs hash
  capacity:num <- get *table, capacity:offset
  _, hash-key:num <- divide-with-remainder hash, capacity
  hash-key <- abs hash-key  # in case hash overflows from a double into a negative integer inside 'divide-with-remainder' above
  table-data:&:@:table-row:_key:_value <- get *table, data:offset
  x:table-row:_key:_value <- index *table-data, hash-key
  occupied?:bool <- get x, occupied?:offset
  not-occupied?:bool <- not occupied?:bool
  assert not-occupied?, [can't handle collisions yet]
  new-row:table-row:_key:_value <- merge true, key, value
  *table-data <- put-index *table-data, hash-key, new-row
]

def index table:&:table:_key:_value, key:_key -> result:_value, found?:bool [
  local-scope
  load-inputs
  hash:num <- hash key
  hash <- abs hash
  capacity:num <- get *table, capacity:offset
  _, hash-key:num <- divide-with-remainder hash, capacity
  hash-key <- abs hash-key  # in case hash overflows from a double into a negative integer inside 'divide-with-remainder' above
  table-data:&:@:table-row:_key:_value <- get *table, data:offset
  x:table-row:_key:_value <- index *table-data, hash-key
  empty:&:_value <- new _value:type
  result <- copy *empty
  found?:bool <- get x, occupied?:offset
  return-unless found?
  key2:_key <- get x, key:offset
  found?:bool <- equal key, key2
  return-unless found?
  result <- get x, value:offset
]

def abs n:num -> result:num [
  local-scope
  load-inputs
  positive?:bool <- greater-or-equal n, 0
  return-if positive?, n
  result <- multiply n, -1
]