/* ScummVM - Graphic Adventure Engine
 *
 * ScummVM is the legal property of its developers, whose names
 * are too numerous to list here. Please refer to the COPYRIGHT
 * file distributed with this source distribution.
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version 2
 * of the License, or (at your option) any later version.

 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.

 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
 *
 * $URL$
 * $Id$
 *
 */

#if defined(IPHONE_BACKEND)

#include <CoreGraphics/CGDirectDisplay.h>
#include <CoreSurface/CoreSurface.h>
#include <AudioToolbox/AudioQueue.h>
#include <unistd.h>
#include <pthread.h>

#include "common/system.h"
#include "common/scummsys.h"
#include "common/util.h"
#include "common/rect.h"
#include "common/events.h"

#include "base/main.h"

#include "backends/saves/default/default-saves.h"
#include "backends/timer/default/default-timer.h"
#include "backends/intern.h"
#include "sound/mixer.h"
#include "gui/message.h"

#include "osys_iphone.h"
#include "iphone_common.h"

const OSystem::GraphicsMode OSystem_IPHONE::s_supportedGraphicsModes[] = {
	{0, 0, 0}
};

AQCallbackStruct OSystem_IPHONE::s_AudioQueue;
SoundProc OSystem_IPHONE::s_soundCallback = NULL;
void *OSystem_IPHONE::s_soundParam = NULL;

OSystem_IPHONE::OSystem_IPHONE() :
	_savefile(NULL), _mixer(NULL), _timer(NULL), _offscreen(NULL),
	_overlayVisible(false), _overlayBuffer(NULL), _fullscreen(NULL),
	_mouseHeight(0), _mouseWidth(0), _mouseBuf(NULL), _lastMouseTap(0),
	_secondaryTapped(false), _lastSecondaryTap(0), _landscapeMode(true),
	_needEventRestPeriod(false), _mouseClickAndDragEnabled(false),
	_gestureStartX(-1), _gestureStartY(-1)
{	
	_queuedInputEvent.type = (Common::EventType)0;
}

OSystem_IPHONE::~OSystem_IPHONE() {
	AudioQueueDispose(s_AudioQueue.queue, true);

	delete _savefile;
	delete _mixer;
	delete _timer;
	delete _offscreen;
	delete _fullscreen;
}

int OSystem_IPHONE::timerHandler(int t) {
	DefaultTimerManager *tm = (DefaultTimerManager *)g_system->getTimerManager();
	tm->handler();
	return t;
}

void OSystem_IPHONE::initBackend() {
	_savefile = new DefaultSaveFileManager();
	_mixer = new Audio::Mixer();
	_timer = new DefaultTimerManager();

	gettimeofday(&_startTime, NULL);

	setSoundCallback(Audio::Mixer::mixCallback, _mixer);
	setTimerCallback(&OSystem_IPHONE::timerHandler, 10);

	OSystem::initBackend();
}	

bool OSystem_IPHONE::hasFeature(Feature f) {
	return false;
}

void OSystem_IPHONE::setFeatureState(Feature f, bool enable) {
}

bool OSystem_IPHONE::getFeatureState(Feature f) {
	return false;
}

const OSystem::GraphicsMode* OSystem_IPHONE::getSupportedGraphicsModes() const {
	return s_supportedGraphicsModes;
}


int OSystem_IPHONE::getDefaultGraphicsMode() const {
	return -1;
}

bool OSystem_IPHONE::setGraphicsMode(const char *mode) {
	return true;
}

bool OSystem_IPHONE::setGraphicsMode(int mode) {
	return true;
}

int OSystem_IPHONE::getGraphicsMode() const {
	return -1;
}

void OSystem_IPHONE::initSize(uint width, uint height) {
	//printf("initSize(%i, %i)\n", width, height);

	_screenWidth = width;
	_screenHeight = height;

	free(_offscreen);
	
	_offscreen = (byte *)malloc(width * height);
	bzero(_offscreen, width * height);

	free(_overlayBuffer);

	int fullSize = _screenWidth * _screenHeight * sizeof(OverlayColor);
	_overlayBuffer = (OverlayColor *)malloc(fullSize);
	clearOverlay();
	
	free(_fullscreen);

	_fullscreen = (uint16 *)malloc(fullSize);
	bzero(_fullscreen, fullSize);
	
	if (_landscapeMode)
		iPhone_initSurface(height, width, true);
	else
		iPhone_initSurface(width, height, false);

	_dirtyRects.push_back(Common::Rect(0, 0, width, height));
	_mouseVisible = false;
	updateScreen();
}

int16 OSystem_IPHONE::getHeight() {
	return _screenHeight;
}

int16 OSystem_IPHONE::getWidth() {
	return _screenWidth;
}

void OSystem_IPHONE::setPalette(const byte *colors, uint start, uint num) {
	//printf("setPalette()\n");
	const byte *b = colors;

	for (uint i = start; i < start + num; ++i) {
		_palette[i] = RGBToColor(b[0], b[1], b[2]);
		b += 4;
	}
	
	_dirtyRects.push_back(Common::Rect(0, 0, _screenWidth, _screenHeight));
}

void OSystem_IPHONE::grabPalette(byte *colors, uint start, uint num) {
	//printf("grabPalette()\n");
}

void OSystem_IPHONE::copyRectToScreen(const byte *buf, int pitch, int x, int y, int w, int h) {
	//printf("copyRectToScreen(%i, %i, %i, %i)\n", x, y, w, h);
	//Clip the coordinates
	if (x < 0) {
		w += x;
		buf -= x;
		x = 0;
	}

	if (y < 0) {
		h += y;
		buf -= y * pitch;
		y = 0;
	}

	if (w > _screenWidth - x) {
		w = _screenWidth - x;
	}

	if (h > _screenHeight - y) {
		h = _screenHeight - y;
	}

	if (w <= 0 || h <= 0)
		return;
	
	_dirtyRects.push_back(Common::Rect(x, y, x + w + 1, y + h + 1));
		
	byte *dst = _offscreen + y * _screenWidth + x;
	if (_screenWidth == pitch && pitch == w)
		memcpy(dst, buf, h * w);
	else {
		do {
			memcpy(dst, buf, w);
			buf += pitch;
			dst += _screenWidth;
		} while (--h);
	}
}

void OSystem_IPHONE::addDirtyRect(int16 x, int16 y, int16 w, int16 h) {
	if (x < 0) {
		w += x;
		x = 0;
	}

	if (y < 0) {
		h += y;
		y = 0;
	}

	if (w > _screenWidth - x)
		w = _screenWidth - x;

	if (h > _screenHeight - y)
		h = _screenHeight - y;

	if (w <= 0 || h <= 0)
		return;
	
	_dirtyRects.push_back(Common::Rect(x, y, x + w, y + h));
}

void OSystem_IPHONE::updateScreen() {
	//printf("updateScreen(): %i dirty rects.\n", _dirtyRects.size());

	if (_dirtyRects.size() == 0)
		return;
	
	if (_landscapeMode)
		internUpdateScreen<true>();
	else
		internUpdateScreen<false>();
	
	iPhone_updateScreen();
}

template <bool landscapeMode>
void OSystem_IPHONE::internUpdateScreen() {
	Common::Rect mouseRect(_mouseX - _mouseHotspotX, _mouseY - _mouseHotspotY, _mouseX + _mouseWidth - _mouseHotspotX, _mouseY + _mouseHeight - _mouseHotspotY);

	while (_dirtyRects.size()) {
		Common::Rect dirtyRect = _dirtyRects.remove_at(_dirtyRects.size() - 1);
		//printf("Drawing: (%i, %i) -> (%i, %i)\n", dirtyRect.left, dirtyRect.top, dirtyRect.right, dirtyRect.bottom);
		int row;	
		if (_overlayVisible) {
			for (int x = dirtyRect.left; x < dirtyRect.right - 1; x++) {
				if (landscapeMode) {
					row = (_screenWidth - x - 1) * _screenHeight;
					for (int y = dirtyRect.top; y < dirtyRect.bottom; y++)
						_fullscreen[row + y] = _overlayBuffer[y * _screenWidth + x];						
				} else {
					for (int y = dirtyRect.top; y < dirtyRect.bottom; y++)
						_fullscreen[y * _screenWidth + x] = _overlayBuffer[y * _screenWidth + x];												
				}
			}
		} else {
			for (int x = dirtyRect.left; x < dirtyRect.right - 1; x++) {
				if (landscapeMode) {
					row = (_screenWidth - x - 1) * _screenHeight;
					for (int y = dirtyRect.top; y < dirtyRect.bottom; y++)
						_fullscreen[row + y] = _palette[_offscreen[y * _screenWidth + x]];												
				} else {
					for (int y = dirtyRect.top; y < dirtyRect.bottom; y++)
						_fullscreen[y * _screenWidth + x] = _palette[_offscreen[y * _screenWidth + x]];												
				}
			}		
		}

		//draw mouse on top
		int mx, my;
		if (_mouseVisible && dirtyRect.intersects(mouseRect)) {
			for (uint x = 0; x < _mouseWidth - 1; x++) {
				mx = _mouseX + x - _mouseHotspotX;
				row = (_screenWidth - mx - 1) * _screenHeight;
				if (mx >= 0 && mx < _screenWidth) {

					for (uint y = 0; y < _mouseHeight; ++y) {
						if (_mouseBuf[y * _mouseWidth + x] != _mouseKeyColour) {
							my = _mouseY + y - _mouseHotspotY;

							if (my >= 0 && my < _screenHeight) {
								if (landscapeMode)
									_fullscreen[row + my] = _palette[_mouseBuf[y * _mouseWidth + x]];								
								else
									_fullscreen[my * _screenWidth + mx] = _palette[_mouseBuf[y * _mouseWidth + x]];								
							}
						}
					}				
				}
			}
		}

		uint16 *surface = iPhone_getSurface();
		if (dirtyRect.right == _screenWidth && dirtyRect.bottom == _screenHeight) {
			memcpy(surface, _fullscreen, _screenWidth * _screenHeight * 2);
		} else {
			for (int x = dirtyRect.left; x < dirtyRect.right - 1; x++) {
				if (landscapeMode) {
					row = (_screenWidth - x - 1) * _screenHeight;
					for (int y = dirtyRect.top; y < dirtyRect.bottom; y++)
						surface[row + y] = _fullscreen[row + y];
				} else {
					for (int y = dirtyRect.top; y < dirtyRect.bottom; y++)
						surface[y * _screenWidth + x] = _fullscreen[y * _screenWidth + x];
				}
			}		
		}
	}
}

Graphics::Surface *OSystem_IPHONE::lockScreen() {
	//printf("lockScreen()\n");
	
	_framebuffer.pixels = _offscreen;
	_framebuffer.w = _screenWidth;
	_framebuffer.h = _screenHeight;
	_framebuffer.pitch = _screenWidth;
	_framebuffer.bytesPerPixel = 1;

	return &_framebuffer;
}

void OSystem_IPHONE::unlockScreen() {
	//printf("unlockScreen()\n");
	_dirtyRects.push_back(Common::Rect(0, 0, _screenWidth, _screenHeight));
	updateScreen();
}

void OSystem_IPHONE::setShakePos(int shakeOffset) {
	printf("setShakePos(%i)\n", shakeOffset);
}

void OSystem_IPHONE::showOverlay() {
	//printf("showOverlay()\n");
	_overlayVisible = true;
	_dirtyRects.push_back(Common::Rect(0, 0, _screenWidth, _screenHeight));
}

void OSystem_IPHONE::hideOverlay() {
	//printf("hideOverlay()\n");
	_overlayVisible = false;
	_dirtyRects.push_back(Common::Rect(0, 0, _screenWidth, _screenHeight));
}

void OSystem_IPHONE::clearOverlay() {
	//printf("clearOverlay()\n");
	bzero(_overlayBuffer, _screenWidth * _screenHeight * sizeof(OverlayColor));
	_dirtyRects.push_back(Common::Rect(0, 0, _screenWidth, _screenHeight));
}

void OSystem_IPHONE::grabOverlay(OverlayColor *buf, int pitch) {
	//printf("grabOverlay()\n");
	int h = _screenHeight;
	OverlayColor *src = _overlayBuffer;

	do {
		memcpy(buf, src, _screenWidth * sizeof(OverlayColor));
		src += _screenWidth;
		buf += pitch;
	} while (--h);
}

void OSystem_IPHONE::copyRectToOverlay(const OverlayColor *buf, int pitch, int x, int y, int w, int h) {
	//printf("copyRectToOverlay(buf, pitch=%i, x=%i, y=%i, w=%i, h=%i)\n", pitch, x, y, w, h);

	//Clip the coordinates
	if (x < 0) {
		w += x;
		buf -= x;
		x = 0;
	}

	if (y < 0) {
		h += y;
		buf -= y * pitch;
		y = 0;
	}

	if (w > _screenWidth - x)
		w = _screenWidth - x;

	if (h > _screenHeight - y)
		h = _screenHeight - y;

	if (w <= 0 || h <= 0)
		return;

	_dirtyRects.push_back(Common::Rect(x, y, x + w + 1, y + h + 1));
		
	OverlayColor *dst = _overlayBuffer + (y * _screenWidth + x);
	if (_screenWidth == pitch && pitch == w)
		memcpy(dst, buf, h * w * sizeof(OverlayColor));
	else {
		do {
			memcpy(dst, buf, w * sizeof(OverlayColor));
			buf += pitch;
			dst += _screenWidth;
		} while (--h);
	}
}

int16 OSystem_IPHONE::getOverlayHeight() {
	return _screenHeight;
}

int16 OSystem_IPHONE::getOverlayWidth() {
	return _screenWidth;
}

bool OSystem_IPHONE::showMouse(bool visible) {
	bool last = _mouseVisible;
	_mouseVisible = visible;
	dirtyMouseCursor();
	return last;
}

void OSystem_IPHONE::warpMouse(int x, int y) {
	//printf("warpMouse()\n");
	
	dirtyMouseCursor();
	_mouseX = x;
	_mouseY = y;
	dirtyMouseCursor();
}

void OSystem_IPHONE::dirtyMouseCursor() {
	addDirtyRect(_mouseX - _mouseHotspotX, _mouseY - _mouseHotspotY, _mouseX + _mouseWidth - _mouseHotspotX + 1, _mouseY + _mouseHeight - _mouseHotspotY + 1);	
}

void OSystem_IPHONE::setMouseCursor(const byte *buf, uint w, uint h, int hotspotX, int hotspotY, byte keycolor, int cursorTargetScale) {
	//printf("setMouseCursor(%i, %i)\n", hotspotX, hotspotY);

	dirtyMouseCursor();

	if (_mouseBuf != NULL && (_mouseWidth != w || _mouseHeight != h)) {
		free(_mouseBuf);
		_mouseBuf = NULL;
	}
	
	if (_mouseBuf == NULL)
		_mouseBuf = (byte *)malloc(w * h);

	_mouseWidth = w;
	_mouseHeight = h;

	_mouseHotspotX = hotspotX;
	_mouseHotspotY = hotspotY;

	_mouseKeyColour = keycolor;
	
	memcpy(_mouseBuf, buf, w * h);

	dirtyMouseCursor();
}

bool OSystem_IPHONE::pollEvent(Common::Event &event) {
	//printf("pollEvent()\n");
	
	long curTime = getMillis();
	
	if (_timerCallback && (curTime >= _timerCallbackNext)) {
		_timerCallback(_timerCallbackTimer);
		_timerCallbackNext = curTime + _timerCallbackTimer;
	}
	
	if (_needEventRestPeriod) {
		// Workaround: Some engines can't handle mouse-down and mouse-up events
		// appearing right after each other, without a call returning no input in between.
		_needEventRestPeriod = false;
		return false;
	}

	if (_queuedInputEvent.type != (Common::EventType)0) {
		event = _queuedInputEvent;
		_queuedInputEvent.type = (Common::EventType)0;
		return true;
	}

	int eventType;
	float xUnit, yUnit;

	if (iPhone_fetchEvent(&eventType, &xUnit, &yUnit)) {
		int x;
		int y;
		if (_landscapeMode) {
			x = (int)((1.0 - yUnit) * _screenWidth);
			y = (int)(xUnit * _screenHeight);
		} else {
			x = (int)(xUnit * _screenWidth);
			y = (int)(yUnit * _screenHeight);		
		}

		switch ((InputEvent)eventType) {
			case kInputMouseDown:
				//printf("Mouse down at (%u, %u)\n", x, y);
				
				warpMouse(x, y);
				if (_mouseClickAndDragEnabled) {
					event.type = Common::EVENT_LBUTTONDOWN;
					event.mouse.x = _mouseX;
					event.mouse.y = _mouseY;					
				} else {
					_lastMouseDown = curTime;
					return false;	
				}
				break;
			case kInputMouseUp:
				//printf("Mouse up at (%u, %u)\n", x, y);

				if (_mouseClickAndDragEnabled) {
					event.type = Common::EVENT_LBUTTONUP;
					event.mouse.x = _mouseX;
					event.mouse.y = _mouseY;
				} else {
					if (curTime - _lastMouseDown < 250) {
						event.type = Common::EVENT_LBUTTONDOWN;
						event.mouse.x = _mouseX;
						event.mouse.y = _mouseY;

						_queuedInputEvent.type = Common::EVENT_LBUTTONUP;
						_queuedInputEvent.mouse.x = _mouseX;
						_queuedInputEvent.mouse.y = _mouseY;
						_lastMouseTap = curTime;
						_needEventRestPeriod = true;
					} else
						return false;
				}

				break;
			case kInputMouseDragged:
				//printf("Mouse dragged at (%u, %u)\n", x, y);
				if (_secondaryTapped) {
					// if (_gestureStartX == -1 || _gestureStartY == -1) {
					// 	return false;
					// }

					int vecX = (x - _gestureStartX);
					int vecY = (y - _gestureStartY);
					int lengthSq =  vecX * vecX + vecY * vecY;
					//printf("Lengthsq: %u\n", lengthSq);

					if (lengthSq > 15000) { // Long enough gesture to react upon.
						_gestureStartX = x;
						_gestureStartY = y;
						
						float vecLength = sqrt(lengthSq);
						float vecXNorm = vecX / vecLength;
						float vecYNorm = vecY / vecLength;

						//printf("Swipe vector: (%.2f, %.2f)\n", vecXNorm, vecYNorm);

						if (vecXNorm > -0.50 && vecXNorm < 0.50 && vecYNorm > 0.75) {
							// Swipe down
							event.type = Common::EVENT_KEYDOWN;
							_queuedInputEvent.type = Common::EVENT_KEYUP;

							event.kbd.flags = _queuedInputEvent.kbd.flags = 0;
							event.kbd.keycode = _queuedInputEvent.kbd.keycode = Common::KEYCODE_F5;
							event.kbd.ascii = _queuedInputEvent.kbd.ascii = Common::ASCII_F5;
							_needEventRestPeriod = true;
						} else if (vecXNorm > -0.50 && vecXNorm < 0.50 && vecYNorm < -0.75) {
							// Swipe up
							_mouseClickAndDragEnabled = !_mouseClickAndDragEnabled;
							GUI::TimedMessageDialog dialog("Toggling mouse-click-and-drag mode.", 1500);
							dialog.runModal();
						} else if (vecXNorm > 0.75 && vecYNorm >  -0.5 && vecYNorm < 0.5) {
							// Swipe right
							// _secondaryTapped = !_secondaryTapped;
							// _gestureStartX = x;
							// _gestureStartY = y;					
							// 							
							// GUI::TimedMessageDialog dialog("Forcing toggle of pressed state.", 1500);
							// dialog.runModal();
							return false;
						} else if (vecXNorm < -0.75 && vecYNorm >  -0.5 && vecYNorm < 0.5) {
							// Swipe left
							return false;
						} else
							return false;
					} else
						return false;
				} else {
					event.type = Common::EVENT_MOUSEMOVE;
					event.mouse.x = x;
					event.mouse.y = y;
					warpMouse(x, y);
				}
				break;
			case kInputMouseSecondToggled:
				_secondaryTapped = !_secondaryTapped;
				printf("Mouse second at (%u, %u). State now %s.\n", x, y, _secondaryTapped ? "on" : "off");
				if (_secondaryTapped) {
					_lastSecondaryDown = curTime;
					_gestureStartX = x;
					_gestureStartY = y;
					return false;
				} else if (curTime - _lastSecondaryDown < 250 ) {
					if (curTime - _lastSecondaryTap < 250 && !_overlayVisible) {
						event.type = Common::EVENT_KEYDOWN;
						_queuedInputEvent.type = Common::EVENT_KEYUP;

						event.kbd.flags = _queuedInputEvent.kbd.flags = 0;
						event.kbd.keycode = _queuedInputEvent.kbd.keycode = Common::KEYCODE_ESCAPE;
						event.kbd.ascii = _queuedInputEvent.kbd.ascii = Common::ASCII_ESCAPE;	
						_needEventRestPeriod = true;	
						_lastSecondaryTap = 0;
					} else {
						event.type = Common::EVENT_RBUTTONDOWN;
						event.mouse.x = _mouseX;
						event.mouse.y = _mouseY;
						_queuedInputEvent.type = Common::EVENT_RBUTTONUP;
						_queuedInputEvent.mouse.x = _mouseX;
						_queuedInputEvent.mouse.y = _mouseY;
						_lastSecondaryTap = curTime;
						_needEventRestPeriod = true;
					}		
				} else
					return false;
				break;
			case kInputOrientationChanged:
				bool newModeIsLandscape = (int)xUnit != 1;
				//printf("Orientation: %i", (int)xUnit);
				if (_landscapeMode != newModeIsLandscape) {
					_landscapeMode = newModeIsLandscape;
					if (_landscapeMode)
						iPhone_initSurface(_screenHeight, _screenWidth, true);
					else
						iPhone_initSurface(_screenWidth, _screenHeight, false);

					_dirtyRects.push_back(Common::Rect(0, 0, _screenWidth, _screenHeight));
				}				
				break;
			case kInputKeyPressed:
				int keyPressed = (int)xUnit;
				int ascii = keyPressed;
				//printf("key: %i\n", keyPressed);

				// We remap some of the iPhone keyboard keys.
				// The first ten here are the row of symbols below the numeric keys.
				switch (keyPressed) {
					case 45:
						keyPressed = Common::KEYCODE_F1;
						ascii = Common::ASCII_F1;
						break;
					case 47:
						keyPressed = Common::KEYCODE_F2;
						ascii = Common::ASCII_F2;
						break;
					case 58:
						keyPressed = Common::KEYCODE_F3;
						ascii = Common::ASCII_F3;
						break;
					case 59:
						keyPressed = Common::KEYCODE_F4;
						ascii = Common::ASCII_F4;
						break;
					case 40:
						keyPressed = Common::KEYCODE_F5;
						ascii = Common::ASCII_F5;
						break;
					case 41:
						keyPressed = Common::KEYCODE_F6;
						ascii = Common::ASCII_F6;
						break;
					case 36:
						keyPressed = Common::KEYCODE_F7;
						ascii = Common::ASCII_F7;
						break;
					case 38:
						keyPressed = Common::KEYCODE_F8;
						ascii = Common::ASCII_F8;
						break;
					case 64:
						keyPressed = Common::KEYCODE_F9;
						ascii = Common::ASCII_F9;
						break;
					case 34:
						keyPressed = Common::KEYCODE_F10;
						ascii = Common::ASCII_F10;
						break;
					case 10:
						keyPressed = Common::KEYCODE_RETURN;
						ascii = Common::ASCII_RETURN;
						break;
				}
				event.type = Common::EVENT_KEYDOWN;
				_queuedInputEvent.type = Common::EVENT_KEYUP;

				event.kbd.flags = _queuedInputEvent.kbd.flags = 0;
				event.kbd.keycode = _queuedInputEvent.kbd.keycode = (Common::KeyCode)keyPressed;
				event.kbd.ascii = _queuedInputEvent.kbd.ascii = ascii;
				_needEventRestPeriod = true;				
				break;
				
			default:
				break;
		}

		return true;
	}
	return false;
}

uint32 OSystem_IPHONE::getMillis() {
	//printf("getMillis()\n");

	struct timeval currentTime;
	gettimeofday(&currentTime, NULL);
	return (uint32)(((currentTime.tv_sec - _startTime.tv_sec) * 1000) +
	                ((currentTime.tv_usec - _startTime.tv_usec) / 1000));
}

void OSystem_IPHONE::delayMillis(uint msecs) {
	//printf("delayMillis(%d)\n", msecs);
	usleep(msecs * 1000);
}

OSystem::MutexRef OSystem_IPHONE::createMutex(void) {
	//pthread_mutex_t *mutex = (pthread_mutex_t *) malloc(sizeof(pthread_mutex_t));
	//pthread_mutex_init(mutex, NULL);
	//return (MutexRef)mutex;
	return NULL;
}

void OSystem_IPHONE::lockMutex(MutexRef mutex) {
	//pthread_mutex_lock((pthread_mutex_t *) mutex);
}

void OSystem_IPHONE::unlockMutex(MutexRef mutex) {
	//pthread_mutex_unlock((pthread_mutex_t *) mutex);
}

void OSystem_IPHONE::deleteMutex(MutexRef mutex) {
	//pthread_mutex_destroy((pthread_mutex_t *) mutex);
	//free(mutex);
}

void OSystem_IPHONE::AQBufferCallback(void *in, AudioQueueRef inQ, AudioQueueBufferRef outQB) {
	//printf("AQBufferCallback()\n");
	if (s_AudioQueue.frameCount > 0 && s_soundCallback != NULL) {
		outQB->mAudioDataByteSize = 4 * s_AudioQueue.frameCount;
		s_soundCallback(s_soundParam, (byte *)outQB->mAudioData, outQB->mAudioDataByteSize);
		AudioQueueEnqueueBuffer(inQ, outQB, 0, NULL);
	} else
		AudioQueueStop(s_AudioQueue.queue, false);
}

bool OSystem_IPHONE::setSoundCallback(SoundProc proc, void *param) {
	//printf("setSoundCallback()\n");
	s_soundCallback = proc;
	s_soundParam = param;

	s_AudioQueue.dataFormat.mSampleRate = AUDIO_SAMPLE_RATE;
	s_AudioQueue.dataFormat.mFormatID = kAudioFormatLinearPCM;
	s_AudioQueue.dataFormat.mFormatFlags = kLinearPCMFormatFlagIsSignedInteger | kAudioFormatFlagIsPacked;
	s_AudioQueue.dataFormat.mBytesPerPacket = 4;
	s_AudioQueue.dataFormat.mFramesPerPacket = 1;
	s_AudioQueue.dataFormat.mBytesPerFrame = 4;
	s_AudioQueue.dataFormat.mChannelsPerFrame = 2;
	s_AudioQueue.dataFormat.mBitsPerChannel = 16;
	s_AudioQueue.frameCount = WAVE_BUFFER_SIZE;

	if (AudioQueueNewOutput(&s_AudioQueue.dataFormat, AQBufferCallback, &s_AudioQueue, 0, kCFRunLoopCommonModes, 0, &s_AudioQueue.queue)) {
		printf("Couldn't set the AudioQueue callback!\n");
		return false;
	}

	uint32 bufferBytes = s_AudioQueue.frameCount * s_AudioQueue.dataFormat.mBytesPerFrame;

	for (int i = 0; i < AUDIO_BUFFERS; i++) {
		if (AudioQueueAllocateBuffer(s_AudioQueue.queue, bufferBytes, &s_AudioQueue.buffers[i])) {
			printf("Error allocating AudioQueue buffer!\n");
			return false;
		}

		AQBufferCallback(&s_AudioQueue, s_AudioQueue.queue, s_AudioQueue.buffers[i]);
	}	

	AudioQueueSetParameter(s_AudioQueue.queue, kAudioQueueParam_Volume, 1.0);
	if (AudioQueueStart(s_AudioQueue.queue, NULL)) {
		printf("Error starting the AudioQueue!\n");
		return false;
	}

	return true;
}

void OSystem_IPHONE::clearSoundCallback() {
	debug("clearSoundCallback()\n");
}

int OSystem_IPHONE::getOutputSampleRate() const {
	return AUDIO_SAMPLE_RATE;
}

void OSystem_IPHONE::setTimerCallback(TimerProc callback, int interval) {
	//printf("setTimerCallback()\n");	
	
	if (callback != NULL) {
		_timerCallbackTimer = interval;
		_timerCallbackNext = getMillis() + interval;
		_timerCallback = callback;
	} else
		_timerCallback = NULL;
}

void OSystem_IPHONE::quit() {
}

void OSystem_IPHONE::setWindowCaption(const char *caption) {
}

Common::SaveFileManager *OSystem_IPHONE::getSavefileManager() {
	assert(_savefile);
	return _savefile;
}

Audio::Mixer *OSystem_IPHONE::getMixer() {
	assert(_mixer);
	return _mixer;
}

Common::TimerManager *OSystem_IPHONE::getTimerManager() {
	assert(_timer);
	return _timer;
}

OSystem *OSystem_IPHONE_create() {
	return new OSystem_IPHONE();
}

void iphone_main(int argc, char *argv[]) {
	
	// Redirect stdout and stderr if we're launching from the Springboard.
	if (argc == 2 && strcmp(argv[1], "--launchedFromSB") == 0) {
		FILE *newfp = fopen("/tmp/scummvm.log", "a");
		if (newfp != NULL) {
			fclose(stdout);
			fclose(stderr);
			*stdout = *newfp;
			*stderr = *newfp;
			setbuf(stdout, NULL);
			setbuf(stderr, NULL);	

			//extern int gDebugLevel;
			//gDebugLevel = 10;
		}		
	}

	g_system = OSystem_IPHONE_create();
	assert(g_system);

	// Invoke the actual ScummVM main entry point:
	scummvm_main(argc, argv);
	g_system->quit();       // TODO: Consider removing / replacing this!
}

#endif