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
103
104
105
|
############################################################################
#
# File: diffsum.icn
#
# Subject: Program to count lines affected by a diff
#
# Author: Gregg M. Townsend
#
# Date: August 14, 2007
#
############################################################################
#
# This file is in the public domain.
#
############################################################################
#
# Usage: diffsum [file]
#
# Diffsum reads a file containing output from a run of the Unix "diff"
# utility. Diffsum handles either normal diffs or context diffs. For
# each pair of files compared, diffsum reports two numbers:
# 1. the number of lines added or changed
# 2. the net change in file size
# The first of these indicates the magnitude of the changes and the
# second the net effect on file size.
#
############################################################################
global oldname, newname, ixname, ixprev
global added, deleted, chgadd, chgdel
procedure main(args)
local f, line
if *args > 0 then
f := open(args[1]) | stop("can't open ", args[1])
else
f := &input
added := deleted := 0
oldname := newname := ""
chgadd := chgdel := 0
while line := read(f) do line ? {
if any(' @') then
next
else if ="Index: " then {
ixprev := ixname
ixname := tab(0)
}
else if =("+++" | "***")then {
chgadd := 0
chgdel := +1
}
else if ="---" then { # n.b. must precede tests below
chgadd := +1
chgdel := 0
}
else if any('+>') then
added +:= 1
else if any('-<') then
deleted +:= 1
else if ="!" then {
added +:= chgadd
deleted +:= chgdel
}
else if ="diff" then {
report()
while =" -" do tab(upto(' '))
tab(many(' '))
oldname := tab(upto(' ')) | "???"
tab(many(' '))
newname := tab(0)
}
else if ="Only " then
only()
}
ixprev := ixname
report()
end
procedure report()
local net
if oldname := \ixprev then
newname := ""
if added > 0 | deleted > 0 then {
net := string(added - deleted)
if net > 0 then
net := "+" || net
write(right(added, 6) || right(net, 8), "\t", oldname, " ", newname)
}
added := deleted := 0
chgadd := chgdel := 0
ixprev := &null
return
end
procedure only()
report()
if tab(-2) & ="." & any('oa') then
return
tab(1)
write("#\t", tab(0))
end
|
