ranger - mirror of ranger - a simple, vim-like file manager

diff options

Diffstat (limited to 'doc')

0 files changed, 0 insertions, 0 deletions

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> <title>Mu - 069table.mu</title> <meta name="Generator" content="Vim/7.4"> <meta name="plugin-version" content="vim7.4_v2"> <meta name="syntax" content="none"> <meta name="settings" content="use_css,pre_wrap,no_foldcolumn,expand_tabs,prevent_copy="> <meta name="colorscheme" content="minimal"> <style type="text/css">  </style> <script type='text/javascript'>  </script> </head> <body> <pre id='vimCodeElement'> # A table is like an array, except that its keys are not integers but # arbitrary types. scenario table-read-write [ run [ local-scope tab:address:table:number:number <- new-table 30 put-index tab, 12, 34 1:number/raw <- index tab, 12 ] memory-should-contain [ 1 <- 34 ] ] scenario table-read-write-non-integer [ run [ local-scope key:address:array:character <- new [abc def] {tab: (address table (address array character) number)} <- new-table 30 put-index tab, key, 34 1:number/raw <- index tab, key ] memory-should-contain [ 1 <- 34 ] ] container table:_key:_value [ length:number capacity:number data:address:array:table_row:_key:_value ] container table_row:_key:_value [ occupied?:boolean key:_key value:_value ] def new-table capacity:number -> result:address:table:_key:_value [ local-scope load-ingredients result <- new {(table _key _value): type} data:address:array:table_row:_key:_value <- new {(table_row _key _value): type}, capacity *result <- merge 0/length, capacity, data ] def put-index table:address:table:_key:_value, key:_key, value:_value -> table:address:table:_key:_value [ local-scope load-ingredients hash:number <- hash key hash <- abs hash capacity:number <- get *table, capacity:offset _, hash <- divide-with-remainder hash, capacity hash <- abs hash # in case hash overflows into a negative integer table-data:address:array:table_row:_key:_value <- get *table, data:offset x:table_row:_key:_value <- index *table-data, hash occupied?:boolean <- get x, occupied?:offset not-occupied?:boolean <- not occupied?:boolean assert not-occupied?, [can't handle collisions yet] new-row:table_row:_key:_value <- merge 1/true, key, value *table-data <- put-index *table-data, hash, new-row ] def abs n:number -> result:number [ local-scope load-ingredients positive?:boolean <- greater-or-equal n, 0 return-if positive?, n result <- multiply n, -1 ] def index table:address:table:_key:_value, key:_key -> result:_value [ local-scope load-ingredients hash:number <- hash key hash <- abs hash capacity:number <- get *table, capacity:offset _, hash <- divide-with-remainder hash, capacity hash <- abs hash # in case hash overflows into a negative integer table-data:address:array:table_row:_key:_value <- get *table, data:offset x:table_row:_key:_value <- index *table-data, hash occupied?:boolean <- get x, occupied?:offset assert occupied?, [can't handle missing elements yet] result <- get x, value:offset ] </pre> </body> </html>


context:
space:
mode: