hedgewars/uFLRunQueue.pas
branchqmlfrontend
changeset 11439 23912c93935a
child 11456 6e9b12864856
equal deleted inserted replaced
11438:bca9afcc3a72 11439:23912c93935a
       
     1 unit uFLRunQueue;
       
     2 interface
       
     3 uses uFLTypes;
       
     4 
       
     5 procedure queueExecution(var config: TGameConfig);
       
     6 procedure passFlibEvent(p: pointer); cdecl;
       
     7 
       
     8 implementation
       
     9 uses uFLGameConfig, hwengine, uFLData, uFLUICallback;
       
    10 
       
    11 var runQueue: PGameConfig = nil;
       
    12 
       
    13 procedure nextRun;
       
    14 begin
       
    15     if runQueue <> nil then
       
    16     begin
       
    17         if runQueue^.gameType = gtPreview then
       
    18             sendUI(mtRenderingPreview, nil, 0);
       
    19 
       
    20         RunEngine(runQueue^.argumentsNumber, @runQueue^.argv);
       
    21 
       
    22         sendConfig(runQueue)
       
    23     end
       
    24 end;
       
    25 
       
    26 procedure cleanupConfig;
       
    27 var t: PGameConfig;
       
    28 begin
       
    29     t:= runQueue;
       
    30     runQueue:= t^.nextConfig;
       
    31     dispose(t)
       
    32 end;
       
    33 
       
    34 procedure queueExecution(var config: TGameConfig);
       
    35 var pConfig, t, tt: PGameConfig;
       
    36     i: Longword;
       
    37 begin
       
    38     new(pConfig);
       
    39     pConfig^:= config;
       
    40 
       
    41     with pConfig^ do
       
    42     begin
       
    43         nextConfig:= nil;
       
    44 
       
    45         for i:= 0 to Pred(MAXARGS) do
       
    46         begin
       
    47             if arguments[i][0] = #255 then
       
    48                 arguments[i][255]:= #0
       
    49             else
       
    50                 arguments[i][byte(arguments[i][0]) + 1]:= #0;
       
    51             argv[i]:= @arguments[i][1]
       
    52         end;
       
    53     end;
       
    54 
       
    55     if runQueue = nil then
       
    56     begin
       
    57         runQueue:= pConfig;
       
    58 
       
    59         nextRun
       
    60     end else
       
    61     begin
       
    62         t:= runQueue;
       
    63         while t^.nextConfig <> nil do 
       
    64         begin
       
    65             if (pConfig^.gameType = gtPreview) and (t^.nextConfig^.gameType = gtPreview) then
       
    66             begin
       
    67                 tt:= t^.nextConfig;
       
    68                 pConfig^.nextConfig:= tt^.nextConfig;
       
    69                 t^.nextConfig:= pConfig;
       
    70                 dispose(tt);
       
    71                 exit // boo
       
    72             end;
       
    73             t:= t^.nextConfig;
       
    74         end;
       
    75         t^.nextConfig:= pConfig
       
    76     end;
       
    77 end;
       
    78 
       
    79 procedure passFlibEvent(p: pointer); cdecl;
       
    80 begin
       
    81     case TFLIBEvent(p^) of
       
    82         flibGameFinished: begin
       
    83                 cleanupConfig;
       
    84                 nextRun
       
    85                 end;
       
    86     end;
       
    87 end;
       
    88 
       
    89 end.