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

diff options

author	Kartik K. Agaram <vc@akkartik.com>	2015-06-09 00:00:31 -0700
committer	Kartik K. Agaram <vc@akkartik.com>	2015-06-09 00:00:31 -0700
commit	ef2e4be3054da5a5c768bf72d86f88e35109d3c4 (patch)
tree	8d9241f08fbe7074c5b3dc0a94073c154bffae13 /043space.cc
parent	ef4015991bbaeffc1b7c138441b809cc92ada99d (diff)
download	mu-ef2e4be3054da5a5c768bf72d86f88e35109d3c4.tar.gz

1547

Diffstat (limited to '043space.cc')

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 - channel.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="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> <meta name="colorscheme" content="minimal"> <style type="text/css">  </style> <script type='text/javascript'>  </script> </head> <body onload='JumpToLine();'> <pre id='vimCodeElement'> 1 # example program: communicating between routines using channels 2 3 def <a href='channel.mu.html#L3'>producer</a> sink:&:sink:char -> sink:&:sink:char [ 4 # produce characters 1 to 5 on a channel 5 local-scope 6 load-ingredients 7 # n = 0 8 n:char <- copy 0 9 { 10 ¦ done?:bool <- lesser-than n, 5 11 ¦ break-unless done? 12 ¦ # other threads might get between these prints 13 ¦ $print [produce: ], n, [ 14 ] 15 ¦ sink <- <a href='075channel.mu.html#L66'>write</a> sink, n 16 ¦ n <- add n, 1 17 ¦ loop 18 } 19 close sink 20 ] 21 22 def <a href='channel.mu.html#L22'>consumer</a> source:&:source:char -> source:&:source:char [ 23 # consume and print integers from a channel 24 local-scope 25 load-ingredients 26 { 27 ¦ # read an integer from the channel 28 ¦ n:char, eof?:bool, source <- read source 29 ¦ break-if eof? 30 ¦ # other threads might get between these prints 31 ¦ $print [consume: ], n:char, [ 32 ] 33 ¦ loop 34 } 35 ] 36 37 def <a href='channel.mu.html#L37'>main</a> [ 38 local-scope 39 source:&:source:char, sink:&:sink:char <- <a href='075channel.mu.html#L51'>new-channel</a> 3/capacity 40 # create two background 'routines' that communicate by a channel 41 routine1:num <- start-running <a href='channel.mu.html#L3'>producer</a>, sink 42 routine2:num <- start-running <a href='channel.mu.html#L22'>consumer</a>, source 43 wait-for-routine routine1 44 wait-for-routine routine2 45 ] </pre> </body> </html>


context:
space:
mode: