equal
deleted
inserted
replaced
124 function ipcCheckFromFrontend: boolean; |
124 function ipcCheckFromFrontend: boolean; |
125 begin |
125 begin |
126 ipcCheckFromFrontend:= ipcCheck(msgEngine, mutEngine) |
126 ipcCheckFromFrontend:= ipcCheck(msgEngine, mutEngine) |
127 end; |
127 end; |
128 |
128 |
129 function listener(p: pointer): Longint; cdecl; export; |
129 function engineListener(p: pointer): Longint; cdecl; export; |
130 var msg: TIPCMessage; |
130 var msg: TIPCMessage; |
131 begin |
131 begin |
132 listener:= 0; |
132 engineListener:= 0; |
133 repeat |
133 repeat |
134 msg:= ipcReadFromEngine(); |
134 msg:= ipcReadFromEngine(); |
135 if msg.buf = nil then |
135 if msg.buf = nil then |
136 callbackFunction(callbackPointer, @msg.str[1], byte(msg.str[0])) |
136 callbackFunction(callbackPointer, @msg.str[1], byte(msg.str[0])) |
137 else |
137 else |
144 |
144 |
145 procedure registerIPCCallback(p: pointer; f: TIPCCallback); |
145 procedure registerIPCCallback(p: pointer; f: TIPCCallback); |
146 begin |
146 begin |
147 callbackPointer:= p; |
147 callbackPointer:= p; |
148 callbackFunction:= f; |
148 callbackFunction:= f; |
149 callbackListenerThread:= SDL_CreateThread(@listener{$IFDEF SDL2}, 'ipcListener'{$ENDIF}, nil); |
149 callbackListenerThread:= SDL_CreateThread(@engineListener{$IFDEF SDL2}, 'engineListener'{$ENDIF}, nil); |
150 end; |
150 end; |
151 |
151 |
152 procedure initIPC; |
152 procedure initIPC; |
153 begin |
153 begin |
154 msgFrontend.str:= ''; |
154 msgFrontend.str:= ''; |