X-Git-Url: https://git.madduck.net/etc/awesome.git/blobdiff_plain/66d1ace8410db940b6d1c74986626557ef8098ba..0c40603e021b01bd61e4297dcdda6ab3eb8839d9:/luatz/tzinfo.lua

diff --git a/luatz/tzinfo.lua b/luatz/tzinfo.lua
index 11248ad..75be0f1 100644
--- a/luatz/tzinfo.lua
+++ b/luatz/tzinfo.lua
@@ -1,9 +1,23 @@
 local gettime = require "luatz.gettime".gettime
+local timetable_mt = require "luatz.timetable".timetable_mt
+
+local function to_timestamp ( o )
+	if type ( o ) == "number" then
+		return o
+	elseif getmetatable ( o ) == timetable_mt then
+		return o:timestamp ( )
+	end
+end
 
 local tz_info_methods = { }
 local tz_info_mt = {
 	__index = tz_info_methods ;
 }
+local tt_info_mt = {
+	__tostring = function ( self )
+		return string.format ( "tt_info:%s=%d" , self.abbr , self.gmtoff )
+	end ;
+}
 
 -- Binary search
 local function _find_current ( tzinfo , target , i , j )
@@ -52,6 +66,7 @@ local function find_current_local ( tzinfo , ts_local )
 end
 
 function tz_info_methods:find_current ( current )
+	current = assert ( to_timestamp ( current ) , "invalid timestamp to :find_current" )
 	return self [ _find_current ( self , current , 0 , #self ) ].info
 end
 
@@ -62,6 +77,7 @@ end
 tz_info_methods.localize = tz_info_methods.localise
 
 function tz_info_methods:utctime ( ts_local )
+	ts_local = assert ( to_timestamp ( ts_local ) , "invalid timestamp to :utctime" )
 	local tz1 , tz2 = find_current_local ( self , ts_local )
 	tz1 = self [ tz1 ].info
 	if tz2 == nil then
@@ -75,4 +91,5 @@ end
 
 return {
 	tz_info_mt = tz_info_mt ;
+	tt_info_mt = tt_info_mt ;
 }