/** @file
 *
 * VBox frontends: Framebuffer (FB, DirectFB):
 * main() routine
 */

/*
 * Copyright (C) 2006-2007 Sun Microsystems, Inc.
 *
 * This file is part of VirtualBox Open Source Edition (OSE), as
 * available from http://www.virtualbox.org. This file is free software;
 * you can redistribute it and/or modify it under the terms of the GNU
 * General Public License (GPL) as published by the Free Software
 * Foundation, in version 2 as it comes in the "COPYING" file of the
 * VirtualBox OSE distribution. VirtualBox OSE is distributed in the
 * hope that it will be useful, but WITHOUT ANY WARRANTY of any kind.
 *
 * Please contact Sun Microsystems, Inc., 4150 Network Circle, Santa
 * Clara, CA 95054 USA or visit http://www.sun.com if you need
 * additional information or have any questions.
 */

#include "VBoxFB.h"
#include "Framebuffer.h"
#include <getopt.h>
#include <VBox/param.h>
#include <iprt/path.h>

/**
 * Globals
 */
uint32_t useFixedVideoMode = 0;
int scaleGuest = 0;
videoMode fixedVideoMode = {0};
int32_t initialVideoMode = -1;

void showusage()
{
    printf("\nThe following parameters are supported:\n"
            "--startvm uuid       start VM with UUID 'uuid'\n"
            "--fixedres WxHxBPP   always use fixed host resolution\n"
            "--listhostmodes      display list of suported host display modes and exit\n"
            "--scale              scale guest video mode to host video mode\n"
            "--nodirectblit       disable direct blitting, use intermediate framebuffer\n"
            "--showlabel          show VM name on top of the VM display\n");
}

/** entry point */
int main(int argc, char *argv[])
{
    nsID uuid;
    int c;
    int listHostModes = 0;
    int quit = 0;
    const struct option options[] =
    {
        { "help",          no_argument,       NULL, 'h' },
        { "startvm",       required_argument, NULL, 's' },
        { "fixedres",      required_argument, NULL, 'f' },
        { "listhostmodes", no_argument,       NULL, 'l' },
        { "scale",         no_argument,       NULL, 'c' }
    };

    printf("VirtualBox DirectFB GUI built %s %s\n"
           "(C) 2004-2008 Sun Microsystems, Inc.\n"
           "(C) 2004-2005 secunet Security Networks AG\n", __DATE__, __TIME__);

    RTUuidClear((PRTUUID)&uuid);

    for (;;)
    {
        c = getopt_long(argc, argv, "s:", options, NULL);
        if (c == -1)
            break;
        switch (c)
        {
            case 'h':
            {
                showusage();
                exit(0);
                break;
            }
            case 's':
            {
                // UUID as string, parse it
                if (!VBOX_SUCCESS(RTUuidFromStr((PRTUUID)&uuid, optarg)))
                {
                    printf("Error, invalid UUID format given!\n");
                    showusage();
                    exit(-1);
                }
                break;
            }
            case 'f':
            {
                if (sscanf(optarg, "%ux%ux%u", &fixedVideoMode.width, &fixedVideoMode.height,
                           &fixedVideoMode.bpp) != 3)
                {
                    printf("Error, invalid resolution argument!\n");
                    showusage();
                    exit(-1);
                }
                useFixedVideoMode = 1;
                break;
            }
            case 'l':
            {
                listHostModes = 1;
                break;
            }
            case 'c':
            {
                scaleGuest = 1;
                break;
            }
            default:
                break;
        }
    }

    // check if we got a UUID
    if (RTUuidIsNull((PRTUUID)&uuid))
    {
        printf("Error, no UUID given!\n");
        showusage();
        exit(-1);
    }


    /**
     * XPCOM setup
     */

    nsresult rc;
    XPCOMGlueStartup(nsnull);

    // get the path to the executable
    char appPath [RTPATH_MAX];
    RTPathProgram (appPath, RTPATH_MAX);

    nsCOMPtr<nsIFile> nsAppPath;
    {
        nsCOMPtr<nsILocalFile> file;
        rc = NS_NewNativeLocalFile(nsEmbedCString (appPath), PR_FALSE,
                                   getter_AddRefs (file));
        if (NS_SUCCEEDED(rc))
        {
            nsAppPath = do_QueryInterface(file, &rc);
        }
    }
    if (NS_FAILED(rc))
    {
        printf ("Error: failed to create file object! (rc=%08X)\n", rc);
        exit(-1);
    }

    nsCOMPtr<nsIServiceManager> serviceManager;
    rc = NS_InitXPCOM2(getter_AddRefs(serviceManager), nsAppPath, nsnull);
    if (NS_FAILED(rc))
    {
        printf("Error: XPCOM could not be initialized! rc=0x%x\n", rc);
        exit(-1);
    }

    // register our component
    nsCOMPtr<nsIComponentRegistrar> registrar = do_QueryInterface(serviceManager);
    if (!registrar)
    {
        printf("Error: could not query nsIComponentRegistrar interface!\n");
        exit(-1);
    }
    registrar->AutoRegister(nsnull);

    nsCOMPtr<ipcIService> ipcServ = do_GetService(IPC_SERVICE_CONTRACTID, &rc);
    if (NS_FAILED(rc))
    {
        printf("Error: could not get IPC service! rc = %08X\n", rc);
        exit(-1);
    }

    nsCOMPtr<ipcIDConnectService> dcon = do_GetService(IPC_DCONNECTSERVICE_CONTRACTID, &rc);
    if (NS_FAILED(rc))
    {
        printf("Error: could not get DCONNECT service! rc = %08X\n", rc);
        exit(-1);
    }

    PRUint32 serverID = 0;
    rc = ipcServ->ResolveClientName("VirtualBoxServer", &serverID);
    if (NS_FAILED(rc))
    {
        printf("Error: could not get VirtualBox server ID! rc = %08X\n", rc);
        exit(-1);
    }

    nsCOMPtr<nsIComponentManager> manager = do_QueryInterface(registrar);
    if (!manager)
    {
        printf("Error: could not query nsIComponentManager interface!\n");
        exit(-1);
    }

    nsCOMPtr<IVirtualBox> virtualBox;
    rc = dcon->CreateInstanceByContractID(
        serverID,
        NS_VIRTUALBOX_CONTRACTID,
        NS_GET_IID(IVirtualBox),
        getter_AddRefs(virtualBox));
    if (NS_FAILED(rc))
    {
        printf("Error, could not instantiate object! rc=0x%x\n", rc);
        exit(-1);
    }

    nsCOMPtr<ISession> session;
    rc = manager->CreateInstance((nsCID)NS_SESSION_CID,
                                 nsnull,
                                 NS_GET_IID(ISession),
                                 getter_AddRefs(session));
    if (NS_FAILED(rc))
    {
        printf("Error: could not instantiate Session object! rc = %08X\n", rc);
        exit(-1);
    }

    // open session for this VM
    rc = virtualBox->OpenSession(session, uuid);
    if (NS_FAILED(rc))
    {
        printf("Error: given machine not found!\n");
        exit(-1);
    }
    IMachine *machine = NULL;
    session->GetMachine(&machine);
    if (!machine)
    {
        printf("Error: given machine not found!\n");
        exit(-1);
    }
    IConsole *console = NULL;
    session->GetConsole(&console);
    if (!console)
    {
        printf("Error: cannot get console!\n");
        exit(-1);
    }

    IDisplay *display = NULL;
    console->GetDisplay(&display);
    if (!display)
    {
        printf("Error: could not get display object!\n");
        exit(-1);
    }

    IKeyboard *keyboard = NULL;
    IMouse *mouse = NULL;
    VBoxDirectFB *frameBuffer = NULL;

    /**
     * Init DirectFB
     */
    IDirectFB *dfb = NULL;
    IDirectFBSurface *surface = NULL;
    IDirectFBInputDevice *dfbKeyboard = NULL;
    IDirectFBInputDevice *dfbMouse = NULL;
    IDirectFBEventBuffer *dfbEventBuffer = NULL;
    DFBSurfaceDescription dsc;
    int screen_width, screen_height;

    DFBCHECK(DirectFBInit(&argc, &argv));
    DFBCHECK(DirectFBCreate(&dfb));
    DFBCHECK(dfb->SetCooperativeLevel(dfb, DFSCL_FULLSCREEN));
    // populate our structure of supported video modes
    DFBCHECK(dfb->EnumVideoModes(dfb, enumVideoModesHandler, NULL));

    if (listHostModes)
    {
        printf("*****************************************************\n");
        printf("Number of available host video modes: %u\n", numVideoModes);
        for (uint32_t i = 0; i < numVideoModes; i++)
        {
            printf("Mode %u: xres = %u, yres = %u, bpp = %u\n", i,
                   videoModes[i].width, videoModes[i].height, videoModes[i].bpp);
        }
        printf("Note: display modes with bpp < have been filtered out\n");
        printf("*****************************************************\n");
        goto Leave;
    }

    if (useFixedVideoMode)
    {
        int32_t bestVideoMode = getBestVideoMode(fixedVideoMode.width,
                                                 fixedVideoMode.height,
                                                 fixedVideoMode.bpp);
        // validate the fixed mode
        if ((bestVideoMode == -1) ||
            ((fixedVideoMode.width  != videoModes[bestVideoMode].width) ||
            (fixedVideoMode.height != videoModes[bestVideoMode].height) ||
            (fixedVideoMode.bpp    != videoModes[bestVideoMode].bpp)))
        {
            printf("Error: the specified fixed video mode is not available!\n");
            exit(-1);
        }
    } else
    {
        initialVideoMode = getBestVideoMode(640, 480, 16);
        if (initialVideoMode == -1)
        {
            printf("Error: initial video mode 640x480x16 is not available!\n");
            exit(-1);
        }
    }

    dsc.flags = DSDESC_CAPS;
    dsc.caps = DSCAPS_PRIMARY;
    DFBCHECK(dfb->CreateSurface(dfb, &dsc, &surface));
    DFBCHECK(surface->Clear(surface, 0, 0, 0, 0));
    DFBCHECK(surface->GetSize(surface, &screen_width, &screen_height));
    DFBCHECK(dfb->GetInputDevice(dfb, DIDID_KEYBOARD, &dfbKeyboard));
    DFBCHECK(dfbKeyboard->CreateEventBuffer(dfbKeyboard, &dfbEventBuffer));
    DFBCHECK(dfb->GetInputDevice(dfb, DIDID_MOUSE, &dfbMouse));
    DFBCHECK(dfbMouse->AttachEventBuffer(dfbMouse, dfbEventBuffer));


    if (useFixedVideoMode)
    {
        printf("Information: setting video mode to %ux%ux%u\n", fixedVideoMode.width,
               fixedVideoMode.height, fixedVideoMode.bpp);
        DFBCHECK(dfb->SetVideoMode(dfb, fixedVideoMode.width,
                                   fixedVideoMode.height, fixedVideoMode.bpp));
    } else
    {
        printf("Information: starting with default video mode %ux%ux%u\n",
               videoModes[initialVideoMode].width, videoModes[initialVideoMode].height,
               videoModes[initialVideoMode].bpp);
        DFBCHECK(dfb->SetVideoMode(dfb, videoModes[initialVideoMode].width,
                                        videoModes[initialVideoMode].height,
                                        videoModes[initialVideoMode].bpp));
    }

    // register our framebuffer
    frameBuffer = new VBoxDirectFB(dfb, surface);
    display->RegisterExternalFramebuffer(frameBuffer);

    /**
     * Start the VM execution thread
     */
    console->PowerUp(NULL);

    console->GetKeyboard(&keyboard);
    console->GetMouse(&mouse);

    /**
     * Main event loop
     */
    #define MAX_KEYEVENTS 10
    int keyEvents[MAX_KEYEVENTS];
    int numKeyEvents;

    while (!quit)
    {
        DFBInputEvent event;

        numKeyEvents = 0;
        DFBCHECK(dfbEventBuffer->WaitForEvent(dfbEventBuffer));
        while (dfbEventBuffer->GetEvent(dfbEventBuffer, DFB_EVENT(&event)) == DFB_OK)
        {
            int mouseXDelta = 0;
            int mouseYDelta = 0;
            int mouseZDelta = 0;
            switch (event.type)
            {
                #define QUEUEEXT() keyEvents[numKeyEvents++] = 0xe0
                #define QUEUEKEY(scan) keyEvents[numKeyEvents++] = scan | (event.type == DIET_KEYRELEASE ? 0x80 : 0x00)
                #define QUEUEKEYRAW(scan) keyEvents[numKeyEvents++] = scan
                case DIET_KEYPRESS:
                case DIET_KEYRELEASE:
                {
                    // @@@AH development hack to get out of it!
                    if ((event.key_id == DIKI_ESCAPE) && (event.modifiers & (DIMM_CONTROL | DIMM_ALT)))
                        quit = 1;

                    if (numKeyEvents < MAX_KEYEVENTS)
                    {
                        //printf("%s: key_code: 0x%x\n", event.type == DIET_KEYPRESS ? "DIET_KEYPRESS" : "DIET_KEYRELEASE", event.key_code);
                        switch ((uint32_t)event.key_id)
                        {
                            case DIKI_ALTGR:
                                QUEUEEXT();
                                QUEUEKEY(0x38);
                                break;
                            case DIKI_CONTROL_R:
                                QUEUEEXT();
                                QUEUEKEY(0x1d);
                                break;
                            case DIKI_INSERT:
                                QUEUEEXT();
                                QUEUEKEY(0x52);
                                break;
                            case DIKI_DELETE:
                                QUEUEEXT();
                                QUEUEKEY(0x53);
                                break;
                            case DIKI_HOME:
                                QUEUEEXT();
                                QUEUEKEY(0x47);
                                break;
                            case DIKI_END:
                                QUEUEEXT();
                                QUEUEKEY(0x4f);
                                break;
                            case DIKI_PAGE_UP:
                                QUEUEEXT();
                                QUEUEKEY(0x49);
                                break;
                            case DIKI_PAGE_DOWN:
                                QUEUEEXT();
                                QUEUEKEY(0x51);
                                break;
                            case DIKI_LEFT:
                                QUEUEEXT();
                                QUEUEKEY(0x4b);
                                break;
                            case DIKI_RIGHT:
                                QUEUEEXT();
                                QUEUEKEY(0x4d);
                                break;
                            case DIKI_UP:
                                QUEUEEXT();
                                QUEUEKEY(0x48);
                                break;
                            case DIKI_DOWN:
                                QUEUEEXT();
                                QUEUEKEY(0x50);
                                break;
                            case DIKI_KP_DIV:
                                QUEUEEXT();
                                QUEUEKEY(0x35);
                                break;
                            case DIKI_KP_ENTER:
                                QUEUEEXT();
                                QUEUEKEY(0x1c);
                                break;
                            case DIKI_PRINT:
                                // the break code is inverted!
                                if (event.type == DIET_KEYPRESS)
                                {
                                    QUEUEEXT();
                                    QUEUEKEY(0x2a);
                                    QUEUEEXT();
                                    QUEUEKEY(0x37);
                                } else
                                {
                                    QUEUEEXT();
                                    QUEUEKEY(0x37);
                                    QUEUEEXT();
                                    QUEUEKEY(0x2a);
                                }
                                break;
                            case DIKI_PAUSE:
                                // This is a super weird key. No break code and a 6 byte
                                // combination.
                                if (event.type == DIET_KEYPRESS)
                                {
                                    QUEUEKEY(0xe1);
                                    QUEUEKEY(0x1d);
                                    QUEUEKEY(0x45);
                                    QUEUEKEY(0xe1);
                                    QUEUEKEY(0x9d);
                                    QUEUEKEY(0xc5);
                                }
                                break;
                            case DIKI_META_L:
                                // the left Windows logo is a bit different
                                if (event.type == DIET_KEYPRESS)
                                {
                                    QUEUEEXT();
                                    QUEUEKEYRAW(0x1f);
                                } else
                                {
                                    QUEUEEXT();
                                    QUEUEKEYRAW(0xf0);
                                    QUEUEKEYRAW(0x1f);
                                }
                                break;
                            case DIKI_META_R:
                                // the right Windows logo is a bit different
                                if (event.type == DIET_KEYPRESS)
                                {
                                    QUEUEEXT();
                                    QUEUEKEYRAW(0x27);
                                } else
                                {
                                    QUEUEEXT();
                                    QUEUEKEYRAW(0xf0);
                                    QUEUEKEYRAW(0x27);
                                }
                                break;
                            case DIKI_SUPER_R:
                                // the popup menu is a bit different
                                if (event.type == DIET_KEYPRESS)
                                {
                                    QUEUEEXT();
                                    QUEUEKEYRAW(0x2f);
                                } else
                                {
                                    QUEUEEXT();
                                    QUEUEKEYRAW(0xf0);
                                    QUEUEKEYRAW(0x2f);
                                }
                                break;

                            default:
                                // check if we got a hardware scancode
                                if (event.key_code != -1)
                                {
                                    // take the scancode from DirectFB as is
                                    QUEUEKEY(event.key_code);
                                } else
                                {
                                    // XXX need extra handling!
                                }
                        }
                    }
                    break;
                }
                #undef QUEUEEXT
                #undef QUEUEKEY
                #undef QUEUEKEYRAW

                case DIET_AXISMOTION:
                {
                    switch (event.axis)
                    {
                        case DIAI_X:
                            mouseXDelta += event.axisrel;
                            break;
                        case DIAI_Y:
                            mouseYDelta += event.axisrel;
                            break;
                        case DIAI_Z:
                            mouseZDelta += event.axisrel;
                            break;
                        default:
                            break;
                    }
                    // fall through
                }
                case DIET_BUTTONPRESS:
                    // fall through;
                case DIET_BUTTONRELEASE:
                {
                    int buttonState = 0;
                    if (event.buttons & DIBM_LEFT)
                        buttonState |= MouseButtonState::LeftButton;
                    if (event.buttons & DIBM_RIGHT)
                        buttonState |= MouseButtonState::RightButton;
                    if (event.buttons & DIBM_MIDDLE)
                        buttonState |= MouseButtonState::MiddleButton;
                    mouse->PutMouseEvent(mouseXDelta, mouseYDelta, mouseZDelta,
                                         buttonState);
                    break;
                }
                default:
                    break;
            }
        }
        // did we get any keyboard events?
        if (numKeyEvents > 0)
        {
            uint32_t codesStored;
            if (numKeyEvents > 1)
            {
                com::SafeArray <LONG> keys (numKeyEvents);
                for (size_t idx = 0; idx < keys.size();  ++idx)
                    keys[idx] = keyEvents[idx];
                keyboard->PutScancodes(ComSafeArrayAsInParam(keys),
                                       &codesStored);
            } else
            {
                keyboard->PutScancode(keyEvents[0]);
            }
        }
    }
    console->PowerDown();
Leave:
    if (mouse)
        mouse->Release();
    if (keyboard)
        keyboard->Release();
    if (display)
        display->Release();
    if (console)
        console->Release();
    if (machine)
        machine->Release();
    virtualBox = NULL;

    if (dfbEventBuffer)
        dfbEventBuffer->Release(dfbEventBuffer);
    if (dfbMouse)
        dfbMouse->Release(dfbMouse);
    if (dfbKeyboard)
        dfbKeyboard->Release(dfbKeyboard);
    if (surface)
        surface->Release(surface);
    if (dfb)
        dfb->Release(dfb);

    return 0;
}