Egor Zaytsev (Все сообщения пользователя)

  Queue  =  {
  new  =   function  (self)
     return  setmetatable({first  =   1 , last  =   0 }, {__index  =  self})
   end ,
  push  =   function  (self, v)
     local  last  =  self.last  +   1 
    self[last]  =  v
    self.last  =  last
     return  last
   end ,
  pop  =   function  (self)
     local  first  =  self.first
     if  first  >  self.last  then   return   nil   end 
     local  v  =  self[first]
    self.first  =  first  +   1 
    self[first]  =   nil 
     return  v
   end ,
  size  =   function  (self)
     return  self.last  -  self.first  +   1 
   end 
}

 local  OnAllTra des  =  Queue:new()
 local   function  f(alltrade)
   .. .
  OnAllTrades:push(alltrade)
   .. .
 end 

 function   OnAllTrade (alltrade)
   .. .   -- Во время ошибки параллельный поток находился где-то здесь 
  f(alltrade)
 end 

 local  run  =   true 
 function   main ()
   while  run  do 
     .. .
     if  OnAllTrades:size()  >   0   then 
      local  alltrade  =  OnAllTrades:pop()   -- Тут ошибка "attempt to call a nil value (method 'pop')" 
      .. .
     end 
   end 
 end   

   local  OnAllTra des  =  Queue:new()  

   local  n  =   25 
 local  run  =   true 
 function   OnStop ()
  run  =   nil 
 end 

 function   OnParam (class_code, sec_code)
  p  =  {}
   for  i  =   1 , n  do 
    p[tostring(i)]  =  tostring(i)
   end 
   for  k, v  in  pairs(p)  do 
    p[k]  =   os.time ()
    p[k]  =   nil 
   end 
 end 

 function   OnAllTrade (alltrade)
  a  =  {}
   for  i  =   1 , n  do 
    a[tostring(i)]  =  tostring(i)
   end 
   for  k, v  in  pairs(a)  do 
    a[k]  =   os.time ()
    a[k]  =   nil 
   end 
 end 

 function   main ()
   while  run  do 
    m  =  {}
     for  i  =   1 , n  do 
      m[tostring(i)]  =  tostring(i)
     end 
     for  k, v  in  pairs(m)  do 
      m[k]  =   os.time ()
      m[k]  =   nil 
     end 
     sleep ( 1 )
   end 
 end   

   local  run, id  =   true 
 function   OnStop ()
  run  =   nil 
   DestroyTable (id)
   return   100 
 end 

 function   main ()
  id  =   AllocTable ()
   AddColumn (id,  1 ,  "" ,  true , QTABLE_STRING_TYPE,  20 )
   CreateWindow (id)
   SetTableNotificationCallback (id,  function  (id, event)
     if  event  =  =  QTABLE_CLOSE  then 
      run  =   false 
     elseif  event  =  =  QTABLE_VKEY  then 
       for  row  =   1 ,  2   do 
          SetColor (id, row, QTABLE_NO_INDEX,  0x0000FF , QTABLE_DEFAULT_COLOR,  0x0000FF , QTABLE_DEFAULT_COLOR)
       end 
     end 
   end )
   for  row  =   1 ,  2   do 
     InsertRow (id, row)
     SetCell (id, row,  1 , tostring(row))
   end 
   while  run  do   sleep ( 500 )  end 
 end