#include "common.h"

static CommonState *state;

static SDL_Rect textRect, markedRect;

static SDL_Color lineColor = {0,0,0,0};

static SDL_Color backColor = {255,255,255,0};

static SDL_Color textColor = {0,0,0,0};

static char text[MAX_TEXT_LENGTH], markedText[SDL_TEXTEDITINGEVENT_TEXT_SIZE];

static int cursor = 0;

static TTF_Font *font;

    printf("usage: testime [--font fontfile]\n");

void InitInput()

{

    /* Prepare a rect for text input */

    textRect.x = textRect.y = 100;

    textRect.w = DEFAULT_WINDOW_WIDTH - 2 * textRect.x;

    textRect.h = 50;

    text[0] = 0;

    markedRect = textRect;

    markedText[0] = 0;

    SDL_StartTextInput();

}

void CleanupVideo()

    SDL_StopTextInput();

#ifdef HAVE_SDL_TTF

    TTF_CloseFont(font);

    TTF_Quit();

#endif

}

void _Redraw(SDL_Renderer * renderer) {

    int w = 0, h = textRect.h;

    SDL_Rect cursorRect, underlineRect;

    SDL_SetRenderDrawColor(renderer, 255,255,255,255);

    SDL_RenderFillRect(renderer,&textRect);

#ifdef HAVE_SDL_TTF

    if (*text)

    {

        SDL_Surface *textSur = TTF_RenderUTF8_Blended(font, text, textColor);

        SDL_Rect dest = {textRect.x, textRect.y, textSur->w, textSur->h };

        SDL_Texture *texture = SDL_CreateTextureFromSurface(renderer,textSur);

        SDL_FreeSurface(textSur);

        SDL_RenderCopy(renderer,texture,NULL,&dest);

        SDL_DestroyTexture(texture);

        TTF_SizeUTF8(font, text, &w, &h);

    }

#endif

    markedRect.x = textRect.x + w;

    markedRect.w = textRect.w - w;

    if (markedRect.w < 0)

    {

        // Stop text input because we cannot hold any more characters

        SDL_StopTextInput();

        return;

    }

    else

    {

        SDL_StartTextInput();

    }

    cursorRect = markedRect;

    cursorRect.w = 2;

    cursorRect.h = h;

    SDL_SetRenderDrawColor(renderer, 255,255,255,255);

    SDL_RenderFillRect(renderer,&markedRect);

    if (markedText[0])

    {

#ifdef HAVE_SDL_TTF

        if (cursor)

        {

            char *p = utf8_advance(markedText, cursor);

            char c = 0;

            if (!p)

                p = &markedText[strlen(markedText)];

            c = *p;

            *p = 0;

            TTF_SizeUTF8(font, markedText, &w, 0);

            cursorRect.x += w;

            *p = c;

        }

        SDL_Surface *textSur = TTF_RenderUTF8_Blended(font, markedText, textColor);

        SDL_Rect dest = {markedRect.x, markedRect.y, textSur->w, textSur->h };

        TTF_SizeUTF8(font, markedText, &w, &h);

        SDL_Texture *texture = SDL_CreateTextureFromSurface(renderer,textSur);

        SDL_FreeSurface(textSur);

        SDL_RenderCopy(renderer,texture,NULL,&dest);

        SDL_DestroyTexture(texture);

#endif

        underlineRect = markedRect;

        underlineRect.y += (h - 2);

        underlineRect.h = 2;

        underlineRect.w = w;

        SDL_SetRenderDrawColor(renderer, 0,0,0,0);

        SDL_RenderFillRect(renderer,&markedRect);

    }

    SDL_SetRenderDrawColor(renderer, 0,0,0,0);

    SDL_RenderFillRect(renderer,&cursorRect);

    SDL_SetTextInputRect(&markedRect);

}

void Redraw() {

    int i;

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

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

        SDL_SetRenderDrawColor(renderer, 0, 0, 0, 0);

        SDL_RenderClear(renderer);

        _Redraw(renderer);

        SDL_RenderPresent(renderer);

    }

}

int main(int argc, char *argv[]) {

    int i, done;

    SDL_Event event;

    /* Initialize test framework */

    state = CommonCreateState(argv, SDL_INIT_VIDEO);

    if (!state) {

        return 1;

    }

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

        CommonArg(state, i);

    }

        if (strcmp(argv[0], "--help") == 0) {

            return 0;

        }

            else {

                return 0;

            }

    if (!CommonInit(state)) {

        return 2;

    }

    InitInput();

    /* Create the windows and initialize the renderers */

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

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

        SDL_SetRenderDrawBlendMode(renderer, SDL_BLENDMODE_NONE);

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

        SDL_RenderClear(renderer);

    Redraw();    

    /* Main render loop */

    done = 0;

    while (!done) {

        /* Check for events */

        while (SDL_PollEvent(&event)) {

            CommonEvent(state, &event, &done);

            switch(event.type) {

                case SDL_KEYDOWN: {

                    switch (event.key.keysym.sym)

                    {

                        case SDLK_RETURN:

                             text[0]=0x00;

                             Redraw();

                             break;

                        case SDLK_BACKSPACE:

                             {

                                 int textlen=SDL_strlen(text);

                                 do {

                                     if (textlen==0)

                                     {

                                         break;

                                     }

                                     if ((text[textlen-1] & 0x80) == 0x00)

                                     {

                                         /* One byte */

                                         text[textlen-1]=0x00;

                                         break;

                                     }

                                     if ((text[textlen-1] & 0xC0) == 0x80)

                                     {

                                         /* Byte from the multibyte sequence */

                                         text[textlen-1]=0x00;

                                         textlen--;

                                     }

                                     if ((text[textlen-1] & 0xC0) == 0xC0)

                                     {

                                         /* First byte of multibyte sequence */

                                         text[textlen-1]=0x00;

                                         break;

                                     }

                                 } while(1);

                                 Redraw();

                             }

                             break;

                    }

                    if (done)

                    {

                        break;

                    }

                    fprintf(stderr,

                            "Keyboard: scancode 0x%08X = %s, keycode 0x%08X = %s\n",

                            event.key.keysym.scancode,

                            SDL_GetScancodeName(event.key.keysym.scancode),

                            event.key.keysym.sym, SDL_GetKeyName(event.key.keysym.sym));

                    break;

                case SDL_TEXTINPUT:

                    if (SDL_strlen(event.text.text) == 0 || event.text.text[0] == '\n' ||

                        markedRect.w < 0)

                        break;

                    fprintf(stderr, "Keyboard: text input \"%s\"\n", event.text.text);

                    if (SDL_strlen(text) + SDL_strlen(event.text.text) < sizeof(text))

                        SDL_strlcat(text, event.text.text, sizeof(text));

                    fprintf(stderr, "text inputed: %s\n", text);

                    // After text inputed, we can clear up markedText because it

                    // is committed

                    markedText[0] = 0;

                    Redraw();

                    break;

                case SDL_TEXTEDITING:

                    fprintf(stderr, "text editing \"%s\", selected range (%d, %d)\n",

                            event.edit.text, event.edit.start, event.edit.length);

                    strcpy(markedText, event.edit.text);

                    cursor = event.edit.start;

                    Redraw();

                    break;

                }

                break;

            }

        }

    }

    CleanupVideo();

    CommonQuit(state);

    return 0;