mirror of
https://github.com/technix/ham_radio.git
synced 2024-08-19 04:34:09 +02:00
54 lines
1.8 KiB
Lua
54 lines
1.8 KiB
Lua
function ham_radio.validate_frequency(frequency, is_receiver)
|
|
if frequency == "" then
|
|
return { result = true, message = '' } -- empty frequency is allowed to disable transmitter/receiver
|
|
end
|
|
local transmission_is_allowed = true
|
|
local num_freq = tonumber(frequency)
|
|
local freq = tostring(num_freq)
|
|
if is_receiver == nil and next(ham_radio.find_transmitters(frequency)) then
|
|
if num_freq >= ham_radio.settings.locked_frequency.min
|
|
and num_freq <= ham_radio.settings.locked_frequency.max then
|
|
-- transmitter is in locked frequency range
|
|
transmission_is_allowed = false
|
|
end
|
|
end
|
|
local result = true
|
|
local message = ''
|
|
if freq ~= frequency or num_freq ~= math.floor(num_freq) then
|
|
result = false
|
|
message = 'Error: invalid frequency value.'
|
|
elseif num_freq == nil then
|
|
result = false
|
|
message = 'Error: frequency should be numeric.'
|
|
elseif num_freq < ham_radio.settings.frequency.min or num_freq > ham_radio.settings.frequency.max then
|
|
result = false
|
|
message = 'Error: frequency is out of range.'
|
|
elseif transmission_is_allowed == false then
|
|
result = false
|
|
message = 'Error: frequency is occupied by other transmitter.'
|
|
end
|
|
return { result = result, message = message }
|
|
end
|
|
|
|
function ham_radio.find_transmitters(frequency)
|
|
local transmitter_list = {}
|
|
for key, transmitter in pairs(ham_radio.transmitters) do
|
|
if transmitter.frequency == frequency then
|
|
transmitter_list[key] = transmitter
|
|
end
|
|
end
|
|
return transmitter_list
|
|
end
|
|
|
|
function ham_radio.find_free_frequency(range)
|
|
local frequency = -1
|
|
while frequency == -1 do
|
|
frequency = tostring(math.floor(math.random(range.min, range.max)));
|
|
local are_there_transmitters = ham_radio.find_transmitters(frequency)
|
|
if next(are_there_transmitters) then
|
|
frequency = -1
|
|
end
|
|
end
|
|
return frequency
|
|
end
|