BasicUtils v1.5

TheOriginalBIT, on 18 March 2013 - 11:59 PM said:

haha! my assert function! :D/>/>/>

superaxander, on 19 March 2013 - 12:00 AM said:

I know I needed it in some Functions.

--[[
misc functions
]]

assert = function(condition, errMsg, level)
  if not condition then
    error(errMsg, (tonumber(level) or 1) + 1)
  end
  return condition
end

isFunction = function(var)
  return type(var) == "function"
end

isTable = function(var)
  return type(var) == "table"
end

isString = function(var)
  return type(var) == "string"
end

isNumber = function(var)
  return type(var) == "number"
end

isNil = function(var)
  return type(var) == "nil"
end

isCoroutine = function(var)
  return type(var) == "thread"
end

isThread = function(var)
  return type(var) == "thread"
end

isDead = function(var)
  assert(isThread(var, "Argument #1: expected thread/coroutine got "..type(var), 2)
  return coroutine.status(var) == "dead"
end

isAlive = function(var)
  assert(isThread(var, "Argument #1: expected thread/coroutine got "..type(var), 2)
  return not isDead(var)
end

superaxander, on 19 March 2013 - 12:06 AM said:

Didn't think of that xD

tableutils.same = function(table1, table2)
  assert(isTable(table1), "Argument #1: expected table got "..type(table1), 2)
  assert(isTable(table2), "Argument #2: expected table got "..type(table2), 2)
  for k,v in pairs(table1) do
    if not (table2[k] and table2[k] == v) then
      return false, k
    end
    systemutils.yield(0.1)
  end
  return true
end

TheOriginalBIT, on 19 March 2013 - 12:39 AM said:

More bugs and some fixes

A slightly fixed copy function

Spoiler

tableutils.copy = function(source, destination)
  assert(isTable(source), "Argument #1: expected table got "..type(table), 2)
  destination = destination or {}

  for k,v in pairs(source) do
	destination[k] = v
	systemutils.yield(0.1)
  end

  local same, h = same(source, destination)
  if not same then
	error("error copying: "..h, 2)
  end

  return true
end

Line 48 and 53 missing a ')'

Spoiler

Old

assert(isThread(var, "Argument #1: expected thread/coroutine got "..type(var), 2)

New

assert(isThread(var), "Argument #1: expected thread/coroutine got "..type(var), 2)

Line 147—151 extra ')'

Spoiler

Old

assert(isNumber(yPos), "Argument #3: number expected got ")..type(yPos), errorlevel)
assert(isNumber(maxX), "Argument #4: number expected got ")..type(maxX), errorlevel)
assert(isNumber(maxY), "Argument #5: number expected got ")..type(maxY), errorlevel)
assert(isNumber(minX), "Argument #6: number expected got ")..type(minX), errorlevel)
assert(isNumber(minY), "Argument #7: number expected got ")..type(minY), errorlevel

New

assert(isNumber(yPos), "Argument #3: number expected got ")..type(yPos), errorlevel)
assert(isNumber(maxX), "Argument #4: number expected got ")..type(maxX), errorlevel)
assert(isNumber(maxY), "Argument #5: number expected got ")..type(maxY), errorlevel)
assert(isNumber(minX), "Argument #6: number expected got ")..type(minX), errorlevel)
assert(isNumber(minY), "Argument #7: number expected got ")..type(minY), errorlevel

Line 151 missing ')' at end of line

lots of problems in graphicutils.drawImage

Spoiler

y and x are not defined but used in line 140, 141, 155, 156

the for loop is wrong in on lines 152, 154

superaxander, on 19 March 2013 - 01:26 AM said:

Fixed! Thanks

TheOriginalBIT, on 22 March 2013 - 06:40 AM said:

oh, I suggest adding a deepCopy to tableutils…. that way if there is a table within the table it will make a copy of that too, not just reference it
I've done the code.

Spoiler

tableutils.deepCopy = function(source, destination)
  assert(isTable(source), "Argument #1: expected table got "..type(table), 2)
  destination = destination or {}

  for k,v in pairs(source) do
    if type( v ) == 'table' do
      destination[k] = {}
      tableutils.deepCopy( v, destination[k] )
    else
      destination[k] = v
    end
    systemutils.yield(0.1)
  end

  return true
end

local t = {}
t.value = 1
t.self = t

local q = deepcopy(t)

assert(q.self == q)

function table.deep_copy(t)
  local lookup = {}
  local function copy(obj)
	if type(obj) ~= "table" then
	  return obj
	elseif lookup[obj] ~= nil then
	  return lookup[obj]
	end
	local tbl = {}
	lookup[obj] = tbl
	for k, v in pairs(obj) do
	  tbl[copy(k)] = copy(v)
	end
	return setmetatable(tbl, getmetatable(obj))
  end
  return copy(t)
end

-- Our string splitting Function

function string:split( inSplitPattern, outResults )

   if not outResults then
	  outResults = { }
   end
   local theStart = 1
   local theSplitStart, theSplitEnd = string.find( self, inSplitPattern, theStart )
   while theSplitStart do
	  table.insert( outResults, string.sub( self, theStart, theSplitStart-1 ) )
	  theStart = theSplitEnd + 1
	  theSplitStart, theSplitEnd = string.find( self, inSplitPattern, theStart )
   end
   table.insert( outResults, string.sub( self, theStart ) )
   return outResults
end

mess = "test code write message"
tablemes = string.split(mess, " ")  --  This is the string splitter and its processing.
message = tablemes[1]  --  --> output of "test"
pas = tablemes[2] --  -->  Output of "code"

albrat, on 01 July 2013 - 05:13 AM said:

I was taking a look at this thread and saw that you needed a string handling function still… :)/>

this code takes a string with "breaker" points in it and removes the breakers / splits the output into a table.

-- Our string splitting Function

function string:split( inSplitPattern, outResults )

   if not outResults then
	  outResults = { }
   end
   local theStart = 1
   local theSplitStart, theSplitEnd = string.find( self, inSplitPattern, theStart )
   while theSplitStart do
	  table.insert( outResults, string.sub( self, theStart, theSplitStart-1 ) )
	  theStart = theSplitEnd + 1
	  theSplitStart, theSplitEnd = string.find( self, inSplitPattern, theStart )
   end
   table.insert( outResults, string.sub( self, theStart ) )
   return outResults
end

function string.split( str, patt )
  local t = {}
  for s in str:gmatch('[^'..patt..']+') do
    t[#t+1] = s
  end
  return t
end

if not outResults then
  outResults = { }
end

outResults = outResults or {}

true or true = true
true or false = true
false or true = true
false or false = false