[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

lintian: r45 - trunk



Author: jeroen
Date: 2004-02-16 21:50:56 +0100 (Mon, 16 Feb 2004)
New Revision: 45

Removed:
   trunk/rgb-vs-cmap
Log:
Remove obsolete script to generate good colors for icons

Deleted: trunk/rgb-vs-cmap
===================================================================
--- trunk/rgb-vs-cmap	2004-02-16 20:36:59 UTC (rev 44)
+++ trunk/rgb-vs-cmap	2004-02-16 20:50:56 UTC (rev 45)
@@ -1,31 +0,0 @@
-#!/usr/bin/perl -w
-# I used this to populate the %icon_cmap hash in checks/menu-format
-# -- Joy, 2002-11-27, 2002-11-29
-
-open C, "/usr/share/pixmaps/cmap.xpm" or die;
-while (<C>) {
-  if (/^.. . #(..)(..)(..)/) {
-    my $red = $1;
-    my $green = $2;
-    my $blue = $3;
-    $valid_colors{"#$red$green$blue"} = 1;
-  }
-}
-close C;
-
-print "   \'none\' => 1,\n";
-foreach (sort keys %valid_colors) {
-    print "   \'$_\' => 1,\n";
-}
-
-open R, "/etc/X11/rgb.txt" or die;
-while (<R>) {
-  if (/^\s*(\d+)\s+(\d+)\s+(\d+)\s+(\S+)/) { # ignore multi-word color names intentionally?
-    my $hex = sprintf "%.2x%.2x%.2x", $1, $2, $3;
-    my $name = lc $4;
-    if (exists $valid_colors{"#$hex"}) {
-      print "   \'$name\' => 1,\n";
-    }
-  }
-}
-close R;



Reply to: