merge development/* and help/*

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";
+	}
+}
+