hedgewars/uIO.pas
branchqmlfrontend
changeset 12865 e33bcb9d5e9c
parent 12860 1b2b84315d27
equal deleted inserted replaced
12864:a03f245243b0 12865:e33bcb9d5e9c
   121 procedure ParseIPCCommand(s: shortstring);
   121 procedure ParseIPCCommand(s: shortstring);
   122 var loTicks: Word;
   122 var loTicks: Word;
   123     isProcessed: boolean;
   123     isProcessed: boolean;
   124 begin
   124 begin
   125 isProcessed := true;
   125 isProcessed := true;
       
   126 system.writeln('IPC:', s);
   126 
   127 
   127 case s[1] of
   128 case s[1] of
   128      '!': begin AddFileLog('Ping? Pong!'); isPonged:= true; end;
   129      '!': begin AddFileLog('Ping? Pong!'); isPonged:= true; end;
   129      '?': SendIPC(_S'!');
   130      '?': SendIPC(_S'!');
   130      'e': ParseCommand(copy(s, 2, Length(s) - 1), true);
   131      'e': ParseCommand(copy(s, 2, Length(s) - 1), true);