/traderous

-- Section: Globals

-- Variable: the

-- This is a repository table for the current app, view, keys, and mouse.

-- You can use this for other objects that are useful to track. This should

-- be considered read-only; references here are for convenience and changing

-- things here will have no effect.

the = {}

-- Constant: STRICT

-- If set to true, then Zoetrope will do some extra checking for obvious

-- errors at the expense of some performance. Some of these checks will

-- throw errors, while others will simply print a warning to the console.

-- If you are going to use this, make sure to do so before your project's

-- require 'zoetrope' statement.

-- Constant: DEBUG

-- If set to true, Zoetrope's debug console will be enabled. If you are

-- going to use this, make sure to do so before your project's require

-- 'zoetrope' statement.

-- Constant: NEARLY_ZERO

-- Any number less than this is considered 0 by Zoetrope.

NEARLY_ZERO = 0.0001

-- Constant: UP

-- Directional constant corresponding to up.

UP = 'up'

-- Constant: DOWN

-- Directional constant corresponding to down.

DOWN = 'down'

-- Constant: LEFT

-- Directional constant corresponding to left.

LEFT = 'left'

-- Constant: RIGHT

-- Directional constant corresponding to right.

RIGHT = 'right'

-- Function: trim

-- trim() implementation for strings via http://lua-users.org/wiki/stringtrim

-- 

-- Arguments:

-- 		source - source string

--

-- Returns:

-- 		string trimmed of leading and trailing whitespace

function trim (source)

	return source:gsub("^%s*(.-)%s*$", "%1")

end

-- Function: split

-- split() implementation for strings via http://lua-users.org/wiki/splitjoin

--

-- Arguments:

--		source - source string

--		pattern - Lua pattern to split on, see http://www.lua.org/pil/20.1.html

--

-- Returns:

-- 		table of split strings	

function split (source, pattern)

	assert(type(source) == 'string', 'source must be a string')

	assert(type(pattern) == 'string', 'pattern must be a string')

	local result = {}

	local searchStart = 1

	local splitStart, splitEnd = string.find(source, pattern, searchStart)

	while splitStart do

		table.insert(result, string.sub(source, searchStart, splitStart - 1))

		searchStart = splitEnd + 1

		splitStart, splitEnd = string.find(source, pattern, searchStart)

	end

	table.insert(result, string.sub(source, searchStart))

	return result

end

-- Function: tovalue

-- Coerces, if possible, a string to a boolean or number value.

-- If the string cannot be coerced to either of these types, this

-- returns the same string passed.

--

-- Arguments:

--		source - string to coerce

--

-- Returns:

--		number, boolean, or string

function tovalue (source)

	if source == 'true' then return true end

	if source == 'false' then return false end

	return tonumber(source) or source

end

-- Function: sound

-- Loads a sound but does not play it. It's important to use the hint property

-- appropriately; if set incorrectly, it can cause sound playback to stutter or lag.

--

-- Arguments:

--		path - string pathname to sound

--		hint - either 'short' or 'long', depending on length of sound; default 'short'

--

-- Returns:

--		LOVE sound source, see https://love2d.org/wiki/Source

function sound (path, hint)

	return love.audio.newSource(Cached:sound(path, hint or 'short'))

end

-- Function: playSound

-- Plays a sound once. This is the easiest way to play a sound. It's important

-- to use the hint property appropriately; if set incorrectly, it can cause sound

-- playback to stutter or lag.

--

-- Arguments:

--		path - string pathname to sound

--		volume - volume to play at, from 0 to 1; default 1

--		hint - either 'short' or 'long', depending on length of sound; default 'short'

--

-- Returns:

--		LOVE sound source, see https://love2d.org/wiki/Source

function playSound (path, volume, hint)

	volume = volume or 1

	local source = sound(path, hint)

	source:setVolume(volume)

	source:play()

	return source

end

-- Function: searchTable

-- Returns the index of a value in a table. If the value

-- does not exist in the table, this returns nil.

--

-- Arguments:

--		table - table to search

--		search - value to search for

--

-- Returns:

--		integer index or nil

function searchTable (table, search)

	for i, value in ipairs(table) do

		if value == search then return i end

	end

	return nil

end

-- Function: copyTable

-- Returns a superficial copy of a table. If it contains a 

-- reference to another table in one of its properties, that

-- reference will be copied shallowly. 

--

-- Arguments:

-- 		source - source table

--

-- Returns:

-- 		new table

function copyTable (source)

	assert(type(source) == 'table', "asked to copy a non-table")

	local result = {}

	setmetatable(result, getmetatable(source))

	for key, value in pairs(source) do

		result[key] = value

	end

	return result

end

-- Function: shuffleTable

-- Shuffles the contents of a table in place.

-- via http://www.gammon.com.au/forum/?id=9908

--

-- Arguments:

--		table - table to shuffle

--

-- Returns:

--		table passed

function shuffleTable (table)

  local n = #table

  while n >= 2 do

    -- n is now the last pertinent index

    local k = math.random(n) -- 1 <= k <= n

    -- Quick swap

    table[n], table[k] = table[k], table[n]

    n = n - 1

  end

  return table

end

-- Function: dump

-- Returns a string representation of a variable in a way

-- that can be reconstituted via loadstring(). Yes, this

-- is basically a serialization function, but that's so much

-- to type :) This ignores any userdata, functions, or circular

-- references.

-- via http://www.lua.org/pil/12.1.2.html

--

-- Arguments:

--		source - variable to describe

--		ignore - a table of references to ignore (to avoid cycles),

--				 defaults to empty table. This uses the references as keys,

--				 *not* as values, to speed up lookup.

--

-- Returns:

--		string description

function dump (source, ignore)

	ignore = ignore or { source = true }

	local sourceType = type(source)

	if sourceType == 'table' then

		local result = '{ '

		for key, value in pairs(source) do

			if not ignore[value] then

				local dumpValue = dump(value, ignore)

				if dumpValue ~= '' then

					result = result .. '["' .. key .. '"] = ' .. dumpValue .. ', '

				end

				if type(value) == 'table' then

					ignore[value] = true

				end

			end

		end

		if result ~= '{ ' then

			return string.sub(result, 1, -3) .. ' }'

		else

			return '{}'

		end

	elseif sourceType == 'string' then

		return string.format('%q', source)

	elseif sourceType ~= 'userdata' and sourceType ~= 'function' then

		return tostring(source)

	else

		return ''

	end

end

bind = function (...)

	return Cached:bind(...)

end