/**
 * test/demos/asm/decimal.c
 * Copyright (C) 2008 Markus Broeker
 */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <limits.h>

#define  MAXBITS __WORDSIZE
#define  MAXVALUE ULONG_MAX

typedef unsigned long int ULONG;

void usage (char *name)
{
    printf ("Usage: %s start [end] [base]\n", name);
}

/*
 * Computes the binary representation of a
 * decimal value and returns the result
 * in proper order and the number of digits
 */

char *dec_to_base (ULONG decimal, int base, int *digits)
{
    char *encoded;
    char swp;

    int i;

    i = 0;

    if ((decimal > MAXVALUE)) {
        perror ("VALUE TOO BIG");
        return NULL;
    }

    if ((encoded = malloc ((MAXBITS) * sizeof (char))) == NULL) {
        perror ("MALLOC ERROR");
        return NULL;
    }

    while (decimal > base - 1) {
        encoded[i++] = (decimal % base);
        decimal /= base;
    }
    encoded[i++] = (decimal % base);
    *digits = i;

    for (i = 0; i < *digits - 1; i++) {
        swp = encoded[*digits - i - 1];
        encoded[*digits - i - 1] = encoded[i];
        encoded[i] = swp;
    }

    return encoded;
}

int main (int argc, char **argv)
{
    ULONG decimal, start, end;

    int bits, base, i;

    char *binaer;

    base = 2;

    if (argc == 2) {
        start = atol (argv[1]);
        end = start + 1;
    } else if (argc == 3) {
        start = atol (argv[1]);
        end = atol (argv[2]);
    } else if (argc == 4) {
        start = atol (argv[1]);
        end = atol (argv[2]);
        base = atoi (argv[3]);
    } else {
        usage (argv[0]);
        return EXIT_SUCCESS;
    }

    if (!((start >= 0) && (end > start) && (base > 1))) {
        usage ("Trottel");
        printf ("%ld\t%ld\t%d\n", start, end, base);
        return EXIT_SUCCESS;
    }

    printf ("\tVALUE \t\tDIGITS\t\t Encoded\n");
    printf ("----------------------------------------------------\n");

    for (decimal = start; decimal < end; decimal++) {
        if ((binaer = dec_to_base (decimal, base, &bits)) == NULL) {
            return EXIT_FAILURE;
        }

        printf ("%12ld %12d \t\t", decimal, bits);

        for (i = 0; i < bits; i++) {
            printf ("%X", binaer[i]);
        }
        printf ("\n");

        if (binaer)
            free (binaer);
    }
    return EXIT_SUCCESS;
}