diff options
author | John Ankarström <john@ankarstrom.se> | 2022-08-26 09:10:38 +0200 |
---|---|---|
committer | John Ankarström <john@ankarstrom.se> | 2022-08-26 09:11:35 +0200 |
commit | 3e3d8d6c13e6b4207a97aee117236b8ca70b9fbe (patch) | |
tree | 2c89e0f343d40280d0b1f715b10d4591e21725fc /showtodo | |
parent | eb7709d8617bec27349eebb43e8941b3aaaf453e (diff) | |
download | EpisodeBrowser-3e3d8d6c13e6b4207a97aee117236b8ca70b9fbe.tar.gz |
Use CMake.
I don't love it, but it makes it possible to support Visual Studio in
addition to MinGW GCC.
Diffstat (limited to 'showtodo')
-rw-r--r-- | showtodo | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/showtodo b/showtodo deleted file mode 100644 index 475e492..0000000 --- a/showtodo +++ /dev/null @@ -1,27 +0,0 @@ -#!/usr/bin/env perl - -use strict; -use warnings; - -# Note that this script only supports /* C-style */ comments. - -while (my $f = glob("c/*.*")) { - open my $fh, "<", $f; - my $line; - while (<$fh>) { - $line++; - next if not m{TODO:}; # Skip fast. - - next if not m{^\s*/?\*.*\s(TODO:.*)\s*(\*/)?}; - print "$f:$line: $1\n"; - next if $2; - - # Continue text if comment is not finished. - my $pad = " " x length("$f:$line: "); - while (<$fh>) { - (my $text = $_) =~ s{^\s*\*?\s*|\s*\*/}{}g; - print "$pad$text"; - last if m{\*/}; - } - } -} |