From 3fa8d9eb8b700044d149bdf12da6cb023568b8c0 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 5 May 2019 08:00:35 +0200
Subject: vhdl: move ieee packages to vhdl children.

---
 src/vhdl/vhdl-ieee.adb | 50 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)
 create mode 100644 src/vhdl/vhdl-ieee.adb

(limited to 'src/vhdl/vhdl-ieee.adb')

diff --git a/src/vhdl/vhdl-ieee.adb b/src/vhdl/vhdl-ieee.adb
new file mode 100644
index 000000000..8d1021efb
--- /dev/null
+++ b/src/vhdl/vhdl-ieee.adb
@@ -0,0 +1,50 @@
+--  Nodes recognizer for ieee packages - utilities.
+--  Copyright (C) 2016 Tristan Gingold
+--
+--  GHDL is free software; you can redistribute it and/or modify it under
+--  the terms of the GNU General Public License as published by the Free
+--  Software Foundation; either version 2, or (at your option) any later
+--  version.
+--
+--  GHDL is distributed in the hope that it will be useful, but WITHOUT ANY
+--  WARRANTY; without even the implied warranty of MERCHANTABILITY or
+--  FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+--  for more details.
+--
+--  You should have received a copy of the GNU General Public License
+--  along with GHDL; see the file COPYING.  If not, write to the Free
+--  Software Foundation, 59 Temple Place - Suite 330, Boston, MA
+--  02111-1307, USA.
+
+with Iirs_Utils; use Iirs_Utils;
+with Vhdl.Std_Package;
+
+package body Vhdl.Ieee is
+   function Skip_Copyright_Notice (Decl : Iir) return Iir
+   is
+   begin
+      if Decl /= Null_Iir
+        and then Get_Kind (Decl) = Iir_Kind_Constant_Declaration
+        and then (Get_Base_Type (Get_Type (Decl))
+                    = Vhdl.Std_Package.String_Type_Definition)
+      then
+         return Get_Chain (Decl);
+      else
+         return Decl;
+      end if;
+   end Skip_Copyright_Notice;
+
+   function Skip_Implicit (Decl : Iir) return Iir
+   is
+      Res : Iir;
+   begin
+      Res := Decl;
+      loop
+         exit when Res = Null_Iir;
+         exit when not (Get_Kind (Res) = Iir_Kind_Function_Declaration
+                          and then Is_Implicit_Subprogram (Res));
+         Res := Get_Chain (Res);
+      end loop;
+      return Res;
+   end Skip_Implicit;
+end Vhdl.Ieee;
-- 
cgit v1.2.3