diff options
Diffstat (limited to 'html/063list.mu.html')
| -rw-r--r-- | html/063list.mu.html | 83 |
1 files changed, 43 insertions, 40 deletions
diff --git a/html/063list.mu.html b/html/063list.mu.html index 320049a1..a4c4e02e 100644 --- a/html/063list.mu.html +++ b/html/063list.mu.html @@ -13,10 +13,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #eeeeee; background-color: #080808; } body { font-family: monospace; color: #eeeeee; background-color: #080808; } * { font-size: 1.05em; } -.Special { color: #ff6060; } +.muRecipe { color: #ff8700; } +.muData { color: #ffff00; } +.muScenario { color: #00af00; } .Comment { color: #9090ff; } -.Underlined { color: #c000c0; text-decoration: underline; } -.Identifier { color: #804000; } +.Constant { color: #00a0a0; } +.Special { color: #ff6060; } +.muControl { color: #c0a020; } --> </style> @@ -29,62 +32,62 @@ body { font-family: monospace; color: #eeeeee; background-color: #080808; } <body> <pre id='vimCodeElement'> <span class="Comment"># A list links up multiple objects together to make them easier to manage.</span> -# +<span class="Comment">#</span> <span class="Comment"># Try to make all objects in a single list of the same type, it'll help avoid bugs.</span> <span class="Comment"># If you want to store multiple types in a single list, use an exclusive-container.</span> -container list [ +<span class="muData">container</span> list [ value:location next:address:list ] <span class="Comment"># result:address:list <- push x:location, in:address:list</span> -recipe push [ - <span class="Underlined">local</span>-scope - x:location<span class="Special"> <- </span>next-ingredient - <span class="Identifier">in</span>:address:list<span class="Special"> <- </span>next-ingredient - result:address:list<span class="Special"> <- </span><span class="Identifier">new</span> list:<span class="Identifier">type</span> - <span class="Identifier">val</span>:address:location<span class="Special"> <- </span>get-address *result, value:offset - *<span class="Identifier">val</span><span class="Special"> <- </span><span class="Identifier">copy</span> x - next:address:address:list<span class="Special"> <- </span>get-address *result, next:offset - *next<span class="Special"> <- </span><span class="Identifier">copy</span> <span class="Identifier">in</span> - reply result +<span class="muRecipe">recipe</span> push [ + <span class="Constant">local-scope</span> + x:location<span class="Special"> <- </span><span class="Constant">next-ingredient</span> + in:address:list<span class="Special"> <- </span><span class="Constant">next-ingredient</span> + result:address:list<span class="Special"> <- </span>new <span class="Constant">list:type</span> + val:address:location<span class="Special"> <- </span>get-address *result, <span class="Constant">value:offset</span> + *val<span class="Special"> <- </span>copy x + next:address:address:list<span class="Special"> <- </span>get-address *result, <span class="Constant">next:offset</span> + *next<span class="Special"> <- </span>copy in + <span class="muControl">reply</span> result ] <span class="Comment"># result:location <- first in:address:list</span> -recipe first [ - <span class="Underlined">local</span>-scope - <span class="Identifier">in</span>:address:list<span class="Special"> <- </span>next-ingredient - result:location<span class="Special"> <- </span>get *<span class="Identifier">in</span>, value:offset - reply result +<span class="muRecipe">recipe</span> first [ + <span class="Constant">local-scope</span> + in:address:list<span class="Special"> <- </span><span class="Constant">next-ingredient</span> + result:location<span class="Special"> <- </span>get *in, <span class="Constant">value:offset</span> + <span class="muControl">reply</span> result ] <span class="Comment"># result:address:list <- rest in:address:list</span> -recipe rest [ - <span class="Underlined">local</span>-scope - <span class="Identifier">in</span>:address:list<span class="Special"> <- </span>next-ingredient - result:address:list<span class="Special"> <- </span>get *<span class="Identifier">in</span>, next:offset - reply result +<span class="muRecipe">recipe</span> rest [ + <span class="Constant">local-scope</span> + in:address:list<span class="Special"> <- </span><span class="Constant">next-ingredient</span> + result:address:list<span class="Special"> <- </span>get *in, <span class="Constant">next:offset</span> + <span class="muControl">reply</span> result ] -scenario list-handling [ +<span class="muScenario">scenario</span> list-handling [ run [ - 1:address:list<span class="Special"> <- </span><span class="Identifier">copy</span> 0 - 1:address:list<span class="Special"> <- </span>push 3, 1:address:list - 1:address:list<span class="Special"> <- </span>push 4, 1:address:list - 1:address:list<span class="Special"> <- </span>push 5, 1:address:list - 2:number<span class="Special"> <- </span>first 1:address:list - 1:address:list<span class="Special"> <- </span>rest 1:address:list - 3:number<span class="Special"> <- </span>first 1:address:list - 1:address:list<span class="Special"> <- </span>rest 1:address:list - 4:number<span class="Special"> <- </span>first 1:address:list - 1:address:list<span class="Special"> <- </span>rest 1:address:list + <span class="Constant">1</span>:address:list<span class="Special"> <- </span>copy <span class="Constant">0</span> + <span class="Constant">1</span>:address:list<span class="Special"> <- </span>push <span class="Constant">3</span>, <span class="Constant">1</span>:address:list + <span class="Constant">1</span>:address:list<span class="Special"> <- </span>push <span class="Constant">4</span>, <span class="Constant">1</span>:address:list + <span class="Constant">1</span>:address:list<span class="Special"> <- </span>push <span class="Constant">5</span>, <span class="Constant">1</span>:address:list + <span class="Constant">2</span>:number<span class="Special"> <- </span>first <span class="Constant">1</span>:address:list + <span class="Constant">1</span>:address:list<span class="Special"> <- </span>rest <span class="Constant">1</span>:address:list + <span class="Constant">3</span>:number<span class="Special"> <- </span>first <span class="Constant">1</span>:address:list + <span class="Constant">1</span>:address:list<span class="Special"> <- </span>rest <span class="Constant">1</span>:address:list + <span class="Constant">4</span>:number<span class="Special"> <- </span>first <span class="Constant">1</span>:address:list + <span class="Constant">1</span>:address:list<span class="Special"> <- </span>rest <span class="Constant">1</span>:address:list ] memory-should-contain [ - 1<span class="Special"> <- </span>0 <span class="Comment"># empty to empty, dust to dust..</span> - 2<span class="Special"> <- </span>5 - 3<span class="Special"> <- </span>4 - 4<span class="Special"> <- </span>3 + <span class="Constant">1</span><span class="Special"> <- </span><span class="Constant">0</span> <span class="Comment"># empty to empty, dust to dust..</span> + <span class="Constant">2</span><span class="Special"> <- </span><span class="Constant">5</span> + <span class="Constant">3</span><span class="Special"> <- </span><span class="Constant">4</span> + <span class="Constant">4</span><span class="Special"> <- </span><span class="Constant">3</span> ] ] </pre> |