accessing environment variables

accessing environment variables

[evangeli]

hi all

is it possible to access environment variables?

Sami Evangelista

Re: accessing environment variables

[David C. Hoos]

Yes.

If you want to know how to do it, you need to tell us
what compiler you're using, because there are differences.

----- Original Message ----- 
From: "evangeli" <evangeli@cnam.fr>
Newsgroups: comp.lang.ada
To: <comp.lang.ada@ada.eu.org>
Sent: Wednesday, November 06, 2002 9:22 AM
Subject: accessing environment variables


> hi all
> 
> is it possible to access environment variables?
> 
> Sami Evangelista
> 
> _______________________________________________
> comp.lang.ada mailing list
> comp.lang.ada@ada.eu.org
> http://ada.eu.org/mailman/listinfo/comp.lang.ada
> 

Re: accessing environment variables

[evangeli]

i am under linux

gnatls -v =>
-------------------------------------------------------------------------
GNATLS 3.13p  (20000509) Copyright 1997-1999 Free Software Foundation, Inc
-------------------------------------------------------------------------

Re: accessing environment variables

[sk]

Hi,

> i am under linux
>
> gnatls -v =>
>

Ada.Command_Line.Environment

    function Environment_Count return Natural;

    function Environment_Value (Number : in Positive) return String;

... OR ...

Gnat.Os_Lib

    function Getenv (Name : String) return String_Access;

    procedure Setenv (Name : String; Value : String);

-- 
-------------------------------------
-- Merge vertically for real address
-------------------------------------
s n p @ t . o
 k i e k c c m
-------------------------------------

Re: accessing environment variables

[evangeli]

thanks

sk wrote:

> Hi,
> 
> 
>>i am under linux
>>
>>gnatls -v =>
>>
> 
> Ada.Command_Line.Environment
> 
>     function Environment_Count return Natural;
> 
>     function Environment_Value (Number : in Positive) return String;
> 
> ... OR ...
> 
> Gnat.Os_Lib
> 
>     function Getenv (Name : String) return String_Access;
> 
>     procedure Setenv (Name : String; Value : String);
> 
>