/**
 * unicode.c
 * Copyright (C) 2008 Markus Broeker
 *
 * Unicode Testcase
 */

#include <stdio.h>
#include <stdlib.h>
#include <wchar.h>
#include <locale.h>
#include <string.h>

#define FACTOR 1.42

wchar_t *substr (const wchar_t * s, size_t start, size_t end)
{
    wchar_t *str;

    size_t len = end - start;

    if (len < 1)
        return NULL;

    if ((str = malloc (sizeof (wchar_t) * (len + 1))) == NULL)
        return NULL;

    wcsncpy (str, s + start, len);
    str[len] = L'\0';

    return str;
}

int main (int argc, char **argv)
{
    wchar_t *wide_str = L"Report Bugs to mbroeker@largo.homelinux.org ...";
    wchar_t *email_addr;

    wchar_t wide_euro_char = L'\u20ac';
    wchar_t wide_dollar_char = L'\u0024';

    char *locale;

    double price;

    if (argc != 2) {
        printf ("Usage: [LC_ALL=C] %s <PRICE>\n", argv[0]);
        return EXIT_FAILURE;
    }

    if (!setlocale (LC_ALL, "")) {
        perror ("LOCALE");
        return EXIT_FAILURE;
    }

    locale = getenv ("LC_ALL");
    price = atof (argv[1]);

    printf ("Default Locale=%s, Current LOCALE=%s\n", getenv ("LANG"), (locale ? locale : "default"));
    if (printf ("Best Price: %3.2f%lc = %3.2f%lc", price, wide_euro_char, price * FACTOR, wide_dollar_char) == -1) {
        printf ("\rBest Price: %3.2f EUR = %3.2f USD", price, price * FACTOR);
    }

    printf ("\n");

    email_addr = substr (wide_str, 23, 43);

    printf ("Do not report bugs to webmaster%ls\n", email_addr);
    printf ("%ls\n", wide_str);

    if (email_addr)
        free (email_addr);

    return EXIT_SUCCESS;
}