mu - Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.

	Commit message (Expand)	Author	Age	Files	Lines
*	1276 - make C++ version the default	Kartik K. Agaram	2015-05-05	1	-0/+132

<!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 - 062array.mu</title> <meta name="Generator" content="Vim/7.4"> <meta name="plugin-version" content="vim7.4_v1"> <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'> scenario array-from-args [ run [ 1:address:array:location <- new-array 0, 1, 2 2:array:location <- copy *1:address:array:location ] 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:location, exists?:boolean <- next-ingredient break-unless exists? capacity <- add capacity, 1 loop } result:address:array:location <- new location:type, capacity rewind-ingredients i:number <- copy 0 { # while read curr-value done?:boolean <- greater-or-equal i, capacity break-if done? curr-value:location, exists?:boolean <- next-ingredient assert exists?, [error in rewinding ingredients to new-array] tmp:address:location <- index-address *result, i *tmp <- copy curr-value i <- add i, 1 loop } reply result ] </pre> </body> </html>