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,23c6847871d5deb4,start X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 2001-11-28 00:28:23 PST Path: archiver1.google.com!news1.google.com!sn-xit-02!supernews.com!news.tele.dk!small.news.tele.dk!195.86.7.162!newsfeed.wirehub.nl!bnewspeer00.bru.ops.eu.uu.net!bnewspost00.bru.ops.eu.uu.net!emea.uu.net!read.news.de.uu.net!not-for-mail Message-ID: <3C04A024.DEAFCE6@meppen.sema.slb.com> Date: Wed, 28 Nov 2001 09:28:20 +0100 From: Vincent Smeets Organization: CCI - SchlumbergerSema X-Mailer: Mozilla 4.77 [en] (X11; U; SunOS 5.6 sun4m) X-Accept-Language: nl, en, de MIME-Version: 1.0 Newsgroups: comp.lang.ada Subject: Example of OSI package/data structure? Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit NNTP-Posting-Host: zerberus.cci.de X-Trace: 1006936101 read.news.de.uu.net 192 193.103.165.100 X-Complaints-To: abuse@de.uu.net Xref: archiver1.google.com comp.lang.ada:17087 Date: 2001-11-28T09:28:20+01:00 List-Id: Hallo, Can someone point me to an example of an implementation for the ISO/OSI protocol stack? I have a description of a protocol that has to be coded in Ada95. I it now coded (hacked) in a bad form in Ada83 and I want to redesign it for Ada95. First I need a package structure. I want to decopple every layer as much as possible and was thinking of a tagged type for the device and extend it in every next layer. I have three ideas from which I think the first is the best (your opinion please?): OSI OSI.Physical OSI.Physical.Data_Link OSI.Physical.Data_Link.Network OSI.Physical.Data_Link.Network.Transport OSI.Physical.Data_Link.Network.Transport.Session OSI.Physical.Data_Link.Network.Transport.Session.Presentation OSI.Physical.Data_Link.Network.Transport.Session.Presentation.Application OSI OSI.Application OSI.Application.Presentation OSI.Application.Presentation.Session OSI.Application.Presentation.Session.Transport OSI.Application.Presentation.Session.Transport.Network OSI.Application.Presentation.Session.Transport.Network.Data_Link OSI.Application.Presentation.Session.Transport.Network.Data_Link.Physical OSI OSI.Physical OSI.Data_Link OSI.Network OSI.Transport OSI.Session OSI.Presentation OSI.Application Next; what type definition can I use for my device. As I only have two physical devices, I would like to define only two variables in the package Physical that has to be used for the operations and not allow the user to define extra variables. Something like: type Device (<>) is tagged limited private; Device_1 : Device; Device_2 : Device; The problem is that this doesn't work and if the type is extended, the variables has to be redefined to contain the extension. I hope you have enough information. Can you give me some help or point me to an example? Thanks, Vincent -- Vincent Smeets SchlumbergerSema - Competence Center Informatik GmbH Lohberg 10 - 49716 Meppen - Germany tel: +49 5931-805-461 fax: +49 5931-805-175 mail: VSmeets@slb.com web: www.cci.de