Mercurial > repos > tabletprog

comparison modules/dict.tp @ 75:2dca1a880c00

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove debug print calls from dict
author Mike Pavone <pavone@retrodev.com>
date Sat, 14 Jul 2012 21:23:23 -0700
parents 434988bb1fb4
children 3bf57ace3e0b
comparison
equal deleted inserted replaced
74:434988bb1fb4 75:2dca1a880c00
7 val <- v 7 val <- v
8 } 8 }
9 } 9 }
10 els <- #[] 10 els <- #[]
11 find <- :tofind { 11 find <- :tofind {
12 print: "dict find "
13 print: "dict find " . tofind . "\n"
14 idx <- 0 12 idx <- 0
15 while: { 13 while: {
16 if: idx < (els length) { 14 if: idx < (els length) {
17 ((els get: idx) key: ) != tofind 15 ((els get: idx) key: ) != tofind
18 } else: {false} 16 } else: {false}
21 } 19 }
22 if: idx < (els length) {idx} else: {-1} 20 if: idx < (els length) {idx} else: {-1}
23 } 21 }
24 #{ 22 #{
25 set <- :k v { 23 set <- :k v {
26 print: "linear dict set\n"
27 idx <- find: k 24 idx <- find: k
28 print: "find returned: " . idx . "\n"
29 if: idx < 0 { 25 if: idx < 0 {
30 els append: (key: k val: v) 26 els append: (key: k val: v)
31 } else: { 27 } else: {
32 (els get: idx) val!: v 28 (els get: idx) val!: v
33 } 29 }
34 self 30 self
35 } 31 }
36 32
37 get <- :k { 33 get <- :k {
38 print: "linear dict get\n"
39 get: k withDefault: false 34 get: k withDefault: false
40 } 35 }
41 36
42 get:withDefault <- :k default { 37 get:withDefault <- :k default {
43 print: "linear dict get:withDefault\n"
44 idx <- find: k 38 idx <- find: k
45 if: idx < 0 { 39 if: idx < 0 {
46 default 40 default
47 } else: { 41 } else: {
48 (els get: idx) val 42 (els get: idx) val