Mercurial > repos > tabletprog

comparison modules/json.tp @ 167:5a6a55592c45

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix some JSON parser bugs
author Mike Pavone <pavone@retrodev.com>
date Sun, 11 Aug 2013 03:01:05 -0700
parents e7642715d575
children 9d8ae39e8e67
comparison
equal deleted inserted replaced
166:e7642715d575 167:5a6a55592c45
8 zero <- "0" byte: 0 8 zero <- "0" byte: 0
9 nine <- "9" byte: 0 9 nine <- "9" byte: 0
10 neg <- "-" byte: 0 10 neg <- "-" byte: 0
11 space <- " " byte: 0 11 space <- " " byte: 0
12 comma <- "," byte: 0 12 comma <- "," byte: 0
13 tab <- "\t" byte: 0 13 tab <- " " byte: 0
14 nl <- "\n" byte: 0 14 nl <- "\n" byte: 0
15 cr <- "\r" byte: 0 15 cr <- "\r" byte: 0
16 colon <- ":" byte: 0 16 colon <- ":" byte: 0
17 t <- "t" byte: 0 17 t <- "t" byte: 0
18 f <- "f" byte: 0 18 f <- "f" byte: 0
109 cur <- len 109 cur <- len
110 } else: { 110 } else: {
111 kd <- _decode: text at: cur 111 kd <- _decode: text at: cur
112 key <- kd value 112 key <- kd value
113 cur <- kd after 113 cur <- kd after
114
114 expectKey <- false 115 expectKey <- false
115 } 116 }
116 } else: { 117 } else: {
117 el <- _decode: text at: cur 118 el <- _decode: text at: cur
118 val set: key (el value) 119 val set: key (el value)