|
|
| version 1.74, 2004/12/23 14:51:32 | version 1.84.4.13, 2005/11/22 11:38:44 |
|---|---|
| Line 1 | Line 1 |
| @print[title;hash][key;value] | ^for[i](1;100){ |
| <p>$title ^hash.foreach[key;value]{$key}[ | ]</p> | <hr> |
| =$hash.[zzz].rrggbb= | $original[^for[j](1;$i){$j}] |
| $original[^file::create[text;original.txt;$original]] | |
| @main[] | $original.text |
| $table[^table::create{color rrggbb | <br> |
| red ff0000 | $encoded[^original.base64[]] |
| green 00ff00 | $encoded |
| blue 0000ff | <br> |
| _default 000000} | $decoded[^file::base64[$encoded]] |
| ] | $decoded.text |
| ^if($decoded.text ne $original.text){^throw[bug;here]} | |
| $c_hash[ | |
| $.red[ | |
| $.color[red] | |
| $.rrggbb[ff0000] | |
| ] | |
| $.green[ | |
| $.color[green] | |
| $.rrggbb[00ff00] | |
| ] | |
| $.blue[ | |
| $.color[blue] | |
| $.rrggbb[0000ff] | |
| ] | |
| $._default[ | |
| $.color[_default] | |
| $.rrggbb[000000] | |
| ] | |
| ] | |
| $a_hash[^table.hash[color]] | |
| ^print[a_hash:;$a_hash] | |
| $b_hash[^hash::create[]] | |
| ^table.menu{ | |
| ^b_hash.add[$.[$table.color][$table.fields]] | |
| } | } |
| ^print[b_hash:;$b_hash] | |
| ^print[c_hash:;$c_hash] | |