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,dab7d920e4340f12
X-Google-Attributes: gid103376,public
From: emery@grebyn.com (David Emery)
Subject: Re: C is 'better' than Ada because...
Date: 1996/07/17
Message-ID: <emery-1707962045430001@line327.nwm.mindlink.net>#1/1
X-Deja-AN: 169413621
references: <JSA.96Jul5145911@organon.com> <dewar.836572544@schonberg>
 <31E402B4.55EC@csehp3.mdc.com> <4se1cl$mp@salyko.cube.net>
 <ws9687m6a3g.fsf@schonberg.cs.nyu.edu>
organization: MIND LINK! - British Columbia, Canada
newsgroups: comp.lang.ada
Date: 1996-07-17T00:00:00+00:00
List-Id: <comp.lang.ada>



 function Replicate (C : Character; Times : Positive) return String is
    Buffer : String(1..Times) := (others => C);
 begin
    return Buffer;
 end Replicate;

Of course, if the number of characters you need is known at compile-time,
there's always the aggregrate
   string'(1..times_constant => c)
I can't remember if times_constant HAS to be static or not...
            dave