zynk/irssi
2
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2026-08-17 15:42:26 +02:00
Code Issues Projects Releases Packages Wiki Activity

move clang-format-xs into utils

Browse source
This commit is contained in:
Ailin Nemui 2021-01-06 22:22:00 +01:00
commit 7379833b53
5 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

73
.github/workflows/clangformat/format-xs-1.pl vendored
View file

@ -1,73 +0,0 @@
use strict;
use warnings;
my $in_code = 1;
my @lines = $ENV{IN_LINES} =~ /(\d+):(\d+)/g;
sub in_lines {
if (@lines) {
for (my $i = 0; $i < @lines; $i += 2) {
if ($_[0] >= $lines[$i] && $_[0] <= $lines[$i + 1]) {
return 1;
}
}
return '';
} else {
return 1;
}
}
while (<>) {
chomp;
my $copy;
my $prot = 0;
my $code = $in_code;
if (/^#(define|undef|include|if)/) {
$copy = 1;
}
elsif (/^#[* ]/) {
$prot = 1;
}
elsif (/^[A-Z_]+\s*=/) {
$prot = 2;
$in_code = 0;
}
elsif (/^((PP)?CODE|PREINIT):/) {
$prot = 1;
$in_code = 3;
}
elsif (/^[A-Z_]*:/) {
$prot = 1;
$in_code = 0;
}
elsif (/^[\w:* ]+\s*$/) {
$in_code = 0;
}
if ($prot || (!$copy && !$in_code)) {
if ($code == 2) {
print "}/* -xs- */";
}
if ($prot == 2) {
print "/* clang-format off */";
}
s/^\s+/\t/ if in_lines($.);
print "/* =xs= $_ */";
if ($prot == 2) {
print "/* clang-format on */";
}
if ($in_code == 3) {
print "{";
$in_code = 2;
}
print "\n";
}
elsif ($copy) {
print "$_\n";
}
elsif ($in_code) {
print "$_\n";
}
}
if ($in_code) {
print "}/* -xs- */\n";
}