flightsimulatorplatfrom/pilotclient
1
0
Fork 0
mirror of https://github.com/swift-project/pilotclient.git synced 2026-03-22 06:45:37 +08:00
Code Issues Packages Projects Releases Wiki Activity

Use GitHub Actions problem matcher to highlight warnings

Browse Source
This commit is contained in:
Mat Sutcliffe
2023-11-19 01:37:00 +00:00
committed by Lars Toenning
parent cc2dee8185
commit 1b16a012fe
2 changed files with 14 additions and 100 deletions
Download Patch File Download Diff File Expand all files Collapse all files

67
scripts/warnings.pl
View File

@@ -1,67 +0,0 @@
#!/usr/bin/perl
#
# Convert C++ compiler warnings into Github Actions workflow commands
#
# SPDX-FileCopyrightText: Copyright (C) 2020 swift Project Community / contributors
# SPDX-License-Identifier: GPL-3.0-or-later OR LicenseRef-swift-pilot-client-1
use strict;
use warnings;
use File::Spec;
use Cwd;
my %cmds;
while (<<>>)
{
chomp;
my %result = extractWarning($_);
next if not %result;
$result{file} = toRelativePath($result{file});
$result{file} =~ s(\\)(/)g if $^O eq 'MSWin32';
if (exists $result{line}) {
++$cmds{"::warning file=$result{file},line=$result{line}::$result{msg}"};
} else {
++$cmds{"::warning file=$result{file}::$result{msg}"};
}
}
print "$_\n" for sort keys %cmds;
my $bool = %cmds ? 'true' : 'false';
open my $GITHUB_OUTPUT, ">> $ENV{GITHUB_OUTPUT}" or die "open: $!";
print $GITHUB_OUTPUT "warnings=$bool\n";
sub extractWarning
{
my $text = shift;
my %result = extractGccWarning($text);
return %result if %result;
return extractMsvcWarning($text);
}
sub extractGccWarning
{
my $text = shift;
$text =~ m(^\s*(?<loc>.*?): warning: (?<msg>.*)$) or return ();
my ($loc, $msg) = @+{ qw(loc msg) };
$loc =~ m(^(?<file>.*?):(?<loc>[0-9:]+)$) or return (file => $loc, msg => $msg);
my ($file, $line) = ($+{file}, split ':', $+{loc});
return (file => $file, line => $line, msg => $msg);
}
sub extractMsvcWarning
{
my $text = shift;
$text =~ m(^\s*(?<loc>.*?): warning (?<msg>[A-Z]+[0-9]+: .*)$) or return ();
my ($loc, $msg) = @+{ qw(loc msg) };
$loc =~ m(^(?<file>.*)\((?<loc>[0-9,]+)\)$) or return (file => $loc, msg => $msg);
my ($file, $line) = ($+{file}, split ',', $+{loc});
return (file => $file, line => $line, msg => $msg);
}
sub toRelativePath
{
my $path = shift;
return $path if not File::Spec->file_name_is_absolute($path);
return File::Spec->rel2abs($path) if index($path, getcwd()) == 0;
return $path;
}