-module(base).
-export([print/1,printLn/1,getLn/0,getLn/1,show/1]).

% Gibt einen String aus.
% Auch andere Datenstrukturen können ausgegeen werden, allerdings
% keine Integer-Listen .
print("") -> "";
print(Str) when list(Str), integer(hd(Str)) -> io:fwrite("~s",[Str]);
print(Data) -> print(show(Data)).

% Wie print, aber zusätzlich wird ein Zeilenumbruch ausgegeben.
printLn(Str) -> print(Str++"\n").

% getLn() liest eine Zeile von der Tastatur ein.
getLn() -> getLn('').

% getLn(Prompt) liest eine Zeile von der Tastatur ein.
% Das Atom P wird als Prompt verwendet.
getLn(P) -> L = io:get_line(list_to_atom(P)),
	    {Res,_} = lists:split(length(L)-1,L),
	    Res.

show(X) when atom(X) -> atom_to_list(X);
show(X) when integer(X) -> integer_to_list(X);
show(X) when pid(X) -> pid_to_list(X);
show(X) when tuple(X) -> "{"++showList(tuple_to_list(X))++"}";
show(X) when list(X) -> case allInteger(X) of
                          true -> "\""++X++"\"";
                          false -> "["++showList(X)++"]"
                        end.

allInteger([]) -> true;
allInteger([X|Xs]) when integer(X) -> allInteger(Xs);
allInteger(_) -> false.

showList([]) -> "";
showList([X|Xs]) -> show(X)++case Xs of
                               [] -> "";
                               _ -> ","++showList(Xs)
                             end.