hedgewars/uFLTypes.pas
author unc0rr
Sun, 21 Sep 2014 00:37:50 +0400
branchqmlfrontend
changeset 10418 091d2c0216c3
parent 10406 b5fd52ac760f
child 10420 02c573d19224
permissions -rw-r--r--
Move away from passing shortstrings into C code, now IPC works
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
10406
b5fd52ac760f Basic layout of frontlib, some more sdl bindings
unc0rr
parents:
diff changeset
     1
unit uFLTypes;
10418
091d2c0216c3 Move away from passing shortstrings into C code, now IPC works
unc0rr
parents: 10406
diff changeset
     2
interface
10406
b5fd52ac760f Basic layout of frontlib, some more sdl bindings
unc0rr
parents:
diff changeset
     3
10418
091d2c0216c3 Move away from passing shortstrings into C code, now IPC works
unc0rr
parents: 10406
diff changeset
     4
type TIPCMessage = record
091d2c0216c3 Move away from passing shortstrings into C code, now IPC works
unc0rr
parents: 10406
diff changeset
     5
                   str: shortstring;
091d2c0216c3 Move away from passing shortstrings into C code, now IPC works
unc0rr
parents: 10406
diff changeset
     6
                   len: Longword;
091d2c0216c3 Move away from passing shortstrings into C code, now IPC works
unc0rr
parents: 10406
diff changeset
     7
                   buf: Pointer
091d2c0216c3 Move away from passing shortstrings into C code, now IPC works
unc0rr
parents: 10406
diff changeset
     8
               end;
091d2c0216c3 Move away from passing shortstrings into C code, now IPC works
unc0rr
parents: 10406
diff changeset
     9
    TIPCCallback = procedure (p: pointer; len: byte; msg: PChar);
10406
b5fd52ac760f Basic layout of frontlib, some more sdl bindings
unc0rr
parents:
diff changeset
    10
b5fd52ac760f Basic layout of frontlib, some more sdl bindings
unc0rr
parents:
diff changeset
    11
implementation
b5fd52ac760f Basic layout of frontlib, some more sdl bindings
unc0rr
parents:
diff changeset
    12
b5fd52ac760f Basic layout of frontlib, some more sdl bindings
unc0rr
parents:
diff changeset
    13
end.