/ Liren Large Software Subsidy 7 / 07.iso / c / c006 / 1.ddi / PUTBTREE.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 50 55 54 | 42 54 52 45 45 2e 43 00 |RARY\PUT|BTREE.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 70 20 75 20 74 20 62 | 20 74 20 72 20 65 20 65 | p u t b| t r e e|
|000000e0| 20 2e 20 63 20 20 20 20 | 20 20 20 39 2f 31 35 2f | . c    |   9/15/|
|000000f0| 38 34 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |84      |        |
|00000100| 20 20 20 2a 2f 0d 0a 0d | 0a 2f 2a 2d 2d 2d 2d 2d |   */...|./*-----|
|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 20 | 0d 0a 20 2a 20 70 75 74 |------- |.. * put|
|00000160| 72 6f 6f 74 28 29 20 77 | 69 6c 6c 20 77 72 69 74 |root() w|ill writ|
|00000170| 65 20 74 68 65 20 42 2b | 74 72 65 65 20 72 6f 6f |e the B+|tree roo|
|00000180| 74 20 70 6f 69 6e 74 65 | 72 20 76 61 6c 75 65 20 |t pointe|r value |
|00000190| 74 6f 20 64 69 73 6b 2e | 0d 0a 20 2a 2d 2d 2d 2d |to disk.|.. *----|
|000001a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001e0| 2d 2d 2d 2d 2d 2d 2d 2a | 2f 0d 0a 0d 0a 23 69 6e |-------*|/....#in|
|000001f0| 63 6c 75 64 65 20 22 63 | 62 74 72 65 65 2e 68 22 |clude "c|btree.h"|
|00000200| 0d 0a 0d 0a 76 6f 69 64 | 20 70 75 74 72 6f 6f 74 |....void| putroot|
|00000210| 28 66 64 2c 20 72 6f 6f | 74 70 74 72 2c 20 70 74 |(fd, roo|tptr, pt|
|00000220| 72 6c 6f 63 29 20 20 20 | 2f 2a 20 70 75 74 20 62 |rloc)   |/* put b|
|00000230| 74 72 65 65 20 72 6f 6f | 74 20 72 65 63 6f 72 64 |tree roo|t record|
|00000240| 20 20 20 2a 2f 0d 0a 69 | 6e 74 20 66 64 3b 0d 0a |   */..i|nt fd;..|
|00000250| 6c 6f 6e 67 20 72 6f 6f | 74 70 74 72 3b 0d 0a 6c |long roo|tptr;..l|
|00000260| 6f 6e 67 20 70 74 72 6c | 6f 63 3b 0d 0a 7b 0d 0a |ong ptrl|oc;..{..|
|00000270| 20 20 20 65 78 74 65 72 | 6e 20 6c 6f 6e 67 20 6c |   exter|n long l|
|00000280| 73 65 65 6b 28 29 3b 0d | 0a 0d 0a 20 20 20 69 66 |seek();.|...   if|
|00000290| 20 28 6c 73 65 65 6b 28 | 66 64 2c 20 70 74 72 6c | (lseek(|fd, ptrl|
|000002a0| 6f 63 2c 20 30 29 20 3d | 3d 20 2d 31 4c 29 0d 0a |oc, 0) =|= -1L)..|
|000002b0| 20 20 20 20 20 20 63 6b | 65 72 72 6f 72 28 2d 20 |      ck|error(- |
|000002c0| 43 4b 5f 53 45 45 4b 2c | 20 22 36 33 22 29 3b 0d |CK_SEEK,| "63");.|
|000002d0| 0a 20 20 20 69 66 20 28 | 77 72 69 74 65 28 66 64 |.   if (|write(fd|
|000002e0| 2c 20 28 63 68 61 72 20 | 2a 29 26 72 6f 6f 74 70 |, (char |*)&rootp|
|000002f0| 74 72 2c 20 73 69 7a 65 | 6f 66 28 6c 6f 6e 67 29 |tr, size|of(long)|
|00000300| 29 20 3d 3d 20 45 52 52 | 29 0d 0a 20 20 20 20 20 |) == ERR|)..     |
|00000310| 20 63 6b 65 72 72 6f 72 | 28 2d 20 43 4b 5f 57 52 | ckerror|(- CK_WR|
|00000320| 49 54 2c 20 22 36 34 22 | 29 3b 0d 0a 7d 0d 0a 0d |IT, "64"|);..}...|
|00000330| 0a 2f 2a 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |./*-----|--------|
|00000340| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000350| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000360| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000370| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 20 |--------|------- |
|00000380| 0d 0a 20 2a 20 70 75 74 | 69 64 78 72 28 29 20 77 |.. * put|idxr() w|
|00000390| 69 6c 6c 20 77 72 69 74 | 65 20 74 68 65 20 42 2b |ill writ|e the B+|
|000003a0| 74 72 65 65 20 69 6e 64 | 65 78 20 72 65 63 6f 72 |tree ind|ex recor|
|000003b0| 64 20 74 6f 20 64 69 73 | 6b 2e 0d 0a 20 2a 2d 2d |d to dis|k... *--|
|000003c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000400| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2a 2f 0d 0a 0d 0a 76 |--------|-*/....v|
|00000410| 6f 69 64 20 70 75 74 69 | 64 78 72 28 66 64 2c 20 |oid puti|dxr(fd, |
|00000420| 72 65 63 6e 75 6d 2c 20 | 69 64 78 62 6c 6b 2c 20 |recnum, |idxblk, |
|00000430| 62 74 63 70 29 20 2f 2a | 20 70 75 74 20 62 74 72 |btcp) /*| put btr|
|00000440| 65 65 20 69 6e 64 65 78 | 20 72 65 63 6f 72 64 20 |ee index| record |
|00000450| 20 20 2a 2f 0d 0a 69 6e | 74 20 20 20 20 20 20 20 |  */..in|t       |
|00000460| 66 64 3b 0d 0a 6c 6f 6e | 67 20 20 20 20 20 20 72 |fd;..lon|g      r|
|00000470| 65 63 6e 75 6d 3b 0d 0a | 42 54 49 44 58 42 4c 4b |ecnum;..|BTIDXBLK|
|00000480| 20 2a 69 64 78 62 6c 6b | 3b 0d 0a 42 54 43 20 20 | *idxblk|;..BTC  |
|00000490| 20 20 20 20 2a 62 74 63 | 70 3b 20 20 20 2f 2a 20 |    *btc|p;   /* |
|000004a0| 62 74 63 6f 6d 6d 6f 20 | 73 74 72 75 63 74 75 72 |btcommo |structur|
|000004b0| 65 20 70 6f 69 6e 74 65 | 72 20 2a 2f 0d 0a 7b 0d |e pointe|r */..{.|
|000004c0| 0a 20 20 20 65 78 74 65 | 72 6e 20 63 68 61 72 20 |.   exte|rn char |
|000004d0| 2a 63 61 6c 6c 6f 63 28 | 29 3b 0d 0a 20 20 20 65 |*calloc(|);..   e|
|000004e0| 78 74 65 72 6e 20 63 68 | 61 72 20 2a 6b 65 79 61 |xtern ch|ar *keya|
|000004f0| 64 64 28 29 3b 0d 0a 20 | 20 20 65 78 74 65 72 6e |dd();.. |  extern|
|00000500| 20 76 6f 69 64 20 20 66 | 72 65 65 28 29 3b 0d 0a | void  f|ree();..|
|00000510| 20 20 20 65 78 74 65 72 | 6e 20 6c 6f 6e 67 20 20 |   exter|n long  |
|00000520| 6c 73 65 65 6b 28 29 3b | 0d 0a 20 20 20 63 68 61 |lseek();|..   cha|
|00000530| 72 20 20 20 2a 62 75 66 | 66 3b 0d 0a 20 20 20 63 |r   *buf|f;..   c|
|00000540| 68 61 72 20 20 20 2a 63 | 70 74 72 3b 0d 0a 20 20 |har   *c|ptr;..  |
|00000550| 20 75 77 6f 72 64 20 20 | 2a 75 70 74 72 3b 0d 0a | uword  |*uptr;..|
|00000560| 20 20 20 6c 6f 6e 67 20 | 20 20 2a 6c 70 74 72 3b |   long |  *lptr;|
|00000570| 0d 0a 20 20 20 75 77 6f | 72 64 20 20 20 72 65 63 |..   uwo|rd   rec|
|00000580| 6c 65 6e 20 3d 20 62 74 | 63 70 2d 3e 62 74 69 64 |len = bt|cp->btid|
|00000590| 78 6c 65 6e 3b 0d 0a 20 | 20 20 72 65 67 69 73 74 |xlen;.. |  regist|
|000005a0| 65 72 20 75 77 6f 72 64 | 20 75 3b 0d 0a 20 20 20 |er uword| u;..   |
|000005b0| 72 65 67 69 73 74 65 72 | 20 75 77 6f 72 64 20 63 |register| uword c|
|000005c0| 65 6c 6c 63 6e 74 3b 0d | 0a 0d 0a 20 20 20 63 65 |ellcnt;.|...   ce|
|000005d0| 6c 6c 63 6e 74 20 3d 20 | 69 64 78 62 6c 6b 2d 3e |llcnt = |idxblk->|
|000005e0| 63 65 6c 6c 69 63 6e 74 | 3b 20 20 20 2f 2a 20 6d |cellicnt|;   /* m|
|000005f0| 75 73 74 20 62 65 20 69 | 6e 69 74 69 61 6c 69 7a |ust be i|nitializ|
|00000600| 65 64 20 73 65 70 61 72 | 61 74 65 6c 79 20 66 6f |ed separ|ately fo|
|00000610| 72 20 45 43 20 2a 2f 0d | 0a 20 20 20 69 66 20 28 |r EC */.|.   if (|
|00000620| 28 62 75 66 66 20 3d 20 | 63 61 6c 6c 6f 63 28 72 |(buff = |calloc(r|
|00000630| 65 63 6c 65 6e 20 2b 20 | 31 2c 20 53 5a 43 48 41 |eclen + |1, SZCHA|
|00000640| 52 29 29 20 3d 3d 20 4e | 55 4c 4c 29 20 20 20 20 |R)) == N|ULL)    |
|00000650| 2f 2a 20 6d 61 69 6e 20 | 62 75 66 66 65 72 20 2a |/* main |buffer *|
|00000660| 2f 0d 0a 20 20 20 7b 0d | 0a 20 20 20 20 20 20 70 |/..   {.|.      p|
|00000670| 72 69 6e 74 66 28 22 5c | 6e 50 55 54 42 54 52 45 |rintf("\|nPUTBTRE|
|00000680| 45 2e 43 3a 70 75 74 69 | 64 78 72 28 29 3a 20 63 |E.C:puti|dxr(): c|
|00000690| 61 6e 27 74 20 61 6c 6c | 6f 63 61 74 20 25 64 20 |an't all|ocat %d |
|000006a0| 62 79 74 65 73 20 6f 66 | 20 6d 65 6d 6f 72 79 2e |bytes of| memory.|
|000006b0| 22 2c 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |",..    |        |
|000006c0| 72 65 63 6c 65 6e 20 2b | 20 31 29 3b 0d 0a 20 20 |reclen +| 1);..  |
|000006d0| 20 20 20 20 63 6b 65 72 | 72 6f 72 28 2d 20 43 4b |    cker|ror(- CK|
|000006e0| 5f 4e 4f 4d 45 4d 2c 20 | 22 36 35 22 29 3b 0d 0a |_NOMEM, |"65");..|
|000006f0| 20 20 20 7d 0d 0a 0d 0a | 20 20 20 75 70 74 72 20 |   }....|   uptr |
|00000700| 3d 20 28 75 77 6f 72 64 | 20 2a 29 62 75 66 66 3b |= (uword| *)buff;|
|00000710| 20 20 20 20 20 20 20 20 | 20 2f 2a 20 64 6f 20 75 |        | /* do u|
|00000720| 6e 73 69 67 6e 65 64 20 | 69 6e 74 73 20 66 69 72 |nsigned |ints fir|
|00000730| 73 74 20 2a 2f 0d 0a 20 | 20 20 2a 75 70 74 72 2b |st */.. |  *uptr+|
|00000740| 2b 20 3d 20 69 64 78 62 | 6c 6b 2d 3e 62 6c 6b 74 |+ = idxb|lk->blkt|
|00000750| 79 70 65 3b 0d 0a 20 20 | 20 2a 75 70 74 72 2b 2b |ype;..  | *uptr++|
|00000760| 20 3d 20 69 64 78 62 6c | 6b 2d 3e 63 65 6c 6c 69 | = idxbl|k->celli|
|00000770| 63 6e 74 3b 0d 0a 23 69 | 66 20 30 0d 0a 70 72 69 |cnt;..#i|f 0..pri|
|00000780| 6e 74 66 28 22 5c 6e 50 | 55 54 42 54 52 45 45 3a |ntf("\nP|UTBTREE:|
|00000790| 20 2a 75 70 74 72 20 28 | 63 65 6c 6c 69 63 6e 74 | *uptr (|cellicnt|
|000007a0| 29 20 3d 20 25 78 22 2c | 20 2a 28 75 70 74 72 2d |) = %x",| *(uptr-|
|000007b0| 31 29 29 3b 0d 0a 23 65 | 6e 64 69 66 0d 0a 20 20 |1));..#e|ndif..  |
|000007c0| 20 6c 70 74 72 20 3d 20 | 28 6c 6f 6e 67 20 2a 29 | lptr = |(long *)|
|000007d0| 75 70 74 72 3b 20 20 20 | 20 20 20 20 20 2f 2a 20 |uptr;   |     /* |
|000007e0| 6e 6f 77 20 61 64 64 20 | 6c 6f 6e 67 73 20 2a 2f |now add |longs */|
|000007f0| 0d 0a 20 20 20 2a 6c 70 | 74 72 2b 2b 20 3d 20 69 |..   *lp|tr++ = i|
|00000800| 64 78 62 6c 6b 2d 3e 66 | 77 64 70 61 67 65 3b 0d |dxblk->f|wdpage;.|
|00000810| 0a 20 20 20 2a 6c 70 74 | 72 2b 2b 20 3d 20 69 64 |.   *lpt|r++ = id|
|00000820| 78 62 6c 6b 2d 3e 62 77 | 64 70 61 67 65 3b 0d 0a |xblk->bw|dpage;..|
|00000830| 23 69 66 20 4e 4f 41 4c | 49 47 4e 0d 0a 20 20 20 |#if NOAL|IGN..   |
|00000840| 63 70 74 72 20 3d 20 28 | 63 68 61 72 20 2a 29 28 |cptr = (|char *)(|
|00000850| 6c 70 74 72 20 2b 20 31 | 29 3b 20 20 20 20 20 20 |lptr + 1|);      |
|00000860| 20 20 20 20 20 20 20 20 | 2f 2a 20 70 6f 69 6e 74 |        |/* point|
|00000870| 65 72 20 69 73 20 77 69 | 74 68 20 6b 65 79 20 2a |er is wi|th key *|
|00000880| 2f 0d 0a 23 65 6c 73 65 | 0d 0a 20 20 20 63 70 74 |/..#else|..   cpt|
|00000890| 72 20 3d 20 28 63 68 61 | 72 20 2a 29 28 6c 70 74 |r = (cha|r *)(lpt|
|000008a0| 72 20 2b 20 69 64 78 62 | 6c 6b 2d 3e 63 65 6c 6c |r + idxb|lk->cell|
|000008b0| 69 63 6e 74 29 3b 20 20 | 20 2f 2a 20 61 6c 6c 20 |icnt);  | /* all |
|000008c0| 70 74 72 73 20 61 72 65 | 20 74 6f 67 65 74 68 65 |ptrs are| togethe|
|000008d0| 72 20 2a 2f 0d 0a 23 65 | 6e 64 69 66 0d 0a 0d 0a |r */..#e|ndif....|
|000008e0| 20 20 20 66 6f 72 20 28 | 75 20 3d 20 30 3b 20 75 |   for (|u = 0; u|
|000008f0| 20 3c 20 63 65 6c 6c 63 | 6e 74 3b 20 2b 2b 75 29 | < cellc|nt; ++u)|
|00000900| 0d 0a 20 20 20 7b 0d 0a | 20 20 20 20 20 20 2a 6c |..   {..|      *l|
|00000910| 70 74 72 2b 2b 20 3d 20 | 69 64 78 62 6c 6b 2d 3e |ptr++ = |idxblk->|
|00000920| 62 74 70 61 67 65 5b 75 | 5d 2e 62 74 70 74 72 3b |btpage[u|].btptr;|
|00000930| 0d 0a 23 69 66 20 4e 4f | 41 4c 49 47 4e 0d 0a 20 |..#if NO|ALIGN.. |
|00000940| 20 20 20 20 20 6c 70 74 | 72 20 3d 20 28 6c 6f 6e |     lpt|r = (lon|
|00000950| 67 20 2a 29 28 28 63 68 | 61 72 20 2a 29 6c 70 74 |g *)((ch|ar *)lpt|
|00000960| 72 20 2b 20 73 74 72 6c | 65 6e 28 69 64 78 62 6c |r + strl|en(idxbl|
|00000970| 6b 2d 3e 62 74 70 61 67 | 65 5b 75 5d 2e 73 6b 65 |k->btpag|e[u].ske|
|00000980| 79 6e 6d 65 29 20 2b 20 | 31 29 3b 20 20 20 20 2f |ynme) + |1);    /|
|00000990| 2a 20 73 6b 69 70 20 6f | 76 65 72 20 6b 65 79 20 |* skip o|ver key |
|000009a0| 2a 2f 0d 0a 23 65 6e 64 | 69 66 0d 0a 20 20 20 20 |*/..#end|if..    |
|000009b0| 20 20 63 70 74 72 20 3d | 20 6b 65 79 61 64 64 28 |  cptr =| keyadd(|
|000009c0| 63 70 74 72 2c 20 69 64 | 78 62 6c 6b 2d 3e 62 74 |cptr, id|xblk->bt|
|000009d0| 70 61 67 65 5b 75 5d 2e | 73 6b 65 79 6e 6d 65 29 |page[u].|skeynme)|
|000009e0| 3b 20 2f 2a 20 6c 69 6b | 65 20 73 74 72 63 70 79 |; /* lik|e strcpy|
|000009f0| 28 29 20 2a 2f 0d 0a 23 | 69 66 20 4e 4f 41 4c 49 |() */..#|if NOALI|
|00000a00| 47 4e 0d 0a 20 20 20 20 | 20 20 63 70 74 72 20 2b |GN..    |  cptr +|
|00000a10| 3d 20 73 69 7a 65 6f 66 | 28 6c 6f 6e 67 29 3b 20 |= sizeof|(long); |
|00000a20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000a30| 20 20 20 20 2f 2a 20 73 | 6b 69 70 20 6f 76 65 72 |    /* s|kip over|
|00000a40| 20 70 74 72 20 2a 2f 0d | 0a 23 65 6e 64 69 66 0d | ptr */.|.#endif.|
|00000a50| 0a 20 20 20 20 20 20 69 | 66 20 28 28 63 70 74 72 |.      i|f ((cptr|
|00000a60| 20 2d 20 62 75 66 66 29 | 20 2d 20 73 69 7a 65 6f | - buff)| - sizeo|
|00000a70| 66 28 6c 6f 6e 67 29 20 | 3e 20 72 65 63 6c 65 6e |f(long) |> reclen|
|00000a80| 20 2d 20 32 29 0d 0a 20 | 20 20 20 20 20 20 20 20 | - 2).. |        |
|00000a90| 20 20 20 63 6b 65 72 72 | 6f 72 28 2d 20 43 4b 5f |   ckerr|or(- CK_|
|00000aa0| 49 4e 44 58 2c 20 22 34 | 33 22 29 3b 0d 0a 20 20 |INDX, "4|3");..  |
|00000ab0| 20 7d 0d 0a 20 20 20 62 | 75 66 66 5b 72 65 63 6c | }..   b|uff[recl|
|00000ac0| 65 6e 20 2d 20 32 5d 20 | 3d 20 27 5c 72 27 3b 0d |en - 2] |= '\r';.|
|00000ad0| 0a 20 20 20 62 75 66 66 | 5b 72 65 63 6c 65 6e 20 |.   buff|[reclen |
|00000ae0| 2d 20 31 5d 20 3d 20 27 | 5c 6e 27 3b 0d 0a 0d 0a |- 1] = '|\n';....|
|00000af0| 20 20 20 69 66 20 28 62 | 74 73 65 65 6b 28 66 64 |   if (b|tseek(fd|
|00000b00| 2c 20 72 65 63 6e 75 6d | 2c 20 72 65 63 6c 65 6e |, recnum|, reclen|
|00000b10| 29 20 3d 3d 20 2d 31 4c | 29 0d 0a 20 20 20 20 20 |) == -1L|)..     |
|00000b20| 20 63 6b 65 72 72 6f 72 | 28 2d 20 43 4b 5f 53 45 | ckerror|(- CK_SE|
|00000b30| 45 4b 2c 20 22 36 36 22 | 29 3b 0d 0a 20 20 20 69 |EK, "66"|);..   i|
|00000b40| 66 20 28 77 72 69 74 65 | 28 66 64 2c 20 62 75 66 |f (write|(fd, buf|
|00000b50| 66 2c 20 28 69 6e 74 29 | 72 65 63 6c 65 6e 29 20 |f, (int)|reclen) |
|00000b60| 3d 3d 20 45 52 52 29 0d | 0a 20 20 20 20 20 20 63 |== ERR).|.      c|
|00000b70| 6b 65 72 72 6f 72 28 2d | 20 43 4b 5f 57 52 49 54 |kerror(-| CK_WRIT|
|00000b80| 2c 20 22 36 37 22 29 3b | 0d 0a 20 20 20 46 52 45 |, "67");|..   FRE|
|00000b90| 45 28 62 75 66 66 29 3b | 0d 0a 7d 0d 0a 0d 0a 0d |E(buff);|..}.....|
|00000ba0| 0a 63 68 61 72 20 2a 6b | 65 79 61 64 64 28 64 73 |.char *k|eyadd(ds|
|00000bb0| 74 2c 20 73 72 63 29 20 | 20 20 20 2f 2a 20 6c 69 |t, src) |   /* li|
|00000bc0| 6b 65 20 73 74 72 63 70 | 79 28 29 20 62 75 74 20 |ke strcp|y() but |
|00000bd0| 72 65 74 75 72 6e 73 20 | 46 4f 4c 4c 4f 57 49 4e |returns |FOLLOWIN|
|00000be0| 47 20 73 20 2a 2f 0d 0a | 63 68 61 72 20 2a 64 73 |G s */..|char *ds|
|00000bf0| 74 3b 0d 0a 63 68 61 72 | 20 2a 73 72 63 3b 0d 0a |t;..char| *src;..|
|00000c00| 7b 0d 0a 20 20 20 72 65 | 67 69 73 74 65 72 20 63 |{..   re|gister c|
|00000c10| 68 61 72 20 2a 64 3b 0d | 0a 20 20 20 72 65 67 69 |har *d;.|.   regi|
|00000c20| 73 74 65 72 20 63 68 61 | 72 20 2a 73 3b 0d 0a 0d |ster cha|r *s;...|
|00000c30| 0a 20 20 20 66 6f 72 20 | 28 64 20 3d 20 64 73 74 |.   for |(d = dst|
|00000c40| 2c 20 73 20 3d 20 73 72 | 63 3b 20 28 2a 64 2b 2b |, s = sr|c; (*d++|
|00000c50| 20 3d 20 2a 73 2b 2b 29 | 20 21 3d 20 4e 55 4c 3b | = *s++)| != NUL;|
|00000c60| 20 29 0d 0a 20 20 20 20 | 20 20 3b 0d 0a 20 20 20 | )..    |  ;..   |
|00000c70| 72 65 74 75 72 6e 20 28 | 64 29 3b 20 20 2f 2a 20 |return (|d);  /* |
|00000c80| 6c 6f 63 61 74 69 6f 6e | 20 6f 66 20 4e 45 58 54 |location| of NEXT|
|00000c90| 20 73 74 72 69 6e 67 20 | 74 6f 20 63 6f 70 79 20 | string |to copy |
|00000ca0| 2a 2f 0d 0a 7d 0d 0a 0d | 0a 0d 0a 2f 2a 20 28 43 |*/..}...|.../* (C|
|00000cb0| 29 20 43 6f 70 79 72 69 | 67 68 74 20 31 39 38 34 |) Copyri|ght 1984|
|00000cc0| 20 57 61 6c 74 65 72 20 | 4c 2e 20 50 65 61 63 6f | Walter |L. Peaco|
|00000cd0| 63 6b 20 20 20 41 6c 6c | 20 52 69 67 68 74 73 20 |ck   All| Rights |
|00000ce0| 52 65 73 65 72 76 65 64 | 20 20 20 20 31 31 2f 30 |Reserved|    11/0|
|00000cf0| 35 2f 38 34 20 2a 2f 0d | 0a 0d 0a 2f 2a 20 54 48 |5/84 */.|.../* TH|
|00000d00| 49 53 20 50 52 4f 47 52 | 41 4d 20 42 45 4c 4f 4e |IS PROGR|AM BELON|
|00000d10| 47 53 20 54 4f 20 57 41 | 4c 54 45 52 20 4c 2e 20 |GS TO WA|LTER L. |
|00000d20| 50 45 41 43 4f 43 4b 2e | 20 20 49 54 20 49 53 20 |PEACOCK.|  IT IS |
|00000d30| 43 4f 4e 53 49 44 45 52 | 45 44 20 41 20 54 52 41 |CONSIDER|ED A TRA|
|00000d40| 44 45 20 2a 2f 0d 0a 2f | 2a 20 53 45 43 52 45 54 |DE */../|* SECRET|
|00000d50| 20 41 4e 44 20 49 53 20 | 4e 4f 54 20 54 4f 20 42 | AND IS |NOT TO B|
|00000d60| 45 20 44 49 56 55 4c 47 | 45 44 20 4f 52 20 55 53 |E DIVULG|ED OR US|
|00000d70| 45 44 20 42 59 20 50 41 | 52 54 49 45 53 20 57 48 |ED BY PA|RTIES WH|
|00000d80| 4f 20 48 41 56 45 20 4e | 4f 54 20 20 20 20 2a 2f |O HAVE N|OT    */|
|00000d90| 0d 0a 2f 2a 20 52 45 43 | 45 49 56 45 44 20 57 52 |../* REC|EIVED WR|
|00000da0| 49 54 54 45 4e 20 41 55 | 54 48 4f 52 49 5a 41 54 |ITTEN AU|THORIZAT|
|00000db0| 49 4f 4e 20 46 52 4f 4d | 20 54 48 45 20 4f 57 4e |ION FROM| THE OWN|
|00000dc0| 45 52 2e 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ER.     |        |
|00000dd0| 20 20 20 20 20 20 2a 2f | 0d 0a                   |      */|..      |
+--------+-------------------------+-------------------------+--------+--------+