1------------------------------------------------------------------------------ 2-- -- 3-- GNAT ncurses Binding -- 4-- -- 5-- Terminal_Interface.Curses.Text_IO.Float_IO -- 6-- -- 7-- S P E C -- 8-- -- 9------------------------------------------------------------------------------ 10-- Copyright (c) 1998-2003,2009 Free Software Foundation, Inc. -- 11-- -- 12-- Permission is hereby granted, free of charge, to any person obtaining a -- 13-- copy of this software and associated documentation files (the -- 14-- "Software"), to deal in the Software without restriction, including -- 15-- without limitation the rights to use, copy, modify, merge, publish, -- 16-- distribute, distribute with modifications, sublicense, and/or sell -- 17-- copies of the Software, and to permit persons to whom the Software is -- 18-- furnished to do so, subject to the following conditions: -- 19-- -- 20-- The above copyright notice and this permission notice shall be included -- 21-- in all copies or substantial portions of the Software. -- 22-- -- 23-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -- 24-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF -- 25-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. -- 26-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, -- 27-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR -- 28-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR -- 29-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. -- 30-- -- 31-- Except as contained in this notice, the name(s) of the above copyright -- 32-- holders shall not be used in advertising or otherwise to promote the -- 33-- sale, use or other dealings in this Software without prior written -- 34-- authorization. -- 35------------------------------------------------------------------------------ 36-- Author: Juergen Pfeifer, 1996 37-- Version Control: 38-- $Revision: 1.12 $ 39-- Binding Version 01.00 40------------------------------------------------------------------------------ 41generic 42 type Num is digits <>; 43 44package Terminal_Interface.Curses.Text_IO.Float_IO is 45 46 Default_Fore : Field := 2; 47 Default_Aft : Field := Num'Digits - 1; 48 Default_Exp : Field := 3; 49 50 procedure Put 51 (Win : Window; 52 Item : Num; 53 Fore : Field := Default_Fore; 54 Aft : Field := Default_Aft; 55 Exp : Field := Default_Exp); 56 57 procedure Put 58 (Item : Num; 59 Fore : Field := Default_Fore; 60 Aft : Field := Default_Aft; 61 Exp : Field := Default_Exp); 62 63private 64 pragma Inline (Put); 65 66end Terminal_Interface.Curses.Text_IO.Float_IO; 67