hedgewars/uFLIPC.pas
branchqmlfrontend
changeset 11454 3c5d99013baf
parent 11452 78860824b5a5
child 11459 30397f91571c
equal deleted inserted replaced
11453:e7c7ca0c1556 11454:3c5d99013baf
    15 procedure ipcToNet(s: shortstring);
    15 procedure ipcToNet(s: shortstring);
    16 procedure ipcToNetRaw(p: pointer; len: Longword);
    16 procedure ipcToNetRaw(p: pointer; len: Longword);
    17 
    17 
    18 procedure ipcToFrontend(s: shortstring);
    18 procedure ipcToFrontend(s: shortstring);
    19 procedure ipcToFrontendRaw(p: pointer; len: Longword);
    19 procedure ipcToFrontendRaw(p: pointer; len: Longword);
    20 function ipcReadFromFrontend: shortstring;
    20 function ipcReadFromFrontend: TIPCMessage;
    21 function ipcCheckFromFrontend: boolean;
    21 function ipcCheckFromFrontend: boolean;
    22 
    22 
    23 procedure registerIPCCallback(p: pointer; f: TIPCCallback);
    23 procedure registerIPCCallback(p: pointer; f: TIPCCallback);
    24 procedure registerNetCallback(p: pointer; f: TIPCCallback);
    24 procedure registerNetCallback(p: pointer; f: TIPCCallback);
    25 
    25 
   210 function ipcReadFromEngine: TIPCMessage;
   210 function ipcReadFromEngine: TIPCMessage;
   211 begin
   211 begin
   212     ipcReadFromEngine:= ipcRead(queueFrontend)
   212     ipcReadFromEngine:= ipcRead(queueFrontend)
   213 end;
   213 end;
   214 
   214 
   215 function ipcReadFromFrontend: shortstring;
   215 function ipcReadFromFrontend: TIPCMessage;
   216 begin
   216 begin
   217     ipcReadFromFrontend:= ipcRead(queueEngine).str
   217     ipcReadFromFrontend:= ipcRead(queueEngine)
   218 end;
   218 end;
   219 
   219 
   220 function ipcReadToNet: TIPCMessage;
   220 function ipcReadToNet: TIPCMessage;
   221 begin
   221 begin
   222     ipcReadToNet:= ipcRead(queueNet)
   222     ipcReadToNet:= ipcRead(queueNet)