Add packageless intvector examples (#5 a + c)

vhpidirect/quickstart/intvector/caux.c

@@ -0,0 +1,16 @@
+#include <stdio.h>
+#define SIZE_ARRAY (sizeof(intArray)/sizeof(int))
+
+int intArray[6];
+
+int getIntArrSize(){//function acts like a constructor so initialise the variable
+    return SIZE_ARRAY;
+}
+
+int* getIntArr_ptr(){//function acts like a constructor so initialise the variable
+    for (int i = 0; i < SIZE_ARRAY; i++)
+    {
+        intArray[i] = 11*(i+1);
+    }
+    return intArray;
+}

vhpidirect/quickstart/intvector/pkg.vhd

@@ -0,0 +1,26 @@
+package pkg is
+	function c_intArrSize return integer; -- represented C-side with int*
+	attribute foreign of c_intArrSize : function is "VHPIDIRECT getIntArrSize"; -- getIntArrSize is the C-side function name
+
+	type int_arr is array(0 to c_intArrSize-1) of integer;
+	type int_arr_ptr is access int_arr; -- represented C-side with int*
+
+
+	function c_intArr_ptr return int_arr_ptr;
+	attribute foreign of c_intArr_ptr : function is "VHPIDIRECT getIntArr_ptr";
+
+	shared variable c_intArr : int_arr_ptr := c_intArr_ptr;
+end package pkg;
+
+package body pkg is
+
+	function c_intArrSize return integer is
+	begin
+		assert false report "c_intArrSize VHPI" severity failure;
+	end c_intArrSize;
+
+	function c_intArr_ptr return int_arr_ptr is
+	begin
+		assert false report "c_intArr_ptr VHPI" severity failure;
+	end c_intArr_ptr;
+end package body pkg;

vhpidirect/quickstart/intvector/run.sh

@@ -0,0 +1,14 @@
+#!/usr/bin/env sh
+
+set -e
+
+cd $(dirname "$0")
+
+echo "Analyze tb.vhd"
+ghdl -a tb.vhd
+
+echo "Build tb (with caux.c) [GHDL]"
+ghdl -e -Wl,caux.c tb
+
+echo "Execute tb"
+./tb

vhpidirect/quickstart/intvector/tb.vhd

@@ -0,0 +1,38 @@
+entity tb is
+end entity tb;
+
+architecture RTL of tb is
+
+begin
+
+	process
+		function c_intArrSize return integer is-- represented C-side with int
+		begin
+			assert false report "c_intArrSize VHPI" severity failure;
+		end;
+		attribute foreign of c_intArrSize : function is "VHPIDIRECT getIntArrSize"; -- getIntArrSize is the C-side function name
+
+		type int_arr is array(0 to c_intArrSize-1) of integer;
+		type int_arr_ptr is access int_arr; -- represented C-side with int*
+
+
+		function c_intArr_ptr return int_arr_ptr is
+		begin
+			assert false report "c_intArr_ptr VHPI" severity failure;
+		end;
+		attribute foreign of c_intArr_ptr : function is "VHPIDIRECT getIntArr_ptr";
+
+		variable c_intArr : int_arr_ptr := c_intArr_ptr;
+
+	begin
+		report "Array length: " & integer'image(c_intArr.all'length);
+
+		for i in 0 to c_intArr.all'right loop
+			report "c_intArr[" & integer'image(i) &"] = " &  integer'image(c_intArr.all(i)) & ". Set to: " & integer'image(-2*c_intArr.all(i));
+			c_intArr.all(i) := -2*c_intArr.all(i);
+		end loop;
+
+		wait;
+	end process;
+
+end architecture RTL;