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,e58de74cc10e4f9a
X-Google-Attributes: gid103376,public
From: Samuel Tardieu <sam@ada.eu.org>
Subject: Re: Define Stream Input and Output for limited types ?
Date: 1996/11/28
Message-ID: <qw6zq02gmwv.fsf@esmeralda.enst.fr>#1/1
X-Deja-AN: 201252851
sender: tardieu@esmeralda.enst.fr
references: <329DC065.1CFBAE39@avions.aerospatiale.fr>
mail-copies-to: sam@ada.eu.org
to: Paul Chardon <paul.chardon@avions.aerospatiale.fr>
content-type: text/plain; charset=iso-8859-1
organization: TELECOM Paris
mime-version: 1.0
newsgroups: comp.lang.ada
Date: 1996-11-28T00:00:00+00:00
List-Id: <comp.lang.ada>


>>>>> "Paul" == Paul Chardon <paul.chardon@avions.aerospatiale.fr> writes:

Paul> Because I wonder how I can define an attribute. Unfortunately,
Paul> there is no example.

Let's make an example:

   type My_Type is limited null record;

   procedure My_Write (Where : access Ada.Streams.Root_Stream_Type'Class;
                       What  : in My_Type);

   for My_Type'Write use My_Write;

and so on for the Read attribute. Of course, in this case (limited
null record), My_Write would be very simple :-)

  Sam
-- 
  Samuel Tardieu -- sam@ada.eu.org