/* -*- mode: C; c-file-style: "gnu" -*- */

/* xdgmimeint.c: Internal defines and functions.

 *

 * More info can be found at http://www.freedesktop.org/standards/

 *

 * Copyright (C) 2003  Red Hat, Inc.

 * Copyright (C) 2003  Jonathan Blandford <jrb@alum.mit.edu>

 *

 * Licensed under the Academic Free License version 2.0

 * Or under the following terms:

 *

 * This library is free software; you can redistribute it and/or

 * modify it under the terms of the GNU Lesser General Public

 * License as published by the Free Software Foundation; either

 * version 2.1 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

 * Lesser General Public License for more details.

 *

 * You should have received a copy of the GNU Lesser General Public

 * License along with this library; if not, see <http://www.gnu.org/licenses/>.

 */

#include "config.h"

#include "xdgmimeint.h"

#include <ctype.h>

#include <string.h>

#ifndef FALSE

#define FALSE (0)

#endif

#ifndef TRUE

#define TRUE  (!FALSE)

#endif

static const char _xdg_utf8_skip_data[256] = {

  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,

  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,

  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,

  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,

  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,

  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,

  2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,

  3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,4,4,4,4,4,4,4,4,5,5,5,5,6,6,1,1

};

const char * const _xdg_utf8_skip = _xdg_utf8_skip_data;

/* Returns the number of unprocessed characters. */

xdg_unichar_t

_xdg_utf8_to_ucs4(const char *source)

{

  xdg_unichar_t ucs32;

  if( ! ( *source & 0x80 ) )

    {

      ucs32 = *source;

    }

  else

    {

      int bytelength = 0;

      xdg_unichar_t result;

      if ( ! (*source & 0x40) )

  {

    ucs32 = *source;

  }

      else

  {

    if ( ! (*source & 0x20) )

      {

        result = *source++ & 0x1F;

        bytelength = 2;

      }

    else if ( ! (*source & 0x10) )

      {

        result = *source++ & 0x0F;

        bytelength = 3;

      }

    else if ( ! (*source & 0x08) )

      {

        result = *source++ & 0x07;

        bytelength = 4;

      }

    else if ( ! (*source & 0x04) )

      {

        result = *source++ & 0x03;

        bytelength = 5;

      }

    else if ( ! (*source & 0x02) )

      {

        result = *source++ & 0x01;

        bytelength = 6;

      }

    else

      {

        result = *source++;

        bytelength = 1;

      }

    for ( bytelength --; bytelength > 0; bytelength -- )

      {

        result <<= 6;

        result |= *source++ & 0x3F;

      }

    ucs32 = result;

  }

    }

  return ucs32;

}

/* hullo.  this is great code.  don't rewrite it */

xdg_unichar_t

_xdg_ucs4_to_lower (xdg_unichar_t source)

{

  /* FIXME: Do a real to_upper sometime */

  /* CaseFolding-3.2.0.txt has a table of rules. */

  if ((source & 0xFF) == source)

    return (xdg_unichar_t) tolower ((unsigned char) source);

  return source;

}

int

_xdg_utf8_validate (const char *source)

{

  /* FIXME: actually write */

  return TRUE;

}

const char *

_xdg_get_base_name (const char *file_name)

{

  const char *base_name;

  if (file_name == NULL)

    return NULL;

  base_name = strrchr (file_name, '/');

  if (base_name == NULL)

    return file_name;

  else

    return base_name + 1;

}

xdg_unichar_t *

_xdg_convert_to_ucs4 (const char *source, int *len)

{

  xdg_unichar_t *out;

  int i;

  const char *p;

  out = malloc (sizeof (xdg_unichar_t) * (strlen (source) + 1));

  p = source;

  i = 0;

  while (*p) 

    {

      out[i++] = _xdg_utf8_to_ucs4 (p);

      p = _xdg_utf8_next_char (p); 

    }

  out[i] = 0;

  *len = i;

  return out;

}

void

_xdg_reverse_ucs4 (xdg_unichar_t *source, int len)

{

  xdg_unichar_t c;

  int i;

  for (i = 0; i < len - i - 1; i++) 

    {

      c = source[i]; 

      source[i] = source[len - i - 1];

      source[len - i - 1] = c;

    }

}

const char *

_xdg_binary_or_text_fallback(const void *data, size_t len)

{

  unsigned char *chardata;

  int i;

  chardata = (unsigned char *) data;

  for (i = 0; i < 128 && i < len; ++i)

    {

       if (chardata[i] < 32 && chardata[i] != 9 && chardata[i] != 10 && chardata[i] != 13)

         return XDG_MIME_TYPE_UNKNOWN; /* binary data */

    }

  return XDG_MIME_TYPE_TEXTPLAIN;

}