#include <libraries/commodities.h>
#include <string.h>
#include <stdio.h>

#include <proto/exec.h>

typedef CxObj * (*CREATECXOBJ_FUNC)(register ULONG type asm("d0"),
                 register ULONG arg1 asm("a0"),
                 register ULONG arg2 asm("a1"),
                 register struct Library *lib asm("a6"));
             

CREATECXOBJ_FUNC old_createcxobj;


#define LVO_CreateCxObj (-6 * 5)

CxObj * New_CreateCxObj(register ULONG type asm("d0"),
                        register ULONG arg1 asm("a0"),
                        register ULONG arg2 asm("a1"),
                        register struct Library *lib asm("a6"))
{
    if (type == CX_FILTER)
    {
             if (!strcasecmp((STRPTR)arg1, "f1")) arg1 = (ULONG)"alt f1";
        else if (!strcasecmp((STRPTR)arg1, "f2")) arg1 = (ULONG)"alt f2";
        else if (!strcasecmp((STRPTR)arg1, "f3")) arg1 = (ULONG)"alt f3";
        /* ... */
        
    }    
    return old_createcxobj(type, arg1, arg2, lib);
}


int main(void)
{
    struct Library * lib = OpenLibrary("commodities.library", 0);
    
    if (lib)    
    {
        Forbid();
        old_createcxobj = (CREATECXOBJ_FUNC)SetFunction(lib, LVO_CreateCxObj, (APTR)New_CreateCxObj);
        Permit();
    
        printf("Patch installedn");
        
        for(;;)
        {
            CREATECXOBJ_FUNC act_CreateCxObj;

            Wait(SIGBREAKF_CTRL_C);

            Forbid();
            act_CreateCxObj = (CREATECXOBJ_FUNC)SetFunction(lib, LVO_CreateCxObj, (APTR)old_createcxobj);
            if (act_CreateCxObj == New_CreateCxObj)
            {
                Permit();
                break;
            }

            SetFunction(lib, LVO_CreateCxObj, (APTR)act_CreateCxObj);
            Permit();

            printf("Cannot remove patch!n");
        }
        
        CloseLibrary(lib);
    }
    else
    {
        printf("Cannot open commodities.library!n");
    }
        
}

#include <exec/interrupts.h>
#include <devices/input.h>
#include <devices/inputevent.h>
#include <proto/exec.h>
#include <proto/input.h>
#include <clib/alib_protos.h>

#define PRI1 121
#define PRI2 119

#define NAME1 "FKEYHACK1"
#define NAME2 "FKEYHACK2"

#define QUAL IEQUALIFIER_LALT

#define SHIFTALTCTRL (IEQUALIFIER_LALT | IEQUALIFIER_RALT | IEQUALIFIER_LSHIFT | IEQUALIFIER_RSHIFT | IEQUALIFIER_CONTROL)
#define IECLASS_HACK 0x7C

struct MsgPort *mp;
struct IOStdReq *io;
struct Interrupt i1, i2;

struct InputEvent *ihandler1(register struct InputEvent *ie asm("a0"))
{
    struct InputEvent *e = ie;
 
    while(e)
    {
    	if (e->ie_Class == IECLASS_RAWKEY)
	{
	    int code = e->ie_Code &~ IECODE_UP_PREFIX;
	    int quali = e->ie_Qualifier & SHIFTALTCTRL;

	    if (code >= 0x50 && code <= 0x59) /* F1 .. F10 */
	    {
	        if (!quali)
		{
		    e->ie_Class = IECLASS_HACK;
		}
		else if (quali == QUAL)
		{
		    e->ie_Qualifier &= ~QUAL;
		}
	    }

	}
    	e = e->ie_NextEvent;
    }
    
    return ie;
}

struct InputEvent *ihandler2(register struct InputEvent *ie asm("a0"))
{
    struct InputEvent *e = ie;
 
    while(e)
    {
    	if (e->ie_Class == IECLASS_HACK)
	{
	    e->ie_Class = IECLASS_RAWKEY;
	}
    	e = e->ie_NextEvent;
    }
    
    return ie;
}


void dohandler(int cmd, struct Interrupt *i)
{
    io->io_Command = cmd;
    io->io_Data = i;
    DoIO((struct IORequest *)io);
}

int main(void)
{
    mp = CreateMsgPort();
    io = CreateIORequest(mp, sizeof(*io));
    
    i1.is_Code = (void *)ihandler1;
    i1.is_Node.ln_Pri = PRI1;
    i1.is_Node.ln_Name = NAME1;
    
    i2.is_Code = (void *)ihandler2;
    i2.is_Node.ln_Pri = PRI2;
    i2.is_Node.ln_Name = NAME2;
    
    if (!OpenDevice("input.device", 0, (struct IORequest *)io, 0))
    {
    	struct InputEvent *ie;
	
        dohandler(IND_ADDHANDLER, &i1);
        dohandler(IND_ADDHANDLER, &i2);
        
      	Wait(SIGBREAKF_CTRL_C);

        dohandler(IND_REMHANDLER, &i2);
        dohandler(IND_REMHANDLER, &i1);
        	
    	CloseDevice((struct IORequest *)io);
    }

    DeleteIORequest(io);
    DeleteMsgPort(mp);        
}