minor change

This change allows for databuffers to treat numbers like strings and a number that would contain more that 1 byte would be wxpanded to fit into the next. The max length is 4 bytes

.gitignore

@@ -2,3 +2,4 @@
 crypto.lua
 crypto.lua
 crypto.lua
+crypto.lua

README.md

@@ -41,6 +41,14 @@ true
 table: 0x001e3f40
 ```
 #Updates/Changes
+Version 5.0.7
+Added:
++ bin.fileExists(name)
+[returns true if a file exists]
+Version 5.0.6
+-------------
+Fixed a bunch of bugs and added double support to the library
+
 Version 5.0.1
 -------------
 Cleaned up files within the bin folder

bin/converters/base64.lua

@@ -1,3 +1,4 @@
+local bin = require("bin")
 local base64={}
 local bs = { [0] =
    'A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P',
@@ -27,4 +28,13 @@ function base64.decode(s)
 	end
 	return r:sub(1,-(cc+1))
 end
+function bin.newFromBase91(data)
+	return bin.new(bin.fromBase91(data))
+end
+function bin.toBase91(s)
+	return base91.encode(s)
+end
+function bin.fromBase91(s)
+	return base91.decode(s)
+end
 return base64

bin/converters/base91.lua

@@ -1,3 +1,4 @@
+local bin = require("bin")
 local base91={}
 local b91enc={[0]=
 	'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M',
@@ -69,4 +70,13 @@ function base91.encode(d)
 	end
 	return o
 end
+function bin.newFromBase64(data)
+	return bin.new(bin.fromBase64(data))
+end
+function bin.toBase64(s)
+	return base64.encode(s)
+end
+function bin.fromBase64(s)
+	return base64.decode(s)
+end
 return base91

bin/hashes/md5.lua

@@ -1,3 +1,4 @@
+local bin = require("bin")
 local md5 = {
   _VERSION     = "md5.lua 1.1.0",
   _DESCRIPTION = "MD5 computation in Lua (5.1-3, LuaJIT)",
@@ -373,5 +374,21 @@ end
 function md5.sumhexa(s)
   return md5.tohex(md5.sum(s))
 end
-
+bin.md5 = md5
+function bin:getMD5Hash()
+	self:setSeek(1)
+	local len=self:getSize()
+	local md5=bin.md5.new()
+	local SIZE=2048
+	if len>SIZE then
+		local dat=self:read(SIZE)
+		while dat~=nil do
+			md5:update(dat)
+			dat=self:read(SIZE)
+		end
+		return bin.md5.tohex(md5:finish()):upper()
+	else
+		return bin.md5.sumhexa(self:getData()):upper()
+	end
+end
 return md5

bin/init.lua

@@ -1,5 +1,5 @@
 bin={}
-bin.Version={5,0,4}
+bin.Version={6,0,0}
 bin.stage='stable'
 bin.data=''
 bin.t='bin'
@@ -12,7 +12,135 @@ bin.streams={}
 function bin.getVersion()
 	return bin.Version[1]..'.'..bin.Version[2]..'.'..bin.Version[3]
 end
-require("bin.support.utils")
+function table.print(tbl, indent)
+	if not indent then indent = 0 end
+		for k, v in pairs(tbl) do
+		formatting = string.rep("  ", indent) .. k .. ": "
+		if type(v) == "table" then
+			print(formatting)
+			table.print(v, indent+1)
+		elseif type(v) == 'boolean' then
+			print(formatting .. tostring(v))
+		else
+			print(formatting .. tostring(v))
+		end
+	end
+end
+function table.flip(t)
+	local tt={}
+	for i,v in pairs(t) do
+		tt[v]=i
+	end
+	return tt
+end
+function toFraction(n)
+	local w,p=math.modf(n)
+	if p~=0 then
+		p=tonumber(tostring(p):sub(3))
+	end
+	return w,p
+end
+function io.cleanName(name)
+	name=name:gsub("\\","")
+	name=name:gsub("/","")
+	name=name:gsub(":","")
+	name=name:gsub("*","")
+	name=name:gsub("%?","")
+	name=name:gsub("\"","''")
+	name=name:gsub("<","")
+	name=name:gsub(">","")
+	name=name:gsub("|","")
+	return name
+end
+function math.numfix(n,x)
+	local str=tostring(n)
+	if #str<x then
+		str=('0'):rep(x-#str)..str
+	end
+	return str
+end
+function bin.stripFileName(path)
+	path=path:gsub("\\","/")
+	local npath=path:reverse()
+	a=npath:find("/",1,true)
+	npath=npath:sub(a)
+	npath=npath:reverse()
+	return npath
+end
+function bin._trim(str)
+	return str:match'^()%s*$' and '' or str:match'^%s*(.*%S)'
+end
+function io.dirExists(strFolderName)
+	strFolderName = strFolderName or io.getDir()
+	local fileHandle, strError = io.open(strFolderName..'\\*.*','r')
+	if fileHandle ~= nil then
+		io.close(fileHandle)
+		return true
+	else
+		if string.match(strError,'No such file or directory') then
+			return false
+		else
+			return true
+		end
+	end
+end
+function bin.fileExists(name)
+   local f=io.open(name,"r")
+   if f~=nil then io.close(f) return true else return false end
+end
+function bin.randomName(n,ext)
+	n=n or math.random(7,15)
+	if ext then
+		a,b=ext:find('.',1,true)
+		if a and b then
+			ext=ext:sub(2)
+		end
+	end
+	local str,h = '',0
+	strings = {'a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z','1','2','3','4','5','6','7','8','9','0','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z'}
+	for i=1,n do
+		h = math.random(1,#strings)
+		str = str..''..strings[h]
+	end
+	return str..'.'..(ext or 'tmp')
+end
+function bin.trimNul(str)
+	return str:match("(.-)[%z]*$")
+end
+function io.mkDir(dirname)
+	os.execute('mkdir "' .. dirname..'"')
+end
+function string.lines(str)
+	local t = {}
+	local function helper(line) table.insert(t, line) return '' end
+	helper((str:gsub('(.-)\r?\n', helper)))
+	return t
+end
+function log(data,name,fmt)
+	if name then
+		name=io.cleanName(name)
+	end
+	if not bin.logger then
+		bin.logger = bin.stream(name or 'lua.log',false)
+	elseif bin.logger and name then
+		bin.logger:close()
+		bin.logger = bin.stream(name or 'lua.log',false)
+	end
+	local d=os.date('*t',os.time())
+	bin.logger:tackE((fmt or '['..math.numfix(d.month,2)..'-'..math.numfix(d.day,2)..'-'..d.year..'|'..math.numfix(d.hour,2)..':'..math.numfix(d.min,2)..':'..math.numfix(d.sec,2)..']\t')..data..'\r\n')
+end
+function table.max(t)
+    if #t == 0 then return end
+    local value = t[1]
+    for i = 2, #t do
+        if (value < t[i]) then
+            value = t[i]
+        end
+    end
+    return value
+end
+
+local bit
 if jit then
 	bit=require("bit")
 elseif bit32 then
@@ -20,15 +148,445 @@ elseif bit32 then
 else
 	bit=require("bin.numbers.no_jit_bit")
 end
-base64=require("bin.converters.base64")
-base91=require("bin.converters.base91")
 bin.lzw=require("bin.compressors.lzw") -- A WIP
-bits=require("bin.numbers.bits")
-infinabits=require("bin.numbers.infinabits") -- like the bits library but works past 32 bits for 32bit lua and 64 bits for 64 bit lua.
-bin.md5=require("bin.hashes.md5")
-randomGen=require("bin.numbers.random")
+local bits={}
+bin.bits = bits
+bits.data=''
+bits.t='bits'
+bits.Type='bits'
+bits.__index = bits
+bits.__tostring=function(self) return self.data end
+bits.__len=function(self) return (#self.data)/8 end
+local floor,insert = math.floor, table.insert
+function bits.newBitBuffer(n)
+	--
+end
+function bits.newConverter(bitsIn,bitsOut)
+	local c={}
+	--
+end
+function basen(n,b)
+    if not b or b == 10 then return tostring(n) end
+    local digits = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
+    local t = {}
+    local sign = ""
+    if n < 0 then
+        sign = "-"
+    n = -n
+    end
+    repeat
+        local d = n % b + 1
+        n = n / b
+        insert(t, 1, digits:sub(d,d))
+    until n == 0
+    return sign .. table.concat(t,"")
+end
+bits.ref={}
+function bits.newByte(d)
+	local c={}
+	if type(d)=="string" then
+		if #d>1 or #d<1 then
+			error("A byte must be one character!")
+		else
+			c.data=string.byte(d)
+		end
+	elseif type(d)=="number" then
+		if d>255 or d<0 then
+			error("A byte must be between 0 and 255!")
+		else
+			c.data=d
+		end
+	else
+		error("cannot use type "..type(d).." as an argument! Takes only strings or numbers!")
+	end
+	c.__index=function(self,k)
+		if k>=0 and k<9 then
+			if self.data==0 then
+				return 0
+			elseif self.data==255 then
+				return 1
+			else
+				return bits.ref[self.data][k]
+			end
+		end
+	end
+	c.__tostring=function(self)
+		return bits.ref[tostring(self.data)]
+	end
+	setmetatable(c,c)
+	return c
+end
+function bits.newByteArray(s)
+	local c={}
+	if type(s)~="string" then
+		error("Must be a string type or bin/buffer type")
+	elseif type(s)=="table" then
+		if s.t=="sink" or s.t=="buffer" or s.t=="bin" then
+			local data=s:getData()
+			for i=1,#data do
+				c[#c+1]=bits.newByte(data:sub(i,i))
+			end
+		else
+			error("Must be a string type or bin/buffer type")
+		end
+	else
+		for i=1,#s do
+			c[#c+1]=bits.newByte(s:sub(i,i))
+		end
+	end
+	return c
+end
+function bits.new(n,binary)
+	local temp={}
+	temp.t="bits"
+	temp.Type="bits"
+	if type(n)=="string" then
+		if binary then
+			temp.data=n:match("[10]+")
+		else
+			local t={}
+			for i=#n,1,-1 do
+				table.insert(t,bits:conv(string.byte(n,i)))
+			end
+			temp.data=table.concat(t)
+		end
+	elseif type(n)=="number" or type(n)=="table" then
+		temp.data=basen(n,2)
+	end
+	if #temp.data%8~=0 then
+		temp.data=string.rep('0',8-#temp.data%8)..temp.data
+	end
+	setmetatable(temp, bits)
+	return temp
+end
+for i=0,255 do
+	local d=bits.new(i).data
+	bits.ref[i]={d:match("(%d)(%d)(%d)(%d)(%d)(%d)(%d)(%d)")}
+	bits.ref[tostring(i)]=d
+	bits.ref[d]=i
+	bits.ref["\255"..string.char(i)]=d
+end
+function bits.numToBytes(n,fit,func)
+	local num=string.reverse(bits.new(n):toSbytes())
+	local ref={["num"]=num,["fit"]=fit}
+	if fit then
+		if fit<#num then
+			if func then
+				print("Warning: attempting to store a number that takes up more space than allotted! Using provided method!")
+				func(ref)
+			else
+				print("Warning: attempting to store a number that takes up more space than allotted!")
+			end
+			return ref.num:sub(1,ref.fit)
+		elseif fit==#num then
+			return string.reverse(num)
+		else
+			return string.reverse(string.rep("\0",fit-#num)..num)
+		end
+	else
+		return string.reverse(num)
+	end
+end
+function bits:conv(n)
+	local tab={}
+	while n>=1 do
+		table.insert(tab,n%2)
+		n=math.floor(n/2)
+	end
+	local str=string.reverse(table.concat(tab))
+	if #str%8~=0 or #str==0 then
+		str=string.rep('0',8-#str%8)..str
+	end
+	return str
+end
+function bits:tonumber(s,e)
+	if s==0 then
+		return tonumber(self.data,2)
+	end
+	s=s or 1
+	return tonumber(string.sub(self.data,(8*(s-1))+1,8*s),2) or error('Bounds!')
+end
+function bits:isover()
+	return #self.data>8
+end
+function bits:flipbits()
+	tab={}
+	for i=1,#self.data do
+		if string.sub(self.data,i,i)=='1' then
+			table.insert(tab,'0')
+		else
+			table.insert(tab,'1')
+		end
+	end
+	self.data=table.concat(tab)
+end
+function bits:tobytes()
+	local tab={}
+	for i=self:getbytes(),1,-1 do
+		table.insert(tab,string.char(self:tonumber(i)))
+	end
+	return bin.new(table.concat(tab))
+end
+function bits:toSbytes()
+	local tab={}
+	for i=self:getbytes(),1,-1 do
+		table.insert(tab,string.char(self:tonumber(i)))
+	end
+	return table.concat(tab)
+end
+function bits:getBin()
+	return self.data
+end
+function bits:getbytes()
+	return #self.data/8
+end
+local binNum=require("bin.numbers.BigNum")
+local infinabits={}
+bin.infinabits = infinabits
+infinabits.data=''
+infinabits.t='infinabits'
+infinabits.Type='infinabits'
+infinabits.__index = infinabits
+infinabits.__tostring=function(self) return self.data end
+infinabits.__len=function(self) return (#self.data)/8 end
+local floor,insert = math.floor, table.insert
+function basen(n,b)
+    n=BigNum.new(n)
+    if not b or b == 10 then return tostring(n) end
+    local digits = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
+    local t = {}
+    local sign = ""
+    if n < BigNum.new(0) then
+        sign = "-"
+    n = -n
+    end
+    repeat
+        local d = tonumber(tostring(n % b)) + 1
+        n = n / b
+        insert(t, 1, digits:sub(d,d))
+    until n == BigNum.new(0)
+    return sign .. table.concat(t,"")
+end
+function base2to10(num)
+	local n=BigNum.new(0)
+	for i = #num-1,0,-1 do
+		nn=BigNum.new(num:sub(i+1,i+1))*(BigNum.new(2)^((#num-i)-1))
+		n=n+nn
+	end
+	return n
+end
+function infinabits.newBitBuffer(n)
+	-- WIP
+end
+function infinabits.newConverter(bitsIn,bitsOut)
+	local c={}
+	-- WIP
+end
+infinabits.ref={}
+function infinabits.newByte(d)-- WIP
+	local c={}
+	if type(d)=="string" then
+		if #d>1 or #d<1 then
+			error("A byte must be one character!")
+		else
+			c.data=string.byte(d)
+		end
+	elseif type(d)=="number" then
+		if d>255 or d<0 then
+			error("A byte must be between 0 and 255!")
+		else
+			c.data=d
+		end
+	else
+		error("cannot use type "..type(d).." as an argument! Takes only strings or numbers!")
+	end
+	c.__index=function(self,k)
+		if k>=0 and k<9 then
+			if self.data==0 then
+				return 0
+			elseif self.data==255 then
+				return 1
+			else
+				return infinabits.ref[self.data][k]
+			end
+		end
+	end
+	c.__tostring=function(self)
+		return infinabits.ref[tostring(self.data)]
+	end
+	setmetatable(c,c)
+	return c
+end
+function infinabits.newByteArray(s)-- WIP
+	local c={}
+	if type(s)~="string" then
+		error("Must be a string type or bin/buffer type")
+	elseif type(s)=="table" then
+		if s.t=="sink" or s.t=="buffer" or s.t=="bin" then
+			local data=s:getData()
+			for i=1,#data do
+				c[#c+1]=infinabits.newByte(data:sub(i,i))
+			end
+		else
+			error("Must be a string type or bin/buffer type")
+		end
+	else
+		for i=1,#s do
+			c[#c+1]=infinabits.newByte(s:sub(i,i))
+		end
+	end
+	return c
+end
+function infinabits.new(n,binary)
+	local temp={}
+	temp.t="infinabits"
+	temp.Type="infinabits"
+	if type(n)=="string" then
+		if binary then
+			temp.data=n:match("[10]+")
+		else
+			local t={}
+			for i=#n,1,-1 do
+				table.insert(t,infinabits:conv(string.byte(n,i)))
+			end
+			temp.data=table.concat(t)
+		end
+	elseif type(n)=="number" or type(n)=="table" then
+		temp.data=basen(tostring(n),2)
+	end
+	if #temp.data%8~=0 then
+		temp.data=string.rep('0',8-#temp.data%8)..temp.data
+	end
+	setmetatable(temp, infinabits)
+	return temp
+end
+for i=0,255 do
+	local d=infinabits.new(i).data
+	infinabits.ref[i]={d:match("(%d)(%d)(%d)(%d)(%d)(%d)(%d)(%d)")}
+	infinabits.ref[tostring(i)]=d
+	infinabits.ref[d]=i
+	infinabits.ref["\255"..string.char(i)]=d
+end
+function infinabits.numToBytes(n,fit,func)
+	local num=string.reverse(infinabits.new(BigNum.new(n)):toSbytes())
+	local ref={["num"]=num,["fit"]=fit}
+	if fit then
+		if fit<#num then
+			if func then
+				print("Warning: attempting to store a number that takes up more space than allotted! Using provided method!")
+				func(ref)
+			else
+				print("Warning: attempting to store a number that takes up more space than allotted!")
+			end
+			return ref.num:sub(1,ref.fit)
+		elseif fit==#num then
+			return string.reverse(num)
+		else
+			return string.reverse(string.rep("\0",fit-#num)..num)
+		end
+	else
+		return string.reverse(num)
+	end
+end
+function infinabits.numToBytes(n,fit,fmt,func)
+	if fmt=="%e" then
+		local num=string.reverse(infinabits.new(BigNum.new(n)):toSbytes())
+		local ref={["num"]=num,["fit"]=fit}
+		if fit then
+			if fit<#num then
+				if func then
+					print("Warning: attempting to store a number that takes up more space than allotted! Using provided method!")
+					func(ref)
+				else
+					print("Warning: attempting to store a number that takes up more space than allotted!")
+				end
+				return ref.num:sub(1,ref.fit)
+			elseif fit==#num then
+				return num
+			else
+				return string.rep("\0",fit-#num)..num
+			end
+		else
+			return num
+		end
+
+	else
+		local num=string.reverse(infinabits.new(BigNum.new(n)):toSbytes())
+		local ref={["num"]=num,["fit"]=fit}
+		if fit then
+			if fit<#num then
+				if func then
+					print("Warning: attempting to store a number that takes up more space than allotted! Using provided method!")
+					func(ref)
+				else
+					print("Warning: attempting to store a number that takes up more space than allotted!")
+				end
+				return ref.num:sub(1,ref.fit)
+			elseif fit==#num then
+				return string.reverse(num)
+			else
+				return string.reverse(string.rep("\0",fit-#num)..num)
+			end
+		else
+			return string.reverse(num)
+		end
+	end
+end
+function infinabits:conv(n)
+	local tab={}
+	local one=BigNum.new(1)
+	local n=BigNum.new(n)
+	while n>=one do
+		table.insert(tab,tonumber(tostring(n%2)))
+		n=n/2
+	end
+	local str=string.reverse(table.concat(tab))
+	if #str%8~=0 or #str==0 then
+		str=string.rep('0',8-#str%8)..str
+	end
+	return str
+end
+function infinabits:tonumber(s)
+	if s==0 then
+		return tonumber(self.data,2)
+	end
+	s=s or 1
+	return tonumber(tostring(base2to10(string.sub(self.data,(8*(s-1))+1,8*s)))) or error('Bounds!')
+end
+function infinabits:isover()
+	return #self.data>8
+end
+function infinabits:flipbits()
+	tab={}
+	local s=self.data
+	s=s:gsub("1","_")
+	s=s:gsub("0","1")
+	s=s:gsub("_","0")
+	self.data=s
+end
+function infinabits:tobytes()
+	local tab={}
+	for i=self:getbytes(),1,-1 do
+		table.insert(tab,string.char(self:tonumber(i)))
+	end
+	return bin.new(table.concat(tab))
+end
+function infinabits:toSbytes()
+	local tab={}
+	for i=self:getbytes(),1,-1 do
+		table.insert(tab,string.char(self:tonumber(i)))
+	end
+	return table.concat(tab)
+end
+function infinabits:getBin()
+	return self.data
+end
+function infinabits:getbytes()
+	return #self.data/8
+end
+local randomGen=require("bin.numbers.random")
 function bin.setBitsInterface(int)
-	bin.defualtBit=int or bits
+	bin.defualtBit=int or infinabits
 end
 bin.setBitsInterface()
 function bin.normalizeData(data) -- unified function to allow for all types to string
@@ -108,18 +666,7 @@ function bin.fromHex(str)
         return string.char(tonumber(cc, 16))
     end))
 end
-function bin.toBase64(s)
-	return base64.encode(s)
-end
-function bin.fromBase64(s)
-	return base64.decode(s)
-end
-function bin.toBase91(s)
-	return base91.encode(s)
-end
-function bin.fromBase91(s)
-	return base91.decode(s)
-end
+
 -- Constructors
 function bin.new(data)
 	data=bin.normalizeData(data)
@@ -132,12 +679,7 @@ function bin.new(data)
 	c.stream=false
 	return c
 end
-function bin.newFromBase64(data)
-	return bin.new(bin.fromBase64(data))
-end
-function bin.newFromBase91(data)
-	return bin.new(bin.fromBase91(data))
-end
+
 function bin.newFromHex(data)
 	return bin.new(bin.fromHex(data))
 end
@@ -478,7 +1020,7 @@ function bin.newDataBuffer(size,fill) -- fills with \0 or nul or with what you e
 			if type(v)=="string" then
 				data=v
 			elseif type(v)=="number" then
-				data=string.char(v)
+				data=bits.numToBytes(v)
 			else
 				-- try to normalize the data of type v
 				data=bin.normalizeData(v)
@@ -571,22 +1113,6 @@ function bin:toDataBuffer()
 	end
 	return buf
 end
-function bin:getMD5Hash()
-	self:setSeek(1)
-	local len=self:getSize()
-	local md5=bin.md5.new()
-	local SIZE=2048
-	if len>SIZE then
-		local dat=self:read(SIZE)
-		while dat~=nil do
-			md5:update(dat)
-			dat=self:read(SIZE)
-		end
-		return bin.md5.tohex(md5:finish()):upper()
-	else
-		return bin.md5.sumhexa(self:getData()):upper()
-	end
-end
 function bin:getHash()
 	if self:getSize()==0 then
 		return "NaN"
@@ -676,7 +1202,152 @@ function bin:fullTrim(empty)
 	self:wipe()
 	self:write(table.concat(t,"\n"))
 end
-require("bin.support.extraBlocks") -- registered blocks that you can use
+local __CURRENTVERSION=2
+bin.registerBlock("t",function(SIZE_OR_NIL,ref)
+	local header=ref:read(3)
+	if not header:match("(LT.)") then error("Not a valid table struct!") end
+	if bin.defualtBit.new(header:sub(3,3)):tonumber(1)>__CURRENTVERSION then error("Incompatible Version of LuaTable!") end
+	local len=ref:getBlock("n",4) -- hehe lets make life easier
+	local tab={}
+	local ind
+	local n=0
+	while true do
+		local _dat=ref:read(2)
+		if _dat==nil then break end
+		local it,dt=_dat:match("(.)(.)")
+		n=n+2
+		if it=="N" then -- get the index stuff out of the way first
+			ind=ref:getBlock("n",4)
+			n=n+4
+		else
+			indL=ref:getBlock("n",1)
+			n=n+1+indL
+			ind=ref:read(indL)
+		end
+		if dt=="N" then
+			tab[ind]=ref:getBlock("d")
+			n=n+8
+		elseif dt=="I" then
+			tab[ind]=math.huge
+			ref:getBlock("n",4)
+			n=n+4
+		elseif dt=="i" then
+			tab[ind]=-math.huge
+			ref:getBlock("n",4)
+			n=n+4
+		elseif dt=="S" then
+			local nn=ref:getBlock("n",4)
+			tab[ind]=ref:read(nn)
+			n=n+4+nn
+		elseif dt=="B" then
+			tab[ind]=({["\255"]=true,["\0"]=false})[ref:read(1)]
+			n=n+1
+		elseif dt=="F" then
+			local nn=ref:getBlock("n",4)
+			tab[ind]=loadstring(ref:read(nn))
+			n=n+4+nn
+		elseif dt=="T" then
+			local cur=ref:getSeek()
+			local size=ref:getBlock("n",4)
+			ref:setSeek(cur)
+			ref:read(4)
+			if size==7 then
+				tab[ind]={}
+				ref:read(7)
+				n=n+11
+			else
+				local data=bin.new(ref:read(size))
+				local dat=data:getBlock("t")
+				if dat.__RECURSIVE then
+					tab[ind]=tab
+				else
+					tab[ind]=dat
+				end
+				n=n+data:getSize()+4
+			end
+		end
+		if n==len then break end
+	end
+	return bin.resolveType(tab)
+end,function(d,fit,fmt,self,rec,tabsaw)
+	-- INGORE FIT WE ARE CREATING A STRUCT!!!
+	-- fmt will apply to all numbers
+	local __rem=nil
+	if not tabsaw then rem=true end
+	local tabsaw=tabsaw or {}
+	if rem then
+		table.insert(tabsaw,d)
+	end
+	local bData={}
+	for i,v in pairs(d) do -- this is for tables, all but userdata is fine. Depending on where you are using lua functions may or may not work
+		local tp=type(v):sub(1,1):upper() -- uppercase of datatype
+		if type(i)=="number" then -- Lets handle indexies
+			if v==math.huge then
+				tp="I"
+				v=0
+			elseif v==-math.huge then
+				tp="i"
+				v=0
+			end
+			table.insert(bData,"N"..tp..bin.defualtBit.numToBytes(i,4)) -- number index?
+		elseif type(i)=="string" then
+			if #i>255 then error("A string index cannot be larger than 255 bytes!") end
+			table.insert(bData,"S"..tp..bin.defualtBit.numToBytes(#i,1)..i) -- string index?
+		else
+			error("Only numbers and strings can be a table index!") -- throw error?
+		end
+		if type(v)=="number" then
+			-- How do we handle number data
+			local temp=bin.new()
+			temp:addBlock(v,nil,"d")
+			table.insert(bData,temp.data)
+		elseif type(v)=="string" then
+			-- Lets work on strings
+			table.insert(bData,bin.defualtBit.numToBytes(#v,4)) -- add length of string
+			table.insert(bData,v) -- add string
+		elseif type(v)=="boolean" then -- bools are easy :D
+			table.insert(bData,({[true]="\255",[false]="\0"})[v])
+		elseif type(v)=="function" then -- should we allow this? why not...
+			local dump=string.dump(v)
+			table.insert(bData,bin.defualtBit.numToBytes(#dump,4)) -- add length of dumped string
+			table.insert(bData,dump) -- add it
+		elseif type(v)=="table" then -- tables...
+			if tabsaw[1]==v then
+				v={__RECURSIVE=i}
+			else
+				tabsaw[i]=v
+			end
+			local data=rec(v,nil,"t",self,rec,tabsaw)
+			table.insert(bData,bin.defualtBit.numToBytes(#data,4)) -- add length of string
+			table.insert(bData,data) -- add string
+		end
+	end
+	local data=table.concat(bData)
+	return "LT"..string.char(__CURRENTVERSION)..bin.defualtBit.numToBytes(#data,4)..data
+end)
+bin.registerBlock("b",function(SIZE_OR_NIL,ref)
+	return ({["\255"]=true,["\0"]=false})[ref:read(1)]
+end,function(d)
+	return ({[true]="\255",[false]="\0"})[d]
+end)
+bin.registerBlock("f",function(SIZE_OR_NIL,ref)
+	local nn=ref:getBlock("n",4)
+	return loadstring(ref:read(nn))
+end,function(d)
+	local dump=string.dump(d)
+	return bin.defualtBit.numToBytes(#dump,4)..dump
+end)
+bin.registerBlock("d",function(SIZE_OR_NIL,ref)
+	local w,p=ref:getBlock("n",4),ref:getBlock("n",4)
+	p=tonumber("0."..tostring(p))
+	return w+p
+end,function(d,fit,fmt,self,rec,tabsaw)
+	local w,p = toFraction(d)
+	local temp=bin.new()
+	temp:addBlock(w,4)
+	temp:addBlock(p,4)
+	return temp.data
+end)
 if love then
 	function bin.load(file,s,r)
 		content, size = love.filesystem.read(file)
@@ -684,10 +1355,30 @@ if love then
 		temp.filepath=file
 		return temp
 	end
+	function bin.fileExists(name)
+		return love.filesystem.getInfo(name)
+	end
 	function bin:tofile(filename)
 		if not(filename) or self.Stream then return nil end
 		love.filesystem.write(filename,self.data)
 	end
+	function bin.loadS(path,s,r)
+		local path = love.filesystem.getSaveDirectory( ).."\\"..path
+		if type(path) ~= "string" then error("Path must be a string!") end
+		local f = io.open(path, 'rb')
+		local content = f:read('*a')
+		f:close()
+		return bin.new(content)
+	end
+	function bin:tofileS(filename)
+		if self.stream then return end
+		local filename = love.filesystem.getSaveDirectory( ).."\\"..filename
+		print(#self.data,filename)
+		if not filename then error("Must include a filename to save as!") end
+		file = io.open(filename, "wb")
+		file:write(self.data)
+		file:close()
+	end
 	function bin.stream(file)
 		return bin.newStreamFileObject(love.filesystem.newFile(file))
 	end
@@ -737,3 +1428,4 @@ if love then
 		self.workingfile:close()
 	end
 end
+return bin

bin/numbers/BigNum.lua

@@ -1,5 +1,5 @@
-   RADIX = 10^7 ;
-   RADIX_LEN = math.floor( math.log10 ( RADIX ) ) ;
+RADIX = 10^7 ;
+RADIX_LEN = math.floor( math.log10 ( RADIX ) ) ;
 
 BigNum = {} ;
 BigNum.mt = {} ;

bin/numbers/bits.lua

@@ -1,212 +0,0 @@
-local bits={}
-bits.data=''
-bits.t='bits'
-bits.Type='bits'
-bits.__index = bits
-bits.__tostring=function(self) return self.data end
-bits.__len=function(self) return (#self.data)/8 end
-function bits.newBitBuffer(n)
-	--
-end
-function bits.newConverter(bitsIn,bitsOut)
-	local c={}
-	--
-end
-bits.ref={}
-function bits.newByte(d)
-	local c={}
-	if type(d)=="string" then
-		if #d>1 or #d<1 then
-			error("A byte must be one character!")
-		else
-			c.data=string.byte(d)
-		end
-	elseif type(d)=="number" then
-		if d>255 or d<0 then
-			error("A byte must be between 0 and 255!")
-		else
-			c.data=d
-		end
-	else
-		error("cannot use type "..type(d).." as an argument! Takes only strings or numbers!")
-	end
-	c.__index=function(self,k)
-		if k>=0 and k<9 then
-			if self.data==0 then
-				return 0
-			elseif self.data==255 then
-				return 1
-			else
-				return bits.ref[self.data][k]
-			end
-		end
-	end
-	c.__tostring=function(self)
-		return bits.ref[tostring(self.data)]
-	end
-	setmetatable(c,c)
-	return c
-end
-function bits.newByteArray(s)
-	local c={}
-	if type(s)~="string" then
-		error("Must be a string type or bin/buffer type")
-	elseif type(s)=="table" then
-		if s.t=="sink" or s.t=="buffer" or s.t=="bin" then
-			local data=s:getData()
-			for i=1,#data do
-				c[#c+1]=bits.newByte(data:sub(i,i))
-			end
-		else
-			error("Must be a string type or bin/buffer type")
-		end
-	else
-		for i=1,#s do
-			c[#c+1]=bits.newByte(s:sub(i,i))
-		end
-	end
-	return c
-end
-function bits.new(n,s)
-	if type(n)=='string' then
-		local t=tonumber(n,2)
-		if t and #n<8 and not(s) then
-			t=nil
-		end
-		if not(t) then
-			t={}
-			for i=#n,1,-1 do
-				table.insert(t,bits:conv(string.byte(n,i)))
-			end
-			n=table.concat(t)
-		else
-			n=t
-		end
-	end
-	local temp={}
-	temp.t='bits'
-	temp.Type="bits"
-	setmetatable(temp, bits)
-	if type(n)~='string' then
-		local tab={}
-		while n>=1 do
-			table.insert(tab,n%2)
-			n=math.floor(n/2)
-		end
-		local str=string.reverse(table.concat(tab))
-		if #str%8~=0 then
-			temp.data=string.rep('0',8-(#str))..str
-		elseif #str==0 then
-			temp.data="00000000"
-		end
-	else
-		temp.data=n or "00000000"
-	end
-	setmetatable({__tostring=function(self) return self.data end},temp)
-	return temp
-end
-for i=0,255 do
-	local d=bits.new(i).data
-	bits.ref[i]={d:match("(%d)(%d)(%d)(%d)(%d)(%d)(%d)(%d)")}
-	bits.ref[tostring(i)]=d
-	bits.ref[d]=i
-	bits.ref["\255"..string.char(i)]=d
-end
-function bits.numToBytes(n,fit,fmt,func)
-	if fmt=="%e" then
-		local num=string.reverse(bits.new(n):toSbytes())
-		local ref={["num"]=num,["fit"]=fit}
-		if fit then
-			if fit<#num then
-				if func then
-					print("Warning: attempting to store a number that takes up more space than allotted! Using provided method!")
-					func(ref)
-				else
-					print("Warning: attempting to store a number that takes up more space than allotted!")
-				end
-				return ref.num:sub(1,ref.fit)
-			elseif fit==#num then
-				return num
-			else
-				return string.rep("\0",fit-#num)..num
-			end
-		else
-			return num
-		end
-
-	else
-		local num=string.reverse(bits.new(n):toSbytes())
-		local ref={["num"]=num,["fit"]=fit}
-		if fit then
-			if fit<#num then
-				if func then
-					print("Warning: attempting to store a number that takes up more space than allotted! Using provided method!")
-					func(ref)
-				else
-					print("Warning: attempting to store a number that takes up more space than allotted!")
-				end
-				return ref.num:sub(1,ref.fit)
-			elseif fit==#num then
-				return string.reverse(num)
-			else
-				return string.reverse(string.rep("\0",fit-#num)..num)
-			end
-		else
-			return string.reverse(num)
-		end
-	end
-end
-function bits:conv(n)
-	local tab={}
-	while n>=1 do
-		table.insert(tab,n%2)
-		n=math.floor(n/2)
-	end
-	local str=string.reverse(table.concat(tab))
-	if #str%8~=0 or #str==0 then
-		str=string.rep('0',8-#str%8)..str
-	end
-	return str
-end
-function bits:tonumber(s,e)
-	if s==0 then
-		return tonumber(self.data,2)
-	end
-	s=s or 1
-	return tonumber(string.sub(self.data,(8*(s-1))+1,8*s),2) or error('Bounds!')
-end
-function bits:isover()
-	return #self.data>8
-end
-function bits:flipbits()
-	tab={}
-	for i=1,#self.data do
-		if string.sub(self.data,i,i)=='1' then
-			table.insert(tab,'0')
-		else
-			table.insert(tab,'1')
-		end
-	end
-	self.data=table.concat(tab)
-end
-function bits:tobytes()
-	local tab={}
-	for i=self:getbytes(),1,-1 do
-		table.insert(tab,string.char(self:tonumber(i)))
-	end
-	return bin.new(table.concat(tab))
-end
-function bits:toSbytes()
-	local tab={}
-	for i=self:getbytes(),1,-1 do
-		table.insert(tab,string.char(self:tonumber(i)))
-	end
-	return table.concat(tab)
-end
-function bits:getBin()
-	return self.data
-end
-function bits:getbytes()
-	return #self.data/8
-end
-return bits

bin/numbers/infinabits.lua

@@ -1,244 +0,0 @@
-local binNum=require("bin.numbers.BigNum")
-local infinabits={}
-infinabits.data=''
-infinabits.t='infinabits'
-infinabits.Type='infinabits'
-infinabits.__index = infinabits
-infinabits.__tostring=function(self) return self.data end
-infinabits.__len=function(self) return (#self.data)/8 end
-local floor,insert = math.floor, table.insert
-function basen(n,b)
-    n=BigNum.new(n)
-    if not b or b == 10 then return tostring(n) end
-    local digits = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
-    local t = {}
-    local sign = ""
-    if n < BigNum.new(0) then
-        sign = "-"
-    n = -n
-    end
-    repeat
-        local d = tonumber(tostring(n % b)) + 1
-        n = n / b
-        insert(t, 1, digits:sub(d,d))
-    until n == BigNum.new(0)
-    return sign .. table.concat(t,"")
-end
-function base2to10(num)
-	local n=BigNum.new(0)
-	for i = #num-1,0,-1 do
-		nn=BigNum.new(num:sub(i+1,i+1))*(BigNum.new(2)^((#num-i)-1))
-		n=n+nn
-	end
-	return n
-end
-function infinabits.newBitBuffer(n)
-	-- WIP
-end
-function infinabits.newConverter(bitsIn,bitsOut)
-	local c={}
-	-- WIP
-end
-infinabits.ref={}
-function infinabits.newByte(d)-- WIP
-	local c={}
-	if type(d)=="string" then
-		if #d>1 or #d<1 then
-			error("A byte must be one character!")
-		else
-			c.data=string.byte(d)
-		end
-	elseif type(d)=="number" then
-		if d>255 or d<0 then
-			error("A byte must be between 0 and 255!")
-		else
-			c.data=d
-		end
-	else
-		error("cannot use type "..type(d).." as an argument! Takes only strings or numbers!")
-	end
-	c.__index=function(self,k)
-		if k>=0 and k<9 then
-			if self.data==0 then
-				return 0
-			elseif self.data==255 then
-				return 1
-			else
-				return infinabits.ref[self.data][k]
-			end
-		end
-	end
-	c.__tostring=function(self)
-		return infinabits.ref[tostring(self.data)]
-	end
-	setmetatable(c,c)
-	return c
-end
-function infinabits.newByteArray(s)-- WIP
-	local c={}
-	if type(s)~="string" then
-		error("Must be a string type or bin/buffer type")
-	elseif type(s)=="table" then
-		if s.t=="sink" or s.t=="buffer" or s.t=="bin" then
-			local data=s:getData()
-			for i=1,#data do
-				c[#c+1]=infinabits.newByte(data:sub(i,i))
-			end
-		else
-			error("Must be a string type or bin/buffer type")
-		end
-	else
-		for i=1,#s do
-			c[#c+1]=infinabits.newByte(s:sub(i,i))
-		end
-	end
-	return c
-end
-function infinabits.new(n,binary)
-	local temp={}
-	temp.t="infinabits"
-	temp.Type="infinabits"
-	if type(n)=="string" then
-		if binary then
-			temp.data=n:match("[10]+")
-		else
-			local t={}
-			for i=#n,1,-1 do
-				table.insert(t,infinabits:conv(string.byte(n,i)))
-			end
-			temp.data=table.concat(t)
-		end
-	elseif type(n)=="number" or type(n)=="table" then
-		temp.data=basen(tostring(n),2)
-	end
-	if #temp.data%8~=0 then
-		temp.data=string.rep('0',8-#temp.data%8)..temp.data
-	end
-	setmetatable(temp, infinabits)
-	return temp
-end
-for i=0,255 do
-	local d=infinabits.new(i).data
-	infinabits.ref[i]={d:match("(%d)(%d)(%d)(%d)(%d)(%d)(%d)(%d)")}
-	infinabits.ref[tostring(i)]=d
-	infinabits.ref[d]=i
-	infinabits.ref["\255"..string.char(i)]=d
-end
-function infinabits.numToBytes(n,fit,func)
-	local num=string.reverse(infinabits.new(BigNum.new(n)):toSbytes())
-	local ref={["num"]=num,["fit"]=fit}
-	if fit then
-		if fit<#num then
-			if func then
-				print("Warning: attempting to store a number that takes up more space than allotted! Using provided method!")
-				func(ref)
-			else
-				print("Warning: attempting to store a number that takes up more space than allotted!")
-			end
-			return ref.num:sub(1,ref.fit)
-		elseif fit==#num then
-			return string.reverse(num)
-		else
-			return string.reverse(string.rep("\0",fit-#num)..num)
-		end
-	else
-		return string.reverse(num)
-	end
-end
-function infinabits.numToBytes(n,fit,fmt,func)
-	if fmt=="%e" then
-		local num=string.reverse(infinabits.new(BigNum.new(n)):toSbytes())
-		local ref={["num"]=num,["fit"]=fit}
-		if fit then
-			if fit<#num then
-				if func then
-					print("Warning: attempting to store a number that takes up more space than allotted! Using provided method!")
-					func(ref)
-				else
-					print("Warning: attempting to store a number that takes up more space than allotted!")
-				end
-				return ref.num:sub(1,ref.fit)
-			elseif fit==#num then
-				return num
-			else
-				return string.rep("\0",fit-#num)..num
-			end
-		else
-			return num
-		end
-
-	else
-		local num=string.reverse(infinabits.new(BigNum.new(n)):toSbytes())
-		local ref={["num"]=num,["fit"]=fit}
-		if fit then
-			if fit<#num then
-				if func then
-					print("Warning: attempting to store a number that takes up more space than allotted! Using provided method!")
-					func(ref)
-				else
-					print("Warning: attempting to store a number that takes up more space than allotted!")
-				end
-				return ref.num:sub(1,ref.fit)
-			elseif fit==#num then
-				return string.reverse(num)
-			else
-				return string.reverse(string.rep("\0",fit-#num)..num)
-			end
-		else
-			return string.reverse(num)
-		end
-	end
-end
-function infinabits:conv(n)
-	local tab={}
-	local one=BigNum.new(1)
-	local n=BigNum.new(n)
-	while n>=one do
-		table.insert(tab,tonumber(tostring(n%2)))
-		n=n/2
-	end
-	local str=string.reverse(table.concat(tab))
-	if #str%8~=0 or #str==0 then
-		str=string.rep('0',8-#str%8)..str
-	end
-	return str
-end
-function infinabits:tonumber(s)
-	if s==0 then
-		return tonumber(self.data,2)
-	end
-	s=s or 1
-	return tonumber(tostring(base2to10(string.sub(self.data,(8*(s-1))+1,8*s)))) or error('Bounds!')
-end
-function infinabits:isover()
-	return #self.data>8
-end
-function infinabits:flipbits()
-	tab={}
-	local s=self.data
-	s=s:gsub("1","_")
-	s=s:gsub("0","1")
-	s=s:gsub("_","0")
-	self.data=s
-end
-function infinabits:tobytes()
-	local tab={}
-	for i=self:getbytes(),1,-1 do
-		table.insert(tab,string.char(self:tonumber(i)))
-	end
-	return bin.new(table.concat(tab))
-end
-function infinabits:toSbytes()
-	local tab={}
-	for i=self:getbytes(),1,-1 do
-		table.insert(tab,string.char(self:tonumber(i)))
-	end
-	return table.concat(tab)
-end
-function infinabits:getBin()
-	return self.data
-end
-function infinabits:getbytes()
-	return #self.data/8
-end
-return infinabits

bin/support/extraBlocks.lua

@@ -1,146 +0,0 @@
-local __CURRENTVERSION=2
-bin.registerBlock("t",function(SIZE_OR_NIL,ref)
-	local header=ref:read(3)
-	if not header:match("(LT.)") then error("Not a valid table struct!") end
-	if bin.defualtBit.new(header:sub(3,3)):tonumber(1)>__CURRENTVERSION then error("Incompatible Version of LuaTable!") end
-	local len=ref:getBlock("n",4) -- hehe lets make life easier
-	local tab={}
-	local ind
-	local n=0
-	while true do
-		local _dat=ref:read(2)
-		if _dat==nil then break end
-		local it,dt=_dat:match("(.)(.)")
-		n=n+2
-		if it=="N" then -- get the index stuff out of the way first
-			ind=ref:getBlock("n",4)
-			n=n+4
-		else
-			indL=ref:getBlock("n",1)
-			n=n+1+indL
-			ind=ref:read(indL)
-		end
-		if dt=="N" then
-			tab[ind]=ref:getBlock("d")
-			n=n+8
-		elseif dt=="I" then
-			tab[ind]=math.huge
-			ref:getBlock("n",4)
-			n=n+4
-		elseif dt=="i" then
-			tab[ind]=-math.huge
-			ref:getBlock("n",4)
-			n=n+4
-		elseif dt=="S" then
-			local nn=ref:getBlock("n",4)
-			tab[ind]=ref:read(nn)
-			n=n+4+nn
-		elseif dt=="B" then
-			tab[ind]=({["\255"]=true,["\0"]=false})[ref:read(1)]
-			n=n+1
-		elseif dt=="F" then
-			local nn=ref:getBlock("n",4)
-			tab[ind]=loadstring(ref:read(nn))
-			n=n+4+nn
-		elseif dt=="T" then
-			local cur=ref:getSeek()
-			local size=ref:getBlock("n",4)
-			ref:setSeek(cur)
-			ref:read(4)
-			if size==7 then
-				tab[ind]={}
-				ref:read(7)
-				n=n+11
-			else
-				local data=bin.new(ref:read(size))
-				local dat=data:getBlock("t")
-				if dat.__RECURSIVE then
-					tab[ind]=tab
-				else
-					tab[ind]=dat
-				end
-				n=n+data:getSize()+4
-			end
-		end
-		if n==len then break end
-	end
-	return bin.resolveType(tab)
-end,function(d,fit,fmt,self,rec,tabsaw)
-	-- INGORE FIT WE ARE CREATING A STRUCT!!!
-	-- fmt will apply to all numbers
-	local __rem=nil
-	if not tabsaw then rem=true end
-	local tabsaw=tabsaw or {}
-	if rem then
-		table.insert(tabsaw,d)
-	end
-	local bData={}
-	for i,v in pairs(d) do -- this is for tables, all but userdata is fine. Depending on where you are using lua functions may or may not work
-		local tp=type(v):sub(1,1):upper() -- uppercase of datatype
-		if type(i)=="number" then -- Lets handle indexies
-			if v==math.huge then
-				tp="I"
-				v=0
-			elseif v==-math.huge then
-				tp="i"
-				v=0
-			end
-			table.insert(bData,"N"..tp..bin.defualtBit.numToBytes(i,4)) -- number index?
-		elseif type(i)=="string" then
-			if #i>255 then error("A string index cannot be larger than 255 bytes!") end
-			table.insert(bData,"S"..tp..bin.defualtBit.numToBytes(#i,1)..i) -- string index?
-		else
-			error("Only numbers and strings can be a table index!") -- throw error?
-		end
-		if type(v)=="number" then
-			-- How do we handle number data
-			local temp=bin.new()
-			temp:addBlock(v,nil,"d")
-			table.insert(bData,temp.data)
-		elseif type(v)=="string" then
-			-- Lets work on strings
-			table.insert(bData,bin.defualtBit.numToBytes(#v,4)) -- add length of string
-			table.insert(bData,v) -- add string
-		elseif type(v)=="boolean" then -- bools are easy :D
-			table.insert(bData,({[true]="\255",[false]="\0"})[v])
-		elseif type(v)=="function" then -- should we allow this? why not...
-			local dump=string.dump(v)
-			table.insert(bData,bin.defualtBit.numToBytes(#dump,4)) -- add length of dumped string
-			table.insert(bData,dump) -- add it
-		elseif type(v)=="table" then -- tables...
-			if tabsaw[1]==v then
-				v={__RECURSIVE=i}
-			else
-				tabsaw[i]=v
-			end
-			local data=rec(v,nil,"t",self,rec,tabsaw)
-			table.insert(bData,bin.defualtBit.numToBytes(#data,4)) -- add length of string
-			table.insert(bData,data) -- add string
-		end
-	end
-	local data=table.concat(bData)
-	return "LT"..string.char(__CURRENTVERSION)..bin.defualtBit.numToBytes(#data,4)..data
-end)
-bin.registerBlock("b",function(SIZE_OR_NIL,ref)
-	return ({["\255"]=true,["\0"]=false})[ref:read(1)]
-end,function(d)
-	return ({[true]="\255",[false]="\0"})[d]
-end)
-bin.registerBlock("f",function(SIZE_OR_NIL,ref)
-	local nn=ref:getBlock("n",4)
-	return loadstring(ref:read(nn))
-end,function(d)
-	local dump=string.dump(d)
-	return bin.defualtBit.numToBytes(#dump,4)..dump
-end)
-bin.registerBlock("d",function(SIZE_OR_NIL,ref)
-	local w,p=ref:getBlock("n",4),ref:getBlock("n",4)
-	p=tonumber("0."..tostring(p))
-	return w+p
-end,function(d,fit,fmt,self,rec,tabsaw)
-	local w,p = toFraction(d)
-	local temp=bin.new()
-	temp:addBlock(w,4)
-	temp:addBlock(p,4)
-	return temp.data
-end)

bin/support/utils.lua

@@ -1,123 +0,0 @@
-function table.print(tbl, indent)
-	if not indent then indent = 0 end
-		for k, v in pairs(tbl) do
-		formatting = string.rep("  ", indent) .. k .. ": "
-		if type(v) == "table" then
-			print(formatting)
-			table.print(v, indent+1)
-		elseif type(v) == 'boolean' then
-			print(formatting .. tostring(v))
-		else
-			print(formatting .. tostring(v))
-		end
-	end
-end
-function table.flip(t)
-	local tt={}
-	for i,v in pairs(t) do
-		tt[v]=i
-	end
-	return tt
-end
-function toFraction(n)
-	local w,p=math.modf(n)
-	if p~=0 then
-		p=tonumber(tostring(p):sub(3))
-	end
-	return w,p
-end
-function io.cleanName(name)
-	name=name:gsub("\\","")
-	name=name:gsub("/","")
-	name=name:gsub(":","")
-	name=name:gsub("*","")
-	name=name:gsub("%?","")
-	name=name:gsub("\"","''")
-	name=name:gsub("<","")
-	name=name:gsub(">","")
-	name=name:gsub("|","")
-	return name
-end
-function math.numfix(n,x)
-	local str=tostring(n)
-	if #str<x then
-		str=('0'):rep(x-#str)..str
-	end
-	return str
-end
-function bin.stripFileName(path)
-	path=path:gsub("\\","/")
-	local npath=path:reverse()
-	a=npath:find("/",1,true)
-	npath=npath:sub(a)
-	npath=npath:reverse()
-	return npath
-end
-function bin._trim(str)
-	return str:match'^()%s*$' and '' or str:match'^%s*(.*%S)'
-end
-function io.dirExists(strFolderName)
-	strFolderName = strFolderName or io.getDir()
-	local fileHandle, strError = io.open(strFolderName..'\\*.*','r')
-	if fileHandle ~= nil then
-		io.close(fileHandle)
-		return true
-	else
-		if string.match(strError,'No such file or directory') then
-			return false
-		else
-			return true
-		end
-	end
-end
-function bin.randomName(n,ext)
-	n=n or math.random(7,15)
-	if ext then
-		a,b=ext:find('.',1,true)
-		if a and b then
-			ext=ext:sub(2)
-		end
-	end
-	local str,h = '',0
-	strings = {'a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z','1','2','3','4','5','6','7','8','9','0','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z'}
-	for i=1,n do
-		h = math.random(1,#strings)
-		str = str..''..strings[h]
-	end
-	return str..'.'..(ext or 'tmp')
-end
-function bin.trimNul(str)
-	return str:match("(.-)[%z]*$")
-end
-function io.mkDir(dirname)
-	os.execute('mkdir "' .. dirname..'"')
-end
-function string.lines(str)
-	local t = {}
-	local function helper(line) table.insert(t, line) return '' end
-	helper((str:gsub('(.-)\r?\n', helper)))
-	return t
-end
-function log(data,name,fmt)
-	if name then
-		name=io.cleanName(name)
-	end
-	if not bin.logger then
-		bin.logger = bin.stream(name or 'lua.log',false)
-	elseif bin.logger and name then
-		bin.logger:close()
-		bin.logger = bin.stream(name or 'lua.log',false)
-	end
-	local d=os.date('*t',os.time())
-	bin.logger:tackE((fmt or '['..math.numfix(d.month,2)..'-'..math.numfix(d.day,2)..'-'..d.year..'|'..math.numfix(d.hour,2)..':'..math.numfix(d.min,2)..':'..math.numfix(d.sec,2)..']\t')..data..'\r\n')
-end
-function table.max(t)
-    if #t == 0 then return end
-    local value = t[1]
-    for i = 2, #t do
-        if (value < t[i]) then
-            value = t[i]
-        end
-    end
-    return value
-end

bin/support/vfs.lua

@@ -0,0 +1 @@
+local bin = require("bin")

crypto.lua

@@ -1,44 +1,6 @@
-function bubbleSort(A)
-  local itemCount=#A
-  local hasChanged
-  repeat
-	for i=1,#A do
-		io.write(string.char(A[i]))
-	end
-	io.write("\n")
-    hasChanged = false
-    itemCount=itemCount - 1
-    for i = 1, itemCount do
-      if A[i] > A[i + 1] then
-        A[i], A[i + 1] = A[i + 1], A[i]
-        hasChanged = true
-      end
-    end
-  until hasChanged == false
+package.path="?/init.lua;"..package.path
+require("bin")
+local bits = bin.bits
+for i=0,255 do
+	print(bits.new(i))
 end
-reflist={"A","S","S","I","G","N","M","E","N","T"}
-list={}
-list2={}
-for i,v in pairs(reflist) do
-	list[#list+1]=string.byte(v)
-	list2[#list2+1]=string.byte(v)
-end
-function SelectionSort(f)
-    for k = 1, #f-1 do
-		for i=1,#f do
-			io.write(string.char(f[i]))
-		end
-		io.write("\n")
-        local idx = k
-        for i = k+1, #f do
-            if f[i] < f[idx] then
-                idx = i
-            end
-        end
-        f[k], f[idx] = f[idx], f[k]
-    end
-end
-print("Bubble Sort")
-bubbleSort(list)
-print("Selection Sort")
-SelectionSort(list2)

rockspecs/bin-5.0-4.rockspec

@@ -2,7 +2,7 @@ package = "bin"
 version = "5.0-4"
 source = {
    url = "git://github.com/rayaman/bin.git",
-   tag = "v5.0.0",
+   tag = "v5.0.4",
 }
 description = {
    summary = "Lua Binary ManIpulatioN library",

rockspecs/bin-5.0-5.rockspec

@@ -0,0 +1,38 @@
+package = "bin"
+version = "5.0-5"
+source = {
+   url = "git://github.com/rayaman/bin.git",
+   tag = "v5.0.5",
+}
+description = {
+   summary = "Lua Binary ManIpulatioN library",
+   detailed = [[
+      This library contains many methods for working with files at the binary level. It can handle sterilization of all lua objects except userdata. It can even handle self recursion in talbes. It provides a bit, bits, infinabits, base64/91, lzw, md5 hashing, bignum, random, and a virtual file system(Soon, check out oldbin.lua for that) module.
+	  The bit library is the same that comes with luajit. the bits/infinabits library deals with 1's and 0's used for numbers. bits is faster than infinabits, but is limited to 32/64 bits based on which version of lua you are working on. Base64/91 is provided, but since it is done in pure lua it is slower. Check out the github for more info.
+   ]],
+   homepage = "https://github.com/rayaman/bin",
+   license = "MIT"
+}
+dependencies = {
+   "lua >= 5.1"
+}
+build = {
+   type = "builtin",
+   modules = {
+      -- Note the required Lua syntax when listing submodules as keys
+      ["bin.init"] = "bin/init.lua",
+      ["bin.base64"] = "bin/base64.lua",
+      ["bin.base91"] = "bin/base91.lua",
+      ["bin.BigNum"] = "bin/BigNum.lua",
+      ["bin.BigRat"] = "bin/BigRat.lua",
+      ["bin.bits"] = "bin/bits.lua",
+      ["bin.extrablocks"] = "bin/extrablocks.lua",
+      ["bin.infinabits"] = "bin/infinabits.lua",
+      ["bin.lzw"] = "bin/lzw.lua",
+      ["bin.md5"] = "bin/md5.lua",
+      ["bin.no_jit_bit"] = "bin/no_jit_bit.lua",
+      ["bin.random"] = "bin/random.lua",
+      ["bin.utils"] = "bin/utils.lua",
+      ["bin.vfs"] = "bin/vfs.lua",
+   }
+}

rockspecs/bin-5.0-6.rockspec

@@ -0,0 +1,38 @@
+package = "bin"
+version = "5.0-6"
+source = {
+   url = "git://github.com/rayaman/bin.git",
+   tag = "v5.0.6",
+}
+description = {
+   summary = "Lua Binary ManIpulatioN library",
+   detailed = [[
+      This library contains many methods for working with files at the binary level. It can handle sterilization of all lua objects except userdata. It can even handle self recursion in talbes. It provides a bit, bits, infinabits, base64/91, lzw, md5 hashing, bignum, random, and a virtual file system(Soon, check out oldbin.lua for that) module.
+	  The bit library is the same that comes with luajit. the bits/infinabits library deals with 1's and 0's used for numbers. bits is faster than infinabits, but is limited to 32/64 bits based on which version of lua you are working on. Base64/91 is provided, but since it is done in pure lua it is slower. Check out the github for more info.
+   ]],
+   homepage = "https://github.com/rayaman/bin",
+   license = "MIT"
+}
+dependencies = {
+   "lua >= 5.1"
+}
+build = {
+   type = "builtin",
+   modules = {
+      -- Note the required Lua syntax when listing submodules as keys
+      ["bin.init"] = "bin/init.lua",
+      ["bin.converters.base64"] = "bin/converters/base64.lua",
+      ["bin.converters.base91"] = "bin/converters/base91.lua",
+      ["bin.numbers.BigNum"] = "bin/numbers/BigNum.lua",
+      ["bin.numbers.BigRat"] = "bin/numbers/BigRat.lua",
+      ["bin.numbers.bits"] = "bin/numbers/bits.lua",
+      ["bin.support.extrablocks"] = "bin/support/extrablocks.lua",
+      ["bin.numbers.infinabits"] = "bin/numbers/infinabits.lua",
+      ["bin.compressors.lzw"] = "bin/compressors/lzw.lua",
+      ["bin.hashes.md5"] = "bin/hashes/md5.lua",
+      ["bin.numbers.no_jit_bit"] = "bin/numbers/no_jit_bit.lua",
+      ["bin.numbers.random"] = "bin/numbers/random.lua",
+      ["bin.support.utils"] = "bin/support/utils.lua",
+      ["bin.support.vfs"] = "bin/support/vfs.lua",
+   }
+}

rockspecs/bin-5.1-0.rockspec

@@ -0,0 +1,34 @@
+package = "bin"
+version = "5.1-0"
+source = {
+   url = "git://github.com/rayaman/bin.git",
+   tag = "v5.1.0",
+}
+description = {
+   summary = "Lua Binary ManIpulatioN library",
+   detailed = [[
+      This library contains many methods for working with files at the binary level. It can handle sterilization of all lua objects except userdata. It can even handle self recursion in talbes. It provides a bit, bits, infinabits, base64/91, lzw, md5 hashing, bignum, random, and a virtual file system(Soon, check out oldbin.lua for that) module.
+	  The bit library is the same that comes with luajit. the bits/infinabits library deals with 1's and 0's used for numbers. bits is faster than infinabits, but is limited to 32/64 bits based on which version of lua you are working on. Base64/91 is provided, but since it is done in pure lua it is slower. Check out the github for more info.
+   ]],
+   homepage = "https://github.com/rayaman/bin",
+   license = "MIT"
+}
+dependencies = {
+   "lua >= 5.1"
+}
+build = {
+   type = "builtin",
+   modules = {
+      -- Note the required Lua syntax when listing submodules as keys
+      ["bin.init"] = "bin/init.lua",
+      ["bin.converters.base64"] = "bin/converters/base64.lua",
+      ["bin.converters.base91"] = "bin/converters/base91.lua",
+      ["bin.numbers.BigNum"] = "bin/numbers/BigNum.lua",
+      ["bin.numbers.BigRat"] = "bin/numbers/BigRat.lua",
+      ["bin.compressors.lzw"] = "bin/compressors/lzw.lua",
+      ["bin.hashes.md5"] = "bin/hashes/md5.lua",
+      ["bin.numbers.no_jit_bit"] = "bin/numbers/no_jit_bit.lua",
+      ["bin.numbers.random"] = "bin/numbers/random.lua",
+      ["bin.support.vfs"] = "bin/support/vfs.lua",
+   }
+}

test.lua

@@ -0,0 +1,5 @@
+local bin = require("bin")
+local bits = bin.bits
+test = bin.newDataBuffer(16)
+print()
+