søndag 2. mai 2010 Erlang
![CropperCapture[67]](/uploads/2010/05/CropperCapture67.png "CropperCapture[67]")
Den første oppgaven jeg gav lærlingen min var å programmere et enkelt kommandolinje-basert kassaapparat i C#. Her er spesifikasjonen. Da jeg begynte å lære meg Erlang tenkte jeg det kunne være interessant å løse den samme oppgaven i det språket.
I denne blogposten følger løsningen jeg kom opp med. Har du lest det jeg har skrevet om Erlang i det siste, og har lyst til å se mer, så kan dette være et interessant eksempel å sette seg inn i.
Cash_register.erl er en implementasjon av en veldig enkel erlang-server (gen_server). Jeg kan opprette en instans av serveren i en erlang-sesjon, og sende prosessen meldinger for å utføre operasjoner på kassaapparatet – dette tilsvarer kommandolinje-grensesnittet beskrevet i den orginale oppgaven. Du kan se et eksempel på en slik sesjon i bunn av blogposten, men først skal vi ta en gjennomgang av koden.
Den første delen definerer modulen og det eksterne interfacet. Funksjonene start og stop starter og stopper logisk nok serveren. Deretter følger funksjonene for å liste tingene butikken selger, kjøpe en (eller flere) ting, se innholdet i handlekurven, og betale. Alle disse sender en melding til prosessen ?MODULE – og ?MODULE er bare en macro som erstattes med navnet på modulen (cach_register). Prosessen lever altså i sin egen "tråd", og håndterer meldingene asynkront.
Og nå følger selve kassaapparat-logikken, koden som kjøres i server-prosessen og som håndterer kallene som gjøres i linje 14 til 18. Det hele er egentlig ganske enkelt, selv om det nok ser kaotisk ut ved første øyekast om man ikke er vandt til Erlang. Se på hver av handlerne og sammenlign med output når metodene kjøres (se den gule boksen i slutten av blogposten).
Spesielle ting å legge merke til: I linje 25 er det en list comprehension som lager en liste av alle tingene butikken selger kombinert med prisen for hver ting. Se også hvordan jeg oppdaterer handlekurven (State) i linje 30. I handleren som begynner på linje 39 kan du se en erlangsk switch/case, hvor jeg sjekker om det du betaler er nok for å dekke alle varene.
Du kan også legge merke til at linje 24 til og med 56 er én funksjon. Den har bare flere "innganger", og bruker mønstergjenkjenning til å finne ut hvilken inngang som skal brukes basert på hvilken melding den mottar (se blogposten mønstergjenkjenning i erlang).
Den neste lille biten er noen små detaljer som ble brukt i del 2 – nemlig definisjonen av prisene for hver vare, og metoden som summerer opp totalprisen for alt i handlekurven (her bruker jeg også en list comprehension).
De siste fem linjene er egentlig ikke i bruk, men er nødvendige for at jeg skal kunne bruke gen_server-modulen. Legg merke til metoden "code_change" – den blir kalt om man endre modulens kode mens serveren kjører!
Til slutt må jeg bevise at programmet fungerer som det skal. Ved hjelp av et interaktivt Erlang shell kan jeg kompilere modulen min (prompt 1 nedenfor), starte serveren i en ny prosess (prompt 2), og begynne å handle:
C:\Users\tormar\erlang_projects\cash_register>erl
Eshell V5.7.4 (abort with ^G)
1> c(cash_register).
{ok,cash_register}
2> cash_register:start().
{ok,<0.38.0>}
3> cash_register:list_items().
{items_in_shop,[{bread,3.99},{milk,2.5},{butter,4.0}]}
4> cash_register:buy(butter).
{bought,1,butter,price,4.0,total,4.0}
5> cash_register:buy(bread, 2).
{bought,2,bread,price,7.98,total,11.98}
6> cash_register:buy(milk, 4).
{bought,4,milk,price,10.0,total,21.98}
7> cash_register:show_cart().
{shopping_cart,[{milk,4},{bread,2},{butter,1}],total,21.98}
8> cash_register:checkout(20).
that_is_not_enough
9> cash_register:checkout(50).
{received,50,total_to_pay,21.98,you_get_back,28.02}
10> cash_register:show_cart().
{shopping_cart,[],total,0}
11> cash_register:stop().
stopped
12>
PS til prompt 2: Det som returneres når jeg starter cash_register servicen er en Pid (process id).
Så, er det noen erfarne Erlang-utviklere der ute som vil kommentere min første gen_server? Det er sikkert mye å ta tak i her :)