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.36.65.10 with SMTP id x10mr6604211ita.35.1511452970203;
        Thu, 23 Nov 2017 08:02:50 -0800 (PST)
X-Received: by 10.157.51.145 with SMTP id u17mr1064999otc.7.1511452970125;
 Thu, 23 Nov 2017 08:02:50 -0800 (PST)
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!feeder.eternal-september.org!news.fcku.it!weretis.net!feeder6.news.weretis.net!feeder.usenetexpress.com!feeder-in1.iad1.usenetexpress.com!border1.nntp.dca1.giganews.com!border2.nntp.dca1.giganews.com!nntp.giganews.com!i6no4557872itb.0!news-out.google.com!193ni8377iti.0!nntp.google.com!d140no4561611itd.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Thu, 23 Nov 2017 08:02:49 -0800 (PST)
In-Reply-To: <ov60m1$91f$1@dont-email.me>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=76.113.16.86;
 posting-account=lJ3JNwoAAAAQfH3VV9vttJLkThaxtTfC
NNTP-Posting-Host: 76.113.16.86
References: <ousq8j$17fb$1@gioia.aioe.org>
 <2c5d0dff-bc12-4b37-b8e1-ac176c3e675f@googlegroups.com>
 <ouvlq8$9ne$1@franka.jacob-sparre.dk>
 <40dc6a79-9434-4b5a-bed0-50ee1dfb74c5@googlegroups.com>
 <ov2ipt$ig0$1@franka.jacob-sparre.dk>
 <f008ea86-60a5-411d-88ab-0130bcda63a8@googlegroups.com>
 <ov60m1$91f$1@dont-email.me>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <6b0dde52-4f23-451a-ae8f-9199299c3a0a@googlegroups.com>
Subject: Re: gettext for Ada
From: Shark8 <onewingedshark@gmail.com>
Injection-Date: Thu, 23 Nov 2017 16:02:50 +0000
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
Xref: feeder.eternal-september.org comp.lang.ada:49116
Date: 2017-11-23T08:02:49-08:00
List-Id: <comp.lang.ada>

On Thursday, November 23, 2017 at 1:25:50 AM UTC-7, G. B. wrote:
> Shark8 wrote:
>=20
> > Er... "The strings come from a freely available ISO standard, so they w=
ill never change"
> >=20
> > So why not enumerate the strings, that way proper cases can be done on
> > either languages and/or locales?
>=20
>=20
> The set of locales may grow. =E2=80=98Last etc. would change.

Why would you use 'Last or 'Succ on languages? -- If you're talking about s=
etting up a generic-system, you'd make special values formal parameters:

Generic
  Type Language is (<>);
  Default,
  Unknown : in Language;
Package Translation_Base is
 --...
End Translation_Base;


Using enumerations also means that you can leverage discriminated records, =
making a solid foundation for true multilingual applications:

Type Language_String( Language : Ada.Locale.Language; Length : Natural ) is=
 record
  Data : String( 1..Length );
end record;

--...

Package Language_String_Vector is new Ada.Containers.Indefinite_Vectors(
    Index   =3D> Positive,
    Element =3D> Language_String
  );

Subtype Multi_Lingual_Text is Language_String_Vector.Vector;

--...

Procedure Render( Text : Multi_Lingual_Text; Display : Some_Text_Device );