Vlastika ultra brutal erlang chat server

11.2.2010 22:00 | Přečteno: 1818× | programovani | poslední úprava: 14.2.2010 17:27

Rád bych vám představil svůj zbrusu nový výtvor, související s mým učením se funkcionálnímu jazyku erlang, vhodnému pro psaní serverů.

Jedná se o chat server, na který se dá připojit přes telnet. Možná se zrovna divíte, že něco takového musí být v erlangu na pár řádek ale ...

Tu je seznam vlastností

• Readline-like shell - takže žádný chorý line-mode
• Historie zadaných příkazů a zpráv
• Napovídání přes TAB pro příkazy a jména uživatelů
• Obarvený text příkazů a různé barvy uživatelů
• Privátní zprávy
• Přejmenování se z anonymního jména na svůj vlastní nick
• Kopání bastardů
• Výpis připojených uživatelů
• Simulace pádu procesu - ukázka robustnosti serverů psaných v erlangu (proces se restartuje bez toho, aby uživatel něco poznal)
• Nápověda ke všemu tomuto
• Zjednodušená BSD licence

Na tomto projektíku jsem se naučil základům erlangu za 3 dny. Obsahuje snad všecko, co muže takový jednoduchý program obsahovat - obousměrná meziprocesová komunikace, monitor procesy, operace s seznamy, regulární výrazy, všudepřítomný pattern matching (== způsob programování v erlangu), podmínky pro výběr funkce (hlavně v kódu terminálu).

Rád bych, aby moje práce byla někomu k něčemu, takže jsem zvolil zjednodušenou BSD licenci. Naopak bych byl také rád, kdyby se objevil nějaký zkušený erlang programátor, aby to zkritizoval a já se poučil ze svých chyb.

Pokud mě erlang bude bavit a budu mít chuť, možná se mužete těšit na nějaký miniúvod do erlangu, případně na nějakou kritiku tohoto vynikajícího jazyka.

Nakonec tedy link na

DOWNLOAD 0.1

Pro spuštění stačí mít nainstalovaný erlang a spustit run.sh script, který skompiluje oba zdrojáky a spustí chat server. Defaultní port je 5000, dá se změnit v chat.erl v definici skoro hned za licencí.

---

Updated 13.02.2010

DOWNLOAD 0.2

• Přidána podpora chat místností
• Vylepšení kódu

---

Updated 14.02.2010

DOWNLOAD 0.2.1

• Vylepšena podpora libvte terminálů
• Napovídání možností při doplňování (podobné bashi)

---

Updated 14.02.2010

DOWNLOAD 0.2.2

• Opravena chybka v terminálu

       

Komentáře

[Radek Miček]

Pár poznámek ke kódu: Seznamy velmi často používáte jako pole, tj. snažil bych se vyhnout funkci lists:nth/2. Není třeba všude používat knihovní funkce viz třeba term:compare_strings/2, kterou by šlo napsat prakticky bez knihovních funkcí a byla by navíc efektivnější nebo napsat s knihovními funkcemi třeba takto (v Haskellu):

compareStrings as bs
  | as == bs  = Nothing
  | otherwise = Just $ length $ takeWhile id $ zipWith (==) as bs

V Erlangu je potíž s funkcí lists:zipwith/3, která přijímá jen stejně dlouhé seznamy tj. musel byste řetězce oříznout na délku toho kratšího.

s mým učením se funkcionálnímu jazyku erlang

Je dobře, že se učíte funkcionální jazyk, a doufám, že po Erlangu bude následovat Haskell

[vlastikroot]

Díky za připomínky. Doufám, že si nemusíme vykat Tu compare_strings/2 jsem přepsal, mě osobně se líbí mnohem víc

compare_strings(S1, S2) when S1 == S2 ->
     same;
compare_strings(S1, S2) when (S1 == []) or (S2 == []) ->
     {different,0};
compare_strings(S1, S2) when length(S2) > length(S1) ->
     compare_strings(S2, S1);
compare_strings(S1, S2) when length(S1) > length(S2) ->
     S1Part = lists:sublist(S1, length(S2)),
     compare_strings(S1Part, S2);
compare_strings(S1, S2) when length(S1) == length(S2) ->
     Same = lists:zipwith(fun(X, Y) -> X == Y end, S1, S2),
     {different,length(lists:takewhile(fun(X) -> X end, Same))}.

Použil jsem tu funkci lists:zipwith/3, o které jsem předtím nevěděl (díky ).

Ta funkce byla opravdu ošklivě napsaná, asi jsem se moc nesoustředil a jen psal takovým tím C stylem (funguje to, je to dobře).

S haskellem nevím, zatím pro něj nemám praktické využití (možná v budoucnu na nějakou matematiku etc.). Cesty programátora jsou nevyzpytatelné

[Radek Miček]

Takhle to vypadá lépe, ale zkus si zavolat compare_strings("auto","aut"). Já bych to napsal asi takto (bez funkcí z knihovny):

compare_strings(XS, YS) -> compare_strings(0, XS, YS).

compare_strings(I, [A|XS], [A|YS]) -> compare_strings(I+1, XS, YS);
compare_strings(_, []    , []    ) -> {same};
compare_strings(I, _     , _     ) -> {different, I}.

[Radek Miček]

s/{same}/same/

[vlastikroot]

Hmm mám se ještě co učit, v pohodě chápu jak to funguje, ale nevymyslel bych to ...

[CiV]

Přidání parametru - akumulátoru je často používaná technika ve funkcionálním programování. To se hodí znát.

[Radek Miček]

Chtěl bych se ještě zeptat, jestli se Erlang učíte díky KSP?

[vlastikroot]

Učím se ho jen ze svých šílených pohnutek

[pozortucnak]

Ten miniúvod do erlangu by byl fajn... Možná by to ale nejdřív chtělo úvod do funkcionálního programování, přeci jen to vyžaduje jiný přístup...

[vlastikroot]

Já nevím, jestli bych si na něco takového troufnul, přecejen o funkcionálnim programování nevím zhola nic (a abych řek pravdu, ani o žádném jiném - to člověk prostě musí mít v krvi). Asi tak jen že je to jako každé jiné programování (imperativní, objektově orientované), jen má člověk silně omezenou ale mocnou množinu vyjadřovacích schopností. Navíc nemám rád teorii

[vlastikroot]

Tak, přidal jsem novou verzi 0.2

[xkucf03]

Pěkné, zkoušel jsem a funguje. Jen jsem měl trochu problém s editací řádku (backspace, delete…).

Tip na vylepšení: používat Jabber MUC jako „backend“ – udělat z toho telnetové rozhraní k místnosti v Jabberu. BTW: já teď zase pracuji na jednoduchém webovém rozhraní pro jabberové místnosti.

[vlastikroot]

Jak přesně se projevují ty problémy s terminálem? Protože já to nikde jinde než u mě s telnetem z inetutils na xtermu nezkoušel. To MUC je zajímavý nápad, třeba někdy

[vlastikroot]

Přidal jsem další verzi, skus, jestli to pomuže. Byl tam problém s tím, že xterm posílá pro backspace /b, ale libvte terminály /0x127.

[xkucf03]

0.2.1 – to už je lepší, backspace a delete fungují. Teď ještě když nastavím kurzor na (ne za ale na) poslední písmenko řádku a snažím se něco napsat, chová se to „divně“ – jednou se přepíše, jindy se připíše před něj atd.

[vlastikroot]

Uff. To těch verzí je. Každopádně díky za bugreporty

[xkucf03]

njn, mohl by sis pořídit nějaký verzovací systém, ať to sem nemusíš dávat jako archívy :-P

[vlastikroot]

Náš git server je momentálně down, tak proto