|
Lines 102-108
Link Here
|
| 102 |
$nocolor{"dumb"} = "true"; |
102 |
$nocolor{"dumb"} = "true"; |
| 103 |
|
103 |
|
| 104 |
$colors{"srcColor"} = color("cyan"); |
104 |
$colors{"srcColor"} = color("cyan"); |
| 105 |
$colors{"introColor"} = color("blue"); |
105 |
$colors{"introFileNameColor"} = color("blue"); |
|
|
106 |
$colors{"introMessageColor"} = color("blue"); |
| 106 |
|
107 |
|
| 107 |
$colors{"warningFileNameColor"} = color("yellow"); |
108 |
$colors{"warningFileNameColor"} = color("yellow"); |
| 108 |
$colors{"warningNumberColor"} = color("yellow"); |
109 |
$colors{"warningNumberColor"} = color("yellow"); |
|
Lines 111-116
Link Here
|
| 111 |
$colors{"errorFileNameColor"} = color("bold red"); |
112 |
$colors{"errorFileNameColor"} = color("bold red"); |
| 112 |
$colors{"errorNumberColor"} = color("bold red"); |
113 |
$colors{"errorNumberColor"} = color("bold red"); |
| 113 |
$colors{"errorMessageColor"} = color("bold red"); |
114 |
$colors{"errorMessageColor"} = color("bold red"); |
|
|
115 |
|
| 116 |
$colors{"noteFileNameColor"} = color("green"); |
| 117 |
$colors{"noteNumberColor"} = color("green"); |
| 118 |
$colors{"noteMessageColor"} = color("green"); |
| 114 |
} |
119 |
} |
| 115 |
|
120 |
|
| 116 |
sub loadPreferences |
121 |
sub loadPreferences |
|
Lines 290-301
Link Here
|
| 290 |
print($colors{"warningNumberColor"}, "$field2:", color("reset")); |
295 |
print($colors{"warningNumberColor"}, "$field2:", color("reset")); |
| 291 |
srcscan($field3, $colors{"warningMessageColor"}); |
296 |
srcscan($field3, $colors{"warningMessageColor"}); |
| 292 |
} |
297 |
} |
| 293 |
else |
298 |
elsif ($field3 =~ m/\s+error:.*/) |
| 294 |
{ |
299 |
{ |
| 295 |
# Error |
300 |
# Error |
| 296 |
print($colors{"errorFileNameColor"}, "$field1:", color("reset")); |
301 |
print($colors{"errorFileNameColor"}, "$field1:", color("reset")); |
| 297 |
print($colors{"errorNumberColor"}, "$field2:", color("reset")); |
302 |
print($colors{"errorNumberColor"}, "$field2:", color("reset")); |
| 298 |
srcscan($field3, $colors{"errorMessageColor"}); |
303 |
srcscan($field3, $colors{"errorMessageColor"}); |
|
|
304 |
} else |
| 305 |
{ |
| 306 |
# Note |
| 307 |
print($colors{"noteFileNameColor"}, "$field1:", color("reset")); |
| 308 |
print($colors{"noteNumberColor"}, "$field2:", color("reset")); |
| 309 |
srcscan($field3, $colors{"noteMessageColor"}); |
| 299 |
} |
310 |
} |
| 300 |
print("\n"); |
311 |
print("\n"); |
| 301 |
} |
312 |
} |
|
Lines 305-312
Link Here
|
| 305 |
} |
316 |
} |
| 306 |
elsif (m/^(.*?):(.+):$/) # filename:message: |
317 |
elsif (m/^(.*?):(.+):$/) # filename:message: |
| 307 |
{ |
318 |
{ |
|
|
319 |
my $field1 = $1 || ""; |
| 320 |
my $field2 = $2 || ""; |
| 308 |
# No line number, treat as an "introductory" line of text. |
321 |
# No line number, treat as an "introductory" line of text. |
| 309 |
srcscan($_, $colors{"introColor"}); |
322 |
print($colors{"introFileNameColor"}, "$field1:", color("reset")); |
|
|
323 |
print($colors{"introMessageColor"}, "$field2:\n", color("reset")); |
| 310 |
} |
324 |
} |
| 311 |
else # Anything else. |
325 |
else # Anything else. |
| 312 |
{ |
326 |
{ |
