Lerning Erlang 4

compiling.erl

1> c(htmltags).
{ok,htmltags}

functions1.erl

anchor({Src, Txt}) ->
    "<a src=\"" ++ Src ++ "\">" ++ Txt ++ "</a>";
anchor({Classes, Src, Txt}) ->
    "<a src=\"" ++ Src ++ "\" class=\"" ++ Classes ++ "\">" ++ Txt ++ "</a>";
anchor(Default) ->
    "<a src=\"" ++ Default ++ "\">" ++ Default ++ "</a>".

list_of_files.cmd

^Chernan@hernan-ubuntu:~/DynamicProg/erlang/code$ ll
total 24
drwxrwxr-x 2 hernan hernan 4096 2012-03-26 00:00 ./
drwxrwxr-x 5 hernan hernan 4096 2012-03-25 15:11 ../
-rw-rw-r-- 1 hernan hernan  720 2012-03-26 00:00 htmltags.beam
-rw-rw-r-- 1 hernan hernan  299 2012-03-25 23:33 htmltags.erl

modules1.erl

-module(htmltags).
-export([anchor/1]).

anchor({Src, Txt}) ->
    "<a src=\"" ++ Src ++ "\">" ++ Txt ++ "</a>";
anchor({Classes, Src, Txt}) ->
    "<a src=\"" ++ Src ++ "\" class=\"" ++ Classes ++ "\">" ++ Txt ++ "</a>";
anchor(Default) ->
    "<a src=\"" ++ Default ++ "\">" ++ Default ++ "</a>".

using_module.erl

1> htmltags:anchor({"http://www.erlang.org/", "Erlang lang"}).
"<a src=\"http://www.erlang.org/\">Erlang lang</a>"

2> htmltags:anchor({"rounded menuitem", "http://www.erlang.org/", "Erlang lang"}).
"<a src=\"http://www.erlang.org/\" class=\"rounded menuitem\">Erlang lang</a>"

3> htmltags:anchor("http://www.erlang.org/").
"<a src=\"http://www.erlang.org/\">http://www.erlang.org/</a>"