1-- 2-- Copyright (c) 2008, 3-- Reto Buerki, Adrian-Ken Rueegsegger 4-- 5-- This file is part of Alog. 6-- 7-- Alog is free software; you can redistribute it and/or modify 8-- it under the terms of the GNU Lesser General Public License as published 9-- by the Free Software Foundation; either version 2.1 of the License, or 10-- (at your option) any later version. 11-- 12-- Alog is distributed in the hope that it will be useful, 13-- but WITHOUT ANY WARRANTY; without even the implied warranty of 14-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15-- GNU Lesser General Public License for more details. 16-- 17-- You should have received a copy of the GNU Lesser General Public License 18-- along with Alog; if not, write to the Free Software 19-- Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, 20-- MA 02110-1301 USA 21-- 22 23package body Alog.Transforms is 24 25 ------------------------------------------------------------------------- 26 27 function "=" 28 (Left : Handle; 29 Right : Handle) 30 return Boolean is 31 begin 32 return Left.Get_Name = Right.Get_Name; 33 end "="; 34 35 ------------------------------------------------------------------------- 36 37 function Get_Name (Transform : Class) return String is 38 begin 39 return To_String (Transform.Name); 40 end Get_Name; 41 42 ------------------------------------------------------------------------- 43 44 procedure Set_Name 45 (Transform : in out Class; 46 Name : String) 47 is 48 begin 49 Transform.Name := To_Unbounded_String (Name); 50 end Set_Name; 51 52end Alog.Transforms; 53