flm01/mote/v1/openwrt/package/flukso/src/data.lua

--
-- data.lua: property and methods for manipulating incoming measurements
-- Copyright (c) 2009 jokamajo.org
--               2010 flukso.net
--
-- This program is free software; you can redistribute it and/or
-- modify it under the terms of the GNU General Public License
-- as published by the Free Software Foundation; either version 2
-- of the License, or (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
--
-- $Id$
--

local os, math, table, string =
      os, math, table, string

local getfenv, setmetatable, pairs, ipairs =
      getfenv, setmetatable, pairs, ipairs

module (...)
local modenv = getfenv() -- module environment

-- private
local function timestamps(T)
  local H = {} -- helper table, an indexed array containing all the measurement's timestamps
  for timestamp in pairs(T) do H[#H+1] = timestamp end
  table.sort(H) -- sort in ascending order, oldest timestamps will be treated first
  return H
end

function new()
  return setmetatable({}, {__index = modenv})
end

function add(M, meter, timestamp, value)
  if not M[meter] then M[meter] = {} end
  M[meter][timestamp] = value
end

function clear(M)
  for meter in pairs(M) do
    M[meter] = nil
  end
end

function filter(M, span, offset)
  for meter, T in pairs(M) do
    local H = timestamps(T)
    local i = 2
    while not (H[i+1] == nil or H[i] > os.time()-offset) do
      if math.floor(H[i-1]/span) == math.floor(H[i]/span) and math.floor(H[i]/span) == math.floor(H[i+1]/span) then
        T[H[i]] = nil
        table.remove(H, i)
      else
        i = i+1
      end
    end
  end
end

function truncate(M, cutoff)
  for meter, T in pairs(M) do
    local H = timestamps(T)
    for i = H[1], os.time() - cutoff do
      T[i] = nil
    end
  end
end

function fill(M)
  for meter, T in pairs(M) do
    local H = timestamps(T)
    for i = H[#H]-1, H[1]+1, -1 do
      if T[i] == nil or T[i] == '"nan"' then T[i] = T[i+1] end
    end
    for i = H[#H]+1, os.time() do
      T[i] = '"nan"'
    end
  end
end

function json_encode(M)
  local J = {}
  for meter, T in pairs(M) do
    local H = timestamps(T)
    local SB = {'['} -- use a string buffer for building up the JSON string
    for k, timestamp in ipairs(H) do
      SB[#SB+1] = '[' .. timestamp .. ',' .. T[timestamp]  .. '],'
    end
    SB[#SB] = SB[#SB]:sub(1, -2) -- remove the trialing comma from the last entry
    SB[#SB+1] = ']'
    J[meter] = table.concat(SB)
  end
  return J
end