X-Git-Url: https://ncurses.scripts.mit.edu/?a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-text_io-modular_io__ads.htm;fp=Ada95%2Fhtml%2Fada%2Fterminal_interface-curses-text_io-modular_io__ads.htm;h=84bc5eae17249920c36fd10f1fd1a838ba9e9230;hb=b1f61d9f3aa244512045a6b02e759825d7049d34;hp=b652c1bccc5dde5b6aab7d75e7aab38775c5cfc2;hpb=0eb88fc5281804773e2a0c7a488a4452463535ce;p=ncurses.git
diff --git a/Ada95/html/ada/terminal_interface-curses-text_io-modular_io__ads.htm b/doc/html/ada/terminal_interface-curses-text_io-modular_io__ads.htm
similarity index 73%
rename from Ada95/html/ada/terminal_interface-curses-text_io-modular_io__ads.htm
rename to doc/html/ada/terminal_interface-curses-text_io-modular_io__ads.htm
index b652c1bc..84bc5eae 100644
--- a/Ada95/html/ada/terminal_interface-curses-text_io-modular_io__ads.htm
+++ b/doc/html/ada/terminal_interface-curses-text_io-modular_io__ads.htm
@@ -1,4 +1,4 @@
-terminal_interface-curses-text_io-modular_io.ads
+terminal_interface-curses-text_io-modular_io.ads
File : terminal_interface-curses-text_io-modular_io.ads
@@ -37,29 +37,29 @@
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
--- Jürgen Pfeifer (juergen.pfeifer@gmx.net) 1996 --
+-- Author: Jürgen Pfeifer <<juergen.pfeifer@gmx.net>> 1996
-- Version Control:
-- @Revision: 1.9 @
-- Binding Version 01.00
------------------------------------------------------------------------------
generic
- type Num is mod <>;
+ type Num is mod <>;
package Terminal_Interface.Curses.Text_IO.Modular_IO is
- Default_Width : Field := Num'Width;
- Default_Base : Number_Base := 10;
+ Default_Width : Field := Num'Width;
+ Default_Base : Number_Base := 10;
procedure Put
- (Win : in Window;
- Item : in Num;
- Width : in Field := Default_Width;
- Base : in Number_Base := Default_Base);
+ (Win : in Window;
+ Item : in Num;
+ Width : in Field := Default_Width;
+ Base : in Number_Base := Default_Base);
procedure Put
- (Item : in Num;
- Width : in Field := Default_Width;
- Base : in Number_Base := Default_Base);
+ (Item : in Num;
+ Width : in Field := Default_Width;
+ Base : in Number_Base := Default_Base);
private
pragma Inline (Put);