1 /* -*- mode: C; c-file-style: "gnu"; indent-tabs-mode: nil; -*- */
3 /* GIO - GLib Input, Output and Streaming Library
5 * Copyright (C) 2006-2007 Red Hat, Inc.
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Lesser General Public
9 * License as published by the Free Software Foundation; either
10 * version 2 of the License, or (at your option) any later version.
12 * This library is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Lesser General Public License for more details.
17 * You should have received a copy of the GNU Lesser General
18 * Public License along with this library; if not, write to the
19 * Free Software Foundation, Inc., 59 Temple Place, Suite 330,
20 * Boston, MA 02111-1307, USA.
22 * Author: Alexander Larsson <alexl@redhat.com>
26 #include <sys/types.h>
30 #include "gcontenttypeprivate.h"
31 #include "gthemedicon.h"
34 #include "gfileenumerator.h"
35 #include "gfileinfo.h"
40 * SECTION:gcontenttype
41 * @short_description: Platform-specific content typing
44 * A content type is a platform specific string that defines the type
45 * of a file. On UNIX it is a <ulink url="http://www.wikipedia.org/wiki/Internet_media_type">mime type</ulink> like "text/plain" or "image/png".
46 * On Win32 it is an extension string like ".doc", ".txt" or a perceived
47 * string like "audio". Such strings can be looked up in the registry at
56 get_registry_classes_key (const char *subdir,
57 const wchar_t *key_name)
68 wc_key = g_utf8_to_utf16 (subdir, -1, NULL, NULL, NULL);
69 if (RegOpenKeyExW (HKEY_CLASSES_ROOT, wc_key, 0,
70 KEY_QUERY_VALUE, ®_key) == ERROR_SUCCESS &&
71 RegQueryValueExW (reg_key, key_name, 0,
72 &key_type, NULL, &nbytes) == ERROR_SUCCESS &&
73 (key_type == REG_SZ || key_type == REG_EXPAND_SZ))
75 wchar_t *wc_temp = g_new (wchar_t, (nbytes+1)/2 + 1);
76 RegQueryValueExW (reg_key, key_name, 0,
77 &key_type, (LPBYTE) wc_temp, &nbytes);
78 wc_temp[nbytes/2] = '\0';
79 if (key_type == REG_EXPAND_SZ)
82 int len = ExpandEnvironmentStringsW (wc_temp, dummy, 1);
85 wchar_t *wc_temp_expanded = g_new (wchar_t, len);
86 if (ExpandEnvironmentStringsW (wc_temp, wc_temp_expanded, len) == len)
87 value_utf8 = g_utf16_to_utf8 (wc_temp_expanded, -1, NULL, NULL, NULL);
88 g_free (wc_temp_expanded);
93 value_utf8 = g_utf16_to_utf8 (wc_temp, -1, NULL, NULL, NULL);
101 RegCloseKey (reg_key);
107 g_content_type_equals (const gchar *type1,
110 char *progid1, *progid2;
113 g_return_val_if_fail (type1 != NULL, FALSE);
114 g_return_val_if_fail (type2 != NULL, FALSE);
116 if (g_ascii_strcasecmp (type1, type2) == 0)
120 progid1 = get_registry_classes_key (type1, NULL);
121 progid2 = get_registry_classes_key (type2, NULL);
122 if (progid1 != NULL && progid2 != NULL &&
123 strcmp (progid1, progid2) == 0)
132 g_content_type_is_a (const gchar *type,
133 const gchar *supertype)
138 g_return_val_if_fail (type != NULL, FALSE);
139 g_return_val_if_fail (supertype != NULL, FALSE);
141 if (g_content_type_equals (type, supertype))
145 value_utf8 = get_registry_classes_key (type, L"PerceivedType");
146 if (value_utf8 && strcmp (value_utf8, supertype) == 0)
154 g_content_type_is_unknown (const gchar *type)
156 g_return_val_if_fail (type != NULL, FALSE);
158 return strcmp ("*", type) == 0;
162 g_content_type_get_description (const gchar *type)
167 g_return_val_if_fail (type != NULL, NULL);
169 progid = get_registry_classes_key (type, NULL);
172 description = get_registry_classes_key (progid, NULL);
179 if (g_content_type_is_unknown (type))
180 return g_strdup (_("Unknown type"));
181 return g_strdup_printf (_("%s filetype"), type);
185 g_content_type_get_mime_type (const gchar *type)
189 g_return_val_if_fail (type != NULL, NULL);
191 mime = get_registry_classes_key (type, L"Content Type");
194 else if (g_content_type_is_unknown (type))
195 return g_strdup ("application/octet-stream");
196 else if (*type == '.')
197 return g_strdup_printf ("application/x-ext-%s", type+1);
198 /* TODO: Map "image" to "image/ *", etc? */
200 return g_strdup ("application/octet-stream");
203 G_LOCK_DEFINE_STATIC (_type_icons);
204 static GHashTable *_type_icons = NULL;
207 g_content_type_get_icon (const gchar *type)
212 g_return_val_if_fail (type != NULL, NULL);
214 /* In the Registry icons are the default value of
215 HKEY_CLASSES_ROOT\<progid>\DefaultIcon with typical values like:
217 REG_EXPAND_SZ: %SystemRoot%\System32\Wscript.exe,3
218 REG_SZ: shimgvw.dll,3
220 G_LOCK (_type_icons);
222 _type_icons = g_hash_table_new (g_str_hash, g_str_equal);
223 name = g_hash_table_lookup (_type_icons, type);
224 if (!name && type[0] == '.')
226 /* double lookup by extension */
227 gchar *key = get_registry_classes_key (type, NULL);
229 key = g_strconcat (type+1, "file\\DefaultIcon", NULL);
232 gchar *key2 = g_strconcat (key, "\\DefaultIcon", NULL);
236 name = get_registry_classes_key (key, NULL);
237 if (name && strcmp (name, "%1") == 0)
243 g_hash_table_insert (_type_icons, g_strdup (type), g_strdup (name));
247 /* icon-name similar to how it was with gtk-2-12 */
250 themed_icon = g_themed_icon_new (name);
254 /* if not found an icon fall back to gtk-builtins */
255 name = strcmp (type, "inode/directory") == 0 ? "gtk-directory" :
256 g_content_type_can_be_executable (type) ? "gtk-execute" : "gtk-file";
257 g_hash_table_insert (_type_icons, g_strdup (type), g_strdup (name));
258 themed_icon = g_themed_icon_new_with_default_fallbacks (name);
260 G_UNLOCK (_type_icons);
262 return G_ICON (themed_icon);
266 g_content_type_can_be_executable (const gchar *type)
268 g_return_val_if_fail (type != NULL, FALSE);
270 if (strcmp (type, ".exe") == 0 ||
271 strcmp (type, ".com") == 0 ||
272 strcmp (type, ".bat") == 0)
275 /* TODO: Also look at PATHEXT, which lists the extensions for
276 * "scripts" in addition to those for true binary executables.
278 * (PATHEXT=.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH for me
279 * right now, for instance). And in a sense, all associated file
280 * types are "executable" on Windows... You can just type foo.jpg as
281 * a command name in cmd.exe, and it will run the application
282 * associated with .jpg. Hard to say what this API actually means
290 looks_like_text (const guchar *data,
295 for (i = 0; i < data_size; i++)
298 if (g_ascii_iscntrl (c) && !g_ascii_isspace (c) && c != '\b')
305 g_content_type_from_mime_type (const gchar *mime_type)
307 char *key, *content_type;
309 g_return_val_if_fail (mime_type != NULL, NULL);
311 key = g_strconcat ("MIME\\DataBase\\Content Type\\", mime_type, NULL);
312 content_type = get_registry_classes_key (key, L"Extension");
319 g_content_type_guess (const gchar *filename,
322 gboolean *result_uncertain)
330 if (result_uncertain)
331 *result_uncertain = FALSE;
333 /* our test suite and potentially other code used -1 in the past, which is
334 * not documented and not allowed; guard against that */
335 g_return_val_if_fail (data_size != (gsize) -1, g_strdup ("*"));
339 basename = g_path_get_basename (filename);
340 dot = strrchr (basename, '.');
342 type = g_strdup (dot);
349 if (data && looks_like_text (data, data_size))
350 return g_strdup (".txt");
352 return g_strdup ("*");
356 g_content_types_get_registered (void)
359 wchar_t keyname[256];
367 while (RegEnumKeyExW(HKEY_CLASSES_ROOT,
374 NULL) == ERROR_SUCCESS)
376 key_utf8 = g_utf16_to_utf8 (keyname, -1, NULL, NULL, NULL);
379 if (*key_utf8 == '.')
380 types = g_list_prepend (types, key_utf8);
388 return g_list_reverse (types);
392 g_content_type_guess_for_tree (GFile *root)
394 /* FIXME: implement */
398 #else /* !G_OS_WIN32 - Unix specific version */
402 #define XDG_PREFIX _gio_xdg
403 #include "xdgmime/xdgmime.h"
405 /* We lock this mutex whenever we modify global state in this module. */
406 G_LOCK_DEFINE_STATIC (gio_xdgmime);
409 _g_unix_content_type_get_sniff_len (void)
413 G_LOCK (gio_xdgmime);
414 size = xdg_mime_get_max_buffer_extents ();
415 G_UNLOCK (gio_xdgmime);
421 _g_unix_content_type_unalias (const gchar *type)
425 G_LOCK (gio_xdgmime);
426 res = g_strdup (xdg_mime_unalias_mime_type (type));
427 G_UNLOCK (gio_xdgmime);
433 _g_unix_content_type_get_parents (const gchar *type)
440 array = g_ptr_array_new ();
442 G_LOCK (gio_xdgmime);
444 umime = xdg_mime_unalias_mime_type (type);
446 g_ptr_array_add (array, g_strdup (umime));
448 parents = xdg_mime_list_mime_parents (umime);
449 for (i = 0; parents && parents[i] != NULL; i++)
450 g_ptr_array_add (array, g_strdup (parents[i]));
454 G_UNLOCK (gio_xdgmime);
456 g_ptr_array_add (array, NULL);
458 return (gchar **)g_ptr_array_free (array, FALSE);
462 * g_content_type_equals:
463 * @type1: a content type string
464 * @type2: a content type string
466 * Compares two content types for equality.
468 * Returns: %TRUE if the two strings are identical or equivalent,
472 g_content_type_equals (const gchar *type1,
477 g_return_val_if_fail (type1 != NULL, FALSE);
478 g_return_val_if_fail (type2 != NULL, FALSE);
480 G_LOCK (gio_xdgmime);
481 res = xdg_mime_mime_type_equal (type1, type2);
482 G_UNLOCK (gio_xdgmime);
488 * g_content_type_is_a:
489 * @type: a content type string
490 * @supertype: a content type string
492 * Determines if @type is a subset of @supertype.
494 * Returns: %TRUE if @type is a kind of @supertype,
498 g_content_type_is_a (const gchar *type,
499 const gchar *supertype)
503 g_return_val_if_fail (type != NULL, FALSE);
504 g_return_val_if_fail (supertype != NULL, FALSE);
506 G_LOCK (gio_xdgmime);
507 res = xdg_mime_mime_type_subclass (type, supertype);
508 G_UNLOCK (gio_xdgmime);
514 * g_content_type_is_unknown:
515 * @type: a content type string
517 * Checks if the content type is the generic "unknown" type.
518 * On UNIX this is the "application/octet-stream" mimetype,
519 * while on win32 it is "*".
521 * Returns: %TRUE if the type is the unknown type.
524 g_content_type_is_unknown (const gchar *type)
526 g_return_val_if_fail (type != NULL, FALSE);
528 return strcmp (XDG_MIME_TYPE_UNKNOWN, type) == 0;
534 MIME_TAG_TYPE_COMMENT
539 int current_lang_level;
540 int comment_lang_level;
546 language_level (const char *lang)
548 const char * const *lang_list;
551 /* The returned list is sorted from most desirable to least
552 desirable and always contains the default locale "C". */
553 lang_list = g_get_language_names ();
555 for (i = 0; lang_list[i]; i++)
556 if (strcmp (lang_list[i], lang) == 0)
563 mime_info_start_element (GMarkupParseContext *context,
564 const gchar *element_name,
565 const gchar **attribute_names,
566 const gchar **attribute_values,
572 MimeParser *parser = user_data;
574 if (strcmp (element_name, "comment") == 0)
577 for (i = 0; attribute_names[i]; i++)
578 if (strcmp (attribute_names[i], "xml:lang") == 0)
580 lang = attribute_values[i];
584 parser->current_lang_level = language_level (lang);
585 parser->current_type = MIME_TAG_TYPE_COMMENT;
588 parser->current_type = MIME_TAG_TYPE_OTHER;
592 mime_info_end_element (GMarkupParseContext *context,
593 const gchar *element_name,
597 MimeParser *parser = user_data;
599 parser->current_type = MIME_TAG_TYPE_OTHER;
603 mime_info_text (GMarkupParseContext *context,
609 MimeParser *parser = user_data;
611 if (parser->current_type == MIME_TAG_TYPE_COMMENT &&
612 parser->current_lang_level > parser->comment_lang_level)
614 g_free (parser->comment);
615 parser->comment = g_strndup (text, text_len);
616 parser->comment_lang_level = parser->current_lang_level;
621 load_comment_for_mime_helper (const char *dir,
622 const char *basename)
624 GMarkupParseContext *context;
625 char *filename, *data;
628 MimeParser parse_data = {0};
629 GMarkupParser parser = {
630 mime_info_start_element,
631 mime_info_end_element,
635 filename = g_build_filename (dir, "mime", basename, NULL);
637 res = g_file_get_contents (filename, &data, &len, NULL);
642 context = g_markup_parse_context_new (&parser, 0, &parse_data, NULL);
643 res = g_markup_parse_context_parse (context, data, len, NULL);
645 g_markup_parse_context_free (context);
650 return parse_data.comment;
655 load_comment_for_mime (const char *mimetype)
657 const char * const* dirs;
662 basename = g_strdup_printf ("%s.xml", mimetype);
664 comment = load_comment_for_mime_helper (g_get_user_data_dir (), basename);
671 dirs = g_get_system_data_dirs ();
673 for (i = 0; dirs[i] != NULL; i++)
675 comment = load_comment_for_mime_helper (dirs[i], basename);
684 return g_strdup_printf (_("%s type"), mimetype);
688 * g_content_type_get_description:
689 * @type: a content type string
691 * Gets the human readable description of the content type.
693 * Returns: a short description of the content type @type. Free the
694 * returned string with g_free()
697 g_content_type_get_description (const gchar *type)
699 static GHashTable *type_comment_cache = NULL;
702 g_return_val_if_fail (type != NULL, NULL);
704 G_LOCK (gio_xdgmime);
705 type = xdg_mime_unalias_mime_type (type);
707 if (type_comment_cache == NULL)
708 type_comment_cache = g_hash_table_new_full (g_str_hash, g_str_equal, g_free, g_free);
710 comment = g_hash_table_lookup (type_comment_cache, type);
711 comment = g_strdup (comment);
712 G_UNLOCK (gio_xdgmime);
717 comment = load_comment_for_mime (type);
719 G_LOCK (gio_xdgmime);
720 g_hash_table_insert (type_comment_cache,
723 G_UNLOCK (gio_xdgmime);
729 * g_content_type_get_mime_type:
730 * @type: a content type string
732 * Gets the mime type for the content type, if one is registered.
734 * Returns: (allow-none): the registered mime type for the given @type,
735 * or %NULL if unknown.
738 g_content_type_get_mime_type (const char *type)
740 g_return_val_if_fail (type != NULL, NULL);
742 return g_strdup (type);
746 * g_content_type_get_icon:
747 * @type: a content type string
749 * Gets the icon for a content type.
751 * Returns: (transfer full): #GIcon corresponding to the content type. Free the returned
752 * object with g_object_unref()
755 g_content_type_get_icon (const gchar *type)
757 char *mimetype_icon, *generic_mimetype_icon, *q;
758 char *xdg_mimetype_icon, *legacy_mimetype_icon;
759 char *xdg_mimetype_generic_icon;
765 g_return_val_if_fail (type != NULL, NULL);
767 G_LOCK (gio_xdgmime);
768 xdg_mimetype_icon = g_strdup (xdg_mime_get_icon (type));
769 xdg_mimetype_generic_icon = g_strdup (xdg_mime_get_generic_icon (type));
770 G_UNLOCK (gio_xdgmime);
772 mimetype_icon = g_strdup (type);
774 while ((q = strchr (mimetype_icon, '/')) != NULL)
777 p = strchr (type, '/');
779 p = type + strlen (type);
781 /* Not all icons have migrated to the new icon theme spec, look for old names too */
782 legacy_mimetype_icon = g_strconcat ("gnome-mime-", mimetype_icon, NULL);
784 generic_mimetype_icon = g_malloc (p - type + strlen ("-x-generic") + 1);
785 memcpy (generic_mimetype_icon, type, p - type);
786 memcpy (generic_mimetype_icon + (p - type), "-x-generic", strlen ("-x-generic"));
787 generic_mimetype_icon[(p - type) + strlen ("-x-generic")] = 0;
789 if (xdg_mimetype_icon)
790 icon_names[n++] = xdg_mimetype_icon;
792 icon_names[n++] = mimetype_icon;
793 icon_names[n++] = legacy_mimetype_icon;
795 if (xdg_mimetype_generic_icon)
796 icon_names[n++] = xdg_mimetype_generic_icon;
798 icon_names[n++] = generic_mimetype_icon;
800 themed_icon = g_themed_icon_new_from_names (icon_names, n);
802 g_free (xdg_mimetype_icon);
803 g_free (xdg_mimetype_generic_icon);
804 g_free (mimetype_icon);
805 g_free (legacy_mimetype_icon);
806 g_free (generic_mimetype_icon);
812 * g_content_type_can_be_executable:
813 * @type: a content type string
815 * Checks if a content type can be executable. Note that for instance
816 * things like text files can be executables (i.e. scripts and batch files).
818 * Returns: %TRUE if the file type corresponds to a type that
819 * can be executable, %FALSE otherwise.
822 g_content_type_can_be_executable (const gchar *type)
824 g_return_val_if_fail (type != NULL, FALSE);
826 if (g_content_type_is_a (type, "application/x-executable") ||
827 g_content_type_is_a (type, "text/plain"))
834 looks_like_text (const guchar *data, gsize data_size)
839 for (i = 0; i < data_size; i++)
843 if (g_ascii_iscntrl (c) &&
844 !g_ascii_isspace (c) &&
852 * g_content_type_from_mime_type:
853 * @mime_type: a mime type string
855 * Tries to find a content type based on the mime type name.
857 * Returns: (allow-none): Newly allocated string with content type
858 * or %NULL. Free with g_free()
863 g_content_type_from_mime_type (const gchar *mime_type)
867 g_return_val_if_fail (mime_type != NULL, NULL);
869 G_LOCK (gio_xdgmime);
870 /* mime type and content type are same on unixes */
871 umime = g_strdup (xdg_mime_unalias_mime_type (mime_type));
872 G_UNLOCK (gio_xdgmime);
878 * g_content_type_guess:
879 * @filename: (allow-none): a string, or %NULL
880 * @data: (allow-none) (array length=data_size): a stream of data, or %NULL
881 * @data_size: the size of @data
882 * @result_uncertain: (allow-none) (out): return location for the certainty
883 * of the result, or %NULL
885 * Guesses the content type based on example data. If the function is
886 * uncertain, @result_uncertain will be set to %TRUE. Either @filename
887 * or @data may be %NULL, in which case the guess will be based solely
888 * on the other argument.
890 * Returns: a string indicating a guessed content type for the
891 * given data. Free with g_free()
894 g_content_type_guess (const gchar *filename,
897 gboolean *result_uncertain)
900 const char *name_mimetypes[10], *sniffed_mimetype;
903 int n_name_mimetypes;
907 n_name_mimetypes = 0;
908 sniffed_mimetype = XDG_MIME_TYPE_UNKNOWN;
910 if (result_uncertain)
911 *result_uncertain = FALSE;
913 /* our test suite and potentially other code used -1 in the past, which is
914 * not documented and not allowed; guard against that */
915 g_return_val_if_fail (data_size != (gsize) -1, g_strdup (XDG_MIME_TYPE_UNKNOWN));
917 G_LOCK (gio_xdgmime);
921 i = strlen (filename);
922 if (filename[i - 1] == '/')
924 name_mimetypes[0] = "inode/directory";
925 name_mimetypes[1] = NULL;
926 n_name_mimetypes = 1;
927 if (result_uncertain)
928 *result_uncertain = TRUE;
932 basename = g_path_get_basename (filename);
933 n_name_mimetypes = xdg_mime_get_mime_types_from_file_name (basename, name_mimetypes, 10);
938 /* Got an extension match, and no conflicts. This is it. */
939 if (n_name_mimetypes == 1)
941 G_UNLOCK (gio_xdgmime);
942 return g_strdup (name_mimetypes[0]);
947 sniffed_mimetype = xdg_mime_get_mime_type_for_data (data, data_size, &sniffed_prio);
948 if (sniffed_mimetype == XDG_MIME_TYPE_UNKNOWN &&
950 looks_like_text (data, data_size))
951 sniffed_mimetype = "text/plain";
953 /* For security reasons we don't ever want to sniff desktop files
954 * where we know the filename and it doesn't have a .desktop extension.
955 * This is because desktop files allow executing any application and
956 * we don't want to make it possible to hide them looking like something
959 if (filename != NULL &&
960 strcmp (sniffed_mimetype, "application/x-desktop") == 0)
961 sniffed_mimetype = "text/plain";
964 if (n_name_mimetypes == 0)
966 if (sniffed_mimetype == XDG_MIME_TYPE_UNKNOWN &&
968 *result_uncertain = TRUE;
970 mimetype = g_strdup (sniffed_mimetype);
975 if (sniffed_mimetype != XDG_MIME_TYPE_UNKNOWN)
977 if (sniffed_prio >= 80) /* High priority sniffing match, use that */
978 mimetype = g_strdup (sniffed_mimetype);
981 /* There are conflicts between the name matches and we
982 * have a sniffed type, use that as a tie breaker.
984 for (i = 0; i < n_name_mimetypes; i++)
986 if ( xdg_mime_mime_type_subclass (name_mimetypes[i], sniffed_mimetype))
988 /* This nametype match is derived from (or the same as)
989 * the sniffed type). This is probably it.
991 mimetype = g_strdup (name_mimetypes[i]);
998 if (mimetype == NULL)
1000 /* Conflicts, and sniffed type was no help or not there.
1001 * Guess on the first one
1003 mimetype = g_strdup (name_mimetypes[0]);
1004 if (result_uncertain)
1005 *result_uncertain = TRUE;
1009 G_UNLOCK (gio_xdgmime);
1015 enumerate_mimetypes_subdir (const char *dir,
1017 GHashTable *mimetypes)
1026 while ((ent = readdir (d)) != NULL)
1028 if (g_str_has_suffix (ent->d_name, ".xml"))
1030 mimetype = g_strdup_printf ("%s/%.*s", prefix, (int) strlen (ent->d_name) - 4, ent->d_name);
1031 g_hash_table_replace (mimetypes, mimetype, NULL);
1039 enumerate_mimetypes_dir (const char *dir,
1040 GHashTable *mimetypes)
1047 mimedir = g_build_filename (dir, "mime", NULL);
1049 d = opendir (mimedir);
1052 while ((ent = readdir (d)) != NULL)
1054 if (strcmp (ent->d_name, "packages") != 0)
1056 name = g_build_filename (mimedir, ent->d_name, NULL);
1057 if (g_file_test (name, G_FILE_TEST_IS_DIR))
1058 enumerate_mimetypes_subdir (name, ent->d_name, mimetypes);
1069 * g_content_types_get_registered:
1071 * Gets a list of strings containing all the registered content types
1072 * known to the system. The list and its data should be freed using
1074 * g_list_free_full (list, g_free);
1077 * Returns: (element-type utf8) (transfer full): #GList of the registered content types
1080 g_content_types_get_registered (void)
1082 const char * const* dirs;
1083 GHashTable *mimetypes;
1084 GHashTableIter iter;
1089 mimetypes = g_hash_table_new_full (g_str_hash, g_str_equal, g_free, NULL);
1091 enumerate_mimetypes_dir (g_get_user_data_dir (), mimetypes);
1092 dirs = g_get_system_data_dirs ();
1094 for (i = 0; dirs[i] != NULL; i++)
1095 enumerate_mimetypes_dir (dirs[i], mimetypes);
1098 g_hash_table_iter_init (&iter, mimetypes);
1099 while (g_hash_table_iter_next (&iter, &key, NULL))
1101 l = g_list_prepend (l, key);
1102 g_hash_table_iter_steal (&iter);
1105 g_hash_table_destroy (mimetypes);
1111 /* tree magic data */
1112 static GList *tree_matches = NULL;
1113 static gboolean need_reload = FALSE;
1115 G_LOCK_DEFINE_STATIC (gio_treemagic);
1121 guint match_case : 1;
1122 guint executable : 1;
1123 guint non_empty : 1;
1138 tree_matchlet_free (TreeMatchlet *matchlet)
1140 g_list_free_full (matchlet->matches, (GDestroyNotify) tree_matchlet_free);
1141 g_free (matchlet->path);
1142 g_free (matchlet->mimetype);
1143 g_slice_free (TreeMatchlet, matchlet);
1147 tree_match_free (TreeMatch *match)
1149 g_list_free_full (match->matches, (GDestroyNotify) tree_matchlet_free);
1150 g_free (match->contenttype);
1151 g_slice_free (TreeMatch, match);
1155 parse_header (gchar *line)
1161 len = strlen (line);
1163 if (line[0] != '[' || line[len - 1] != ']')
1167 s = strchr (line, ':');
1169 match = g_slice_new0 (TreeMatch);
1170 match->priority = atoi (line + 1);
1171 match->contenttype = g_strdup (s + 1);
1176 static TreeMatchlet *
1177 parse_match_line (gchar *line,
1181 TreeMatchlet *matchlet;
1185 matchlet = g_slice_new0 (TreeMatchlet);
1194 *depth = atoi (line);
1195 s = strchr (line, '>');
1198 p = strchr (s, '"');
1201 matchlet->path = g_strdup (s);
1203 parts = g_strsplit (s, ",", 0);
1204 if (strcmp (parts[0], "=file") == 0)
1205 matchlet->type = G_FILE_TYPE_REGULAR;
1206 else if (strcmp (parts[0], "=directory") == 0)
1207 matchlet->type = G_FILE_TYPE_DIRECTORY;
1208 else if (strcmp (parts[0], "=link") == 0)
1209 matchlet->type = G_FILE_TYPE_SYMBOLIC_LINK;
1211 matchlet->type = G_FILE_TYPE_UNKNOWN;
1212 for (i = 1; parts[i]; i++)
1214 if (strcmp (parts[i], "executable") == 0)
1215 matchlet->executable = 1;
1216 else if (strcmp (parts[i], "match-case") == 0)
1217 matchlet->match_case = 1;
1218 else if (strcmp (parts[i], "non-empty") == 0)
1219 matchlet->non_empty = 1;
1220 else if (strcmp (parts[i], "on-disc") == 0)
1221 matchlet->on_disc = 1;
1223 matchlet->mimetype = g_strdup (parts[i]);
1232 cmp_match (gconstpointer a, gconstpointer b)
1234 const TreeMatch *aa = (const TreeMatch *)a;
1235 const TreeMatch *bb = (const TreeMatch *)b;
1237 return bb->priority - aa->priority;
1241 insert_match (TreeMatch *match)
1243 tree_matches = g_list_insert_sorted (tree_matches, match, cmp_match);
1247 insert_matchlet (TreeMatch *match,
1248 TreeMatchlet *matchlet,
1252 match->matches = g_list_append (match->matches, matchlet);
1258 last = g_list_last (match->matches);
1261 tree_matchlet_free (matchlet);
1262 g_warning ("can't insert tree matchlet at depth %d", depth);
1266 m = (TreeMatchlet *) last->data;
1269 last = g_list_last (m->matches);
1272 tree_matchlet_free (matchlet);
1273 g_warning ("can't insert tree matchlet at depth %d", depth);
1277 m = (TreeMatchlet *) last->data;
1279 m->matches = g_list_append (m->matches, matchlet);
1284 read_tree_magic_from_directory (const gchar *prefix)
1292 TreeMatchlet *matchlet;
1295 filename = g_build_filename (prefix, "mime", "treemagic", NULL);
1297 if (g_file_get_contents (filename, &text, &len, NULL))
1299 if (strcmp (text, "MIME-TreeMagic") == 0)
1301 lines = g_strsplit (text + strlen ("MIME-TreeMagic") + 2, "\n", 0);
1303 for (i = 0; lines[i] && lines[i][0]; i++)
1305 if (lines[i][0] == '[')
1307 match = parse_header (lines[i]);
1308 insert_match (match);
1312 matchlet = parse_match_line (lines[i], &depth);
1313 insert_matchlet (match, matchlet, depth);
1320 g_warning ("%s: header not found, skipping\n", filename);
1330 xdg_mime_reload (void *user_data)
1336 tree_magic_shutdown (void)
1338 g_list_free_full (tree_matches, (GDestroyNotify) tree_match_free);
1339 tree_matches = NULL;
1343 tree_magic_init (void)
1345 static gboolean initialized = FALSE;
1347 const gchar * const * dirs;
1354 xdg_mime_register_reload_callback (xdg_mime_reload, NULL, NULL);
1360 need_reload = FALSE;
1362 tree_magic_shutdown ();
1364 dir = g_get_user_data_dir ();
1365 read_tree_magic_from_directory (dir);
1366 dirs = g_get_system_data_dirs ();
1367 for (i = 0; dirs[i]; i++)
1368 read_tree_magic_from_directory (dirs[i]);
1372 /* a filtering enumerator */
1378 gboolean ignore_case;
1380 gchar **case_components;
1381 GFileEnumerator **enumerators;
1386 component_match (Enumerator *e,
1390 gchar *case_folded, *key;
1393 if (strcmp (name, e->components[depth]) == 0)
1396 if (!e->ignore_case)
1399 case_folded = g_utf8_casefold (name, -1);
1400 key = g_utf8_collate_key (case_folded, -1);
1402 found = strcmp (key, e->case_components[depth]) == 0;
1404 g_free (case_folded);
1411 next_match_recurse (Enumerator *e,
1420 if (e->enumerators[depth] == NULL)
1424 file = next_match_recurse (e, depth - 1);
1427 e->children[depth] = file;
1428 e->enumerators[depth] = g_file_enumerate_children (file,
1429 G_FILE_ATTRIBUTE_STANDARD_NAME,
1430 G_FILE_QUERY_INFO_NONE,
1435 if (e->enumerators[depth] == NULL)
1439 while ((info = g_file_enumerator_next_file (e->enumerators[depth], NULL, NULL)))
1441 name = g_file_info_get_name (info);
1442 if (component_match (e, depth, name))
1444 file = g_file_get_child (e->children[depth], name);
1445 g_object_unref (info);
1448 g_object_unref (info);
1451 g_object_unref (e->enumerators[depth]);
1452 e->enumerators[depth] = NULL;
1453 g_object_unref (e->children[depth]);
1454 e->children[depth] = NULL;
1459 enumerator_next (Enumerator *e)
1461 return next_match_recurse (e, e->depth - 1);
1465 enumerator_new (GFile *root,
1467 gboolean ignore_case)
1473 e = g_new0 (Enumerator, 1);
1474 e->path = g_strdup (path);
1475 e->ignore_case = ignore_case;
1477 e->components = g_strsplit (e->path, G_DIR_SEPARATOR_S, -1);
1478 e->depth = g_strv_length (e->components);
1481 e->case_components = g_new0 (char *, e->depth + 1);
1482 for (i = 0; e->components[i]; i++)
1484 case_folded = g_utf8_casefold (e->components[i], -1);
1485 e->case_components[i] = g_utf8_collate_key (case_folded, -1);
1486 g_free (case_folded);
1490 e->children = g_new0 (GFile *, e->depth);
1491 e->children[0] = g_object_ref (root);
1492 e->enumerators = g_new0 (GFileEnumerator *, e->depth);
1493 e->enumerators[0] = g_file_enumerate_children (root,
1494 G_FILE_ATTRIBUTE_STANDARD_NAME,
1495 G_FILE_QUERY_INFO_NONE,
1503 enumerator_free (Enumerator *e)
1507 for (i = 0; i < e->depth; i++)
1509 if (e->enumerators[i])
1510 g_object_unref (e->enumerators[i]);
1512 g_object_unref (e->children[i]);
1515 g_free (e->enumerators);
1516 g_free (e->children);
1517 g_strfreev (e->components);
1518 if (e->case_components)
1519 g_strfreev (e->case_components);
1525 matchlet_match (TreeMatchlet *matchlet,
1535 e = enumerator_new (root, matchlet->path, !matchlet->match_case);
1539 file = enumerator_next (e);
1542 enumerator_free (e);
1546 if (matchlet->mimetype)
1547 attrs = G_FILE_ATTRIBUTE_STANDARD_TYPE ","
1548 G_FILE_ATTRIBUTE_ACCESS_CAN_EXECUTE ","
1549 G_FILE_ATTRIBUTE_STANDARD_CONTENT_TYPE;
1551 attrs = G_FILE_ATTRIBUTE_STANDARD_TYPE ","
1552 G_FILE_ATTRIBUTE_ACCESS_CAN_EXECUTE;
1553 info = g_file_query_info (file,
1555 G_FILE_QUERY_INFO_NONE,
1562 if (matchlet->type != G_FILE_TYPE_UNKNOWN &&
1563 g_file_info_get_file_type (info) != matchlet->type)
1566 if (matchlet->executable &&
1567 !g_file_info_get_attribute_boolean (info, G_FILE_ATTRIBUTE_ACCESS_CAN_EXECUTE))
1573 if (result && matchlet->non_empty)
1575 GFileEnumerator *child_enum;
1576 GFileInfo *child_info;
1578 child_enum = g_file_enumerate_children (file,
1579 G_FILE_ATTRIBUTE_STANDARD_NAME,
1580 G_FILE_QUERY_INFO_NONE,
1586 child_info = g_file_enumerator_next_file (child_enum, NULL, NULL);
1588 g_object_unref (child_info);
1591 g_object_unref (child_enum);
1597 if (result && matchlet->mimetype)
1599 if (strcmp (matchlet->mimetype, g_file_info_get_content_type (info)) != 0)
1603 g_object_unref (info);
1604 g_object_unref (file);
1608 enumerator_free (e);
1610 if (!matchlet->matches)
1613 for (l = matchlet->matches; l; l = l->next)
1615 TreeMatchlet *submatchlet;
1617 submatchlet = l->data;
1618 if (matchlet_match (submatchlet, root))
1626 match_match (TreeMatch *match,
1632 for (l = match->matches; l; l = l->next)
1634 TreeMatchlet *matchlet = l->data;
1635 if (matchlet_match (matchlet, root))
1637 g_ptr_array_add (types, g_strdup (match->contenttype));
1644 * g_content_type_guess_for_tree:
1645 * @root: the root of the tree to guess a type for
1647 * Tries to guess the type of the tree with root @root, by
1648 * looking at the files it contains. The result is an array
1649 * of content types, with the best guess coming first.
1651 * The types returned all have the form x-content/foo, e.g.
1652 * x-content/audio-cdda (for audio CDs) or x-content/image-dcf
1653 * (for a camera memory card). See the <ulink url="http://www.freedesktop.org/wiki/Specifications/shared-mime-info-spec">shared-mime-info</ulink>
1654 * specification for more on x-content types.
1656 * This function is useful in the implementation of
1657 * g_mount_guess_content_type().
1659 * Returns: (transfer full) (array zero-terminated=1): an %NULL-terminated
1660 * array of zero or more content types. Free with g_strfreev()
1665 g_content_type_guess_for_tree (GFile *root)
1670 types = g_ptr_array_new ();
1672 G_LOCK (gio_treemagic);
1675 for (l = tree_matches; l; l = l->next)
1677 TreeMatch *match = l->data;
1678 match_match (match, root, types);
1681 G_UNLOCK (gio_treemagic);
1683 g_ptr_array_add (types, NULL);
1685 return (gchar **)g_ptr_array_free (types, FALSE);
1688 #endif /* Unix version */