// MIT License

// Copyright (c) 2017 Vadim Grigoruk @nesbox

// Permission is hereby granted, free of charge, to any person obtaining a copy
// of this software and associated documentation files (the "Software"), to deal
// in the Software without restriction, including without limitation the rights
// to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
// copies of the Software, and to permit persons to whom the Software is
// furnished to do so, subject to the following conditions:

// The above copyright notice and this permission notice shall be included in all
// copies or substantial portions of the Software.

// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
// OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
// SOFTWARE.

#include <stdio.h>
#include <SDL.h>
#include <tic80.h>

static struct
{
	bool quit;
} state =
{
	.quit = false,
};

static void onExit()
{
	state.quit = true;
}

int main(int argc, char **argv)
{
	FILE* file = fopen("cart.tic", "rb");

	if(file)
	{
		fseek(file, 0, SEEK_END);
		int size = ftell(file);
		fseek(file, 0, SEEK_SET);

		void* cart = SDL_malloc(size);
		if(cart) fread(cart, size, 1, file);
		fclose(file);

		if(cart)
		{
			SDL_Init(SDL_INIT_VIDEO | SDL_INIT_AUDIO);

			{
				SDL_Window* window = SDL_CreateWindow("TIC-80 SDL demo", SDL_WINDOWPOS_CENTERED, SDL_WINDOWPOS_CENTERED, TIC80_WIDTH, TIC80_HEIGHT, SDL_WINDOW_SHOWN | SDL_WINDOW_RESIZABLE);
				SDL_Renderer* renderer = SDL_CreateRenderer(window, -1, SDL_RENDERER_ACCELERATED | SDL_RENDERER_PRESENTVSYNC);
				SDL_Texture* texture = SDL_CreateTexture(renderer, SDL_PIXELFORMAT_ARGB8888, SDL_TEXTUREACCESS_STREAMING, TIC80_WIDTH, TIC80_HEIGHT);
				
				SDL_AudioDeviceID audioDevice = 0;
				SDL_AudioSpec audioSpec;
				bool audioStarted = false;

				{
					SDL_AudioSpec want = 
					{
						.freq = 44100,
						.format = AUDIO_S16,
						.channels = 1,
						.userdata = NULL,
					};

					audioDevice = SDL_OpenAudioDevice(NULL, 0, &want, &audioSpec, SDL_AUDIO_ALLOW_ANY_CHANGE);
				}

				tic80_input input = {.first.data = 0, .second.data = 0};

				tic80* tic = tic80_create(audioSpec.freq);

				tic->callback.exit = onExit;

				tic80_load(tic, cart, size);
				
				if(tic)
				{
					while(!state.quit)
					{
						SDL_Event event;

						while(SDL_PollEvent(&event))
						{
							switch(event.type)
							{
							case SDL_QUIT:
								state.quit = true;
								break;
							}
						}

						{
							input.first.data = input.second.data = 0;
							const uint8_t* keyboard = SDL_GetKeyboardState(NULL);

							static const SDL_Scancode Keys[] = 
							{ 
								SDL_SCANCODE_UP,
								SDL_SCANCODE_DOWN,
								SDL_SCANCODE_LEFT,
								SDL_SCANCODE_RIGHT,

								SDL_SCANCODE_Z,
								SDL_SCANCODE_X,
								SDL_SCANCODE_A,
								SDL_SCANCODE_S,
							};

							for (int i = 0; i < SDL_arraysize(Keys); i++)
							{
								if (keyboard[Keys[i]])
								{
									input.first.data |= (1 << i);
								}
							}
						}

						tic80_tick(tic, input);

						if (!audioStarted && audioDevice)
						{
							audioStarted = true;
							SDL_PauseAudioDevice(audioDevice, 0);
						}

						SDL_QueueAudio(audioDevice, tic->sound.samples, tic->sound.count * sizeof(tic->sound.samples[0]));

						SDL_RenderClear(renderer);

						{
							void* pixels = NULL;
							int pitch = 0;
							SDL_LockTexture(texture, NULL, &pixels, &pitch);
							SDL_memcpy(pixels, tic->screen, sizeof tic->screen);
							SDL_UnlockTexture(texture);
							SDL_RenderCopy(renderer, texture, NULL, NULL);
						}

						SDL_RenderPresent(renderer);
					}

					tic80_delete(tic);
				}

				SDL_DestroyTexture(texture);
				SDL_DestroyRenderer(renderer);
				SDL_DestroyWindow(window);
				SDL_CloseAudioDevice(audioDevice);
			}

			SDL_free(cart);
		}
	}

	return 0;
}