hedgewars/PascalExports.pas
changeset 5194 851c6fbb44e6
parent 5166 d1eb1560b4d5
child 5452 3edc3e3b8cdc
child 5492 a0455a050ca8
equal deleted inserted replaced
5192:881c14f81d12 5194:851c6fbb44e6
    26  *
    26  *
    27  * See also: C declarations on wikipedia
    27  * See also: C declarations on wikipedia
    28  *           http://en.wikipedia.org/wiki/X86_calling_conventions#cdecl
    28  *           http://en.wikipedia.org/wiki/X86_calling_conventions#cdecl
    29  *)
    29  *)
    30 interface
    30 interface
    31 uses uTypes, uConsts, uVariables, GLunit, uKeys, uSound, uAmmos, uUtils,
    31 uses uTypes, uConsts, uVariables, GLunit, uKeys, uSound, uAmmos, uUtils, uCommands;
    32      uCommands, uMobile;
       
    33 
    32 
    34 {$INCLUDE "config.inc"}
    33 {$INCLUDE "config.inc"}
    35 procedure HW_versionInfo(netProto: PLongInt; versionStr: PPChar); cdecl; export;
    34 procedure HW_versionInfo(netProto: PLongInt; versionStr: PPChar); cdecl; export;
    36 
    35 
    37 implementation
    36 implementation
   199 end;
   198 end;
   200 
   199 
   201 // equivalent to esc+y; when closeFrontend = true the game exits after memory cleanup
   200 // equivalent to esc+y; when closeFrontend = true the game exits after memory cleanup
   202 procedure HW_terminate(closeFrontend: boolean); cdecl; export;
   201 procedure HW_terminate(closeFrontend: boolean); cdecl; export;
   203 begin
   202 begin
   204     {$IFDEF IPHONEOS}setGameRunning(false);{$ENDIF}
       
   205     alsoShutdownFrontend:= closeFrontend;
   203     alsoShutdownFrontend:= closeFrontend;
   206     ParseCommand('forcequit', true);
   204     ParseCommand('forcequit', true);
   207 end;
   205 end;
   208 
   206 
   209 function HW_getSDLWindow: pointer; cdecl; export;
   207 function HW_getSDLWindow: pointer; cdecl; export;