--advtrains_line_automation-- Functions from Cesky Hvozd utility libraries which are used in the code integrated from Singularis are now provided here.--[[Jednoduchá funkce, která vyhodnotí condition jako podmínkua podle výsledku vrátí buď true_result, nebo false_result.]]local functionifthenelse(condition, true_result, false_result)if condition thenreturn true_result
elsereturn false_result
endendlocal ch_core = {}-- gives various info about a player. we return only what is relevant outside CHfunction ch_core.normalize_player(player_name_or_player)local arg_type =type(player_name_or_player)local player_name, player
if arg_type =="string"then
player_name = player_name_or_player
elseif arg_type =="number"then
player_name =tostring(player_name_or_player)elseif(arg_type =="table"or arg_type =="userdata")andtype(player_name_or_player.get_player_name) =="function"then
player_name = player_name_or_player:get_player_name()iftype(player_name) ~="string"then
player_name =""elseif minetest.is_player(player_name_or_player)then
player = player_name_or_player
endendelse
player_name =""endif player_name ==""thenreturn{role ="none", player_name ="", viewname ="", privs = {}}endlocal privs = minetest.get_player_privs(player_name)return{
role ="default",
player_name = player_name,
viewname = player_name,
privs = privs,
player = player or minetest.get_player_by_name(player_name),}end-- == UTF8 helpers == --local utf8_charlen = {}for i =1,191,1do-- 1 to 127 => jednobajtové znaky-- 128 až 191 => nejsou dovoleny jako první bajt (=> vrátit 1 bajt)
utf8_charlen[i] =1endfor i =192,223,1do
utf8_charlen[i] =2endfor i =224,239,1do
utf8_charlen[i] =3endfor i =240,247,1do
utf8_charlen[i] =4endfor i =248,255,1do
utf8_charlen[i] =1-- neplatné UTF-8endlocal utf8_sort_data_1 = {["\x20"] ="\x20",-- < >["\x21"] ="\x21",-- <!>["\x22"] ="\x22",-- <">["\x23"] ="\x23",-- <#>["\x25"] ="\x24",-- <%>["\x26"] ="\x25",-- <&>["\x27"] ="\x26",-- <'>["\x28"] ="\x27",-- <(>["\x29"] ="\x28",-- <)>["\x2a"] ="\x29",-- <*>["\x2b"] ="\x2a",-- <+>["\x2c"] ="\x2b",-- <,>["\x2d"] ="\x2c",-- <->["\x2e"] ="\x2d",-- <.>["\x2f"] ="\x2e",-- </>["\x3a"] ="\x2f",-- <:>["\x3b"] ="\x30",-- <;>["\x3c"] ="\x31",-- <<>["\x3d"] ="\x32",-- <=>["\x3e"] ="\x33",-- <>>["\x3f"] ="\x34",-- <?>["\x40"] ="\x35",-- <@>["\x5b"] ="\x36",-- <[>["\x5c"] ="\x37",-- <\>["\x5d"] ="\x38",-- <]>["\x5e"] ="\x39",-- <^>["\x5f"] ="\x3a",-- <_>["\x60"] ="\x3b",-- <`>["\x7b"] ="\x3c",-- <{>["\x7c"] ="\x3d",-- <|>["\x7d"] ="\x3e",-- <}>["\x7e"] ="\x3f",-- <~>["\x24"] ="\x40",-- <$>["\x61"] ="\x41",-- <a>["\x41"] ="\x42",-- <A>["\x62"] ="\x47",-- <b>["\x42"] ="\x48",-- <B>["\x64"] ="\x4d",-- <d>["\x44"] ="\x4e",-- <D>["\x65"] ="\x51",-- <e>["\x45"] ="\x52",-- <E>["\x66"] ="\x57",-- <f>["\x46"] ="\x58",-- <F>["\x67"] ="\x59",-- <g>["\x47"] ="\x5a",-- <G>["\x68"] ="\x5b",-- <h>["\x48"] ="\x5c",-- <H>["\x69"] ="\x61",-- <i>["\x49"] ="\x62",-- <I>["\x6a"] ="\x65",-- <j>["\x4a"] ="\x66",-- <J>["\x6b"] ="\x67",-- <k>["\x4b"] ="\x68",-- <K>["\x6c"] ="\x69",-- <l>["\x4c"] ="\x6a",-- <L>["\x6d"] ="\x6f",-- <m>["\x4d"] ="\x70",-- <M>["\x6e"] ="\x71",-- <n>["\x4e"] ="\x72",-- <N>["\x6f"] ="\x75",-- <o>["\x4f"] ="\x76",-- <O>["\x70"] ="\x7b",-- <p>["\x50"] ="\x7c",-- <P>["\x71"] ="\x7d",-- <q>["\x51"] ="\x7e",-- <Q>["\x72"] ="\x7f",-- <r>["\x52"] ="\x80",-- <R>["\x73"] ="\x85",-- <s>["\x53"] ="\x86",-- <S>["\x74"] ="\x89",-- <t>["\x54"] ="\x8a",-- <T>["\x75"] ="\x8d",-- <u>["\x55"] ="\x8e",-- <U>["\x76"] ="\x93",-- <v>["\x56"] ="\x94",-- <V>["\x77"] ="\x95",-- <w>["\x57"] ="\x96",-- <W>["\x78"] ="\x97",-- <x>["\x58"] ="\x98",-- <X>["\x79"] ="\x99",-- <y>["\x59"] ="\x9a",-- <Y>["\x7a"] ="\x9d",-- <z>["\x5a"] ="\x9e",-- <Z>["\x30"] ="\xa1",-- <0>["\x31"] ="\xa2",-- <1>["\x32"] ="\xa3",-- <2>["\x33"] ="\xa4",-- <3>["\x34"] ="\xa5",-- <4>["\x35"] ="\xa6",-- <5>["\x36"] ="\xa7",-- <6>["\x37"] ="\xa8",-- <7>["\x38"] ="\xa9",-- <8>["\x39"] ="\xaa",-- <9>}local utf8_sort_data_2 = {["\xc3\xa1"] ="\x43",-- <á>["\xc3\x81"] ="\x44",-- <Á>["\xc3\xa4"] ="\x45",-- <ä>["\xc3\x84"] ="\x46",-- <Ä>["\xc4\x8d"] ="\x4b",-- <č>["\xc4\x8c"] ="\x4c",-- <Č>["\xc4\x8f"] ="\x4f",-- <ď>["\xc4\x8e"] ="\x50",-- <Ď>["\xc3\xa9"] ="\x53",-- <é>["\xc3\x89"] ="\x54",-- <É>["\xc4\x9b"] ="\x55",-- <ě>["\xc4\x9a"] ="\x56",-- <Ě>["\x63\x68"] ="\x5d",-- <ch>["\x63\x48"] ="\x5e",-- <cH>["\x43\x68"] ="\x5f",-- <Ch>["\x43\x48"] ="\x60",-- <CH>["\xc3\xad"] ="\x63",-- <í>["\xc3\x8d"] ="\x64",-- <Í>["\xc4\xba"] ="\x6b",-- <ĺ>["\xc4\xb9"] ="\x6c",-- <Ĺ>["\xc4\xbe"] ="\x6d",-- <ľ>["\xc4\xbd"] ="\x6e",-- <Ľ>["\xc5\x88"] ="\x73",-- <ň>["\xc5\x87"] ="\x74",-- <Ň>["\xc3\xb3"] ="\x77",-- <ó>["\xc3\x93"] ="\x78",-- <Ó>["\xc3\xb4"] ="\x79",-- <ô>["\xc3\x94"] ="\x7a",-- <Ô>["\xc5\x95"] ="\x81",-- <ŕ>["\xc5\x94"] ="\x82",-- <Ŕ>["\xc5\x99"] ="\x83",-- <ř>["\xc5\x98"] ="\x84",-- <Ř>["\xc5\xa1"] ="\x87",-- <š>["\xc5\xa0"] ="\x88",-- <Š>["\xc5\xa5"] ="\x8b",-- <ť>["\xc5\xa4"] ="\x8c",-- <Ť>["\xc3\xba"] ="\x8f",-- <ú>["\xc3\x9a"] ="\x90",-- <Ú>["\xc5\xaf"] ="\x91",-- <ů>["\xc5\xae"] ="\x92",-- <Ů>["\xc3\xbd"] ="\x9b",-- <ý>["\xc3\x9d"] ="\x9c",-- <Ý>["\xc5\xbe"] ="\x9f",-- <ž>["\xc5\xbd"] ="\xa0",-- <Ž>}local utf8_sort_data_3 = {["\x63"] ="\x49",-- <c>["\x43"] ="\x4a",-- <C>}--[[Vrátí počet UTF-8 znaků řetězce.]]function ch_core.utf8_length(s)if s ==""thenreturn0endlocal i, byte, bytes, chars
i =1
chars =0
bytes =string.len(s)while i <= bytes do
byte =string.byte(s, i)if byte <192then
i = i +1else
i = i + utf8_charlen[byte]end
chars = chars +1endreturn chars
end--[[Začne v řetězci `s` na fyzickém indexu `i` a bude se posouvat o `seek`UTF-8 znaků doprava (pro záporný počet doleva); vrátí výsledný index(na první bajt znaku), nebo nil, pokud posun přesáhl začátek,resp. konec řetězce.]]function ch_core.utf8_seek(s, i,seek)local bytes =string.len(s)if i <1or i > bytes thenreturn nilendlocal b
ifseek>0thenwhile true do
b =string.byte(s, i)if b <192then
i = i +1else
i = i + utf8_charlen[b]endif i > bytes thenreturn nilendseek=seek-1ifseek==0thenreturn i
endendelseifseek<0thenwhile true do
i = i -1if i <1thenreturn nilend
b =string.byte(s, i)if b <128or b >=192then-- máme další znakseek=seek+1ifseek==0thenreturn i
endendendelsereturn i
endend--[[ Je-li řetězec s delší než max_chars znaků, vrátí jeho prvních max_chars znaků + "...", jinak vrátí původní řetězec.]]function ch_core.utf8_truncate_right(s, max_chars, dots_string)local i = ch_core.utf8_seek(s,1, max_chars)if i thenreturn s:sub(1, i -1) .. (dots_string or"...")elsereturn s
endend--[[Rozdělí řetězec na pole neprázdných podřetězců o stanovené maximální délcev UTF-8 znacích; v každé části vynechává mezery na začátku a na konci části;přednostně dělí v místech mezer. Pro prázdný řetězec(nebo řetězec tvořený jen mezerami) vrací prázdné pole.]]function ch_core.utf8_wrap(s, max_chars, options)local i =1-- index do vstupního řetězce slocal s_bytes =string.len(s)local result = {}-- výstupní polelocal r_text =""-- výstupní řetězeclocal r_chars =0-- počet UTF-8 znaků v řetězci rlocal r_sp_begin -- index první mezery v poslední sekvenci mezer v r_textlocal r_sp_end -- index poslední mezery v poslední sekvenci mezer v r_textlocal b -- kód prvního bajtu aktuálního znakulocal c_bytes -- počet bajtů aktuálního znaku-- optionslocal allow_empty_lines, max_result_lines, line_separator
if options then
allow_empty_lines = options.allow_empty_lines -- true or false
max_result_lines = options.max_result_lines -- nil or number
line_separator = options.line_separator -- nil or stringendwhile i <= s_bytes do
b =string.byte(s, i)-- print("byte["..i.."] = "..b.." ("..s:sub(i, i)..") r_sp = ("..(r_sp_begin or "nil")..".."..(r_sp_end or "nil")..")")if r_chars >0or(b ~=32and(b ~=10or allow_empty_lines))then-- na začátku řádky ignorovat mezeryif b <192then
c_bytes =1else
c_bytes = utf8_charlen[b]end-- vložit do r další znak (není-li to konec řádky)if b ~=10then
r_text = r_text..s:sub(i, i + c_bytes -1)
r_chars = r_chars +1if b ==32then-- znak je mezeraif r_sp_begin thenif r_sp_end then-- začátek nové skupiny mezer (už nějaká byla)
r_sp_begin =string.len(r_text)
r_sp_end =nilendelseif not r_sp_end then-- začátek první skupiny mezer (ještě žádná nebyla)
r_sp_begin =string.len(r_text)endelse-- znak není mezera ani konec řádkyif r_sp_begin and not r_sp_end then
r_sp_end =string.len(r_text) - c_bytes -- uzavřít skupinu mezerendendendif r_chars >= max_chars or b ==10then-- dosažen maximální počet znaků nebo znak \n => uzavřít řádkuif line_separator and#result >0then
result[#result] = result[#result]..line_separator
endif r_chars < max_chars or not r_sp_begin then-- žádné mezery => tvrdé dělenítable.insert(result, r_text)
r_text =""
r_chars =0
r_sp_begin, r_sp_end =nil,nilelseif not r_sp_end then-- průběžná skupina mezer => rozdělit zdetable.insert(result, r_text:sub(1, r_sp_begin -1))
r_text =""
r_chars =0
r_sp_begin, r_sp_end =nil,nilelse-- byla skupina mezer => rozdělit tamtable.insert(result, r_text:sub(1, r_sp_begin -1))
r_text = r_text:sub(r_sp_end +1, -1)
r_chars = ch_core.utf8_length(r_text)
r_sp_begin, r_sp_end =nil,nilif r_chars >0and b ==10then
i = i - c_bytes -- read this \n-byte againendendif max_result_lines and#result >= max_result_lines thenreturn result -- skip reading other linesendend
i = i + c_bytes
else
i = i +1endendif r_chars >0thenif line_separator and#result >0then
result[#result] = result[#result]..line_separator
endif r_sp_begin and not r_sp_end then-- průběžná skupina mezertable.insert(result, r_text:sub(1, r_sp_begin -1))elsetable.insert(result, r_text)endendreturn result
endfunction ch_core.utf8_radici_klic(s, store_to_cache)local result = utf8_sort_cache[s]if not result thenlocal i =1local l = s:len()local c, k
result = {}while i <= l do
c = s:sub(i, i)
k = utf8_sort_data_1[c]if k thentable.insert(result, k)
i = i +1else
k = utf8_sort_data_2[s:sub(i, i +1)]if k thentable.insert(result, k)
i = i +2else
k = utf8_sort_data_3[c]table.insert(result, k or c)
i = i +1endendend
result =table.concat(result)if store_to_cache then
utf8_sort_cache[s] = result
endendreturn result
endfunction ch_core.utf8_mensi_nez(a, b, store_to_cache)
a = ch_core.utf8_radici_klic(a, store_to_cache)
b = ch_core.utf8_radici_klic(b, store_to_cache)return a < b
end-- == CH Formspec library == ---- API:-- ch_core.show_formspec(player_or_player_name, formname, formspec, formspec_callback, custom_state, options)-- local function formspec_callback(custom_state, player, formname, fields)--[[ player_name => { callback = function, custom_state = ..., formname = string, object_id = int, }]]local formspec_states = {}local formspec_states_next_id =1local functiondef_to_string(label, defitem, separator)if defitem ==nil thenreturn""endlocal t =type(defitem)if t =="string"thenreturn label.."["..defitem.."]"elseif t =="number"or t =="bool"thenreturn label.."["..tostring(defitem).."]"elseif t =="table"thenif#defitem ==0thenreturn label.."[]"else
t = {}for i =1, #defitem do
t[i] =tostring(defitem[i])end
t[1] = label.."["..t[1]
t[#t] = t[#t].."]"returntable.concat(t, separator)endelsereturn""endend--[[ Sestaví záhlaví formspecu. Dovolené klíče jsou: -- formspec_version -- size -- position -- anchor -- padding -- no_prepend (bool) -- listcolors -- bgcolor -- background -- background9 -- set_focus -- auto_background (speciální, vylučuje se s background a background9)]]function ch_core.formspec_header(def)local result, size_element
if def.size ~=nil theniftype(def.size) ~="table"thenerror("def.size must be a table or nil!")endlocal s = def.size
size_element = {"size["..tostring(s[1])}for i =2, #s -1,1do
size_element[i] =tostring(s[i])end
size_element[#s] =tostring(s[#s]).."]"
size_element =table.concat(size_element,",")else
size_element =""end
result = {def_to_string("formspec_version", def.formspec_version,""),-- 1
size_element,-- 2def_to_string("position", def.position,","),-- 3def_to_string("anchor", def.anchor,","),-- 4def_to_string("padding", def.padding,","),-- 5ifthenelse(def.no_prepend ==true,"no_prepend[]",""),-- 6def_to_string("listcolors", def.listcolors,";"),-- 7def_to_string("bgcolor", def.bgcolor,";"),-- 8def_to_string("background", def.background,";"),-- 9def_to_string("background9", def.background9,";"),-- 10def_to_string("set_focus", def.set_focus,";"),-- 11}if not def.background and not def.background9 and def.formspec_version ~=nil and def.formspec_version >1thenif def.auto_background ==true thenif result[7] ==""then-- colors according to Technic Chests:
result[7] ="listcolors[#7b7b7b;#909090;#000000;#6e823c;#ffffff]"end--result[10] = "background9[0,0;1,1;ch_core_formspec_bg.png;true;16]"-- result[9] = "background[0,0;"..fsw..","..fsh..";ch_core_formspec_bg.png]"endendreturntable.concat(result)end--[[ Má-li daná postava zobrazen daný formspec, uzavře ho a vrátí true. Jinak vrátí false. Je-li call_callback true, nastavený callback se před uzavřením zavolá s fields = {quit = "true"} a jeho návratová hodnota bude odignorována.]]function ch_core.close_formspec(player_name_or_player, formname, call_callback)if formname ==nil or formname ==""thenreturn false-- formname invalidendlocal p = ch_core.normalize_player(player_name_or_player)if p.player ==nil thenreturn false-- player invalid or not onlineendlocal formspec_state = formspec_states[p.player_name]if formspec_state ==nil or formspec_state.formname ~= formname thenreturn false-- formspec not open or the formname is differentendif call_callback then
formspec_state.callback(formspec_state.custom_state, p.player, formname, {quit ="true"})end
minetest.close_formspec(p.player_name, formname)if formspec_states[p.player_name] ~=nil and formspec_states[p.player_name].object_id == formspec_state.object_id then
formspec_states[p.player_name] =nilendreturn trueend--[[ Zobrazí hráči/ce formulář a nastaví callback pro jeho obsluhu. Callback nemusí být zavolán v nestandardních situacích jako v případě odpojení klienta.]]function ch_core.show_formspec(player_name_or_player, formname, formspec, callback, custom_state, options)local p = ch_core.normalize_player(player_name_or_player)if p.player ==nil then return false end-- player invalid or not onlineif formname ==nil or formname ==""then-- generate random formname
formname ="ch_core:"..minetest.sha1(tostring(bit.bxor(minetest.get_us_time(), math.random(1,1099511627775))),false)endlocal id = formspec_states_next_id
formspec_states_next_id = id +1
formspec_states[p.player_name] = {
callback = callback or function(...)return end,
custom_state = custom_state,
formname = formname,
object_id = id,}
minetest.show_formspec(p.player_name, formname, formspec)return formname
end--[[ Aktualizuje již zobrazený formspec. Vrátí true v případě úspěchu. formspec_or_function může být buď řetězec, nebo funkce, která bude pro získání řetězce zavolána s parametry: (player_name, formname, custom_state). Pokud nevrátí řetězec, update_formspec skončí a vrátí false.]]function ch_core.update_formspec(player_name_or_player, formname, formspec_or_function)if formname ==nil or formname ==""thenreturn false-- formname invalidendlocal p = ch_core.normalize_player(player_name_or_player)if p.player ==nil thenreturn false-- player invalid or not onlineendlocal formspec_state = formspec_states[p.player_name]if formspec_state ==nil or formspec_state.formname ~= formname thenreturn false-- formspec not open or the formname is differentendlocal t =type(formspec_or_function)local formspec
if t =="string"then
formspec = formspec_or_function
elseif t =="function"then
formspec =formspec_or_function(p.player_name, formname, formspec_state.custom_state)iftype(formspec) ~="string"thenreturn falseendelsereturn false-- invalid formspec argumentend
minetest.show_formspec(p.player_name, formname, formspec)return trueendlocal functionon_player_receive_fields(player, formname, fields)local player_name =assert(player:get_player_name())local formspec_state = formspec_states[player_name]if formspec_state ==nil thenreturn-- formspec not by ch_coreendif formspec_state.formname ~= formname then
minetest.log("warning", player_name..": received fields of form "..(formname or"nil").." when "..(formspec_state.formname or"nil").." was expected")
formspec_states[player_name] =nilreturnendlocal result = formspec_state.callback(formspec_state.custom_state, player, formname, fields, {})-- custom_state, player, formname, fieldsiftype(result) =="string"then-- string => show as formspec
formspec_states[player_name] = formspec_state
minetest.show_formspec(player_name, formname, result)elseif fields ~=nil and fields.quit =="true"and formspec_states[player_name] ~=nil and formspec_states[player_name].object_id == formspec_state.object_id then
formspec_states[player_name] =nilendreturn trueend
minetest.register_on_player_receive_fields(on_player_receive_fields)-- set into place
advtrains.lines.ch_core = ch_core
