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=-0.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD, FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.4 X-Google-Thread: 103376,e51f94f876618e37 X-Google-NewGroupId: yes X-Google-Attributes: gida07f3367d7,domainid0,public,usenet X-Google-Language: ENGLISH,ASCII-7-bit Received: by 10.66.86.194 with SMTP id r2mr5136979paz.42.1352563721938; Sat, 10 Nov 2012 08:08:41 -0800 (PST) Received: by 10.68.131.8 with SMTP id oi8mr4496501pbb.15.1352563721921; Sat, 10 Nov 2012 08:08:41 -0800 (PST) Path: 6ni68539pbd.1!nntp.google.com!kr7no42851661pbb.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail Newsgroups: comp.lang.ada Date: Sat, 10 Nov 2012 08:08:41 -0800 (PST) In-Reply-To: Complaints-To: groups-abuse@google.com Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=69.20.190.126; posting-account=lJ3JNwoAAAAQfH3VV9vttJLkThaxtTfC NNTP-Posting-Host: 69.20.190.126 References: <9bbd99bd-f953-434d-b3c8-6e8a6d5c7dfd@googlegroups.com> <77906f56-8ea0-4d87-8ace-4db1172958cd@googlegroups.com> <5dd387bf-f15e-4800-8c92-ceb87c956581@googlegroups.com> User-Agent: G2/1.0 MIME-Version: 1.0 Message-ID: <56e87da1-bd1f-4629-800a-1b0570c0f460@googlegroups.com> Subject: Re: Question[s] about aliased extended return. From: Shark8 Injection-Date: Sat, 10 Nov 2012 16:08:41 +0000 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable Date: 2012-11-10T08:08:41-08:00 List-Id: On Saturday, November 10, 2012 12:27:20 AM UTC-7, Randy Brukardt wrote: > "Shark8" wrote in message=20 >=20 > news:5dd387bf-f15e-4800-8c92-ceb87c956581@googlegroups.com... >=20 > >As I have it the thin binding is only in the package-bodies, completely= =20 > >unexposed to the client. >=20 > I've tended to put them in private packages (or the private part), mainly= so=20 > each API only needs to be defined once. By putting them in the private pa= rt=20 > or in private packages, child units can use them, but clients still don't= =20 > have access. Of course, if you're CERTAIN that you'll NEVER need to use t= he=20 > same API somewhere else, the body is probably better. (But who's certain = of=20 > anything?? :-) Good points. In the OpenGL binding there's only one function that it's looking like migh= t be useful in a parent's private part (glGetInteger) which is needed for g= etting the numbers of "objects" and therefore might make a use in parameter= s for a generic package that set the types up: Generic Max_Textures : Integer :=3D glGetInteger( [constant for 'textures'] ); Package Types is SubType Textures is Enum Range Texture_Base..Texture_Base+Enum(Max_Textur= es); End Types; {Top of my head, no syntax-check/compile}