1 files changed, 76 insertions, 0 deletions

diff --git a/development/sort_desktop_files.pl b/development/sort_desktop_files.pl
new file mode 100755
index 0000000..e553b9e
--- a/dev/null
+++ b/development/sort_desktop_files.pl
@@ -0,0 +1,76 @@
+#!/usr/bin/perl -w
+# Copyright (c) 2002,2003 by 
+# Bruno Rodrigues <bruno.rodrigues@litux.org>
+# under the GNU GPL license 2.0 or newer
+# sort_desktop_files.pl,v 1.1.2.1 2003/07/01 02:22:56 davipt Exp
+# -----------------------------------------------------
+# This script reads a .desktop file and sorts its values
+# in the following format:
+# [Desktop Entry]
+# field1=val1  \
+# field2=val2   > Sorted by field name
+# ...          /
+# Name=name
+# Comment=comment
+# Name[lang1]=...    \
+# Comment[lang1]=...  > Sorted by language name
+# Name[lang2]=...    /
+
+use strict;
+use vars qw{$line %data %tr};
+
+%data = (); %tr = (); 
+
+# Read first line and make sure it's "[Desktop Entry]"
+$line = <>; chop($line);
+die "E: File does not start with [Desktop Entry] ($line)\n" unless $line =~ /^\[Desktop Entry\]$/;
+
+my $end=0;
+while($line = <>) {
+        # Ignore fields without values
+        next if $line =~ /^\s*([^\s]+)\s*=\s*$/; 
+
+        # Ignore empty line in the end
+        if($line =~ /^\s*$/) { 
+                if($end==0) { $end=1; next;
+                } else { die "E: Empty line in middle of file\n";
+                }
+        }
+
+        # Die if line is not "field = value"
+        die "E: Error in line - not field=value ($line)\n" unless $line =~ /^\s*([^\s]+)\s*=\s*(.+?)\s*$/;
+
+        my ($key, $data) = ($1, $2);
+
+        # Grab Name[lang] and Comment[lang]
+        if($key =~ /^(Name|Comment)\[(.+)\]$/i) {
+                $tr{$2}{$1} = $data;
+        } 
+        # Grab Name and Comment
+        elsif($key =~ /^(Name|Comment)$/i) {
+                $tr{"0"}{$1} = $data;
+        } 
+        # Die if there is other field[x]
+        elsif($key =~ /\[|\]/) {
+                die "E: Error in line - unknown field with [] ($line)\n";
+        } 
+        # Grab regular fields
+        else {
+                $data{$1} = $2;
+        }
+}
+
+
+print "[Desktop Entry]\n";
+foreach my $key (sort keys %data) {
+        print "$key=".$data{$key}."\n";
+}
+foreach my $key (sort keys %tr) {
+        my %tr2 = %{$tr{$key}};
+        foreach my $k2 (reverse sort keys %tr2) {
+                print $k2;
+                print "[$key]" unless $key eq "0";
+                print "=". $tr2{$k2}. "\n";
+        }
+}
+