Re: How to detect OS type and version?

[Stefan Bellon <bellon@bauhaus-tec.com>]

Jeffrey R. Carter wrote:

> Stefan Bellon wrote:
> 
> > What we are doing is this: We configure our project for the target
> > operating system and during that configuration, a small file with
> > content similar to the following is generated:
> > 
> > separate (Bauhaus.OS)
> > function Get_OS return String is
> > begin
> >    return "GNU/Linux";
> > end Get_OS;
> 
> Is there some reason you're using String rather than an enumerated
> type?

Nothing more than historical reasons. In some files where OS specific
code resides, we have something like the following on package level:

   Is_MSWindows : constant Boolean := Get_OS = "Windows";

We hope that GNAT can optimize enough to propagate the Boolean constant
and only include the active configuration in a case like

   if Is_MSWindows then
      Do_It_The_MSWindows_Way;
   else
      Do_It_The_UNIX_Way;
   end if;

But yes, making it an enumeration is a neater solution (done now).

-- 
Dipl.-Inf. Stefan Bellon
Bauhaus Software Technologies | TTI GmbH TGZ Softwareanalysen c/o ISTE
Tel.: +49 711 78 16 221       | Universitätsstraße 38
Fax.: +49 711 78 16 380       | 70569 Stuttgart