/*
 * modifiers - asserts (un)pressed modifier keys
 * (c) 2002, Francois Revol, revol@free.fr
 * for Haiku
 * compile with:
 * LDFLAGS=-lbe make modifiers
 */

#include <OS.h>
#include <stdio.h>
#include <string.h>
#include <strings.h>
#include <InterfaceDefs.h>


int32 modifier_bits[] = {
        B_SHIFT_KEY,
        B_COMMAND_KEY,
        B_CONTROL_KEY,
        B_CAPS_LOCK,
        B_SCROLL_LOCK,
        B_NUM_LOCK,
        B_OPTION_KEY,
        B_MENU_KEY,
        B_LEFT_SHIFT_KEY,
        B_RIGHT_SHIFT_KEY,
        B_LEFT_COMMAND_KEY,
        B_RIGHT_COMMAND_KEY,
        B_LEFT_CONTROL_KEY,
        B_RIGHT_CONTROL_KEY,
        B_LEFT_OPTION_KEY,
        B_RIGHT_OPTION_KEY,
        0
};


const char *modifier_names[] = { "shift", "command", "control", "capslock", "scrolllock", "numlock", "option", "menu", "lshift", "rshift", "lcommand", "rcommand", "lcontrol", "rcontrol", "loption", "roption", NULL };


int
usage(char *progname, int error)
{
        FILE *outstr;
        outstr = error?stderr:stdout;
        fprintf(outstr, "Usage: %s [-help] [-list] [-/+][[|l|r][shift|control|command|option]|capslock|scrolllock|numlock|menu]\n", progname);
        fprintf(outstr, "\t- asserts unpressed modifier,\n");
        fprintf(outstr, "\t+ asserts pressed modifier,\n");
        return error;
}


int
list_modifiers(int mods)
{
        int i;
        int gotone = 0;
        for (i = 0; modifier_names[i]; i++) {
                if (mods & modifier_bits[i]) {
                        if (gotone)
                                printf(",");
                        printf("%s", modifier_names[i]);
                        gotone = 1;
                }
                if (modifier_names[i+1] == NULL)
                        printf("\n");
        }
        return 0;
}


int
main(int argc, char **argv)
{
        int32 mods;
        int32 mask_xor = 0x0;
        int32 mask_and = 0x0;
        int i, j;

        mods = modifiers();
        if (argc == 1)
                return usage(argv[0], 1);
        for (i=1; i<argc; i++) {
                if (!strncmp(argv[i], "-h", 2))
                        return usage(argv[0], 0);
                else if (!strcmp(argv[i], "-list"))
                        return list_modifiers(mods);
                else if (strlen(argv[i]) > 1 && (*argv[i] == '-' || *argv[i] ==  '+')) {
                        for (j=0; modifier_names[j]; j++) {
                                if (!strcmp(argv[i]+1, modifier_names[j])) {
                                        if (*argv[i] == '-')
                                                mask_and |= modifier_bits[j];
                                        else
                                                mask_xor |= modifier_bits[j];
                                        break;
                                }
                        }
                        if (modifier_names[j] == NULL)
                                return usage(argv[0], 1);
                } else
                        return usage(argv[0], 1);
        }
        mask_and |= mask_xor;
        return (((mods & mask_and) ^ mask_xor) != 0);
}