/ Liren Large Software Subsidy 7 / 07.iso / c / c006 / 1.ddi / DELETBTR.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 44 45 4c | 45 54 42 54 52 2e 43 00 |RARY\DEL|ETBTR.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 0d 0a |served  |  */....|
|000000d0| 2f 2a 20 54 48 49 53 20 | 50 52 4f 47 52 41 4d 20 |/* THIS |PROGRAM |
|000000e0| 42 45 4c 4f 4e 47 53 20 | 54 4f 20 57 41 4c 54 45 |BELONGS |TO WALTE|
|000000f0| 52 20 4c 2e 20 50 45 41 | 43 4f 43 4b 2e 20 20 49 |R L. PEA|COCK.  I|
|00000100| 54 20 49 53 20 43 4f 4e | 53 49 44 45 52 45 44 20 |T IS CON|SIDERED |
|00000110| 41 20 54 52 41 44 45 20 | 2a 2f 0d 0a 2f 2a 20 53 |A TRADE |*/../* S|
|00000120| 45 43 52 45 54 20 41 4e | 44 20 49 53 20 4e 4f 54 |ECRET AN|D IS NOT|
|00000130| 20 54 4f 20 42 45 20 44 | 49 56 55 4c 47 45 44 20 | TO BE D|IVULGED |
|00000140| 4f 52 20 55 53 45 44 20 | 42 59 20 50 41 52 54 49 |OR USED |BY PARTI|
|00000150| 45 53 20 57 48 4f 20 48 | 41 56 45 20 4e 4f 54 20 |ES WHO H|AVE NOT |
|00000160| 20 20 20 2a 2f 0d 0a 2f | 2a 20 52 45 43 45 49 56 |   */../|* RECEIV|
|00000170| 45 44 20 57 52 49 54 54 | 45 4e 20 41 55 54 48 4f |ED WRITT|EN AUTHO|
|00000180| 52 49 5a 41 54 49 4f 4e | 20 46 52 4f 4d 20 54 48 |RIZATION| FROM TH|
|00000190| 45 20 4f 57 4e 45 52 2e | 20 20 20 20 20 20 20 20 |E OWNER.|        |
|000001a0| 20 20 20 20 20 20 20 20 | 20 20 20 2a 2f 0d 0a 0d |        |   */...|
|000001b0| 0a 2f 2a 20 30 39 2f 31 | 31 2f 38 37 20 20 44 20 |./* 09/1|1/87  D |
|000001c0| 45 20 4c 20 45 20 54 20 | 42 20 54 20 52 20 2e 20 |E L E T |B T R . |
|000001d0| 43 20 20 20 64 65 6c 65 | 74 65 20 61 6c 6c 20 62 |C   dele|te all b|
|000001e0| 74 72 65 65 20 6e 6f 64 | 65 73 20 2a 2f 0d 0a 0d |tree nod|es */...|
|000001f0| 0a 23 69 6e 63 6c 75 64 | 65 20 22 63 62 74 72 65 |.#includ|e "cbtre|
|00000200| 65 2e 68 22 0d 0a 0d 0a | 23 69 66 20 43 49 20 7c |e.h"....|#if CI ||
|00000210| 20 44 43 0d 0a 23 65 6c | 73 65 0d 0a 23 69 6e 63 | DC..#el|se..#inc|
|00000220| 6c 75 64 65 20 3c 63 74 | 79 70 65 2e 68 3e 0d 0a |lude <ct|ype.h>..|
|00000230| 23 65 6e 64 69 66 0d 0a | 0d 0a 64 65 6c 65 74 62 |#endif..|..deletb|
|00000240| 74 72 28 66 64 2c 20 66 | 69 6e 64 72 6f 6f 74 29 |tr(fd, f|indroot)|
|00000250| 20 20 20 20 2f 2a 20 64 | 65 6c 65 74 65 20 74 68 |    /* d|elete th|
|00000260| 65 20 42 2b 74 72 65 65 | 20 61 74 20 74 68 65 20 |e B+tree| at the |
|00000270| 67 69 76 65 6e 20 6c 6f | 63 61 74 69 6f 6e 20 2a |given lo|cation *|
|00000280| 2f 0d 0a 69 6e 74 20 20 | 66 64 3b 20 20 20 20 20 |/..int  |fd;     |
|00000290| 20 2f 2a 20 66 69 6c 65 | 20 64 65 73 63 72 69 70 | /* file| descrip|
|000002a0| 74 6f 72 20 2a 2f 0d 0a | 6c 6f 6e 67 20 66 69 6e |tor */..|long fin|
|000002b0| 64 72 6f 6f 74 3b 20 2f | 2a 20 62 79 74 65 20 6f |droot; /|* byte o|
|000002c0| 66 66 73 65 74 20 74 6f | 20 72 6f 6f 74 70 74 72 |ffset to| rootptr|
|000002d0| 20 2a 2f 0d 0a 7b 0d 0a | 20 20 20 65 78 74 65 72 | */..{..|   exter|
|000002e0| 6e 20 6c 6f 6e 67 20 20 | 6c 73 65 65 6b 28 29 3b |n long  |lseek();|
|000002f0| 0d 0a 20 20 20 65 78 74 | 65 72 6e 20 63 68 61 72 |..   ext|ern char|
|00000300| 20 2a 63 61 6c 6c 6f 63 | 28 29 3b 0d 0a 20 20 20 | *calloc|();..   |
|00000310| 65 78 74 65 72 6e 20 76 | 6f 69 64 20 20 64 65 6c |extern v|oid  del|
|00000320| 6e 6f 64 65 28 29 3b 0d | 0a 20 20 20 42 54 5f 49 |node();.|.   BT_I|
|00000330| 4e 46 4f 20 20 20 20 62 | 74 69 6e 66 6f 3b 20 20 |NFO    b|tinfo;  |
|00000340| 20 2f 2a 20 67 65 74 20 | 69 6e 66 6f 20 6f 6e 20 | /* get |info on |
|00000350| 73 70 65 63 69 66 69 65 | 64 20 62 74 72 65 65 20 |specifie|d btree |
|00000360| 2a 2f 0d 0a 0d 0a 20 20 | 20 69 66 20 28 66 69 6e |*/....  | if (fin|
|00000370| 64 72 6f 6f 74 20 3d 3d | 20 30 20 20 7c 7c 20 66 |droot ==| 0  || f|
|00000380| 69 6e 64 72 6f 6f 74 20 | 3d 3d 20 2d 31 29 20 20 |indroot |== -1)  |
|00000390| 20 2f 2a 20 6e 6f 20 65 | 6e 74 72 79 20 6f 72 20 | /* no e|ntry or |
|000003a0| 6e 6f 20 66 69 6c 65 20 | 2a 2f 0d 0a 20 20 20 20 |no file |*/..    |
|000003b0| 20 20 72 65 74 75 72 6e | 20 28 30 29 3b 20 20 20 |  return| (0);   |
|000003c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000003d0| 20 20 20 20 20 2f 2a 20 | 75 6e 73 75 63 63 65 73 |     /* |unsucces|
|000003e0| 66 75 6c 20 2a 2f 0d 0a | 20 20 20 69 66 20 28 6c |ful */..|   if (l|
|000003f0| 73 65 65 6b 28 66 64 2c | 20 66 69 6e 64 72 6f 6f |seek(fd,| findroo|
|00000400| 74 2c 20 30 29 20 3d 3d | 20 2d 31 4c 29 0d 0a 20 |t, 0) ==| -1L).. |
|00000410| 20 20 20 20 20 63 6b 65 | 72 72 6f 72 28 2d 20 43 |     cke|rror(- C|
|00000420| 4b 5f 53 45 45 4b 2c 20 | 22 38 36 22 29 3b 0d 0a |K_SEEK, |"86");..|
|00000430| 20 20 20 69 66 20 28 72 | 65 61 64 28 66 64 2c 20 |   if (r|ead(fd, |
|00000440| 28 63 68 61 72 20 2a 29 | 26 62 74 69 6e 66 6f 2c |(char *)|&btinfo,|
|00000450| 20 53 5a 5f 42 54 5f 49 | 4e 46 4f 29 20 3d 3d 20 | SZ_BT_I|NFO) == |
|00000460| 45 52 52 29 20 20 20 2f | 2a 20 67 65 74 20 74 72 |ERR)   /|* get tr|
|00000470| 65 65 20 69 6e 66 6f 20 | 2a 2f 0d 0a 20 20 20 20 |ee info |*/..    |
|00000480| 20 20 63 6b 65 72 72 6f | 72 28 2d 20 43 4b 5f 52 |  ckerro|r(- CK_R|
|00000490| 45 41 44 2c 20 22 38 37 | 22 29 3b 0d 0a 20 20 20 |EAD, "87|");..   |
|000004a0| 64 65 6c 6e 6f 64 65 28 | 66 64 2c 20 62 74 69 6e |delnode(|fd, btin|
|000004b0| 66 6f 2e 62 69 5f 72 6f | 6f 74 70 2c 20 28 75 69 |fo.bi_ro|otp, (ui|
|000004c0| 6e 74 29 62 74 69 6e 66 | 6f 2e 62 69 5f 62 6c 6b |nt)btinf|o.bi_blk|
|000004d0| 73 7a 2c 20 28 75 69 6e | 74 29 62 74 69 6e 66 6f |sz, (uin|t)btinfo|
|000004e0| 2e 62 69 5f 6b 79 6c 65 | 6e 2c 0d 0a 20 20 20 20 |.bi_kyle|n,..    |
|000004f0| 20 20 20 20 20 28 75 69 | 6e 74 29 62 74 69 6e 66 |     (ui|nt)btinf|
|00000500| 6f 2e 62 69 5f 63 65 6c | 6c 73 29 3b 0d 0a 20 20 |o.bi_cel|ls);..  |
|00000510| 20 6d 65 6d 73 65 74 28 | 62 74 69 6e 66 6f 2e 62 | memset(|btinfo.b|
|00000520| 69 5f 62 6e 61 6d 65 2c | 20 27 3f 27 2c 20 53 5a |i_bname,| '?', SZ|
|00000530| 5f 42 4e 41 4d 45 29 3b | 20 2f 2a 20 65 72 61 73 |_BNAME);| /* eras|
|00000540| 65 20 6e 61 6d 65 20 2a | 2f 0d 0a 20 20 20 62 74 |e name *|/..   bt|
|00000550| 69 6e 66 6f 2e 62 69 5f | 72 6f 6f 74 70 20 3d 20 |info.bi_|rootp = |
|00000560| 2d 31 3b 20 20 20 20 20 | 20 20 20 20 20 20 20 2f |-1;     |       /|
|00000570| 2a 20 6e 6f 20 72 6f 6f | 74 20 2a 2f 0d 0a 20 20 |* no roo|t */..  |
|00000580| 20 69 66 20 28 6c 73 65 | 65 6b 28 66 64 2c 20 66 | if (lse|ek(fd, f|
|00000590| 69 6e 64 72 6f 6f 74 2c | 20 30 29 20 3d 3d 20 2d |indroot,| 0) == -|
|000005a0| 31 4c 29 0d 0a 20 20 20 | 20 20 20 63 6b 65 72 72 |1L)..   |   ckerr|
|000005b0| 6f 72 28 2d 20 43 4b 5f | 53 45 45 4b 2c 20 22 36 |or(- CK_|SEEK, "6|
|000005c0| 39 22 29 3b 0d 0a 20 20 | 20 69 66 20 28 77 72 69 |9");..  | if (wri|
|000005d0| 74 65 28 66 64 2c 20 28 | 63 68 61 72 20 2a 29 26 |te(fd, (|char *)&|
|000005e0| 62 74 69 6e 66 6f 2c 20 | 53 5a 5f 42 54 5f 49 4e |btinfo, |SZ_BT_IN|
|000005f0| 46 4f 29 20 3d 3d 20 45 | 52 52 29 20 20 2f 2a 20 |FO) == E|RR)  /* |
|00000600| 64 65 6c 65 74 65 20 65 | 6e 74 72 79 20 2a 2f 0d |delete e|ntry */.|
|00000610| 0a 20 20 20 20 20 20 63 | 6b 65 72 72 6f 72 28 2d |.      c|kerror(-|
|00000620| 20 43 4b 5f 57 52 49 54 | 2c 20 22 37 33 22 29 3b | CK_WRIT|, "73");|
|00000630| 0d 0a 20 20 20 72 65 74 | 75 72 6e 20 28 31 29 3b |..   ret|urn (1);|
|00000640| 20 20 20 2f 2a 20 61 6c | 6c 20 6f 6b 20 2a 2f 0d |   /* al|l ok */.|
|00000650| 0a 7d 0d 0a 0d 0a 76 6f | 69 64 20 64 65 6c 6e 6f |.}....vo|id delno|
|00000660| 64 65 28 66 64 2c 20 72 | 65 63 6c 6f 63 2c 20 69 |de(fd, r|ecloc, i|
|00000670| 64 78 6c 65 6e 2c 20 6b | 65 79 6c 65 6e 2c 20 63 |dxlen, k|eylen, c|
|00000680| 65 6c 6c 73 29 20 20 20 | 2f 2a 20 72 65 63 75 72 |ells)   |/* recur|
|00000690| 73 69 76 65 20 2a 2f 0d | 0a 69 6e 74 20 20 66 64 |sive */.|.int  fd|
|000006a0| 3b 0d 0a 6c 6f 6e 67 20 | 72 65 63 6c 6f 63 3b 0d |;..long |recloc;.|
|000006b0| 0a 75 69 6e 74 20 69 64 | 78 6c 65 6e 3b 0d 0a 75 |.uint id|xlen;..u|
|000006c0| 69 6e 74 20 6b 65 79 6c | 65 6e 3b 0d 0a 75 69 6e |int keyl|en;..uin|
|000006d0| 74 20 63 65 6c 6c 73 3b | 0d 0a 7b 0d 0a 20 20 20 |t cells;|..{..   |
|000006e0| 65 78 74 65 72 6e 20 63 | 68 61 72 20 2a 63 61 6c |extern c|har *cal|
|000006f0| 6c 6f 63 28 29 3b 0d 0a | 20 20 20 42 54 49 44 58 |loc();..|   BTIDX|
|00000700| 42 4c 4b 20 2a 69 64 78 | 62 6c 6b 70 3b 0d 0a 20 |BLK *idx|blkp;.. |
|00000710| 20 20 75 69 6e 74 20 20 | 20 20 20 20 20 75 3b 0d |  uint  |     u;.|
|00000720| 0a 0d 0a 20 20 20 75 20 | 3d 20 73 69 7a 65 6f 66 |...   u |= sizeof|
|00000730| 28 42 54 49 44 58 42 4c | 4b 29 20 2b 20 63 65 6c |(BTIDXBL|K) + cel|
|00000740| 6c 73 20 2a 20 73 69 7a | 65 6f 66 28 42 54 49 44 |ls * siz|eof(BTID|
|00000750| 58 29 3b 0d 0a 20 20 20 | 69 66 20 28 28 63 68 61 |X);..   |if ((cha|
|00000760| 72 20 2a 29 28 69 64 78 | 62 6c 6b 70 20 3d 20 28 |r *)(idx|blkp = (|
|00000770| 42 54 49 44 58 42 4c 4b | 20 2a 29 63 61 6c 6c 6f |BTIDXBLK| *)callo|
|00000780| 63 28 75 2c 20 53 5a 43 | 48 41 52 29 29 20 3d 3d |c(u, SZC|HAR)) ==|
|00000790| 20 4e 55 4c 4c 29 0d 0a | 20 20 20 20 20 20 63 6b | NULL)..|      ck|
|000007a0| 65 72 72 6f 72 28 2d 20 | 43 4b 5f 4e 4f 4d 45 4d |error(- |CK_NOMEM|
|000007b0| 2c 20 22 38 38 22 29 3b | 0d 0a 20 20 20 67 65 74 |, "88");|..   get|
|000007c0| 69 64 78 72 28 66 64 2c | 20 72 65 63 6c 6f 63 2c |idxr(fd,| recloc,|
|000007d0| 20 69 64 78 62 6c 6b 70 | 2c 20 69 64 78 6c 65 6e | idxblkp|, idxlen|
|000007e0| 2c 20 6b 65 79 6c 65 6e | 29 3b 0d 0a 20 20 20 69 |, keylen|);..   i|
|000007f0| 66 20 28 69 64 78 62 6c | 6b 70 2d 3e 62 6c 6b 74 |f (idxbl|kp->blkt|
|00000800| 79 70 65 20 3d 3d 20 30 | 29 20 2f 2a 20 69 6e 64 |ype == 0|) /* ind|
|00000810| 65 78 20 6e 6f 64 65 20 | 2a 2f 0d 0a 20 20 20 7b |ex node |*/..   {|
|00000820| 0d 0a 20 20 20 20 20 20 | 66 6f 72 20 28 75 20 3d |..      |for (u =|
|00000830| 20 30 3b 20 75 20 3c 20 | 69 64 78 62 6c 6b 70 2d | 0; u < |idxblkp-|
|00000840| 3e 63 65 6c 6c 69 63 6e | 74 3b 20 2b 2b 75 29 0d |>cellicn|t; ++u).|
|00000850| 0a 20 20 20 20 20 20 20 | 20 20 64 65 6c 6e 6f 64 |.       |  delnod|
|00000860| 65 28 66 64 2c 20 69 64 | 78 62 6c 6b 70 2d 3e 62 |e(fd, id|xblkp->b|
|00000870| 74 70 61 67 65 5b 75 5d | 2e 62 74 70 74 72 2c 20 |tpage[u]|.btptr, |
|00000880| 69 64 78 6c 65 6e 2c 20 | 6b 65 79 6c 65 6e 2c 20 |idxlen, |keylen, |
|00000890| 63 65 6c 6c 73 29 3b 0d | 0a 20 20 20 7d 0d 0a 20 |cells);.|.   }.. |
|000008a0| 20 20 64 65 6c 65 74 72 | 65 63 28 66 64 2c 20 72 |  deletr|ec(fd, r|
|000008b0| 65 63 6c 6f 63 2c 20 69 | 64 78 6c 65 6e 29 3b 0d |ecloc, i|dxlen);.|
|000008c0| 0a 20 20 20 66 72 65 65 | 6b 65 79 73 28 69 64 78 |.   free|keys(idx|
|000008d0| 62 6c 6b 70 29 3b 0d 0a | 20 20 20 46 52 45 45 28 |blkp);..|   FREE(|
|000008e0| 69 64 78 62 6c 6b 70 29 | 3b 0d 0a 7d 0d 0a 0d 0a |idxblkp)|;..}....|
|000008f0| 23 69 66 6e 64 65 66 20 | 4e 4f 54 45 53 54 0d 0a |#ifndef |NOTEST..|
|00000900| 0d 0a 23 69 6e 63 6c 75 | 64 65 20 3c 73 74 64 69 |..#inclu|de <stdi|
|00000910| 6f 2e 68 3e 0d 0a 23 69 | 6e 63 6c 75 64 65 20 22 |o.h>..#i|nclude "|
|00000920| 62 74 66 69 6f 2e 68 22 | 0d 0a 0d 0a 76 6f 69 64 |btfio.h"|....void|
|00000930| 20 6d 61 69 6e 28 61 72 | 67 63 2c 20 61 72 67 76 | main(ar|gc, argv|
|00000940| 29 0d 0a 69 6e 74 20 20 | 61 72 67 63 3b 0d 0a 63 |)..int  |argc;..c|
|00000950| 68 61 72 20 2a 61 72 67 | 76 5b 5d 3b 0d 0a 7b 0d |har *arg|v[];..{.|
|00000960| 0a 20 20 20 65 78 74 65 | 72 6e 20 63 68 61 72 20 |.   exte|rn char |
|00000970| 2a 73 74 72 63 70 79 28 | 29 2c 20 2a 73 74 72 63 |*strcpy(|), *strc|
|00000980| 61 74 28 29 3b 0d 0a 20 | 20 20 65 78 74 65 72 6e |at();.. |  extern|
|00000990| 20 69 6e 74 20 20 20 20 | 73 74 72 6c 65 6e 28 29 | int    |strlen()|
|000009a0| 2c 20 65 78 69 74 28 29 | 3b 0d 0a 20 20 20 42 54 |, exit()|;..   BT|
|000009b0| 43 20 20 20 20 62 74 63 | 6f 6d 6d 6f 3b 0d 0a 20 |C    btc|ommo;.. |
|000009c0| 20 20 69 6e 74 20 20 62 | 2c 20 66 64 3b 0d 0a 20 |  int  b|, fd;.. |
|000009d0| 20 20 63 68 61 72 20 62 | 74 6e 61 6d 65 5b 31 34 |  char b|tname[14|
|000009e0| 5d 3b 0d 0a 0d 0a 20 20 | 20 69 66 20 28 61 72 67 |];....  | if (arg|
|000009f0| 63 20 3e 20 31 29 0d 0a | 20 20 20 20 20 20 73 74 |c > 1)..|      st|
|00000a00| 72 63 70 79 28 62 74 6e | 61 6d 65 2c 20 61 72 67 |rcpy(btn|ame, arg|
|00000a10| 76 5b 31 5d 29 3b 0d 0a | 20 20 20 65 6c 73 65 0d |v[1]);..|   else.|
|00000a20| 0a 20 20 20 7b 0d 0a 20 | 20 20 20 20 20 70 72 69 |.   {.. |     pri|
|00000a30| 6e 74 66 28 22 5c 6e 5c | 6e 45 6e 74 65 72 20 42 |ntf("\n\|nEnter B|
|00000a40| 2b 74 72 65 65 20 4e 61 | 6d 65 20 28 78 78 78 78 |+tree Na|me (xxxx|
|00000a50| 78 78 78 78 29 20 3d 3d | 3e 20 22 29 3b 0d 0a 20 |xxxx) ==|> ");.. |
|00000a60| 20 20 20 20 20 67 65 74 | 73 28 62 74 6e 61 6d 65 |     get|s(btname|
|00000a70| 29 3b 0d 0a 20 20 20 7d | 0d 0a 20 20 20 72 65 70 |);..   }|..   rep|
|00000a80| 65 61 74 0d 0a 20 20 20 | 7b 0d 0a 20 20 20 20 20 |eat..   |{..     |
|00000a90| 20 69 66 20 28 28 62 20 | 3d 20 62 74 72 69 6e 69 | if ((b |= btrini|
|00000aa0| 74 28 62 74 6e 61 6d 65 | 2c 20 26 62 74 63 6f 6d |t(btname|, &btcom|
|00000ab0| 6d 6f 29 29 20 3d 3d 20 | 45 52 52 29 0d 0a 20 20 |mo)) == |ERR)..  |
|00000ac0| 20 20 20 20 7b 0d 0a 20 | 20 20 20 20 20 20 20 20 |    {.. |        |
|00000ad0| 70 72 69 6e 74 66 28 22 | 5c 6e 44 45 4c 42 54 52 |printf("|\nDELBTR|
|00000ae0| 45 45 3a 20 65 6e 74 72 | 79 20 66 6f 72 20 27 25 |EE: entr|y for '%|
|00000af0| 73 27 20 6e 6f 74 20 66 | 6f 75 6e 64 20 69 6e 20 |s' not f|ound in |
|00000b00| 42 54 50 41 52 4d 53 2e | 42 54 52 22 2c 0d 0a 20 |BTPARMS.|BTR",.. |
|00000b10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000b20| 20 62 74 6e 61 6d 65 29 | 3b 0d 0a 20 20 20 20 20 | btname)|;..     |
|00000b30| 20 20 20 20 70 72 69 6e | 74 66 28 22 5c 6e 5c 6e |    prin|tf("\n\n|
|00000b40| 45 6e 74 65 72 20 62 2d | 74 72 65 65 20 6e 61 6d |Enter b-|tree nam|
|00000b50| 65 20 28 78 78 78 78 78 | 78 78 78 29 20 3d 3d 3e |e (xxxxx|xxx) ==>|
|00000b60| 20 22 29 3b 0d 0a 20 20 | 20 20 20 20 20 20 20 67 | ");..  |       g|
|00000b70| 65 74 73 28 62 74 6e 61 | 6d 65 29 3b 0d 0a 20 20 |ets(btna|me);..  |
|00000b80| 20 20 20 20 20 20 20 69 | 66 20 28 2a 62 74 6e 61 |       i|f (*btna|
|00000b90| 6d 65 20 3d 3d 20 4e 55 | 4c 20 20 7c 7c 20 20 20 |me == NU|L  ||   |
|00000ba0| 20 74 6f 75 70 70 65 72 | 28 2a 62 74 6e 61 6d 65 | toupper|(*btname|
|00000bb0| 29 20 3d 3d 20 27 58 27 | 29 0d 0a 20 20 20 20 20 |) == 'X'|)..     |
|00000bc0| 20 20 20 20 20 20 20 65 | 78 69 74 28 30 29 3b 0d |       e|xit(0);.|
|00000bd0| 0a 20 20 20 20 20 20 7d | 0d 0a 20 20 20 7d 0d 0a |.      }|..   }..|
|00000be0| 20 20 20 75 6e 74 69 6c | 28 62 20 21 3d 20 45 52 |   until|(b != ER|
|00000bf0| 52 29 3b 0d 0a 0d 0a 20 | 20 20 69 66 20 28 28 66 |R);.... |  if ((f|
|00000c00| 64 20 3d 20 62 74 5f 6f | 70 65 6e 28 62 74 63 6f |d = bt_o|pen(btco|
|00000c10| 6d 6d 6f 2e 69 64 78 6e | 61 6d 65 2c 20 4f 5f 52 |mmo.idxn|ame, O_R|
|00000c20| 44 57 52 29 29 20 3d 3d | 20 45 52 52 29 0d 0a 20 |DWR)) ==| ERR).. |
|00000c30| 20 20 20 20 20 70 72 69 | 6e 74 66 28 22 49 6e 64 |     pri|ntf("Ind|
|00000c40| 65 78 20 66 69 6c 65 20 | 27 25 73 27 20 4e 4f 54 |ex file |'%s' NOT|
|00000c50| 20 66 6f 75 6e 64 2e 2e | 2e 20 5c 6e 5c 6e 22 2c | found..|. \n\n",|
|00000c60| 20 62 74 63 6f 6d 6d 6f | 2e 69 64 78 6e 61 6d 65 | btcommo|.idxname|
|00000c70| 29 3b 0d 0a 20 20 20 65 | 6c 73 65 0d 0a 20 20 20 |);..   e|lse..   |
|00000c80| 7b 0d 0a 20 20 20 20 20 | 20 62 20 3d 20 64 65 6c |{..     | b = del|
|00000c90| 65 74 62 74 72 28 66 64 | 2c 20 62 74 63 6f 6d 6d |etbtr(fd|, btcomm|
|00000ca0| 6f 2e 66 69 6e 64 72 6f | 6f 74 29 3b 0d 0a 20 20 |o.findro|ot);..  |
|00000cb0| 20 20 20 20 63 6c 6f 73 | 65 20 28 66 64 29 3b 0d |    clos|e (fd);.|
|00000cc0| 0a 20 20 20 7d 0d 0a 20 | 20 20 70 72 69 6e 74 66 |.   }.. |  printf|
|00000cd0| 28 22 5c 6e 42 2b 74 72 | 65 65 20 27 25 73 27 20 |("\nB+tr|ee '%s' |
|00000ce0| 25 73 64 65 6c 65 74 65 | 64 20 73 75 63 63 65 73 |%sdelete|d succes|
|00000cf0| 73 66 75 6c 6c 79 20 69 | 6e 20 66 69 6c 65 20 27 |sfully i|n file '|
|00000d00| 25 73 27 2e 5c 6e 5c 6e | 22 2c 0d 0a 20 20 20 20 |%s'.\n\n|",..    |
|00000d10| 20 20 62 74 6e 61 6d 65 | 2c 20 62 20 3f 20 22 22 |  btname|, b ? ""|
|00000d20| 20 3a 20 22 4e 4f 54 20 | 22 2c 20 62 74 63 6f 6d | : "NOT |", btcom|
|00000d30| 6d 6f 2e 69 64 78 6e 61 | 6d 65 29 3b 0d 0a 7d 0d |mo.idxna|me);..}.|
|00000d40| 0a 0d 0a 23 65 6e 64 69 | 66 0d 0a 0d 0a          |...#endi|f....   |
+--------+-------------------------+-------------------------+--------+--------+