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.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,e7eb1c5f294e17be,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 1995-01-26 08:37:51 PST
Newsgroups: comp.lang.ada
Path: 
 nntp.gmd.de!newsserver.jvnc.net!nntpserver.pppl.gov!princeton!udel!gatech!swrinde!pipex!sunsite.doc.ic.ac.uk!dcs.gla.ac.uk!stevem
From: stevem@dcs.gla.ac.uk (Steve McGowan)
Subject: Assignment of limited private types...
Message-ID: <D30u73.5oA@dcs.gla.ac.uk>
Organization: Computing Science Dept., Glasgow University, Glasgow, Scotland
Date: Thu, 26 Jan 1995 16:37:51 GMT
Date: 1995-01-26T16:37:51+00:00
List-Id: <comp.lang.ada>

I'd like to pass in a 'file_type' identifier into a task, make a local
copy of this identifier within the task, and then write text to this
file stream inside the task.

But I cannot do this since 'file_type' is limited private.

Any ideas how I can pass in this identifier, and to write to it
locally?

I want to do something like..

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

task body Run_Full_Experiment_TASK is
.
local_summary_stream : file_type;
.
begin

    accept start(summary_stream : in file_type) do
	local_summary_stream:=summary_stream;
    end start;

    -- ...then use 'local_summary_stream' to write my output.
    --
end Run_Full_Experiment_TASK;

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


Thanks.

--Steve.



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

		I think we're in for a bad spell of wether.

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