Mercurial > repos > tabletprog
comparison modules/json.tp @ 167:5a6a55592c45
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) |