Mercurial > repos > tabletprog
diff modules/json.tp @ 365:3d36d69aab7f
Fix JSON decoder to align with language changes
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Fri, 07 Aug 2015 21:40:08 -0700 |
parents | eef8a5cea812 |
children | e2c1309ab750 |
line wrap: on
line diff
--- a/modules/json.tp Sun Apr 26 11:16:14 2015 -0700 +++ b/modules/json.tp Fri Aug 07 21:40:08 2015 -0700 @@ -18,7 +18,7 @@ t <- "t" byte: 0 f <- "f" byte: 0 - parseNumAt <- :str :at :recvResult { + parseNumAt <- :str at { num <- 0 l <- str length minus <- false @@ -56,7 +56,7 @@ } } - parseStrAt <- :src :at :recvResult { + parseStrAt <- :src at { //TODO: Deal with escaped characters end <- src find: "\"" startingAt: at + 1 else: { src length } #{ @@ -69,10 +69,10 @@ ret <- false b <- text byte: cur if: b = neg || b >= zero && b <= nine { - text parseNumAt: cur + parseNumAt: text cur } else: { if: b = quote { - text parseStrAt: cur + parseStrAt: text cur } else: { if: b = startArr { len <- text length