+bin/wcsrc

[nethome.git] / bin / wcsrc

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