[Info-vax] Oberon-2 on VMS

[Ben Lambert]

On Friday, 30 December 2022 at 16:07:01 UTC, Chris Townley wrote:
> On 30/12/2022 00:56, Arne Vajhøj wrote: 
> > On 12/29/2022 7:54 PM, Arne Vajhøj wrote: 
> >> Probably not something in great demand. 
> >> 
> >> :-) 
> >> 
> >> But here it is how to get it working: 
> >> 
> >> 1) get Gardens Point Component Pascal (despite the name 
> >>     then it is Oberon-2) for JVM version 1.3.16 (that version 
> >>     works on VMS Alpha not just VMS Itanium) 
> >> 2) move to VMS and unpack 
> >> 3) stuff gpcp.com and gpcpdef.com in the bin dir (files 
> >>     are below) 
> >> 4) @gpcpdef 
> > 
> > $ type Hello.cp 
> > MODULE Hello; 
> >   IMPORT CPmain, Console; 
> > 
> > BEGIN 
> >   Console.WriteString("Hello world!"); 
> >   Console.WriteLn; 
> > END Hello. 
> > $ gpcpc "Hello" 
> > #gpcp: <Hello> No errors 
> > $ gpcp "Hello" 
> > Hello world! 
> > $ type Fac.cp 
> > MODULE Fac; 
> >   IMPORT CPmain, Console; 
> > 
> > PROCEDURE F(n : INTEGER) : INTEGER; 
> > 
> > BEGIN 
> >   IF n < 2 THEN 
> >     RETURN 1; 
> >   ELSE 
> >     RETURN n * F(n - 1); 
> >   END; 
> > END F; 
> > 
> > PROCEDURE Test(upplim : INTEGER); 
> > 
> > VAR 
> >   i : INTEGER; 
> > 
> > BEGIN 
> >   FOR i := 1 TO upplim DO 
> >     Console.WriteInt(i, 1); 
> >     Console.WriteString(" : "); 
> >     Console.WriteInt(F(i),1); 
> >     Console.WriteLn; 
> >   END; 
> > END Test; 
> > 
> > BEGIN 
> >   Test(8); 
> > END Fac. 
> > $ gpcpc "Fac" 
> > #gpcp: <Fac> No errors 
> > $ gpcp "Fac" 
> > 1 : 1 
> > 2 : 2 
> > 3 : 6 
> > 4 : 24 
> > 5 : 120 
> > 6 : 720 
> > 7 : 5040 
> > 8 : 40320 
> > 
> > Arne 
> > 
> >
> Sounds interesting. 
> 
> Any idea where to get the alpha version of java, and how to install? 
> 
> -- 
> Chris

I still have it, I've shared it in my Google Drive here for you:

https://drive.google.com/file/d/1NBzcwC1VmxgdB0jbLNMH2VnEMVzInmD8/view?usp=sharing

HTH

Ben.