[Info-vax] Pascal question

[John Reagan]

On Wednesday, January 23, 2019 at 7:54:46 AM UTC-5, Emilio Moreno wrote:
> On Monday, January 21, 2019 at 1:05:54 PM UTC-5, Emilio Moreno wrote:
> > On Monday, January 21, 2019 at 11:41:48 AM UTC-5, Arne Vajhøj wrote:
> > > On 1/21/2019 11:40 AM, Arne Vajhøj wrote:
> > > > On 1/21/2019 11:19 AM, Emilio Moreno wrote:
> > > >> Here is another one. upcase
> > > > 
> > > > Weird. I don't seem to be able to find anything better
> > > > than:
> > > 
> > > [inherit('sys$library:pascal$str_routines')]
> > > 
> > > > program uc(input,output);
> > > > 
> > > > type
> > > >     string = varying [255] of char;
> > > > 
> > > > function upcase(s : string) : string;
> > > > 
> > > > var
> > > >     tmp : string;
> > > > 
> > > > begin
> > > >     str$upcase(tmp.body, s.body);
> > > >     tmp.length := s.length;
> > > >     upcase := tmp;
> > > > end;
> > > > 
> > > > var
> > > >     s1, s2 : string;
> > > > 
> > > > begin
> > > >     s1 := 'abc';
> > > >     s2 := upcase(s1);
> > > >     writeln(s1,'->',s2);
> > > > end.
> > > 
> > > Arne
> > 
> > Thank you
> 
> 
> Wow I never thought this thread would morph into this.

You don't come here often, do you? :)

As threads go, this one stayed pretty close to reality.