Re: How to detect OS type and version?

[Bernd.Specht@gmx.com (Bernd Specht)]

"Roger Blum" <rogerblum@hawaii.rr.com> wrote in
news:BJj3f.711$QM5.65@tornado.socal.rr.com: 

> Is there a way within Ada (GNAT 3.15p) to tell whether the application
> is running on Linux or Windows (and the version of the OS)?
> 
> Regards,
> Roger 
> 
> 

Determination of the os is relative simple, the os version of a linux also. 
Windows is a bit more complicated.

Use "Text_IO" and try "Open" the file "/proc/sys/kernel/osrelease". On a 
Windows system, you will get an exception (Name_Error ?), on a Linux system 
you can read the file which contains the kernel version. You can use 
"/proc/sys/kernel/version" to get the build (release?) date.

If you cannot determine a linux system as described above, then try to open 
a file that is typically for windows (e.g. "c:\winnt\system32\command.com"). 
If you get _no_ exception, then you are on a windows system. To find the 
version, look for the file "prodspec.ini" (in c:\winnt\system32 and in c:
\system32). You can find the Window type (2000, XP) and the build number. 
But - not on all Windows systems :-( (Win98 do not have this file).

Hope this helps.


Regards,
Bernd

PS: Don't forget to close the files ;-)