mirrors/lua-date
1
0
Fork 0
mirror of https://github.com/TangentFoxy/lua-date.git synced 2025-07-28 02:52:18 +00:00
Code Issues Packages Projects Releases Wiki Activity

remove dead code

Browse Source
This commit is contained in:
Thijs Schreijer
2018-04-24 22:20:17 +02:00
parent ed92f2499f
commit 7a05302fb8
1 changed files with 2 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
date.lua
View File

@@ -37,7 +37,6 @@
--[[ EXTRA FUNCTIONS ]]-- --[[ EXTRA FUNCTIONS ]]--
local fmt = string.format local fmt = string.format
local lwr = string.lower local lwr = string.lower
local upr = string.upper
local rep = string.rep local rep = string.rep
local len = string.len local len = string.len
local sub = string.sub local sub = string.sub
@@ -53,10 +52,6 @@
local function fix(n) n = tonumber(n) return n and ((n > 0 and floor or ceil)(n)) end local function fix(n) n = tonumber(n) return n and ((n > 0 and floor or ceil)(n)) end
-- returns the modulo n % d; -- returns the modulo n % d;
local function mod(n,d) return n - d*floor(n/d) end local function mod(n,d) return n - d*floor(n/d) end
-- rounds a number;
local function round(n, d) d=d^10 return floor((n*d)+.5)/d end
-- rounds a number to whole;
local function whole(n)return floor(n+.5)end
-- is `str` in string list `tbl`, `ml` is the minimun len -- is `str` in string list `tbl`, `ml` is the minimun len
local function inlist(str, tbl, ml, tn) local function inlist(str, tbl, ml, tn)
local sl = len(str) local sl = len(str)
@@ -70,7 +65,6 @@
end end
end end
local function fnil() end local function fnil() end
local function fret(x)return x;end
--[[ DATE FUNCTIONS ]]-- --[[ DATE FUNCTIONS ]]--
local DATE_EPOCH -- to be set later local DATE_EPOCH -- to be set later
local sl_weekdays = { local sl_weekdays = {
@@ -214,10 +208,6 @@
local function date_new(dn, df) local function date_new(dn, df)
return setmetatable({daynum=dn, dayfrc=df}, dobj) return setmetatable({daynum=dn, dayfrc=df}, dobj)
end end
-- is `v` a date object?
local function date_isdobj(v)
return (type(v) == 'table' and getmetatable(v) == dobj) and v
end
--#if not NO_LOCAL_TIME_SUPPORT then --#if not NO_LOCAL_TIME_SUPPORT then
-- magic year table -- magic year table
@@ -226,7 +216,7 @@
assert(not yt) assert(not yt)
yt = {} yt = {}
local de, dw, dy = date_epoch:copy() local de, dw, dy = date_epoch:copy()
for i = 0, 3000 do for _ = 0, 3000 do
de:setyear(de:getyear() + 1, 1, 1) de:setyear(de:getyear() + 1, 1, 1)
dy = de:getyear() dy = de:getyear()
dw = de:getweekday() * (isleapyear(dy) and -1 or 1) dw = de:getweekday() * (isleapyear(dy) and -1 or 1)
@@ -237,10 +227,6 @@
end end
end end
end end
-- TimeValue from daynum and dayfrc
local function dvtotv(dn, df)
return fix(dn - DATE_EPOCH) * SECPERDAY + (df/1000)
end
-- TimeValue from date and time -- TimeValue from date and time
local function totv(y,m,d,h,r,s) local function totv(y,m,d,h,r,s)
return (makedaynum(y, m, d) - DATE_EPOCH) * SECPERDAY + ((h*60 + r)*60 + s) return (makedaynum(y, m, d) - DATE_EPOCH) * SECPERDAY + ((h*60 + r)*60 + s)
@@ -308,7 +294,7 @@
if is then self.e, self.i = self.i, 1+ie; if f then f(unpack(self)) end return self end if is then self.e, self.i = self.i, 1+ie; if f then f(unpack(self)) end return self end
end end
local function date_parse(str) local function date_parse(str)
local y,m,d, h,r,s, z, w,u, j, e, k, x,v,c, chkfin, dn,df; local y,m,d, h,r,s, z, w,u, j, e, k, x,c, dn,df;
local sw = newstrwalker(gsub(gsub(str, "(%b())", ""),"^(%s*)","")) -- remove comment, trim leading space local sw = newstrwalker(gsub(gsub(str, "(%b())", ""),"^(%s*)","")) -- remove comment, trim leading space
--local function error_out() print(y,m,d,h,r,s) end --local function error_out() print(y,m,d,h,r,s) end
local function error_dup(q) --[[error_out()]] error("duplicate value: " .. (q or "") .. sw:aimchr()) end local function error_dup(q) --[[error_out()]] error("duplicate value: " .. (q or "") .. sw:aimchr()) end