ROX-Filer/src/xtypes.c

   1 /*
   2  * $Id$
   3  *
   4  * ROX-Filer, filer for the ROX desktop project
   5  * Copyright (C) 2003, the ROX-Filer team.
   6  *
   7  * This program is free software; you can redistribute it and/or modify it
   8  * under the terms of the GNU General Public License as published by the Free
   9  * Software Foundation; either version 2 of the License, or (at your option)
  10  * any later version.
  11  *
  12  * This program is distributed in the hope that it will be useful, but WITHOUT
  13  * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  14  * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
  15  * more details.
  16  *
  17  * You should have received a copy of the GNU General Public License along with
  18  * this program; if not, write to the Free Software Foundation, Inc., 59 Temple
  19  * Place, Suite 330, Boston, MA  02111-1307  USA
  20  */
  21
  22
  23 /*
  24  * xtypes.c - Extended filesystem attribute support for MIME types
  25  */
  26
  27 #include "config.h"
  28 #include <stdio.h>
  29 #include <string.h>
  30 #include <errno.h>
  31
  32 #include <unistd.h>
  33 #include <sys/types.h>
  34 #include <sys/stat.h>
  35 #include <fcntl.h>
  36
  37 #include <glib.h>
  38
  39 #include "global.h"
  40 #include "type.h"
  41 #include "xtypes.h"
  42
  43 #define XTYPE_ATTR "user.mime_type"
  44
  45 #if defined(HAVE_GETXATTR)
  46 /* Linux implementation */
  47
  48 #include <dlfcn.h>
  49
  50 static int (*dyn_setxattr)(const char *path, const char *name,
  51                      const void *value, size_t size, int flags) = NULL;
  52 static ssize_t (*dyn_getxattr)(const char *path, const char *name,
  53                          void *value, size_t size) = NULL;
  54
  55 void xtype_init(void)
  56 {
  57         void *libc;
  58
  59         libc = dlopen("libc.so.6", RTLD_LAZY | RTLD_NOLOAD);
  60         if (!libc)
  61                 return; /* Give up on xattr support */
  62
  63         (void *) dyn_setxattr = dlsym(libc, "setxattr");
  64         (void *) dyn_getxattr = dlsym(libc, "setxattr");
  65 }
  66
  67 MIME_type *xtype_get(const char *path)
  68 {
  69         ssize_t size;
  70         gchar *buf;
  71         MIME_type *type = NULL;
  72
  73         if (!dyn_getxattr)
  74                 return type_from_path(path);    /* Old libc */
  75
  76         size = dyn_getxattr(path, XTYPE_ATTR, "", 0);
  77         if (size > 0)
  78         {
  79                 int new_size;
  80
  81                 buf = g_new(gchar, size + 1);
  82                 new_size = dyn_getxattr(path, XTYPE_ATTR, buf, size);
  83
  84                 if (size == new_size)
  85                 {
  86                         buf[size] = '\0';
  87                         type = mime_type_lookup(buf);
  88                 }
  89                 g_free(buf);
  90
  91         }
  92         if (type)
  93                 return type;
  94
  95         /* Fall back to non-extended */
  96         return type_from_path(path);
  97 }
  98
  99 /* 0 on success */
 100 int xtype_set(const char *path, const MIME_type *type)
 101 {
 102         int res;
 103         gchar *ttext;
 104
 105         if (!dyn_setxattr)
 106         {
 107                 errno = ENOSYS;
 108                 return 1; /* Set type failed */
 109         }
 110
 111         ttext = g_strdup_printf("%s/%s", type->media_type, type->subtype);
 112         res = dyn_setxattr(path, XTYPE_ATTR, ttext, strlen(ttext), 0);
 113         g_free(ttext);
 114
 115         return res;
 116 }
 117
 118 #elif defined(HAVE_ATTROPEN)
 119
 120 void xtype_init(void)
 121 {
 122 }
 123
 124 /* Solaris 9 implementation */
 125
 126 MIME_type *xtype_get(const char *path)
 127 {
 128   int fd;
 129   char buf[1024];
 130   int nb;
 131   MIME_type *type=NULL;
 132
 133   fd=attropen(path, XTYPE_ATTR, O_RDONLY);
 134
 135   /*printf("%s: fd=%d ", path, fd);*/
 136   if(fd>0) {
 137     nb=read(fd, buf, sizeof(buf));
 138     /*printf("nb=%d ", nb);*/
 139     if(nb>0) {
 140       buf[nb]=0;
 141       /*printf("buf=%s ", buf);*/
 142       type=mime_type_lookup(buf);
 143     }
 144     close(fd);
 145   }
 146   /*printf("%s -> %s\n", path, type? mime_type_comment(type): "Unknown");*/
 147   if(type)
 148     return type;
 149
 150   /* Fall back to non-extended */
 151   return type_from_path(path);
 152 }
 153
 154 int xtype_set(const char *path, const MIME_type *type)
 155 {
 156   int fd;
 157   gchar *ttext;
 158   int nb;
 159
 160   fd=attropen(path, XTYPE_ATTR, O_WRONLY|O_CREAT, 0644);
 161   if(fd>0) {
 162     ttext=g_strdup_printf("%s/%s", type->media_type, type->subtype);
 163     nb=write(fd, ttext, strlen(ttext));
 164     if(nb==strlen(ttext))
 165       ftruncate(fd, (off_t) nb);
 166     g_free(ttext);
 167
 168     close(fd);
 169
 170     if(nb>0)
 171       return 0;
 172   }
 173
 174   return 1; /* Set type failed */
 175 }
 176
 177 #else
 178 /* No extended attricutes available */
 179
 180 void xtype_init(void)
 181 {
 182 }
 183
 184 MIME_type *xtype_get(const char *path)
 185 {
 186         /* Fall back to non-extended */
 187         return type_from_path(path);
 188 }
 189
 190 int xtype_set(const char *path, const MIME_type *type)
 191 {
 192         errno = ENOSYS;
 193         return 1; /* Set type failed */
 194 }
 195
 196 #endif
 197