luatz/tzcache.lua

   1 local read_tzfile = require "luatz.tzfile".read_tzfile
   2
   3 local tz_cache = { }
   4
   5 local function name_to_zoneinfo_path ( name )
   6         if name then
   7                 return "/usr/share/zoneinfo/" .. name
   8         else
   9                 return "/etc/localtime"
  10         end
  11 end
  12
  13 local function clear_tz_cache ( name )
  14         tz_cache [ name_to_zoneinfo_path ( name ) ] = nil
  15 end
  16
  17 local function get_tz ( name )
  18         local path = name_to_zoneinfo_path ( name )
  19         -- TODO: stat path
  20         local tzinfo = tz_cache [ path ]
  21         if tzinfo == nil then
  22                 tzinfo = read_tzfile ( path )
  23                 tz_cache [ path ] = tzinfo
  24         end
  25         return tzinfo
  26 end
  27
  28 return {
  29         get_tz = get_tz ;
  30         clear_tz_cache = clear_tz_cache ;
  31 }