[Info-vax] Pascal question

[Emilio Moreno]

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.