equal
deleted
inserted
replaced
1 unit uFLTypes; |
1 unit uFLTypes; |
2 interface |
2 interface |
|
3 uses SDLh; |
3 |
4 |
4 const |
5 const |
5 MAXARGS = 32; |
6 MAXARGS = 32; |
6 |
7 |
7 type |
8 type |
16 |
17 |
17 TFLIBEvent = (flibGameFinished); |
18 TFLIBEvent = (flibGameFinished); |
18 |
19 |
19 TClientFlag = (cfReady, cfRegistered, cfInRoom, cfContributor, cfInGame, cfRoomAdmin, cfServerAdmin); |
20 TClientFlag = (cfReady, cfRegistered, cfInRoom, cfContributor, cfInGame, cfRoomAdmin, cfServerAdmin); |
20 |
21 |
|
22 PIPCMessage = ^TIPCMessage; |
21 TIPCMessage = record |
23 TIPCMessage = record |
22 str: shortstring; |
24 str: shortstring; |
23 len: Longword; |
25 len: Longword; |
24 buf: Pointer |
26 buf: Pointer; |
|
27 next: PIPCMessage; |
|
28 end; |
|
29 PIPCQueue = ^TIPCQueue; |
|
30 TIPCQueue = record |
|
31 msg: TIPCMessage; |
|
32 mut: PSDL_Mutex; |
|
33 cond: PSDL_Cond; |
|
34 last: PIPCMessage; |
25 end; |
35 end; |
26 |
36 |
27 TIPCCallback = procedure (p: pointer; msg: PChar; len: Longword); |
37 TIPCCallback = procedure (p: pointer; msg: PChar; len: Longword); |
28 TUICallback = procedure (p: pointer; msgType: TMessageType; msg: PChar; len: Longword); cdecl; |
38 TUICallback = procedure (p: pointer; msgType: TMessageType; msg: PChar; len: Longword); cdecl; |
29 |
39 |