life.mu - mu - Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.

about summary refs log blame commit diff stats

path: root/life.mu

blob: b3947434497da3f64b5efa51025c7c5b29972965 (plain) (tree)

7b0f543e ^

2d306e2a ^

7b0f543e ^

f7746778 ^

7b0f543e ^

9b5ead67 ^

7b0f543e ^

9b5ead67 ^

7b0f543e ^

9b5ead67 ^

7b0f543e ^

9b5ead67 ^

7b0f543e ^

9b5ead67 ^

7b0f543e ^

9b5ead67 ^

generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-09-29 08:28:38 +0000

/span> <span id="L83" class="LineNr"> 83 </span> <span class="Delimiter">{</span> <span id="L84" class="LineNr"> 84 </span><span class="CommentedCode">#? print-string 0, " "</span> <span id="L85" class="LineNr"> 85 </span><span class="CommentedCode">#? print-int32-decimal 0, i</span> <span id="L86" class="LineNr"> 86 </span><span class="CommentedCode">#? print-string 0, "\n"</span> <span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='../../309stream.subx.html#L6'>stream-empty?</a> password <span id="L88" class="LineNr"> 88 </span> compare done?, <span class="Constant">0</span>/false <span id="L89" class="LineNr"> 89 </span> <span class="PreProc">break-if-!=</span> <span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> c/eax: byte <span class="Special"><-</span> <a href='../../112read-byte.subx.html#L273'>read-byte</a> password <span id="L91" class="LineNr"> 91 </span><span class="CommentedCode">#? {</span> <span id="L92" class="LineNr"> 92 </span><span class="CommentedCode">#? var c2/eax: int <- copy c</span> <span id="L93" class="LineNr"> 93 </span><span class="CommentedCode">#? print-int32-decimal 0, c2</span> <span id="L94" class="LineNr"> 94 </span><span class="CommentedCode">#? print-string 0, "\n"</span> <span id="L95" class="LineNr"> 95 </span><span class="CommentedCode">#? }</span> <span id="L96" class="LineNr"> 96 </span> compare c, letter <span id="L97" class="LineNr"> 97 </span> <span class="Delimiter">{</span> <span id="L98" class="LineNr"> 98 </span> <span class="PreProc">break-if-!=</span> <span id="L99" class="LineNr"> 99 </span> compare i, pos1 <span id="L100" class="LineNr">100 </span> <span class="Delimiter">{</span> <span id="L101" class="LineNr">101 </span> <span class="PreProc">break-if-!=</span> <span id="L102" class="LineNr">102 </span> letter-count <span class="Special"><-</span> increment <span id="L103" class="LineNr">103 </span><span class="CommentedCode">#? print-string 0, " hit\n"</span> <span id="L104" class="LineNr">104 </span> <span class="Delimiter">}</span> <span id="L105" class="LineNr">105 </span> compare i, pos2 <span id="L106" class="LineNr">106 </span> <span class="Delimiter">{</span> <span id="L107" class="LineNr">107 </span> <span class="PreProc">break-if-!=</span> <span id="L108" class="LineNr">108 </span> letter-count <span class="Special"><-</span> increment <span id="L109" class="LineNr">109 </span><span class="CommentedCode">#? print-string 0, " hit\n"</span> <span id="L110" class="LineNr">110 </span> <span class="Delimiter">}</span> <span id="L111" class="LineNr">111 </span> <span class="Delimiter">}</span> <span id="L112" class="LineNr">112 </span> i <span class="Special"><-</span> increment <span id="L113" class="LineNr">113 </span> <span class="PreProc">loop</span> <span id="L114" class="LineNr">114 </span> <span class="Delimiter">}</span> <span id="L115" class="LineNr">115 </span> <span class="muComment"># return (letter-count == 1)</span> <span id="L116" class="LineNr">116 </span> compare letter-count, <span class="Constant">1</span> <span id="L117" class="LineNr">117 </span> <span class="Delimiter">{</span> <span id="L118" class="LineNr">118 </span> <span class="PreProc">break-if-!=</span> <span id="L119" class="LineNr">119 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true <span id="L120" class="LineNr">120 </span> <span class="Delimiter">}</span> <span id="L121" class="LineNr">121 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false <span id="L122" class="LineNr">122 </span><span class="Delimiter">}</span> </pre> </body> </html>