ROX-Filer/src/xdgmimeint.c

   1 /* -*- mode: C; c-file-style: "gnu" -*- */
   2 /* xdgmimeint.c: Internal defines and functions.
   3  *
   4  * More info can be found at http://www.freedesktop.org/standards/
   5  *
   6  * Copyright (C) 2003  Red Hat, Inc.
   7  * Copyright (C) 2003  Jonathan Blandford <jrb@alum.mit.edu>
   8  *
   9  * Licensed under the Academic Free License version 2.0
  10  * Or under the following terms:
  11  *
  12  * This library is free software; you can redistribute it and/or
  13  * modify it under the terms of the GNU Lesser General Public
  14  * License as published by the Free Software Foundation; either
  15  * version 2 of the License, or (at your option) any later version.
  16  *
  17  * This library is distributed in the hope that it will be useful,
  18  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  19  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  20  * Lesser General Public License for more details.
  21  *
  22  * You should have received a copy of the GNU Lesser General Public
  23  * License along with this library; if not, write to the
  24  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  25  * Boston, MA 02111-1307, USA.
  26  */
  27
  28 #ifdef HAVE_CONFIG_H
  29 #include <config.h>
  30 #endif
  31
  32 #include "xdgmimeint.h"
  33 #include <ctype.h>
  34 #include <string.h>
  35
  36 #ifndef FALSE
  37 #define FALSE   (0)
  38 #endif
  39
  40 #ifndef TRUE
  41 #define TRUE    (!FALSE)
  42 #endif
  43
  44 static const char _xdg_utf8_skip_data[256] = {
  45   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,
  46   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,
  47   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,
  48   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,
  49   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,
  50   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,
  51   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,
  52   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
  53 };
  54
  55 const char * const _xdg_utf8_skip = _xdg_utf8_skip_data;
  56
  57
  58
  59 /* Returns the number of unprocessed characters. */
  60 xdg_unichar_t
  61 _xdg_utf8_to_ucs4(const char *source)
  62 {
  63   xdg_unichar_t ucs32;
  64   if( ! ( *source & 0x80 ) )
  65     {
  66       ucs32 = *source;
  67     }
  68   else
  69     {
  70       int bytelength = 0;
  71       xdg_unichar_t result;
  72       if ( ! (*source & 0x40) )
  73         {
  74           ucs32 = *source;
  75         }
  76       else
  77         {
  78           if ( ! (*source & 0x20) )
  79             {
  80               result = *source++ & 0x1F;
  81               bytelength = 2;
  82             }
  83           else if ( ! (*source & 0x10) )
  84             {
  85               result = *source++ & 0x0F;
  86               bytelength = 3;
  87             }
  88           else if ( ! (*source & 0x08) )
  89             {
  90               result = *source++ & 0x07;
  91               bytelength = 4;
  92             }
  93           else if ( ! (*source & 0x04) )
  94             {
  95               result = *source++ & 0x03;
  96               bytelength = 5;
  97             }
  98           else if ( ! (*source & 0x02) )
  99             {
 100               result = *source++ & 0x01;
 101               bytelength = 6;
 102             }
 103           else
 104             {
 105               result = *source++;
 106               bytelength = 1;
 107             }
 108
 109           for ( bytelength --; bytelength > 0; bytelength -- )
 110             {
 111               result <<= 6;
 112               result |= *source++ & 0x3F;
 113             }
 114           ucs32 = result;
 115         }
 116     }
 117   return ucs32;
 118 }
 119
 120
 121 /* hullo.  this is great code.  don't rewrite it */
 122
 123 xdg_unichar_t
 124 _xdg_ucs4_to_lower (xdg_unichar_t source)
 125 {
 126   /* FIXME: Do a real to_upper sometime */
 127   /* CaseFolding-3.2.0.txt has a table of rules. */
 128   if ((source & 0xFF) == source)
 129     return (xdg_unichar_t) tolower ((unsigned char) source);
 130   return source;
 131 }
 132
 133 int
 134 _xdg_utf8_validate (const char *source)
 135 {
 136   /* FIXME: actually write */
 137   return TRUE;
 138 }
 139
 140 const char *
 141 _xdg_get_base_name (const char *file_name)
 142 {
 143   const char *base_name;
 144
 145   if (file_name == NULL)
 146     return NULL;
 147
 148   base_name = strrchr (file_name, '/');
 149
 150   if (base_name == NULL)
 151     return file_name;
 152   else
 153     return base_name + 1;
 154 }
 155
 156 xdg_unichar_t *
 157 _xdg_convert_to_ucs4 (const char *source, int *len)
 158 {
 159   xdg_unichar_t *out;
 160   int i;
 161   const char *p;
 162
 163   out = malloc (sizeof (xdg_unichar_t) * (strlen (source) + 1));
 164
 165   p = source;
 166   i = 0;
 167   while (*p)
 168     {
 169       out[i++] = _xdg_utf8_to_ucs4 (p);
 170       p = _xdg_utf8_next_char (p);
 171     }
 172   out[i] = 0;
 173   *len = i;
 174
 175   return out;
 176 }
 177
 178 void
 179 _xdg_reverse_ucs4 (xdg_unichar_t *source, int len)
 180 {
 181   xdg_unichar_t c;
 182   int i;
 183
 184   for (i = 0; i < len - i - 1; i++)
 185     {
 186       c = source[i];
 187       source[i] = source[len - i - 1];
 188       source[len - i - 1] = c;
 189     }
 190 }
 191
 192 const char *
 193 _xdg_binary_or_text_fallback(const void *data, size_t len)
 194 {
 195   unsigned char *chardata;
 196   int i;
 197
 198   chardata = (unsigned char *) data;
 199   for (i = 0; i < 32 && i < len; ++i)
 200     {
 201        if (chardata[i] < 32 && chardata[i] != 9 && chardata[i] != 10 && chardata[i] != 13)
 202          return XDG_MIME_TYPE_UNKNOWN; /* binary data */
 203     }
 204
 205   return XDG_MIME_TYPE_TEXTPLAIN;
 206 }