![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to btrees.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 btrees.u1 CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / icon / samples |
1.1 root 1: proc main
2: local 0,000020,line
3: local 1,000020,tree
4: local 2,000000,read
5: local 3,000000,tform
6: local 4,000000,write
7: local 5,000000,walk
8: local 6,000000,leaves
9: con 0,010000,9,164,162,145,145,040,167,141,154,153
10: con 1,010000,6,154,145,141,166,145,163
11: declend
12: file btrees.icn
13: line 11
14: mark L1
15: lab L2
16: line 13
17: mark L0
18: pnull
19: var 0
20: var 2
21: pnull
22: invoke 1
23: asgn
24: unmark 1
25: mark L2
26: mark L5
27: pnull
28: var 1
29: var 3
30: var 0
31: line 14
32: invoke 1
33: asgn
34: unmark 1
35: lab L5
36: mark L6
37: var 4
38: str 0
39: line 15
40: invoke 1
41: unmark 1
42: lab L6
43: mark L7
44: mark L0
45: var 4
46: var 5
47: var 1
48: line 16
49: invoke 1
50: invoke 1
51: pop
52: lab L8
53: efail
54: lab L9
55: unmark 1
56: lab L7
57: mark L10
58: var 4
59: str 1
60: line 17
61: invoke 1
62: unmark 1
63: lab L10
64: mark L0
65: var 4
66: var 6
67: var 1
68: line 18
69: invoke 1
70: invoke 1
71: pop
72: lab L11
73: efail
74: lab L12
75: lab L3
76: unmark 1
77: goto L2
78: lab L4
79: unmark 1
80: lab L1
81: pnull
82: line 20
83: pfail
84: end
85: proc tform
86: local 0,001000,s
87: local 1,000020,value
88: local 2,000020,left
89: local 3,000020,right
90: local 4,000000,tab
91: local 5,000000,upto
92: local 6,000000,move
93: local 7,000000,bal
94: local 8,000000,node
95: local 9,000000,tform
96: con 0,020000,1,050
97: con 1,002000,1
98: con 2,020000,1,054
99: con 3,020000,1,051
100: declend
101: file btrees.icn
102: line 22
103: mark L1
104: mark L0
105: pnull
106: var 0
107: line 24
108: null
109: unmark 1
110: mark L2
111: pnull
112: pret
113: lab L2
114: line 24
115: pfail
116: unmark 1
117: lab L1
118: mark L3
119: var 0
120: line 25
121: bscan
122: mark L4
123: pnull
124: var 1
125: var 4
126: var 5
127: cset 0
128: invoke 1
129: invoke 1
130: asgn
131: unmark 1
132: mark L6
133: var 6
134: int 1
135: line 26
136: invoke 1
137: unmark 1
138: lab L6
139: mark L7
140: pnull
141: var 2
142: var 4
143: var 7
144: cset 2
145: line 27
146: invoke 1
147: invoke 1
148: asgn
149: unmark 1
150: lab L7
151: mark L8
152: var 6
153: int 1
154: line 28
155: invoke 1
156: unmark 1
157: lab L8
158: mark L9
159: pnull
160: var 3
161: var 4
162: var 7
163: cset 3
164: line 29
165: invoke 1
166: invoke 1
167: asgn
168: unmark 1
169: lab L9
170: mark L10
171: var 8
172: var 1
173: var 9
174: var 2
175: line 30
176: invoke 1
177: var 9
178: var 3
179: invoke 1
180: invoke 3
181: pret
182: lab L10
183: line 30
184: pfail
185: goto L5
186: lab L4
187: mark L11
188: var 8
189: var 0
190: line 32
191: invoke 1
192: pret
193: lab L11
194: line 32
195: pfail
196: lab L5
197: line 25
198: escan
199: unmark 1
200: lab L3
201: pnull
202: line 33
203: pfail
204: end
205: proc walk
206: local 0,001000,t
207: local 1,000000,walk
208: declend
209: file btrees.icn
210: line 35
211: mark L1
212: mark L0
213: var 1
214: mark L2
215: pnull
216: pnull
217: var 0
218: line 36
219: field ltree
220: nonnull
221: esusp
222: goto L3
223: lab L2
224: pnull
225: pnull
226: var 0
227: field rtree
228: nonnull
229: lab L3
230: invoke 1
231: psusp
232: efail
233: unmark 1
234: lab L1
235: mark L4
236: mark L5
237: pnull
238: var 0
239: line 37
240: field data
241: pret
242: lab L5
243: line 37
244: pfail
245: unmark 1
246: lab L4
247: pnull
248: line 38
249: pfail
250: end
251: proc leaves
252: local 0,001000,t
253: local 1,000000,leaves
254: declend
255: file btrees.icn
256: line 40
257: mark L1
258: mark L0
259: mark L2
260: mark L3
261: pnull
262: pnull
263: var 0
264: line 41
265: field ltree
266: nonnull
267: esusp
268: goto L4
269: lab L3
270: pnull
271: pnull
272: var 0
273: field rtree
274: nonnull
275: lab L4
276: unmark 1
277: efail
278: lab L2
279: pnull
280: unmark 1
281: mark L5
282: pnull
283: var 0
284: field data
285: pret
286: lab L5
287: line 41
288: pfail
289: unmark 1
290: lab L1
291: mark L6
292: mark L0
293: var 1
294: mark L7
295: pnull
296: pnull
297: var 0
298: line 42
299: field ltree
300: nonnull
301: esusp
302: goto L8
303: lab L7
304: pnull
305: pnull
306: var 0
307: field rtree
308: nonnull
309: lab L8
310: invoke 1
311: psusp
312: efail
313: unmark 1
314: lab L6
315: pnull
316: line 43
317: pfail
318: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.