diff -r dfda97c153a4 -r 8e83c7e31720 hedgewars/PascalExports.pas
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/hedgewars/PascalExports.pas	Sat Jan 09 01:34:23 2010 +0000
@@ -0,0 +1,136 @@
+(*
+ *  PascalExports.pas
+ *  hwengine
+ *
+ *  Created by Vittorio on 09/01/10.
+ *  Copyright 2009 __MyCompanyName__. All rights reserved.
+ *
+ *)
+
+
+{$INCLUDE "options.inc"}
+
+unit PascalExports;
+
+interface
+uses uKeys, uConsole;
+
+{$IFDEF IPHONEOS}
+// called by pascal code, they deal with the objc code
+function  IPH_getDocumentsPath: PChar; cdecl; external;
+procedure IPH_showControls; cdecl; external;
+
+// called by the touch functions (SDL_uikitview.m)
+// they emulate user interaction from mouse or keyboard
+procedure HW_click; cdecl; export;
+procedure HW_zoomIn; cdecl; export;
+procedure HW_zoomOut; cdecl; export;
+procedure HW_zoomReset; cdecl; export;
+procedure HW_ammoMenu; cdecl; export;
+procedure HW_allKeysUp; cdecl; export;
+procedure HW_walkLeft; cdecl; export;
+procedure HW_walkRight; cdecl; export;
+procedure HW_aimUp; cdecl; export;
+procedure HW_aimDown; cdecl; export;
+procedure HW_shoot; cdecl; export;
+procedure HW_whereIsHog; cdecl; export;
+
+{$ENDIF}
+
+implementation
+
+{$IFDEF IPHONEOS}
+procedure HW_click; cdecl; export;
+begin
+	WriteLnToConsole('HW - left click');
+	leftClick:= true;
+	exit
+end;
+
+procedure HW_zoomIn; cdecl; export;
+begin
+	WriteLnToConsole('HW - zooming in');
+	wheelUp:= true;
+	exit
+end;
+
+procedure HW_zoomOut; cdecl; export;
+begin
+	WriteLnToConsole('HW - zooming out');
+	wheelDown:= true;
+	exit
+end;
+
+procedure HW_zoomReset; cdecl; export;
+begin
+	WriteLnToConsole('HW - reset zoom');
+	middleClick:= true;
+	exit
+end;
+
+procedure HW_ammoMenu; cdecl; export;
+begin
+	WriteLnToConsole('HW - right click');
+	rightClick:= true;
+	exit
+end;
+
+procedure HW_allKeysUp; cdecl; export;
+begin
+	WriteLnToConsole('HW - resetting keyboard');
+
+	upKey:= false;
+	downKey:= false;
+	leftKey:= false;
+	rightKey:= false;
+	spaceKey:= false;
+	exit
+end;
+
+procedure HW_walkLeft; cdecl; export;
+begin
+	WriteLnToConsole('HW - walking left');
+	leftKey:= true;
+	exit
+end;
+
+procedure HW_walkRight; cdecl; export;
+begin
+	WriteLnToConsole('HW - walking right');
+	rightKey:= true;
+	exit
+end;
+
+procedure HW_aimUp; cdecl; export;
+begin
+	WriteLnToConsole('HW - aiming upwards');
+	upKey:= true;
+	exit
+end;
+
+procedure HW_aimDown; cdecl; export;
+begin
+	WriteLnToConsole('HW - aiming downwards');
+	downKey:= true;
+	exit
+end;
+
+procedure HW_shoot; cdecl; export;
+begin
+	WriteLnToConsole('HW - shooting');
+	spaceKey:= true;
+	exit
+end;
+
+procedure HW_whereIsHog; cdecl; export;
+var Xcoord, Ycoord: LongInt;
+begin
+	//Xcoord:= Gear^.dX + WorldDx;
+	WriteLnToConsole('HW - hog is at x: ' + ' y:');
+
+	exit
+end;
+{$ENDIF}
+
+end.
+