From 2439a77d0c4f77420edb04e77be6aa664b85f842 Mon Sep 17 00:00:00 2001
From: tv <tv@also>
Date: Wed, 3 Nov 2010 06:36:19 +0100
Subject: json.sh, test.json: initial commit

---
 json.sh   | 109 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 test.json |   5 +++
 2 files changed, 114 insertions(+)
 create mode 100755 json.sh
 create mode 100644 test.json

diff --git a/json.sh b/json.sh
new file mode 100755
index 00000000..1c734b94
--- /dev/null
+++ b/json.sh
@@ -0,0 +1,109 @@
+#! /bin/sh
+set -euf
+
+# TODO check json first
+
+normalize_json() {
+  sed -rn '
+    1s/^/cat<<EOF\n/
+    # TODO handle escaped double quotes
+    s/"[^"]+"/"$(echo -n & | base64)"/g
+    $s/$/\nEOF/
+    p
+  ' | sh | tr -d '[:space:]'
+}
+
+json_to_sh() {
+  sed -rn '
+    s/,/;/g
+    s/\[/begin_json_array;/g; s/\]/end_json_array;/g
+    s/\{/begin_json_object;/g; s/\}/end_json_object;/g
+    s/("[^"]+"):/json_set_key \1;/g
+    s/;("[^"]+")/;json_set STR \1;/g
+    s/;([0-9]+)/;json_set INT `echo -n \1 | base64`;/g
+    s/;;/;/g
+    s/;/\n/g
+    p
+  '
+}
+
+begin_json_object() {
+  push_key %%%MAKEJSONOBJ%%%
+}
+end_json_object() {
+  #echo end_json_object: $key >&2
+  #echo `echo "$key_stack" | head -n 1` >&2
+  pop_key # TODO check if is %%%MAKEJSONOBJ%%%
+  set -- `print_key`
+  #echo object: $1 >&2; set | sed -rn "s/^($1_[a-zA-Z]+)_VALUE=(.*)/\1/p" >&2
+  json_set OBJ "`set | sed -rn "s/^($1_[a-zA-Z]+)_VALUE=(.*)/\1/p"`"
+}
+begin_json_array() { :; }
+end_json_array() { :; }
+json_push_key() {
+  push_key "`echo -n "$1" | base64 -d`"
+}
+json_set_key() {
+  pop_key
+  json_push_key "$1"
+}
+json_set() {
+  ##echo "`print_key`$1=$2 (`echo -n $2 | base64 -d`)" >&2
+  #echo "`print_key`TYPE=$1" >&2
+  #echo "`print_key`VALUE=\"$2\"" >&2 # (`echo -n $2 | base64 -d`)" >&2
+  eval "`print_key`_TYPE=$1"
+  eval "`print_key`_VALUE=\"$2\""
+}
+
+push_key() {
+  key="${key+${key}_}$1"
+  #key_stack="$1
+#$key_stack"
+}
+pop_key() {
+  key="`echo $key | sed 's/_[^_]\+$//'`"
+  #key_stack="`echo "$key_stack" | sed 1d`"
+}
+print_key() {
+  ##echo \<`echo print_key: $key`, `echo "$key_stack" | tac | tr '\n' _`\> >&2
+  #echo "$key_stack" | tac | tr '\n' _
+  echo -n "$key"
+}
+
+json() {
+  #eval echo "\"\$`echo -n JSON "$@" | tr "$IFS" _`\" | base64 -d"
+  NAME="`echo -n JSON "$@" | tr "$IFS" _`"
+  eval "TYPE=\"\$${NAME}_TYPE\""
+
+  echo -n "$TYPE $NAME: "
+  case "$TYPE" in
+    (OBJ)
+      eval echo -n \$${NAME}_VALUE
+      ;;
+      #set | sed -rn "s/^(${NAME})_([a-zA-Z]+)[a-zA-Z_]*_VALUE=(.*)/\1_\2/p" |
+      #    sort | uniq | tr \\n \ ;;
+    (*) #echo -n "$VALUE";;
+      #eval "VALUE=\"\$(echo -n \"\$${NAME}_VALUE\" | base64 -d)\""
+      eval echo -n \"\$${NAME}_VALUE\" | base64 -d
+  esac
+  echo
+}
+
+key='JSON'
+#key_stack='JSON'
+meh="`cat`"
+echo "$meh"
+#echo "$meh" | normalize_json | json_to_sh; exit
+eval "`echo "$meh" | normalize_json | json_to_sh`"
+#echo ====
+#set | grep '^JSON[A-Za-z_]*='
+#echo ====
+json
+json a
+json b
+json c
+json c ca
+json c cb
+
+echo READY.
+#### End of file.
diff --git a/test.json b/test.json
new file mode 100644
index 00000000..7da5175d
--- /dev/null
+++ b/test.json
@@ -0,0 +1,5 @@
+{
+  "a": "1",
+  "b": 2,
+  "c": { "ca": 11, "cb": [1, 2, 3] }
+}
-- 
cgit v1.2.3


From 1b9f91da01ae46d7d316c676ce2c121dd2a9588f Mon Sep 17 00:00:00 2001
From: tv <tv@also>
Date: Wed, 3 Nov 2010 16:26:00 +0100
Subject: json.sh: renamed types like STR -> string

---
 json.sh | 81 +++++++++++++++++++++++++++++++++++------------------------------
 1 file changed, 44 insertions(+), 37 deletions(-)

diff --git a/json.sh b/json.sh
index 1c734b94..8297a853 100755
--- a/json.sh
+++ b/json.sh
@@ -3,6 +3,8 @@ set -euf
 
 # TODO check json first
 
+# XXX json_key is something like PWD^^
+
 normalize_json() {
   sed -rn '
     1s/^/cat<<EOF\n/
@@ -19,8 +21,8 @@ json_to_sh() {
     s/\[/begin_json_array;/g; s/\]/end_json_array;/g
     s/\{/begin_json_object;/g; s/\}/end_json_object;/g
     s/("[^"]+"):/json_set_key \1;/g
-    s/;("[^"]+")/;json_set STR \1;/g
-    s/;([0-9]+)/;json_set INT `echo -n \1 | base64`;/g
+    s/;("[^"]+")/;json_set string \1;/g
+    s/;([0-9]+)/;json_set number `echo -n \1 | base64`;/g
     s/;;/;/g
     s/;/\n/g
     p
@@ -31,12 +33,11 @@ begin_json_object() {
   push_key %%%MAKEJSONOBJ%%%
 }
 end_json_object() {
-  #echo end_json_object: $key >&2
-  #echo `echo "$key_stack" | head -n 1` >&2
+  #echo end_json_object: $json_key >&2
   pop_key # TODO check if is %%%MAKEJSONOBJ%%%
-  set -- `print_key`
-  #echo object: $1 >&2; set | sed -rn "s/^($1_[a-zA-Z]+)_VALUE=(.*)/\1/p" >&2
-  json_set OBJ "`set | sed -rn "s/^($1_[a-zA-Z]+)_VALUE=(.*)/\1/p"`"
+  #echo obj: $1 `set | sed -rn "s/^(${json_key}_[a-zA-Z]+)_VALUE=(.*)/\1/p"` >&2
+  #json_set object "`set | sed -rn "s/^(${json_key}_[a-zA-Z]+)_VALUE=(.*)/\1/p"`"
+  json_set object "`set | sed -rn "s/^(${json_key}_[a-zA-Z]+)=(.*)/\1/p"`"
 }
 begin_json_array() { :; }
 end_json_array() { :; }
@@ -48,62 +49,68 @@ json_set_key() {
   json_push_key "$1"
 }
 json_set() {
-  ##echo "`print_key`$1=$2 (`echo -n $2 | base64 -d`)" >&2
-  #echo "`print_key`TYPE=$1" >&2
-  #echo "`print_key`VALUE=\"$2\"" >&2 # (`echo -n $2 | base64 -d`)" >&2
-  eval "`print_key`_TYPE=$1"
-  eval "`print_key`_VALUE=\"$2\""
+  ##echo "typeof_$json_key=$1" >&2
+  ##echo "${json_key}_VALUE=\"$2\"" >&2 # (`echo -n $2 | base64 -d`)" >&2
+  #eval "${json_key}_TYPE=$1"
+  #eval "${json_key}_VALUE=\"$2\""
+  eval "typeof_${json_key}=$1"
+  eval "${json_key}=\"$2\""
 }
 
 push_key() {
-  key="${key+${key}_}$1"
-  #key_stack="$1
-#$key_stack"
+  json_key="${json_key+${json_key}_}$1"
 }
 pop_key() {
-  key="`echo $key | sed 's/_[^_]\+$//'`"
-  #key_stack="`echo "$key_stack" | sed 1d`"
-}
-print_key() {
-  ##echo \<`echo print_key: $key`, `echo "$key_stack" | tac | tr '\n' _`\> >&2
-  #echo "$key_stack" | tac | tr '\n' _
-  echo -n "$key"
+  json_key="`echo $json_key | sed 's/_[^_]\+$//'`"
 }
 
 json() {
-  #eval echo "\"\$`echo -n JSON "$@" | tr "$IFS" _`\" | base64 -d"
-  NAME="`echo -n JSON "$@" | tr "$IFS" _`"
-  eval "TYPE=\"\$${NAME}_TYPE\""
+  #eval echo "\"\$`echo -n "$json_key" "$@" | tr "$IFS" _`\" | base64 -d"
+  NAME="`echo -n "$json_key" "$@" | tr "$IFS" _`"
+  #eval "TYPE=\"\$${NAME}_TYPE\""
+  eval "TYPE=\"\$typeof_$NAME\""
 
   echo -n "$TYPE $NAME: "
   case "$TYPE" in
-    (OBJ)
-      eval echo -n \$${NAME}_VALUE
+    (object)
+      #eval echo -n \$${NAME}_VALUE
+      eval echo -n \$$NAME
       ;;
       #set | sed -rn "s/^(${NAME})_([a-zA-Z]+)[a-zA-Z_]*_VALUE=(.*)/\1_\2/p" |
       #    sort | uniq | tr \\n \ ;;
     (*) #echo -n "$VALUE";;
       #eval "VALUE=\"\$(echo -n \"\$${NAME}_VALUE\" | base64 -d)\""
-      eval echo -n \"\$${NAME}_VALUE\" | base64 -d
+      #eval echo -n \"\$${NAME}_VALUE\" | base64 -d
+      eval echo -n \$${NAME} | base64 -d
   esac
   echo
 }
 
-key='JSON'
-#key_stack='JSON'
-meh="`cat`"
-echo "$meh"
-#echo "$meh" | normalize_json | json_to_sh; exit
-eval "`echo "$meh" | normalize_json | json_to_sh`"
-#echo ====
-#set | grep '^JSON[A-Za-z_]*='
-#echo ====
+read_json() {
+  json_key="${1-JSON}"
+  #meh="`cat`"
+  #echo "$meh"
+  ##echo "$meh" | normalize_json | json_to_sh; exit
+  #eval "`echo "$meh" | normalize_json | json_to_sh`"
+  eval "`normalize_json | json_to_sh`"
+}
+
+# TODO print_json x, print_json x ca ... to print as json
+
+read_json x
+echo ====
+set | egrep "^(typeof_)?$json_key[A-Za-z_]*="
+echo ====
 json
 json a
 json b
 json c
 json c ca
 json c cb
+json d
+#echo ====
+#echo $JSON_VALUE
+#echo $JSON_c_cb_VALUE | base64 -d; echo
 
 echo READY.
 #### End of file.
-- 
cgit v1.2.3


From 38bc33d7b4750540afcd67a37cfb00da3357b053 Mon Sep 17 00:00:00 2001
From: tv <tv@also>
Date: Wed, 3 Nov 2010 16:26:41 +0100
Subject: test.json: bump

---
 test.json | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/test.json b/test.json
index 7da5175d..a0406039 100644
--- a/test.json
+++ b/test.json
@@ -1,5 +1,6 @@
 {
   "a": "1",
   "b": 2,
-  "c": { "ca": 11, "cb": [1, 2, 3] }
+  "c": { "ca": 11, "cb": [1, 2, 3, "42"] },
+  "d": {}
 }
-- 
cgit v1.2.3