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

    27 // retrieve protocol information

    26 procedure HW_versionInfo(netProto: PShortInt; versionStr: PString); cdecl; export;

    28 procedure HW_versionInfo(netProto: PShortInt; versionStr: PString); cdecl; export;

    27 

    29 

    28 // called by the touch functions (SDL_uikitview.m)

    30 // called by the touch functions (SDL_uikitview.m)

    29 // they emulate user interaction from mouse or keyboard

    31 // they emulate user interaction from mouse or keyboard

    43 procedure HW_tab; cdecl; export;

    45 procedure HW_tab; cdecl; export;

    44 {$ENDIF}

    46 {$ENDIF}

    45 

    47 

    46 implementation

    48 implementation

    47 

    49 

    49 procedure HW_versionInfo(netProto: PShortInt; versionStr: PString); cdecl; export;

    51 procedure HW_versionInfo(netProto: PShortInt; versionStr: PString); cdecl; export;

    50 begin

    52 begin

    51 	if netProto <> nil then netProto^:= cNetProtoVersion;

    53 	if netProto <> nil then netProto^:= cNetProtoVersion;

    52 	if versionStr <> nil then versionStr^:= string(cVersionString);

    54 	if versionStr <> nil then versionStr^:= string(cVersionString);

    53 end;

    55 end;