+bin/wcsrc master
authorJan Kratochvil <jan.kratochvil@redhat.com>
Wed, 12 May 2021 16:45:16 +0000 (18:45 +0200)
committerJan Kratochvil <jan.kratochvil@redhat.com>
Wed, 12 May 2021 16:45:16 +0000 (18:45 +0200)
bin/wcsrc [new file with mode: 0755]

diff --git a/bin/wcsrc b/bin/wcsrc
new file mode 100755 (executable)
index 0000000..0daba7a
--- /dev/null
+++ b/bin/wcsrc
@@ -0,0 +1,7 @@
+#! /bin/bash
+set -ev
+wc `git ls-files`
+cat `git ls-files`|sort -u|wc
+cat `git ls-files`                                  |perl -pe 's/^\s*//'|sort -u|wc
+git log -p        |perl -ne 'print if s/^[+][^+]//;'|perl -pe 's/^\s*//'|sort -u|wc
+echo done