Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tag: sbcl_0_9_4
Fetching contributors…

Cannot retrieve contributors at this time

executable file 24 lines (20 sloc) 1.032 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
#!/bin/sh

# How big is this project anyway? Crudely estimate non-comment source lines..

echo -n "approximate Lisp source lines: "
find . -name "*.lisp" -print | xargs egrep -hs '^[ ]*[^ ;]' | wc -l
echo -n "approximate Lisp source non-whitespace chars: "
find . -name "*.lisp" -print | xargs egrep -hs '^[ ]*[^ ;]' \
  | perl -ne 's/\s//g ; print' | wc -c
# some errors in Lisp counting above:
# * doesn't catch #| .. |#
# * doesn't catch #+NIL convention for commenting out forms
# * doesn't catch stale source files which are no longer used

echo -n "approximate C source lines: "
find . -name "*.[ch]" -print | xargs egrep -s '^[ ]*[^ /*]' | wc -l
# errors:
# * only crudely approximates "/*"-style commenting (using the assumption
# that all lines beginning with "/" or "*" are beginning of comments or
# continuation of comments respectively)
# * doesn't catch #if 0 convention for commenting out blocks
# * doesn't catch stale source files which are no longer used

echo "(ignoring .sh, .S, etc.)"
Something went wrong with that request. Please try again.