add missing files

2 files changed, 300 insertions, 0 deletions

diff --git a/packaging/macros.shared-mime-info b/packaging/macros.shared-mime-info
new file mode 100644
index 0000000..56ef610
--- /dev/null
+++ b/packaging/macros.shared-mime-info
@@ -0,0 +1,39 @@
+# RPM macros for packages installing a MIME type according to the XDG specification
+#
+###
+#
+# When a package installs a MIME type as per the XDG specification, it should
+# use both macros:
+#
+#  - %mime_database_post in %post
+#  - %mime_database_postun in %postun
+#
+# Note that these macros can optionally take as argument the directory
+# where the MIME type is installed. If no argument is passed, then
+# %{_datadir}/mime will be used (which is where applications usually install
+# the MIME type information).
+#
+###
+
+# On install, update the mime database
+%mime_database_post()                                          \
+if test -x %{_bindir}/update-mime-database; then               \
+%if "x%1" != "x%%1"                                            \
+  %{_bindir}/update-mime-database "%1" || true                 \
+%else                                                          \
+  %{_bindir}/update-mime-database "%{_datadir}/mime" || true   \
+%endif                                                         \
+fi 
+
+# On uninstall, update the mime database. Note: we ignore upgrades (already
+# handled in %post of the new package).
+%mime_database_postun()                                        \
+if [ $1 -eq 0 ]; then                                          \
+  if test -x %{_bindir}/update-mime-database; then             \
+%if "x%1" != "x%%1"                                            \
+    %{_bindir}/update-mime-database "%1" || true               \
+%else                                                          \
+    %{_bindir}/update-mime-database "%{_datadir}/mime" || true \
+%endif                                                         \
+  fi                                                           \
+fi
diff --git a/packaging/mime-info-to-mime b/packaging/mime-info-to-mime
new file mode 100644
index 0000000..04aabf9
--- /dev/null
+++ b/packaging/mime-info-to-mime
@@ -0,0 +1,261 @@
+#! /usr/bin/perl
+
+# mime-info-to-mime
+# Script to help with conversion from mime-info to shared-mime-info.
+#
+# Conversion for simple description is automatic and correct, for
+# complicated or buggy descriptions, manual check is required (and
+# convertor returns error code 1).
+#
+# Call it without arguments to perform conversion of all files in your
+# system (previously installed files will not be overwritten) or use
+# DESTDIR variable, if you want to create package.
+#
+# (c) 2004 SuSE CR
+# Author: Stanislav Brabec <sbrabec@suse.cz>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program 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 General Public License for more details.
+#
+# You should have received a copy of the GNU 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
+
+if ( $ENV{"DESTDIR"} eq "" && $ARGV[0] ne "--force" ) {
+    print "System-wide \"$0\" is disabled. It may create bogus definitions!\n";
+    print "Use \"$0 --force\" to force it or set DESTDIR.\n";
+    exit 1;
+}
+
+# directory with mime-info
+$mimeinfodir=$ENV{"DESTDIR"} . "/usr/share/mime-info";
+
+# directory with shared-mime-info
+$sharedmimedir=$ENV{"DESTDIR"} . "/usr/share/mime/packages";
+
+$rc=0;
+
+system "mkdir -p $sharedmimedir ; rm -v 2>/dev/null \$(fgrep 2>/dev/null -l \"generated by mime-info-to-mime\" $sharedmimedir/*.xml)";
+
+foreach $mimefile (glob("$mimeinfodir/*.mime")) {
+    $mimename = $mimefile;
+    $mimename=substr($mimename, length($mimeinfodir)+1, length($mimename)-length($mimeinfodir)-6);
+
+    if (-e "$sharedmimedir/$mimename.xml")
+    {
+	print "WARNING: File $sharedmimedir/$mimename.xml already exists. No conversion.\n";
+	next;
+    }
+# Maybe uncomment in future, but now gnome-vfs.xml is 4 times longer than freedesktop.org.xml.
+# GNOME 2
+#    if ( $mimename =~ "gnome-vfs" )
+#    {
+#	print "INFO: Not creating gnome-vfs.xml. Data types should be present in freedesktop.org.xml.\n";
+#	next;
+#    }
+# GNOME 1.4
+#    if ( $mimename =~ "gnome" )
+#    {
+#	print "INFO: Not creating gnome.xml. Data types should be present in freedesktop.org.xml.\n";
+#	next;
+#    }
+    open($xml, ">$sharedmimedir/$mimename.xml");
+    print $xml "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
+    print $xml "<mime-info xmlns=\"http://www.freedesktop.org/standards/shared-mime-info\">\n";
+    print $xml "<!-- generated by mime-info-to-mime (Remove this line to prevent overwriting!) -->\n";
+
+    open($mime, "<$mimefile");
+    $lineno=0;
+    while ( <$mime> )
+    {
+	$lineno++;
+	$line = $_;
+	if ($line =~ /^[^ \t]+\/[^ \t]+/)
+	{
+	    chomp $line;
+	    $mime_type=$line;
+	}
+	else
+	{
+	    if ($line =~ /^[ \t]/)
+	    {
+		if ($line =~ /^[ \t]+ext:[ \t]?/)
+		{
+		    $line =~ s/^[ \t]+ext:[ \t]?// ;
+		    chomp $line;
+		    foreach $ext (split " ", $line)
+		    {
+			$xmlstring{$mime_type}=$xmlstring{$mime_type} . "    <glob pattern=\"*.$ext\" />\n";
+		    }
+		}
+		else
+		{
+		    if ($line =~ /^[ \t]+ext,[0-9]+:[ \t]?/)
+		    {
+			$line =~ s/^[ \t]+ext,[0-9]+:[ \t]?// ;
+			chomp $line;
+			print "WARNING in $mimename.mime $lineno: priority field ignored: $line\n";
+			foreach $ext (split " ", $line)
+			{
+			    $xmlstring{$mime_type}=$xmlstring{$mime_type} . "    <glob pattern=\"*.$ext\" />\n";
+			}
+		    }
+		    else
+		    {
+			if ($line =~ /^[ \t]+regex:[ \t]?/)
+			{
+			    $line =~ s/^[ \t]+regex:[ \t]?// ;
+			    chomp $line;
+			    print "ERROR in $mimename.mime $lineno: regex is not supported, FIXME(regex) created. Edit file manually.\n";
+			    $rc=1;
+			    $xmlstring{$mime_type}=$xmlstring{$mime_type} . "    <glob pattern=\"FIXME(regex) $line\" />\n";
+			}
+			else
+			{
+			    if ($line =~ /^[ \t]+regex,[0-9]+:[ \t]?/)
+			    {
+				$line =~ s/^[ \t]+regex,[0-9]+:[ \t]?// ;
+				chomp $line;
+				print "WARNING in $mimename.mime $lineno: priority field ignored: $line\n";
+				print "ERROR in $mimename.mime $lineno: regex is not supported, FIXME(regex) created. Edit file manually.\n";
+				$rc=1;
+				$xmlstring{$mime_type}=$xmlstring{$mime_type} . "    <glob pattern=\"FIXME(regex) $line\" />\n";
+			    }
+			    else
+			    {
+				print "ERROR in $mimename.mime $lineno: unknown line format: $line\n";
+				$rc=1;
+			    }
+			}
+		    }
+		}
+	    }
+	    else
+	    {
+		if ($line =~ /^$/)
+		{
+		    $mime_type="FIXME";
+		}
+		else
+		{
+		    chomp $line;
+		    if ($line =~ /^#/ )
+			{
+			    $line =~ s/^#*[ \t]*// ;
+			    print $xml "<!-- $line -->\n";
+			}
+			else
+			{
+			    print "ERROR in $mimename.mime $lineno: unknown line: $line\n";
+			    $rc=1;
+			}
+		    }
+		}
+	    }
+	}
+	close($mime);
+
+	if (-e "$mimeinfodir/$mimename.keys")
+	{
+	    open($keys, "<$mimeinfodir/$mimename.keys");
+	    $lineno=0;
+	    while ( <$keys> )
+	    {
+		$lineno++;
+		$line = $_;
+		if ($line =~ /^[^ \t]+\/[^ \t]+/)
+		{
+		    chomp $line;
+		    $mime_type=$line;
+		}
+		else
+		{
+		    if ($line =~ /^[ \t]/)
+		    {
+			chomp $line;
+			$line =~ s/^[ \t]*// ;
+			if ($line =~ /^\[[^=]+\][^=]+=/)
+			{
+			    $lang=$line;
+			    $lang =~ s/^\[([^=]+)\][^=]+=.*$/\1/ ;
+			    $item=$line;
+			    $item =~ s/^\[[^=]+\]([^=]+)=.*$/\1/ ;
+			    $value=$line;
+			    $value =~ s/^\[[^=]+\][^=]+=(.*)$/\1/ ;
+			}
+			else
+			{
+			    if ($line =~ /^[^=]+=/)
+			    {
+				$item=$line;
+				$item =~ s/^([^=]+)=.*$/\1/ ;
+				$value=$line;
+				$value =~ s/^[^=]+=(.*)$/\1/ ;
+				$lang="";
+			    }
+			    else
+			    {
+				print "ERROR in $mimename.keys $lineno: unknown line format: $line\n";
+				$rc=1;
+			    }
+			}
+
+			if ($item =~ /^description$/)
+			{
+			    if ($lang)
+			    {
+				$xmlstring_c{$mime_type}=$xmlstring_c{$mime_type} . "    <comment xml:lang=\"$lang\">$value</comment>\n";
+			    }
+			    else
+			    {
+				$xmlstring_c{$mime_type}=$xmlstring_c{$mime_type} . "    <comment>$value</comment>\n";
+			    }
+			}
+		    }
+		    else
+		    {
+			if ($line =~ /^$/)
+			{
+			    $mime_type="FIXME";
+			}
+			else
+			{
+			    chomp $line;
+			    if ($line =~ /^#/ )
+				{
+				    $line =~ s/^#*[ \t]*// ;
+				    print $xml "<!-- $line -->\n";
+				}
+				else
+				{
+				    print "ERROR in $mimename.keys $lineno: unknown line: $line\n";
+				    $rc=1;
+				}
+			    }
+			}
+		    }
+		}
+		close($keys);
+	    }
+
+	    foreach $mime_type (keys %xmlstring) {
+		print $xml "  <mime-type type=\"$mime_type\">\n";
+		print $xml $xmlstring_c{$mime_type};
+		print $xml $xmlstring{$mime_type};
+		print $xml "  </mime-type>\n";
+	    }
+	    print $xml "</mime-info>\n";
+	    close($xml);
+
+	    undef %xmlstring;
+	    undef %xmlstring_c;
+
+	}
+	exit $rc;