Re: ada/c if - putenv?

Re: ada/c if - putenv?

[Jeff Carter]

Your program works fine as-is with GNAT 3.12p/Win98.

I don't know how putenv is supposed to work, but that Free in your
Putenv procedure looks suspicious ...
-- 
Jeff Carter
"You empty-headed animal-food-trough wiper."
Monty Python & the Holy Grail

ada/c if - putenv?

[Al Johnston]

I am try to learn ada->c interfacing.

Will someone please explain why the following program does not
work?.  If I set the env manually and remove the call to putenv
from the test case, the call to getenv works okay... but when
I let the test code call putenv, not only does the getenv call
not return the value given it by the putenv call, but it does
not even get the old (manually set) value...

what am I missing (gnat 3.12 on a linux RH6.1 x86)

tnx,

-al

with euanos;
with text_io;

procedure test is
begin
  euanos.PutEnv("ASJ=hi");
  text_io.put_line(" ==>" & euanos.GetEnv("ASJ") & "<==");
end test;

with interfaces.c.strings;

package EUANOS  is

  --
---------------------------------------------------------------------------

  -- Name: EUANOS (eise-utilities/ada/native/op-system
  --
  --
---------------------------------------------------------------------------

  EUANOS_PutEnv_Failed : exception;


  procedure PutEnv(Sym : String);


  function GetEnv(Sym : String) return String;

end EUANOS;

with interfaces.c.strings;

package body EUANOS is

  --
---------------------------------------------------------------------------

  -- Name: EUANOS (eise utilities/ada/native/op-system
  --
  --
---------------------------------------------------------------------------

  package EUANOS_CIf is

    --
-------------------------------------------------------------------------

    -- see man putenv(3V)
    --
    -- int putenv(const char *string);
    --
    function putenv(Sym : interfaces.c.strings.Chars_Ptr)
             return interfaces.c.Int;
    pragma import(c,putenv,"putenv");
    --
-------------------------------------------------------------------------



    --
-------------------------------------------------------------------------

    -- see man getenv(3V)
    --
    -- char *getenv(const char *name);
    --
    function getenv(sym : interfaces.c.strings.Chars_Ptr)
             return interfaces.c.strings.Chars_Ptr;
    pragma import(c,getenv,"getenv");
    --
-------------------------------------------------------------------------

  end EUANOS_CIf;


  procedure PutEnv(Sym : String) is
    Arg    : interfaces.c.strings.Chars_Ptr;
    Result : interfaces.c.Int;
  begin
    Arg    := interfaces.c.strings.New_String(Sym);
    Result := EUANOS_CIf.putenv(Arg);
    interfaces.c.strings.Free(Arg);
    if (integer(Result) /= 0) then
      raise EUANOS_PutEnv_Failed;
    end if;
  end PutEnv;

  function GetEnv(Sym : String) return String is
    Arg    : interfaces.c.strings.Chars_Ptr;
    Result : interfaces.c.strings.Chars_Ptr;
  begin
    Arg    := interfaces.c.strings.New_String(Sym);
    Result := EUANOS_CIf.getenv(Arg);
    interfaces.c.strings.Free(Arg);
    if interfaces.c.strings."="(Result,interfaces.c.strings.Null_Ptr)
then
      return "-";
    else
      return interfaces.c.strings.Value(Result);
    end if;
  end GetEnv;

end EUANOS;

Re: ada/c if - putenv?

[Al Johnston]

> Yes that's it.
> man putenv gives this information:
>
>      the string pointed to by  string
>      becomes part of the environment, so altering the string will

yipe!  that is strange behavior, but it is documented, very
explicitly...
sorry I didn't RT#M here.... That was the problem...  Looks
like using putenv() causes a memory leak as well (successive calls
for same symbol)... Thank for the help.

> I've seen this answered here a few times over the years.

sorry....

Re: ada/c if - putenv?

[Geoff Bull]

Jeff Carter wrote:
> 
> Your program works fine as-is with GNAT 3.12p/Win98.
> 
> I don't know how putenv is supposed to work, but that Free in your
> Putenv procedure looks suspicious ...

Yes that's it.
man putenv gives this information:

     the string pointed to by  string
     becomes part of the environment, so altering the string will
     change the environment. 


...
     A potential error is to call the function  putenv()  with  a
     pointer to an automatic variable as the argument and to then
     exit the calling function while string is still part of  the
     environment.

And deallocating the string is equally a problem.

I've seen this answered here a few times over the years.

Cheers
Geoff

Re: ada/c if - putenv?

[Nick Roberts]

I think I may have come across this one before. I believe there are some
well-known UNIXen which implement putenv contrary to the manual, in that
they only add a pointer to the argument to the environment, rather than
actually allocating a new string and copying the characters in (aaaargh!).
The result is, of course, that deallocating the argument afterwards knackers
the environment (causing crashes, spurious behaviour, or whatever).

Of course, doesn't this one case just perfectly exemplify the true awfulness
of both UNIX (and its derivatives) and C?

--
Nick Roberts
http://www.adapower.com/lab/adaos

"Al Johnston" <sofeise@mindspring.com> wrote in message
news:38C53194.EE4BAC3E@mindspring.com...

> Will someone please explain why the following program does not
> work?.  If I set the env manually and remove the call to putenv
> from the test case, the call to getenv works okay... but when
> I let the test code call putenv, not only does the getenv call
> not return the value given it by the putenv call, but it does
> not even get the old (manually set) value...