Re: Challenge / Help

["The Lone Ranger" <the-lone-ranger@clubi.ie>]

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.
>