#include <stdio.h>
#include <errno.h>
#include <mailutils/address.h>

#define EPARSE ENOENT

static const char* err_name(int e)
@{
    struct @{
	int e;
	const char* s;
    @} map[] = @{
#define E(e) @{ e, #e @},
	E(ENOENT)
	E(EINVAL)
	E(ENOMEM)
#undef E
	@{ 0, NULL @}
    @};
    static char s[sizeof(int) * 8 + 3];
    int i;

    for(i = 0; map[i].s; i++) @{
	if(map[i].e == e)
	    return map[i].s;
    @}
    sprintf(s, "[%d]", e);

    return s;
@}

static int parse(const char* str)
@{
    size_t no = 0;
    size_t pcount = 0;
    int status;

    char buf[BUFSIZ];

    address_t  address = NULL;

    status = address_create(&address, str);

    address_get_count(address, &pcount);

    if(status) @{
	printf("%s=> error %s\n\n", str, err_name(status));
	return 0;
    @} else @{
	printf("%s=> pcount %d\n", str, pcount);
    @}

    for(no = 1; no <= pcount; no++) @{
	size_t got = 0;
	int isgroup;

	address_is_group(address, no, &isgroup);

	printf("%d ", no);

	if(isgroup) @{
	  address_get_personal(address, no, buf, sizeof(buf), &got);

	  printf("group <%s>\n", buf);
	@} else @{
	  address_get_email(address, no, buf, sizeof(buf), 0);

	  printf("email <%s>\n", buf);
	@}

	address_get_personal(address, no, buf, sizeof(buf), &got);

	if(got && !isgroup) printf("   personal <%s>\n", buf);

	address_get_comments(address, no, buf, sizeof(buf), &got);

	if(got) printf("   comments <%s>\n", buf);

	address_get_local_part(address, no, buf, sizeof(buf), &got);

	if(got) @{
	    printf("   local-part <%s>", buf);

	    address_get_domain(address, no, buf, sizeof(buf), &got);

	    if(got) printf(" domain <%s>", buf);

	    printf("\n");
	@}

	address_get_route(address, no, buf, sizeof(buf), &got);

	if(got) printf("   route <%s>\n", buf);
    @}
    address_destroy(&address);

    printf("\n");

    return 0;
@}

static int parseinput(void)
@{
    char buf[BUFSIZ];

    while(fgets(buf, sizeof(buf), stdin) != 0) @{
	buf[strlen(buf) - 1] = 0;
	parse(buf);
    @}

    return 0;
@}

int main(int argc, const char *argv[])
@{
    argc = 1;

    if(!argv[argc]) @{
	return parseinput();
    @}
    for(; argv[argc]; argc++) @{
	if(strcmp(argv[argc], "-") == 0) @{
	    parseinput();
	@} else @{
	    parse(argv[argc]);
	@}
    @}

    return 0;
@}
