/ Liren Large Software Subsidy 7 / 07.iso / c / c006 / 2.ddi / PUTFPATV.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 50 55 | 54 46 50 41 54 56 2e 43 |GRAMS\PU|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| 0d 0a 2f 2a 20 28 43 29 | 20 43 6f 70 79 72 69 67 |../* (C)| Copyrig|
|00000090| 68 74 20 31 39 38 34 2c | 38 35 2c 38 36 2c 38 37 |ht 1984,|85,86,87|
|000000a0| 20 57 61 6c 74 65 72 20 | 4c 2e 20 50 65 61 63 6f | Walter |L. Peaco|
|000000b0| 63 6b 20 20 20 41 6c 6c | 20 52 69 67 68 74 73 20 |ck   All| Rights |
|000000c0| 52 65 73 65 72 76 65 64 | 20 20 20 2a 2f 0d 0a 2f |Reserved|   */../|
|000000d0| 2a 20 20 20 50 20 55 20 | 54 20 46 20 50 20 41 20 |*   P U |T F P A |
|000000e0| 54 20 56 20 2e 20 43 20 | 20 31 30 2f 32 33 2f 38 |T V . C | 10/23/8|
|000000f0| 34 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |4       |        |
|00000100| 20 20 20 20 20 20 2a 2f | 0d 0a 2f 2a 20 20 20 20 |      */|../*    |
|00000110| 70 75 74 20 66 6f 72 6d | 61 74 74 65 64 20 70 61 |put form|atted pa|
|00000120| 74 69 65 6e 74 20 61 72 | 67 73 20 69 6e 74 6f 20 |tient ar|gs into |
|00000130| 72 65 63 6f 72 64 2e 20 | 20 20 20 20 20 20 20 20 |record. |        |
|00000140| 2a 2f 0d 0a 2f 2a 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |*/../*--|--------|
|00000150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000160| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000180| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000190| 2d 2d 0d 0a 20 2a 20 70 | 75 74 66 70 61 74 76 28 |--.. * p|utfpatv(|
|000001a0| 29 20 69 73 20 75 73 65 | 64 20 62 79 20 74 68 65 |) is use|d by the|
|000001b0| 20 64 65 6d 6f 20 70 72 | 6f 67 72 61 6d 73 20 74 | demo pr|ograms t|
|000001c0| 6f 20 77 72 69 74 65 20 | 76 61 72 69 61 62 6c 65 |o write |variable|
|000001d0| 20 6c 65 6e 67 74 68 0d | 0a 20 2a 20 70 61 74 69 | length.|. * pati|
|000001e0| 65 6e 74 20 72 65 63 6f | 72 64 73 20 74 6f 20 74 |ent reco|rds to t|
|000001f0| 68 65 20 70 61 74 69 65 | 6e 74 20 66 69 6c 65 0d |he patie|nt file.|
|00000200| 0a 20 2a 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 2d 2d 2d 2d |--------|--------|
|00000220| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000230| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000240| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2a 2f |--------|------*/|
|00000250| 0d 0a 0d 0a 23 69 6e 63 | 6c 75 64 65 20 22 63 62 |....#inc|lude "cb|
|00000260| 74 72 65 65 2e 68 22 0d | 0a 23 69 6e 63 6c 75 64 |tree.h".|.#includ|
|00000270| 65 20 22 70 61 74 72 65 | 63 2e 73 74 72 22 20 20 |e "patre|c.str"  |
|00000280| 20 20 20 20 2f 2a 20 70 | 61 74 69 65 6e 74 20 72 |    /* p|atient r|
|00000290| 65 63 6f 72 64 20 73 74 | 72 75 63 74 75 72 65 20 |ecord st|ructure |
|000002a0| 2a 2f 0d 0a 0d 0a 76 6f | 69 64 20 70 75 74 66 70 |*/....vo|id putfp|
|000002b0| 61 74 76 28 66 64 2c 20 | 62 74 63 70 2c 20 76 61 |atv(fd, |btcp, va|
|000002c0| 72 6c 65 6e 70 72 29 0d | 0a 69 6e 74 20 20 20 20 |rlenpr).|.int    |
|000002d0| 66 64 3b 0d 0a 42 54 43 | 20 20 20 2a 62 74 63 70 |fd;..BTC|   *btcp|
|000002e0| 3b 20 20 20 20 20 20 2f | 2a 20 72 65 6c 61 74 69 |;      /|* relati|
|000002f0| 76 65 20 72 65 63 6f 72 | 64 20 6e 75 6d 62 65 72 |ve recor|d number|
|00000300| 20 20 20 2a 2f 0d 0a 63 | 68 61 72 20 20 2a 76 61 |   */..c|har  *va|
|00000310| 72 6c 65 6e 70 72 3b 20 | 20 20 20 20 20 20 20 20 |rlenpr; |        |
|00000320| 2f 2a 20 70 6f 69 6e 74 | 65 72 20 74 6f 20 70 61 |/* point|er to pa|
|00000330| 74 69 65 6e 74 20 72 65 | 63 6f 72 64 20 73 74 72 |tient re|cord str|
|00000340| 75 63 74 75 72 65 20 2a | 2f 0d 0a 7b 0d 0a 20 20 |ucture *|/..{..  |
|00000350| 20 65 78 74 65 72 6e 20 | 6c 6f 6e 67 20 6c 73 65 | extern |long lse|
|00000360| 65 6b 28 29 3b 0d 0a 0d | 0a 20 20 20 69 66 20 28 |ek();...|.   if (|
|00000370| 62 74 73 65 65 6b 76 28 | 66 64 2c 20 62 74 63 70 |btseekv(|fd, btcp|
|00000380| 2d 3e 62 74 6c 6f 63 2c | 20 62 74 63 70 2d 3e 62 |->btloc,| btcp->b|
|00000390| 74 64 74 61 6c 65 6e 29 | 20 3d 3d 20 2d 31 4c 29 |tdtalen)| == -1L)|
|000003a0| 0d 0a 20 20 20 20 20 20 | 63 6b 65 72 72 6f 72 28 |..      |ckerror(|
|000003b0| 2d 20 43 4b 5f 53 45 45 | 4b 2c 20 22 50 55 54 46 |- CK_SEE|K, "PUTF|
|000003c0| 50 41 54 56 2e 43 22 29 | 3b 0d 0a 20 20 20 69 66 |PATV.C")|;..   if|
|000003d0| 20 28 77 72 69 74 65 28 | 66 64 2c 20 76 61 72 6c | (write(|fd, varl|
|000003e0| 65 6e 70 72 2c 20 62 74 | 63 70 2d 3e 62 74 64 74 |enpr, bt|cp->btdt|
|000003f0| 61 6c 65 6e 29 20 3d 3d | 20 45 52 52 29 0d 0a 20 |alen) ==| ERR).. |
|00000400| 20 20 20 20 20 63 6b 65 | 72 72 6f 72 28 2d 20 43 |     cke|rror(- C|
|00000410| 4b 5f 57 52 49 54 2c 20 | 22 50 55 54 46 50 41 54 |K_WRIT, |"PUTFPAT|
|00000420| 2e 43 22 29 3b 0d 0a 7d | 0d 0a 0d 0a 75 77 6f 72 |.C");..}|....uwor|
|00000430| 64 20 70 61 74 76 61 72 | 28 62 75 66 66 65 72 2c |d patvar|(buffer,|
|00000440| 20 70 72 29 20 20 20 2f | 2a 20 72 61 77 20 70 61 | pr)   /|* raw pa|
|00000450| 74 69 65 6e 74 20 72 65 | 63 6f 72 64 20 74 6f 20 |tient re|cord to |
|00000460| 76 61 72 69 61 62 6c 65 | 20 6c 65 6e 67 74 68 20 |variable| length |
|00000470| 2a 2f 0d 0a 0d 0a 63 68 | 61 72 20 2a 62 75 66 66 |*/....ch|ar *buff|
|00000480| 65 72 3b 20 20 2f 2a 20 | 77 68 65 72 65 20 74 6f |er;  /* |where to|
|00000490| 20 70 75 74 20 76 61 72 | 69 61 62 6c 65 20 6c 65 | put var|iable le|
|000004a0| 6e 67 74 68 20 72 65 63 | 6f 72 64 20 2a 2f 0d 0a |ngth rec|ord */..|
|000004b0| 50 41 54 52 45 43 20 2a | 70 72 3b 20 20 20 20 2f |PATREC *|pr;    /|
|000004c0| 2a 20 70 6f 69 6e 74 65 | 72 20 74 6f 20 72 61 77 |* pointe|r to raw|
|000004d0| 20 70 61 74 69 65 6e 74 | 20 72 65 63 6f 72 64 20 | patient| record |
|000004e0| 2a 2f 0d 0a 0d 0a 7b 0d | 0a 20 20 20 75 77 6f 72 |*/....{.|.   uwor|
|000004f0| 64 20 74 6f 74 61 6c 3b | 0d 0a 0d 0a 20 20 20 73 |d total;|....   s|
|00000500| 74 72 63 70 79 28 62 75 | 66 66 65 72 2c 20 70 72 |trcpy(bu|ffer, pr|
|00000510| 2d 3e 6c 6e 61 6d 65 29 | 3b 0d 0a 20 20 20 73 74 |->lname)|;..   st|
|00000520| 72 63 61 74 28 62 75 66 | 66 65 72 2c 20 22 2c 20 |rcat(buf|fer, ", |
|00000530| 22 29 3b 0d 0a 20 20 20 | 73 74 72 63 61 74 28 62 |");..   |strcat(b|
|00000540| 75 66 66 65 72 2c 20 70 | 72 2d 3e 66 6e 61 6d 65 |uffer, p|r->fname|
|00000550| 29 3b 0d 0a 20 20 20 73 | 74 72 63 61 74 28 62 75 |);..   s|trcat(bu|
|00000560| 66 66 65 72 2c 20 22 20 | 22 29 3b 0d 0a 20 20 20 |ffer, " |");..   |
|00000570| 73 74 72 63 61 74 28 62 | 75 66 66 65 72 2c 20 70 |strcat(b|uffer, p|
|00000580| 72 2d 3e 6d 69 6e 69 74 | 29 3b 0d 0a 20 20 20 73 |r->minit|);..   s|
|00000590| 74 72 63 61 74 28 62 75 | 66 66 65 72 2c 20 22 5c |trcat(bu|ffer, "\|
|000005a0| 6e 22 29 3b 0d 0a 20 20 | 20 74 6f 74 61 6c 20 3d |n");..  | total =|
|000005b0| 20 73 74 72 6c 65 6e 28 | 70 72 2d 3e 6c 6e 61 6d | strlen(|pr->lnam|
|000005c0| 65 29 20 2b 20 73 74 72 | 6c 65 6e 28 70 72 2d 3e |e) + str|len(pr->|
|000005d0| 66 6e 61 6d 65 29 20 2b | 20 73 74 72 6c 65 6e 28 |fname) +| strlen(|
|000005e0| 70 72 2d 3e 6d 69 6e 69 | 74 29 20 2b 20 34 3b 0d |pr->mini|t) + 4;.|
|000005f0| 0a 0d 0a 20 20 20 73 74 | 72 63 61 74 28 62 75 66 |...   st|rcat(buf|
|00000600| 66 65 72 2c 20 70 72 2d | 3e 61 64 64 72 29 3b 0d |fer, pr-|>addr);.|
|00000610| 0a 20 20 20 73 74 72 63 | 61 74 28 62 75 66 66 65 |.   strc|at(buffe|
|00000620| 72 2c 20 22 5c 6e 22 29 | 3b 0d 0a 20 20 20 74 6f |r, "\n")|;..   to|
|00000630| 74 61 6c 20 2b 3d 20 73 | 74 72 6c 65 6e 28 70 72 |tal += s|trlen(pr|
|00000640| 2d 3e 61 64 64 72 29 20 | 2b 20 31 3b 0d 0a 0d 0a |->addr) |+ 1;....|
|00000650| 20 20 20 73 74 72 63 61 | 74 28 62 75 66 66 65 72 |   strca|t(buffer|
|00000660| 2c 20 70 72 2d 3e 68 70 | 68 6f 6e 65 29 3b 0d 0a |, pr->hp|hone);..|
|00000670| 20 20 20 73 74 72 63 61 | 74 28 62 75 66 66 65 72 |   strca|t(buffer|
|00000680| 2c 20 22 5c 6e 22 29 3b | 0d 0a 20 20 20 74 6f 74 |, "\n");|..   tot|
|00000690| 61 6c 20 2b 3d 20 73 74 | 72 6c 65 6e 28 70 72 2d |al += st|rlen(pr-|
|000006a0| 3e 68 70 68 6f 6e 65 29 | 20 2b 20 31 3b 0d 0a 0d |>hphone)| + 1;...|
|000006b0| 0a 20 20 20 73 74 72 63 | 61 74 28 62 75 66 66 65 |.   strc|at(buffe|
|000006c0| 72 2c 20 70 72 2d 3e 73 | 73 6e 29 3b 0d 0a 20 20 |r, pr->s|sn);..  |
|000006d0| 20 73 74 72 63 61 74 28 | 62 75 66 66 65 72 2c 20 | strcat(|buffer, |
|000006e0| 22 5c 6e 22 29 3b 0d 0a | 20 20 20 74 6f 74 61 6c |"\n");..|   total|
|000006f0| 20 2b 3d 20 73 74 72 6c | 65 6e 28 70 72 2d 3e 73 | += strl|en(pr->s|
|00000700| 73 6e 29 20 2b 20 31 3b | 0d 0a 0d 0a 20 20 20 72 |sn) + 1;|....   r|
|00000710| 65 74 75 72 6e 20 28 28 | 75 77 6f 72 64 29 28 74 |eturn ((|uword)(t|
|00000720| 6f 74 61 6c 20 2b 20 31 | 29 29 3b 20 20 2f 2a 20 |otal + 1|));  /* |
|00000730| 66 6f 72 20 4e 55 4c 20 | 74 65 72 6d 69 6e 61 74 |for NUL |terminat|
|00000740| 6f 72 20 2a 2f 0d 0a 7d | 0d 0a                   |or */..}|..      |
+--------+-------------------------+-------------------------+--------+--------+