Получать объемы сделок

-----------------------------------------------------------------------------------------------------------------------------------
-- Чтение таблицы из файла в массива или таблицу. Вырезает сигнатуру из файла
-- Параметры:
--      Имя файла
--      Функция декодирования (или nil)
-- Возвращает:
--      Таблицу или nil
--      Сообщение об ошибке или nil
--      Полное имя читаемого файла
ifuse(`table',`read',`
   function table.read(filename,decode)
      m4_assert(type(filename) == "string","Вместо строки передано (" .. type(filename) .. ") " .. tostring(filename))
      m4_assert(type(decode) == "function" or decode == nil,"Вместо функции или nil передано (" .. type(decode) .. ") " .. tostring(decode))

      filename = io.makepath(filename,".dat")

      local result
      local f,status = io.open(filename,"r")
      if f then
         local str = f:read("*a")
         f:close()
         local _,_,s = string.find(str,"^%-%-%s.*%s%-%-\n(.*)$")
         str = s or str

         if decode then
            str = decode(str)
         end

         status,result = pcall(loadstring("return " .. str))
         if status then
            status = nil
         else
            status = "Файл поврежден" ifdef(`DEBUG',`.. ": " .. result')
            result = nil
         end
      end
      return result,status,filename
   end
')

dnl Общие данные за день
pushdef(`COUNTER',            0)         dnl Поля в разделе DAT_TOTALS
define(`TOTAL_VOLUME_BUY',      m4_inc(`COUNTER'))      dnl Объём покупок за день
define(`TOTAL_VOLUME_SELL',   m4_inc(`COUNTER'))      dnl Объём продаж за день
define(`TOTAL_VOLUME',         m4_inc(`COUNTER'))      dnl Объём за день
define(`TOTAL_MAXVOLUME',      m4_inc(`COUNTER'))      dnl Максимальный объём, прошедший по какой-либо цене за день
define(`TOTAL_TRADES_BUY',      m4_inc(`COUNTER'))
define(`TOTAL_TRADES_SELL',   m4_inc(`COUNTER'))
define(`TOTAL_TRADES',         m4_inc(`COUNTER'))
define(`TOTAL_MAXTRADES',      m4_inc(`COUNTER'))      dnl Максимальное кол-во сделок, прошедших по какой-либо цене за день
define(`TOTAL_MINPRICE',      m4_inc(`COUNTER'))      dnl Минимальная цена дня
define(`TOTAL_MAXPRICE',      m4_inc(`COUNTER'))      dnl Максимальная цена дня
define(`TOTAL_TABLE_SIZE',      COUNTER)      dnl Размер таблицы total
popdef(`COUNTER')

dnl Структура данных по конкретной цене
pushdef(`COUNTER',            0)         dnl Поля в разделе DAT_DATA
define(`VOLUME_BUY',            m4_inc(`COUNTER'))         
define(`VOLUME_SELL',         m4_inc(`COUNTER'))
define(`TRADES_BUY',            m4_inc(`COUNTER'))
define(`TRADES_SELL',         m4_inc(`COUNTER'))
define(`VOLUME_BS',            m4_inc(`COUNTER'))
define(`TRADES_BS',            m4_inc(`COUNTER'))
define(`PRICE_TABLE_SIZE',      COUNTER)                  dnl Размер таблицы по одной конкретной цене
popdef(`COUNTER')

if N >= 0 then N = N + 1

-- N = 0
[OnAllTrade] if N >= 0 then
[main] N = N - 1        --> N = -1
[main] while N >= 0 do  --> Выход из цикла
[OnAllTrade] N = N + 1  --> N = 0

Volume[alltrade.price] = (Volume[alltrade.price] or 0) + alltrade.qty