20 |
20 |
21 unit uMobile; |
21 unit uMobile; |
22 interface |
22 interface |
23 |
23 |
24 {$IFDEF IPHONEOS} |
24 {$IFDEF IPHONEOS} |
25 (* iOS calls written in C/Objc *) |
25 (* iOS calls written in ObjcExports.m *) |
26 procedure clearView; cdecl; external; |
26 procedure clearView; cdecl; external; |
27 procedure startSpinning; cdecl; external; |
27 procedure startSpinning; cdecl; external; |
28 procedure stopSpinning; cdecl; external; |
28 procedure stopSpinning; cdecl; external; |
29 procedure replayBegan; cdecl; external; |
29 procedure replayBegan; cdecl; external; |
30 procedure replayFinished; cdecl; external; |
30 procedure replayFinished; cdecl; external; |
31 procedure updateVisualsNewTurn; cdecl; external; |
31 procedure updateVisualsNewTurn; cdecl; external; |
32 function isApplePhone: Boolean; cdecl; external; |
32 function isApplePhone: Boolean; cdecl; external; |
|
33 procedure AudioServicesPlaySystemSound(num: LongInt); cdecl; external; |
33 {$ENDIF} |
34 {$ENDIF} |
34 function isPhone: Boolean; inline; |
35 function isPhone: Boolean; inline; |
35 procedure doRumble; inline; |
36 procedure performRumble; inline; |
36 procedure perfExt_AddProgress; inline; |
37 procedure perfExt_AddProgress; inline; |
37 procedure perfExt_FinishProgress; inline; |
38 procedure perfExt_FinishProgress; inline; |
38 procedure perfExt_AmmoUpdate; // don't inline |
39 procedure perfExt_AmmoUpdate; // don't inline |
39 procedure perfExt_NewTurnBeginning; inline; |
40 procedure perfExt_NewTurnBeginning; inline; |
40 procedure perfExt_SaveBeganSynching; inline; |
41 procedure perfExt_SaveBeganSynching; inline; |