blob: e88700307814bbbbfe22afca93a19d84d96502cd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
%{
#!/usr/bin/tclsh
# Counts characters, words, and lines, with support for multiple
# filenames.
# This is based upon example 'ch2-03.l' from "lex & yacc" by John
# R. Levine, Tony Mason, and Doug Brown (by O'Reilly & Associates, ISBN
# 1-56592-000-7). For more information on using lex and yacc, see
# http://www.oreilly.com/catalog/lex/.
set charCount 0
set wordCount 0
set lineCount 0
%}
%option noheaders
word [^ \t\n]+
eol \n
%%
{word} { incr ::wordCount; incr ::charCount $yyleng }
{eol} { incr ::charCount; incr ::lineCount }
. { incr ::charCount }
%%
# lexer calls yywrap to handle EOF conditions (e.g., to
# connect to a new file, as we do in this case.)
proc yywrap {} {
set file ""
if {$::currentFile != 0 && $::nFiles > 1 && $::currentFile < $::nFiles} {
# print out statstics for previous file
puts [format "%8u %8u %8u %s" $::lineCount $::wordCount $::charCount \
[lindex $::fileList [expr {$::currentFile - 1}]]]
incr ::totalCC $::charCount
incr ::totalWC $::wordCount
incr ::totalLC $::lineCount
set ::charCount 0
set ::wordCount 0
set ::lineCount 0
close $::yyin
}
while {$::currentFile < $::nFiles} {
if {[catch {open [lindex $::fileList $::currentFile] r} file]} {
puts stderr "could not open [lindex $::fileList $::currentFile]"
incr ::currentFile
} else {
set ::yyin $file
incr ::currentFile
break
}
}
if {$file != ""} {
return 0 ;# 0 means there's more input
} else {
return 1
}
}
set fileList ""
set currentFile 0
set nFiles 0
set totalCC 0
set totalWC 0
set totalLC 0
set fileList $argv
set nFiles [llength $argv]
if {[llength $argv] == 1} {
# handle single file case differenly since we don't need to print a
# summary line
set currentFile 1
if {[catch {open [lindex $argv 0] r} file]} {
puts stderr "could not open file [lindex $argv 0]"
exit 1
}
set yyin $file
}
if {[llength $argv] > 1} {
yywrap
}
yylex
# handle zero or one file differently from multiple files
if {[llength $argv] > 1} {
puts [format "%8u %8u %8u %s" $lineCount $wordCount $charCount \
[lindex $argv [expr {$currentFile - 1}]]]
incr totalCC $charCount
incr totalWC $wordCount
incr totalLC $lineCount
puts [format "%8u %8u %8u total" $totalLC $totalWC $totalCC]
} else {
puts [format "%8u %8u %8u" $lineCount $wordCount $charCount]
}
return 0
|
