From 28d9ddf0e2aff8fe6937949f54285cae9ee478a7 Mon Sep 17 00:00:00 2001
From: 1138-4EB <1138-4EB@users.noreply.github.com>
Date: Thu, 2 Mar 2017 00:24:57 +0100
Subject: =?UTF-8?q?Add=20raw=20sources=20of=20tutorial=20'How=20to=20simul?=
 =?UTF-8?q?ate=20an=20UART=20VHDL=20code=20with=20ghdl}'=20by=20'Ren=C3=A9?=
 =?UTF-8?q?=20Do=C3=9F'?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 doc/using/UART_srcs/vhpi/tty_pkg.vhd | 70 ++++++++++++++++++++++++++++++++++++
 1 file changed, 70 insertions(+)
 create mode 100644 doc/using/UART_srcs/vhpi/tty_pkg.vhd

(limited to 'doc/using/UART_srcs/vhpi/tty_pkg.vhd')

diff --git a/doc/using/UART_srcs/vhpi/tty_pkg.vhd b/doc/using/UART_srcs/vhpi/tty_pkg.vhd
new file mode 100644
index 000000000..99e3a347f
--- /dev/null
+++ b/doc/using/UART_srcs/vhpi/tty_pkg.vhd
@@ -0,0 +1,70 @@
+--tty_pkg.vhd
+library ieee;
+use ieee.std_logic_1164.all;
+use ieee.numeric_std.all;
+
+package tty_pkg is
+
+  function to_integer( s: std_logic) return integer;  
+  function to_std_logic( s : integer ) return std_logic;
+  
+  function tty_open (portn : integer) return integer;
+  attribute foreign of tty_open :
+    function is "VHPIDIRECT tty_open";
+
+  function read_data ( dummy: integer) return integer;
+  attribute foreign of read_data :
+    function is "VHPIDIRECT read_data"; 
+
+  function read_enable ( dummy: integer) return integer;
+  attribute foreign of read_enable :
+    function is "VHPIDIRECT read_enable"; 
+
+  procedure write_data ( data: in integer);
+    attribute foreign of write_data :
+    procedure is "VHPIDIRECT write_data"; 
+
+end;
+
+
+package body tty_pkg is
+
+  function to_integer( s : std_logic ) return integer is
+  begin
+    if s = '1' then
+      return 1;
+    else
+      return 0;
+    end if;
+  end function;
+
+  function to_std_logic( s : integer ) return std_logic is
+  begin
+    if s > 0 then
+      return '1';
+    else
+      return '0';
+    end if;
+  end function;
+
+  
+  function tty_open (portn : integer) return integer is
+  begin
+    assert false report "VHPI" severity failure;
+  end tty_open;
+ 
+  function read_data (dummy: integer) return  integer is
+  begin
+    assert false report "VHPI" severity failure;
+  end read_data;  
+ 
+   function read_enable (dummy: integer) return  integer is
+  begin
+    assert false report "VHPI" severity failure;
+  end read_enable;  
+  
+  procedure write_data ( data: in integer) is
+  begin
+    assert false report "VHPI" severity failure;
+  end write_data; 
+end tty_pkg;
-- 
cgit v1.2.3