HELP: PC System Call

HELP: PC System Call

[John Cupak]

I teach Ada 95 using N. Cohen's "Ada as a Second Language, 2ed".

In the past, the students used UNIX workstations, and I assigned them
the GETENV problem from them book. You know, call the UNIX
getenv function with an environment variable, and get the mapped
results back. We used all the C interface libraries, and it work just
like in the book!

But, now we've replaced all the UNIX workstations with PCs, and I
need a similar problem to give the students.

Does anyone have a nice, simple, Ada 95 "call" to an existing PC
library function (even a DLL?) that I can substitute for the GETENV
problem?

Let me know both here, as well as my work email: John_J_Cupak@raytheon.com

Thanks,
John

Re: HELP: PC System Call

[Adrian Knoth]

John Cupak <Jcupak744@attbi.com> wrote:

> But, now we've replaced all the UNIX workstations with PCs, and I
> need a similar problem to give the students.

That is your fault. Sponsored by Microsoft? :)

One way is to take your central UNIX-architecture. Using telnet or any
similar remote-login would give you UNIX. This works well for at least
two universities here, where the UNIX-pools can be "extended" by using
the provided X-server from Win2k-machines.

> Does anyone have a nice, simple, Ada 95 "call" to an existing PC
> library function (even a DLL?) that I can substitute for the GETENV
> problem?

Getting the Windows-Login-name could be a question solved by a DLL.

But let me come back to these two universities here: every PC is at least
Dualboot, thus having both, Windows and Linux, mostly Debian. A lot of
stuff is shared via NFS.

I think you should consider a way giving your students UNIX back. They
have a right for it and mankind needs it too (as a counterpart to all
these ugly Windows-stuff, which is probably decreasing intelligence :)

-- 
mail: adi@thur.de  	http://adi.thur.de	PGP: v2-key via keyserver

Shakesbeer fuer Alkoholiker: TWO BEER OR NOT TWO BEER

Re: HELP: PC System Call

[Chad R. Meiners]

"Adrian Knoth" <adi@drcomp.erfurt.thur.de> wrote in message
news:slrnag39n7.15h.adi@drcomp.erfurt.thur.de...
> I think you should consider a way giving your students UNIX back. They
> have a right for it and mankind needs it too (as a counterpart to all
> these ugly Windows-stuff, which is probably decreasing intelligence :)
>

Actually I would bet that ignorance and hatred are more apt to decrease
rational reasoning.

-CRM

Re: HELP: PC System Call

[Jerry van Dijk]

> In the past, the students used UNIX workstations, and I assigned them
> the GETENV problem from them book. You know, call the UNIX
> getenv function with an environment variable, and get the mapped
> results back. We used all the C interface libraries, and it work just
> like in the book!

Hmmmm, I can't find such an exercise in the book, only 19.7, asking a body
for a system call. Since you mentioned DLL's, I gather that you are running
Windows on the PC's. Although I do not understand what it is that does
not work, the following works fine with GNAT 3.14p for NT:

with Ada.Text_IO;          use Ada.Text_IO;
with Interfaces.C.Strings; use Interfaces.C.Strings;

procedure Check is

   function getenv (Name : chars_ptr) return chars_ptr;
   pragma Import (C, getenv, "getenv");

   function Get_Env (Name : String) return String is
      Result : chars_ptr;
      C_Name : chars_ptr := New_String (Name);
   begin
      Result := getenv (C_Name);
      Free (C_Name);
      return Value (Result);
   end Get_Env;

begin
   Put_Line ("COMSPEC = " & Get_Env ("COMSPEC"));
end Check;

-- 
--  Jerry van Dijk   | email: jvandyk@attglobal.net
--  Leiden, Holland  | web:   users.ncrvnet.nl/gmvdijk

Re: HELP: PC System Call

[Robert Dewar]

"John Cupak" <Jcupak744@attbi.com> wrote in message news:<ZtcM8.49323$KD3.980836@typhoon.ne.ipsvc.net>...
> I teach Ada 95 using N. Cohen's "Ada as a Second Language, 2ed".
> 
> In the past, the students used UNIX workstations, and I assigned them
> the GETENV problem from them book. You know, call the UNIX
> getenv function with an environment variable, and get the mapped
> results back. We used all the C interface libraries, and it work just
> like in the book!
> 
> But, now we've replaced all the UNIX workstations with PCs, and I
> need a similar problem to give the students.
> 
> Does anyone have a nice, simple, Ada 95 "call" to an existing PC
> library function (even a DLL?) that I can substitute for the GETENV
> problem?
> 
> Let me know both here, as well as my work email: John_J_Cupak@raytheon.com

Well if you did the reasonable thing and ran GNU/Linux on your PC's, you would
not even be asking this question :-)

Even if for some reason you are running Microsoft systems, this should still
work fine (interfacing to getenv) if you have an appropriate compiler interfaced.

Re: HELP: PC System Call

[Robert Dewar]

"John Cupak" <Jcupak744@attbi.com> wrote in message news:<ZtcM8.49323$KD3.980836@typhoon.ne.ipsvc.net>...
> I teach Ada 95 using N. Cohen's "Ada as a Second Language, 2ed".
> 
> In the past, the students used UNIX workstations, and I assigned them
> the GETENV problem from them book. You know, call the UNIX
> getenv function with an environment variable, and get the mapped
> results back. We used all the C interface libraries, and it work just
> like in the book!
> 
> But, now we've replaced all the UNIX workstations with PCs, and I
> need a similar problem to give the students.
> 
> Does anyone have a nice, simple, Ada 95 "call" to an existing PC
> library function (even a DLL?) that I can substitute for the GETENV
> problem?

Actually if you are using GNAT, it would be more appropriate to use the
routine in the GNAT library for accessing environment variables.

Re: HELP: PC System Call

[Simon Wright]

dewar@gnat.com (Robert Dewar) writes:

> Actually if you are using GNAT, it would be more appropriate to use
> the routine in the GNAT library for accessing environment variables.

Perhaps not if the point of the exercise is to teach interfacing to C?

Re: HELP: PC System Call

[Preben Randhol]

On Sat, 08 Jun 2002 00:46:49 GMT, John Cupak wrote:
> I teach Ada 95 using N. Cohen's "Ada as a Second Language, 2ed".
> 
> In the past, the students used UNIX workstations, and I assigned them
> the GETENV problem from them book. You know, call the UNIX
> getenv function with an environment variable, and get the mapped
> results back. We used all the C interface libraries, and it work just
> like in the book!
> 
> But, now we've replaced all the UNIX workstations with PCs, and I
> need a similar problem to give the students.

Can't they do it on Linuxes on these PCs? Or has PC gotten an even new
meaning now? PC -> Presonal Computer -> Intel x86 Personal Computer ->
Intel x86 Presonal Computer with one of the Windows OS mutations ?

Preben

Re: PC System Call

[David Botton]

There is an example on AdaPower of using GNAT.OS_Lib.getenv -
http://www.adapower.com/lang/gnat-os-getenv.html

If you need to, you can look at the source of  GNAT.OS_Lib (included with
the gnat distributions) and see how it is done.

David Botton



"John Cupak" <Jcupak744@attbi.com> wrote in message
news:ZtcM8.49323$KD3.980836@typhoon.ne.ipsvc.net...
> I teach Ada 95 using N. Cohen's "Ada as a Second Language, 2ed".
>
> In the past, the students used UNIX workstations, and I assigned them
> the GETENV problem from them book. You know, call the UNIX
> getenv function with an environment variable, and get the mapped
> results back. We used all the C interface libraries, and it work just
> like in the book!
>
> But, now we've replaced all the UNIX workstations with PCs, and I
> need a similar problem to give the students.
>
> Does anyone have a nice, simple, Ada 95 "call" to an existing PC
> library function (even a DLL?) that I can substitute for the GETENV
> problem?
>
> Let me know both here, as well as my work email: John_J_Cupak@raytheon.com
>
> Thanks,
> John
>
>