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,FREEMAIL_FROM
	autolearn=unavailable autolearn_force=no version=3.4.4
X-Received: by 10.42.37.143 with SMTP id y15mr689581icd.26.1382018332333;
        Thu, 17 Oct 2013 06:58:52 -0700 (PDT)
X-Received: by 10.50.44.2 with SMTP id a2mr764668igm.6.1382018332280; Thu, 17
 Oct 2013 06:58:52 -0700 (PDT)
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!news.eternal-september.org!news.eternal-september.org!feeder.eternal-september.org!news.glorb.com!i2no17390531qav.0!news-out.google.com!9ni50460qaf.0!nntp.google.com!o2no9838385qas.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Thu, 17 Oct 2013 06:58:51 -0700 (PDT)
In-Reply-To: <24ce5a1f-99e6-465c-b986-85fc09e84ee6@googlegroups.com>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=20.132.64.141;
 posting-account=ShYTIAoAAABytvcS76ZrG9GdaV-nXYKy
NNTP-Posting-Host: 20.132.64.141
References: <e87e8a92-9822-4764-a4a6-1fbc6715ef52@googlegroups.com>
 <14357314-5521-4275-9949-9ea42c790147@googlegroups.com>
 <12b085dd-8e96-477e-bbf3-135330275b69@googlegroups.com>
 <24ce5a1f-99e6-465c-b986-85fc09e84ee6@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <04933b93-d4e1-42b7-9389-5e00a81d13bf@googlegroups.com>
Subject: Re: Passing a String to a C/C++ Subprogram (Special Case)
From: sbelmont700@gmail.com
Injection-Date: Thu, 17 Oct 2013 13:58:52 +0000
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
Xref: news.eternal-september.org comp.lang.ada:17454
Date: 2013-10-17T06:58:51-07:00
List-Id: <comp.lang.ada>

If the client might not be in C anyway, I would put the onus on other units=
 to sort it all out.  Even if a non-C client can be written to figure out a=
 C string, who says the client language can be exported as C convention?  B=
etter to isolate it entirely for when they inevitably change their minds.

generic
   type Client_String_Type is private;
   with function Convert_To_Client(x : String) return Client_String_Type;
   with procedure External_Prog (y : in Client_String_Type);
...

begin=20
   ...
   External_Prog (Convert_To_Client("Hello World!"));
   ...


-sb