Specification of package Tgx.System_Interface

 ========================================================================= --
 ===                                                                   === --
 ===                 Top Graph'X CORBA Implementation                  === --
 ===                                                                   === --
 ===                 Copyright (c) 1996, Top Graph'X.                  === --
 ===                                                                   === --
 ===                     --- Copyright Notice ---                      === --
 ===                                                                   === --
 ===    This software is protected as an unpublished work under the    === --
 ===     Copyright Act of 1976.  All rights reserved.  Top Graph'X.    === --
 ===                                                                   === --
 ========================================================================= --
package Tgx.System_Interface is

   type System_Types is 
      ( Dos, Windows_Nt, Bsd, SVR3, SVR4, Osf1, Lynx, Linux, Vms, VxWorks, Dummy);

   type Vendor_Cpu is
      ( HP9000, Intel, RS6000, Sparc, Alpha, Vax, Wind_River);

   type Compiler_Vendor is
      ( Aonix, Act, Rational, Ddc_I, Oc_Systems, Irvine, Green_Hills);

   type Target_Cpu is
      ( Self_Hosted, Cross_68k, Cross_Intel, PPC);

    Useful Constants 

System_Type : constant System_Types := SVR4;

   Use_Bsd_Gethostname : constant Boolean := False;
   My_Compiler : constant Compiler_Vendor := Act;


   Dir_Char : constant Character := '/' ;
   Dir_String : constant String := "/" ;
   Tilde_Home : constant String := "~/" ;
   Path_Separ : constant Character := ':' ;  

    *********************
    Environment Variables
    *********************

   function Environment_Value_Of
      ( Name      : in String;
        Undefined : in String := "") return String;


   function Get_Root_Dir_Name return String ;

   function Get_Hostname return String;

    Endian dependant functions
   function Endian_Of_Cpu_Is_Msb return Boolean;
   function Endian_Of_Cpu_Is_Lsb return Boolean;

   function Get_Cpp return String;

end Tgx.System_Interface;

List of definition uses