diff options
-rw-r--r-- | html/022arithmetic.cc.html | 35 | ||||
-rw-r--r-- | html/032array.cc.html | 11 |
2 files changed, 46 insertions, 0 deletions
diff --git a/html/022arithmetic.cc.html b/html/022arithmetic.cc.html index b18bc7d2..e3474849 100644 --- a/html/022arithmetic.cc.html +++ b/html/022arithmetic.cc.html @@ -763,6 +763,41 @@ put<span class="Delimiter">(</span>Recipe_ordinal<span class="Delimiter">,</span <span class="traceContains">+mem: storing -12 in location 1</span> <span class="Delimiter">:(before "End Primitive Recipe Declarations")</span> +TRUNCATE<span class="Delimiter">,</span> +<span class="Delimiter">:(before "End Primitive Recipe Numbers")</span> +put<span class="Delimiter">(</span>Recipe_ordinal<span class="Delimiter">,</span> <span class="Constant">"truncate"</span><span class="Delimiter">,</span> TRUNCATE<span class="Delimiter">);</span> +<span class="Delimiter">:(before "End Primitive Recipe Checks")</span> +<span class="Normal">case</span> TRUNCATE: <span class="Delimiter">{</span> + <span class="Normal">if</span> <span class="Delimiter">(</span>SIZE<span class="Delimiter">(</span>inst<span class="Delimiter">.</span>ingredients<span class="Delimiter">)</span> != <span class="Constant">1</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> + raise << maybe<span class="Delimiter">(</span>get<span class="Delimiter">(</span>Recipe<span class="Delimiter">,</span> r<span class="Delimiter">).</span>name<span class="Delimiter">)</span> << <span class="Constant">"'truncate' requires exactly one ingredient, but got '"</span> << inst<span class="Delimiter">.</span>original_string << <span class="Constant">"'</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> + <span class="Identifier">break</span><span class="Delimiter">;</span> + <span class="Delimiter">}</span> + <span class="Normal">if</span> <span class="Delimiter">(</span>!is_mu_number<span class="Delimiter">(</span>inst<span class="Delimiter">.</span>ingredients<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">)))</span> <span class="Delimiter">{</span> + raise << maybe<span class="Delimiter">(</span>get<span class="Delimiter">(</span>Recipe<span class="Delimiter">,</span> r<span class="Delimiter">).</span>name<span class="Delimiter">)</span> << <span class="Constant">"first ingredient of 'truncate' should be a number, but got '"</span> << inst<span class="Delimiter">.</span>ingredients<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">).</span>original_string << <span class="Constant">"'</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> + <span class="Identifier">break</span><span class="Delimiter">;</span> + <span class="Delimiter">}</span> + <span class="Identifier">break</span><span class="Delimiter">;</span> +<span class="Delimiter">}</span> +<span class="Delimiter">:(before "End Primitive Recipe Implementations")</span> +<span class="Normal">case</span> TRUNCATE: <span class="Delimiter">{</span> + products<span class="Delimiter">.</span>resize<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> + products<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">).</span>push_back<span class="Delimiter">(</span>trunc<span class="Delimiter">(</span>ingredients<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">).</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">)));</span> + <span class="Identifier">break</span><span class="Delimiter">;</span> +<span class="Delimiter">}</span> + +<span class="Delimiter">:(scenario truncate_to_nearest_integer)</span> +<span class="muRecipe">def</span> main [ + <span class="Constant">1</span>:num<span class="Special"> <- </span>truncate <span class="Constant">12.2</span> +] +<span class="traceContains">+mem: storing 12 in location 1</span> + +<span class="Delimiter">:(scenario truncate_negative)</span> +<span class="muRecipe">def</span> main [ + <span class="Constant">1</span>:num<span class="Special"> <- </span>truncate -<span class="Constant">12.2</span> +] +<span class="traceContains">+mem: storing -12 in location 1</span> + +<span class="Delimiter">:(before "End Primitive Recipe Declarations")</span> CHARACTER_TO_CODE<span class="Delimiter">,</span> <span class="Delimiter">:(before "End Primitive Recipe Numbers")</span> put<span class="Delimiter">(</span>Recipe_ordinal<span class="Delimiter">,</span> <span class="Constant">"character-to-code"</span><span class="Delimiter">,</span> CHARACTER_TO_CODE<span class="Delimiter">);</span> diff --git a/html/032array.cc.html b/html/032array.cc.html index 2a3d7b1b..d8264b08 100644 --- a/html/032array.cc.html +++ b/html/032array.cc.html @@ -342,6 +342,17 @@ type_tree* copy_array_element<span class="Delimiter">(</span><span class="Normal CHECK_EQ<span class="Delimiter">(</span>array_length<span class="Delimiter">(</span>x<span class="Delimiter">),</span> <span class="Constant">3</span><span class="Delimiter">);</span> <span class="Delimiter">}</span> +<span class="Delimiter">:(scenario index_truncates)</span> +<span class="muRecipe">def</span> main [ + <span class="Constant">1</span>:array:num:<span class="Constant">3</span><span class="Special"> <- </span>create-array + <span class="Constant">2</span>:num<span class="Special"> <- </span>copy <span class="Constant">14</span> + <span class="Constant">3</span>:num<span class="Special"> <- </span>copy <span class="Constant">15</span> + <span class="Constant">4</span>:num<span class="Special"> <- </span>copy <span class="Constant">16</span> + <span class="Constant">5</span>:num<span class="Special"> <- </span>index <span class="Constant">1</span>:array:num:<span class="Constant">3</span><span class="Delimiter">,</span> <span class="Constant">1.5</span> <span class="Comment"># non-whole number</span> +] +<span class="Comment"># fraction is truncated away</span> +<span class="traceContains">+mem: storing 15 in location 5</span> + <span class="Delimiter">:(scenario index_out_of_bounds)</span> <span class="Special">% Hide_errors = true;</span> <span class="muRecipe">def</span> main [ |