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 

    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

    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