1
0
mirror of https://github.com/irssi/irssi.git synced 2024-07-14 03:04:17 -04:00
irssi/utils/clang-format-xs/format-xs-2.pl
2021-01-07 01:36:32 +01:00

11 lines
281 B
Perl

use strict;
use warnings;
my $doc = do { local $/; <> };
$doc =~ s{\}[ \t]*/[*] -xs- [*]/\s*}{}g;
$doc =~ s{^[ \t]*?/[*] =xs= (.*?) [*]/(\s*\{$)?}{$1}gms;
$doc =~ s{^[ \t]*?/[*] clang-format off [*]//[*] =xs= (.*?) [*]/\s?/[*] clang-format on [*]/(\s*\{$)?}{$1}gms;
print $doc;