From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,a272f4fa29c0f648,start
X-Google-Attributes: gid103376,public
From: Eric James DeArment <ejd@efn.org>
Subject: package
Date: 1997/08/13
Message-ID: <Pine.SUN.3.95.970813130808.2391A-100000@garcia.efn.org>#1/1
X-Deja-AN: 264008008
Organization: Oregon Public Networking
Newsgroups: comp.lang.ada
Date: 1997-08-13T00:00:00+00:00
List-Id: <comp.lang.ada>


I'm still new to Ada and I need to know if the package below is written
correctly.  It's designed to let the user access Unix system-level
functions like Lynx, Telnet, Sendmail and logout.  Here it is:

with interfaces.c; use interfaces.c;
with ada.text_io; use ada.text_io;
package body sysfunct is

	function system(Command : in char_array) return integer;
	pragma Import (C, system, system);

procedure www is
begin
	system(lynx);
end www;

procedure telnetg is
begin	
	system(telnet garcia.efn.org);
end telnetg;

procedure telnetc is
begin
	system(telnet caritas.efn.org);
end telnetc;

procedure exit is
begin
	system(logout);
end exit;

procedure mail is
begin
	text_io.put("To send your message when you're done, press");
	text_io.put(" <Enter> and type a period on the line just ");
	text_io.put("below the last line of your message body.");
	system(sendmail ejd@efn.org);
  end mail;
end sysfunct;

I still have plenty to learn about Ada, so I suspect that this package is
filled to the brim with bugs.  Basically, I'm just requesting that someone
maybe points out the bugs, and maybe gives me some solutions.  

						Thanks in advance,
							Eric

Note: please send your reply(s) to my address rather than posting them to
the newsgroup.