/ Liren Large Software Subsidy 7 / 07.iso / c / c006 / 1.ddi / INITDAT.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 49 4e 49 | 54 44 41 54 2e 43 00 00 |RARY\INI|TDAT.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 1a 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 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |/*******|********|
|00000090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0d 0a 20 2a 0d 0a 20 |********|*.. *.. |
|000000d0| 2a 20 69 6e 69 74 64 61 | 74 2e 63 20 20 2d 2d 20 |* initda|t.c  -- |
|000000e0| 20 69 6e 69 74 69 61 6c | 69 7a 65 20 68 65 61 64 | initial|ize head|
|000000f0| 65 72 20 72 65 63 6f 72 | 64 20 6f 66 20 6e 65 77 |er recor|d of new|
|00000100| 20 64 61 74 61 20 66 69 | 6c 65 0d 0a 20 2a 0d 0a | data fi|le.. *..|
|00000110| 20 2a 2f 0d 0a 0d 0a 23 | 69 6e 63 6c 75 64 65 20 | */....#|include |
|00000120| 22 63 62 74 72 65 65 2e | 68 22 0d 0a 0d 0a 76 6f |"cbtree.|h"....vo|
|00000130| 69 64 20 69 6e 69 74 64 | 61 74 28 66 64 2c 20 62 |id initd|at(fd, b|
|00000140| 74 63 70 29 20 2f 2a 20 | 69 6e 69 74 69 61 6c 69 |tcp) /* |initiali|
|00000150| 7a 65 20 68 65 61 64 65 | 72 20 72 65 63 6f 72 64 |ze heade|r record|
|00000160| 20 2a 2f 0d 0a 0d 0a 69 | 6e 74 20 20 66 64 3b 0d | */....i|nt  fd;.|
|00000170| 0a 42 54 43 20 2a 62 74 | 63 70 3b 0d 0a 0d 0a 7b |.BTC *bt|cp;....{|
|00000180| 0d 0a 20 20 20 65 78 74 | 65 72 6e 20 63 68 61 72 |..   ext|ern char|
|00000190| 20 2a 63 61 6c 6c 6f 63 | 28 29 3b 0d 0a 20 20 20 | *calloc|();..   |
|000001a0| 42 54 42 4c 4b 48 44 52 | 20 66 72 65 65 73 70 63 |BTBLKHDR| freespc|
|000001b0| 3b 0d 0a 20 20 20 42 54 | 5f 42 41 53 45 20 20 62 |;..   BT|_BASE  b|
|000001c0| 74 62 61 73 65 3b 0d 0a | 20 20 20 69 6e 74 20 73 |tbase;..|   int s|
|000001d0| 7a 3b 20 20 2f 2a 20 23 | 20 62 79 74 65 73 20 74 |z;  /* #| bytes t|
|000001e0| 6f 20 70 72 65 2d 65 78 | 74 65 6e 64 20 2a 2f 0d |o pre-ex|tend */.|
|000001f0| 0a 20 20 20 63 68 61 72 | 20 2a 63 70 3b 0d 0a 0d |.   char| *cp;...|
|00000200| 0a 20 20 20 69 66 20 28 | 62 74 63 70 2d 3e 62 74 |.   if (|btcp->bt|
|00000210| 76 61 72 6c 65 6e 29 0d | 0a 20 20 20 7b 0d 0a 20 |varlen).|.   {.. |
|00000220| 20 20 20 20 20 66 72 65 | 65 73 70 63 2e 65 6f 66 |     fre|espc.eof|
|00000230| 6c 73 74 20 3d 20 20 28 | 6c 6f 6e 67 29 42 41 53 |lst =  (|long)BAS|
|00000240| 45 42 4c 4b 3b 0d 0a 20 | 20 20 20 20 20 73 7a 20 |EBLK;.. |     sz |
|00000250| 3d 20 20 42 41 53 45 42 | 4c 4b 3b 0d 0a 20 20 20 |=  BASEB|LK;..   |
|00000260| 7d 0d 0a 20 20 20 65 6c | 73 65 20 20 2f 2a 20 66 |}..   el|se  /* f|
|00000270| 69 78 65 64 2d 6c 65 6e | 67 74 68 3a 20 70 72 65 |ixed-len|gth: pre|
|00000280| 2d 65 78 74 65 6e 64 20 | 65 6e 74 69 72 65 20 66 |-extend |entire f|
|00000290| 69 72 73 74 20 72 65 63 | 6f 72 64 20 2a 2f 0d 0a |irst rec|ord */..|
|000002a0| 20 20 20 7b 0d 0a 20 20 | 20 20 20 20 66 72 65 65 |   {..  |    free|
|000002b0| 73 70 63 2e 65 6f 66 6c | 73 74 20 3d 20 20 32 4c |spc.eofl|st =  2L|
|000002c0| 20 2b 20 28 42 41 53 45 | 42 4c 4b 2d 31 29 2f 62 | + (BASE|BLK-1)/b|
|000002d0| 74 63 70 2d 3e 62 74 64 | 74 61 6c 65 6e 3b 0d 0a |tcp->btd|talen;..|
|000002e0| 20 20 20 20 20 20 73 7a | 20 3d 20 20 28 66 72 65 |      sz| =  (fre|
|000002f0| 65 73 70 63 2e 65 6f 66 | 6c 73 74 2d 31 29 20 2a |espc.eof|lst-1) *|
|00000300| 20 62 74 63 70 2d 3e 62 | 74 64 74 61 6c 65 6e 3b | btcp->b|tdtalen;|
|00000310| 0d 0a 20 20 20 7d 0d 0a | 20 20 20 66 72 65 65 73 |..   }..|   frees|
|00000320| 70 63 2e 66 72 65 65 6c | 73 74 20 3d 20 30 4c 3b |pc.freel|st = 0L;|
|00000330| 0d 0a 0d 0a 20 20 20 2f | 2a 20 70 72 65 2d 65 78 |....   /|* pre-ex|
|00000340| 74 65 6e 64 20 66 69 72 | 73 74 20 72 65 63 6f 72 |tend fir|st recor|
|00000350| 64 20 2a 2f 0d 0a 20 20 | 20 69 66 20 28 28 63 70 |d */..  | if ((cp|
|00000360| 20 3d 20 63 61 6c 6c 6f | 63 28 73 7a 2c 20 53 5a | = callo|c(sz, SZ|
|00000370| 43 48 41 52 29 29 20 3d | 3d 20 4e 55 4c 4c 29 0d |CHAR)) =|= NULL).|
|00000380| 0a 20 20 20 20 20 20 63 | 6b 65 72 72 6f 72 28 20 |.      c|kerror( |
|00000390| 43 4b 5f 4e 4f 4d 45 4d | 2c 20 22 31 32 33 22 29 |CK_NOMEM|, "123")|
|000003a0| 3b 0d 0a 20 20 20 69 66 | 20 28 6c 73 65 65 6b 28 |;..   if| (lseek(|
|000003b0| 66 64 2c 20 30 4c 2c 20 | 30 29 20 3d 3d 20 45 52 |fd, 0L, |0) == ER|
|000003c0| 52 29 0d 0a 20 20 20 20 | 20 20 63 6b 65 72 72 6f |R)..    |  ckerro|
|000003d0| 72 28 2d 20 43 4b 5f 53 | 45 45 4b 2c 20 22 31 32 |r(- CK_S|EEK, "12|
|000003e0| 34 22 29 3b 0d 0a 20 20 | 20 69 66 20 28 77 72 69 |4");..  | if (wri|
|000003f0| 74 65 28 66 64 2c 20 63 | 70 2c 20 73 7a 29 20 3d |te(fd, c|p, sz) =|
|00000400| 3d 20 45 52 52 29 0d 0a | 20 20 20 20 20 20 63 6b |= ERR)..|      ck|
|00000410| 65 72 72 6f 72 28 2d 20 | 43 4b 5f 57 52 49 54 2c |error(- |CK_WRIT,|
|00000420| 20 22 31 32 35 22 29 3b | 0d 0a 20 20 20 46 52 45 | "125");|..   FRE|
|00000430| 45 28 63 70 29 3b 0d 0a | 20 20 20 70 75 74 66 68 |E(cp);..|   putfh|
|00000440| 64 72 28 66 64 2c 20 26 | 66 72 65 65 73 70 63 29 |dr(fd, &|freespc)|
|00000450| 3b 0d 0a 0d 0a 20 20 20 | 2f 2a 20 73 65 74 20 75 |;....   |/* set u|
|00000460| 70 20 72 65 73 74 20 6f | 66 20 62 61 73 65 20 62 |p rest o|f base b|
|00000470| 6c 6b 20 2a 2f 0d 0a 20 | 20 20 62 74 62 61 73 65 |lk */.. |  btbase|
|00000480| 2e 62 62 5f 63 62 76 65 | 72 20 3d 20 20 20 43 42 |.bb_cbve|r =   CB|
|00000490| 56 45 52 3b 20 20 20 2f | 2a 20 63 62 74 72 65 65 |VER;   /|* cbtree|
|000004a0| 20 76 65 72 73 69 6f 6e | 20 6e 75 6d 62 65 72 20 | version| number |
|000004b0| 2a 2f 0d 0a 20 20 20 62 | 74 62 61 73 65 2e 62 62 |*/..   b|tbase.bb|
|000004c0| 5f 6e 65 67 76 65 72 20 | 3d 20 20 2d 43 42 56 45 |_negver |=  -CBVE|
|000004d0| 52 3b 0d 0a 20 20 20 62 | 74 62 61 73 65 2e 62 62 |R;..   b|tbase.bb|
|000004e0| 5f 6e 75 6d 62 74 72 65 | 65 3d 20 30 3b 20 20 20 |_numbtre|e= 0;   |
|000004f0| 20 20 20 2f 2a 20 23 20 | 62 74 72 65 65 73 20 63 |   /* # |btrees c|
|00000500| 75 72 72 65 6e 74 6c 79 | 20 69 6e 20 74 68 69 73 |urrently| in this|
|00000510| 20 69 6e 64 65 78 20 66 | 69 6c 65 20 2a 2f 0d 0a | index f|ile */..|
|00000520| 20 20 20 62 74 62 61 73 | 65 2e 62 62 5f 73 7a 69 |   btbas|e.bb_szi|
|00000530| 6e 66 6f 20 3d 20 20 53 | 5a 5f 42 54 5f 49 4e 46 |nfo =  S|Z_BT_INF|
|00000540| 4f 3b 20 2f 2a 20 73 69 | 7a 65 6f 66 20 65 61 63 |O; /* si|zeof eac|
|00000550| 68 20 42 54 5f 49 4e 46 | 4f 20 65 6e 74 72 79 20 |h BT_INF|O entry |
|00000560| 2a 2f 0d 0a 20 20 20 62 | 74 62 61 73 65 2e 62 62 |*/..   b|tbase.bb|
|00000570| 5f 62 6c 6b 73 7a 20 20 | 3d 20 20 62 74 63 70 2d |_blksz  |=  btcp-|
|00000580| 3e 62 74 64 74 61 6c 65 | 6e 3b 20 20 20 2f 2a 20 |>btdtale|n;   /* |
|00000590| 64 61 74 61 20 72 65 63 | 6f 72 64 20 73 69 7a 65 |data rec|ord size|
|000005a0| 20 2a 2f 0d 0a 20 20 20 | 62 74 62 61 73 65 2e 62 | */..   |btbase.b|
|000005b0| 62 5f 76 61 72 6c 65 6e | 20 3d 20 20 62 74 63 70 |b_varlen| =  btcp|
|000005c0| 2d 3e 62 74 76 61 72 6c | 65 6e 3b 20 20 20 2f 2a |->btvarl|en;   /*|
|000005d0| 20 76 61 72 69 61 62 6c | 65 20 6c 65 6e 67 74 68 | variabl|e length|
|000005e0| 20 72 65 63 20 66 6c 61 | 67 20 2a 2f 0d 0a 20 20 | rec fla|g */..  |
|000005f0| 20 6d 65 6d 73 65 74 28 | 62 74 62 61 73 65 2e 62 | memset(|btbase.b|
|00000600| 62 5f 66 69 6c 6c 2c 20 | 4e 55 4c 2c 20 73 69 7a |b_fill, |NUL, siz|
|00000610| 65 6f 66 28 62 74 62 61 | 73 65 2e 62 62 5f 66 69 |eof(btba|se.bb_fi|
|00000620| 6c 6c 29 29 3b 20 20 20 | 20 2f 2a 20 63 6c 65 61 |ll));   | /* clea|
|00000630| 72 20 69 74 20 2a 2f 0d | 0a 20 20 20 69 66 20 28 |r it */.|.   if (|
|00000640| 6c 73 65 65 6b 28 66 64 | 2c 20 28 6c 6f 6e 67 29 |lseek(fd|, (long)|
|00000650| 53 5a 42 4c 4b 48 44 52 | 2c 20 30 29 20 3d 3d 20 |SZBLKHDR|, 0) == |
|00000660| 45 52 52 29 0d 0a 20 20 | 20 20 20 20 63 6b 65 72 |ERR)..  |    cker|
|00000670| 72 6f 72 28 2d 20 43 4b | 5f 53 45 45 4b 2c 20 22 |ror(- CK|_SEEK, "|
|00000680| 31 32 36 22 29 3b 0d 0a | 20 20 20 69 66 20 28 77 |126");..|   if (w|
|00000690| 72 69 74 65 28 66 64 2c | 20 28 63 68 61 72 20 2a |rite(fd,| (char *|
|000006a0| 29 26 62 74 62 61 73 65 | 2c 20 53 5a 5f 42 54 5f |)&btbase|, SZ_BT_|
|000006b0| 42 41 53 45 29 20 3d 3d | 20 45 52 52 29 0d 0a 20 |BASE) ==| ERR).. |
|000006c0| 20 20 20 20 20 63 6b 65 | 72 72 6f 72 28 2d 20 43 |     cke|rror(- C|
|000006d0| 4b 5f 57 52 49 54 2c 20 | 22 31 32 37 22 29 3b 0d |K_WRIT, |"127");.|
|000006e0| 0a 7d 0d 0a 1a          |                         |.}...   |        |
+--------+-------------------------+-------------------------+--------+--------+