![[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.