/*
        Copyright 2007, Francois Revol.   All Rights Reserved.
        This file may be used under the terms of the Be Sample Code License.
*/

//#define DEBUG 1

#include <stdlib.h>
#include <string.h>
#include <ctype.h>

#include <Debug.h>
#include <List.h>
#include <Message.h>
#include <OS.h>

#include <Application.h>
#include <Menu.h>
#include <MenuItem.h>
#include <Region.h>

#if DEBUG
//#include <File.h>
#include <Alert.h>
#include <Button.h>
#include <TextView.h>
#include <StringIO.h>
#include "DumpMessage.h"
#endif

#include <add-ons/input_server/InputServerDevice.h>
#include <add-ons/input_server/InputServerMethod.h>

#include "PenIcon.h"

#include "PenInputServerMethod.h"
#include "PenInputLooper.h"
#include "PenInputStrings.h"

BInputServerMethod* instantiate_input_method()
{
        PRINT(("%s\n", __FUNCTION__));
        return (new PenInputServerMethod());
}


PenInputServerMethod::PenInputServerMethod()
  : BInputServerMethod("Pen", PenIconData),
    fEnabled(false)
{
        PRINT(("%s\n", __FUNCTION__));
#if DEBUG
        //fDebugFile.SetTo("/tmp/PenInputMethodMessages.txt", B_READ_WRITE|B_CREATE_FILE);
        fDebugAlert = new BAlert("PenInput Debug", "Plip                                   \n\n\n\n\n\n\n\n\n\n\n\n\n", "OK");
        fDebugAlert->SetLook(B_TITLED_WINDOW_LOOK);
        fDebugAlert->SetFlags(fDebugAlert->Flags() | B_CLOSE_ON_ESCAPE);
        fDebugAlert->TextView()->MakeSelectable();
        fDebugAlert->TextView()->SelectAll();
        fDebugAlert->TextView()->Delete();
        fDebugAlert->ButtonAt(0)->SetEnabled(false);
        BRegion r;
        GetScreenRegion(&r);
        BString s;
        s << r.CountRects() << " rects\n";
        fDebugAlert->TextView()->Insert(s.String());
        fDebugAlert->Go(NULL);
        
        
#endif
}

PenInputServerMethod::~PenInputServerMethod()
{
        PRINT(("%s\n", __FUNCTION__));
        SetMenu(NULL, BMessenger());
#if DEBUG
        fDebugAlert->Lock();
        fDebugAlert->Quit();
#endif
        BLooper *looper = NULL;
        fLooper.Target(&looper);
        if (looper != NULL)
        {
                if (looper->Lock())
                        looper->Quit();
        }
}

status_t PenInputServerMethod::InitCheck()
{
        PenInputLooper *looper;
        status_t err;
        PRINT(("%s\n", __FUNCTION__));
        looper = new PenInputLooper(this);
        looper->Lock();
        err = looper->InitCheck();
        looper->Unlock();
        fLooper = BMessenger(NULL, looper);
        return err;
}


filter_result PenInputServerMethod::Filter(BMessage *message, BList *outList)
{
        status_t err;
        filter_result res = B_DISPATCH_MESSAGE;

        if (!IsEnabled())
                return B_DISPATCH_MESSAGE;
        
        
#if 0//DEBUG
        //message->Flatten(&fDebugFile);
        BStringIO sio;
        DumpMessageToStream(message, sio);
        fDebugAlert->Lock();
        fDebugAlert->TextView()->Insert(sio.String());
        fDebugAlert->Unlock();
#endif
        switch (message->what) {
        case B_KEY_UP:
        case B_KEY_DOWN:
        case B_UNMAPPED_KEY_UP:
        case B_UNMAPPED_KEY_DOWN:
        case B_MODIFIERS_CHANGED:
        case B_MOUSE_WHEEL_CHANGED:
                return B_DISPATCH_MESSAGE;
        default:
                //case B_MOUSE_MOVED:
                fLooper.SendMessage(message);
                return B_SKIP_MESSAGE;
        }


#if 0
        if (message->what == B_MOUSE_MOVED) {
          BMessage *mDown = new BMessage(B_KEY_DOWN);
          BMessage *mUp;
          char states[16];
          mDown->AddInt32("modifiers", 0x0);
          mDown->AddInt32("key", 94);
          mDown->AddInt32("raw_char", 32);
          mDown->AddData("states", 'UBYT', states, sizeof(states));
          mDown->AddString("bytes", " ");
          mDown->AddData("byte", 'BYTE', " ", 1);
          mUp = new BMessage(*mDown);
          mUp->what = B_KEY_UP;
          outList->AddItem(mDown);
          outList->AddItem(mUp);
        }
#endif
        if (message->what == B_MOUSE_DOWN) {
          int32 buttons;
          int32 modifiers;
          BPoint where;
          if (message->FindInt32("buttons", &buttons) == B_OK) {
            /* replace first with a button that likely won't exist,
             * and so shouldn't cause any side effect (hmm err...) */
            /* XXX: use get_mouse_map() ? */
            if (buttons == B_PRIMARY_MOUSE_BUTTON)
              //message->ReplaceInt32("buttons", 0x0000);
              message->what = B_MOUSE_UP;
          }
          
#if 0
          outList->AddItem(new BMessage(*message));
          BMessage *m = new BMessage(B_MOUSE_MOVED);
          if (message->FindInt32("buttons", &buttons) == B_OK)
            m->AddInt32("buttons", buttons);
          if (message->FindInt32("modifiers", &modifiers) == B_OK)
            m->AddInt32("modifiers", modifiers);
          if (message->FindPoint("where", &where) == B_OK)
            m->AddPoint("where", where);
          outList->AddItem(m);
#endif
#if DEBUG
          fDebugAlert->Lock();
          fDebugAlert->TextView()->Insert(">>>\n");
          fDebugAlert->Unlock();
#endif
#if 0
          m = new BMessage(B_INPUT_METHOD_EVENT);
          m->AddInt32("be:opcode", B_INPUT_METHOD_STARTED);
          m->AddMessenger("be:reply_to", this);
          EnqueueMessage(m);
          m = new BMessage(B_INPUT_METHOD_EVENT);
          m->AddInt32("be:opcode", B_INPUT_METHOD_LOCATION_REQUEST);
          m->AddString("be:string", " ");
          EnqueueMessage(m);
          m = new BMessage(B_INPUT_METHOD_EVENT);
          m->AddInt32("be:opcode", B_INPUT_METHOD_STOPPED);
          EnqueueMessage(m);
          sleep(3);
#endif
#if DEBUG
          fDebugAlert->Lock();
          fDebugAlert->TextView()->Insert("<<<\n");
          fDebugAlert->Unlock();
#endif
        }
        

        
        return (res);
}

status_t PenInputServerMethod::MethodActivated(bool active)
{
        fEnabled = active;

        BMessage msg(MSG_METHOD_ACTIVATED);
        if (active)
                msg.AddBool(MSGF_ACTIVE, true);
        fLooper.SendMessage( &msg );
        
        return B_OK;
}