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=3.8 required=5.0 tests=BAYES_00,INVALID_MSGID,
	RATWARE_MS_HASH,RATWARE_OUTLOOK_NONAME autolearn=no autolearn_force=no
	version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,f4dd476206d8344a
X-Google-Attributes: gid103376,public
From: "The Lone Ranger" <the-lone-ranger@clubi.ie>
Subject: Re: Challenge / Help
Date: 1997/05/07
Message-ID: <01bc5ae5$b599d6e0$030000c0@Keith.ers.ie>#1/1
X-Deja-AN: 239963161
References: <01bc5a5d$079820c0$190000c2@Stephen.ers.ie>
Organization: ERS Computer Solutions Ltd.
Newsgroups: comp.lang.ada
Date: 1997-05-07T00:00:00+00:00
List-Id: <comp.lang.ada>


Yeah Try This Arnold,


======================================================
With Ada.Text_IO;
Use Ada.Text_IO;

Procedure ClockM Is	

File	:	File_Type;
x		:	Integer;

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

	Task	Server Is
		Entry GetData(i : in Out Integer);
	End	Server;

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

	Task	ClockMachine1;

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

	Task	Body	Server	Is
	
	Begin
		Accept GetData(i : In Out Integer) Do
			Create(File,Out_File,"Stephen.Txt");
			Put(Integer'Image(i));
			Put(File,integer'image(i));
		End GetData;
	End	Server;
	
-- -----------------------------------------------

	Task	Body	ClockMachine1 Is
		i	:	Integer;
	Begin
		i := 0;
		loop
			i := i+1;
			Put("2");
			Server.GetData(i);
		End Loop;
	End	ClockMachine1;

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

Begin
	null;	
	
End ClockM;



======================================================


Arnold Peterson <stephen@ers.ie> wrote in article
<01bc5a5d$079820c0$190000c2@Stephen.ers.ie>...
> I can't do this!!! Cany any of you guys???
> 
> I'd really appreciate it if somebody could code this for me!
> 
> ----
> 
> 
> The designers of a large house are proposing to build an intelligent
> environment controlled by a central computer system. It is envisaged that
> the final system will incorporate heating and fire detection.
> 
> As part of the design phase of these systems it has been decided to build
a
> prototype which will simulate both the heating and fire detection
systems.
> This prototype will implement a real time kernel which will control the
> heating system and the fire detection system. The kernel will consist of
> two main tasks - a heating task and a fire detection task. The latter
will
> have a higher priority than the former because it is viewed a critical
> task. The actual data is test data provided through a file system as no
> actual devices are connected to the system at this stage.
> 
> 	I have to -
> 		Build the kernel
> 		Build a simulator to test it
> 
> I can't do this!!!
> 
> 
> Thanks in advance.
>