#!/usr/bin/awk -f
# This file converts given pci.db to "C" source and header files
# For latest version of pci ids see: http://pciids.sf.net
# Copyright 2002 Nick Kurshev
#
# Tested with Gawk v 3.0.x and Mawk 1.3.3
# But it should work with standard Awk implementations (hopefully).
# (Nobody tested it with Nawk, but it should work, too).
#
# This file is part of MPlayer.
#
# MPlayer 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; either version 2 of the License, or
# (at your option) any later version.
#
# MPlayer 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 MPlayer; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA

BEGIN {

    if (ARGC != 3) {
        # check for arguments:
        print "Usage ./pci_db2c.awk pci.db (and make sure pci.db file exists first)";
        exit(1);
    }
    in_file = ARGV[1];
    with_pci_db = ARGV[2];
    dev_ids_c_file = "vidix/pci_dev_ids.c"
    ids_h_file     = "vidix/pci_ids.h"
    names_c_file   = "vidix/pci_names.c"
    vendors_h_file = "vidix/pci_vendors.h";
    # print out head lines
    print_head(vendors_h_file);
    print_head(ids_h_file);
    print_head(names_c_file);
    print_head(dev_ids_c_file);
    print "#include <stdlib.h>" > dev_ids_c_file;
    print "#include \"pci_names.h\"" > dev_ids_c_file;

    print_guards_start(vendors_h_file);
    print_guards_start(ids_h_file);
    print "#include \"pci_vendors.h\"" > ids_h_file
    print "" > ids_h_file

    print "#include <stddef.h>" > names_c_file
    print "#include \"pci_names.h\"" > names_c_file
    if (with_pci_db) {
        print "#include \"pci_dev_ids.c\"" > names_c_file
        print "" > names_c_file
        print "static struct vendor_id_s vendor_ids[] = {" > names_c_file
    }
    first_pass = 1;
    init_name_db();
    while (getline < in_file) {
        n = split($0, field, "[\t]");
        name_field = kill_double_quoting(field[3])
        if (field[1] == "v" && length(field[3]) > 0 && field[4] == "0") {
            init_device_db()
            svend_name = get_short_vendor_name(field[3])
            printf("#define VENDOR_%s\t", svend_name) > vendors_h_file;
            if (length(svend_name) < 9)
                printf("\t") > vendors_h_file;
            printf("0x%s /*%s*/\n", field[2], name_field) > vendors_h_file;
            if (with_pci_db)
                printf("{ 0x%s, \"%s\", dev_lst_%s },\n", field[2], name_field, field[2]) > names_c_file;
            printf("/* Vendor: %s: %s */\n", field[2], name_field) > ids_h_file
            if (first_pass == 1)
                first_pass = 0;
            else
                print "{ 0xFFFF, NULL }\n};" > dev_ids_c_file;
            printf("static const struct device_id_s dev_lst_%s[] = {\n", field[2]) > dev_ids_c_file
        }
        if (field[1] == "d" && length(field[3]) > 0 && field[4] == "0") {
            sdev_name = get_short_device_name(field[3])
            full_name = sprintf("#define DEVICE_%s_%s", svend_name, sdev_name);
            printf("%s\t", full_name) > ids_h_file
            if (length(full_name) <  9) printf("\t") > ids_h_file;
            if (length(full_name) < 17) printf("\t") > ids_h_file;
            if (length(full_name) < 25) printf("\t") > ids_h_file;
            if (length(full_name) < 32) printf("\t") > ids_h_file;
            if (length(full_name) < 40) printf("\t") > ids_h_file;
            if (length(full_name) < 48) printf("\t") > ids_h_file;
            printf("0x%s /*%s*/\n", substr(field[2], 5), name_field) > ids_h_file
            printf("{ 0x%s, \"%s\" },\n", substr(field[2], 5), name_field) > dev_ids_c_file
        }
        if (field[1] == "s" && length(field[3]) > 0 && field[4] == "0") {
            subdev_name = get_short_subdevice_name(field[3])
            full_name = sprintf("#define SUBDEVICE_%s_%s", svend_name, subdev_name)
            printf("\t%s\t", full_name) > ids_h_file
            if (length(full_name) <  9) printf("\t") > ids_h_file;
            if (length(full_name) < 17) printf("\t") > ids_h_file;
            if (length(full_name) < 25) printf("\t") > ids_h_file;
            if (length(full_name) < 32) printf("\t") > ids_h_file;
            if (length(full_name) < 40) printf("\t") > ids_h_file;
            printf("0x%s /*%s*/\n", substr(field[2], 9), name_field) > ids_h_file
        }
    }
    print_guards_end(vendors_h_file);
    print_guards_end(ids_h_file);
    if (with_pci_db)
        print "};" > names_c_file
    print "{ 0xFFFF, NULL }" > dev_ids_c_file;
    print "};" > dev_ids_c_file
    print_func_bodies(names_c_file);
}

function construct_guard_name(out_file)
{
    split(out_file, path_components, "/");
    sub(".h","_h", path_components[2]);
    return "MPLAYER_" toupper(path_components[2]);
}

function print_guards_start(out_file)
{
    guard_name = construct_guard_name(out_file);
    printf("#ifndef %s\n", guard_name) > out_file
    printf("#define %s\n", guard_name) > out_file
    print "" > out_file
}

function print_guards_end(out_file)
{
    guard_name = construct_guard_name(out_file);
    print "" > out_file
    printf("#endif /* %s */\n", guard_name) > out_file
}

function print_head(out_file)
{
    printf("/* File: %s\n", out_file) > out_file;
    printf(" * This file was generated automatically. Don't modify it. */\n") > out_file;
    print "" > out_file
}

function print_func_bodies(out_file)
{
    print "" > out_file
    print "const char *pci_vendor_name(unsigned short id)" > out_file
    print "{" > out_file
    if (with_pci_db) {
        print "    unsigned i;" > out_file
        print "    for (i = 0; i < sizeof(vendor_ids) / sizeof(struct vendor_id_s); i++) {" > out_file
        print "        if (vendor_ids[i].id == id)" > out_file
        print "            return vendor_ids[i].name;" > out_file
        print "    }" > out_file
    }
    print "    return NULL;" > out_file
    print "}" > out_file
    print "" > out_file
    print "const char *pci_device_name(unsigned short vendor_id, unsigned short device_id)" > out_file
    print "{" > out_file
    if (with_pci_db) {
        print "    unsigned i, j;" > out_file
        print "    for (i = 0; i < sizeof(vendor_ids) / sizeof(struct vendor_id_s); i++) {" > out_file
        print "        if (vendor_ids[i].id == vendor_id) {" > out_file
        print "            j = 0;" > out_file
        print "            while (vendor_ids[i].dev_list[j].id != 0xFFFF) {" > out_file
        print "                if (vendor_ids[i].dev_list[j].id == device_id)" > out_file
        print "                    return vendor_ids[i].dev_list[j].name;" > out_file
        print "                j++;" > out_file
        print "            };" > out_file
        print "            break;" > out_file
        print "        }" > out_file
        print "    }" > out_file
    }
    print "    return NULL;" > out_file
    print "}" > out_file
}

function kill_double_quoting(fld)
{
    n = split(fld, phrases, "[\"]");
    new_fld = phrases[1]
    for (i = 2; i <= n; i++)
        new_fld = sprintf("%s\\\"%s", new_fld, phrases[i])
    return new_fld
}

function init_name_db()
{
  vendor_names[1] = ""
}

function init_device_db()
{
    # delete device_names
    for (i in device_names)
        delete device_names[i];
    device_names[1] = ""
    # delete subdevice_names
    for (i in subdevice_names)
        delete subdevice_names[i];
    subdevice_names[1] = ""
}

function get_short_vendor_name(from)
{
    n = split(from, name, "[ ]");
    new_name = toupper(name[1]);
    if (length(new_name) < 3)
        new_name = sprintf("%s_%s", new_name, toupper(name[2]));
    n = split(new_name, name, "[^0-9A-Za-z]");
    svendor = name[1];
    for (i = 2; i <= n; i++)
        svendor = sprintf("%s%s%s", svendor, length(name[i]) ? "_" : "", name[i]);
    new_name = svendor;
    vend_suffix = 2;
    # check for unique
    while (new_name in vendor_names) {
        new_name = sprintf("%s%u", svendor, vend_suffix)
        vend_suffix = vend_suffix + 1;
    }
    # Add new name in array of vendor's names
    vendor_names[new_name] = new_name
    return new_name;
}

function get_short_device_name(from_name)
{
    n = split(from_name, name, "[ ]");
    new_name = toupper(name[1]);
    if (length(name[2]))
        new_name = sprintf("%s_%s", new_name, toupper(name[2]));
    if (length(name[3]))
        new_name = sprintf("%s_%s", new_name, toupper(name[3]));
    n = split(new_name, name, "[^0-9A-Za-z]");
    sdevice = name[1];
    for (i = 2; i <= n; i++)
        sdevice = sprintf("%s%s%s", sdevice, length(name[i]) ? "_" : "", name[i]);
    new_name = sdevice;
    dev_suffix = 2;
    # check for unique
    while (new_name in device_names) {
        new_name = sprintf("%s%u", sdevice, dev_suffix)
        dev_suffix = dev_suffix + 1;
    }
    # Add new name in array of device names
    device_names[new_name] = new_name
    return new_name;
}

function get_short_subdevice_name(from_name)
{
    n = split(from_name, name, "[ ]");
    new_name = toupper(name[1]);
    if (length(name[2]))
        new_name = sprintf("%s_%s", new_name, toupper(name[2]));
    if (length(name[3]))
        new_name = sprintf("%s_%s", new_name, toupper(name[3]));
    n = split(new_name, name, "[^0-9A-Za-z]");
    ssdevice = name[1];
    for (i = 2; i <= n; i++)
        ssdevice = sprintf("%s%s%s", ssdevice, length(name[i]) ? "_" : "", name[i]);
    new_name = ssdevice;
    sdev_suffix = 2;
    # check for unique
    while (new_name in subdevice_names) {
        new_name = sprintf("%s%u", ssdevice, sdev_suffix)
        sdev_suffix = sdev_suffix + 1;
    }
    # Add new name in array of subdevice names
    subdevice_names[new_name] = new_name
    return new_name;
}