add jsonGetIntegerArray

Author: 1138-4EB

Data/Boards0.json

@@ -1,2 +1 @@
- ["test",[true,false,18,null,"hello"],3324.34,832432,"world"]
- 
+ ["test",[true,false,18,null,"hello"],[9,8],3324.34,832432,"world"]

Examples/Boards_VUnit.vhdl

@@ -16,25 +16,27 @@ end entity;
 architecture tb of tb_boards is
   constant JSONContent     : T_JSON := jsonLoad(tb_cfg);
   constant JSONFileContent : T_JSON := jsonLoad(tb_cfg_file);
+  constant tb_imga : integer_vector := jsonGetIntegerArray(JSONContent, "2");
 begin
   main: process
   begin
     test_runner_setup(runner, runner_cfg);
     while test_suite loop
       if run("test") then
+        info("tb_path & tb_cfg_file: " & tb_path & tb_cfg_file);
+        info("JSONFileContent: " & lf & JSONFileContent.Content);
+        info("ML505/FPGA: " & jsonGetString(JSONFileContent, "ML505/FPGA"));
+        info("ML505/Eth/0/PHY-Int: " & jsonGetString(JSONFileContent, "ML505/Eth/0/PHY-Int"));
+        info("KC705/FPGA: " & jsonGetString(JSONFileContent, "KC705/FPGA"));
+        info("KC705/IIC/0/Devices/0/Name: " & jsonGetString(JSONFileContent, "KC705/IIC/0/Devices/0/Name"));
+
         info("tb_cfg: " & tb_cfg);
         info("JSONContent: " & lf & JSONContent.Content);
-        info("ML505/FPGA: " & jsonGetString(JSONContent, "ML505/FPGA"));
-        info("ML505/Eth/0/PHY-Int: " & jsonGetString(JSONContent, "ML505/Eth/0/PHY-Int"));
-        info("KC705/FPGA: " & jsonGetString(JSONContent, "KC705/FPGA"));
-        info("KC705/IIC/0/Devices/0/Name: " & jsonGetString(JSONContent, "KC705/IIC/0/Devices/0/Name"));
 
-        info("tb_path & tb_cfg_file: " & tb_path & tb_cfg_file);
-        info("JSONFileContent: " & lf & JSONFileContent.Content);
-        info("ML505/FPGADevice: " & jsonGetString(JSONFileContent, "ML505/FPGADevice"));
-        info("ML505/Ethernet/0/PHY_Device: " & jsonGetString(JSONFileContent, "ML505/Ethernet/0/PHY_Device"));
-        info("KC705/FPGADevice: " & jsonGetString(JSONFileContent, "KC705/FPGADevice"));
-        info("KC705/IIC/0/Devices/0/Type: " & jsonGetString(JSONFileContent, "KC705/IIC/0/Devices/0/Type"));
+        info("Integer array length: " & jsonGetString(JSONContent, "2/1"));
+        for i in 0 to tb_imga'length-1 loop
+          info("Integer array [" & integer'image(i) & "]: " & integer'image(tb_imga(i)));
+        end loop;
       end if;
     end loop;
     test_runner_cleanup(runner);

VUnit/run.py

@@ -10,11 +10,23 @@
 lib = vu.add_library("lib")
 lib.add_source_files(join(root, "..", "Examples", "Boards_VUnit.vhdl"))
 
-vu.set_generic('tb_cfg_file', '../Data/Boards2.json')
+vu.set_generic('tb_cfg_file', '../Data/Boards1.json')
+
+def add_array_lens(obj):
+    if isinstance(obj, list):
+        if isinstance(obj[0], int) and not isinstance(obj[0], bool):
+            obj = [len(obj)] + obj
+        else:
+            for i in range(len(obj)):
+                obj[i] = add_array_lens(obj[i])
+    else:
+        if isinstance(obj, dict):
+            for key, val in obj.items():
+                obj[key] = add_array_lens(val)
+    return obj
 
 import json
-file = open('../Data/Boards1.json', 'r')
-generics = json.loads(file.read())
-vu.set_generic("tb_cfg", json.dumps(generics, separators=(',', ':')))
+generics = json.loads(open('../Data/Boards0.json', 'r').read())
+vu.set_generic("tb_cfg", json.dumps(add_array_lens(generics), separators=(',', ':')))
 
 vu.main()

vhdl/JSON.ctx.vhdl

@@ -42,11 +42,11 @@ context json_ctx is
   use JSON.json.jsonNoParserError;
   use JSON.json.jsonGetErrorMessage;
   use JSON.json.jsonGetContent;
-  use JSON.json.jsonGetString;
   use JSON.json.jsonGetBoolean;
+  use JSON.json.jsonGetString;
+  use JSON.json.jsonGetIntegerArray;
   use JSON.json.jsonIsBoolean;
   use JSON.json.jsonIsNull;
   use JSON.json.jsonIsString;
   use JSON.json.jsonIsNumber;
---  use JSON.json.jsonGetIntArray;
 end context;

vhdl/JSON.pkg.vhdl

@@ -103,6 +103,7 @@ package JSON is
 
 	function jsonGetBoolean(JSONContext : T_JSON; Path : STRING) return BOOLEAN;
 	function jsonGetString(JSONContext : T_JSON; Path : STRING) return STRING;
+	function jsonGetIntegerArray(JSONContext : T_JSON; Path : string) return integer_vector;
 
 	function jsonIsBoolean(JSONContext : T_JSON; Path : STRING) return BOOLEAN;
 	function jsonIsNull(JSONContext : T_JSON; Path : STRING) return BOOLEAN;
@@ -1619,6 +1620,17 @@ package body JSON is
 		return (Element.ElementType = ELEM_TRUE);
 	end function;
 
+	-- function to get a integer_vector from the compressed content extracted from a JSON input
+	function jsonGetIntegerArray(JSONContext : T_JSON; Path : string) return integer_vector is
+	  constant len: positive:=to_natural_dec( jsonGetString(JSONContext, Path & "/0") );
+	  variable return_value : integer_vector(len-1 downto 0);
+	begin
+	  for i in 1 to len loop
+	    return_value(i-1) := to_natural_dec(jsonGetString(JSONContext, Path & "/" & to_string(i)));
+	  end loop;
+	  return return_value;
+	end;
+
 	function jsonIsBoolean(JSONContext : T_JSON; Path : STRING) return BOOLEAN is
 		constant ElementIndex	: T_UINT16							:= jsonGetElementIndex(JSONContext, Path);
 		constant Element			: T_JSON_INDEX_ELEMENT	:= JSONContext.Index(ElementIndex);