//  This may look like C code, but it is really -*- C++ -*-

//  ------------------------------------------------------------------
//  The Goldware Library
//  Copyright (C) 1990-1999 Odinn Sorensen
//  ------------------------------------------------------------------
//  This library is free software; you can redistribute it and/or
//  modify it under the terms of the GNU Library General Public
//  License as published by the Free Software Foundation; either
//  version 2 of the License, or (at your option) any later version.
//
//  This library 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
//  Library General Public License for more details.
//
//  You should have received a copy of the GNU Library General Public
//  License along with this program; if not, write to the Free
//  Software Foundation, Inc., 59 Temple Place, Suite 330, Boston,
//  MA 02111-1307, USA
//  ------------------------------------------------------------------
//  $Id$
//  ------------------------------------------------------------------
//  RFC822 related character/string classes and functions.
//  ------------------------------------------------------------------

#include <gstrall.h>
#include <gstrmail.h>


//  ------------------------------------------------------------------

mail_ctype mail_ctype_global;


//  ------------------------------------------------------------------

mail_ctype::mail_ctype()
{

    memset(table,     mail_char|mail_ctl,   32*sizeof(uint));
    memset(table+32,  mail_char,            96*sizeof(uint));
    memset(table+'A', mail_char|mail_alpha, ('Z'-'A'+1)*sizeof(uint));
    memset(table+'a', mail_char|mail_alpha, ('z'-'a'+1)*sizeof(uint));
    memset(table+128, 0,                    128*sizeof(uint));
    table[127  & 0xff] |= mail_ctl;
    table[0    & 0xff] |= mail_delimiters;
    table[' '  & 0xff] |= mail_delimiters | mail_lwsp;
    table[HT   & 0xff] |= mail_delimiters | mail_lwsp;
    table['('  & 0xff] |= mail_delimiters | mail_special | mime_tspecial | mime_especial;
    table[')'  & 0xff] |= mail_delimiters | mail_special | mime_tspecial | mime_especial;
    table['<'  & 0xff] |= mail_delimiters | mail_special | mime_tspecial | mime_especial;
    table['>'  & 0xff] |= mail_delimiters | mail_special | mime_tspecial | mime_especial;
    table['@'  & 0xff] |= mail_delimiters | mail_special | mime_tspecial | mime_especial;
    table[','  & 0xff] |= mail_delimiters | mail_special | mime_tspecial | mime_especial;
    table[';'  & 0xff] |= mail_delimiters | mail_special | mime_tspecial | mime_especial;
    table[':'  & 0xff] |= mail_delimiters | mail_special | mime_tspecial | mime_especial;
    table['\\' & 0xff] |= mail_delimiters | mail_special | mime_tspecial | mime_especial;
    table['\"' & 0xff] |= mail_delimiters | mail_special | mime_tspecial | mime_especial;
    table['['  & 0xff] |= mail_delimiters | mail_special | mime_tspecial | mime_especial;
    table[']'  & 0xff] |= mail_delimiters | mail_special | mime_tspecial | mime_especial;
    table['.'  & 0xff] |= mail_delimiters | mail_special                 | mime_especial;
    table['/'  & 0xff] |=                                  mime_tspecial | mime_especial;
    table['?'  & 0xff] |=                                  mime_tspecial | mime_especial;
    table['='  & 0xff] |=                                  mime_tspecial | mime_especial;
}


//  ------------------------------------------------------------------

const char* strskip_lwsp(const char* p)
{

    while(is_mail_lwsp(*p))
        p++;
    return p;
}


//  ------------------------------------------------------------------

const char* strskip_mail_quote(const char* p)
{

    if(*p == '\"')
        p++;
    while(*p and (*p != '\"'))
    {
        if(*p == '\\')
            p++;
        p++;
    }
    if(*p == '\"')
        p++;

    return p;
}


//  ------------------------------------------------------------------

const char* strskip_delimiters(const char* p)
{

    while(is_mail_delimiters(*p))
        p++;
    return p;
}


//  ------------------------------------------------------------------

char* strtrim_lwsp(char* p)
{

    char* p0 = p;
    p += strlen(p) - 1;
    while(is_mail_lwsp(*p))
    {
        if(p == p0)
            break;
        p--;
    }
    return p;
}


//  ------------------------------------------------------------------

char* strmail_quote(char* ot, const char* it)
{

    char* o = ot;
    const char* i = it;

    if(*o == '\"')
        o++;
    while(*i)
    {
        if(is_mail_special(*i))
            *o++ = '\\';
        *o++ = *i++;
    }
    if(*ot == '\"')
        *o++ = '\"';
    *o = NUL;

    return ot;
}


//  ------------------------------------------------------------------

char* strmail_unquote(char* ot, const char* it)
{

    char* o = ot;
    const char* i = it;
    bool was_quoted = false;

    if(*i == '\"')
    {
        was_quoted = true;
        i++;
    }
    while(*i)
    {
        if(*i == '\\')
            i++;
        *o++ = *i++;
    }
    if(was_quoted)
        o--;
    *o = NUL;

    return ot;
}


//  ------------------------------------------------------------------

int is_mail_lwsp(const char* s)
{

    while(is_mail_lwsp(*s))
        s++;
    return *s == NUL;
}


//  ------------------------------------------------------------------
