luatz/tzcache.lua

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