diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2016-01-26 23:47:23 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2016-01-26 23:47:23 -0800 |
| commit | d009e158803956c76adbf8f58a62884c3e7affb3 (patch) | |
| tree | b88198e28d15cd1fc064f5300365a190decc4c50 /html/076stream.mu.html | |
| parent | 2da43c9462c7b7c1bb78d2f2826b3b97b4874973 (diff) | |
| download | mu-d009e158803956c76adbf8f58a62884c3e7affb3.tar.gz | |
2605
Diffstat (limited to 'html/076stream.mu.html')
| -rw-r--r-- | html/076stream.mu.html | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/html/076stream.mu.html b/html/076stream.mu.html index 91861d7d..ec37fd4b 100644 --- a/html/076stream.mu.html +++ b/html/076stream.mu.html @@ -32,41 +32,41 @@ body { font-family: monospace; color: #eeeeee; background-color: #080808; } <span class="Comment"># new type to help incrementally read texts (arrays of characters)</span> <span class="muData">container</span> stream [ index:number - data:address:array:character + data:address:shared:array:character ] -<span class="muRecipe">recipe</span> new-stream s:address:array:character<span class="muRecipe"> -> </span>result:address:stream [ +<span class="muRecipe">recipe</span> new-stream s:address:shared:array:character<span class="muRecipe"> -> </span>result:address:shared:stream [ <span class="Constant">local-scope</span> <span class="Constant">load-ingredients</span> result<span class="Special"> <- </span>new <span class="Constant">stream:type</span> i:address:number<span class="Special"> <- </span>get-address *result, <span class="Constant">index:offset</span> *i<span class="Special"> <- </span>copy <span class="Constant">0</span> - d:address:address:array:character<span class="Special"> <- </span>get-address *result, <span class="Constant">data:offset</span> + d:address:address:shared:array:character<span class="Special"> <- </span>get-address *result, <span class="Constant">data:offset</span> *d<span class="Special"> <- </span>copy s ] -<span class="muRecipe">recipe</span> rewind-stream in:address:stream<span class="muRecipe"> -> </span>in:address:stream [ +<span class="muRecipe">recipe</span> rewind-stream in:address:shared:stream<span class="muRecipe"> -> </span>in:address:shared:stream [ <span class="Constant">local-scope</span> <span class="Constant">load-ingredients</span> x:address:number<span class="Special"> <- </span>get-address *in, <span class="Constant">index:offset</span> *x<span class="Special"> <- </span>copy <span class="Constant">0</span> ] -<span class="muRecipe">recipe</span> read-line in:address:stream<span class="muRecipe"> -> </span>result:address:array:character, in:address:stream [ +<span class="muRecipe">recipe</span> read-line in:address:shared:stream<span class="muRecipe"> -> </span>result:address:shared:array:character, in:address:shared:stream [ <span class="Constant">local-scope</span> <span class="Constant">load-ingredients</span> idx:address:number<span class="Special"> <- </span>get-address *in, <span class="Constant">index:offset</span> - s:address:array:character<span class="Special"> <- </span>get *in, <span class="Constant">data:offset</span> + s:address:shared:array:character<span class="Special"> <- </span>get *in, <span class="Constant">data:offset</span> next-idx:number<span class="Special"> <- </span>find-next s, <span class="Constant">10/newline</span>, *idx - result<span class="Special"> <- </span>copy s, *idx, next-idx + result<span class="Special"> <- </span>copy-range s, *idx, next-idx *idx<span class="Special"> <- </span>add next-idx, <span class="Constant">1</span> <span class="Comment"># skip newline</span> ] -<span class="muRecipe">recipe</span> end-of-stream? in:address:stream<span class="muRecipe"> -> </span>result:boolean [ +<span class="muRecipe">recipe</span> end-of-stream? in:address:shared:stream<span class="muRecipe"> -> </span>result:boolean [ <span class="Constant">local-scope</span> <span class="Constant">load-ingredients</span> idx:number<span class="Special"> <- </span>get *in, <span class="Constant">index:offset</span> - s:address:array:character<span class="Special"> <- </span>get *in, <span class="Constant">data:offset</span> + s:address:shared:array:character<span class="Special"> <- </span>get *in, <span class="Constant">data:offset</span> len:number<span class="Special"> <- </span>length *s result<span class="Special"> <- </span>greater-or-equal idx, len ] |