src/timetable: Invent timetable object

diff --git a/src/timetable.lua b/src/timetable.lua
index 81fcbf8acd6ff9e75ff5c3fad70732c916e9a80f..df78b1570446f4de25aaf0e1d715a4fdeca95418 100644 (file)
--- a/src/timetable.lua
+++ b/src/timetable.lua
@@ -111,8 +111,29 @@ local function normalise ( tm )
 
        return tm
 end
 
        return tm
 end

+local timetable_mt = {
+}
+
+local function cast_timetable ( tm )
+       return setmetatable ( tm , timetable_mt )
+end
+
+local function new_timetable ( year , month , day , hour , min , sec )
+       return cast_timetable {
+               year  = year ;
+               month = month ;
+               day   = day ;
+               hour  = hour ;
+               min   = min ;
+               sec   = sec ;
+       }
+end

 
 return {
        doomsday  = doomsday ;
        normalise = normalise ;
 
 return {
        doomsday  = doomsday ;
        normalise = normalise ;

+
+       new = new_timetable ;
+       cast = cast_timetable ;
+       timetable_mt = timetable_mt ;

 }
 }