Mercurial > repos > tabletprog

annotate samples/testdict.tp @ 242:0e7982adc76b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Make the successful return value from a match expression be truthy and the failure value false. This avoids an extra method call when checking the result and avoids allocating a new object when a match fails.
author Mike Pavone <pavone@retrodev.com>
date Sun, 05 Jan 2014 20:56:25 -0800
parents 6735db9b44ba
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
94
6735db9b44ba Fixed my foreach on dict. Added test for it.
William Morgan <bill@mrgn.org>
parents:
diff changeset
1 #{
6735db9b44ba Fixed my foreach on dict. Added test for it.
William Morgan <bill@mrgn.org>
parents:
diff changeset
2 main <- {
6735db9b44ba Fixed my foreach on dict. Added test for it.
William Morgan <bill@mrgn.org>
parents:
diff changeset
3 foo <- dict linear:
6735db9b44ba Fixed my foreach on dict. Added test for it.
William Morgan <bill@mrgn.org>
parents:
diff changeset
4 foo set: "key1" "val1"
6735db9b44ba Fixed my foreach on dict. Added test for it.
William Morgan <bill@mrgn.org>
parents:
diff changeset
5 foo set: "key2" "val2"
6735db9b44ba Fixed my foreach on dict. Added test for it.
William Morgan <bill@mrgn.org>
parents:
diff changeset
6 foreach: foo :k :v {
6735db9b44ba Fixed my foreach on dict. Added test for it.
William Morgan <bill@mrgn.org>
parents:
diff changeset
7 print: k . ", " . v . "\n"
6735db9b44ba Fixed my foreach on dict. Added test for it.
William Morgan <bill@mrgn.org>
parents:
diff changeset
8 }
6735db9b44ba Fixed my foreach on dict. Added test for it.
William Morgan <bill@mrgn.org>
parents:
diff changeset
9
6735db9b44ba Fixed my foreach on dict. Added test for it.
William Morgan <bill@mrgn.org>
parents:
diff changeset
10 }
6735db9b44ba Fixed my foreach on dict. Added test for it.
William Morgan <bill@mrgn.org>
parents:
diff changeset
11 }