[[svn-to-darcs @ 4]
dmorelli**20040225181939
Added a script.
] addfile ./trunk/rgbtable.pl
hunk ./trunk/rgbtable.pl 1
+#! /usr/local/bin/perl
+
+#--------------------------------------------------------------------------
+# $RCSfile$
+#--------------------------------------------------------------------------
+# $Revision: 4 $
+# $Date: 2004-02-25 13:19:39 -0500 (Wed, 25 Feb 2004) $
+# $Author: dmorelli $
+#
+# Script to turn an rgb.txt file (from *nix) into an html table showing
+# The color names, values and swatches.
+#--------------------------------------------------------------------------
+
+
+main();
+
+#--------------------------------------------------------------------------
+sub constructHeader
+{
+ my $strOrigFile = $_[0];
+
+ $strHeader =
+ "\n\t\n\t\trgb.txt listing\n\t";
+ $strHeader .= "\n\n\t\n";
+ $strHeader .= "\t\tConstructed from ${strOrigFile}\n";
+ $strHeader .= "\t\t
Running on: " .
+ qx/uname -a/ . "\n";
+ $strHeader .= "\t\t
Constructed on " . localtime() . "\n";
+ $strHeader .= "\t\t\n";
+ $strHeader .= "\t\t| color name | ";
+ $strHeader .= "swatch | ";
+ $strHeader .= "#rrggbb (hex) | ";
+ $strHeader .= "R G B (dec) | ";
+ $strHeader .= "
\n";
+
+ return $strHeader;
+} # sub constructHeader
+
+#--------------------------------------------------------------------------
+# Take the decimal RGB values and color name and construct a table row.
+sub constructTableRow
+{
+ # These three assingments perform a dec to hex conversion.
+ $nR = sprintf("%02x", $_[0]);
+ $nG = sprintf("%02x", $_[1]);
+ $nB = sprintf("%02x", $_[2]);
+ $strColorDec = "$_[0] $_[1] $_[2]";
+ $strColorHex = "#${nR}${nG}${nB}";
+
+ $strName = $_[3];
+
+ $strRow = "\t\t\t| ${strName} | ";
+ $strRow .= "";
+ $strRow .= " | ";
+ $strRow .= "${strColorHex} | ";
+ $strRow .= "${strColorDec} | ";
+ $strRow .= "
\n";
+
+ return $strRow;
+} # sub constructTableRow
+
+#--------------------------------------------------------------------------
+sub constructFooter
+{
+ return "\t\t
\n\t\n";
+} # sub constructFooter
+
+#--------------------------------------------------------------------------
+sub main
+{
+ my ($strFileIn, $strFileOut) = @ARGV;
+
+ $strHtml = constructHeader($strFileIn);
+
+ open(fileRgb, $strFileIn)
+ || die("Could not open file: $strFilePath\n");
+
+ # Skip the first line, it's always a comment.
+ $strLine = ;
+
+ # Walk the remaining lines and extract the info we want.
+ while($strLine = )
+ {
+ $strLine =~ m/[ \t]*([0-9]{1,3})[ \t]*([0-9]{1,3})[ \t]*([0-9]{1,3})[ \t]*(.*)/;
+ $strHtml .= constructTableRow($1, $2, $3, $4);
+ }
+
+ close(fileRgb);
+
+ $strHtml .= constructFooter();
+
+ # FIXME
+ # Instead of printing, how about we save the file.
+ #print("$strHtml\n");
+
+ open(fileOut, ">" . $strFileOut);
+ print(fileOut "$strHtml\n");
+ close(fileOut);
+} # sub main
+