/def ustaw_indeksy = \
	/for i 1 $$[{rozmiar_tablicy_druzyna}] /use_index druzyna $$[{i}]%;\
	/for i 1 $$[{rozmiar_tablicy_druzyna_bie}] /use_index druzyna_bie $$[{i}]

/def rozmiar_tablicy = \
	/if ({#} < 1) \
		/echo Musisz podac nazwe zmiennej!%; \
		/echo Na przyklad : /rozmiar_tablicy druzyna%; \
		/return %; \
	/endif %; \
	/if (if_array_exists({1})) \
		/let PomocniczaZmienna=$(/eval /echo %%_array_%{1})%; \
		/let tab=$[replace("|", " ", {PomocniczaZmienna})]%; \
		/set rozmiar_tablicy_%{1}=$(/policz_tablice %{tab})%;\
	/else \
		/echo Nie ma takiej zmiennej '%{1}'. %; \
	/endif

/def use_index = \
	/if ({#} != 2) \
		/echo You must specify the name of an array, and number of index, which you want to check. %; \
		/return %; \
	/endif %; \
	/if (if_array_exists({1})) \
		/let rozmiar_tablicy=$(/policz_tablice $[replace("|", " ", $(/eval /echo %%_array_%{1}))])%; \
			/uzyj_indeksu %{2} %{1} $[replace("|", " ", $(/eval /echo %%_array_%{1}))]%; \
	/else \
		/echo There is no array with name '%{1}'!%; \
	/endif

/def uzyj_indeksu = \
	/let _nr=%{1}%; \
	/let _ta=%{2}%; \
	/shift %{1}%; \
	/shift %; \
	/set __%{_ta}_pozycja_%{_nr}=%{1}
/if ($(/list mesg) =~ NULL) \
	/def mesg = \
		/if (!getopts("iw", "")) /return 0%%; /endif %%; \
		/if ({opt_i}) \
			/test echo(strcat("@{BCgreen}####@{n}", " @{Cyellow}", {*}), "", 1) %%; \
		/elseif ({opt_w}) \
			/test echo(strcat("@{BCgreen}####@{n}", " @{BCred}", {*}), "", 1) %%; \
		/else \
			/test echo(strcat("@{BCgreen}####@{n}", " ", {*}), "", 1) %%; \
		/endif %; \
/endif

/set biblioteka_tablic_wersja=1.1
/set last_update_tablicy=2005-10-04

/def podziel_linie = \
	/let string=%{1}%;\
	/let dlugosc=%{2}%;\
	/if (strlen(str) > {dlugosc}) \
		/mesg -w String ma wiecej znakow niz okreslona ich dlugosc. %; \
		/return %; \
	/endif %; \
	/let dlugosc_bez=$[{dlugosc} - strlen(string)]%; \
	/let dlugosc_bez_podzial=$[expr({dlugosc_bez} / 2)]%; \
	/let string_koncowy=|$[strrep(" ", {dlugosc_bez_podzial})]%{string}$[strrep(" ", {dlugosc_bez_podzial})]|%; \
	/echo -p @{Cgreen}%{string_koncowy}

/def ?array = /array_help

/def array_help = \
	/echo -p @{Cgreen}+$[strrep("-", 78)]+ %; \
	/test podziel_linie("Biblioteka tablic do TF'a,  by volus", 78)%; \
	/test podziel_linie(strcat("Version  ", biblioteka_tablic_wersja), 78)%; \
	/test podziel_linie(strcat("Ostatnia aktualizacja biblioteki: ", last_update_tablicy), 78)%; \
	/echo -p @{Cgreen}|$[strrep(" ", 78)]| %; \
	/echo -p @{Cgreen}|$[strrep(" ", 78)]| %; \
	/echo -p @{Cgreen}|  * /add_array nazwa elem1 elem2 elem3 elem4 ...							  |%; \
	/echo -p @{Cgreen}|		 Tworzy tablice nazwana 'nazwa' z elementow 'elem1 elem2' itp.		|%; \
	/echo -p @{Cgreen}|$[strrep(" ", 78)]| %; \
	/echo -p @{Cgreen}|  * /add_index nazwa elem1 elem2 elem4 elem4 ...							  |%; \
	/echo -p @{Cgreen}|		 Dodaje element(y) do tablicy 'nazwa'								 |%; \
	/echo -p @{Cgreen}|$[strrep(" ", 78)]| %; \
	/echo -p @{Cgreen}|  * /sizeof_array nazwa													   |%; \
	/echo -p @{Cgreen}|		 Zwraca ilosc elementow tablicy 'nazwa'							   |%; \
	/echo -p @{Cgreen}|$[strrep(" ", 78)]| %; \
	/echo -p @{Cgreen}|  * /check_index nazwa nr_indeksu											 |%; \
	/echo -p @{Cgreen}|		 Zwraca wartosc 'nr_indeksu' z tablicy 'nazwa'						|%; \
	/echo -p @{Cgreen}|$[strrep(" ", 78)]| %; \
	/echo -p @{Cgreen}|  * /member_array elem tablica												|%; \
	/echo -p @{Cgreen}|		 Sprawdza, czy 'elem' jest elementem tablicy 'tablica'				|%; \
	/echo -p @{Cgreen}+$[strrep("-", 78)]+

/def if_array_exists = \
	/if ($(/listvar -s ogolne_%{*})) \
		/result 1%; \
	/endif

/def add_array = \
	/if ({#} < 2) \
		/mesg -i Musisz podac nazwe tablicy i przynajmniej jeden jej element %; \
		/mesg -i Np: /add_array druzyna jarek marek franek%; \
		/return %; \
	/endif %; \
	/if (regmatch("[()|]", {*})) \
		/mesg -i Nazwa tablicy oraz elementy nie moga miec w sobie znakow '(', ')', oraz '|'.%; \
		/mesg -w Uwaga! 1 element liczony jest jako 1 wyraz, liczba badz litera!%; \
		/mesg -w Wiec spacja liczona jest jako koniec elementu tablicy.%; \
		/return %; \
	/endif %; \
	/set _array_%{1}=$[replace(" ", "|", {-1})]|

/def add_index = \
	/if ({#} < 2) \
		/mesg -i Musisz podac nazwe tablicy i przynajmniej jeden jej element do dodania.%; \
		/mesg -i Np: /add_index druzyna krzysztof%; \
		/mesg -i Doda 'krzysztof' do tablicy 'druzyna'%; \
		/return %; \
	/endif %; \
	/if (regmatch("[()|]", {*})) \
		/mesg -i Nazwa tablicy oraz elementy nie moga miec w sobie znakow '(', ')', oraz '|'.%; \
		/return %; \
	/endif %; \
	/if (if_array_exists({1})) \
		/set _array_%{1}=$(/eval /echo %%_array_%{1})$[replace(" ", "|", {-1})]|%;\
	/else \
		/mesg -w Tablica '%{1}' nie istnieje!%; \
	/endif

/def sizeof_array = \
	/if ({#} < 1) \
		/mesg -i Musisz podac nazwe tablicy.%; \
		/mesg -i Np: /sizeof_array druzyna%; \
		/return %; \
	/endif %; \
	/if (if_array_exists({1})) \
		/let PomocniczaZmienna=$(/eval /echo %%_array_%{1})%; \
		/let tab=$[replace("|", " ", {PomocniczaZmienna})]%; \
		/let wynik=$(/policz_tablice %{tab})%; \
		/mesg -i Tablica '%{1}' ma %{wynik} elementow. %; \
	/else \
		/mesg -w Nie ma tablicy nazwanej '%{1}'. %; \
	/endif

/def policz_tablice = \
	/let k_z=0%; \
	/while ({#}) \
		/test ++k_z%; \
		/shift %; \
	/done %; \
	/result %{k_z}

/def check_index = \
	/if ({#} != 2) \
		/mesg -i Musisz podac nazwe tablicy oraz numer indeksu, jaki mam sprawic. %; \
		/mesg -i Jesli podasz indeks '0', Wyswietle wszystkie elementy. %; \
		/return %; \
	/endif %; \
	/if (if_array_exists({1})) \
		/let rozmiar_tablicy=$(/policz_tablice $[replace("|", " ", $(/eval /echo %%_array_%{1}))])%; \
		/if ({2} < 0) \
			/mesg -w Indeks musi byc wiekszy od 0. Jesli chcesz abym wyswietlil wszystkie elementy %; \
			/mesg -w Podaj 0 jaki drugi argument%; \
			/return %; \
		/elseif ({2} != 0 & {2} > {rozmiar_tablicy}) \
			/mesg -w Indeks wykracza poza tablice! Ta tablica ma %{rozmiar_tablicy} elementow!%; \
			/return %; \
		/endif%; \
		/if ({2} == 0) \
			/pokaz_wszystkie_indeksy_tablicy $[replace("|", " ", $(/eval /echo %%_array_%{1}))]%; \
		/else \
			/pokaz_indeks %{2} %{1} $[replace("|", " ", $(/eval /echo %%_array_%{1}))]%; \
		/endif %; \
	/else \
		/mesg -w Nie ma takiej tablicy '%{1}'!%; \
	/endif

/def pokaz_wszystkie_indeksy_tablicy = \
	/let i_t=0%; \
	/while ({#}) \
		/test ++i_t%; \
		/echo %{i_t}: %{1}%; \
		/shift %; \
	/done

/def pokaz_indeks = \
	/let _nr=%{1}%; \
	/let _ta=%{2}%; \
	/shift %{1}%; \
	/shift %; \
	/echo %{1} %;\
	/echo Index %{_nr} of an array '%{_ta}' is '%{1}'


/def member_array = \
	/let _ind=%{1}%; \
	/let _arr=%{2}%; \
	/if (if_array_exists(_arr)) \
		/if (regmatch(substr(_ind, "\|"), _arr)) \
			/mesg -i %_ind jest elementem tablicy '%_arr'. %; \
		/else \
			/mesg -w %_ind nie jest elementem tablicy '%_arr'! %; \
		/endif %; \
	/else \
		/mesg -w Tablica '%_arr' nie istnieje!%; \
	/endif

;/def remove_index = \
;	/let _arr=%{1}%; \
;	/let _ind=%{2}%; \
;	/if (if_array_exists(_arr)) \
;		/let _inx=$(/check_index %_arr %_ind)%; \
; /remove_index name nr_of_index
; Not impleted yet :)