linguist/samples/Simula/modern.sim at 25b466b03a53b2953d99deb025fded1f1e7fc888 · github-linguist/linguist · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Task Class PipelineStage;
Virtual: Procedure Run Is Procedure Run;;
begin
    Public:
    channel(integer) input_values;
    channel(integer) output_values;
    Procedure Run;
    begin
        integer value;
        value := receive(input_values);
        send(output_values, value + 1)
    end;
end;

program TaskPipeline;
begin
    Ref(PipelineStage) stage;
    integer result;
    stage :- new PipelineStage();
    send(stage.input_values, 41);
    join spawn stage.Run();
    result := receive(stage.output_values);
    assert(result = 42)
end;