/ Liren Large Software Subsidy 7 / 07.iso / c / c006 / 1.ddi / BTRDELET.C

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| ff 01 00 00 00 5c 43 42 | 54 52 45 45 5c 4c 49 42 |.....\CB|TREE\LIB|
|00000010| 52 41 52 59 5c 42 54 52 | 44 45 4c 45 54 2e 43 00 |RARY\BTR|DELET.C.|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 1b 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 2f 2a 20 28 43 29 20 43 | 6f 70 79 72 69 67 68 74 |/* (C) C|opyright|
|00000090| 20 31 39 38 34 2c 38 35 | 2c 38 36 2c 38 37 20 57 | 1984,85|,86,87 W|
|000000a0| 61 6c 74 65 72 20 4c 2e | 20 50 65 61 63 6f 63 6b |alter L.| Peacock|
|000000b0| 20 20 20 41 6c 6c 20 52 | 69 67 68 74 73 20 52 65 |   All R|ights Re|
|000000c0| 73 65 72 76 65 64 20 20 | 20 20 2a 2f 0d 0a 2f 2a |served  |  */../*|
|000000d0| 20 62 20 74 20 72 20 64 | 20 65 20 6c 20 65 20 74 | b t r d| e l e t|
|000000e0| 20 2e 20 63 20 20 20 20 | 20 20 20 20 20 20 20 20 | . c    |        |
|000000f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000100| 20 20 20 20 20 20 20 20 | 2a 2f 0d 0a 0d 0a 2f 2a |        |*/..../*|
|00000110| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000120| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000130| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000140| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 20 0d 0a 20 |--------|---- .. |
|00000160| 2a 20 62 74 72 64 65 6c | 65 74 28 29 20 69 73 20 |* btrdel|et() is |
|00000170| 63 61 6c 6c 65 64 20 74 | 6f 20 64 65 6c 65 74 65 |called t|o delete|
|00000180| 20 61 20 6b 65 79 20 66 | 72 6f 6d 20 74 68 65 20 | a key f|rom the |
|00000190| 69 6e 64 65 78 20 70 61 | 67 65 2e 20 20 49 74 20 |index pa|ge.  It |
|000001a0| 69 6e 76 6f 6b 65 73 20 | 0d 0a 20 2a 20 6f 74 68 |invokes |.. * oth|
|000001b0| 65 72 20 6c 6f 77 65 72 | 2d 6c 65 76 65 6c 20 42 |er lower|-level B|
|000001c0| 2b 74 72 65 65 20 66 75 | 6e 63 74 69 6f 6e 73 20 |+tree fu|nctions |
|000001d0| 61 73 20 6e 65 65 64 65 | 64 20 74 6f 20 6d 61 69 |as neede|d to mai|
|000001e0| 6e 74 61 69 6e 20 74 68 | 65 20 42 2b 74 72 65 65 |ntain th|e B+tree|
|000001f0| 2c 0d 0a 20 2a 20 69 2e | 65 2e 20 61 64 6a 73 74 |,.. * i.|e. adjst|
|00000200| 61 63 6b 28 29 2c 20 64 | 65 6c 65 74 72 65 63 28 |ack(), d|eletrec(|
|00000210| 29 2c 20 64 65 6c 65 74 | 65 6b 79 28 29 2c 20 63 |), delet|eky(), c|
|00000220| 70 79 72 74 62 72 6f 28 | 29 2c 20 63 70 79 6c 74 |pyrtbro(|), cpylt|
|00000230| 62 72 6f 28 29 2c 0d 0a | 20 2a 20 63 6d 70 74 6e |bro(),..| * cmptn|
|00000240| 6f 64 65 28 29 2e 0d 0a | 20 2a 2d 2d 2d 2d 2d 2d |ode()...| *------|
|00000250| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000260| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000270| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000280| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000290| 2d 2d 2d 2d 2d 2a 2f 0d | 0a 0d 0a 23 69 6e 63 6c |-----*/.|...#incl|
|000002a0| 75 64 65 20 22 63 62 74 | 72 65 65 2e 68 22 0d 0a |ude "cbt|ree.h"..|
|000002b0| 0d 0a 69 6e 74 20 62 74 | 72 64 65 6c 65 74 28 66 |..int bt|rdelet(f|
|000002c0| 64 64 74 61 2c 20 66 64 | 69 64 78 2c 20 69 64 78 |ddta, fd|idx, idx|
|000002d0| 62 6c 6b 2c 20 68 64 72 | 6c 6f 63 2c 20 6e 6f 64 |blk, hdr|loc, nod|
|000002e0| 65 2c 20 62 74 70 61 72 | 6d 73 74 29 0d 0a 69 6e |e, btpar|mst)..in|
|000002f0| 74 20 66 64 64 74 61 2c | 20 66 64 69 64 78 2c 20 |t fddta,| fdidx, |
|00000300| 68 64 72 6c 6f 63 3b 0d | 0a 6c 6f 6e 67 20 6e 6f |hdrloc;.|.long no|
|00000310| 64 65 3b 0d 0a 42 54 43 | 20 2a 62 74 70 61 72 6d |de;..BTC| *btparm|
|00000320| 73 74 3b 0d 0a 73 74 72 | 75 63 74 20 62 74 69 64 |st;..str|uct btid|
|00000330| 78 62 6c 6b 20 2a 69 64 | 78 62 6c 6b 3b 0d 0a 7b |xblk *id|xblk;..{|
|00000340| 0d 0a 20 20 20 65 78 74 | 65 72 6e 20 69 6e 74 20 |..   ext|ern int |
|00000350| 73 74 72 6e 63 6d 70 28 | 29 2c 20 73 74 72 6c 65 |strncmp(|), strle|
|00000360| 6e 28 29 3b 0d 0a 20 20 | 20 69 6e 74 20 72 65 74 |n();..  | int ret|
|00000370| 63 64 2c 20 61 64 6a 63 | 6b 20 3d 20 30 3b 0d 0a |cd, adjc|k = 0;..|
|00000380| 0d 0a 20 20 20 2f 2a 20 | 66 69 72 73 74 20 6d 61 |..   /* |first ma|
|00000390| 6b 65 20 73 75 72 65 20 | 74 68 61 74 20 77 65 20 |ke sure |that we |
|000003a0| 68 61 76 65 20 74 68 65 | 20 72 69 67 68 74 20 72 |have the| right r|
|000003b0| 65 63 6f 72 64 20 20 20 | 2a 2f 0d 0a 20 20 20 69 |ecord   |*/..   i|
|000003c0| 66 20 28 62 74 70 61 72 | 6d 73 74 2d 3e 62 74 6c |f (btpar|mst->btl|
|000003d0| 6f 63 20 3e 20 30 4c 29 | 7b 0d 0a 20 20 20 20 20 |oc > 0L)|{..     |
|000003e0| 20 77 68 69 6c 65 28 69 | 64 78 62 6c 6b 2d 3e 62 | while(i|dxblk->b|
|000003f0| 74 70 61 67 65 5b 68 64 | 72 6c 6f 63 5d 2e 62 74 |tpage[hd|rloc].bt|
|00000400| 70 74 72 20 21 3d 20 62 | 74 70 61 72 6d 73 74 2d |ptr != b|tparmst-|
|00000410| 3e 62 74 6c 6f 63 29 7b | 0d 0a 20 20 20 20 20 20 |>btloc){|..      |
|00000420| 20 20 20 69 66 20 28 2b | 2b 68 64 72 6c 6f 63 20 |   if (+|+hdrloc |
|00000430| 3e 3d 20 69 64 78 62 6c | 6b 2d 3e 63 65 6c 6c 69 |>= idxbl|k->celli|
|00000440| 63 6e 74 29 7b 0d 0a 20 | 20 20 20 20 20 20 20 20 |cnt){.. |        |
|00000450| 20 20 20 69 66 20 28 69 | 64 78 62 6c 6b 2d 3e 66 |   if (i|dxblk->f|
|00000460| 77 64 70 61 67 65 20 3e | 20 31 4c 29 20 7b 20 20 |wdpage >| 1L) {  |
|00000470| 20 20 20 20 2f 2a 20 6c | 6f 6f 6b 20 61 74 20 6e |    /* l|ook at n|
|00000480| 65 78 74 20 6e 6f 64 65 | 20 2a 2f 0d 0a 20 20 20 |ext node| */..   |
|00000490| 20 20 20 20 20 20 20 20 | 20 20 20 20 61 64 6a 63 |        |    adjc|
|000004a0| 6b 20 3d 20 31 3b 0d 0a | 20 20 20 20 20 20 20 20 |k = 1;..|        |
|000004b0| 20 20 20 20 20 20 20 67 | 65 74 69 64 78 72 28 66 |       g|etidxr(f|
|000004c0| 64 69 64 78 2c 20 6e 6f | 64 65 20 3d 20 69 64 78 |didx, no|de = idx|
|000004d0| 62 6c 6b 2d 3e 66 77 64 | 70 61 67 65 2c 20 69 64 |blk->fwd|page, id|
|000004e0| 78 62 6c 6b 2c 0d 0a 20 | 20 20 20 20 20 20 20 20 |xblk,.. |        |
|000004f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 62 74 70 61 |        |    btpa|
|00000500| 72 6d 73 74 2d 3e 62 74 | 69 64 78 6c 65 6e 2c 20 |rmst->bt|idxlen, |
|00000510| 62 74 70 61 72 6d 73 74 | 2d 3e 62 74 6b 65 79 6c |btparmst|->btkeyl|
|00000520| 65 6e 29 3b 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |en);..  |        |
|00000530| 20 20 20 20 20 68 64 72 | 6c 6f 63 20 3d 20 30 3b |     hdr|loc = 0;|
|00000540| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 7d 0d |..      |      }.|
|00000550| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 65 6c 73 |.       |     els|
|00000560| 65 7b 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |e{      |        |
|00000570| 20 2f 2a 20 63 6f 6e 74 | 69 6e 75 61 74 69 6f 6e | /* cont|inuation|
|00000580| 20 6e 6f 74 20 66 6f 75 | 6e 64 2e 20 2a 2f 0d 0a | not fou|nd. */..|
|00000590| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 72 |        |       r|
|000005a0| 65 74 75 72 6e 28 42 54 | 4e 4f 54 46 4e 44 29 3b |eturn(BT|NOTFND);|
|000005b0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 7d 0d |..      |      }.|
|000005c0| 0a 20 20 20 20 20 20 20 | 20 20 7d 0d 0a 20 20 20 |.       |  }..   |
|000005d0| 20 20 20 20 20 20 69 66 | 20 28 73 74 72 6e 63 6d |      if| (strncm|
|000005e0| 70 28 62 74 70 61 72 6d | 73 74 2d 3e 62 74 6b 65 |p(btparm|st->btke|
|000005f0| 79 2c 20 69 64 78 62 6c | 6b 2d 3e 62 74 70 61 67 |y, idxbl|k->btpag|
|00000600| 65 5b 68 64 72 6c 6f 63 | 5d 2e 73 6b 65 79 6e 6d |e[hdrloc|].skeynm|
|00000610| 65 2c 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |e,..    |        |
|00000620| 20 20 20 73 74 72 6c 65 | 6e 28 62 74 70 61 72 6d |   strle|n(btparm|
|00000630| 73 74 2d 3e 62 74 6b 65 | 79 29 29 20 21 3d 20 30 |st->btke|y)) != 0|
|00000640| 29 0d 0a 20 20 20 20 20 | 20 20 20 20 7b 0d 0a 20 |)..     |    {.. |
|00000650| 20 20 20 20 20 20 20 20 | 20 20 20 72 65 74 75 72 |        |   retur|
|00000660| 6e 28 42 54 4e 4f 54 46 | 4e 44 29 3b 0d 0a 20 20 |n(BTNOTF|ND);..  |
|00000670| 20 20 20 20 20 20 20 7d | 0d 0a 20 20 20 20 20 20 |       }|..      |
|00000680| 7d 0d 0a 20 20 20 20 20 | 20 69 66 20 28 61 64 6a |}..     | if (adj|
|00000690| 63 6b 20 3d 3d 20 31 29 | 7b 0d 0a 20 20 20 20 20 |ck == 1)|{..     |
|000006a0| 20 20 20 20 2f 2a 20 77 | 65 20 6d 61 79 20 68 61 |    /* w|e may ha|
|000006b0| 76 65 20 6d 6f 76 65 64 | 20 61 63 63 72 6f 73 73 |ve moved| accross|
|000006c0| 20 75 70 70 65 72 20 6c | 65 76 65 6c 20 6e 6f 64 | upper l|evel nod|
|000006d0| 65 73 20 73 6f 20 61 64 | 6a 75 73 74 20 74 68 65 |es so ad|just the|
|000006e0| 20 73 74 61 63 6b 2a 2f | 0d 0a 20 20 20 20 20 20 | stack*/|..      |
|000006f0| 20 20 20 61 64 6a 73 74 | 61 63 6b 28 66 64 69 64 |   adjst|ack(fdid|
|00000700| 78 2c 20 69 64 78 62 6c | 6b 2c 20 6e 6f 64 65 2c |x, idxbl|k, node,|
|00000710| 20 62 74 70 61 72 6d 73 | 74 29 3b 0d 0a 20 20 20 | btparms|t);..   |
|00000720| 20 20 20 20 20 20 67 65 | 74 69 64 78 72 28 66 64 |      ge|tidxr(fd|
|00000730| 69 64 78 2c 6e 6f 64 65 | 2c 20 69 64 78 62 6c 6b |idx,node|, idxblk|
|00000740| 2c 20 62 74 70 61 72 6d | 73 74 2d 3e 62 74 69 64 |, btparm|st->btid|
|00000750| 78 6c 65 6e 2c 20 62 74 | 70 61 72 6d 73 74 2d 3e |xlen, bt|parmst->|
|00000760| 62 74 6b 65 79 6c 65 6e | 29 3b 0d 0a 20 20 20 20 |btkeylen|);..    |
|00000770| 20 20 7d 0d 0a 20 20 20 | 7d 0d 0a 20 20 20 69 66 |  }..   |}..   if|
|00000780| 20 28 62 74 70 61 72 6d | 73 74 2d 3e 62 74 6f 70 | (btparm|st->btop|
|00000790| 74 79 70 65 20 3d 3d 20 | 44 45 4c 45 54 45 29 0d |type == |DELETE).|
|000007a0| 0a 20 20 20 7b 0d 0a 20 | 20 20 20 20 20 69 66 20 |.   {.. |     if |
|000007b0| 28 62 74 70 61 72 6d 73 | 74 2d 3e 62 74 76 61 72 |(btparms|t->btvar|
|000007c0| 6c 65 6e 29 0d 0a 20 20 | 20 20 20 20 20 20 20 62 |len)..  |       b|
|000007d0| 74 64 65 6c 76 61 72 28 | 66 64 64 74 61 2c 20 69 |tdelvar(|fddta, i|
|000007e0| 64 78 62 6c 6b 2d 3e 62 | 74 70 61 67 65 5b 68 64 |dxblk->b|tpage[hd|
|000007f0| 72 6c 6f 63 5d 2e 62 74 | 70 74 72 29 3b 0d 0a 20 |rloc].bt|ptr);.. |
|00000800| 20 20 20 20 20 65 6c 73 | 65 0d 0a 20 20 20 20 20 |     els|e..     |
|00000810| 20 20 20 20 64 65 6c 65 | 74 72 65 63 28 66 64 64 |    dele|trec(fdd|
|00000820| 74 61 2c 20 69 64 78 62 | 6c 6b 2d 3e 62 74 70 61 |ta, idxb|lk->btpa|
|00000830| 67 65 5b 68 64 72 6c 6f | 63 5d 2e 62 74 70 74 72 |ge[hdrlo|c].btptr|
|00000840| 2c 20 62 74 70 61 72 6d | 73 74 2d 3e 62 74 64 74 |, btparm|st->btdt|
|00000850| 61 6c 65 6e 29 3b 0d 0a | 20 20 20 7d 0d 0a 20 20 |alen);..|   }..  |
|00000860| 20 2f 2a 20 64 65 6c 65 | 74 65 20 72 65 63 6f 72 | /* dele|te recor|
|00000870| 64 20 61 6e 64 20 61 64 | 64 20 74 6f 20 66 72 65 |d and ad|d to fre|
|00000880| 65 73 70 63 20 63 68 61 | 69 6e 20 2a 2f 0d 0a 20 |espc cha|in */.. |
|00000890| 20 20 64 65 6c 65 74 65 | 6b 79 28 69 64 78 62 6c |  delete|ky(idxbl|
|000008a0| 6b 2c 20 68 64 72 6c 6f | 63 29 3b 20 20 20 20 2f |k, hdrlo|c);    /|
|000008b0| 2a 20 6e 6f 77 20 64 65 | 6c 65 74 65 20 74 68 65 |* now de|lete the|
|000008c0| 20 42 2d 74 72 65 65 20 | 6b 65 79 20 63 65 6c 6c | B-tree |key cell|
|000008d0| 20 2a 2f 0d 0a 0d 0a 20 | 20 20 2f 2a 20 63 68 65 | */.... |  /* che|
|000008e0| 63 6b 20 66 6f 72 20 65 | 6e 64 20 63 65 6c 6c 2e |ck for e|nd cell.|
|000008f0| 20 69 66 20 65 6e 64 20 | 63 65 6c 6c 20 74 68 65 | if end |cell the|
|00000900| 6e 20 75 70 64 61 74 65 | 20 75 70 70 65 72 20 6c |n update| upper l|
|00000910| 65 76 65 6c 20 2a 2f 0d | 0a 20 20 20 2f 2a 20 69 |evel */.|.   /* i|
|00000920| 66 20 6e 6f 20 72 69 67 | 68 74 20 62 72 6f 74 68 |f no rig|ht broth|
|00000930| 65 72 20 74 68 65 6e 20 | 6e 6f 20 6e 65 65 64 20 |er then |no need |
|00000940| 74 6f 20 75 70 64 61 74 | 65 20 75 70 70 65 72 20 |to updat|e upper |
|00000950| 6c 65 76 65 6c 20 20 2a | 2f 0d 0a 20 20 20 69 66 |level  *|/..   if|
|00000960| 20 28 28 68 64 72 6c 6f | 63 20 3d 3d 20 69 64 78 | ((hdrlo|c == idx|
|00000970| 62 6c 6b 2d 3e 63 65 6c | 6c 69 63 6e 74 29 20 26 |blk->cel|licnt) &|
|00000980| 26 20 28 69 64 78 62 6c | 6b 2d 3e 66 77 64 70 61 |& (idxbl|k->fwdpa|
|00000990| 67 65 20 3e 20 31 4c 29 | 29 0d 0a 20 20 20 20 20 |ge > 1L)|)..     |
|000009a0| 20 75 70 64 69 6c 76 6c | 28 66 64 69 64 78 2c 20 | updilvl|(fdidx, |
|000009b0| 6e 6f 64 65 2c 20 69 64 | 78 62 6c 6b 2d 3e 62 74 |node, id|xblk->bt|
|000009c0| 70 61 67 65 5b 68 64 72 | 6c 6f 63 2d 31 5d 2e 73 |page[hdr|loc-1].s|
|000009d0| 6b 65 79 6e 6d 65 2c 20 | 62 74 70 61 72 6d 73 74 |keynme, |btparmst|
|000009e0| 29 3b 0d 0a 0d 0a 20 20 | 20 69 66 20 28 28 69 64 |);....  | if ((id|
|000009f0| 78 62 6c 6b 2d 3e 63 65 | 6c 6c 69 63 6e 74 20 3e |xblk->ce|llicnt >|
|00000a00| 3d 20 28 62 74 70 61 72 | 6d 73 74 2d 3e 62 74 63 |= (btpar|mst->btc|
|00000a10| 65 6c 6c 73 20 3e 3e 20 | 31 29 29 20 2f 2a 20 4c |ells >> |1)) /* L|
|00000a20| 43 20 62 75 67 20 2a 2f | 0d 0a 20 20 20 20 20 20 |C bug */|..      |
|00000a30| 20 20 20 20 20 20 7c 7c | 20 28 6e 6f 64 65 20 3d |      ||| (node =|
|00000a40| 3d 20 62 74 70 61 72 6d | 73 74 2d 3e 62 74 72 6f |= btparm|st->btro|
|00000a50| 6f 74 29 20 29 7b 0d 0a | 20 20 20 20 20 20 2f 2a |ot) ){..|      /*|
|00000a60| 20 64 65 6c 65 74 65 20 | 6f 63 63 75 72 65 64 20 | delete |occured |
|00000a70| 77 2f 6f 20 75 6e 64 65 | 72 66 6c 6f 77 2c 20 77 |w/o unde|rflow, w|
|00000a80| 72 69 74 65 20 74 68 65 | 20 69 6e 64 65 78 20 72 |rite the| index r|
|00000a90| 65 63 6f 72 64 20 74 6f | 20 64 69 73 6b 20 2a 2f |ecord to| disk */|
|00000aa0| 0d 0a 20 20 20 20 20 20 | 70 75 74 69 64 78 72 28 |..      |putidxr(|
|00000ab0| 66 64 69 64 78 2c 20 6e | 6f 64 65 2c 20 69 64 78 |fdidx, n|ode, idx|
|00000ac0| 62 6c 6b 2c 20 62 74 70 | 61 72 6d 73 74 29 3b 0d |blk, btp|armst);.|
|00000ad0| 0a 20 20 20 20 20 20 72 | 65 74 75 72 6e 28 42 54 |.      r|eturn(BT|
|00000ae0| 43 41 4c 4c 4f 4b 29 3b | 0d 0a 20 20 20 7d 0d 0a |CALLOK);|..   }..|
|00000af0| 0d 0a 20 20 20 2f 2a 20 | 73 69 6e 63 65 20 77 65 |..   /* |since we|
|00000b00| 20 61 72 65 20 68 65 72 | 65 2c 20 77 65 20 64 6f | are her|e, we do|
|00000b10| 20 6e 6f 74 20 68 61 76 | 65 20 65 6e 6f 75 67 68 | not hav|e enough|
|00000b20| 20 6e 6f 64 65 73 20 73 | 6f 20 6d 75 73 74 20 63 | nodes s|o must c|
|00000b30| 6f 70 79 20 6e 6f 64 65 | 73 20 2a 2f 0d 0a 20 20 |opy node|s */..  |
|00000b40| 20 2f 2a 20 66 72 6f 6d | 20 62 72 6f 74 68 65 72 | /* from| brother|
|00000b50| 20 61 6e 64 20 63 68 65 | 63 6b 20 66 6f 72 20 75 | and che|ck for u|
|00000b60| 6e 64 65 72 66 6c 6f 77 | 20 74 6f 20 6d 61 69 6e |nderflow| to main|
|00000b70| 74 61 69 6e 20 62 74 72 | 65 65 20 62 61 6c 61 6e |tain btr|ee balan|
|00000b80| 63 65 2e 20 20 20 20 20 | 20 2a 2f 0d 0a 20 20 20 |ce.     | */..   |
|00000b90| 2f 2a 20 66 69 72 73 74 | 20 74 72 79 20 74 6f 20 |/* first| try to |
|00000ba0| 63 6f 70 79 20 66 72 6f | 6d 20 72 69 67 68 74 20 |copy fro|m right |
|00000bb0| 62 72 6f 74 68 65 72 20 | 2a 2f 0d 0a 20 20 20 72 |brother |*/..   r|
|00000bc0| 65 74 63 64 20 3d 20 63 | 70 79 72 74 62 72 6f 28 |etcd = c|pyrtbro(|
|00000bd0| 66 64 69 64 78 2c 20 69 | 64 78 62 6c 6b 2c 20 62 |fdidx, i|dxblk, b|
|00000be0| 74 70 61 72 6d 73 74 29 | 3b 0d 0a 20 20 20 69 66 |tparmst)|;..   if|
|00000bf0| 28 72 65 74 63 64 20 3d | 3d 20 2d 31 29 7b 20 2f |(retcd =|= -1){ /|
|00000c00| 2a 20 6e 65 78 74 20 74 | 72 79 20 74 6f 20 63 6f |* next t|ry to co|
|00000c10| 70 79 20 66 72 6f 6d 20 | 6c 65 66 74 20 62 72 6f |py from |left bro|
|00000c20| 74 68 65 72 20 2a 2f 0d | 0a 20 20 20 20 20 20 72 |ther */.|.      r|
|00000c30| 65 74 63 64 20 3d 20 63 | 70 79 6c 74 62 72 6f 28 |etcd = c|pyltbro(|
|00000c40| 66 64 69 64 78 2c 20 69 | 64 78 62 6c 6b 2c 20 62 |fdidx, i|dxblk, b|
|00000c50| 74 70 61 72 6d 73 74 29 | 3b 0d 0a 20 20 20 20 20 |tparmst)|;..     |
|00000c60| 20 69 66 28 72 65 74 63 | 64 20 3d 3d 20 2d 31 29 | if(retc|d == -1)|
|00000c70| 7b 20 2f 2a 20 4f 2e 4b | 2e 20 74 68 65 6e 2c 20 |{ /* O.K|. then, |
|00000c80| 63 6f 6d 70 61 63 74 20 | 74 77 6f 20 6e 6f 64 65 |compact |two node|
|00000c90| 73 20 69 6e 74 6f 20 6f | 6e 65 20 2a 2f 0d 0a 20 |s into o|ne */.. |
|00000ca0| 20 20 20 20 20 20 20 20 | 72 65 74 63 64 20 3d 20 |        |retcd = |
|00000cb0| 63 6d 70 74 6e 6f 64 65 | 28 66 64 64 74 61 2c 20 |cmptnode|(fddta, |
|00000cc0| 66 64 69 64 78 2c 20 69 | 64 78 62 6c 6b 2c 20 62 |fdidx, i|dxblk, b|
|00000cd0| 74 70 61 72 6d 73 74 29 | 3b 0d 0a 20 20 20 20 20 |tparmst)|;..     |
|00000ce0| 20 7d 0d 0a 20 20 20 7d | 0d 0a 0d 0a 20 20 20 69 | }..   }|....   i|
|00000cf0| 66 28 72 65 74 63 64 20 | 3c 20 31 29 0d 0a 20 20 |f(retcd |< 1)..  |
|00000d00| 20 20 20 20 72 65 74 75 | 72 6e 28 42 54 45 52 52 |    retu|rn(BTERR|
|00000d10| 4f 52 29 3b 0d 0a 0d 0a | 20 20 20 2f 2a 20 77 72 |OR);....|   /* wr|
|00000d20| 69 74 65 20 6e 6f 64 65 | 2e 2e 2e 20 62 61 6c 61 |ite node|... bala|
|00000d30| 6e 63 65 64 20 74 72 65 | 65 20 68 61 73 20 62 65 |nced tre|e has be|
|00000d40| 65 6e 20 6d 61 69 6e 74 | 61 69 6e 65 64 2e 20 20 |en maint|ained.  |
|00000d50| 20 2a 2f 0d 0a 20 20 20 | 70 75 74 69 64 78 72 28 | */..   |putidxr(|
|00000d60| 66 64 69 64 78 2c 20 6e | 6f 64 65 2c 20 69 64 78 |fdidx, n|ode, idx|
|00000d70| 62 6c 6b 2c 20 62 74 70 | 61 72 6d 73 74 29 3b 0d |blk, btp|armst);.|
|00000d80| 0a 20 20 20 72 65 74 75 | 72 6e 28 42 54 43 41 4c |.   retu|rn(BTCAL|
|00000d90| 4c 4f 4b 29 3b 20 20 2f | 2a 20 66 69 6e 61 6c 6c |LOK);  /|* finall|
|00000da0| 79 20 72 65 74 75 72 6e | 20 74 6f 20 63 61 6c 6c |y return| to call|
|00000db0| 69 6e 67 20 70 67 6d 2e | 20 2a 2f 0d 0a 7d 0d 0a |ing pgm.| */..}..|
|00000dc0| 0d 0a 2f 2a 20 69 6e 63 | 6c 75 64 65 20 74 68 69 |../* inc|lude thi|
|00000dd0| 73 20 68 65 72 65 20 74 | 6f 20 72 65 6d 6f 76 65 |s here t|o remove|
|00000de0| 20 63 69 72 63 75 6c 61 | 72 20 6c 69 62 72 61 72 | circula|r librar|
|00000df0| 79 20 72 65 66 65 72 65 | 6e 63 65 73 20 69 6e 20 |y refere|nces in |
|00000e00| 44 43 20 2a 2f 0d 0a 23 | 69 6e 63 6c 75 64 65 20 |DC */..#|include |
|00000e10| 22 63 6d 70 74 6e 6f 64 | 65 2e 63 22 0d 0a       |"cmptnod|e.c"..  |
+--------+-------------------------+-------------------------+--------+--------+