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

   function  Save (slot)          
     local   t   =   {}
    _G[slot]   =   t
     for   i   =   1  , количества_чего_то   do  
        t[i]  =  Get_Моя_Функция(которая сохраняется)
     end   
 end   

 function    Restore (Slot) 
     local   t   =   _G[Slot]
     for   i   =     1  ,   #  t   do    
        Set_Моя_Функция_которая_восстанавливает(t[i])
         --t[i]  =   nil   -- если надо очистить  
     end   
 end   

  
  

  Save(slot_1)    
   код
Save(slot_2) 
   код
Restore(slot_2)
   код
Save(slot_3) 
   код
Restore(slot_3) 
   код 
Restore(slot_1)   

   function   Save (slot)     
     local  t  =  {}
    _G[slot]  =  t
     for  i  =   1 , количества_чего_то  do 
        t[i]  =  Get_Моя_Функция(которая сохраняется)
     end  
 end  

 function   Restore () 
     local  t  =  _G[Slot]
     for  i  =   1 ,  # t  do   
        Set_Моя_Функция_которая_восстанавливает(t[i])
        t[i]  =   nil   -- если надо очистить 
     end  
 end  
  

  Save(slot_1) 
   код
Save(slot_2) 
   код
Restore(slot_2)
   код
Save(slot_3) 
   код
Restore(slot_3) 
   код 
Restore(slot_1)  

  int main(lua_State  * L){
   //// тут мы создаём новый state для отдельного потока
   //// см https://kristianrumberg.wordpress.com/ 2010 / 11 / 21 / 135 /
   //// https://stackoverflow.com/questions/ 17817452 /lua -  5  -  2  -  2  - broken - threading - system/ 17818481  #  17818481 
   //// https://forum.quik.ru/ message s/forum10/ message 10476/topic212/ #  message 10476

   //lua_gc(L, LUA_GCSTOP,  0 );
   //lua_State  * tL  =  lua_newthread(L); // здесь tl кладётся в т.ч. стек L
   //int thread_L_ref  =  luaL_ref(L, LUA_REGISTRYINDEX); // создаётся ссылка на объект на верхушке стека
   //lua_pushvalue(L,  -  1 );
   //lua_gc(L, LUA_GCRESTART,  0 );

   //stopped  =   false ;
   //std::thread pipeThread(pipe_thread, tL);
   //lua_function < lua_Number >  lua_Sleep(L,  "sleep" );

   // while  ( ! stopped) {
   //   lua_Sleep(  1000  );
   //}

   // pipeThread.join ();
   //lua_unref(L, thread_L_ref);
   pipe_thread(L);
    message (L,  "QPIPE: скрипт остановлен" );

    return   0 ;
}



  

  static int forLua_AddCircle(lua_State  * L) {
   double d1  =  luaL_checknumber(L,  1 ); //с чего начинать цикл
   double d2  =  luaL_checknumber(L,  2 ); //количество итераций
   double r;
   double i;
    for  (i  =  d1; i  <  =  d2; i +  + )
   {
      r  =  i  +  i;
   }
    return ( 1 );
}  

  package.cpath  =   "C:\\runfast.dll" 
 require ( "runfast" )
iterations =  100000000 
 function   main ()
   start =  os.clock ()
    for  i =  1 ,iterations  do 
      r  =   runfast.AddTwoNumbers (i, i)
    end 
   finish =  os.clock () - start
    message  ( "C dll:"  .. tostring(finish),  1 )
   start =  os.clock ()
    for  i =  1 ,iterations  do 
      r  =  i + i
    end 
   finish =  os.clock () - start
    message  ( "Lua:"  .. tostring(finish),  1 )

   start =  os.clock ()
   r  =   runfast.AddCircle ( 1 ,iterations)
   finish =  os.clock () - start
    message  ( "C dll circle:"  .. tostring(finish),  1 )   
 end