doesn't work because fucking metatables
This commit is contained in:
Paul Liverman
2
run src.bat
Normal file
2
run src.bat
Normal file
@@ -0,0 +1,2 @@
|
||||
@ECHO OFF
|
||||
"C:\Program Files\LOVE\love.exe" "%cd%\src"
|
||||
48
src/Card.lua
Normal file
48
src/Card.lua
Normal file
@@ -0,0 +1,48 @@
|
||||
local set = setmetatable
|
||||
local lg = love.graphics
|
||||
|
||||
local Card = {}
|
||||
|
||||
function Card.initialize(suit, rank)
|
||||
local self = {}
|
||||
|
||||
self.suit = suit or "!"
|
||||
self.rank = rank or "#"
|
||||
self.x = 0
|
||||
self.y = 0
|
||||
self.r = 0
|
||||
self.face = "down" --or "up"
|
||||
|
||||
set(self, {__index = Card})
|
||||
return self
|
||||
end
|
||||
|
||||
function Card:draw(face, x, y, r)
|
||||
if not face then face = self.face end
|
||||
if not x then x = self.x end
|
||||
if not y then y = self.y end
|
||||
if not r then r = self.r end
|
||||
|
||||
lg.translate(x, y)
|
||||
lg.rotate(r)
|
||||
lg.translate(x, y)
|
||||
--TODO if Joker, no suit!
|
||||
lg.print(self.rank .. " of " .. self.suit)
|
||||
end
|
||||
|
||||
function Card:moveTo(x, y, r)
|
||||
self.x = x or self.x
|
||||
self.y = y or self.y
|
||||
self.r = r or self.r
|
||||
end
|
||||
|
||||
function Card:flip()
|
||||
if self.face == "down" then
|
||||
self.face = "up"
|
||||
else
|
||||
self.face = "down"
|
||||
end
|
||||
end
|
||||
|
||||
set(Card, {__call = Card.initialize})
|
||||
return Card
|
||||
87
src/Deck.lua
Normal file
87
src/Deck.lua
Normal file
@@ -0,0 +1,87 @@
|
||||
local set = setmetatable
|
||||
local insert = table.insert
|
||||
local remove = table.remove
|
||||
local random = math.random
|
||||
local floor = math.floor
|
||||
local lg = love.graphics
|
||||
|
||||
local Deck = {}
|
||||
|
||||
local inspect = require "lib.inspect" --NOTE DEBUG
|
||||
|
||||
function Deck.initialize(cards)
|
||||
local self = {}
|
||||
|
||||
print(inspect(cards)) --NOTE DEBUG
|
||||
self.cards = cards or {}
|
||||
self.x = 0
|
||||
self.y = 0
|
||||
self.r = 0
|
||||
self.face = "down" --or "up"
|
||||
|
||||
set(self, {__index = Deck})
|
||||
return self
|
||||
end
|
||||
|
||||
function Deck:draw()
|
||||
local thickness = floor(#self.cards / 3)
|
||||
print(inspect(self.cards)) --NOTE DEBUG
|
||||
self.cards[#self.cards]:draw(self.face, self.x, self.y, self.r)
|
||||
|
||||
--TODO draw the extra lines
|
||||
end
|
||||
|
||||
function Deck:moveTo(x, y, r)
|
||||
self.x = x or self.x
|
||||
self.y = y or self.y
|
||||
self.r = r or self.r
|
||||
end
|
||||
|
||||
function Deck:shuffleCards()
|
||||
local new = {}
|
||||
|
||||
while #self.cards > 0 do
|
||||
insert(new, remove(self.cards, random(1, #self.cards)))
|
||||
end
|
||||
|
||||
self.cards = new
|
||||
end
|
||||
|
||||
function Deck:drawCards(count)
|
||||
if count and (count > 1) then
|
||||
local new = {}
|
||||
|
||||
while (count > 1) and (#self.cards > 1) do
|
||||
insert(new, remove(self.cards))
|
||||
end
|
||||
|
||||
return Deck(new)
|
||||
else
|
||||
return remove(self.cards)
|
||||
end
|
||||
end
|
||||
|
||||
--on top of deck
|
||||
function Deck:placeCardsOn(cards)
|
||||
if type(cards) == "table" then
|
||||
for _, card in ipairs(cards) do
|
||||
insert(self.cards, card)
|
||||
end
|
||||
else
|
||||
insert(self.cards, cards)
|
||||
end
|
||||
end
|
||||
|
||||
--on bottom of deck
|
||||
function Deck:placeCardsUnder(cards)
|
||||
if type(cards) == "table" then
|
||||
for _, card in ipairs(cards) do
|
||||
insert(self.cards, card, 1)
|
||||
end
|
||||
else
|
||||
insert(self.cards, cards, 1)
|
||||
end
|
||||
end
|
||||
|
||||
set(Deck, {__call = Deck.initialize})
|
||||
return Deck
|
||||
3
src/conf.lua
Normal file
3
src/conf.lua
Normal file
@@ -0,0 +1,3 @@
|
||||
function love.conf(t)
|
||||
t.console = true
|
||||
end
|
||||
330
src/lib/inspect.lua
Normal file
330
src/lib/inspect.lua
Normal file
@@ -0,0 +1,330 @@
|
||||
local inspect ={
|
||||
_VERSION = 'inspect.lua 3.0.2',
|
||||
_URL = 'http://github.com/kikito/inspect.lua',
|
||||
_DESCRIPTION = 'human-readable representations of tables',
|
||||
_LICENSE = [[
|
||||
MIT LICENSE
|
||||
|
||||
Copyright (c) 2013 Enrique García Cota
|
||||
|
||||
Permission is hereby granted, free of charge, to any person obtaining a
|
||||
copy of this software and associated documentation files (the
|
||||
"Software"), to deal in the Software without restriction, including
|
||||
without limitation the rights to use, copy, modify, merge, publish,
|
||||
distribute, sublicense, and/or sell copies of the Software, and to
|
||||
permit persons to whom the Software is furnished to do so, subject to
|
||||
the following conditions:
|
||||
|
||||
The above copyright notice and this permission notice shall be included
|
||||
in all copies or substantial portions of the Software.
|
||||
|
||||
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
|
||||
OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
|
||||
MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
|
||||
IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
|
||||
CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
|
||||
TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
|
||||
SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
||||
]]
|
||||
}
|
||||
|
||||
inspect.KEY = setmetatable({}, {__tostring = function() return 'inspect.KEY' end})
|
||||
inspect.METATABLE = setmetatable({}, {__tostring = function() return 'inspect.METATABLE' end})
|
||||
|
||||
-- returns the length of a table, ignoring __len (if it exists)
|
||||
local rawlen = _G.rawlen or function(t) return #t end
|
||||
|
||||
-- Apostrophizes the string if it has quotes, but not aphostrophes
|
||||
-- Otherwise, it returns a regular quoted string
|
||||
local function smartQuote(str)
|
||||
if str:match('"') and not str:match("'") then
|
||||
return "'" .. str .. "'"
|
||||
end
|
||||
return '"' .. str:gsub('"', '\\"') .. '"'
|
||||
end
|
||||
|
||||
local controlCharsTranslation = {
|
||||
["\a"] = "\\a", ["\b"] = "\\b", ["\f"] = "\\f", ["\n"] = "\\n",
|
||||
["\r"] = "\\r", ["\t"] = "\\t", ["\v"] = "\\v"
|
||||
}
|
||||
|
||||
local function escape(str)
|
||||
local result = str:gsub("\\", "\\\\"):gsub("(%c)", controlCharsTranslation)
|
||||
return result
|
||||
end
|
||||
|
||||
local function isIdentifier(str)
|
||||
return type(str) == 'string' and str:match( "^[_%a][_%a%d]*$" )
|
||||
end
|
||||
|
||||
local function isSequenceKey(k, length)
|
||||
return type(k) == 'number'
|
||||
and 1 <= k
|
||||
and k <= length
|
||||
and math.floor(k) == k
|
||||
end
|
||||
|
||||
local defaultTypeOrders = {
|
||||
['number'] = 1, ['boolean'] = 2, ['string'] = 3, ['table'] = 4,
|
||||
['function'] = 5, ['userdata'] = 6, ['thread'] = 7
|
||||
}
|
||||
|
||||
local function sortKeys(a, b)
|
||||
local ta, tb = type(a), type(b)
|
||||
|
||||
-- strings and numbers are sorted numerically/alphabetically
|
||||
if ta == tb and (ta == 'string' or ta == 'number') then return a < b end
|
||||
|
||||
local dta, dtb = defaultTypeOrders[ta], defaultTypeOrders[tb]
|
||||
-- Two default types are compared according to the defaultTypeOrders table
|
||||
if dta and dtb then return defaultTypeOrders[ta] < defaultTypeOrders[tb]
|
||||
elseif dta then return true -- default types before custom ones
|
||||
elseif dtb then return false -- custom types after default ones
|
||||
end
|
||||
|
||||
-- custom types are sorted out alphabetically
|
||||
return ta < tb
|
||||
end
|
||||
|
||||
local function getNonSequentialKeys(t)
|
||||
local keys, length = {}, rawlen(t)
|
||||
for k,_ in pairs(t) do
|
||||
if not isSequenceKey(k, length) then table.insert(keys, k) end
|
||||
end
|
||||
table.sort(keys, sortKeys)
|
||||
return keys
|
||||
end
|
||||
|
||||
local function getToStringResultSafely(t, mt)
|
||||
local __tostring = type(mt) == 'table' and rawget(mt, '__tostring')
|
||||
local str, ok
|
||||
if type(__tostring) == 'function' then
|
||||
ok, str = pcall(__tostring, t)
|
||||
str = ok and str or 'error: ' .. tostring(str)
|
||||
end
|
||||
if type(str) == 'string' and #str > 0 then return str end
|
||||
end
|
||||
|
||||
local maxIdsMetaTable = {
|
||||
__index = function(self, typeName)
|
||||
rawset(self, typeName, 0)
|
||||
return 0
|
||||
end
|
||||
}
|
||||
|
||||
local idsMetaTable = {
|
||||
__index = function (self, typeName)
|
||||
local col = {}
|
||||
rawset(self, typeName, col)
|
||||
return col
|
||||
end
|
||||
}
|
||||
|
||||
local function countTableAppearances(t, tableAppearances)
|
||||
tableAppearances = tableAppearances or {}
|
||||
|
||||
if type(t) == 'table' then
|
||||
if not tableAppearances[t] then
|
||||
tableAppearances[t] = 1
|
||||
for k,v in pairs(t) do
|
||||
countTableAppearances(k, tableAppearances)
|
||||
countTableAppearances(v, tableAppearances)
|
||||
end
|
||||
countTableAppearances(getmetatable(t), tableAppearances)
|
||||
else
|
||||
tableAppearances[t] = tableAppearances[t] + 1
|
||||
end
|
||||
end
|
||||
|
||||
return tableAppearances
|
||||
end
|
||||
|
||||
local copySequence = function(s)
|
||||
local copy, len = {}, #s
|
||||
for i=1, len do copy[i] = s[i] end
|
||||
return copy, len
|
||||
end
|
||||
|
||||
local function makePath(path, ...)
|
||||
local keys = {...}
|
||||
local newPath, len = copySequence(path)
|
||||
for i=1, #keys do
|
||||
newPath[len + i] = keys[i]
|
||||
end
|
||||
return newPath
|
||||
end
|
||||
|
||||
local function processRecursive(process, item, path)
|
||||
if item == nil then return nil end
|
||||
|
||||
local processed = process(item, path)
|
||||
if type(processed) == 'table' then
|
||||
local processedCopy = {}
|
||||
local processedKey
|
||||
|
||||
for k,v in pairs(processed) do
|
||||
processedKey = processRecursive(process, k, makePath(path, k, inspect.KEY))
|
||||
if processedKey ~= nil then
|
||||
processedCopy[processedKey] = processRecursive(process, v, makePath(path, processedKey))
|
||||
end
|
||||
end
|
||||
|
||||
local mt = processRecursive(process, getmetatable(processed), makePath(path, inspect.METATABLE))
|
||||
setmetatable(processedCopy, mt)
|
||||
processed = processedCopy
|
||||
end
|
||||
return processed
|
||||
end
|
||||
|
||||
|
||||
-------------------------------------------------------------------
|
||||
|
||||
local Inspector = {}
|
||||
local Inspector_mt = {__index = Inspector}
|
||||
|
||||
function Inspector:puts(...)
|
||||
local args = {...}
|
||||
local buffer = self.buffer
|
||||
local len = #buffer
|
||||
for i=1, #args do
|
||||
len = len + 1
|
||||
buffer[len] = tostring(args[i])
|
||||
end
|
||||
end
|
||||
|
||||
function Inspector:down(f)
|
||||
self.level = self.level + 1
|
||||
f()
|
||||
self.level = self.level - 1
|
||||
end
|
||||
|
||||
function Inspector:tabify()
|
||||
self:puts(self.newline, string.rep(self.indent, self.level))
|
||||
end
|
||||
|
||||
function Inspector:alreadyVisited(v)
|
||||
return self.ids[type(v)][v] ~= nil
|
||||
end
|
||||
|
||||
function Inspector:getId(v)
|
||||
local tv = type(v)
|
||||
local id = self.ids[tv][v]
|
||||
if not id then
|
||||
id = self.maxIds[tv] + 1
|
||||
self.maxIds[tv] = id
|
||||
self.ids[tv][v] = id
|
||||
end
|
||||
return id
|
||||
end
|
||||
|
||||
function Inspector:putKey(k)
|
||||
if isIdentifier(k) then return self:puts(k) end
|
||||
self:puts("[")
|
||||
self:putValue(k)
|
||||
self:puts("]")
|
||||
end
|
||||
|
||||
function Inspector:putTable(t)
|
||||
if t == inspect.KEY or t == inspect.METATABLE then
|
||||
self:puts(tostring(t))
|
||||
elseif self:alreadyVisited(t) then
|
||||
self:puts('<table ', self:getId(t), '>')
|
||||
elseif self.level >= self.depth then
|
||||
self:puts('{...}')
|
||||
else
|
||||
if self.tableAppearances[t] > 1 then self:puts('<', self:getId(t), '>') end
|
||||
|
||||
local nonSequentialKeys = getNonSequentialKeys(t)
|
||||
local length = rawlen(t)
|
||||
local mt = getmetatable(t)
|
||||
local toStringResult = getToStringResultSafely(t, mt)
|
||||
|
||||
self:puts('{')
|
||||
self:down(function()
|
||||
if toStringResult then
|
||||
self:puts(' -- ', escape(toStringResult))
|
||||
if length >= 1 then self:tabify() end
|
||||
end
|
||||
|
||||
local count = 0
|
||||
for i=1, length do
|
||||
if count > 0 then self:puts(',') end
|
||||
self:puts(' ')
|
||||
self:putValue(t[i])
|
||||
count = count + 1
|
||||
end
|
||||
|
||||
for _,k in ipairs(nonSequentialKeys) do
|
||||
if count > 0 then self:puts(',') end
|
||||
self:tabify()
|
||||
self:putKey(k)
|
||||
self:puts(' = ')
|
||||
self:putValue(t[k])
|
||||
count = count + 1
|
||||
end
|
||||
|
||||
if mt then
|
||||
if count > 0 then self:puts(',') end
|
||||
self:tabify()
|
||||
self:puts('<metatable> = ')
|
||||
self:putValue(mt)
|
||||
end
|
||||
end)
|
||||
|
||||
if #nonSequentialKeys > 0 or mt then -- result is multi-lined. Justify closing }
|
||||
self:tabify()
|
||||
elseif length > 0 then -- array tables have one extra space before closing }
|
||||
self:puts(' ')
|
||||
end
|
||||
|
||||
self:puts('}')
|
||||
end
|
||||
end
|
||||
|
||||
function Inspector:putValue(v)
|
||||
local tv = type(v)
|
||||
|
||||
if tv == 'string' then
|
||||
self:puts(smartQuote(escape(v)))
|
||||
elseif tv == 'number' or tv == 'boolean' or tv == 'nil' then
|
||||
self:puts(tostring(v))
|
||||
elseif tv == 'table' then
|
||||
self:putTable(v)
|
||||
else
|
||||
self:puts('<',tv,' ',self:getId(v),'>')
|
||||
end
|
||||
end
|
||||
|
||||
-------------------------------------------------------------------
|
||||
|
||||
function inspect.inspect(root, options)
|
||||
options = options or {}
|
||||
|
||||
local depth = options.depth or math.huge
|
||||
local newline = options.newline or '\n'
|
||||
local indent = options.indent or ' '
|
||||
local process = options.process
|
||||
|
||||
if process then
|
||||
root = processRecursive(process, root, {})
|
||||
end
|
||||
|
||||
local inspector = setmetatable({
|
||||
depth = depth,
|
||||
buffer = {},
|
||||
level = 0,
|
||||
ids = setmetatable({}, idsMetaTable),
|
||||
maxIds = setmetatable({}, maxIdsMetaTable),
|
||||
newline = newline,
|
||||
indent = indent,
|
||||
tableAppearances = countTableAppearances(root)
|
||||
}, Inspector_mt)
|
||||
|
||||
inspector:putValue(root)
|
||||
|
||||
return table.concat(inspector.buffer)
|
||||
end
|
||||
|
||||
setmetatable(inspect, { __call = function(_, ...) return inspect.inspect(...) end })
|
||||
|
||||
return inspect
|
||||
44
src/main.lua
Normal file
44
src/main.lua
Normal file
@@ -0,0 +1,44 @@
|
||||
math.randomseed(os.time())
|
||||
local Deck = require "Deck"
|
||||
local Card = require "Card"
|
||||
local insert = table.insert
|
||||
|
||||
local items = {}
|
||||
|
||||
local inspect = require "lib.inspect" --NOTE DEBUG
|
||||
|
||||
local function makeDeck(jokers)
|
||||
local cards = {}
|
||||
local suits = {"Clubs", "Diamonds", "Hearts", "Spades"}
|
||||
local ranks = {"Ace", 2, 3, 4, 5, 6, 7, 8, 9, 10, "Jack", "Queen", "King"}
|
||||
|
||||
for _, suit in ipairs(suits) do
|
||||
for _, rank in ipairs(ranks) do
|
||||
insert(cards, Card(suit, rank))
|
||||
end
|
||||
end
|
||||
|
||||
if jokers then
|
||||
insert(cards, Card("", "Joker"))
|
||||
insert(cards, Card("", "Joker"))
|
||||
end
|
||||
|
||||
print(inspect(cards)) --NOTE DEBUG
|
||||
print(inspect(cards[1].suit))
|
||||
|
||||
return Deck(cards)
|
||||
end
|
||||
|
||||
function love.load()
|
||||
insert(items, makeDeck(true))
|
||||
items[1]:shuffleCards()
|
||||
items[1]:moveTo(love.graphics.getWidth()/2, love.graphics.getHeight()/2)
|
||||
end
|
||||
|
||||
function love.draw()
|
||||
for i=1,#items do
|
||||
items[i]:draw()
|
||||
end
|
||||
end
|
||||
|
||||
-- ♣ ♦ ♥ ♠ A 2 3 4 5 6 7 8 9 10 J Q K Joker
|
||||
Reference in New Issue
Block a user