[Info-vax] Oberon-2 on VMS

[Chris Townley]

On 03/01/2023 11:13, Ben Lambert wrote:
> 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.

Thanks, but I got it from Arne

Chris
-- 
Chris