luatz/init: Add C-like functions for some common tasks

diff --git a/luatz/init.lua b/luatz/init.lua
index 91c95ddc663cb191a9c65bf660453c9edd74f8c4..02b07bac84a65b898f8d90ba6eb4b24e7f73a8f4 100644 (file)
--- a/luatz/init.lua
+++ b/luatz/init.lua
@@ -17,4 +17,19 @@ _M.time_in = function ( tz , now )
        return _M.get_tz ( tz ):localize ( now )
 end
 
+--- C-like functions
+
+_M.gmtime = function ( ts )
+       return _M.timetable.new_from_timestamp ( ts ):normalise ( )
+end
+
+_M.localtime = function ( ts )
+       ts = _M.time_in ( nil , ts )
+       return _M.gmtime ( ts )
+end
+
+_M.ctime = function ( ts )
+       return _M.localtime ( ts ):asctime ( )
+end
+
 return _M