From 2a1f14a4ef5efe8084d6cd0468af00c8828b2bb5 Mon Sep 17 00:00:00 2001
From: ken <ken@mihrtec.com>
Date: Fri, 16 Mar 2018 22:27:08 -0700
Subject: [PATCH] json testing

---
 forth.forth | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/forth.forth b/forth.forth
index 5c9834f..8f609d7 100644
--- a/forth.forth
+++ b/forth.forth
@@ -155,6 +155,24 @@ here define-does then compiling ;
 : '> word find-does ;
 :> '> word find-does , ;
 
+\ CHAR 
+: CHAR: word drop @8_u ;
+:> CHAR: lit lit , ' char: execute , ;
+
+\ JSON Compiler
+: JSON-CTRL-CHAR? char: { =? if 1 ;; then
+                  char: } =? if 1 ;; then
+                  char: [ =? if 1 ;; then
+                  char: ] =? if 1 ;; then
+                  0 ;
+: JSON-PARSE-V ;
+: JSON-PARSE-" ;
+: JSON-PARSE-[ ;
+: JSON-PARSE-{ ;
+: JSON-WORD word-start key JSON-CTRL-CHAR? if word-end ;; then ws?   ;
+
+: JSON{ key ; 
+
 \ Include a remote file
 : REQUIRE" ' quit channel-open dup \' " \, fetch channel-await ;
 
-- 
2.18.0