For hendelser i Colon har jeg bestemt meg for å bruke concurrency, ikke ulikt ifra Erlang. GUI-eksempler kommer jeg tilbake til senere når jeg har ting mer klart.

Concurrency i Colon bruker tegnet for currency ¤_ foran et ord eller en blokk _{} for å utføre dette i en egen concurrent prosess. I tillegg brukes ordene receive og send.

1. sayhello: "Hello World!" out
2. ¤sayhello
3. -> Hello World!
5. sayreceived: receive "Received @0" out
6. 5 ¤sayreceived send
7. -> Received 5
9. saymulti: receive
10. {ok} = ? "OK" out
11. {warning _} = ? "Warning: @0" out
12. saymulti
14. ¤saymulti :pid
15. # ...
16. {warning "battery low"} pid send
17. -> Warning: battery low
19. ¤{"Hello World!" out}
20. -> Hello World!

Et større eksempel

Her er et x^y concurrency eksempel fra Erlang jeg satt og lekte meg med og det ble som følger i Colon:

1. pow: {N M} = ?
2. {} {@self @M} powspawn | N swap send + ;
3. 1 swap | drop receive *
5. powspawn:
6. {Pid 0} = ? {} ¤{receive 1 @Pid send} +
7. {Pid M} = ?
8. ¤{receive @Pid send}
9. {@Pid @M 1 -} powspawn +

Hvorvidt dette er helt riktig vet jeg sannelig ikke, er ikke alltid like enkelt når ting er i endring å samtidig la hjernen leke både kompilator og VM på engang ;-)

Erlang:

1. pow(N, M) ->
2. Pids = pow_spawns(self(),M),
3. Vals = lists:map(fun(P) -> P ! N end, Pids),
4. lists:foldl(
5. fun(_,Total) -> receive X -> X*Total end end,
6. 1, Vals).
8. pow_spawn(Pid,0) ->
9. [spawn(fun() -> receive _ -> Pid ! 1 end end)];
10. pow_spawn(Pid,M) ->
11. [spawn(fun() -> receive X -> Pid ! X end end)
12. | spawn(pow_span(Pid,M-1))].

Tilbaketråkk url: klikk her!
Stikkord: colon