Initial commit

Libs/RiscV_test/NEORV32_test/uart_rx_pkg.vhd

@@ -0,0 +1,60 @@
+library vunit_lib;
+context vunit_lib.vunit_context;
+context vunit_lib.com_context;
+use vunit_lib.sync_pkg.all;
+
+package uart_rx_pkg is
+  constant check_uart_msg : msg_type_t := new_msg_type("check_uart");
+
+  type uart_rx_t is record
+    p_baud_val : real;
+    p_logger : logger_t;
+    p_actor : actor_t;
+  end record;
+
+  impure function new_uart_rx(
+    baud_val : real;
+    logger : logger_t := null_logger;
+    actor : actor_t := null_actor) return uart_rx_t;
+
+  function as_sync(handle : uart_rx_t) return sync_handle_t;
+
+  procedure check_uart(
+    signal net : inout network_t;
+    constant handle : in uart_rx_t;
+    constant data : in string);
+end package uart_rx_pkg;
+
+package body uart_rx_pkg is
+  constant uart_rx_logger  : logger_t  := get_logger("neorv32_lib:uart_rx_pkg");
+
+  impure function new_uart_rx(
+    baud_val : real;
+    logger : logger_t := null_logger;
+    actor : actor_t := null_actor) return uart_rx_t is
+    variable result : uart_rx_t;
+  begin
+    result.p_baud_val := baud_val;
+    result.p_logger := logger when logger /= null_logger else uart_rx_logger;
+    result.p_actor := actor when actor /= null_actor else new_actor;
+
+    return result;
+  end;
+
+  function as_sync(handle : uart_rx_t) return sync_handle_t is
+  begin
+    return handle.p_actor;
+  end;
+
+  procedure check_uart(
+    signal net : inout network_t;
+    constant handle : in uart_rx_t;
+    constant data : in string) is
+    variable msg : msg_t;
+  begin
+    msg := new_msg(check_uart_msg);
+    push(msg, data);
+    send(net, handle.p_actor, msg);
+  end;
+
+end package body uart_rx_pkg;