/*
 * Copyright (C) 2012 Red Hat, Inc. All Rights Reserved.
 *
 * Permission is hereby granted, free of charge, to any person obtaining a
 * copy of this software and associated documentation files (the "Software"),
 * to deal in the Software without restriction, including without limitation
 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
 * and/or sell copies of the Software, and to permit persons to whom the
 * Software is furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice shall be included
 * in all copies or substantial portions of the Software.
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 * POSSIBILITY OF SUCH DAMAGE.
 *
 * author: Jerome Glisse
 */
#include <errno.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "rdb.h"

char *line_skip(char *line, unsigned nspace)
{
    do {
        if (*line == ' ') {
            nspace--;
        }
        line++;
    } while (nspace);
    return line;
}

void annotate(struct rdb *rdb, FILE *file, unsigned base, unsigned mask)
{
    char line[128], *tmp;
    unsigned offset, value;

    while (!feof(file)) {
        if (fgets(line, sizeof(line), file) == NULL) {
            continue;
        }
        switch (line[0]) {
        case 'R':
        case 'W':
            tmp = line_skip(line, 4);
            offset = strtoul(tmp, &tmp, 0);
            value = strtoul(tmp, &tmp, 0);
            if ((offset & ~mask) == base) {
                const struct rdb_reg *reg;
                offset &= mask;
                reg = rdb_find_reg(rdb, 0, offset);
                if (reg) {
                    printf("%c    0x%08x 0x%08x %s\n", line[0], offset, value, reg->name);
                } else {
                    printf("%c    0x%08x 0x%08x ??\n", line[0], offset, value);
                }
            }
            break;
        default:
            break;
        }
    }
}

int main(int argc, char *argv[])
{
    unsigned base, mask;
    struct rdb rdb;
    FILE *file;

    if (argc != 4) {
        printf("usage %s dumpfile baseoffset rdb\n", argv[0]);
        return -1;
    }

    file = fopen(argv[3], "r");
    if (file == NULL) {
        fprintf(stderr, "failed reading %s\n", argv[3]);
        return -1;
    }
    rdb_init(&rdb);
    if (rdb_read(&rdb, file)) {
        fprintf(stderr, "failed reading %s\n", argv[3]);
        return -1;
    }
    fclose(file);

    base = strtoul(argv[2], NULL, 0);
    if (base) {
        for (mask = 1; !(base & mask); mask <<= 1);
        mask -= 1;
        fprintf(stderr, "base 0x%08x mask 0x%08x\n", base, mask);
    } else {
        mask = 0xffffffff;
    }

    file = fopen(argv[1], "r");
    if (file == NULL) {
        fprintf(stderr, "failed reading %s\n", argv[1]);
        return -1;
    }
    annotate(&rdb, file, base, mask);
    fclose(file);
}