From 45c66ec17772ce7ba48c45ff50fc87df46e3ecb2 Mon Sep 17 00:00:00 2001 From: Jan Kratochvil Date: Wed, 12 May 2021 18:45:16 +0200 Subject: [PATCH] +bin/wcsrc --- bin/wcsrc | 7 +++++++ 1 file changed, 7 insertions(+) create mode 100755 bin/wcsrc diff --git a/bin/wcsrc b/bin/wcsrc new file mode 100755 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 -- 1.8.3.1