![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to wordcount.u1 CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / contrib / icon / samples|
Return to wordcount.u1 CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / icon / samples |
1.1 root 1: proc main
2: local 0,000000,wordcount
3: con 0,002000,20
4: declend
5: file wordcount.icn
6: line 9
7: mark L1
8: var 0
9: int 0
10: line 10
11: invoke 1
12: unmark 1
13: lab L1
14: pnull
15: line 11
16: pfail
17: end
18: proc wordcount
19: local 0,001000,n
20: local 1,000020,t
21: local 2,000020,line
22: local 3,000020,x
23: local 4,000020,y
24: local 5,000040,letters
25: local 6,000000,table
26: local 7,000000,read
27: local 8,000000,tab
28: local 9,000000,upto
29: local 10,000000,many
30: local 11,000000,sort
31: local 12,000000,write
32: local 13,000000,left
33: con 0,002000,0
34: con 1,002000,1
35: con 2,002000,2
36: declend
37: file wordcount.icn
38: line 13
39: init? L1
40: mark L1
41: pnull
42: var 5
43: pnull
44: line 16
45: keywd 10
46: keywd 21
47: unioncs
48: asgn
49: unmark 1
50: lab L1
51: mark L2
52: pnull
53: var 1
54: var 6
55: int 0
56: line 17
57: invoke 1
58: asgn
59: unmark 1
60: lab L2
61: mark L3
62: lab L4
63: line 18
64: mark L0
65: pnull
66: var 2
67: var 7
68: pnull
69: invoke 1
70: asgn
71: unmark 1
72: mark L4
73: var 2
74: line 19
75: bscan
76: lab L7
77: line 19
78: mark L0
79: var 8
80: var 9
81: var 5
82: invoke 1
83: invoke 1
84: unmark 1
85: mark L7
86: pnull
87: pnull
88: var 1
89: var 8
90: var 10
91: var 5
92: line 20
93: invoke 1
94: invoke 1
95: subsc
96: dup
97: int 1
98: plus
99: asgn
100: lab L8
101: unmark 1
102: goto L7
103: lab L9
104: line 19
105: escan
106: lab L5
107: unmark 1
108: goto L4
109: lab L6
110: unmark 1
111: lab L3
112: mark L10
113: pnull
114: var 3
115: var 11
116: var 1
117: line 21
118: invoke 1
119: asgn
120: unmark 1
121: lab L10
122: mark L11
123: mark L0
124: pnull
125: var 4
126: pnull
127: var 3
128: line 22
129: bang
130: asgn
131: pop
132: mark L0
133: var 12
134: var 13
135: pnull
136: var 4
137: int 1
138: subsc
139: var 0
140: invoke 2
141: pnull
142: var 4
143: int 2
144: subsc
145: invoke 2
146: unmark 1
147: lab L12
148: efail
149: lab L13
150: unmark 1
151: lab L11
152: pnull
153: line 23
154: pfail
155: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.