diff options
Diffstat (limited to 'html/088file.mu.html')
| -rw-r--r-- | html/088file.mu.html | 94 |
1 files changed, 47 insertions, 47 deletions
diff --git a/html/088file.mu.html b/html/088file.mu.html index 4dd739ea..e6ef6e98 100644 --- a/html/088file.mu.html +++ b/html/088file.mu.html @@ -49,26 +49,26 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color <span class="Delimiter">{</span> <span class="muControl">break-if</span> resources <span class="Comment"># real file system</span> - file:num<span class="Special"> <- </span>$open-file-for-reading filename + file:num <span class="Special"><-</span> $open-file-for-reading filename assert file, <span class="Constant">[file not found]</span> - contents:&:source:char, sink:&:sink:char<span class="Special"> <- </span>new-channel <span class="Constant">30</span> + contents:&:source:char, sink:&:sink:char <span class="Special"><-</span> new-channel<span class="Constant"> 30</span> start-running receive-from-file file, sink <span class="muControl">return</span> <span class="Delimiter">}</span> <span class="Comment"># fake file system</span> - i:num<span class="Special"> <- </span>copy <span class="Constant">0</span> - data:&:@:resource<span class="Special"> <- </span>get *resources, <span class="Constant">data:offset</span> - len:num<span class="Special"> <- </span>length *data + i:num <span class="Special"><-</span> copy<span class="Constant"> 0</span> + data:&:@:resource <span class="Special"><-</span> get *resources, <span class="Constant">data:offset</span> + len:num <span class="Special"><-</span> length *data <span class="Delimiter">{</span> - done?:bool<span class="Special"> <- </span>greater-or-equal i, len + done?:bool <span class="Special"><-</span> greater-or-equal i, len <span class="muControl">break-if</span> done? - tmp:resource<span class="Special"> <- </span>index *data, i - i<span class="Special"> <- </span>add i, <span class="Constant">1</span> - curr-filename:text<span class="Special"> <- </span>get tmp, <span class="Constant">name:offset</span> - found?:bool<span class="Special"> <- </span>equal filename, curr-filename + tmp:resource <span class="Special"><-</span> index *data, i + i <span class="Special"><-</span> add i,<span class="Constant"> 1</span> + curr-filename:text <span class="Special"><-</span> get tmp, <span class="Constant">name:offset</span> + found?:bool <span class="Special"><-</span> equal filename, curr-filename <span class="muControl">loop-unless</span> found? - contents:&:source:char, sink:&:sink:char<span class="Special"> <- </span>new-channel <span class="Constant">30</span> - curr-contents:text<span class="Special"> <- </span>get tmp, <span class="Constant">contents:offset</span> + contents:&:source:char, sink:&:sink:char <span class="Special"><-</span> new-channel<span class="Constant"> 30</span> + curr-contents:text <span class="Special"><-</span> get tmp, <span class="Constant">contents:offset</span> start-running receive-from-text curr-contents, sink <span class="muControl">return</span> <span class="Delimiter">}</span> @@ -79,99 +79,99 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color <span class="Constant">local-scope</span> <span class="Constant">load-ingredients</span> <span class="Delimiter">{</span> - c:char, eof?:bool<span class="Special"> <- </span>$read-from-file file + c:char, eof?:bool <span class="Special"><-</span> $read-from-file file <span class="muControl">break-if</span> eof? - sink<span class="Special"> <- </span>write sink, c + sink <span class="Special"><-</span> write sink, c <span class="muControl">loop</span> <span class="Delimiter">}</span> - sink<span class="Special"> <- </span>close sink - file<span class="Special"> <- </span>$close-file file + sink <span class="Special"><-</span> close sink + file <span class="Special"><-</span> $close-file file ] <span class="muRecipe">def</span> receive-from-text contents:text, sink:&:sink:char<span class="muRecipe"> -> </span>sink:&:sink:char [ <span class="Constant">local-scope</span> <span class="Constant">load-ingredients</span> - i:num<span class="Special"> <- </span>copy <span class="Constant">0</span> - len:num<span class="Special"> <- </span>length *contents + i:num <span class="Special"><-</span> copy<span class="Constant"> 0</span> + len:num <span class="Special"><-</span> length *contents <span class="Delimiter">{</span> - done?:bool<span class="Special"> <- </span>greater-or-equal i, len + done?:bool <span class="Special"><-</span> greater-or-equal i, len <span class="muControl">break-if</span> done? - c:char<span class="Special"> <- </span>index *contents, i - sink<span class="Special"> <- </span>write sink, c - i<span class="Special"> <- </span>add i, <span class="Constant">1</span> + c:char <span class="Special"><-</span> index *contents, i + sink <span class="Special"><-</span> write sink, c + i <span class="Special"><-</span> add i,<span class="Constant"> 1</span> <span class="muControl">loop</span> <span class="Delimiter">}</span> - sink<span class="Special"> <- </span>close sink + sink <span class="Special"><-</span> close sink ] <span class="muRecipe">def</span> start-writing resources:&:resources, filename:text<span class="muRecipe"> -> </span>sink:&:sink:char, routine-id:num [ <span class="Constant">local-scope</span> <span class="Constant">load-ingredients</span> - source:&:source:char, sink:&:sink:char<span class="Special"> <- </span>new-channel <span class="Constant">30</span> + source:&:source:char, sink:&:sink:char <span class="Special"><-</span> new-channel<span class="Constant"> 30</span> <span class="Delimiter">{</span> <span class="muControl">break-if</span> resources <span class="Comment"># real file system</span> - file:num<span class="Special"> <- </span>$open-file-for-writing filename + file:num <span class="Special"><-</span> $open-file-for-writing filename assert file, <span class="Constant">[no such file]</span> - routine-id<span class="Special"> <- </span>start-running transmit-to-file file, source + routine-id <span class="Special"><-</span> start-running transmit-to-file file, source <span class="muControl">reply</span> <span class="Delimiter">}</span> <span class="Comment"># fake file system</span> <span class="Comment"># beware: doesn't support multiple concurrent writes yet</span> - routine-id<span class="Special"> <- </span>start-running transmit-to-fake-file resources, filename, source + routine-id <span class="Special"><-</span> start-running transmit-to-fake-file resources, filename, source ] <span class="muRecipe">def</span> transmit-to-file file:num, source:&:source:char<span class="muRecipe"> -> </span>source:&:source:char [ <span class="Constant">local-scope</span> <span class="Constant">load-ingredients</span> <span class="Delimiter">{</span> - c:char, done?:bool, source<span class="Special"> <- </span>read source + c:char, done?:bool, source <span class="Special"><-</span> read source <span class="muControl">break-if</span> done? $write-to-file file, c <span class="muControl">loop</span> <span class="Delimiter">}</span> - file<span class="Special"> <- </span>$close-file file + file <span class="Special"><-</span> $close-file file ] <span class="muRecipe">def</span> transmit-to-fake-file resources:&:resources, filename:text, source:&:source:char<span class="muRecipe"> -> </span>resources:&:resources, source:&:source:char [ <span class="Constant">local-scope</span> <span class="Constant">load-ingredients</span> <span class="Comment"># compute new file contents</span> - buf:&:buffer<span class="Special"> <- </span>new-buffer <span class="Constant">30</span> + buf:&:buffer <span class="Special"><-</span> new-buffer<span class="Constant"> 30</span> <span class="Delimiter">{</span> - c:char, done?:bool, source<span class="Special"> <- </span>read source + c:char, done?:bool, source <span class="Special"><-</span> read source <span class="muControl">break-if</span> done? - buf<span class="Special"> <- </span>append buf, c + buf <span class="Special"><-</span> append buf, c <span class="muControl">loop</span> <span class="Delimiter">}</span> - contents:text<span class="Special"> <- </span>buffer-to-array buf - new-resource:resource<span class="Special"> <- </span>merge filename, contents + contents:text <span class="Special"><-</span> buffer-to-array buf + new-resource:resource <span class="Special"><-</span> merge filename, contents <span class="Comment"># write to resources</span> - curr-filename:text<span class="Special"> <- </span>copy <span class="Constant">0</span> - data:&:@:resource<span class="Special"> <- </span>get *resources, <span class="Constant">data:offset</span> + curr-filename:text <span class="Special"><-</span> copy<span class="Constant"> 0</span> + data:&:@:resource <span class="Special"><-</span> get *resources, <span class="Constant">data:offset</span> <span class="Comment"># replace file contents if it already exists</span> - i:num<span class="Special"> <- </span>copy <span class="Constant">0</span> - len:num<span class="Special"> <- </span>length *data + i:num <span class="Special"><-</span> copy<span class="Constant"> 0</span> + len:num <span class="Special"><-</span> length *data <span class="Delimiter">{</span> - done?:bool<span class="Special"> <- </span>greater-or-equal i, len + done?:bool <span class="Special"><-</span> greater-or-equal i, len <span class="muControl">break-if</span> done? - tmp:resource<span class="Special"> <- </span>index *data, i - curr-filename<span class="Special"> <- </span>get tmp, <span class="Constant">name:offset</span> - found?:bool<span class="Special"> <- </span>equal filename, curr-filename + tmp:resource <span class="Special"><-</span> index *data, i + curr-filename <span class="Special"><-</span> get tmp, <span class="Constant">name:offset</span> + found?:bool <span class="Special"><-</span> equal filename, curr-filename <span class="muControl">loop-unless</span> found? put-index *data, i, new-resource <span class="muControl">reply</span> <span class="Delimiter">}</span> <span class="Comment"># if file didn't already exist, make room for it</span> - new-len:num<span class="Special"> <- </span>add len, <span class="Constant">1</span> - new-data:&:@:resource<span class="Special"> <- </span>new <span class="Constant">resource:type</span>, new-len + new-len:num <span class="Special"><-</span> add len,<span class="Constant"> 1</span> + new-data:&:@:resource <span class="Special"><-</span> new <span class="Constant">resource:type</span>, new-len put *resources, <span class="Constant">data:offset</span>, new-data <span class="Comment"># copy over old files</span> - i:num<span class="Special"> <- </span>copy <span class="Constant">0</span> + i:num <span class="Special"><-</span> copy<span class="Constant"> 0</span> <span class="Delimiter">{</span> - done?:bool<span class="Special"> <- </span>greater-or-equal i, len + done?:bool <span class="Special"><-</span> greater-or-equal i, len <span class="muControl">break-if</span> done? - tmp:resource<span class="Special"> <- </span>index *data, i + tmp:resource <span class="Special"><-</span> index *data, i put-index *new-data, i, tmp <span class="Delimiter">}</span> <span class="Comment"># write new file</span> |