equal
deleted
inserted
replaced
13 unit PascalExports; |
13 unit PascalExports; |
14 |
14 |
15 interface |
15 interface |
16 uses uKeys, uConsole; |
16 uses uKeys, uConsole; |
17 |
17 |
|
18 {$INCLUDE "proto.inc"} |
|
19 |
18 {$IFDEF IPHONEOS} |
20 {$IFDEF IPHONEOS} |
19 // called by pascal code, they deal with the objc code |
21 // called by pascal code, they deal with the objc code |
20 function IPH_getDocumentsPath: PChar; cdecl; external; |
22 function IPH_getDocumentsPath: PChar; cdecl; external; |
21 procedure IPH_showControls; cdecl; external; |
23 procedure IPH_showControls; cdecl; external; |
|
24 |
|
25 // retrieve protocol information |
|
26 function HW_protoVer: LongInt; cdecl; export; |
22 |
27 |
23 // called by the touch functions (SDL_uikitview.m) |
28 // called by the touch functions (SDL_uikitview.m) |
24 // they emulate user interaction from mouse or keyboard |
29 // they emulate user interaction from mouse or keyboard |
25 procedure HW_click; cdecl; export; |
30 procedure HW_click; cdecl; export; |
26 procedure HW_zoomIn; cdecl; export; |
31 procedure HW_zoomIn; cdecl; export; |
38 {$ENDIF} |
43 {$ENDIF} |
39 |
44 |
40 implementation |
45 implementation |
41 |
46 |
42 {$IFDEF IPHONEOS} |
47 {$IFDEF IPHONEOS} |
|
48 function HW_protoVer: LongInt; cdecl; export; |
|
49 begin |
|
50 HW_protoVer:= cNetProtoVersion; |
|
51 end; |
|
52 |
43 procedure HW_click; cdecl; export; |
53 procedure HW_click; cdecl; export; |
44 begin |
54 begin |
45 WriteLnToConsole('HW - left click'); |
55 WriteLnToConsole('HW - left click'); |
46 leftClick:= true; |
56 leftClick:= true; |
47 exit |
57 exit |