awk { l=$0; sub(/^[ \t]+/,"",l); if (l=="") blank++; else if (substr(l,1,2)=="//") comment++; else code++ } END { printf "file=%s\ntotal_lines=%d\ncode=%d\ncomment=%d\nblank=%d\ncode_pct=%.1f%%\ncomment_pct=%.1f%%\n", FILENAME, NR, code, comment, blank, 100*code/NR, 100*comment/NR } lang/el-compiler/src/codegen.el