--- libelwix/example/test_json.c	2017/11/30 13:45:38	1.1.2.9
+++ libelwix/example/test_json.c	2025/08/25 13:00:37	1.6
@@ -10,11 +10,11 @@
 int
 run_simple(json_t *json)
 {
-	static const char *teststr = "{\"user\": \"johndoe\", { \"meow\", \"\", \"\aaa\"}, \"admin\": false, \"uid\": 1000, \"objects\" : { \"a\":\"1\", \"b\" : \"2\" ,\"c\" : \"3\", , \"oho\"},\n"
-       				"\"groups\": [\"users\", \"\", \"wheel\", \"audio\", \"video\"], \"testend\":{\"x\" : \"8\", \"y\":\"7\", \"z\" : \"9\"}}";
+	static const char *teststr = "[ \"test123\", {\"user\": \"johndoe\", { \"meow\", \"\", \"\aaa\"}, \"admin\": false, \"uid\": 1000, \"objects\" : { \"a\":\"1\", \"b\" : \"2\" ,\"c\" : \"3\", , \"oho\"},\n"
+		"\"groups\": [\"users\", \"\", \"wheel\", \"audio\", \"video\"], \"testend\":{\"x\" : \"8\", \"y\":\"7\", \"z\" : \"9\"}} ]";
 //	static const char *teststr = "{}\n[]\n\"sdfsdf\"";
 	int i, ret;
-	jtok_t *tok, toks[36];
+	jtok_t *tok, toks[38];
 	ait_val_t *v;
 	char *str;
 	array_t *arr;
@@ -49,61 +49,81 @@ run_simple(json_t *json)
 	} else
 		printf("(strict) We parsed %d tokens next=%lu\n", ret, json->h_next);
 
-	if (!(tok = json_findbykey(teststr, "boza s kosmi", toks, ret)))
+	if (!(tok = json_findbykey(teststr, "boza s kosmi", J_UNDEF, toks, ret)))
 		printf("Key=\"boza s kosmi\" not found!\n");
-	tok = json_findbykey(teststr, "user", toks, ret);
+	tok = json_findbykey(teststr, "user", J_UNDEF, toks, ret);
 	if (tok) {
 		v = json_token2val(teststr, tok);
 		printf("Key=\"user\" data parent=%ld idx=%ld size=%ld type=%d %s\n", tok->tok_parent, tok->tok_idx, tok->tok_size, tok->tok_type, AIT_GET_STR(v));
 		ait_freeVar(&v);
 	}
-	tok = json_findbykey(teststr, "admin", toks, ret);
+	tok = json_findbykey(teststr, "admin", J_VALUE, toks, ret);
 	if (tok) {
 		str = json_token2str(teststr, tok);
 		printf("Key=\"admin\" data parent=%ld idx=%ld size=%ld type=%d %s\n", tok->tok_parent, tok->tok_idx, tok->tok_size, tok->tok_type, str);
 		e_free(str);
 	}
-	tok = json_findbykey(teststr, "uid", toks, ret);
+	tok = json_findbykey(teststr, "uid", J_UNDEF, toks, ret);
 	if (tok) {
 		printf("Key=\"uid\" data parent=%ld idx=%ld size=%ld type=%d %ld\n", tok->tok_parent, tok->tok_idx, tok->tok_size, tok->tok_type, 
 				json_token2num(teststr, tok));
-		arr = json_token2array(teststr, tok);
+		arr = json_token2vars(teststr, tok);
 		for (i = 0; i < array_Size(arr); i++)
-			printf("arr[%d]=%s\n", i, AIT_GET_STR(array(arr, i, ait_val_t*)));
+			printf("avars[%d]=%s\n", i, AIT_GET_STR(array(arr, i, ait_val_t*)));
 		ait_freeVars(&arr);
+
+		arr = json_token2array(teststr, tok);
+		for (i = 0; i < array_Size(arr); i++)
+			printf("arr[%d]=%s\n", i, array(arr, i, char*));
+		json_freearray(&arr);
 	}
 
-	tok = json_findbykey(teststr, "groups", toks, ret);
+	tok = json_findbykey(teststr, "groups", J_UNDEF, toks, ret);
 	if (tok) {
 		str = json_token2str(teststr, tok);
-		arr = json_token2array(teststr, tok);
+		arr = json_token2vars(teststr, tok);
 		printf("Key=\"groups\" data parent=%ld idx=%ld size=%ld type=%d %s\n", tok->tok_parent, tok->tok_idx, tok->tok_size, tok->tok_type, str);
 		e_free(str);
 		for (i = 0; i < array_Size(arr); i++)
-			printf("arr[%d]=%s\n", i, AIT_GET_STR(array(arr, i, ait_val_t*)));
+			printf("avars[%d]=%s\n", i, AIT_GET_STR(array(arr, i, ait_val_t*)));
 		ait_freeVars(&arr);
+
+		arr = json_token2array(teststr, tok);
+		for (i = 0; i < array_Size(arr); i++)
+			printf("arr[%d]=%s\n", i, array(arr, i, char*));
+		json_freearray(&arr);
 	}
 
-	tok = json_findbykey(teststr, "objects", toks, ret);
+	tok = json_findbykey(teststr, "objects", J_UNDEF, toks, ret);
 	if (tok) {
 		str = json_token2str(teststr, tok);
-		arr = json_token2array(teststr, tok);
+		arr = json_token2vars(teststr, tok);
 		printf("Key=\"objects\" data parent=%ld idx=%ld size=%ld type=%d %s\n", tok->tok_parent, tok->tok_idx, tok->tok_size, tok->tok_type, str);
 		e_free(str);
 		for (i = 0; i < array_Size(arr); i++)
-			printf("arr[%d]=%s\n", i, AIT_GET_STR(array(arr, i, ait_val_t*)));
+			printf("avars[%d]=%s\n", i, AIT_GET_STR(array(arr, i, ait_val_t*)));
 		ait_freeVars(&arr);
+
+		arr = json_token2array(teststr, tok);
+		for (i = 0; i < array_Size(arr); i++)
+			printf("arr[%d]=%s\n", i, array(arr, i, char*));
+		json_freearray(&arr);
 	}
 
-	tok = json_findbykey(teststr, "testend", toks, ret);
+	tok = json_findbykey(teststr, "testend", J_UNDEF, toks, ret);
 	if (tok) {
 		str = json_token2str(teststr, tok);
-		arr = json_token2array(teststr, tok);
+		arr = json_token2vars(teststr, tok);
 		printf("Key=\"testend\" data parent=%ld idx=%ld size=%ld type=%d %s\n", tok->tok_parent, tok->tok_idx, tok->tok_size, tok->tok_type, str);
 		e_free(str);
 		for (i = 0; i < array_Size(arr); i++)
-			printf("arr[%d]=%s\n", i, AIT_GET_STR(array(arr, i, ait_val_t*)));
+			printf("avars[%d]=%s\n", i, AIT_GET_STR(array(arr, i, ait_val_t*)));
 		ait_freeVars(&arr);
+
+		arr = json_token2array(teststr, tok);
+		for (i = 0; i < array_Size(arr); i++)
+			printf("arr[%d]=%s\n", i, array(arr, i, char*));
+		json_freearray(&arr);
 	}
 
 	return 0;
@@ -258,13 +278,80 @@ run_make()
 }
 
 int
+run_stdin(json_t *json)
+{
+	char szJSON[BUFSIZ] = { [0 ... BUFSIZ - 1] = 0 };
+	jtok_t *tok, toks[1024];
+	int ret, scope;
+	char *str;
+
+	printf("Input JSON> ");
+	fgets(szJSON, sizeof szJSON, stdin);
+	printf("Readed JSON> %s", szJSON);
+
+	json_init(json, 0);
+	ret = json_parse(json, szJSON, strlen(szJSON), toks, sizeof toks/sizeof *toks);
+	if (ret == -1) {
+		printf("Error:: #%d - %s\n", elwix_GetErrno(), elwix_GetError());
+		return 1;
+	} else
+		printf("We parsed %d tokens next=%lu\n", ret, json->h_next);
+
+	printf("dump=%d\n", json_dump(stdout, szJSON, toks, json->h_next, 0));
+
+	tok = json_findbykey(szJSON, "aaa", J_STRING, toks, ret);
+	if (tok) {
+		str = json_token2str(szJSON, tok);
+		if (str) {
+			printf("str=%s\n", str);
+			json_freestr(str);
+		}
+	}
+
+	printf("Default scope=%ld, scope for \"zzz\"=%ld\n", 
+			json_objscope(NULL, szJSON, toks, ret), 
+			(scope = json_objscope("zzz", szJSON, toks, ret)));
+
+	tok = json_findbykeyatscope(0, szJSON, "t1", J_UNDEF, toks, ret);
+	if (tok) {
+		str = json_token2str(szJSON, tok);
+		if (str) {
+			printf("default scope t1=%s\n", str);
+			json_freestr(str);
+		}
+	}
+	tok = json_findbykeyatscope(scope, szJSON, "t1", J_UNDEF, toks, ret);
+	if (tok) {
+		str = json_token2str(szJSON, tok);
+		if (str) {
+			printf("scope=%ld object zzz t1=%s\n", scope, str);
+			json_freestr(str);
+		}
+	}
+
+	scope = json_objscope("z", szJSON, toks, ret);
+	tok = json_findbykeyatscope(scope, szJSON, "t1", J_UNDEF, toks, ret);
+	if (tok) {
+		str = json_token2str(szJSON, tok);
+		if (str) {
+			printf("scope=%ld object z t1=%s\n", scope, str);
+			json_freestr(str);
+		}
+	}
+
+	return 0;
+}
+
+int
 main(int argc, char **argv)
 {
 	json_t json;
 
 	if (argc < 2)
-		return run_simple(&json);
+		return run_stdin(&json);
 	else if (argc < 3)
+		return run_simple(&json);
+	else if (argc < 4)
 		return run_make();
 	else
 		return run_dump(&json, argv);