diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2016-11-23 14:01:07 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2016-11-23 14:01:07 -0800 |
| commit | ca4210b479603ccc25b274d7c3489eac0f9a22d6 (patch) | |
| tree | 88a779ba90878f3993e14a942bd168476aeaa866 /html/061text.mu.html | |
| parent | 6f69d5d9af1860ce1a9dff9f89c2aafa5a3e6dac (diff) | |
| download | mu-ca4210b479603ccc25b274d7c3489eac0f9a22d6.tar.gz | |
3683
Diffstat (limited to 'html/061text.mu.html')
| -rw-r--r-- | html/061text.mu.html | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/html/061text.mu.html b/html/061text.mu.html index 95ad7a28..5f9ba882 100644 --- a/html/061text.mu.html +++ b/html/061text.mu.html @@ -37,6 +37,11 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color <span class="muRecipe">def</span> equal a:text, b:text<span class="muRecipe"> -> </span>result:bool [ <span class="Constant">local-scope</span> <span class="Constant">load-ingredients</span> + an:num, bn:num <span class="Special"><-</span> copy a, b + address-equal?:boolean <span class="Special"><-</span> equal an, bn + <span class="muControl">reply-if</span> address-equal?, <span class="Constant">1/true</span> + <span class="muControl">reply-unless</span> a, <span class="Constant">0/false</span> + <span class="muControl">reply-unless</span> b, <span class="Constant">0/false</span> a-len:num <span class="Special"><-</span> length *a b-len:num <span class="Special"><-</span> length *b <span class="Comment"># compare lengths</span> @@ -118,6 +123,27 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color ] ] +<span class="muScenario">scenario</span> text-equal-with-null [ + <span class="Constant">local-scope</span> + x:text <span class="Special"><-</span> new <span class="Constant">[abcd]</span> + y:text <span class="Special"><-</span> copy<span class="Constant"> 0</span> + run [ + 10:bool/<span class="Special">raw</span> <span class="Special"><-</span> equal x,<span class="Constant"> 0</span> + 11:bool/<span class="Special">raw</span> <span class="Special"><-</span> equal<span class="Constant"> 0</span>, x + 12:bool/<span class="Special">raw</span> <span class="Special"><-</span> equal x, y + 13:bool/<span class="Special">raw</span> <span class="Special"><-</span> equal y, x + 14:bool/<span class="Special">raw</span> <span class="Special"><-</span> equal y, y + ] + memory-should-contain [ + <span class="Constant"> 10</span> <span class="Special"><-</span><span class="Constant"> 0</span> + <span class="Constant"> 11</span> <span class="Special"><-</span><span class="Constant"> 0</span> + <span class="Constant"> 12</span> <span class="Special"><-</span><span class="Constant"> 0</span> + <span class="Constant"> 13</span> <span class="Special"><-</span><span class="Constant"> 0</span> + <span class="Constant"> 14</span> <span class="Special"><-</span><span class="Constant"> 1</span> + ] + check-trace-count-for-label<span class="Constant"> 0</span>, <span class="Constant">[error]</span> +] + <span class="muScenario">scenario</span> text-equal-common-lengths-but-distinct [ <span class="Constant">local-scope</span> x:text <span class="Special"><-</span> new <span class="Constant">[abc]</span> |