Re: Detecting the OS type before clearing screen

[SIMON Claude <claude.simon@equipement.gouv.fr>]

Lutz Donnerhacke wrote:
> 
> * sk wrote:
> > I would gladly welcome any experience of a "clean Ada" way
> > of setting this up if you would care to share.
> 
> with Config.OS1; -- Change here
> 
> package Config is
>    package OS renames Config.OS1; -- and here
>    type os-depended-type renames OS.os-depended-type;
>    function os-depended-function renames OS.os-depended-function;
>    ...
> end Config;
> 
> private package Config.OS1 is
>   ...
> end Config.OS1;
> 
> private package Config.OS2 is
>   ...
> end Config.OS2;


why not :

--  file os1.ads
package OS1 is
   ...
end OS1;

-- file os2.ads
package OS2 is
   ...
end OS2;


-- file os.ads
with OS2; -- select the OS --
package OS renames OS2;


-- others files 

with OS;
package is .....


..........renaming the package renames all specifications in one
instruction.........