/ Liren Large Software Subsidy 7 / 07.iso / c / c006 / 1.ddi / BTOPEN.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 4f | 50 45 4e 2e 43 00 00 00 |RARY\BTO|PEN.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 19 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| 09 41 6c 6c 20 52 69 67 | 68 74 73 20 52 65 73 65 |.All Rig|hts Rese|
|000000c0| 72 76 65 64 09 20 2a 2f | 0d 0a 2f 2a 2a 2a 2a 2a |rved. */|../*****|
|000000d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000100| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000110| 2a 2a 2a 2a 2a 2a 2a 0d | 0a 20 2a 0d 0a 20 2a 20 |*******.|. *.. * |
|00000120| 20 20 62 74 6f 70 65 6e | 2e 63 09 20 2d 2d 20 20 |  btopen|.c. --  |
|00000130| 43 42 54 52 45 45 20 70 | 6f 72 74 61 62 6c 65 20 |CBTREE p|ortable |
|00000140| 62 69 6e 61 72 79 20 66 | 69 6c 65 20 6f 70 65 6e |binary f|ile open|
|00000150| 20 66 75 6e 63 74 69 6f | 6e 0d 0a 20 2a 0d 0a 20 | functio|n.. *.. |
|00000160| 2a 2f 0d 0a 0d 0a 23 69 | 6e 63 6c 75 64 65 20 22 |*/....#i|nclude "|
|00000170| 63 62 74 72 64 65 66 2e | 68 22 0d 0a 23 69 6e 63 |cbtrdef.|h"..#inc|
|00000180| 6c 75 64 65 20 22 62 74 | 66 69 6f 2e 68 22 0d 0a |lude "bt|fio.h"..|
|00000190| 0d 0a 23 69 66 6e 64 65 | 66 20 45 52 52 0d 0a 23 |..#ifnde|f ERR..#|
|000001a0| 64 65 66 69 6e 65 20 45 | 52 52 20 2d 31 0d 0a 23 |define E|RR -1..#|
|000001b0| 65 6e 64 69 66 0d 0a 0d | 0a 69 6e 74 20 62 74 5f |endif...|.int bt_|
|000001c0| 6f 70 65 6e 28 6e 61 6d | 65 2c 20 6d 6f 64 65 2c |open(nam|e, mode,|
|000001d0| 20 70 72 6f 74 29 20 20 | 20 2f 2a 20 6f 70 65 6e | prot)  | /* open|
|000001e0| 2f 63 72 65 61 74 65 20 | 61 20 66 69 6c 65 20 69 |/create |a file i|
|000001f0| 6e 20 62 69 6e 61 72 79 | 20 6d 6f 64 65 20 2a 2f |n binary| mode */|
|00000200| 0d 0a 63 68 61 72 20 2a | 6e 61 6d 65 3b 20 20 20 |..char *|name;   |
|00000210| 2f 2a 20 66 69 6c 65 20 | 6e 61 6d 65 20 2a 2f 0d |/* file |name */.|
|00000220| 0a 69 6e 74 09 6d 6f 64 | 65 3b 20 20 20 2f 2a 20 |.int.mod|e;   /* |
|00000230| 49 4d 50 4f 52 54 41 4e | 54 3a 20 73 65 65 20 62 |IMPORTAN|T: see b|
|00000240| 74 66 69 6f 2e 68 20 2a | 2f 0d 0a 69 6e 74 09 70 |tfio.h *|/..int.p|
|00000250| 72 6f 74 3b 20 20 20 2f | 2a 20 69 66 20 4f 5f 4e |rot;   /|* if O_N|
|00000260| 45 57 20 69 73 20 73 70 | 65 63 69 66 69 65 64 2c |EW is sp|ecified,|
|00000270| 20 70 72 6f 74 65 63 74 | 69 6f 6e 20 2a 4d 55 53 | protect|ion *MUS|
|00000280| 54 2a 20 62 65 20 73 70 | 65 63 69 66 69 65 64 20 |T* be sp|ecified |
|00000290| 2a 2f 0d 0a 7b 0d 0a 0d | 0a 23 69 66 20 4d 57 20 |*/..{...|.#if MW |
|000002a0| 7c 20 44 43 20 7c 20 43 | 49 20 7c 20 45 43 0d 0a || DC | C|I | EC..|
|000002b0| 0d 0a 09 69 66 20 28 6d | 6f 64 65 20 26 20 4f 5f |...if (m|ode & O_|
|000002c0| 4e 45 57 29 20 20 20 2f | 2a 20 69 66 20 73 65 6c |NEW)   /|* if sel|
|000002d0| 65 63 74 65 64 20 4f 5f | 4e 45 57 20 2a 2f 0d 0a |ected O_|NEW */..|
|000002e0| 09 7b 0d 0a 23 69 66 20 | 43 49 0d 0a 09 09 72 65 |.{..#if |CI....re|
|000002f0| 74 75 72 6e 20 28 63 72 | 65 61 74 28 6e 61 6d 65 |turn (cr|eat(name|
|00000300| 2c 20 4f 5f 52 41 57 20 | 7c 20 6d 6f 64 65 20 26 |, O_RAW || mode &|
|00000310| 20 7e 4f 5f 4e 45 57 29 | 29 3b 0d 0a 23 65 6c 73 | ~O_NEW)|);..#els|
|00000320| 65 0d 0a 23 69 66 20 45 | 43 0d 0a 09 09 72 65 74 |e..#if E|C....ret|
|00000330| 75 72 6e 20 28 63 72 65 | 61 74 28 6e 61 6d 65 2c |urn (cre|at(name,|
|00000340| 20 70 72 6f 74 29 29 3b | 20 20 20 2f 2a 20 4d 53 | prot));|   /* MS|
|00000350| 44 4f 53 20 61 74 74 72 | 69 62 75 74 65 20 2a 2f |DOS attr|ibute */|
|00000360| 0d 0a 23 65 6c 73 65 0d | 0a 09 09 72 65 74 75 72 |..#else.|...retur|
|00000370| 6e 20 28 63 72 65 61 74 | 28 6e 61 6d 65 29 29 3b |n (creat|(name));|
|00000380| 20 20 20 2f 2a 20 64 65 | 66 61 75 6c 74 20 2a 2f |   /* de|fault */|
|00000390| 0d 0a 23 65 6e 64 69 66 | 09 2f 2a 20 21 45 43 20 |..#endif|./* !EC |
|000003a0| 2a 2f 0d 0a 23 65 6e 64 | 69 66 09 2f 2a 20 21 43 |*/..#end|if./* !C|
|000003b0| 49 20 2a 2f 0d 0a 09 7d | 0d 0a 0d 0a 09 65 6c 73 |I */...}|.....els|
|000003c0| 65 20 69 66 20 28 6d 6f | 64 65 20 26 20 4f 5f 43 |e if (mo|de & O_C|
|000003d0| 52 45 41 54 29 20 20 20 | 2f 2a 20 63 72 65 61 74 |REAT)   |/* creat|
|000003e0| 65 20 66 69 6c 65 20 69 | 66 20 69 74 20 44 4f 45 |e file i|f it DOE|
|000003f0| 53 4e 27 54 20 65 78 69 | 73 74 20 2a 2f 0d 0a 09 |SN'T exi|st */...|
|00000400| 7b 0d 0a 09 09 69 6e 74 | 20 66 64 3b 0d 0a 0d 0a |{....int| fd;....|
|00000410| 09 09 2f 2a 20 69 66 20 | 66 69 6c 65 20 45 58 49 |../* if |file EXI|
|00000420| 53 54 53 20 2a 2f 0d 0a | 09 09 69 66 20 28 28 66 |STS */..|..if ((f|
|00000430| 64 20 3d 20 62 74 5f 6f | 70 65 6e 28 6e 61 6d 65 |d = bt_o|pen(name|
|00000440| 2c 20 6d 6f 64 65 20 26 | 20 7e 4f 5f 43 52 45 41 |, mode &| ~O_CREA|
|00000450| 54 29 29 20 21 3d 20 45 | 52 52 29 0d 0a 09 09 09 |T)) != E|RR).....|
|00000460| 72 65 74 75 72 6e 20 28 | 66 64 29 3b 09 2f 2a 20 |return (|fd);./* |
|00000470| 72 65 74 75 72 6e 20 66 | 69 6c 65 20 64 65 73 63 |return f|ile desc|
|00000480| 72 69 70 74 6f 72 20 2a | 2f 0d 0a 09 09 0d 0a 23 |riptor *|/......#|
|00000490| 69 66 20 43 49 0d 0a 09 | 09 72 65 74 75 72 6e 20 |if CI...|.return |
|000004a0| 28 63 72 65 61 74 28 6e | 61 6d 65 2c 20 4f 5f 52 |(creat(n|ame, O_R|
|000004b0| 41 57 20 7c 20 6d 6f 64 | 65 20 26 20 7e 4f 5f 4e |AW | mod|e & ~O_N|
|000004c0| 45 57 29 29 3b 0d 0a 23 | 65 6c 73 65 0d 0a 23 69 |EW));..#|else..#i|
|000004d0| 66 20 45 43 0d 0a 09 09 | 72 65 74 75 72 6e 20 28 |f EC....|return (|
|000004e0| 63 72 65 61 74 28 6e 61 | 6d 65 2c 20 70 72 6f 74 |creat(na|me, prot|
|000004f0| 29 29 3b 20 20 20 2f 2a | 20 4d 53 44 4f 53 20 61 |));   /*| MSDOS a|
|00000500| 74 74 72 69 62 75 74 65 | 20 2a 2f 0d 0a 23 65 6c |ttribute| */..#el|
|00000510| 73 65 0d 0a 09 09 72 65 | 74 75 72 6e 20 28 63 72 |se....re|turn (cr|
|00000520| 65 61 74 28 6e 61 6d 65 | 29 29 3b 20 20 20 2f 2a |eat(name|));   /*|
|00000530| 20 64 65 66 61 75 6c 74 | 20 2a 2f 0d 0a 23 65 6e | default| */..#en|
|00000540| 64 69 66 09 2f 2a 20 21 | 45 43 20 2a 2f 0d 0a 23 |dif./* !|EC */..#|
|00000550| 65 6e 64 69 66 09 2f 2a | 20 21 43 49 20 2a 2f 0d |endif./*| !CI */.|
|00000560| 0a 09 7d 0d 0a 0d 0a 23 | 65 6e 64 69 66 09 2f 2a |..}....#|endif./*|
|00000570| 20 4d 57 20 7c 20 44 43 | 20 7c 20 43 49 20 7c 20 | MW | DC| | CI | |
|00000580| 45 43 20 2a 2f 0d 0a 0d | 0a 09 72 65 74 75 72 6e |EC */...|..return|
|00000590| 20 28 6f 70 65 6e 28 6e | 61 6d 65 2c 20 4f 5f 52 | (open(n|ame, O_R|
|000005a0| 41 57 20 7c 20 6d 6f 64 | 65 2c 20 70 72 6f 74 29 |AW | mod|e, prot)|
|000005b0| 29 3b 0d 0a 7d 0d 0a    |                         |);..}.. |        |
+--------+-------------------------+-------------------------+--------+--------+