diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2015-07-12 00:11:56 -0700 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2015-07-12 00:11:56 -0700 |
| commit | d5d908dda655c791329563522faad42d7e4ee618 (patch) | |
| tree | 628b8a23e13878c45ef39dfbffb860c676da5304 /html/060string.mu.html | |
| parent | 9864bdd0792b697d7b03e692ba7f82cf5669c41c (diff) | |
| download | mu-d5d908dda655c791329563522faad42d7e4ee618.tar.gz | |
1766
Diffstat (limited to 'html/060string.mu.html')
| -rw-r--r-- | html/060string.mu.html | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/html/060string.mu.html b/html/060string.mu.html index d917c926..45ff99e2 100644 --- a/html/060string.mu.html +++ b/html/060string.mu.html @@ -145,7 +145,8 @@ container buffer [ len:address:number<span class="Special"> <- </span>get-address result:address:buffer/deref, length:offset len:address:number/deref<span class="Special"> <- </span>copy <span class="Constant">0:literal</span> s:address:address:array:character<span class="Special"> <- </span>get-address result:address:buffer/deref, data:offset - capacity:number<span class="Special"> <- </span><span class="Constant">next-ingredient</span> + capacity:number, found?:boolean<span class="Special"> <- </span><span class="Constant">next-ingredient</span> + assert found?:boolean, <span class="Constant">[new-buffer must get a capacity argument]</span> s:address:address:array:character/deref<span class="Special"> <- </span>new character:type, capacity:number <span class="CommentedCode">#? $print s:address:address:array:character/deref, [</span> <span class="CommentedCode">#? ]</span> @@ -207,7 +208,13 @@ container buffer [ in:address:buffer<span class="Special"> <- </span>grow-buffer in:address:buffer <span class="Delimiter">}</span> s:address:array:character<span class="Special"> <- </span>get in:address:buffer/deref, data:offset +<span class="CommentedCode">#? $print [array underlying buf: ], s:address:array:character, [ </span> +<span class="CommentedCode">#? ] #? 1</span> +<span class="CommentedCode">#? $print [index: ], len:address:number/deref, [ </span> +<span class="CommentedCode">#? ] #? 1</span> dest:address:character<span class="Special"> <- </span>index-address s:address:array:character/deref, len:address:number/deref +<span class="CommentedCode">#? $print [storing ], c:character, [ in ], dest:address:character, [ </span> +<span class="CommentedCode">#? ] #? 1</span> dest:address:character/deref<span class="Special"> <- </span>copy c:character len:address:number/deref<span class="Special"> <- </span>add len:address:number/deref, <span class="Constant">1:literal</span> <span class="muControl">reply</span> in:address:buffer/same-as-ingredient:0 |