/ Liren Large Software Subsidy 7 / 07.iso / c / c006 / 2.ddi / GETFPATV.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 50 52 4f |.....\CB|TREE\PRO|
|00000010| 47 52 41 4d 53 5c 47 45 | 54 46 50 41 54 56 2e 43 |GRAMS\GE|TFPATV.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 1c 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| 67 65 74 20 66 6f 72 6d | 61 74 74 65 64 20 70 61 |get form|atted pa|
|000000e0| 74 69 65 6e 74 20 72 65 | 63 6f 72 64 20 69 6e 74 |tient re|cord int|
|000000f0| 6f 20 61 72 67 73 2e 20 | 20 20 2a 2f 0d 0a 2f 2a |o args. |  */../*|
|00000100| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 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 0d 0a 20 2a |--------|----.. *|
|00000150| 20 67 65 74 66 70 61 74 | 76 28 29 69 73 20 75 73 | getfpat|v()is us|
|00000160| 65 64 20 62 79 20 74 68 | 65 20 64 65 6d 6f 20 70 |ed by th|e demo p|
|00000170| 72 6f 67 72 61 6d 73 20 | 74 6f 20 72 65 61 64 20 |rograms |to read |
|00000180| 76 61 72 69 61 62 6c 65 | 20 6c 65 6e 67 74 68 20 |variable| length |
|00000190| 72 65 63 6f 72 64 73 0d | 0a 20 2a 20 66 72 6f 6d |records.|. * from|
|000001a0| 20 74 68 65 20 70 61 74 | 69 65 6e 74 2e 76 61 72 | the pat|ient.var|
|000001b0| 20 66 69 6c 65 2e 0d 0a | 20 2a 2d 2d 2d 2d 2d 2d | file...| *------|
|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 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 2a 2f 0d | 0a 0d 0a 23 69 6e 63 6c |-----*/.|...#incl|
|00000210| 75 64 65 20 3c 73 74 64 | 69 6f 2e 68 3e 0d 0a 23 |ude <std|io.h>..#|
|00000220| 69 6e 63 6c 75 64 65 20 | 22 63 62 74 72 65 65 2e |include |"cbtree.|
|00000230| 68 22 0d 0a 23 69 6e 63 | 6c 75 64 65 20 22 70 61 |h"..#inc|lude "pa|
|00000240| 74 72 65 63 2e 73 74 72 | 22 0d 0a 0d 0a 76 6f 69 |trec.str|"....voi|
|00000250| 64 20 67 65 74 66 70 61 | 74 76 28 70 72 2c 20 66 |d getfpa|tv(pr, f|
|00000260| 64 2c 20 62 74 63 70 29 | 0d 0a 50 41 54 52 45 43 |d, btcp)|..PATREC|
|00000270| 20 2a 70 72 3b 20 20 20 | 2f 2a 20 70 61 74 69 65 | *pr;   |/* patie|
|00000280| 6e 74 20 72 65 63 6f 72 | 64 20 70 6f 69 6e 74 65 |nt recor|d pointe|
|00000290| 72 20 2a 2f 0d 0a 69 6e | 74 20 20 20 66 64 3b 0d |r */..in|t   fd;.|
|000002a0| 0a 42 54 43 20 2a 62 74 | 63 70 3b 0d 0a 7b 0d 0a |.BTC *bt|cp;..{..|
|000002b0| 20 20 20 65 78 74 65 72 | 6e 20 6c 6f 6e 67 20 20 |   exter|n long  |
|000002c0| 6c 73 65 65 6b 28 29 3b | 0d 0a 20 20 20 65 78 74 |lseek();|..   ext|
|000002d0| 65 72 6e 20 75 77 6f 72 | 64 20 62 74 73 69 7a 76 |ern uwor|d btsizv|
|000002e0| 61 72 28 29 3b 0d 0a 20 | 20 20 75 77 6f 72 64 20 |ar();.. |  uword |
|000002f0| 73 7a 72 65 63 3b 0d 0a | 20 20 20 63 68 61 72 20 |szrec;..|   char |
|00000300| 2a 63 70 32 3b 0d 0a 20 | 20 20 63 68 61 72 20 62 |*cp2;.. |  char b|
|00000310| 75 66 66 65 72 5b 53 5a | 5f 50 41 54 52 45 43 5d |uffer[SZ|_PATREC]|
|00000320| 3b 0d 0a 20 20 20 72 65 | 67 69 73 74 65 72 20 63 |;..   re|gister c|
|00000330| 68 61 72 20 2a 63 70 31 | 3b 0d 0a 0d 0a 20 20 20 |har *cp1|;....   |
|00000340| 69 66 20 28 28 73 7a 72 | 65 63 20 3d 20 62 74 73 |if ((szr|ec = bts|
|00000350| 69 7a 76 61 72 28 66 64 | 2c 20 62 74 63 70 2d 3e |izvar(fd|, btcp->|
|00000360| 62 74 6c 6f 63 29 29 20 | 3d 3d 20 45 52 52 29 0d |btloc)) |== ERR).|
|00000370| 0a 20 20 20 20 20 20 63 | 6b 65 72 72 6f 72 28 20 |.      c|kerror( |
|00000380| 43 4b 5f 49 4e 44 58 2c | 20 22 47 45 54 46 50 41 |CK_INDX,| "GETFPA|
|00000390| 54 56 2e 43 3a 20 69 6c | 6c 65 67 61 6c 20 72 65 |TV.C: il|legal re|
|000003a0| 63 6f 72 64 20 6f 66 66 | 73 65 74 22 29 3b 0d 0a |cord off|set");..|
|000003b0| 20 20 20 69 66 20 28 62 | 74 73 65 65 6b 76 28 66 |   if (b|tseekv(f|
|000003c0| 64 2c 20 62 74 63 70 2d | 3e 62 74 6c 6f 63 2c 20 |d, btcp-|>btloc, |
|000003d0| 73 7a 72 65 63 29 20 3d | 3d 20 2d 31 4c 29 20 20 |szrec) =|= -1L)  |
|000003e0| 2f 2a 20 76 61 72 69 61 | 62 6c 65 20 6c 65 6e 67 |/* varia|ble leng|
|000003f0| 74 68 20 73 65 65 6b 20 | 2a 2f 0d 0a 20 20 20 20 |th seek |*/..    |
|00000400| 20 20 63 6b 65 72 72 6f | 72 28 2d 20 43 4b 5f 53 |  ckerro|r(- CK_S|
|00000410| 45 45 4b 2c 20 22 47 45 | 54 46 50 41 54 56 2e 43 |EEK, "GE|TFPATV.C|
|00000420| 3a 20 62 74 73 65 65 6b | 76 22 29 3b 0d 0a 20 20 |: btseek|v");..  |
|00000430| 20 69 66 20 28 72 65 61 | 64 28 66 64 2c 20 62 75 | if (rea|d(fd, bu|
|00000440| 66 66 65 72 2c 20 73 7a | 72 65 63 29 20 3d 3d 20 |ffer, sz|rec) == |
|00000450| 45 52 52 29 0d 0a 20 20 | 20 20 20 20 63 6b 65 72 |ERR)..  |    cker|
|00000460| 72 6f 72 28 2d 20 43 4b | 5f 52 45 41 44 2c 20 22 |ror(- CK|_READ, "|
|00000470| 47 45 54 46 50 41 54 56 | 2e 43 3a 20 66 64 2c 20 |GETFPATV|.C: fd, |
|00000480| 62 75 66 66 65 72 2c 20 | 73 7a 72 65 63 22 29 3b |buffer, |szrec");|
|00000490| 0d 0a 0d 0a 20 20 20 2f | 2a 20 6e 6f 77 20 74 72 |....   /|* now tr|
|000004a0| 61 6e 73 66 65 72 20 76 | 61 72 69 61 62 6c 65 20 |ansfer v|ariable |
|000004b0| 6c 65 6e 67 74 68 20 72 | 65 63 6f 72 64 20 74 6f |length r|ecord to|
|000004c0| 20 66 69 78 65 64 2d 6c | 65 6e 67 74 68 20 50 41 | fixed-l|ength PA|
|000004d0| 54 52 45 43 20 2a 2f 0d | 0a 20 20 20 6d 65 6d 73 |TREC */.|.   mems|
|000004e0| 65 74 28 70 72 2c 20 4e | 55 4c 2c 20 53 5a 5f 50 |et(pr, N|UL, SZ_P|
|000004f0| 41 54 52 45 43 29 3b 20 | 20 20 20 20 2f 2a 20 63 |ATREC); |    /* c|
|00000500| 6c 65 61 72 20 69 74 20 | 6f 75 74 20 66 69 72 73 |lear it |out firs|
|00000510| 74 20 2a 2f 0d 0a 20 20 | 20 63 70 31 20 3d 20 62 |t */..  | cp1 = b|
|00000520| 75 66 66 65 72 3b 0d 0a | 20 20 20 63 70 32 20 3d |uffer;..|   cp2 =|
|00000530| 20 70 72 2d 3e 6c 6e 61 | 6d 65 3b 0d 0a 20 20 20 | pr->lna|me;..   |
|00000540| 77 68 69 6c 65 20 28 2a | 63 70 31 20 21 3d 20 27 |while (*|cp1 != '|
|00000550| 2c 27 29 20 20 2f 2a 20 | 6c 61 73 74 20 6e 61 6d |,')  /* |last nam|
|00000560| 65 20 2a 2f 0d 0a 20 20 | 20 20 20 20 2a 63 70 32 |e */..  |    *cp2|
|00000570| 2b 2b 20 3d 20 2a 63 70 | 31 2b 2b 3b 0d 0a 0d 0a |++ = *cp|1++;....|
|00000580| 20 20 20 63 70 31 20 2b | 3d 20 32 3b 20 20 20 20 |   cp1 +|= 2;    |
|00000590| 20 20 2f 2a 20 73 6b 69 | 70 20 6f 76 65 72 20 73 |  /* ski|p over s|
|000005a0| 70 61 63 65 20 2a 2f 0d | 0a 20 20 20 63 70 32 20 |pace */.|.   cp2 |
|000005b0| 3d 20 70 72 2d 3e 66 6e | 61 6d 65 3b 0d 0a 20 20 |= pr->fn|ame;..  |
|000005c0| 20 77 68 69 6c 65 20 28 | 2a 63 70 31 20 21 3d 20 | while (|*cp1 != |
|000005d0| 27 20 27 29 20 20 20 20 | 20 2f 2a 20 66 69 72 73 |' ')    | /* firs|
|000005e0| 74 20 6e 61 6d 65 20 2a | 2f 0d 0a 20 20 20 20 20 |t name *|/..     |
|000005f0| 20 2a 63 70 32 2b 2b 20 | 3d 20 2a 63 70 31 2b 2b | *cp2++ |= *cp1++|
|00000600| 3b 0d 0a 0d 0a 20 20 20 | 2b 2b 63 70 31 3b 0d 0a |;....   |++cp1;..|
|00000610| 20 20 20 63 70 32 20 3d | 20 70 72 2d 3e 6d 69 6e |   cp2 =| pr->min|
|00000620| 69 74 3b 0d 0a 20 20 20 | 77 68 69 6c 65 20 28 2a |it;..   |while (*|
|00000630| 63 70 31 20 21 3d 20 27 | 5c 6e 27 29 20 20 20 20 |cp1 != '|\n')    |
|00000640| 2f 2a 20 6d 69 64 64 6c | 65 20 69 6e 69 74 69 61 |/* middl|e initia|
|00000650| 6c 20 2a 2f 0d 0a 20 20 | 20 20 20 20 2a 63 70 32 |l */..  |    *cp2|
|00000660| 2b 2b 20 3d 20 2a 63 70 | 31 2b 2b 3b 0d 0a 0d 0a |++ = *cp|1++;....|
|00000670| 20 20 20 2b 2b 63 70 31 | 3b 0d 0a 20 20 20 63 70 |   ++cp1|;..   cp|
|00000680| 32 20 3d 20 70 72 2d 3e | 61 64 64 72 3b 0d 0a 20 |2 = pr->|addr;.. |
|00000690| 20 20 77 68 69 6c 65 20 | 28 2a 63 70 31 20 21 3d |  while |(*cp1 !=|
|000006a0| 20 27 5c 6e 27 29 20 20 | 20 20 2f 2a 20 73 74 72 | '\n')  |  /* str|
|000006b0| 65 65 74 20 61 64 64 72 | 65 73 73 20 2a 2f 0d 0a |eet addr|ess */..|
|000006c0| 20 20 20 20 20 20 2a 63 | 70 32 2b 2b 20 3d 20 2a |      *c|p2++ = *|
|000006d0| 63 70 31 2b 2b 3b 0d 0a | 0d 0a 20 20 20 2b 2b 63 |cp1++;..|..   ++c|
|000006e0| 70 31 3b 0d 0a 20 20 20 | 63 70 32 20 3d 20 70 72 |p1;..   |cp2 = pr|
|000006f0| 2d 3e 68 70 68 6f 6e 65 | 3b 0d 0a 20 20 20 77 68 |->hphone|;..   wh|
|00000700| 69 6c 65 20 28 2a 63 70 | 31 20 21 3d 20 27 5c 6e |ile (*cp|1 != '\n|
|00000710| 27 29 20 20 20 20 2f 2a | 20 68 6f 6d 65 20 70 68 |')    /*| home ph|
|00000720| 6f 6e 65 20 2a 2f 0d 0a | 20 20 20 20 20 20 2a 63 |one */..|      *c|
|00000730| 70 32 2b 2b 20 3d 20 2a | 63 70 31 2b 2b 3b 0d 0a |p2++ = *|cp1++;..|
|00000740| 0d 0a 20 20 20 2b 2b 63 | 70 31 3b 0d 0a 20 20 20 |..   ++c|p1;..   |
|00000750| 63 70 32 20 3d 20 70 72 | 2d 3e 73 73 6e 3b 0d 0a |cp2 = pr|->ssn;..|
|00000760| 20 20 20 77 68 69 6c 65 | 20 28 2a 63 70 31 20 21 |   while| (*cp1 !|
|00000770| 3d 20 27 5c 6e 27 29 20 | 20 20 20 2f 2a 20 73 6f |= '\n') |   /* so|
|00000780| 63 69 61 6c 20 73 65 63 | 75 72 69 74 79 20 6e 75 |cial sec|urity nu|
|00000790| 6d 62 65 72 20 2a 2f 0d | 0a 20 20 20 20 20 20 2a |mber */.|.      *|
|000007a0| 63 70 32 2b 2b 20 3d 20 | 2a 63 70 31 2b 2b 3b 0d |cp2++ = |*cp1++;.|
|000007b0| 0a 0d 0a 7d 0d 0a       |                         |...}..  |        |
+--------+-------------------------+-------------------------+--------+--------+