From c3ccfd03bafc02953a75ffd090486e17fdd4fc7f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Erik=20=C3=96rtenberg?= <erik.ortenberg@gmail.com>
Date: Mon, 17 Feb 2025 12:45:02 +0100
Subject: [PATCH] example library package assuming vhdl08. Can be chagned to
 older ver if needed

---
 src/io_type_pkg.vhd | 75 ++++++++++++++++++++++++++++++++++++---------
 src/test.vhd        | 12 +++++---
 2 files changed, 67 insertions(+), 20 deletions(-)

diff --git a/src/io_type_pkg.vhd b/src/io_type_pkg.vhd
index 63a940c..7f025df 100644
--- a/src/io_type_pkg.vhd
+++ b/src/io_type_pkg.vhd
@@ -1,22 +1,67 @@
 library IEEE;
+use IEEE.std_logic_1164.all;
 use IEEE.MATH_REAL.all;
 
 package io_types is
 
-  type interface_def_t is record
-    name: string (1 to 20);
-    payload_width, control_width: natural;
-  end record interface_def_t;
+  --- STANDARD TYPES ---
+  type ext_protocol_impl_t is record 
+    payload, control: STD_LOGIC_VECTOR;
+  end record ext_protocol_impl_t;
+
+  type int_protocol_impl_t is record
+    payload : STD_LOGIC_VECTOR;
+  -- ADD MORE STUFF WHEN WE HAVE DECIDED UPON DRIVER INTERFACE
+  end record int_protocol_impl_t;
+
+  type ext_protocol_def_t is record
+    name: string (1 to 20);
+    payload_width: natural;
+    control_width_in, control_width_out: natural;
+  end record ext_protocol_def_t;
+
+  type interface_inst_t is record
+    socbridge: ext_protocol_def_t;
+    spi: ext_protocol_def_t;
+  end record interface_inst_t;
+
+  --- PROTOCOL INFORMATION ---
+  constant interface_inst : interface_inst_t := (
+    ("SoCBridge           ", 8, 2, 2),
+    ("SPI                 ", 1, 3, 3)
+  ); 
+
+  --- AUTOGENERATED TYPES ---
+  type ext_interface_in_t is record
+    socbridge : ext_protocol_impl_t( 
+      payload(interface_inst.socbridge.payload_width - 1 downto 0),
+      control(interface_inst.socbridge.control_width_in - 1 downto 0));
+    spi : ext_protocol_impl_t(
+      payload(interface_inst.spi.payload_width - 1 downto 0),
+      control(interface_inst.spi.control_width_in - 1 downto 0));
+  end record ext_interface_in_t;
+
+  type ext_interface_out_t is record
+    socbridge : ext_protocol_impl_t( 
+      payload(interface_inst.socbridge.payload_width - 1 downto 0),
+      control(interface_inst.socbridge.control_width_out - 1 downto 0));
+    spi : ext_protocol_impl_t(
+      payload(interface_inst.spi.payload_width - 1 downto 0),
+      control(interface_inst.spi.control_width_out - 1 downto 0));
+  end record ext_interface_out_t;
+
+  type int_interface_in_t is record
+    socbridge : int_protocol_impl_t(
+      payload(interface_inst.socbridge.payload_width - 1 downto 0));
+    spi : int_protocol_impl_t(
+      payload(interface_inst.spi.payload_width - 1 downto 0));
+  end record int_interface_in_t;
+
+  type int_interface_out_t is record
+    socbridge : int_protocol_impl_t(
+      payload(interface_inst.socbridge.payload_width - 1 downto 0));
+    spi : int_protocol_impl_t(
+      payload(interface_inst.spi.payload_width - 1 downto 0));
+  end record int_interface_out_t;
 
-  type interface_arr_t is array (natural range <>) of interface_def_t;
-    
-  constant interface_arr : interface_arr_t := (
-    0 => ("SoCBridge x         ", 8, 2),
-    1 => ("SoCBridge  x        ", 8, 2),
-    2 => ("SoCBridge   x       ", 8, 2),
-    3 => ("SoCBridge    x      ", 8, 2),
-    4 => ("SoCBridge     x     ", 8, 2),
-    5 => ("SoCBridge      x    ", 8, 2)
-  );
-  
 end package io_types;
diff --git a/src/test.vhd b/src/test.vhd
index fc65466..5a27d24 100644
--- a/src/test.vhd
+++ b/src/test.vhd
@@ -4,20 +4,22 @@ use work.io_types.all;
 
 entity test is
   port (
-    t : in interface_arr_t(0 to interface_arr'length - 1)
+    ext_interface_in    : in ext_interface_in_t;
+    ext_interface_out   : out ext_interface_out_t
   );
 end entity test;
 
 architecture rtl of test is
-  
+  signal int_interface_in  : int_interface_in_t;
+  signal int_interface_out : int_interface_out_t;
 begin
   
   proc_name: process
   begin
     
-    for x in 0 to (interface_arr'length - 1) loop
-      report interface_arr(x).name ;
-    end loop;
+  report "Hello";
+  report integer'image(ext_interface_in.socbridge.payload'length);
+  report integer'image(ext_interface_in.spi.payload'length);
   wait;
   end process proc_name;