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