Re: MATE category ?

[Achim Gratz <Stromeko at nexgo dot de>]

Yaakov Selkowitz writes:
> Thanks for noticing.  I have added all of these, plus PHP and Ruby, to
> setup.html.

The Video category is present in setup.ini, but missing from the list.
In setup.ini we currently have a mixture of Gnome and GNOME that
probably needs to be cleaned up and a lone OCaml package that probably
should just be some other category (it was likely moved from Ports,
which uses that category more often).

Also, genini still hasn't been updated with the latest changes.  OK to
install this patch?

--- genini.~1.15.~	2013-10-07 23:11:35.000000000 +0200
+++ genini	2015-05-09 10:06:02.225951407 +0200
@@ -6,7 +6,7 @@
 # for details.
 #
 use File::Basename;
-use Digest::MD5;
+use Digest::SHA;
 use Getopt::Long;
 
 use strict;
@@ -20,9 +20,14 @@
 my ($outfile, $help, $recursive);
 my $arch = 'x86';
 my $release;
-my @cmp_fmts = qw(gz bz2 lzma xz);
+my @cmp_fmts = qw(xz bz2 lzma gz);
 
-GetOptions('okmissing=s'=>\@okmissing, 'output=s'=>\$outfile, 'help'=>\$help, 'release=s'=>\$release, 'arch=s'=>\&arch_handler, 'recursive'=>\$recursive) or usage;
+GetOptions('okmissing=s'=>\@okmissing,
+	   'output=s'=>\$outfile,
+	   'help'=>\$help,
+	   'release=s'=>\$release,
+	   'arch=s'=>\&arch_handler,
+	   'recursive'=>\$recursive) or usage;
 $help and usage;
 
 @main::okmissing{@okmissing} = @okmissing;
@@ -190,6 +195,7 @@
     my $setup_hint = "$d/setup.hint";
     return unless -e $setup_hint;
     parse("$setup_hint", $pname);
+    next unless exists $pkg{$pname};
     my $explicit = 0;
     for my $what ('', "[prev]\n", "[test]\n") {
 	my $x = $pkg{$pname}{$what};
@@ -246,9 +252,9 @@
 	myerror "can't open $f - $!" unless $main::okmissing{$what};
 	return undef;
     };
-    my $md5 = Digest::MD5->new;
-    $md5->addfile(\*F);
-    $x->{$what} = join(' ', $f, -s $f, $md5->hexdigest);
+    my $sha512 = Digest::SHA->new(512);
+    $sha512->addfile(\*F);
+    $x->{$what} = join(' ', $f, -s $f, $sha512->hexdigest);
 }
 
 sub tarball {
@@ -260,8 +266,8 @@
         return "$f";
       }
     }
-    # default to .bz2 (even though we know it is missing)
-    return "$d/" . "$b" . "bz2";
+    # default to .nf (because we know it is missing)
+    return "$d/" . "$b" . "nf";
 }
 
 sub fnln {
@@ -312,9 +318,10 @@
 
 BEGIN {
     my @cats = qw'
-     Admin Archive Audio Base Comm Database Debug Devel Doc Editors Games
-     Gnome Graphics Interpreters KDE Libs Mail Math Mingw Net Perl
-     Publishing Python Science Shells Sound System Text Utils Web X11
+     Accessibility Admin Archive Audio Base Comm Database Devel Doc
+     Editors Games GNOME Graphics Interpreters KDE Libs LXDE Mail MATE
+     Math Mingw Net Perl PHP Python Publishing Ruby Science Shells
+     System Text Utils Video Web X11 Xfce
      _obsolete _PostInstallLast
      ';
     @main::categories{map {lc $_} @cats} = @cats;



Regards,
Achim.
-- 
+<[Q+ Matrix-12 WAVE#46+305 Neuron microQkb Andromeda XTk Blofeld]>+

Factory and User Sound Singles for Waldorf Q+, Q and microQ:
http://Synth.Stromeko.net/Downloads.html#WaldorfSounds