ZLib/Core.lua at master · CharlesHunter/ZLib · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
ZLib = {};
ZLib.Controls = {};
ZLib.EmptyFunction = function() end;
function ZLib.IsDateValid(self,date)
    return date ~= nil and date.month ~= nil and date.day ~= nil and date.year ~= nil and date.month >= 1 and date.month <= 12 and date.month % 1 == 0
            and (date.day <= 28

                or (date.day <= 30 and date.month ~= 2)
                or (date.day == 30 and (date.month == 4 or date.month == 6 or date.month == 9 or date.month == 11))
                or (date.day == 31 and (date.month == 1 or date.month == 3 or date.month == 5 or date.month == 7 or date.month == 8 or date.month == 10 or date.month == 12))
                or (date.day == 29 and date.year % 4 == 0));
end
function ZLib.IsDateTimeValid(self,dateTime)
    return self:IsDateValid(dateTime) and self:IsTimeValid(dateTime);
end
function ZLib.IsTableValid(self,list)
    ZLib.Debug:Print('Validating Table');
    ZLib.Debug:Print(tostring(list));
    ZLib.Debug:Print(type(list));
    return list ~= nil and type(list) == "table";
end
function ZLib.IsTimeValid(self,time)
    ZLib.Debug:Print("Validating Time: " .. tostring(time));
    return time ~= nil and self:IsNumberValid(time.hour) and self:IsNumberValid(time.min) and self:IsNumberValid(time.sec)
        and time.hour >= 0 and time.hour <= 23 and time.min >= 0 and time.min <= 59 and time.sec >= 0 and time.sec <= 59;
end
function ZLib.IsNumberValid(self,value)
    return value ~= nil and tonumber(value) ~= nil;
end
function ZLib.IsStringValid(self,value)
    return value ~= nil and ZLib.Trim(value):len() > 0
end
function ZLib.Trim(self,s)
    -- from PiL2 20.4
    return (s:gsub("^%s*(.-)%s*$", "%1"))
end
function ZLib.CreateIntegerList(self,minValue,maxValue)
    ZLib.Debug:Print('Creating Integer List');
    local output = {};
    for i = minValue,maxValue do
        output[i] = i;
        ZLib.Debug:Print(tostring(i) .. ': ' .. tostring(i));
    end
    ZLib.Debug:Print(tostring(output));
    return output;
end
function ZLib.MakeTooltip(self,link)
    GameTooltip:SetOwner(self,"ANCHOR_CURSOR");
    GameTooltip:SetHyperlink(link);
    GameTolltip:Show();
end
function ZLib.ClearTooltip(self)
    GameTooltip:Hide();
end
function ZLib.GetFullName(self,name)
    if type(name) ~= "string" or type(realm) ~= "string" or string.match(name," ") then
        return nil;
    end
    if string.match(name,"-") then -- Name already full, do nothing :)
        return name;
    else
        return name .. "-" .. GetRealmName(); -- Name needs some TLC. Might accidentally get NPC's with one name. Oh well lol.
    end
end
function ZLib.GetMatch(self,table,value,property)
    if table == nil or value == nil then return nil; end
    if property == nil then
        for z = 1,#(table) do
            if table[z] == value then return table[z]; end
        end
    else
        for z = 1,#(table) do
            if table[z][property] == value then return table[z]; end
        end
    end
    return false;
end
function ZLib.TransformAssosiativeArray(self,table,callback,...)
    if table == nil or callback == nil then return nil; end
    local args = {...};
    local output = {};
    local i = 1;
    for k,v in pairs(table) do
        tinsert(output,callback(k,v,i,unpack(args)));
        i = i + 1;
    end
    return output;
end
function ZLib.TransformArray(self,table,callback,...)
    if table == nil or callback == nil then return nil; end
    local args = {...}
    local output = {};
    for i,v in ipairs(table) do
        tinsert(output,callback(i,v,unpack(args)));
    end
    return output;
end