X-Git-Url: https://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-text_io__adb.htm;h=fb818d03411604327dffac431f35d53642ffda55;hp=f53067fe729455db54895fe529869159f367ac5f;hb=3ab4db240283db0682a66a8587f2174508348bc6;hpb=761e4f0825b330e970558e82a4bd638383914429 diff --git a/doc/html/ada/terminal_interface-curses-text_io__adb.htm b/doc/html/ada/terminal_interface-curses-text_io__adb.htm index f53067fe..fb818d03 100644 --- a/doc/html/ada/terminal_interface-curses-text_io__adb.htm +++ b/doc/html/ada/terminal_interface-curses-text_io__adb.htm @@ -24,7 +24,7 @@ -- B O D Y -- -- -- ------------------------------------------------------------------------------ --- Copyright (c) 1998-2009,2011 Free Software Foundation, Inc. -- +-- Copyright (c) 1998-2011,2014 Free Software Foundation, Inc. -- -- -- -- Permission is hereby granted, free of charge, to any person obtaining a -- -- copy of this software and associated documentation files (the -- @@ -52,35 +52,35 @@ ------------------------------------------------------------------------------ -- Author: Juergen Pfeifer, 1996 -- Version Control: --- @Revision: 1.20 @ --- @Date: 2011/03/22 23:38:49 @ +-- @Revision: 1.22 @ +-- @Date: 2014/05/24 21:32:18 @ -- Binding Version 01.00 ------------------------------------------------------------------------------ -package body Terminal_Interface.Curses.Text_IO is +package body Terminal_Interface.Curses.Text_IO is - Default_Window : Window := Null_Window; + Default_Window : Window := Null_Window; - procedure Set_Window (Win : Window) + procedure Set_Window (Win : Window) is begin Default_Window := Win; end Set_Window; - function Get_Window return Window + function Get_Window return Window is begin - if Default_Window = Null_Window then - return Standard_Window; + if Default_Window = Null_Window then + return Standard_Window; else return Default_Window; end if; end Get_Window; pragma Inline (Get_Window); - procedure Flush (Win : Window) + procedure Flush (Win : Window) is begin - Refresh (Win); + Refresh (Win); end Flush; procedure Flush @@ -98,12 +98,12 @@ -- A scroll-window is interpreted as an page with unbounded page length, -- i.e. it returns the conventional 0 as page length. - function Line_Length (Win : Window) return Count + function Line_Length (Win : Window) return Count is - N_Lines : Line_Count; - N_Cols : Column_Count; + N_Lines : Line_Count; + N_Cols : Column_Count; begin - Get_Size (Win, N_Lines, N_Cols); + Get_Size (Win, N_Lines, N_Cols); -- if Natural (N_Cols) > Natural (Count'Last) then -- raise Layout_Error; -- end if; @@ -116,15 +116,15 @@ return Line_Length (Get_Window); end Line_Length; - function Page_Length (Win : Window) return Count + function Page_Length (Win : Window) return Count is - N_Lines : Line_Count; - N_Cols : Column_Count; + N_Lines : Line_Count; + N_Cols : Column_Count; begin - if Scrolling_Allowed (Win) then + if Scrolling_Allowed (Win) then return 0; else - Get_Size (Win, N_Lines, N_Cols); + Get_Size (Win, N_Lines, N_Cols); -- if Natural (N_Lines) > Natural (Count'Last) then -- raise Layout_Error; -- end if; @@ -141,7 +141,7 @@ ------------------------------------ -- Column, Line, and Page Control -- ------------------------------------ - procedure New_Line (Win : Window; Spacing : Positive_Count := 1) + procedure New_Line (Win : Window; Spacing : Positive_Count := 1) is P_Size : constant Count := Page_Length (Win); begin @@ -153,7 +153,7 @@ if P_Size > 0 and then Line (Win) >= P_Size then New_Page (Win); else - Add (Win, ASCII.LF); + Add (Win, ASCII.LF); end if; end loop; end New_Line; @@ -164,10 +164,10 @@ New_Line (Get_Window, Spacing); end New_Line; - procedure New_Page (Win : Window) + procedure New_Page (Win : Window) is begin - Clear (Win); + Clear (Win); end New_Page; procedure New_Page @@ -176,20 +176,20 @@ New_Page (Get_Window); end New_Page; - procedure Set_Col (Win : Window; To : Positive_Count) + procedure Set_Col (Win : Window; To : Positive_Count) is - Y : Line_Position; - X1 : Column_Position; - X2 : Column_Position; + Y : Line_Position; + X1 : Column_Position; + X2 : Column_Position; N : Natural; begin if not To'Valid then raise Constraint_Error; end if; - Get_Cursor_Position (Win, Y, X1); + Get_Cursor_Position (Win, Y, X1); N := Natural (To); N := N - 1; - X2 := Column_Position (N); + X2 := Column_Position (N); if X1 > X2 then New_Line (Win, 1); X1 := 0; @@ -210,21 +210,21 @@ Set_Col (Get_Window, To); end Set_Col; - procedure Set_Line (Win : Window; To : Positive_Count) + procedure Set_Line (Win : Window; To : Positive_Count) is - Y1 : Line_Position; - Y2 : Line_Position; - X : Column_Position; + Y1 : Line_Position; + Y2 : Line_Position; + X : Column_Position; N : Natural; begin if not To'Valid then raise Constraint_Error; end if; - Get_Cursor_Position (Win, Y1, X); - pragma Unreferenced (X); + Get_Cursor_Position (Win, Y1, X); + pragma Warnings (Off, X); -- unreferenced N := Natural (To); N := N - 1; - Y2 := Line_Position (N); + Y2 := Line_Position (N); if Y2 < Y1 then New_Page (Win); Y1 := 0; @@ -240,13 +240,13 @@ Set_Line (Get_Window, To); end Set_Line; - function Col (Win : Window) return Positive_Count + function Col (Win : Window) return Positive_Count is - Y : Line_Position; - X : Column_Position; + Y : Line_Position; + X : Column_Position; N : Natural; begin - Get_Cursor_Position (Win, Y, X); + Get_Cursor_Position (Win, Y, X); N := Natural (X); N := N + 1; -- if N > Natural (Count'Last) then -- raise Layout_Error; @@ -260,13 +260,13 @@ return Col (Get_Window); end Col; - function Line (Win : Window) return Positive_Count + function Line (Win : Window) return Positive_Count is - Y : Line_Position; - X : Column_Position; + Y : Line_Position; + X : Column_Position; N : Natural; begin - Get_Cursor_Position (Win, Y, X); + Get_Cursor_Position (Win, Y, X); N := Natural (Y); N := N + 1; -- if N > Natural (Count'Last) then -- raise Layout_Error; @@ -284,22 +284,22 @@ -- Characters Output -- ----------------------- - procedure Put (Win : Window; Item : Character) + procedure Put (Win : Window; Item : Character) is P_Size : constant Count := Page_Length (Win); - Y : Line_Position; - X : Column_Position; - L : Line_Count; - C : Column_Count; + Y : Line_Position; + X : Column_Position; + L : Line_Count; + C : Column_Count; begin if P_Size > 0 then - Get_Cursor_Position (Win, Y, X); - Get_Size (Win, L, C); + Get_Cursor_Position (Win, Y, X); + Get_Size (Win, L, C); if (Y + 1) = L and then (X + 1) = C then New_Page (Win); end if; end if; - Add (Win, Item); + Add (Win, Item); end Put; procedure Put (Item : Character) @@ -312,22 +312,22 @@ -- Strings-Output -- -------------------- - procedure Put (Win : Window; Item : String) + procedure Put (Win : Window; Item : String) is P_Size : constant Count := Page_Length (Win); - Y : Line_Position; - X : Column_Position; - L : Line_Count; - C : Column_Count; + Y : Line_Position; + X : Column_Position; + L : Line_Count; + C : Column_Count; begin if P_Size > 0 then - Get_Cursor_Position (Win, Y, X); - Get_Size (Win, L, C); + Get_Cursor_Position (Win, Y, X); + Get_Size (Win, L, C); if (Y + 1) = L and then (X + 1 + Item'Length) >= C then New_Page (Win); end if; end if; - Add (Win, Item); + Add (Win, Item); end Put; procedure Put (Item : String) @@ -337,7 +337,7 @@ end Put; procedure Put_Line - (Win : Window; + (Win : Window; Item : String) is begin @@ -352,5 +352,5 @@ Put_Line (Get_Window, Item); end Put_Line; -end Terminal_Interface.Curses.Text_IO; +end Terminal_Interface.Curses.Text_IO;