/*

   Copyright (C) 1997-2017 Sam Lantinga <slouken@libsdl.org>

   This software is provided 'as-is', without any express or implied

   warranty.  In no event will the authors be held liable for any damages

   arising from the use of this software.

   Permission is granted to anyone to use this software for any purpose,

   including commercial applications, and to alter it and redistribute it

   freely.

 */

 #include <stdlib.h>

 #include <stdio.h>

 #ifdef __EMSCRIPTEN__

 #include <emscripten/emscripten.h>

 #endif

 #include "SDL_test_common.h"

 /* Stolen from the mailing list */

 /* Creates a new mouse cursor from an XPM */

 /* XPM */

 static const char *arrow[] = {

   /* width height num_colors chars_per_pixel */

   "    32    32        3            1",

   /* colors */

   "X c #000000",

   ". c #ffffff",

   "  c None",

   /* pixels */

   "X                               ",

   "XX                              ",

   "X.X                             ",

   "X..X                            ",

   "X...X                           ",

   "X....X                          ",

   "X.....X                         ",

   "X......X                        ",

   "X.......X                       ",

   "X........X                      ",

   "X.....XXXXX                     ",

   "X..X..X                         ",

   "X.X X..X                        ",

   "XX  X..X                        ",

   "X    X..X                       ",

   "     X..X                       ",

   "      X..X                      ",

   "      X..X                      ",

   "       XX                       ",

   "                                ",

   "                                ",

   "                                ",

   "                                ",

   "                                ",

   "                                ",

   "                                ",

   "                                ",

   "                                ",

   "                                ",

   "                                ",

   "                                ",

   "                                ",

   "0,0"

 };  

 static SDL_Cursor*

 init_color_cursor(const char *file)

 {

     SDL_Cursor *cursor = NULL;

     SDL_Surface *surface = SDL_LoadBMP(file);

     if (surface) {

         cursor = SDL_CreateColorCursor(surface, 0, 0);

         SDL_FreeSurface(surface);

     }

     return cursor;

 }

 static SDL_Cursor*

 init_system_cursor(const char *image[])

 {

   int i, row, col;

   Uint8 data[4*32];

   Uint8 mask[4*32];

   int hot_x, hot_y;

   i = -1;

   for (row=0; row<32; ++row) {

     for (col=0; col<32; ++col) {

       if (col % 8) {

         data[i] <<= 1;

         mask[i] <<= 1;

       } else {

         ++i;

         data[i] = mask[i] = 0;

       }

       switch (image[4+row][col]) {

         case 'X':

           data[i] |= 0x01;

           mask[i] |= 0x01;

           break;

         case '.':

           mask[i] |= 0x01;

           break;

         case ' ':

           break;

       }

     }

   }

   sscanf(image[4+row], "%d,%d", &hot_x, &hot_y);

   return SDL_CreateCursor(data, mask, 32, 32, hot_x, hot_y);

 }

 static SDLTest_CommonState *state;

 int done;

 SDL_Cursor *cursor = NULL;

 /* Call this instead of exit(), so we can clean up SDL: atexit() is evil. */

 static void

 quit(int rc)

 {

     SDLTest_CommonQuit(state);

     exit(rc);

 }

 void

 loop()

 {

     int i;

     SDL_Event event;

     /* Check for events */

     while (SDL_PollEvent(&event)) {

         SDLTest_CommonEvent(state, &event, &done);

     }

     for (i = 0; i < state->num_windows; ++i) {

         SDL_Renderer *renderer = state->renderers[i];

         SDL_RenderClear(renderer);

         SDL_RenderPresent(renderer);

     }

 #ifdef __EMSCRIPTEN__

     if (done) {

         emscripten_cancel_main_loop();

     }

 #endif

 }

 int

 main(int argc, char *argv[])

 {

     int i;

     const char *color_cursor = NULL;

     /* Enable standard application logging */

     SDL_LogSetPriority(SDL_LOG_CATEGORY_APPLICATION, SDL_LOG_PRIORITY_INFO);

     /* Initialize test framework */

     state = SDLTest_CommonCreateState(argv, SDL_INIT_VIDEO);

     if (!state) {

         return 1;

     }

     for (i = 1; i < argc;) {

         int consumed;

         consumed = SDLTest_CommonArg(state, i);

         if (consumed == 0) {

             color_cursor = argv[i];

             break;

         }

         if (consumed < 0) {

             SDL_Log("Usage: %s %s\n", argv[0], SDLTest_CommonUsage(state));

             quit(1);

         }

         i += consumed;

     }

     if (!SDLTest_CommonInit(state)) {

         quit(2);

     }

     for (i = 0; i < state->num_windows; ++i) {

         SDL_Renderer *renderer = state->renderers[i];

         SDL_SetRenderDrawColor(renderer, 0xA0, 0xA0, 0xA0, 0xFF);

         SDL_RenderClear(renderer);

     }

     if (color_cursor) {

         cursor = init_color_cursor(color_cursor);

     } else {

         cursor = init_system_cursor(arrow);

     }

     if (!cursor) {

         SDL_Log("Error, couldn't create cursor\n");

         quit(2);

     }

     SDL_SetCursor(cursor);

     /* Main render loop */

     done = 0;

 #ifdef __EMSCRIPTEN__

     emscripten_set_main_loop(loop, 0, 1);

 #else

     while (!done) {

         loop();

     }

 #endif

     SDL_FreeCursor(cursor);

     quit(0);

     /* keep the compiler happy ... */

     return(0);

 }