another directory rename: failstar -> fail

"failstar" sounds like a name for a cruise liner from the 80s. As "*" isn't a desirable part of directory names, just name the whole thing "fail/", the core parts being stored in "fail/core/". Additionally fixing two build system dependency issues: - missing jobserver -> protomessages dependency - broken bochs -> fail dependency (add_custom_target DEPENDS only allows plain file dependencies ... cmake for the win) git-svn-id: https://www4.informatik.uni-erlangen.de/i4svn/danceos/trunk/devel/fail@956 8c4709b5-6ec9-48aa-a5cd-a96041d1645a
2012-03-08 19:43:02 +00:00
commit b70b6fb43a
921 changed files with 473161 additions and 0 deletions
--- a/scripts/colorize.pl
+++ b/scripts/colorize.pl
@ -0,0 +1,132 @@
+#! /usr/bin/perl -w
+
+#
+# ripped from colorgcc Version: 1.3.2
+# http://schlueters.de/colorgcc.1.3.2.txt
+#
+
+use Term::ANSIColor;
+
+sub initDefaults
+{
+   $nocolor{"dumb"} = "true";
+
+   $colors{"srcColor"} = color("cyan");
+   $colors{"introColor"} = color("blue");
+
+   $colors{"warningFileNameColor"} = color("yellow");
+   $colors{"warningNumberColor"}   = color("yellow");
+   $colors{"warningMessageColor"}  = color("yellow");
+
+   $colors{"errorFileNameColor"} = color("bold red");
+   $colors{"errorNumberColor"}   = color("bold red");
+   $colors{"errorMessageColor"}  = color("bold red");
+}
+
+sub loadPreferences
+{
+# Usage: loadPreferences("filename");
+
+   my($filename) = @_;
+
+   open(PREFS, "<$filename") || return;
+
+   while(<PREFS>)
+   {
+      next if (m/^\#.*/);          # It's a comment.
+      next if (!m/(.*):\s*(.*)/);  # It's not of the form "foo: bar".
+
+      $option = $1;
+      $value = $2;
+
+      if ($option eq "nocolor")
+      {
+	 # The nocolor option lists terminal types, separated by
+	 # spaces, not to do color on.
+	 foreach $termtype (split(/\s+/, $value))
+	 {
+	    $nocolor{$termtype} = "true";
+	 }
+      }
+      else
+      {
+	 $colors{$option} = color($value);
+      }
+   }
+   close(PREFS);
+}
+
+sub srcscan
+{
+# Usage: srcscan($text, $normalColor)
+#    $text -- the text to colorize
+#    $normalColor -- The escape sequence to use for non-source text.
+
+# Looks for text between ` and ', and colors it srcColor.
+
+   my($line, $normalColor) = @_;
+
+   my($srcon) = color("reset") . $colors{"srcColor"};
+   my($srcoff) = color("reset") . $normalColor;
+
+   $line = $normalColor . $line;
+
+   # This substitute replaces `foo' with `AfooB' where A is the escape
+   # sequence that turns on the the desired source color, and B is the
+   # escape sequence that returns to $normalColor.
+   $line =~ s/\`(.*?)\'/\`$srcon$1$srcoff\'/g;
+
+   print($line, color("reset"));
+}
+
+#
+# Main program
+#
+
+# Set up default values for colors and compilers.
+initDefaults();
+
+# Read the configuration file, if there is one.
+$configFile = $ENV{"HOME"} . "/.colorgccrc";
+if (-f $configFile)
+{
+   loadPreferences($configFile);
+}
+
+# Colorize the input
+while(<>)
+{
+   if (m/^(.*?):([0-9]+):(.*)$/) # filename:lineno:message
+   {
+      $field1 = $1 || "";
+      $field2 = $2 || "";
+      $field3 = $3 || "";
+
+      if ($field3 =~ m/\s+warning:.*/)
+      {
+	 # Warning
+	 print($colors{"warningFileNameColor"}, "$field1:", color("reset"));
+	 print($colors{"warningNumberColor"}, "$field2:", color("reset"));
+	 srcscan($field3, $colors{"warningMessageColor"});
+      }
+      else 
+      {
+	 # Error
+	 print($colors{"errorFileNameColor"}, "$field1:", color("reset"));
+	 print($colors{"errorNumberColor"}, "$field2:", color("reset"));
+	 srcscan($field3, $colors{"errorMessageColor"});
+      }
+      print("\n");
+   }
+   elsif (m/^(.*?):(.+):$/) # filename:message:
+   {
+      # No line number, treat as an "introductory" line of text.
+      srcscan($_, $colors{"introColor"});
+   } elsif (m/No such file or directory/) {
+     print($colors{"errorFileNameColor"}, $_);
+   } else # Anything else.
+   {
+      # Doesn't seem to be a warning or an error. Print normally.
+      print(color("reset"), $_);
+   }
+}