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
|
############################################################################
#
# File: isrcline.icn
#
# Subject: Program to count code lines in Icon program
#
# Author: Ralph E. Griswold
#
# Date: November 7, 1997
#
############################################################################
#
# This file is in the public domain.
#
############################################################################
#
# This program counts the number of lines in a Icon program that actually
# contain code, as opposed to being comments or blank lines.
#
# Note: preprocessor directives are counted as code lines.
#
############################################################################
#
# Links: numbers
#
############################################################################
link numbers
procedure main()
local total, chaff, code, line
total := chaff := 0
while line := read() do {
total +:= 1
line ? {
tab(many(' \t'))
if ="#" | pos(0) then chaff +:= 1
}
}
code := total - chaff
write(left("total lines:", 17), right(total, 6))
write(left("code lines:", 17), right(code, 6))
write(left("non-code lines:", 17), right(chaff, 6))
write()
write(left("percentage code:", 17), fix(100 * code, total, 7, 2))
end
|
