/*
 *    HardInfo - Displays System Information
 *    Copyright (C) 2003-2006 Leandro A. F. Pereira <leandro@hardinfo.org>
 *
 *    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.
 *
 *    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
 */

static gchar *input_icons = NULL;

static gboolean
remove_input_devices(gpointer key, gpointer value, gpointer data)
{
    return g_str_has_prefix(key, "INP");
}

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

void
__scan_input_devices(void)
{
    FILE *dev;
    gchar buffer[128];
    gchar *tmp, *name = NULL, *phys = NULL;
    gint bus, vendor, product, version;
    int d = 0, n = 0;

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

    if (input_list) {
	g_hash_table_foreach_remove(moreinfo, remove_input_devices, NULL);
	g_free(input_list);
	g_free(input_icons);
    }
    input_list = g_strdup("");
    input_icons = g_strdup("");

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

	switch (*tmp) {
	case 'N':
	    name = g_strdup(tmp + strlen("N: Name="));
	    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 = 0;		//INPUT_KEYBOARD;
	    else if (strstr(tmp, "js"))
		d = 1;		//INPUT_JOYSTICK;
	    else if (strstr(tmp, "mouse"))
		d = 2;		//INPUT_MOUSE;
	    else
		d = 4;		//INPUT_UNKNOWN;
	    break;
	case '\n':
	    if (strstr(name, "PC Speaker")) {
	      d = 3;		// INPUT_PCSPKR
	    }
	
	    tmp = g_strdup_printf("INP%d", ++n);
	    input_list = h_strdup_cprintf("$%s$%s=\n",
					 input_list,
					 tmp, name);
	    input_icons = h_strdup_cprintf("Icon$%s$%s=%s\n",
				 	  input_icons,
					  tmp, name,
					  input_devices[d].icon);
	    gchar *strhash = g_strdup_printf("[Device Information]\n"
					     "Name=%s\n"
					     "Type=%s\n"
					     "Bus=0x%x\n",
					     name,
					     input_devices[d].name,
					     bus);

	    const gchar *url = vendor_get_url(name);
	    if (url) {
	    	strhash = h_strdup_cprintf("Vendor=%s (%s)\n",
					  strhash,
					  vendor_get_name(name),
					  url);
	    } else {
	    	strhash = h_strdup_cprintf("Vendor=%x\n",
					  strhash,
					  vendor);
	    }

	    strhash = h_strdup_cprintf("Product=0x%x\n"
				      "Version=0x%x\n",
				      strhash, product, version);
	    
            if (phys[1] != 0) {
                 strhash = h_strdup_cprintf("Connected to=%s\n",
                                            strhash, phys);
            }

	    if (strstr(phys,"ir")) {
		 strhash = h_strdup_cprintf("InfraRed port=yes\n",
				 	     strhash);
	    }
	    
	    g_hash_table_insert(moreinfo, tmp, strhash);

	    g_free(phys);
	    g_free(name);
	}
    }

    fclose(dev);
}