return tens , units
end
-local function unpack_tm ( tm )
- return assert ( tm.year , "year required" ) ,
- assert ( tm.month , "month required" ) ,
- assert ( tm.day , "day required" ) ,
- tm.hour or 12 ,
- tm.min or 0 ,
- tm.sec or 0 ,
- tm.yday ,
- tm.wday
-end
-
-- Modify parameters so they all fit within the "normal" range
local function normalise ( year , month , day , hour , min , sec )
min , sec = increment ( min , sec , 60 ) -- TODO: consider leap seconds?
local timetable_methods = { }
+function timetable_methods:unpack ( )
+ return assert ( self.year , "year required" ) ,
+ assert ( self.month , "month required" ) ,
+ assert ( self.day , "day required" ) ,
+ self.hour or 12 ,
+ self.min or 0 ,
+ self.sec or 0 ,
+ self.yday ,
+ self.wday
+end
+
function timetable_methods:normalise ( )
local year , month , day
- year , month , day , self.hour , self.min , self.sec = normalise ( unpack_tm ( self ) )
+ year , month , day , self.hour , self.min , self.sec = normalise ( self:unpack ( ) )
self.day = day
self.month = month
timetable_methods.normalize = timetable_methods.normalise -- American English
function timetable_methods:timestamp ( )
- return timestamp ( unpack_tm ( self ) )
+ return timestamp ( self:unpack ( ) )
end
function timetable_methods:rfc_3339 ( )
- -- %06.4g gives 3 (=6-4+1) digits after decimal
- return strformat ( "%04u-%02u-%02uT%02u:%02u:%06.4g" , unpack_tm ( self ) )
+ -- %06.3f gives 3 (=6-3) digits after decimal
+ return strformat ( "%04u-%02u-%02uT%02u:%02u:%06.3f" , self:unpack ( ) )
end
local timetable_mt
end
function timetable_methods:clone ( )
- return new_timetable ( unpack_tm ( self ) )
+ return new_timetable ( self:unpack ( ) )
end
local function new_from_timestamp ( ts )