[Info-vax] Oberon-2 on VMS

[Arne Vajhøj]

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