/ Liren Large Software Subsidy 7 / 07.iso / c / c006 / 1.ddi / PUTFHDR.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 | 46 48 44 52 2e 43 00 00 |RARY\PUT|FHDR.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 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 2a 2f 0d 0a 2f 2a 20 |served  | */../* |
|000000d0| 54 48 49 53 20 50 52 4f | 47 52 41 4d 20 42 45 4c |THIS PRO|GRAM BEL|
|000000e0| 4f 4e 47 53 20 54 4f 20 | 57 41 4c 54 45 52 20 4c |ONGS TO |WALTER L|
|000000f0| 2e 20 50 45 41 43 4f 43 | 4b 2e 20 20 49 54 20 49 |. PEACOC|K.  IT I|
|00000100| 53 20 43 4f 4e 53 49 44 | 45 52 45 44 20 41 20 54 |S CONSID|ERED A T|
|00000110| 52 41 44 45 20 2a 2f 0d | 0a 2f 2a 20 53 45 43 52 |RADE */.|./* SECR|
|00000120| 45 54 20 41 4e 44 20 49 | 53 20 4e 4f 54 20 54 4f |ET AND I|S NOT TO|
|00000130| 20 42 45 20 44 49 56 55 | 4c 47 45 44 20 4f 52 20 | BE DIVU|LGED OR |
|00000140| 55 53 45 44 20 42 59 20 | 50 41 52 54 49 45 53 20 |USED BY |PARTIES |
|00000150| 57 48 4f 20 48 41 56 45 | 20 4e 4f 54 20 20 20 2a |WHO HAVE| NOT   *|
|00000160| 2f 0d 0a 2f 2a 20 52 45 | 43 45 49 56 45 44 20 57 |/../* RE|CEIVED W|
|00000170| 52 49 54 54 45 4e 20 41 | 55 54 48 4f 52 49 5a 41 |RITTEN A|UTHORIZA|
|00000180| 54 49 4f 4e 20 46 52 4f | 4d 20 54 48 45 20 4f 57 |TION FRO|M THE OW|
|00000190| 4e 45 52 2e 20 20 20 20 | 20 20 20 20 20 20 20 20 |NER.    |        |
|000001a0| 20 20 20 20 20 20 2a 2f | 0d 0a 2f 2a 20 50 20 55 |      */|../* P U|
|000001b0| 20 54 20 46 20 48 20 44 | 20 52 20 2e 20 43 20 20 | T F H D| R . C  |
|000001c0| 20 20 20 20 20 20 20 20 | 20 20 2a 2f 0d 0a 2f 2a |        |  */../*|
|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 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000200| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000210| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 0a 20 2a |--------|----.. *|
|00000220| 20 70 75 74 66 68 64 72 | 28 29 20 77 72 69 74 65 | putfhdr|() write|
|00000230| 73 20 74 68 65 20 68 65 | 61 64 65 72 20 72 65 63 |s the he|ader rec|
|00000240| 6f 72 64 20 74 6f 20 64 | 69 73 6b 20 66 6f 72 20 |ord to d|isk for |
|00000250| 79 6f 75 72 20 64 61 74 | 61 20 66 69 6c 65 2e 0d |your dat|a file..|
|00000260| 0a 20 2a 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 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2a 2f |--------|------*/|
|000002b0| 0d 0a 0d 0a 23 69 6e 63 | 6c 75 64 65 20 22 63 62 |....#inc|lude "cb|
|000002c0| 74 72 65 65 2e 68 22 0d | 0a 0d 0a 76 6f 69 64 20 |tree.h".|...void |
|000002d0| 70 75 74 66 68 64 72 28 | 66 64 2c 20 66 72 65 65 |putfhdr(|fd, free|
|000002e0| 73 70 63 29 0d 0a 69 6e | 74 20 66 64 3b 0d 0a 73 |spc)..in|t fd;..s|
|000002f0| 74 72 75 63 74 20 62 74 | 62 6c 6b 68 64 72 20 2a |truct bt|blkhdr *|
|00000300| 66 72 65 65 73 70 63 3b | 0d 0a 7b 0d 0a 20 20 20 |freespc;|..{..   |
|00000310| 65 78 74 65 72 6e 20 6c | 6f 6e 67 20 6c 73 65 65 |extern l|ong lsee|
|00000320| 6b 28 29 3b 0d 0a 0d 0a | 20 20 20 69 66 20 28 6c |k();....|   if (l|
|00000330| 73 65 65 6b 28 66 64 2c | 20 30 4c 2c 20 30 29 20 |seek(fd,| 0L, 0) |
|00000340| 3d 3d 20 2d 31 4c 29 20 | 20 20 20 20 20 20 20 20 |== -1L) |        |
|00000350| 20 20 20 2f 2a 20 6c 6f | 63 61 74 65 20 6d 61 69 |   /* lo|cate mai|
|00000360| 6e 74 2e 20 69 6e 66 6f | 2e 20 20 20 20 2a 2f 0d |nt. info|.    */.|
|00000370| 0a 20 20 20 20 20 20 63 | 6b 65 72 72 6f 72 28 2d |.      c|kerror(-|
|00000380| 20 43 4b 5f 53 45 45 4b | 2c 20 22 37 30 22 29 3b | CK_SEEK|, "70");|
|00000390| 0d 0a 20 20 20 69 66 20 | 28 77 72 69 74 65 28 66 |..   if |(write(f|
|000003a0| 64 2c 20 28 63 68 61 72 | 20 2a 29 66 72 65 65 73 |d, (char| *)frees|
|000003b0| 70 63 2c 20 73 69 7a 65 | 6f 66 28 2a 66 72 65 65 |pc, size|of(*free|
|000003c0| 73 70 63 29 29 20 3d 3d | 20 45 52 52 29 0d 0a 20 |spc)) ==| ERR).. |
|000003d0| 20 20 20 20 20 63 6b 65 | 72 72 6f 72 28 2d 20 43 |     cke|rror(- C|
|000003e0| 4b 5f 57 52 49 54 2c 20 | 22 37 31 22 29 3b 0d 0a |K_WRIT, |"71");..|
|000003f0| 7d 0d 0a 0d 0a          |                         |}....   |        |
+--------+-------------------------+-------------------------+--------+--------+