equal
deleted
inserted
replaced
19 |
19 |
20 {$IFDEF IPHONEOS} |
20 {$IFDEF IPHONEOS} |
21 // called by pascal code, they deal with the objc code |
21 // called by pascal code, they deal with the objc code |
22 function IPH_getDocumentsPath: PChar; cdecl; external; |
22 function IPH_getDocumentsPath: PChar; cdecl; external; |
23 procedure IPH_showControls; cdecl; external; |
23 procedure IPH_showControls; cdecl; external; |
|
24 procedure IPH_returnFrontend; cdecl; external; |
24 |
25 |
25 // retrieve protocol information |
26 // retrieve protocol information |
26 function HW_protoVer: LongInt; cdecl; export; |
27 function HW_protoVer: LongInt; cdecl; export; |
27 |
28 |
28 // called by the touch functions (SDL_uikitview.m) |
29 // called by the touch functions (SDL_uikitview.m) |
45 implementation |
46 implementation |
46 |
47 |
47 {$IFDEF IPHONEOS} |
48 {$IFDEF IPHONEOS} |
48 function HW_protoVer: LongInt; cdecl; export; |
49 function HW_protoVer: LongInt; cdecl; export; |
49 begin |
50 begin |
|
51 WriteLnToConsole('HW - protocol version'); |
50 HW_protoVer:= cNetProtoVersion; |
52 HW_protoVer:= cNetProtoVersion; |
51 end; |
53 end; |
52 |
54 |
53 procedure HW_click; cdecl; export; |
55 procedure HW_click; cdecl; export; |
54 begin |
56 begin |