/*
 *    HardInfo - Displays System Information
 *    Copyright (C) 2003-2006 L. A. F. Pereira <l@tia.mat.br>
 *
 *    This program is free software; you can redistribute it and/or modify
 *    it under the terms of the GNU General Public License as published by
 *    the Free Software Foundation, version 2 or later.
 *
 *    This program is distributed in the hope that it will be useful,
 *    but WITHOUT ANY WARRANTY; without even the implied warranty of
 *    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *    GNU General Public License for more details.
 *
 *    You should have received a copy of the GNU General Public License
 *    along with this program; if not, write to the Free Software
 *    Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
 */

#include <string.h>

#include "hardinfo.h"
#include "devices.h"
#include "usb_util.h"

gchar *input_icons = NULL;

static struct {
    char *name;
    char *icon;
} input_devices[] = {
    { NULL,       "module.png"   }, // UNKNOWN
    { "Keyboard", "keyboard.png" },
    { "Joystick", "joystick.png" },
    { "Mouse",    "mouse.png"    },
    { "Speaker",  "audio.png"    },
    { "Audio",    "audio.png"    }
};

// source: https://elixir.bootlin.com/linux/v5.9/source/include/uapi/linux/input.h#L251
static const gchar *bus_types[] = {
    NULL,          "PCI",            "ISA PnP",          "USB",        // 0x0  - 0x3
    "HIL",         "Bluetooth",      "Virtual",          NULL,         // 0x4  - 0x7
    NULL,          NULL,             NULL,               NULL,         // 0x8  - 0xB
    NULL,          NULL,             NULL,               NULL,         // 0xC  - 0xF
    "ISA",         "i8042",          "XT Keyboard bus",  "RS232",      // 0x10 - 0x13
    "Game port",   "Parallel port",  "Amiga bus",        "ADB",        // 0x14 - 0x17
    "I²C",         "HOST",           "GSC",              "Atari bus",  // 0x18 - 0x1B
    "SPI",         "RMI",            "CEC",              "Intel ISHTP" // 0x1C - 0x1F
};

#define UNKWNIFNULL(f) ((f) ? f : _("(Unknown)"))
#define EMPTYIFNULL(f) ((f) ? f : "")

void
__scan_input_devices(void)
{
    FILE *dev;
    gchar buffer[1024];
    vendor_list vl = NULL;
    gchar *tmp, *name = NULL, *phys = NULL;
    gchar *vendor_str = NULL, *product_str = NULL, *vendor_tags = NULL;
    gint bus = 0, vendor = 0, product = 0, version = 0;
    const gchar *bus_str = NULL;
    int d = 0, n = 0;

    dev = fopen("/proc/bus/input/devices", "r");
    if (!dev)
    return;

    if (input_list) {
        moreinfo_del_with_prefix("DEV:INP");
        g_free(input_list);
        g_free(input_icons);
    }
    input_list = g_strdup("");
    input_icons = g_strdup("");

    while (fgets(buffer, sizeof(buffer), dev)) {
        tmp = buffer;

        switch (*tmp) {
        case 'N':
            tmp = strreplacechr(tmp + strlen("N: Name="), "=", ':');
            name = g_strdup(tmp);
            remove_quotes(name);
            break;
        case 'P':
            phys = g_strdup(tmp + strlen("P: Phys="));
            break;
        case 'I':
            sscanf(tmp, "I: Bus=%x Vendor=%x Product=%x Version=%x",
                    &bus, &vendor, &product, &version);
            break;
        case 'H':
            if (strstr(tmp, "kbd"))
            d = 1;      //INPUT_KEYBOARD;
            else if (strstr(tmp, "js"))
            d = 2;      //INPUT_JOYSTICK;
            else if (strstr(tmp, "mouse"))
            d = 3;      //INPUT_MOUSE;
            else
            d = 0;      //INPUT_UNKNOWN;
            break;
        case '\n':
            if (name && strstr(name, "PC Speaker")) {
                d = 4;    // INPUT_PCSPKR
            }
            if (d == 0 && g_strcmp0(phys, "ALSA")) {
                d = 5;    // INPUT_AUDIO
            }

            if (vendor > 0 && product > 0 && g_str_has_prefix(phys, "usb-")) {
                usb_lookup_ids_vendor_product_str(vendor, product, &vendor_str, &product_str);
            }

            if (bus >= 0 && (guint)bus < sizeof(bus_types) / sizeof(gchar*)) {
                bus_str = bus_types[bus];
            }

            vl = vendor_list_remove_duplicates_deep(vendors_match(name, vendor_str, NULL));
            vendor_tags = vendor_list_ribbon(vl, params.fmt_opts);

            tmp = g_strdup_printf("INP%d", ++n);
            input_list = h_strdup_cprintf("$%s$%s=%s|%s\n",
                         input_list,
                         tmp, name, EMPTYIFNULL(vendor_tags),
                         EMPTYIFNULL(input_devices[d].name));
            input_icons = h_strdup_cprintf("Icon$%s$%s=%s\n",
                          input_icons,
                          tmp, name,
                          input_devices[d].icon);

            gchar *strhash = g_strdup_printf("[%s]\n"
                    /* Name */   "$^$%s=%s\n"
                    /* Type */   "%s=%s\n"
                    /* Bus */    "%s=[0x%x] %s\n"
                    /* Vendor */ "$^$%s=[0x%x] %s\n"
                    /* Product */"%s=[0x%x] %s\n"
                    /* Version */"%s=0x%x\n",
                            _("Device Information"),
                            _("Name"), name,
                            _("Type"), UNKWNIFNULL(input_devices[d].name),
                            _("Bus"), bus, UNKWNIFNULL(bus_str),
                            _("Vendor"), vendor, UNKWNIFNULL(vendor_str),
                            _("Product"), product, UNKWNIFNULL(product_str),
                            _("Version"), version );

            if (phys && phys[1] != 0) {
                 strhash = h_strdup_cprintf("%s=%s\n", strhash, _("Connected to"), phys);
            }

            if (phys && strstr(phys, "ir")) {
                strhash = h_strdup_cprintf("%s=%s\n", strhash, _("InfraRed port"), _("Yes") );
            }

            moreinfo_add_with_prefix("DEV", tmp, strhash);
            g_free(tmp);
            g_free(phys);
            g_free(name);
            g_free(vendor_str);
            g_free(vendor_tags);
            g_free(product_str);
            bus_str = NULL;
            vendor_str = NULL;
            product_str = NULL;
            vendor_tags = NULL;
        }
    }

    fclose(dev);
}