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,e65955914102a97c,start
X-Google-Attributes: gid103376,public
From: adam@irvine.com
Subject: How to Use Abstract Data Types (correction)
Date: 1998/04/22
Message-ID: <6hm67u$bdj$1@nnrp1.dejanews.com>#1/1
X-Deja-AN: 346819336
X-Http-User-Agent: Mozilla/3.0 (X11; I; Linux 2.0.18 i586)
Organization: Deja News - The Leader in Internet Discussion
X-Article-Creation-Date: Thu Apr 23 01:41:18 1998 GMT
Newsgroups: comp.lang.ada
Date: 1998-04-22T00:00:00+00:00
List-Id: <comp.lang.ada>


Whoops, in my previous posting I forgot to declare my procedures as
abstract.  Thus, my package spec should be:

    package Library_Package is

        type Library is abstract tagged null record;
        type Book is abstract tagged null record;

        type Scan_Info is abstract tagged null record;

        ... procedure(s) to set up a new Library object

        procedure Scan_By_Title (Lib            : in Library;
                                 Reg_Expression : in String;
                                 Scan           : out Scan_Info;
                                 RE_Error       : out Boolean)
            is abstract;
        function More_Books (Scan : Scan_Info) return Boolean
            is abstract;
        procedure Next_Book (Scan     : in out Scan_Info;
                             Bk       : out Book)
            is abstract;
        procedure Close_Scan (Scan : in out Scan_Info)
            is abstract;

        ... etc.

    end Library_Package;

                                -- Adam


-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/   Now offering spam-free web-based newsreading