/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 2 / 2293

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 3a 20 6a 6f | 73 68 75 61 40 61 74 68 |From: jo|shua@ath|
|00000010| 65 72 74 6e 2e 41 74 68 | 65 72 74 6f 6e 2e 43 4f |ertn.Ath|erton.CO|
|00000020| 4d 20 28 46 6c 61 6d 65 | 20 42 61 69 74 29 0a 4e |M (Flame| Bait).N|
|00000030| 65 77 73 67 72 6f 75 70 | 73 3a 20 61 6c 74 2e 73 |ewsgroup|s: alt.s|
|00000040| 6f 75 72 63 65 73 0a 53 | 75 62 6a 65 63 74 3a 20 |ources.S|ubject: |
|00000050| 52 50 47 20 74 61 62 6c | 65 20 68 61 6e 64 6c 69 |RPG tabl|e handli|
|00000060| 6e 67 20 72 6f 75 74 69 | 6e 65 73 20 28 32 2f 32 |ng routi|nes (2/2|
|00000070| 29 0a 4d 65 73 73 61 67 | 65 2d 49 44 3a 20 3c 33 |).Messag|e-ID: <3|
|00000080| 33 39 30 38 40 6a 6f 73 | 68 75 61 2e 61 74 68 65 |3908@jos|hua.athe|
|00000090| 72 74 6e 2e 41 74 68 65 | 72 74 6f 6e 2e 43 4f 4d |rtn.Athe|rton.COM|
|000000a0| 3e 0a 44 61 74 65 3a 20 | 31 33 20 44 65 63 20 39 |>.Date: |13 Dec 9|
|000000b0| 30 20 31 37 3a 35 35 3a | 35 35 20 47 4d 54 0a 0a |0 17:55:|55 GMT..|
|000000c0| 49 66 20 79 6f 75 20 6d | 69 73 73 65 64 20 70 61 |If you m|issed pa|
|000000d0| 72 74 20 6f 6e 65 20 6f | 66 20 74 68 69 73 20 70 |rt one o|f this p|
|000000e0| 6f 73 74 2c 20 79 6f 75 | 20 63 61 6e 20 67 65 74 |ost, you| can get|
|000000f0| 20 69 74 20 66 72 6f 6d | 20 74 68 65 20 61 72 63 | it from| the arc|
|00000100| 68 69 76 65 72 0a 73 65 | 72 76 65 72 20 61 74 20 |hiver.se|rver at |
|00000110| 61 74 68 65 72 74 6f 6e | 2e 63 6f 6d 2e 20 20 53 |atherton|.com.  S|
|00000120| 65 6e 64 20 65 6d 61 69 | 6c 20 74 6f 20 61 72 63 |end emai|l to arc|
|00000130| 68 69 76 65 2d 73 65 72 | 76 65 72 40 61 74 68 65 |hive-ser|ver@athe|
|00000140| 72 74 6f 6e 2e 63 6f 6d | 20 77 68 69 63 68 0a 63 |rton.com| which.c|
|00000150| 6f 6e 74 61 69 6e 73 20 | 61 6e 20 65 6d 70 74 79 |ontains |an empty|
|00000160| 20 73 75 62 6a 65 63 74 | 20 6c 69 6e 65 2c 20 62 | subject| line, b|
|00000170| 75 74 20 68 61 73 20 74 | 68 65 73 65 20 6c 69 6e |ut has t|hese lin|
|00000180| 65 73 20 69 6e 20 69 74 | 73 20 62 6f 64 79 3a 0a |es in it|s body:.|
|00000190| 0a 70 61 74 68 20 79 6f | 75 72 40 65 6d 61 69 6c |.path yo|ur@email|
|000001a0| 2e 61 64 64 72 65 73 73 | 0a 73 65 6e 64 20 70 72 |.address|.send pr|
|000001b0| 6f 67 72 61 6d 73 20 74 | 61 62 6c 65 30 33 61 2e |ograms t|able03a.|
|000001c0| 73 68 61 72 0a 0a 53 65 | 6e 64 69 6e 67 20 65 6d |shar..Se|nding em|
|000001d0| 61 69 6c 20 63 6f 6e 74 | 61 69 6e 69 6e 67 20 6a |ail cont|aining j|
|000001e0| 75 73 74 20 60 68 65 6c | 70 27 20 6f 72 20 60 69 |ust `hel|p' or `i|
|000001f0| 6e 64 65 78 27 20 6d 61 | 79 20 61 6c 73 6f 20 62 |ndex' ma|y also b|
|00000200| 65 20 75 73 65 66 75 6c | 2e 0a 0a 4a 6f 73 68 75 |e useful|...Joshu|
|00000210| 61 20 4c 65 76 79 20 28 | 6a 6f 73 68 75 61 40 61 |a Levy (|joshua@a|
|00000220| 74 68 65 72 74 6f 6e 2e | 63 6f 6d 29 20 20 28 34 |therton.|com)  (4|
|00000230| 30 38 29 20 37 33 34 2d | 39 38 32 32 0a 0a 23 21 |08) 734-|9822..#!|
|00000240| 20 2f 62 69 6e 2f 73 68 | 0a 23 20 54 68 69 73 20 | /bin/sh|.# This |
|00000250| 69 73 20 61 20 73 68 65 | 6c 6c 20 61 72 63 68 69 |is a she|ll archi|
|00000260| 76 65 2c 20 6d 65 61 6e | 69 6e 67 3a 0a 23 20 31 |ve, mean|ing:.# 1|
|00000270| 2e 20 52 65 6d 6f 76 65 | 20 65 76 65 72 79 74 68 |. Remove| everyth|
|00000280| 69 6e 67 20 61 62 6f 76 | 65 20 74 68 65 20 23 21 |ing abov|e the #!|
|00000290| 20 2f 62 69 6e 2f 73 68 | 20 6c 69 6e 65 2e 0a 23 | /bin/sh| line..#|
|000002a0| 20 32 2e 20 53 61 76 65 | 20 74 68 65 20 72 65 73 | 2. Save| the res|
|000002b0| 75 6c 74 69 6e 67 20 74 | 65 78 74 20 69 6e 20 61 |ulting t|ext in a|
|000002c0| 20 66 69 6c 65 2e 0a 23 | 20 33 2e 20 45 78 65 63 | file..#| 3. Exec|
|000002d0| 75 74 65 20 74 68 65 20 | 66 69 6c 65 20 77 69 74 |ute the |file wit|
|000002e0| 68 20 2f 62 69 6e 2f 73 | 68 20 28 6e 6f 74 20 63 |h /bin/s|h (not c|
|000002f0| 73 68 29 20 74 6f 20 63 | 72 65 61 74 65 3a 0a 23 |sh) to c|reate:.#|
|00000300| 09 73 72 63 0a 23 09 74 | 73 74 0a 23 20 54 68 69 |.src.#.t|st.# Thi|
|00000310| 73 20 61 72 63 68 69 76 | 65 20 63 72 65 61 74 65 |s archiv|e create|
|00000320| 64 3a 20 46 72 69 20 4e | 6f 76 20 33 30 20 31 32 |d: Fri N|ov 30 12|
|00000330| 3a 30 37 3a 31 35 20 31 | 39 39 30 0a 23 20 42 79 |:07:15 1|990.# By|
|00000340| 3a 09 46 6c 61 6d 65 20 | 42 61 69 74 20 28 29 0a |:.Flame |Bait ().|
|00000350| 65 78 70 6f 72 74 20 50 | 41 54 48 3b 20 50 41 54 |export P|ATH; PAT|
|00000360| 48 3d 2f 62 69 6e 3a 2f | 75 73 72 2f 62 69 6e 3a |H=/bin:/|usr/bin:|
|00000370| 24 50 41 54 48 0a 69 66 | 20 74 65 73 74 20 21 20 |$PATH.if| test ! |
|00000380| 2d 64 20 27 73 72 63 27 | 0a 74 68 65 6e 0a 09 6d |-d 'src'|.then..m|
|00000390| 6b 64 69 72 20 27 73 72 | 63 27 0a 66 69 0a 63 64 |kdir 'sr|c'.fi.cd|
|000003a0| 20 27 73 72 63 27 0a 69 | 66 20 74 65 73 74 20 2d | 'src'.i|f test -|
|000003b0| 66 20 27 72 61 6e 64 6f | 6d 2e 68 27 0a 74 68 65 |f 'rando|m.h'.the|
|000003c0| 6e 0a 09 65 63 68 6f 20 | 73 68 61 72 3a 20 22 77 |n..echo |shar: "w|
|000003d0| 69 6c 6c 20 6e 6f 74 20 | 6f 76 65 72 2d 77 72 69 |ill not |over-wri|
|000003e0| 74 65 20 65 78 69 73 74 | 69 6e 67 20 66 69 6c 65 |te exist|ing file|
|000003f0| 20 27 72 61 6e 64 6f 6d | 2e 68 27 22 0a 65 6c 73 | 'random|.h'".els|
|00000400| 65 0a 73 65 64 20 27 73 | 2f 5e 59 2f 2f 27 20 3c |e.sed 's|/^Y//' <|
|00000410| 3c 20 5c 53 48 41 52 5f | 45 4f 46 20 3e 20 27 72 |< \SHAR_|EOF > 'r|
|00000420| 61 6e 64 6f 6d 2e 68 27 | 0a 59 2f 2a 0a 59 20 2a |andom.h'|.Y/*.Y *|
|00000430| 20 52 41 4e 44 4f 4d 2e | 48 0a 59 20 2a 20 42 79 | RANDOM.|H.Y * By|
|00000440| 20 4a 6f 73 68 75 61 20 | 4c 65 76 79 0a 59 20 2a | Joshua |Levy.Y *|
|00000450| 20 48 65 61 64 65 72 20 | 66 69 6c 65 20 66 6f 72 | Header |file for|
|00000460| 20 61 6e 79 20 70 72 6f | 67 72 61 6d 20 75 73 69 | any pro|gram usi|
|00000470| 6e 67 20 72 61 6e 64 6f | 6d 2e 63 0a 59 20 2a 0a |ng rando|m.c.Y *.|
|00000480| 59 20 2a 20 53 65 65 20 | 72 61 6e 64 6f 6d 2e 63 |Y * See |random.c|
|00000490| 20 66 6f 72 20 64 6f 63 | 75 6d 65 6e 74 61 74 69 | for doc|umentati|
|000004a0| 6f 6e 2e 0a 59 20 2a 2f | 0a 59 0a 59 23 69 66 6e |on..Y */|.Y.Y#ifn|
|000004b0| 64 65 66 20 52 41 4e 44 | 4f 4d 5f 48 0a 59 23 64 |def RAND|OM_H.Y#d|
|000004c0| 65 66 69 6e 65 20 52 41 | 4e 44 4f 4d 5f 48 20 31 |efine RA|NDOM_H 1|
|000004d0| 0a 59 0a 59 65 78 74 65 | 72 6e 20 63 68 61 72 20 |.Y.Yexte|rn char |
|000004e0| 2a 72 61 5f 63 61 72 64 | 28 29 20 3b 0a 59 65 78 |*ra_card|() ;.Yex|
|000004f0| 74 65 72 6e 20 69 6e 74 | 20 72 61 5f 72 6f 6c 6c |tern int| ra_roll|
|00000500| 28 29 20 3b 0a 59 65 78 | 74 65 72 6e 20 69 6e 74 |() ;.Yex|tern int|
|00000510| 20 72 61 5f 72 61 6e 64 | 6f 6d 28 29 20 3b 0a 59 | ra_rand|om() ;.Y|
|00000520| 65 78 74 65 72 6e 20 69 | 6e 74 20 72 61 5f 71 75 |extern i|nt ra_qu|
|00000530| 65 72 79 28 29 20 3b 0a | 59 65 78 74 65 72 6e 20 |ery() ;.|Yextern |
|00000540| 76 6f 69 64 20 72 61 5f | 73 65 65 64 28 29 20 3b |void ra_|seed() ;|
|00000550| 0a 59 65 78 74 65 72 6e | 20 69 6e 74 20 72 61 5f |.Yextern| int ra_|
|00000560| 6c 6f 67 67 69 6e 67 28 | 29 20 3b 0a 59 65 78 74 |logging(|) ;.Yext|
|00000570| 65 72 6e 20 64 6f 75 62 | 6c 65 20 72 61 5f 66 6c |ern doub|le ra_fl|
|00000580| 6f 61 74 28 29 20 3b 0a | 59 0a 59 2f 2a 20 54 68 |oat() ;.|Y.Y/* Th|
|00000590| 65 20 63 75 72 72 65 6e | 74 20 76 65 72 73 69 6f |e curren|t versio|
|000005a0| 6e 20 6f 66 20 74 68 65 | 20 72 61 6e 64 6f 6d 20 |n of the| random |
|000005b0| 72 6f 75 74 69 6e 65 73 | 20 2a 2f 0a 59 23 64 65 |routines| */.Y#de|
|000005c0| 66 69 6e 65 20 52 41 5f | 56 45 52 53 49 4f 4e 20 |fine RA_|VERSION |
|000005d0| 32 0a 59 0a 59 2f 2a 20 | 73 74 61 74 65 73 2c 20 |2.Y.Y/* |states, |
|000005e0| 74 6f 20 62 65 20 70 61 | 73 73 65 64 20 61 73 20 |to be pa|ssed as |
|000005f0| 74 68 65 20 66 69 72 73 | 74 20 61 72 67 75 6d 65 |the firs|t argume|
|00000600| 6e 74 20 74 6f 20 72 61 | 5f 6c 6f 67 67 69 6e 67 |nt to ra|_logging|
|00000610| 20 2a 2f 0a 59 23 64 65 | 66 69 6e 65 20 52 41 5f | */.Y#de|fine RA_|
|00000620| 4e 4f 52 4d 41 4c 20 20 | 20 30 0a 59 23 64 65 66 |NORMAL  | 0.Y#def|
|00000630| 69 6e 65 20 52 41 5f 50 | 4c 41 59 20 20 20 20 20 |ine RA_P|LAY     |
|00000640| 31 0a 59 23 64 65 66 69 | 6e 65 20 52 41 5f 4c 4f |1.Y#defi|ne RA_LO|
|00000650| 47 20 20 20 20 20 20 32 | 0a 59 0a 59 2f 2a 20 65 |G      2|.Y.Y/* e|
|00000660| 72 72 6f 72 73 2c 20 72 | 65 74 75 72 6e 65 64 20 |rrors, r|eturned |
|00000670| 66 72 6f 6d 20 74 68 6f | 73 65 20 72 6f 75 74 69 |from tho|se routi|
|00000680| 6e 65 73 20 77 68 69 63 | 68 20 72 65 74 75 72 6e |nes whic|h return|
|00000690| 20 69 6e 74 65 67 65 72 | 73 20 2a 2f 0a 59 23 64 | integer|s */.Y#d|
|000006a0| 65 66 69 6e 65 20 52 41 | 5f 4f 4b 20 20 20 20 20 |efine RA|_OK     |
|000006b0| 20 20 20 20 30 20 20 20 | 20 20 20 2f 2a 20 73 75 |    0   |   /* su|
|000006c0| 63 63 65 73 73 20 2a 2f | 0a 59 23 64 65 66 69 6e |ccess */|.Y#defin|
|000006d0| 65 20 52 41 5f 45 5f 53 | 54 41 54 45 20 20 2d 31 |e RA_E_S|TATE  -1|
|000006e0| 30 30 0a 59 23 64 65 66 | 69 6e 65 20 52 41 5f 45 |00.Y#def|ine RA_E|
|000006f0| 5f 4e 4f 46 49 4c 45 20 | 2d 31 30 31 0a 59 23 64 |_NOFILE |-101.Y#d|
|00000700| 65 66 69 6e 65 20 52 41 | 5f 45 5f 42 41 44 51 55 |efine RA|_E_BADQU|
|00000710| 45 52 59 20 2d 31 30 32 | 0a 59 0a 59 2f 2a 20 74 |ERY -102|.Y.Y/* t|
|00000720| 79 70 65 73 20 6f 66 20 | 71 75 65 72 69 65 73 20 |ypes of |queries |
|00000730| 2a 2f 0a 59 23 64 65 66 | 69 6e 65 20 52 41 5f 4d |*/.Y#def|ine RA_M|
|00000740| 41 58 20 31 0a 59 23 64 | 65 66 69 6e 65 20 52 41 |AX 1.Y#d|efine RA|
|00000750| 5f 4d 49 4e 20 32 0a 59 | 23 64 65 66 69 6e 65 20 |_MIN 2.Y|#define |
|00000760| 52 41 5f 41 56 45 20 33 | 0a 59 23 64 65 66 69 6e |RA_AVE 3|.Y#defin|
|00000770| 65 20 52 41 5f 4c 45 47 | 41 4c 20 34 0a 59 0a 59 |e RA_LEG|AL 4.Y.Y|
|00000780| 23 65 6e 64 69 66 0a 53 | 48 41 52 5f 45 4f 46 0a |#endif.S|HAR_EOF.|
|00000790| 66 69 0a 69 66 20 74 65 | 73 74 20 2d 66 20 27 72 |fi.if te|st -f 'r|
|000007a0| 61 6e 64 6f 6d 2e 63 27 | 0a 74 68 65 6e 0a 09 65 |andom.c'|.then..e|
|000007b0| 63 68 6f 20 73 68 61 72 | 3a 20 22 77 69 6c 6c 20 |cho shar|: "will |
|000007c0| 6e 6f 74 20 6f 76 65 72 | 2d 77 72 69 74 65 20 65 |not over|-write e|
|000007d0| 78 69 73 74 69 6e 67 20 | 66 69 6c 65 20 27 72 61 |xisting |file 'ra|
|000007e0| 6e 64 6f 6d 2e 63 27 22 | 0a 65 6c 73 65 0a 73 65 |ndom.c'"|.else.se|
|000007f0| 64 20 27 73 2f 5e 59 2f | 2f 27 20 3c 3c 20 5c 53 |d 's/^Y/|/' << \S|
|00000800| 48 41 52 5f 45 4f 46 20 | 3e 20 27 72 61 6e 64 6f |HAR_EOF |> 'rando|
|00000810| 6d 2e 63 27 0a 59 2f 2a | 0a 59 20 2a 20 52 41 4e |m.c'.Y/*|.Y * RAN|
|00000820| 44 4f 4d 2e 43 0a 59 20 | 2a 20 52 61 6e 64 6f 6d |DOM.C.Y |* Random|
|00000830| 20 72 6f 75 74 69 6e 65 | 73 20 66 6f 72 20 46 52 | routine|s for FR|
|00000840| 50 20 67 61 6d 65 73 0a | 59 20 2a 20 42 79 20 4a |P games.|Y * By J|
|00000850| 6f 73 68 75 61 20 4c 65 | 76 79 20 0a 59 20 2a 0a |oshua Le|vy .Y *.|
|00000860| 59 25 20 20 20 63 63 20 | 2d 67 20 2d 63 20 72 61 |Y%   cc |-g -c ra|
|00000870| 6e 64 6f 6d 2e 63 0a 59 | 25 74 20 20 63 63 20 2d |ndom.c.Y|%t  cc -|
|00000880| 67 20 2d 44 54 45 53 54 | 20 2d 6f 20 72 6e 64 74 |g -DTEST| -o rndt|
|00000890| 65 73 74 20 72 61 6e 64 | 6f 6d 2e 63 20 2d 6c 6d |est rand|om.c -lm|
|000008a0| 0a 59 20 2a 0a 59 20 2a | 20 54 68 69 73 20 6d 6f |.Y *.Y *| This mo|
|000008b0| 64 75 61 6c 20 68 61 73 | 20 66 69 76 65 20 22 66 |dual has| five "f|
|000008c0| 75 6e 63 74 69 6f 6e 61 | 6c 22 20 65 6e 74 72 79 |unctiona|l" entry|
|000008d0| 20 70 6f 69 6e 74 73 3a | 0a 59 20 2a 20 20 20 20 | points:|.Y *    |
|000008e0| 20 20 69 6e 74 20 72 61 | 5f 72 6f 6c 6c 28 73 74 |  int ra|_roll(st|
|000008f0| 72 29 20 63 68 61 72 20 | 2a 73 74 72 20 3b 0a 59 |r) char |*str ;.Y|
|00000900| 20 2a 20 20 20 20 20 20 | 63 68 61 72 20 2a 72 61 | *      |char *ra|
|00000910| 5f 63 61 72 64 28 29 20 | 0a 59 20 2a 20 20 20 20 |_card() |.Y *    |
|00000920| 20 20 69 6e 74 20 72 61 | 5f 72 61 6e 64 6f 6d 28 |  int ra|_random(|
|00000930| 6e 29 20 69 6e 74 20 6e | 20 3b 0a 59 20 2a 20 20 |n) int n| ;.Y *  |
|00000940| 20 20 20 20 69 6e 74 20 | 72 61 5f 66 6c 6f 61 74 |    int |ra_float|
|00000950| 28 29 0a 59 20 2a 20 20 | 20 20 20 20 69 6e 74 20 |().Y *  |    int |
|00000960| 72 61 5f 71 75 65 72 79 | 28 73 74 72 2c 71 75 65 |ra_query|(str,que|
|00000970| 73 74 29 20 63 68 61 72 | 20 2a 73 74 72 20 3b 20 |st) char| *str ; |
|00000980| 69 6e 74 20 71 75 65 73 | 74 20 3b 0a 59 20 2a 20 |int ques|t ;.Y * |
|00000990| 20 20 20 20 20 69 6e 74 | 20 72 61 5f 67 61 73 64 |     int| ra_gasd|
|000009a0| 65 76 28 29 20 3b 0a 59 | 20 2a 20 20 20 20 20 20 |ev() ;.Y| *      |
|000009b0| 69 6e 74 20 72 61 5f 72 | 61 6e 67 65 28 6c 6f 77 |int ra_r|ange(low|
|000009c0| 2c 6d 69 64 64 6c 65 2c | 68 69 67 68 29 20 69 6e |,middle,|high) in|
|000009d0| 74 20 6c 6f 77 2c 20 6d | 69 64 64 6c 65 2c 20 68 |t low, m|iddle, h|
|000009e0| 69 67 68 20 3b 0a 59 20 | 2a 0a 59 20 2a 20 61 6e |igh ;.Y |*.Y * an|
|000009f0| 64 20 74 77 6f 20 22 73 | 74 61 74 65 22 20 65 6e |d two "s|tate" en|
|00000a00| 74 72 79 20 70 6f 69 6e | 74 73 3a 0a 59 20 2a 0a |try poin|ts:.Y *.|
|00000a10| 59 20 2a 20 20 20 20 20 | 20 76 6f 69 64 20 72 61 |Y *     | void ra|
|00000a20| 5f 73 65 65 64 28 73 65 | 65 64 29 20 6c 6f 6e 67 |_seed(se|ed) long|
|00000a30| 20 73 65 65 64 20 3b 0a | 59 20 2a 20 20 20 20 20 | seed ;.|Y *     |
|00000a40| 20 20 20 20 20 54 68 69 | 73 20 69 6e 69 74 69 61 |     Thi|s initia|
|00000a50| 6c 69 7a 65 73 20 74 68 | 65 20 72 61 6e 64 6f 6d |lizes th|e random|
|00000a60| 20 6e 75 6d 62 65 72 20 | 67 65 6e 65 72 61 74 6f | number |generato|
|00000a70| 72 2c 20 69 66 20 69 74 | 20 69 73 20 6e 6f 74 20 |r, if it| is not |
|00000a80| 63 61 6c 6c 65 64 0a 59 | 20 2a 20 20 20 20 20 20 |called.Y| *      |
|00000a90| 20 20 20 20 74 68 65 20 | 72 61 6e 64 6f 6d 20 6e |    the |random n|
|00000aa0| 75 6d 62 65 72 20 67 65 | 6e 65 72 61 74 6f 72 20 |umber ge|nerator |
|00000ab0| 77 69 6c 6c 20 62 65 20 | 69 6e 20 61 6e 20 75 6e |will be |in an un|
|00000ac0| 6b 6e 6f 77 6e 20 73 74 | 61 74 65 2e 20 20 50 61 |known st|ate.  Pa|
|00000ad0| 73 73 69 6e 67 0a 59 20 | 2a 20 20 20 20 20 20 20 |ssing.Y |*       |
|00000ae0| 20 20 20 7a 65 72 6f 20 | 77 69 6c 6c 20 75 73 75 |   zero |will usu|
|00000af0| 61 6c 6c 79 20 67 65 6e | 65 72 61 74 65 20 61 20 |ally gen|erate a |
|00000b00| 72 65 70 65 61 74 61 62 | 6c 65 20 73 65 72 69 65 |repeatab|le serie|
|00000b10| 73 20 6f 66 20 6e 75 6d | 62 65 72 73 20 61 6e 64 |s of num|bers and|
|00000b20| 20 69 73 20 0a 59 20 2a | 20 20 20 20 20 20 20 20 | is .Y *|        |
|00000b30| 20 20 67 6f 6f 64 20 66 | 6f 72 20 64 65 62 75 67 |  good f|or debug|
|00000b40| 67 69 6e 67 2e 20 20 41 | 20 64 69 66 66 65 72 65 |ging.  A| differe|
|00000b50| 6e 74 20 6e 75 6d 62 65 | 72 20 73 68 6f 75 6c 64 |nt numbe|r should|
|00000b60| 20 62 65 20 75 73 65 64 | 20 22 66 6f 72 20 72 65 | be used| "for re|
|00000b70| 61 6c 22 2e 0a 59 20 2a | 20 20 20 20 20 20 69 6e |al"..Y *|      in|
|00000b80| 74 20 72 61 5f 6c 6f 67 | 67 69 6e 67 28 73 74 61 |t ra_log|ging(sta|
|00000b90| 74 65 2c 66 69 6c 65 6e | 61 6d 65 29 20 69 6e 74 |te,filen|ame) int|
|00000ba0| 20 73 74 61 74 65 20 3b | 20 63 68 61 72 20 2a 66 | state ;| char *f|
|00000bb0| 69 6c 65 6e 61 6d 65 20 | 3b 0a 59 20 2a 20 20 20 |ilename |;.Y *   |
|00000bc0| 20 20 20 20 20 20 20 54 | 68 69 73 20 61 6c 6c 6f |       T|his allo|
|00000bd0| 77 73 20 74 68 65 20 70 | 72 6f 67 72 61 6d 20 74 |ws the p|rogram t|
|00000be0| 6f 20 6c 6f 67 20 61 6c | 6c 20 6f 66 20 74 68 65 |o log al|l of the|
|00000bf0| 20 72 61 6e 64 6f 6d 20 | 6e 75 6d 62 65 72 73 20 | random |numbers |
|00000c00| 69 74 0a 59 20 2a 20 20 | 20 20 20 20 20 20 20 20 |it.Y *  |        |
|00000c10| 67 65 6e 65 72 61 74 65 | 73 2c 20 61 6e 64 20 61 |generate|s, and a|
|00000c20| 6c 73 6f 20 75 73 65 20 | 72 61 6e 64 6f 6d 20 6e |lso use |random n|
|00000c30| 75 6d 62 65 72 20 66 72 | 6f 6d 20 74 68 65 20 6c |umber fr|om the l|
|00000c40| 6f 67 2c 20 69 66 20 64 | 65 73 69 72 65 64 2e 0a |og, if d|esired..|
|00000c50| 59 20 2a 0a 59 20 2a 20 | 43 6f 6e 66 69 67 75 61 |Y *.Y * |Configua|
|00000c60| 74 69 6f 6e 0a 59 20 2a | 20 20 20 20 20 20 49 20 |tion.Y *|      I |
|00000c70| 68 61 76 65 20 75 73 65 | 64 20 72 61 6e 64 6f 6d |have use|d random|
|00000c80| 20 61 6e 64 20 73 72 61 | 6e 64 6f 6d 2c 20 73 69 | and sra|ndom, si|
|00000c90| 6e 63 65 20 74 68 65 79 | 20 61 72 65 20 61 76 61 |nce they| are ava|
|00000ca0| 69 6c 61 62 6c 65 20 6f | 6e 20 6d 79 0a 59 20 2a |ilable o|n my.Y *|
|00000cb0| 20 20 20 20 20 20 55 4e | 49 58 20 73 79 73 74 65 |      UN|IX syste|
|00000cc0| 6d 2c 20 61 6e 64 20 61 | 72 65 20 62 65 74 74 65 |m, and a|re bette|
|00000cd0| 72 20 74 68 61 6e 20 72 | 61 6e 64 20 61 6e 64 20 |r than r|and and |
|00000ce0| 73 72 61 6e 64 20 77 68 | 69 63 68 20 61 72 65 20 |srand wh|ich are |
|00000cf0| 6d 6f 72 65 0a 59 20 2a | 20 20 20 20 20 20 77 69 |more.Y *|      wi|
|00000d00| 64 65 6c 79 20 61 76 61 | 69 6c 61 62 6c 65 2e 20 |dely ava|ilable. |
|00000d10| 0a 59 20 2a 2f 0a 59 0a | 59 23 69 6e 63 6c 75 64 |.Y */.Y.|Y#includ|
|00000d20| 65 20 3c 73 79 73 2f 74 | 79 70 65 73 2e 68 3e 0a |e <sys/t|ypes.h>.|
|00000d30| 59 23 69 6e 63 6c 75 64 | 65 20 3c 73 74 64 69 6f |Y#includ|e <stdio|
|00000d40| 2e 68 3e 0a 59 23 69 6e | 63 6c 75 64 65 20 3c 61 |.h>.Y#in|clude <a|
|00000d50| 73 73 65 72 74 2e 68 3e | 0a 59 23 69 6e 63 6c 75 |ssert.h>|.Y#inclu|
|00000d60| 64 65 20 3c 76 61 6c 75 | 65 73 2e 68 3e 20 20 20 |de <valu|es.h>   |
|00000d70| 20 20 20 2f 2a 20 6f 6e | 6c 79 20 75 73 65 64 20 |   /* on|ly used |
|00000d80| 66 6f 72 20 4d 41 58 49 | 4e 54 20 2a 2f 0a 59 0a |for MAXI|NT */.Y.|
|00000d90| 59 23 69 6e 63 6c 75 64 | 65 20 22 72 61 6e 64 6f |Y#includ|e "rando|
|00000da0| 6d 2e 68 22 0a 59 0a 59 | 73 74 61 74 69 63 20 69 |m.h".Y.Y|static i|
|00000db0| 6e 74 20 72 61 5f 73 74 | 61 74 65 20 3d 20 52 41 |nt ra_st|ate = RA|
|00000dc0| 5f 4e 4f 52 4d 41 4c 20 | 3b 0a 59 73 74 61 74 69 |_NORMAL |;.Ystati|
|00000dd0| 63 20 46 49 4c 45 20 2a | 72 61 5f 6c 6f 67 20 3d |c FILE *|ra_log =|
|00000de0| 20 4e 55 4c 4c 20 2c 20 | 2a 72 61 5f 70 6c 61 79 | NULL , |*ra_play|
|00000df0| 20 3d 20 4e 55 4c 4c 20 | 3b 0a 59 0a 59 2f 2a 0a | = NULL |;.Y.Y/*.|
|00000e00| 59 20 2a 20 49 66 20 79 | 6f 75 20 77 61 6e 74 20 |Y * If y|ou want |
|00000e10| 74 6f 20 75 73 65 20 61 | 20 64 69 66 66 65 72 65 |to use a| differe|
|00000e20| 6e 74 20 72 61 6e 64 6f | 6d 20 6e 75 6d 62 65 72 |nt rando|m number|
|00000e30| 20 67 65 6e 65 72 61 74 | 6f 72 2c 20 79 6f 75 0a | generat|or, you.|
|00000e40| 59 20 2a 20 73 68 6f 75 | 6c 64 20 6f 6e 6c 79 20 |Y * shou|ld only |
|00000e50| 6e 65 65 64 20 74 6f 20 | 63 68 61 6e 67 65 20 74 |need to |change t|
|00000e60| 68 69 6e 67 73 20 6f 6e | 20 74 68 69 73 20 70 61 |hings on| this pa|
|00000e70| 67 65 2c 20 66 72 6f 6d | 20 68 65 72 65 20 64 6f |ge, from| here do|
|00000e80| 77 6e 2e 0a 59 20 2a 2f | 0a 59 0a 59 65 78 74 65 |wn..Y */|.Y.Yexte|
|00000e90| 72 6e 20 6c 6f 6e 67 20 | 72 61 6e 64 6f 6d 28 29 |rn long |random()|
|00000ea0| 20 3b 0a 59 0c 0a 59 69 | 6e 74 20 72 61 5f 72 61 | ;.Y..Yi|nt ra_ra|
|00000eb0| 6e 64 6f 6d 28 6e 29 20 | 75 6e 73 69 67 6e 65 64 |ndom(n) |unsigned|
|00000ec0| 20 69 6e 74 20 6e 20 3b | 0a 59 7b 0a 59 20 20 20 | int n ;|.Y{.Y   |
|00000ed0| 20 69 6e 74 20 72 65 73 | 75 6c 74 20 3b 0a 59 20 | int res|ult ;.Y |
|00000ee0| 20 20 20 69 6e 74 20 73 | 20 3b 0a 59 0a 59 20 20 |   int s| ;.Y.Y  |
|00000ef0| 20 20 69 66 20 28 72 61 | 5f 73 74 61 74 65 20 26 |  if (ra|_state &|
|00000f00| 20 52 41 5f 50 4c 41 59 | 29 20 7b 0a 59 09 61 73 | RA_PLAY|) {.Y.as|
|00000f10| 73 65 72 74 28 72 61 5f | 70 6c 61 79 29 20 3b 0a |sert(ra_|play) ;.|
|00000f20| 59 09 73 20 3d 20 66 73 | 63 61 6e 66 28 72 61 5f |Y.s = fs|canf(ra_|
|00000f30| 70 6c 61 79 2c 22 25 64 | 20 22 2c 26 72 65 73 75 |play,"%d| ",&resu|
|00000f40| 6c 74 29 20 3b 0a 59 09 | 69 66 20 28 73 3d 3d 45 |lt) ;.Y.|if (s==E|
|00000f50| 4f 46 29 20 7b 0a 59 23 | 69 66 6e 64 65 66 20 52 |OF) {.Y#|ifndef R|
|00000f60| 45 50 45 41 54 0a 59 09 | 20 20 20 20 70 72 69 6e |EPEAT.Y.|    prin|
|00000f70| 74 66 28 22 72 61 5f 72 | 61 6e 64 6f 6d 3a 20 70 |tf("ra_r|andom: p|
|00000f80| 72 65 6d 61 74 75 72 65 | 6c 79 20 72 65 61 63 68 |remature|ly reach|
|00000f90| 65 64 20 65 6e 64 20 6f | 66 20 6c 6f 67 67 69 6e |ed end o|f loggin|
|00000fa0| 67 20 66 69 6c 65 2e 5c | 6e 22 29 20 3b 0a 59 09 |g file.\|n") ;.Y.|
|00000fb0| 20 20 20 20 70 72 69 6e | 74 66 28 22 20 20 20 20 |    prin|tf("    |
|00000fc0| 20 20 20 20 20 20 20 63 | 6f 6e 74 69 6e 75 69 6e |       c|ontinuin|
|00000fd0| 67 20 77 69 74 68 20 72 | 61 6e 64 6f 6d 20 6e 75 |g with r|andom nu|
|00000fe0| 6d 62 65 72 73 5c 6e 22 | 29 20 3b 0a 59 09 20 20 |mbers\n"|) ;.Y.  |
|00000ff0| 20 20 66 63 6c 6f 73 65 | 28 72 61 5f 70 6c 61 79 |  fclose|(ra_play|
|00001000| 29 20 3b 0a 59 09 20 20 | 20 20 72 61 5f 70 6c 61 |) ;.Y.  |  ra_pla|
|00001010| 79 20 3d 20 28 46 49 4c | 45 2a 29 4e 55 4c 4c 20 |y = (FIL|E*)NULL |
|00001020| 3b 0a 59 09 20 20 20 20 | 72 61 5f 73 74 61 74 65 |;.Y.    |ra_state|
|00001030| 20 5e 3d 20 52 41 5f 50 | 4c 41 59 20 3b 0a 59 09 | ^= RA_P|LAY ;.Y.|
|00001040| 20 20 20 20 72 65 73 75 | 6c 74 20 3d 20 72 61 6e |    resu|lt = ran|
|00001050| 64 6f 6d 28 29 25 6e 2b | 31 20 3b 0a 59 23 65 6c |dom()%n+|1 ;.Y#el|
|00001060| 73 65 0a 59 09 20 20 20 | 20 66 73 65 65 6b 28 72 |se.Y.   | fseek(r|
|00001070| 61 5f 70 6c 61 79 2c 30 | 4c 2c 30 29 20 3b 0a 59 |a_play,0|L,0) ;.Y|
|00001080| 09 20 20 20 20 73 20 3d | 20 66 73 63 61 6e 66 28 |.    s =| fscanf(|
|00001090| 72 61 5f 70 6c 61 79 2c | 22 25 64 20 22 2c 26 72 |ra_play,|"%d ",&r|
|000010a0| 65 73 75 6c 74 29 20 3b | 0a 59 23 65 6e 64 69 66 |esult) ;|.Y#endif|
|000010b0| 0a 59 09 7d 0a 59 20 20 | 20 20 7d 20 65 6c 73 65 |.Y.}.Y  |  } else|
|000010c0| 20 7b 0a 59 09 72 65 73 | 75 6c 74 20 3d 20 72 61 | {.Y.res|ult = ra|
|000010d0| 6e 64 6f 6d 28 29 25 6e | 2b 31 20 3b 0a 59 20 20 |ndom()%n|+1 ;.Y  |
|000010e0| 20 20 7d 0a 59 20 20 20 | 20 69 66 20 28 72 61 5f |  }.Y   | if (ra_|
|000010f0| 73 74 61 74 65 20 26 20 | 52 41 5f 4c 4f 47 29 20 |state & |RA_LOG) |
|00001100| 7b 0a 59 09 61 73 73 65 | 72 74 28 72 61 5f 6c 6f |{.Y.asse|rt(ra_lo|
|00001110| 67 29 20 3b 0a 59 09 66 | 70 72 69 6e 74 66 28 72 |g) ;.Y.f|printf(r|
|00001120| 61 5f 6c 6f 67 2c 22 25 | 64 20 22 2c 72 65 73 75 |a_log,"%|d ",resu|
|00001130| 6c 74 29 20 3b 0a 59 20 | 20 20 20 7d 20 20 20 20 |lt) ;.Y |   }    |
|00001140| 0a 59 20 20 20 20 72 65 | 74 75 72 6e 20 72 65 73 |.Y    re|turn res|
|00001150| 75 6c 74 20 3b 0a 59 7d | 0a 59 0a 59 76 6f 69 64 |ult ;.Y}|.Y.Yvoid|
|00001160| 20 72 61 5f 73 65 65 64 | 28 73 65 65 64 29 20 69 | ra_seed|(seed) i|
|00001170| 6e 74 20 73 65 65 64 20 | 3b 0a 59 7b 0a 59 20 20 |nt seed |;.Y{.Y  |
|00001180| 20 20 73 72 61 6e 64 6f | 6d 28 73 65 65 64 29 20 |  srando|m(seed) |
|00001190| 3b 0a 59 7d 0a 59 0a 59 | 69 6e 74 20 72 61 5f 6c |;.Y}.Y.Y|int ra_l|
|000011a0| 6f 67 67 69 6e 67 28 73 | 74 61 74 65 2c 66 69 6c |ogging(s|tate,fil|
|000011b0| 65 6e 61 6d 65 29 20 69 | 6e 74 20 73 74 61 74 65 |ename) i|nt state|
|000011c0| 20 3b 20 63 68 61 72 20 | 2a 66 69 6c 65 6e 61 6d | ; char |*filenam|
|000011d0| 65 20 3b 0a 59 7b 0a 59 | 20 20 20 20 63 68 61 72 |e ;.Y{.Y|    char|
|000011e0| 20 62 75 66 5b 31 30 30 | 5d 20 3b 0a 59 20 20 20 | buf[100|] ;.Y   |
|000011f0| 20 74 69 6d 65 5f 74 20 | 6d 61 64 65 20 3b 0a 59 | time_t |made ;.Y|
|00001200| 0a 59 20 20 20 20 69 66 | 20 28 20 73 74 61 74 65 |.Y    if| ( state|
|00001210| 21 3d 52 41 5f 4e 4f 52 | 4d 41 4c 20 26 26 20 73 |!=RA_NOR|MAL && s|
|00001220| 74 61 74 65 21 3d 52 41 | 5f 50 4c 41 59 20 26 26 |tate!=RA|_PLAY &&|
|00001230| 20 73 74 61 74 65 21 3d | 52 41 5f 4c 4f 47 20 29 | state!=|RA_LOG )|
|00001240| 0a 59 09 72 65 74 75 72 | 6e 20 52 41 5f 45 5f 53 |.Y.retur|n RA_E_S|
|00001250| 54 41 54 45 20 3b 0a 59 | 20 20 20 20 69 66 20 28 |TATE ;.Y|    if (|
|00001260| 73 74 61 74 65 3e 30 29 | 0a 59 09 72 61 5f 73 74 |state>0)|.Y.ra_st|
|00001270| 61 74 65 20 7c 3d 20 73 | 74 61 74 65 20 3b 0a 59 |ate |= s|tate ;.Y|
|00001280| 20 20 20 20 65 6c 73 65 | 20 69 66 20 28 73 74 61 |    else| if (sta|
|00001290| 74 65 3c 30 29 0a 59 09 | 72 61 5f 73 74 61 74 65 |te<0).Y.|ra_state|
|000012a0| 20 5e 3d 20 73 74 61 74 | 65 20 3b 0a 59 20 20 20 | ^= stat|e ;.Y   |
|000012b0| 20 65 6c 73 65 20 2f 2a | 73 74 61 74 65 3d 3d 30 | else /*|state==0|
|000012c0| 2a 2f 0a 59 09 72 61 5f | 73 74 61 74 65 20 3d 20 |*/.Y.ra_|state = |
|000012d0| 73 74 61 74 65 20 3b 0a | 59 20 20 20 20 73 77 69 |state ;.|Y    swi|
|000012e0| 74 63 68 20 28 73 74 61 | 74 65 29 20 7b 20 20 2f |tch (sta|te) {  /|
|000012f0| 2a 20 72 65 6d 65 6d 62 | 65 72 20 74 68 65 20 73 |* rememb|er the s|
|00001300| 77 69 74 63 68 20 66 61 | 6c 6c 20 74 68 72 6f 75 |witch fa|ll throu|
|00001310| 67 68 20 72 75 6c 65 73 | 20 2a 2f 0a 59 20 20 20 |gh rules| */.Y   |
|00001320| 20 20 20 63 61 73 65 20 | 52 41 5f 4e 4f 52 4d 41 |   case |RA_NORMA|
|00001330| 4c 3a 0a 59 09 69 66 20 | 28 72 61 5f 70 6c 61 79 |L:.Y.if |(ra_play|
|00001340| 29 20 7b 20 66 63 6c 6f | 73 65 28 72 61 5f 70 6c |) { fclo|se(ra_pl|
|00001350| 61 79 29 20 3b 20 72 61 | 5f 70 6c 61 79 20 3d 20 |ay) ; ra|_play = |
|00001360| 28 46 49 4c 45 2a 29 4e | 55 4c 4c 20 3b 20 7d 0a |(FILE*)N|ULL ; }.|
|00001370| 59 09 69 66 20 28 72 61 | 5f 6c 6f 67 29 20 7b 20 |Y.if (ra|_log) { |
|00001380| 66 63 6c 6f 73 65 28 72 | 61 5f 6c 6f 67 29 20 3b |fclose(r|a_log) ;|
|00001390| 20 72 61 5f 6c 6f 67 20 | 3d 20 28 46 49 4c 45 2a | ra_log |= (FILE*|
|000013a0| 29 4e 55 4c 4c 20 3b 20 | 7d 0a 59 09 62 72 65 61 |)NULL ; |}.Y.brea|
|000013b0| 6b 20 3b 0a 59 20 20 20 | 20 20 20 63 61 73 65 20 |k ;.Y   |   case |
|000013c0| 2d 52 41 5f 50 4c 41 59 | 3a 0a 59 09 69 66 20 28 |-RA_PLAY|:.Y.if (|
|000013d0| 72 61 5f 70 6c 61 79 29 | 20 7b 20 66 63 6c 6f 73 |ra_play)| { fclos|
|000013e0| 65 28 72 61 5f 70 6c 61 | 79 29 20 3b 20 72 61 5f |e(ra_pla|y) ; ra_|
|000013f0| 70 6c 61 79 20 3d 20 28 | 46 49 4c 45 2a 29 4e 55 |play = (|FILE*)NU|
|00001400| 4c 4c 20 3b 20 7d 0a 59 | 09 62 72 65 61 6b 20 3b |LL ; }.Y|.break ;|
|00001410| 0a 59 20 20 20 20 20 20 | 63 61 73 65 20 2d 52 41 |.Y      |case -RA|
|00001420| 5f 4c 4f 47 3a 0a 59 09 | 69 66 20 28 72 61 5f 6c |_LOG:.Y.|if (ra_l|
|00001430| 6f 67 29 20 7b 20 66 63 | 6c 6f 73 65 28 72 61 5f |og) { fc|lose(ra_|
|00001440| 6c 6f 67 29 20 3b 20 72 | 61 5f 6c 6f 67 20 3d 20 |log) ; r|a_log = |
|00001450| 28 46 49 4c 45 2a 29 4e | 55 4c 4c 20 3b 20 7d 0a |(FILE*)N|ULL ; }.|
|00001460| 59 09 62 72 65 61 6b 20 | 3b 0a 59 20 20 20 20 20 |Y.break |;.Y     |
|00001470| 20 63 61 73 65 20 52 41 | 5f 50 4c 41 59 3a 0a 59 | case RA|_PLAY:.Y|
|00001480| 09 72 61 5f 70 6c 61 79 | 20 3d 20 66 6f 70 65 6e |.ra_play| = fopen|
|00001490| 28 66 69 6c 65 6e 61 6d | 65 2c 22 72 22 29 20 3b |(filenam|e,"r") ;|
|000014a0| 0a 59 09 69 66 20 28 21 | 72 61 5f 70 6c 61 79 29 |.Y.if (!|ra_play)|
|000014b0| 0a 59 09 20 20 20 20 72 | 65 74 75 72 6e 20 52 41 |.Y.    r|eturn RA|
|000014c0| 5f 45 5f 4e 4f 46 49 4c | 45 20 3b 0a 59 09 66 67 |_E_NOFIL|E ;.Y.fg|
|000014d0| 65 74 73 28 62 75 66 2c | 73 69 7a 65 6f 66 28 62 |ets(buf,|sizeof(b|
|000014e0| 75 66 29 2c 72 61 5f 70 | 6c 61 79 29 20 3b 0a 59 |uf),ra_p|lay) ;.Y|
|000014f0| 09 2f 2a 20 72 69 67 68 | 74 20 6e 6f 77 2c 20 6e |./* righ|t now, n|
|00001500| 6f 20 63 68 65 63 6b 20 | 69 73 20 6d 61 64 65 20 |o check |is made |
|00001510| 2a 2f 0a 59 09 62 72 65 | 61 6b 20 3b 0a 59 20 20 |*/.Y.bre|ak ;.Y  |
|00001520| 20 20 20 20 63 61 73 65 | 20 52 41 5f 4c 4f 47 3a |    case| RA_LOG:|
|00001530| 0a 59 09 72 61 5f 6c 6f | 67 20 3d 20 66 6f 70 65 |.Y.ra_lo|g = fope|
|00001540| 6e 28 66 69 6c 65 6e 61 | 6d 65 2c 22 77 22 29 20 |n(filena|me,"w") |
|00001550| 3b 0a 59 09 69 66 20 28 | 21 72 61 5f 6c 6f 67 29 |;.Y.if (|!ra_log)|
|00001560| 0a 59 09 20 20 20 20 72 | 65 74 75 72 6e 20 52 41 |.Y.    r|eturn RA|
|00001570| 5f 45 5f 4e 4f 46 49 4c | 45 20 3b 0a 59 09 6d 61 |_E_NOFIL|E ;.Y.ma|
|00001580| 64 65 20 3d 20 74 69 6d | 65 28 28 74 69 6d 65 5f |de = tim|e((time_|
|00001590| 74 2a 29 30 29 20 3b 0a | 59 09 66 70 72 69 6e 74 |t*)0) ;.|Y.fprint|
|000015a0| 66 28 72 61 5f 6c 6f 67 | 2c 22 72 61 5f 6c 6f 67 |f(ra_log|,"ra_log|
|000015b0| 5f 66 69 6c 65 20 25 64 | 20 25 73 22 2c 52 41 5f |_file %d| %s",RA_|
|000015c0| 56 45 52 53 49 4f 4e 2c | 63 74 69 6d 65 28 26 6d |VERSION,|ctime(&m|
|000015d0| 61 64 65 29 29 20 3b 0a | 59 09 62 72 65 61 6b 20 |ade)) ;.|Y.break |
|000015e0| 3b 0a 59 20 20 20 20 7d | 0a 59 20 20 20 20 72 65 |;.Y    }|.Y    re|
|000015f0| 74 75 72 6e 20 72 61 5f | 73 74 61 74 65 20 3b 0a |turn ra_|state ;.|
|00001600| 59 7d 0a 59 0c 0a 59 63 | 68 61 72 20 2a 72 61 5f |Y}.Y..Yc|har *ra_|
|00001610| 63 61 72 64 28 29 20 0a | 59 7b 0a 59 20 20 20 20 |card() .|Y{.Y    |
|00001620| 73 74 61 74 69 63 20 63 | 68 61 72 20 72 65 74 5b |static c|har ret[|
|00001630| 31 30 5d 20 3b 0a 59 20 | 20 20 20 73 74 61 74 69 |10] ;.Y |   stati|
|00001640| 63 20 63 68 61 72 20 61 | 6c 6c 73 75 69 74 65 73 |c char a|llsuites|
|00001650| 5b 35 5d 20 3d 20 22 63 | 64 68 73 22 20 3b 0a 59 |[5] = "c|dhs" ;.Y|
|00001660| 0a 59 20 20 20 20 69 6e | 74 20 63 61 72 64 20 3d |.Y    in|t card =|
|00001670| 20 72 61 5f 72 61 6e 64 | 6f 6d 28 31 32 29 20 3b | ra_rand|om(12) ;|
|00001680| 0a 59 20 20 20 20 69 6e | 74 20 73 75 69 74 20 3d |.Y    in|t suit =|
|00001690| 20 72 61 5f 72 61 6e 64 | 6f 6d 28 34 29 2d 31 20 | ra_rand|om(4)-1 |
|000016a0| 3b 0a 59 0a 59 20 20 20 | 20 73 70 72 69 6e 74 66 |;.Y.Y   | sprintf|
|000016b0| 28 72 65 74 2c 22 25 64 | 25 63 22 2c 63 61 72 64 |(ret,"%d|%c",card|
|000016c0| 2c 61 6c 6c 73 75 69 74 | 65 73 5b 73 75 69 74 5d |,allsuit|es[suit]|
|000016d0| 29 20 3b 0a 59 20 20 20 | 20 72 65 74 75 72 6e 20 |) ;.Y   | return |
|000016e0| 72 65 74 20 3b 0a 59 7d | 0a 59 0c 0a 59 2f 2a 0a |ret ;.Y}|.Y..Y/*.|
|000016f0| 59 20 2a 20 42 75 67 3a | 20 66 69 72 73 74 20 6e |Y * Bug:| first n|
|00001700| 75 6d 62 65 72 20 69 73 | 20 72 65 71 75 69 72 65 |umber is| require|
|00001710| 64 3a 20 31 64 32 30 20 | 2c 20 31 64 31 30 30 2c |d: 1d20 |, 1d100,|
|00001720| 20 65 74 63 2e 20 20 0a | 59 20 2a 20 28 64 32 30 | etc.  .|Y * (d20|
|00001730| 20 77 69 6c 6c 20 66 61 | 69 6c 20 66 6f 72 20 65 | will fa|il for e|
|00001740| 78 61 6d 70 6c 65 29 0a | 59 20 2a 2f 0a 59 72 61 |xample).|Y */.Yra|
|00001750| 5f 72 6f 6c 6c 28 74 29 | 20 63 68 61 72 20 2a 74 |_roll(t)| char *t|
|00001760| 20 3b 0a 59 7b 0a 59 20 | 20 20 20 69 6e 74 20 6e | ;.Y{.Y |   int n|
|00001770| 75 6d 3d 30 2c 20 64 65 | 6c 3d 30 20 3b 0a 59 20 |um=0, de|l=0 ;.Y |
|00001780| 20 20 20 75 6e 73 69 67 | 6e 65 64 20 69 6e 74 20 |   unsig|ned int |
|00001790| 74 79 70 65 3d 30 20 3b | 0a 59 20 20 20 20 63 68 |type=0 ;|.Y    ch|
|000017a0| 61 72 20 64 69 63 65 3d | 27 64 27 2c 20 73 69 67 |ar dice=|'d', sig|
|000017b0| 6e 3d 27 2b 27 20 3b 0a | 59 20 20 20 20 69 6e 74 |n='+' ;.|Y    int|
|000017c0| 20 76 3d 30 20 3b 0a 59 | 20 20 20 20 69 6e 74 20 | v=0 ;.Y|    int |
|000017d0| 69 20 3b 0a 59 20 20 20 | 20 69 6e 74 20 73 20 3b |i ;.Y   | int s ;|
|000017e0| 0a 59 0a 59 20 20 20 20 | 73 20 3d 20 73 73 63 61 |.Y.Y    |s = ssca|
|000017f0| 6e 66 28 74 2c 22 25 64 | 25 63 25 75 25 63 25 64 |nf(t,"%d|%c%u%c%d|
|00001800| 22 2c 26 6e 75 6d 2c 26 | 64 69 63 65 2c 26 74 79 |",&num,&|dice,&ty|
|00001810| 70 65 2c 26 73 69 67 6e | 2c 26 64 65 6c 29 20 3b |pe,&sign|,&del) ;|
|00001820| 0a 59 20 20 20 20 69 66 | 20 28 73 3d 3d 33 29 20 |.Y    if| (s==3) |
|00001830| 7b 0a 59 09 73 69 67 6e | 20 3d 20 27 2b 27 20 3b |{.Y.sign| = '+' ;|
|00001840| 0a 59 09 64 65 6c 20 3d | 20 30 20 3b 0a 59 20 20 |.Y.del =| 0 ;.Y  |
|00001850| 20 20 7d 20 0a 59 20 20 | 20 20 66 6f 72 28 69 3d |  } .Y  |  for(i=|
|00001860| 30 20 3b 20 69 3c 6e 75 | 6d 20 3b 20 69 2b 2b 29 |0 ; i<nu|m ; i++)|
|00001870| 20 0a 59 09 76 20 2b 3d | 20 72 61 5f 72 61 6e 64 | .Y.v +=| ra_rand|
|00001880| 6f 6d 28 74 79 70 65 29 | 20 3b 0a 59 20 20 20 20 |om(type)| ;.Y    |
|00001890| 69 66 20 28 73 69 67 6e | 3d 3d 27 2b 27 29 0a 59 |if (sign|=='+').Y|
|000018a0| 09 76 20 2b 3d 20 64 65 | 6c 20 3b 0a 59 20 20 20 |.v += de|l ;.Y   |
|000018b0| 20 65 6c 73 65 0a 59 09 | 76 20 2d 3d 20 64 65 6c | else.Y.|v -= del|
|000018c0| 20 3b 0a 59 20 20 20 20 | 72 65 74 75 72 6e 20 76 | ;.Y    |return v|
|000018d0| 20 3b 0a 59 7d 0a 59 0c | 0a 59 69 6e 74 20 72 61 | ;.Y}.Y.|.Yint ra|
|000018e0| 5f 71 75 65 72 79 28 72 | 6f 6c 6c 2c 77 68 61 74 |_query(r|oll,what|
|000018f0| 29 20 63 68 61 72 20 2a | 72 6f 6c 6c 20 3b 20 69 |) char *|roll ; i|
|00001900| 6e 74 20 77 68 61 74 20 | 3b 0a 59 7b 0a 59 20 20 |nt what |;.Y{.Y  |
|00001910| 20 20 69 6e 74 20 6e 75 | 6d 3d 31 2c 20 64 65 6c |  int nu|m=1, del|
|00001920| 3d 30 20 3b 0a 59 20 20 | 20 20 75 6e 73 69 67 6e |=0 ;.Y  |  unsign|
|00001930| 65 64 20 69 6e 74 20 74 | 79 70 65 3d 30 20 3b 0a |ed int t|ype=0 ;.|
|00001940| 59 20 20 20 20 63 68 61 | 72 20 64 69 63 65 3d 27 |Y    cha|r dice='|
|00001950| 64 27 2c 20 73 69 67 6e | 3d 27 2b 27 20 3b 0a 59 |d', sign|='+' ;.Y|
|00001960| 20 20 20 20 69 6e 74 20 | 76 3d 30 20 3b 0a 59 20 |    int |v=0 ;.Y |
|00001970| 20 20 20 69 6e 74 20 69 | 20 3b 0a 59 20 20 20 20 |   int i| ;.Y    |
|00001980| 69 6e 74 20 73 20 3b 0a | 59 20 20 20 20 69 6e 74 |int s ;.|Y    int|
|00001990| 20 6c 65 67 61 6c 3d 31 | 20 3b 0a 59 0a 59 20 20 | legal=1| ;.Y.Y  |
|000019a0| 20 20 69 66 20 28 72 6f | 6c 6c 5b 30 5d 3d 3d 27 |  if (ro|ll[0]=='|
|000019b0| 64 27 20 7c 7c 20 72 6f | 6c 6c 5b 30 5d 3d 3d 27 |d' || ro|ll[0]=='|
|000019c0| 44 27 29 20 7b 0a 59 09 | 73 20 3d 20 73 73 63 61 |D') {.Y.|s = ssca|
|000019d0| 6e 66 28 72 6f 6c 6c 2c | 22 25 63 25 75 25 63 25 |nf(roll,|"%c%u%c%|
|000019e0| 64 22 2c 26 64 69 63 65 | 2c 26 74 79 70 65 2c 26 |d",&dice|,&type,&|
|000019f0| 73 69 67 6e 2c 26 64 65 | 6c 29 20 3b 0a 59 09 73 |sign,&de|l) ;.Y.s|
|00001a00| 20 2b 3d 20 31 20 3b 0a | 59 20 20 20 20 7d 20 65 | += 1 ;.|Y    } e|
|00001a10| 6c 73 65 20 7b 0a 59 09 | 73 20 3d 20 73 73 63 61 |lse {.Y.|s = ssca|
|00001a20| 6e 66 28 72 6f 6c 6c 2c | 22 25 64 25 63 25 75 25 |nf(roll,|"%d%c%u%|
|00001a30| 63 25 64 22 2c 26 6e 75 | 6d 2c 26 64 69 63 65 2c |c%d",&nu|m,&dice,|
|00001a40| 26 74 79 70 65 2c 26 73 | 69 67 6e 2c 26 64 65 6c |&type,&s|ign,&del|
|00001a50| 29 20 3b 0a 59 20 20 20 | 20 7d 0a 59 20 20 20 20 |) ;.Y   | }.Y    |
|00001a60| 69 66 20 28 73 21 3d 35 | 20 26 26 20 73 21 3d 33 |if (s!=5| && s!=3|
|00001a70| 29 20 7b 0a 59 09 6c 65 | 67 61 6c 20 3d 20 30 20 |) {.Y.le|gal = 0 |
|00001a80| 3b 0a 59 20 20 20 20 7d | 0a 59 20 20 20 20 69 66 |;.Y    }|.Y    if|
|00001a90| 20 28 73 3d 3d 33 29 20 | 7b 0a 59 09 73 69 67 6e | (s==3) |{.Y.sign|
|00001aa0| 20 3d 20 27 2b 27 20 3b | 0a 59 09 64 65 6c 20 3d | = '+' ;|.Y.del =|
|00001ab0| 20 30 20 3b 0a 59 20 20 | 20 20 7d 20 65 6c 73 65 | 0 ;.Y  |  } else|
|00001ac0| 20 7b 0a 59 09 69 66 20 | 28 73 69 67 6e 3d 3d 27 | {.Y.if |(sign=='|
|00001ad0| 2d 27 29 0a 59 09 20 20 | 20 20 64 65 6c 20 3d 20 |-').Y.  |  del = |
|00001ae0| 2d 64 65 6c 20 3b 0a 59 | 20 20 20 20 7d 0a 59 20 |-del ;.Y|    }.Y |
|00001af0| 20 20 20 69 66 20 28 64 | 69 63 65 21 3d 27 64 27 |   if (d|ice!='d'|
|00001b00| 20 26 26 20 64 69 63 65 | 21 3d 27 44 27 29 20 7b | && dice|!='D') {|
|00001b10| 0a 59 09 6c 65 67 61 6c | 20 3d 20 30 20 3b 0a 59 |.Y.legal| = 0 ;.Y|
|00001b20| 20 20 20 20 7d 0a 59 20 | 20 20 20 73 77 69 74 63 |    }.Y |   switc|
|00001b30| 68 20 28 77 68 61 74 29 | 20 7b 0a 59 20 20 20 20 |h (what)| {.Y    |
|00001b40| 20 20 63 61 73 65 20 52 | 41 5f 4d 41 58 3a 0a 59 |  case R|A_MAX:.Y|
|00001b50| 09 72 65 74 75 72 6e 20 | 6e 75 6d 2a 74 79 70 65 |.return |num*type|
|00001b60| 2b 64 65 6c 20 3b 0a 59 | 20 20 20 20 20 20 63 61 |+del ;.Y|      ca|
|00001b70| 73 65 20 52 41 5f 4d 49 | 4e 3a 0a 59 09 72 65 74 |se RA_MI|N:.Y.ret|
|00001b80| 75 72 6e 20 6e 75 6d 2b | 64 65 6c 20 3b 0a 59 20 |urn num+|del ;.Y |
|00001b90| 20 20 20 20 20 63 61 73 | 65 20 52 41 5f 41 56 45 |     cas|e RA_AVE|
|00001ba0| 3a 0a 59 09 72 65 74 75 | 72 6e 20 28 6e 75 6d 2a |:.Y.retu|rn (num*|
|00001bb0| 28 74 79 70 65 2f 32 29 | 29 2b 64 65 6c 20 3b 0a |(type/2)|)+del ;.|
|00001bc0| 59 20 20 20 20 20 20 63 | 61 73 65 20 52 41 5f 4c |Y      c|ase RA_L|
|00001bd0| 45 47 41 4c 3a 0a 59 09 | 72 65 74 75 72 6e 20 6c |EGAL:.Y.|return l|
|00001be0| 65 67 61 6c 20 3b 0a 59 | 20 20 20 20 20 20 64 65 |egal ;.Y|      de|
|00001bf0| 66 61 75 6c 74 3a 0a 59 | 09 72 65 74 75 72 6e 20 |fault:.Y|.return |
|00001c00| 52 41 5f 45 5f 42 41 44 | 51 55 45 52 59 20 3b 0a |RA_E_BAD|QUERY ;.|
|00001c10| 59 20 20 20 20 7d 0a 59 | 20 20 20 20 2f 2a 4e 4f |Y    }.Y|    /*NO|
|00001c20| 54 52 45 41 43 48 45 44 | 2a 2f 0a 59 7d 0a 59 0c |TREACHED|*/.Y}.Y.|
|00001c30| 0a 59 66 6c 6f 61 74 20 | 72 61 5f 66 6c 6f 61 74 |.Yfloat |ra_float|
|00001c40| 28 29 20 0a 59 7b 0a 59 | 20 20 20 20 66 6c 6f 61 |() .Y{.Y|    floa|
|00001c50| 74 20 78 20 3b 0a 59 20 | 20 20 20 78 20 3d 20 28 |t x ;.Y |   x = (|
|00001c60| 72 61 5f 72 61 6e 64 6f | 6d 28 4d 41 58 4c 4f 4e |ra_rando|m(MAXLON|
|00001c70| 47 29 2d 31 29 2f 28 4d | 41 58 4c 4f 4e 47 2b 31 |G)-1)/(M|AXLONG+1|
|00001c80| 2e 30 29 20 3b 0a 59 20 | 20 20 20 72 65 74 75 72 |.0) ;.Y |   retur|
|00001c90| 6e 20 78 20 3b 0a 59 7d | 0a 59 0c 0a 59 2f 2a 0a |n x ;.Y}|.Y..Y/*.|
|00001ca0| 59 20 2a 20 54 68 65 20 | 66 6f 6c 6c 6f 77 69 6e |Y * The |followin|
|00001cb0| 67 20 72 6f 75 74 69 6e | 65 20 69 73 20 74 61 6b |g routin|e is tak|
|00001cc0| 65 6e 20 66 72 6f 6d 20 | 53 4f 46 54 57 41 52 45 |en from |SOFTWARE|
|00001cd0| 20 52 45 43 49 50 49 45 | 53 20 49 4e 20 43 0a 59 | RECIPIE|S IN C.Y|
|00001ce0| 20 2a 20 42 79 20 50 72 | 65 73 73 2c 20 46 6c 61 | * By Pr|ess, Fla|
|00001cf0| 6e 6e 65 72 79 2c 20 61 | 6e 64 20 61 20 63 61 73 |nnery, a|nd a cas|
|00001d00| 74 20 6f 66 20 74 68 6f | 75 73 61 6e 64 73 2e 0a |t of tho|usands..|
|00001d10| 59 20 2a 20 4c 6f 6f 6b | 20 6f 6e 20 70 61 67 65 |Y * Look| on page|
|00001d20| 20 32 31 37 20 28 73 65 | 63 74 69 6f 6e 20 37 2e | 217 (se|ction 7.|
|00001d30| 32 29 0a 59 20 2a 2f 0a | 59 66 6c 6f 61 74 20 72 |2).Y */.|Yfloat r|
|00001d40| 61 5f 67 61 73 64 65 76 | 28 29 0a 59 7b 0a 59 20 |a_gasdev|().Y{.Y |
|00001d50| 20 20 20 73 74 61 74 69 | 63 20 69 6e 74 20 69 73 |   stati|c int is|
|00001d60| 65 74 3d 30 20 3b 0a 59 | 20 20 20 20 73 74 61 74 |et=0 ;.Y|    stat|
|00001d70| 69 63 20 66 6c 6f 61 74 | 20 67 73 65 74 20 3b 0a |ic float| gset ;.|
|00001d80| 59 20 20 20 20 66 6c 6f | 61 74 20 66 61 63 2c 72 |Y    flo|at fac,r|
|00001d90| 2c 76 31 2c 76 32 20 3b | 0a 59 0a 59 20 20 20 20 |,v1,v2 ;|.Y.Y    |
|00001da0| 69 66 20 28 69 73 65 74 | 3d 3d 30 29 20 7b 0a 59 |if (iset|==0) {.Y|
|00001db0| 09 64 6f 20 7b 0a 59 09 | 20 20 20 20 76 31 20 3d |.do {.Y.|    v1 =|
|00001dc0| 20 32 2e 30 2a 72 61 5f | 66 6c 6f 61 74 28 29 2d | 2.0*ra_|float()-|
|00001dd0| 31 2e 30 20 3b 0a 59 09 | 20 20 20 20 76 32 20 3d |1.0 ;.Y.|    v2 =|
|00001de0| 20 32 2e 30 2a 72 61 5f | 66 6c 6f 61 74 28 29 2d | 2.0*ra_|float()-|
|00001df0| 31 2e 30 20 3b 0a 59 09 | 7d 20 77 68 69 6c 65 20 |1.0 ;.Y.|} while |
|00001e00| 28 72 20 3e 3d 20 31 2e | 30 29 20 3b 0a 59 09 66 |(r >= 1.|0) ;.Y.f|
|00001e10| 61 63 20 3d 20 73 71 72 | 74 28 2d 32 2e 30 2a 6c |ac = sqr|t(-2.0*l|
|00001e20| 6f 67 28 72 29 2f 72 29 | 20 3b 0a 59 09 67 73 65 |og(r)/r)| ;.Y.gse|
|00001e30| 74 20 3d 20 76 31 2a 66 | 61 63 20 3b 0a 59 09 69 |t = v1*f|ac ;.Y.i|
|00001e40| 73 65 74 20 3d 20 31 20 | 3b 0a 59 09 72 65 74 75 |set = 1 |;.Y.retu|
|00001e50| 72 6e 20 76 32 2a 66 61 | 63 20 3b 0a 59 20 20 20 |rn v2*fa|c ;.Y   |
|00001e60| 20 7d 20 65 6c 73 65 20 | 7b 0a 59 09 69 73 65 74 | } else |{.Y.iset|
|00001e70| 3d 30 20 3b 0a 59 09 72 | 65 74 75 72 6e 20 67 73 |=0 ;.Y.r|eturn gs|
|00001e80| 65 74 20 3b 0a 59 20 20 | 20 20 7d 0a 59 7d 0a 59 |et ;.Y  |  }.Y}.Y|
|00001e90| 0a 59 72 61 5f 72 61 6e | 67 65 28 6c 6f 77 2c 6d |.Yra_ran|ge(low,m|
|00001ea0| 69 64 64 6c 65 2c 68 69 | 67 68 29 20 69 6e 74 20 |iddle,hi|gh) int |
|00001eb0| 6c 6f 77 20 3b 20 69 6e | 74 20 6d 69 64 64 6c 65 |low ; in|t middle|
|00001ec0| 20 3b 20 69 6e 74 20 68 | 69 67 68 20 3b 0a 59 7b | ; int h|igh ;.Y{|
|00001ed0| 0a 59 20 20 20 20 66 6c | 6f 61 74 20 74 65 6d 70 |.Y    fl|oat temp|
|00001ee0| 20 3b 0a 59 0a 59 20 20 | 20 20 74 65 6d 70 20 3d | ;.Y.Y  |  temp =|
|00001ef0| 20 72 61 5f 67 61 73 64 | 65 76 28 29 20 3b 0a 59 | ra_gasd|ev() ;.Y|
|00001f00| 20 20 20 20 74 65 6d 70 | 20 3d 20 74 65 6d 70 2f |    temp| = temp/|
|00001f10| 33 2e 30 20 3b 0a 59 20 | 20 20 20 69 66 20 28 74 |3.0 ;.Y |   if (t|
|00001f20| 65 6d 70 3d 3d 30 2e 30 | 29 20 72 65 74 75 72 6e |emp==0.0|) return|
|00001f30| 20 6d 69 64 64 6c 65 20 | 3b 0a 59 20 20 20 20 69 | middle |;.Y    i|
|00001f40| 66 20 28 74 65 6d 70 3e | 30 2e 30 29 20 72 65 74 |f (temp>|0.0) ret|
|00001f50| 75 72 6e 20 28 69 6e 74 | 29 20 28 6d 69 64 64 6c |urn (int|) (middl|
|00001f60| 65 2b 28 74 65 6d 70 2a | 28 68 69 67 68 2d 6d 69 |e+(temp*|(high-mi|
|00001f70| 64 64 6c 65 29 29 29 20 | 3b 0a 59 20 20 20 20 69 |ddle))) |;.Y    i|
|00001f80| 66 20 28 74 65 6d 70 3c | 30 2e 30 29 20 72 65 74 |f (temp<|0.0) ret|
|00001f90| 75 72 6e 20 28 69 6e 74 | 29 20 28 6d 69 64 64 6c |urn (int|) (middl|
|00001fa0| 65 2d 28 74 65 6d 70 2a | 28 6d 69 64 64 6c 65 2d |e-(temp*|(middle-|
|00001fb0| 6c 6f 77 29 29 29 20 3b | 0a 59 20 20 20 20 72 65 |low))) ;|.Y    re|
|00001fc0| 74 75 72 6e 20 6d 69 64 | 64 6c 65 20 3b 0a 59 7d |turn mid|dle ;.Y}|
|00001fd0| 0a 59 23 69 66 20 30 0a | 59 2f 2a 0a 59 20 2a 20 |.Y#if 0.|Y/*.Y * |
|00001fe0| 49 74 20 73 68 6f 75 6c | 64 20 62 65 20 75 73 65 |It shoul|d be use|
|00001ff0| 64 20 77 68 65 6e 20 79 | 6f 75 20 6e 65 65 64 20 |d when y|ou need |
|00002000| 74 6f 20 69 6d 70 6c 65 | 6d 65 6e 74 20 72 75 6c |to imple|ment rul|
|00002010| 65 73 20 6c 69 6b 65 3a | 20 22 74 68 65 20 70 6c |es like:| "the pl|
|00002020| 61 79 65 72 0a 59 20 2a | 20 63 61 6e 20 61 6c 6c |ayer.Y *| can all|
|00002030| 6f 63 61 74 65 20 34 20 | 73 6b 69 6c 6c 20 70 6f |ocate 4 |skill po|
|00002040| 69 6e 74 73 20 61 6d 6f | 75 6e 67 20 74 68 65 20 |ints amo|ung the |
|00002050| 66 6f 6c 6c 6f 77 69 6e | 67 20 73 69 78 20 72 75 |followin|g six ru|
|00002060| 6c 65 73 2e 22 20 20 54 | 68 69 73 0a 59 20 2a 20 |les."  T|his.Y * |
|00002070| 77 6f 75 6c 64 20 62 65 | 20 69 6d 70 6c 65 6d 65 |would be| impleme|
|00002080| 6e 74 65 64 20 77 69 74 | 68 20 61 20 63 61 6c 6c |nted wit|h a call|
|00002090| 20 6c 69 6b 65 20 72 61 | 5f 61 6c 6c 6f 63 61 74 | like ra|_allocat|
|000020a0| 65 28 34 2c 36 2c 22 66 | 6c 61 74 22 29 2e 0a 59 |e(4,6,"f|lat")..Y|
|000020b0| 20 2a 20 20 20 20 20 74 | 6f 74 61 6c 20 69 73 20 | *     t|otal is |
|000020c0| 74 68 65 20 74 6f 74 61 | 6c 20 6e 75 6d 62 65 72 |the tota|l number|
|000020d0| 20 6f 66 20 74 68 69 6e | 67 73 20 74 6f 20 62 65 | of thin|gs to be|
|000020e0| 20 61 6c 6c 6f 63 61 74 | 65 64 2e 0a 59 20 2a 20 | allocat|ed..Y * |
|000020f0| 20 20 20 20 62 69 6e 73 | 20 69 73 20 74 68 65 20 |    bins| is the |
|00002100| 6e 75 6d 62 65 72 20 6f | 66 20 70 6c 61 63 65 73 |number o|f places|
|00002110| 20 74 68 69 6e 67 73 20 | 63 61 6e 20 67 6f 2e 0a | things |can go..|
|00002120| 59 20 2a 20 20 20 20 20 | 6d 65 74 68 6f 64 20 69 |Y *     |method i|
|00002130| 73 20 74 68 65 20 61 6c | 67 6f 72 69 74 68 6d 20 |s the al|gorithm |
|00002140| 79 6f 75 20 77 61 6e 74 | 20 74 6f 20 75 73 65 20 |you want| to use |
|00002150| 74 6f 20 64 6f 20 74 68 | 65 20 61 6c 6c 6f 63 61 |to do th|e alloca|
|00002160| 74 69 6f 6e 2e 0a 59 20 | 2a 20 20 20 20 20 20 20 |tion..Y |*       |
|00002170| 20 20 6c 65 67 61 6c 20 | 6d 65 74 68 6f 64 73 20 |  legal |methods |
|00002180| 61 72 65 3a 20 61 6e 79 | 20 64 69 63 65 20 72 6f |are: any| dice ro|
|00002190| 6c 6c 2c 20 61 74 20 66 | 6c 6f 61 74 69 6e 67 20 |ll, at f|loating |
|000021a0| 70 6f 69 6e 74 20 74 65 | 78 74 2e 20 0a 59 20 2a |point te|xt. .Y *|
|000021b0| 20 54 68 69 73 20 72 6f | 75 74 69 6e 65 20 72 65 | This ro|utine re|
|000021c0| 74 75 72 6e 73 20 61 6e | 20 61 72 72 61 79 20 6f |turns an| array o|
|000021d0| 66 20 69 6e 74 65 67 65 | 72 73 20 6f 66 20 62 69 |f intege|rs of bi|
|000021e0| 6e 73 20 73 69 7a 65 2c | 20 77 68 69 63 68 20 69 |ns size,| which i|
|000021f0| 73 20 73 74 61 74 69 63 | 0a 59 20 2a 20 61 6e 64 |s static|.Y * and|
|00002200| 20 77 69 6c 6c 20 62 65 | 20 72 65 75 73 65 64 20 | will be| reused |
|00002210| 77 69 74 68 20 74 68 65 | 20 6e 65 78 74 20 63 61 |with the| next ca|
|00002220| 6c 6c 2e 0a 59 20 2a 2f | 0a 59 69 6e 74 20 2a 72 |ll..Y */|.Yint *r|
|00002230| 61 5f 61 6c 6c 6f 63 61 | 74 65 28 74 6f 74 61 6c |a_alloca|te(total|
|00002240| 2c 62 69 6e 73 2c 6d 65 | 74 68 6f 64 29 20 69 6e |,bins,me|thod) in|
|00002250| 74 20 74 6f 74 61 6c 20 | 3b 20 69 6e 74 20 62 69 |t total |; int bi|
|00002260| 6e 73 20 3b 20 63 68 61 | 72 20 2a 6d 65 74 68 6f |ns ; cha|r *metho|
|00002270| 64 20 3b 0a 59 7b 0a 59 | 20 20 20 20 3b 0a 59 7d |d ;.Y{.Y|    ;.Y}|
|00002280| 0a 59 23 65 6e 64 69 66 | 0a 59 0c 0a 59 23 69 66 |.Y#endif|.Y..Y#if|
|00002290| 20 54 45 53 54 0a 59 0a | 59 23 64 65 66 69 6e 65 | TEST.Y.|Y#define|
|000022a0| 20 43 48 45 43 4b 5f 41 | 52 47 5f 43 4f 55 4e 54 | CHECK_A|RG_COUNT|
|000022b0| 28 6e 75 6d 29 20 20 20 | 20 20 20 20 5c 0a 59 20 |(num)   |    \.Y |
|000022c0| 20 20 20 69 66 20 28 6e | 75 6d 21 3d 63 6f 75 6e |   if (n|um!=coun|
|000022d0| 74 2d 31 29 20 7b 20 20 | 20 20 20 20 20 20 20 20 |t-1) {  |        |
|000022e0| 20 20 5c 0a 59 20 20 20 | 20 20 20 20 20 70 72 69 |  \.Y   |     pri|
|000022f0| 6e 74 66 28 22 72 6e 64 | 74 65 73 74 20 28 25 73 |ntf("rnd|test (%s|
|00002300| 29 3a 20 67 6f 74 20 25 | 64 20 61 72 67 73 2c 20 |): got %|d args, |
|00002310| 62 75 74 20 65 78 70 65 | 63 65 64 20 25 64 20 61 |but expe|ced %d a|
|00002320| 72 67 73 5c 6e 22 2c 20 | 5c 0a 59 09 20 20 20 20 |rgs\n", |\.Y.    |
|00002330| 20 20 20 63 6f 6d 6d 2c | 63 6f 75 6e 74 2d 31 2c |   comm,|count-1,|
|00002340| 6e 75 6d 29 20 3b 20 5c | 0a 59 20 20 20 20 20 20 |num) ; \|.Y      |
|00002350| 20 20 63 6f 6e 74 69 6e | 75 65 20 3b 20 20 20 20 |  contin|ue ;    |
|00002360| 20 7d 20 20 20 20 20 20 | 20 20 20 20 20 5c 0a 59 | }      |     \.Y|
|00002370| 0a 59 6d 61 69 6e 28 29 | 0a 59 7b 0a 59 20 20 20 |.Ymain()|.Y{.Y   |
|00002380| 20 63 68 61 72 20 62 75 | 66 5b 31 30 30 30 5d 20 | char bu|f[1000] |
|00002390| 3b 0a 59 20 20 20 20 63 | 68 61 72 20 61 72 67 31 |;.Y    c|har arg1|
|000023a0| 5b 32 30 5d 2c 20 61 72 | 67 32 5b 32 30 5d 2c 20 |[20], ar|g2[20], |
|000023b0| 61 72 67 33 5b 32 30 5d | 2c 20 61 72 67 34 5b 32 |arg3[20]|, arg4[2|
|000023c0| 30 5d 20 3b 0a 59 20 20 | 20 20 63 68 61 72 20 63 |0] ;.Y  |  char c|
|000023d0| 6f 6d 6d 5b 32 30 5d 20 | 3b 0a 59 20 20 20 20 69 |omm[20] |;.Y    i|
|000023e0| 6e 74 20 63 6f 75 6e 74 | 20 3b 0a 59 20 20 20 20 |nt count| ;.Y    |
|000023f0| 69 6e 74 20 65 63 68 6f | 20 3d 20 30 20 3b 0a 59 |int echo| = 0 ;.Y|
|00002400| 20 20 20 20 69 6e 74 20 | 69 2c 6d 20 3b 0a 59 0a |    int |i,m ;.Y.|
|00002410| 59 20 20 20 20 77 68 69 | 6c 65 20 28 66 67 65 74 |Y    whi|le (fget|
|00002420| 73 28 62 75 66 2c 73 69 | 7a 65 6f 66 28 62 75 66 |s(buf,si|zeof(buf|
|00002430| 29 2c 73 74 64 69 6e 29 | 29 20 7b 20 0a 59 09 69 |),stdin)|) { .Y.i|
|00002440| 66 20 28 65 63 68 6f 29 | 0a 59 09 20 20 20 20 70 |f (echo)|.Y.    p|
|00002450| 72 69 6e 74 66 28 22 25 | 73 22 2c 62 75 66 29 20 |rintf("%|s",buf) |
|00002460| 3b 0a 59 09 63 6f 75 6e | 74 20 3d 20 73 73 63 61 |;.Y.coun|t = ssca|
|00002470| 6e 66 28 62 75 66 2c 22 | 25 73 20 25 73 20 25 73 |nf(buf,"|%s %s %s|
|00002480| 20 25 73 20 25 73 22 2c | 63 6f 6d 6d 2c 61 72 67 | %s %s",|comm,arg|
|00002490| 31 2c 61 72 67 32 2c 61 | 72 67 33 2c 61 72 67 34 |1,arg2,a|rg3,arg4|
|000024a0| 29 20 3b 0a 59 09 69 66 | 20 28 21 73 74 72 63 6d |) ;.Y.if| (!strcm|
|000024b0| 70 28 63 6f 6d 6d 2c 22 | 71 75 69 74 22 29 29 20 |p(comm,"|quit")) |
|000024c0| 7b 0a 59 09 20 20 20 20 | 65 78 69 74 28 30 29 20 |{.Y.    |exit(0) |
|000024d0| 3b 0a 59 09 7d 20 65 6c | 73 65 20 69 66 20 28 21 |;.Y.} el|se if (!|
|000024e0| 73 74 72 6e 63 6d 70 28 | 63 6f 6d 6d 2c 22 23 22 |strncmp(|comm,"#"|
|000024f0| 2c 31 29 29 20 7b 0a 59 | 09 20 20 20 20 63 6f 6e |,1)) {.Y|.    con|
|00002500| 74 69 6e 75 65 20 3b 0a | 59 09 7d 20 65 6c 73 65 |tinue ;.|Y.} else|
|00002510| 20 69 66 20 28 21 73 74 | 72 63 6d 70 28 63 6f 6d | if (!st|rcmp(com|
|00002520| 6d 2c 22 65 63 68 6f 22 | 29 29 20 7b 0a 59 09 20 |m,"echo"|)) {.Y. |
|00002530| 20 20 20 65 63 68 6f 20 | 3d 20 31 20 3b 0a 59 09 |   echo |= 1 ;.Y.|
|00002540| 7d 20 65 6c 73 65 20 69 | 66 20 28 21 73 74 72 63 |} else i|f (!strc|
|00002550| 6d 70 28 63 6f 6d 6d 2c | 22 72 6f 6c 6c 22 29 29 |mp(comm,|"roll"))|
|00002560| 20 7b 0a 59 09 20 20 20 | 20 43 48 45 43 4b 5f 41 | {.Y.   | CHECK_A|
|00002570| 52 47 5f 43 4f 55 4e 54 | 28 32 29 20 3b 0a 59 09 |RG_COUNT|(2) ;.Y.|
|00002580| 20 20 20 20 6d 20 3d 20 | 61 74 6f 69 28 61 72 67 |    m = |atoi(arg|
|00002590| 31 29 20 3b 0a 59 09 20 | 20 20 20 66 6f 72 28 69 |1) ;.Y. |   for(i|
|000025a0| 3d 30 20 3b 20 69 3c 6d | 20 3b 20 69 2b 2b 29 0a |=0 ; i<m| ; i++).|
|000025b0| 59 09 09 70 72 69 6e 74 | 66 28 22 25 64 20 22 2c |Y..print|f("%d ",|
|000025c0| 72 61 5f 72 6f 6c 6c 28 | 61 72 67 32 29 29 20 3b |ra_roll(|arg2)) ;|
|000025d0| 0a 59 09 20 20 20 20 70 | 72 69 6e 74 66 28 22 5c |.Y.    p|rintf("\|
|000025e0| 6e 22 29 20 3b 0a 59 09 | 7d 20 65 6c 73 65 20 69 |n") ;.Y.|} else i|
|000025f0| 66 20 28 21 73 74 72 63 | 6d 70 28 63 6f 6d 6d 2c |f (!strc|mp(comm,|
|00002600| 22 71 75 65 72 79 22 29 | 29 20 7b 0a 59 09 20 20 |"query")|) {.Y.  |
|00002610| 20 20 43 48 45 43 4b 5f | 41 52 47 5f 43 4f 55 4e |  CHECK_|ARG_COUN|
|00002620| 54 28 32 29 20 3b 0a 59 | 09 20 20 20 20 6d 20 3d |T(2) ;.Y|.    m =|
|00002630| 20 61 74 6f 69 28 61 72 | 67 31 29 20 3b 0a 59 09 | atoi(ar|g1) ;.Y.|
|00002640| 20 20 20 20 69 66 20 28 | 21 6d 29 20 7b 0a 59 09 |    if (|!m) {.Y.|
|00002650| 09 69 66 20 28 21 73 74 | 72 63 6d 70 28 61 72 67 |.if (!st|rcmp(arg|
|00002660| 31 2c 22 52 41 5f 4d 49 | 4e 22 29 29 0a 59 09 09 |1,"RA_MI|N")).Y..|
|00002670| 20 20 20 20 6d 20 3d 20 | 52 41 5f 4d 49 4e 20 3b |    m = |RA_MIN ;|
|00002680| 0a 59 09 09 65 6c 73 65 | 20 69 66 20 28 21 73 74 |.Y..else| if (!st|
|00002690| 72 63 6d 70 28 61 72 67 | 31 2c 22 52 41 5f 4d 41 |rcmp(arg|1,"RA_MA|
|000026a0| 58 22 29 29 0a 59 09 09 | 20 20 20 20 6d 20 3d 20 |X")).Y..|    m = |
|000026b0| 52 41 5f 4d 41 58 20 3b | 0a 59 09 09 65 6c 73 65 |RA_MAX ;|.Y..else|
|000026c0| 20 69 66 20 28 21 73 74 | 72 63 6d 70 28 61 72 67 | if (!st|rcmp(arg|
|000026d0| 31 2c 22 52 41 5f 41 56 | 45 22 29 29 0a 59 09 09 |1,"RA_AV|E")).Y..|
|000026e0| 20 20 20 20 6d 20 3d 20 | 52 41 5f 41 56 45 20 3b |    m = |RA_AVE ;|
|000026f0| 0a 59 09 09 65 6c 73 65 | 20 69 66 20 28 21 73 74 |.Y..else| if (!st|
|00002700| 72 63 6d 70 28 61 72 67 | 31 2c 22 52 41 5f 4c 45 |rcmp(arg|1,"RA_LE|
|00002710| 47 41 4c 22 29 29 0a 59 | 09 09 20 20 20 20 6d 20 |GAL")).Y|..    m |
|00002720| 3d 20 52 41 5f 4c 45 47 | 41 4c 20 3b 0a 59 09 20 |= RA_LEG|AL ;.Y. |
|00002730| 20 20 20 7d 0a 59 09 20 | 20 20 20 70 72 69 6e 74 |   }.Y. |   print|
|00002740| 66 28 22 25 64 5c 6e 22 | 2c 72 61 5f 71 75 65 72 |f("%d\n"|,ra_quer|
|00002750| 79 28 61 72 67 32 2c 6d | 29 29 20 3b 0a 59 09 7d |y(arg2,m|)) ;.Y.}|
|00002760| 20 65 6c 73 65 20 69 66 | 20 28 21 73 74 72 63 6d | else if| (!strcm|
|00002770| 70 28 63 6f 6d 6d 2c 22 | 63 61 72 64 22 29 29 20 |p(comm,"|card")) |
|00002780| 7b 0a 59 09 20 20 20 20 | 43 48 45 43 4b 5f 41 52 |{.Y.    |CHECK_AR|
|00002790| 47 5f 43 4f 55 4e 54 28 | 31 29 20 3b 0a 59 09 20 |G_COUNT(|1) ;.Y. |
|000027a0| 20 20 20 6d 20 3d 20 61 | 74 6f 69 28 61 72 67 31 |   m = a|toi(arg1|
|000027b0| 29 20 3b 0a 59 09 20 20 | 20 20 66 6f 72 28 69 3d |) ;.Y.  |  for(i=|
|000027c0| 30 20 3b 20 69 3c 6d 20 | 3b 20 69 2b 2b 29 0a 59 |0 ; i<m |; i++).Y|
|000027d0| 09 09 70 72 69 6e 74 66 | 28 22 25 73 20 22 2c 72 |..printf|("%s ",r|
|000027e0| 61 5f 63 61 72 64 28 29 | 29 20 3b 0a 59 09 20 20 |a_card()|) ;.Y.  |
|000027f0| 20 20 70 72 69 6e 74 66 | 28 22 5c 6e 22 29 20 3b |  printf|("\n") ;|
|00002800| 0a 59 09 7d 20 65 6c 73 | 65 20 69 66 20 28 21 73 |.Y.} els|e if (!s|
|00002810| 74 72 63 6d 70 28 63 6f | 6d 6d 2c 22 73 65 65 64 |trcmp(co|mm,"seed|
|00002820| 22 29 29 20 7b 0a 59 09 | 20 20 20 20 43 48 45 43 |")) {.Y.|    CHEC|
|00002830| 4b 5f 41 52 47 5f 43 4f | 55 4e 54 28 31 29 20 3b |K_ARG_CO|UNT(1) ;|
|00002840| 0a 59 09 20 20 20 20 72 | 61 5f 73 65 65 64 28 61 |.Y.    r|a_seed(a|
|00002850| 74 6f 69 28 61 72 67 31 | 29 29 20 3b 0a 59 09 7d |toi(arg1|)) ;.Y.}|
|00002860| 20 65 6c 73 65 20 69 66 | 20 28 21 73 74 72 63 6d | else if| (!strcm|
|00002870| 70 28 63 6f 6d 6d 2c 22 | 6c 6f 67 22 29 29 20 7b |p(comm,"|log")) {|
|00002880| 0a 59 09 20 20 20 20 43 | 48 45 43 4b 5f 41 52 47 |.Y.    C|HECK_ARG|
|00002890| 5f 43 4f 55 4e 54 28 32 | 29 20 3b 0a 59 09 20 20 |_COUNT(2|) ;.Y.  |
|000028a0| 20 20 72 61 5f 6c 6f 67 | 67 69 6e 67 28 61 74 6f |  ra_log|ging(ato|
|000028b0| 69 28 61 72 67 31 29 2c | 61 72 67 32 29 20 3b 0a |i(arg1),|arg2) ;.|
|000028c0| 59 09 7d 20 65 6c 73 65 | 20 69 66 20 28 21 73 74 |Y.} else| if (!st|
|000028d0| 72 63 6d 70 28 63 6f 6d | 6d 2c 22 66 6c 6f 61 74 |rcmp(com|m,"float|
|000028e0| 22 29 29 20 7b 0a 59 09 | 20 20 20 20 43 48 45 43 |")) {.Y.|    CHEC|
|000028f0| 4b 5f 41 52 47 5f 43 4f | 55 4e 54 28 31 29 20 3b |K_ARG_CO|UNT(1) ;|
|00002900| 0a 59 09 20 20 20 20 6d | 20 3d 20 61 74 6f 69 28 |.Y.    m| = atoi(|
|00002910| 61 72 67 31 29 20 3b 0a | 59 09 20 20 20 20 66 6f |arg1) ;.|Y.    fo|
|00002920| 72 28 69 3d 30 20 3b 20 | 69 3c 6d 20 3b 20 69 2b |r(i=0 ; |i<m ; i+|
|00002930| 2b 29 20 7b 0a 59 09 09 | 70 72 69 6e 74 66 28 22 |+) {.Y..|printf("|
|00002940| 25 67 20 22 2c 72 61 5f | 66 6c 6f 61 74 28 29 29 |%g ",ra_|float())|
|00002950| 20 3b 0a 59 09 09 69 66 | 20 28 21 28 69 25 35 29 | ;.Y..if| (!(i%5)|
|00002960| 29 20 70 72 69 6e 74 66 | 28 22 5c 6e 22 29 20 3b |) printf|("\n") ;|
|00002970| 0a 59 20 20 20 20 20 20 | 20 20 20 20 20 20 7d 0a |.Y      |      }.|
|00002980| 59 09 20 20 20 20 70 72 | 69 6e 74 66 28 22 5c 6e |Y.    pr|intf("\n|
|00002990| 22 29 20 3b 0a 59 09 7d | 20 65 6c 73 65 20 69 66 |") ;.Y.}| else if|
|000029a0| 20 28 21 73 74 72 63 6d | 70 28 63 6f 6d 6d 2c 22 | (!strcm|p(comm,"|
|000029b0| 67 61 73 64 65 76 22 29 | 29 20 7b 0a 59 09 20 20 |gasdev")|) {.Y.  |
|000029c0| 20 20 43 48 45 43 4b 5f | 41 52 47 5f 43 4f 55 4e |  CHECK_|ARG_COUN|
|000029d0| 54 28 31 29 20 3b 0a 59 | 09 20 20 20 20 6d 20 3d |T(1) ;.Y|.    m =|
|000029e0| 20 61 74 6f 69 28 61 72 | 67 31 29 20 3b 0a 59 09 | atoi(ar|g1) ;.Y.|
|000029f0| 20 20 20 20 66 6f 72 28 | 69 3d 30 20 3b 20 69 3c |    for(|i=0 ; i<|
|00002a00| 6d 20 3b 20 69 2b 2b 29 | 0a 59 09 09 70 72 69 6e |m ; i++)|.Y..prin|
|00002a10| 74 66 28 22 25 67 20 22 | 2c 72 61 5f 67 61 73 64 |tf("%g "|,ra_gasd|
|00002a20| 65 76 28 29 29 20 3b 0a | 59 09 20 20 20 20 70 72 |ev()) ;.|Y.    pr|
|00002a30| 69 6e 74 66 28 22 5c 6e | 22 29 20 3b 0a 59 09 7d |intf("\n|") ;.Y.}|
|00002a40| 20 65 6c 73 65 20 69 66 | 20 28 21 73 74 72 63 6d | else if| (!strcm|
|00002a50| 70 28 63 6f 6d 6d 2c 22 | 72 61 6e 67 65 22 29 29 |p(comm,"|range"))|
|00002a60| 20 7b 0a 59 09 20 20 20 | 20 43 48 45 43 4b 5f 41 | {.Y.   | CHECK_A|
|00002a70| 52 47 5f 43 4f 55 4e 54 | 28 34 29 20 3b 0a 59 09 |RG_COUNT|(4) ;.Y.|
|00002a80| 20 20 20 20 6d 20 3d 20 | 61 74 6f 69 28 61 72 67 |    m = |atoi(arg|
|00002a90| 31 29 20 3b 0a 59 09 20 | 20 20 20 66 6f 72 28 69 |1) ;.Y. |   for(i|
|00002aa0| 3d 30 20 3b 20 69 3c 6d | 20 3b 20 69 2b 2b 29 0a |=0 ; i<m| ; i++).|
|00002ab0| 59 09 09 70 72 69 6e 74 | 66 28 22 25 67 20 22 2c |Y..print|f("%g ",|
|00002ac0| 72 61 5f 72 61 6e 67 65 | 28 61 74 6f 69 28 61 72 |ra_range|(atoi(ar|
|00002ad0| 67 32 29 2c 61 74 6f 69 | 28 61 72 67 33 29 2c 61 |g2),atoi|(arg3),a|
|00002ae0| 74 6f 69 28 61 72 67 34 | 29 29 29 20 3b 0a 59 09 |toi(arg4|))) ;.Y.|
|00002af0| 20 20 20 20 70 72 69 6e | 74 66 28 22 5c 6e 22 29 |    prin|tf("\n")|
|00002b00| 20 3b 0a 59 09 7d 20 65 | 6c 73 65 20 7b 0a 59 09 | ;.Y.} e|lse {.Y.|
|00002b10| 20 20 20 20 70 72 69 6e | 74 66 28 22 49 6c 6c 65 |    prin|tf("Ille|
|00002b20| 67 61 6c 20 74 65 73 74 | 20 63 6f 6d 6d 61 6e 64 |gal test| command|
|00002b30| 2e 20 20 4c 65 67 61 6c | 20 63 6f 6d 6d 61 6e 64 |.  Legal| command|
|00002b40| 73 20 61 72 65 3a 5c 6e | 22 29 20 3b 0a 59 09 20 |s are:\n|") ;.Y. |
|00002b50| 20 20 20 70 72 69 6e 74 | 66 28 22 71 75 69 74 2c |   print|f("quit,|
|00002b60| 20 72 6f 6c 6c 2c 20 63 | 61 72 64 2c 20 73 65 65 | roll, c|ard, see|
|00002b70| 64 2c 20 66 6c 6f 61 74 | 2c 20 6c 6f 67 2c 20 71 |d, float|, log, q|
|00002b80| 75 65 72 79 2c 20 67 61 | 73 64 65 76 2c 20 61 6e |uery, ga|sdev, an|
|00002b90| 64 20 72 61 6e 67 65 2e | 5c 6e 22 29 20 3b 0a 59 |d range.|\n") ;.Y|
|00002ba0| 09 20 20 20 20 70 72 69 | 6e 74 66 28 22 4e 6f 74 |.    pri|ntf("Not|
|00002bb0| 65 20 74 68 61 74 20 74 | 68 65 73 65 20 61 72 65 |e that t|hese are|
|00002bc0| 20 61 6c 6c 20 6c 6f 77 | 65 72 20 63 61 73 65 20 | all low|er case |
|00002bd0| 6e 61 6d 65 73 2e 5c 6e | 22 29 20 3b 0a 59 09 7d |names.\n|") ;.Y.}|
|00002be0| 0a 59 20 20 20 20 7d 0a | 59 20 20 20 20 70 72 69 |.Y    }.|Y    pri|
|00002bf0| 6e 74 66 28 22 5c 6e 22 | 29 20 3b 0a 59 20 20 20 |ntf("\n"|) ;.Y   |
|00002c00| 20 65 78 69 74 28 30 29 | 20 3b 0a 59 7d 0a 59 0a | exit(0)| ;.Y}.Y.|
|00002c10| 59 23 65 6e 64 69 66 0a | 59 0a 53 48 41 52 5f 45 |Y#endif.|Y.SHAR_E|
|00002c20| 4f 46 0a 66 69 0a 69 66 | 20 74 65 73 74 20 2d 66 |OF.fi.if| test -f|
|00002c30| 20 27 74 61 62 6c 65 73 | 69 6d 70 6c 65 2e 68 27 | 'tables|imple.h'|
|00002c40| 0a 74 68 65 6e 0a 09 65 | 63 68 6f 20 73 68 61 72 |.then..e|cho shar|
|00002c50| 3a 20 22 77 69 6c 6c 20 | 6e 6f 74 20 6f 76 65 72 |: "will |not over|
|00002c60| 2d 77 72 69 74 65 20 65 | 78 69 73 74 69 6e 67 20 |-write e|xisting |
|00002c70| 66 69 6c 65 20 27 74 61 | 62 6c 65 73 69 6d 70 6c |file 'ta|blesimpl|
|00002c80| 65 2e 68 27 22 0a 65 6c | 73 65 0a 73 65 64 20 27 |e.h'".el|se.sed '|
|00002c90| 73 2f 5e 59 2f 2f 27 20 | 3c 3c 20 5c 53 48 41 52 |s/^Y//' |<< \SHAR|
|00002ca0| 5f 45 4f 46 20 3e 20 27 | 74 61 62 6c 65 73 69 6d |_EOF > '|tablesim|
|00002cb0| 70 6c 65 2e 68 27 0a 59 | 2f 2a 0a 59 20 2a 20 54 |ple.h'.Y|/*.Y * T|
|00002cc0| 41 42 4c 45 53 49 4d 50 | 4c 45 2e 48 0a 59 20 2a |ABLESIMP|LE.H.Y *|
|00002cd0| 20 42 79 20 4a 6f 73 68 | 75 61 20 4c 65 76 79 0a | By Josh|ua Levy.|
|00002ce0| 59 20 2a 20 54 68 69 73 | 20 68 65 61 64 65 72 20 |Y * This| header |
|00002cf0| 72 6f 75 74 69 6e 65 20 | 73 68 6f 75 6c 64 20 6f |routine |should o|
|00002d00| 6e 6c 79 20 62 65 20 69 | 6e 63 6c 75 64 65 64 20 |nly be i|ncluded |
|00002d10| 69 6e 20 74 61 62 6c 65 | 2e 63 20 61 6e 64 20 74 |in table|.c and t|
|00002d20| 61 62 6c 65 73 69 6d 70 | 6c 65 2e 63 21 20 0a 59 |ablesimp|le.c! .Y|
|00002d30| 20 2a 20 49 74 20 6d 75 | 73 74 20 62 65 20 62 65 | * It mu|st be be|
|00002d40| 66 6f 72 65 20 74 68 65 | 20 69 6e 63 6c 75 64 65 |fore the| include|
|00002d50| 20 66 69 6c 65 20 66 6f | 72 20 74 61 62 6c 65 2e | file fo|r table.|
|00002d60| 68 0a 59 20 2a 2f 0a 59 | 65 78 74 65 72 6e 20 69 |h.Y */.Y|extern i|
|00002d70| 6e 74 20 74 62 5f 73 69 | 6d 70 6c 65 5f 62 61 63 |nt tb_si|mple_bac|
|00002d80| 6b 28 29 20 3b 0a 59 65 | 78 74 65 72 6e 20 69 6e |k() ;.Ye|xtern in|
|00002d90| 74 20 74 62 5f 73 69 6d | 70 6c 65 5f 63 68 6f 6f |t tb_sim|ple_choo|
|00002da0| 73 65 28 29 20 3b 0a 59 | 65 78 74 65 72 6e 20 69 |se() ;.Y|extern i|
|00002db0| 6e 74 20 74 62 5f 73 69 | 6d 70 6c 65 5f 66 72 65 |nt tb_si|mple_fre|
|00002dc0| 65 28 29 20 3b 0a 59 65 | 78 74 65 72 6e 20 69 6e |e() ;.Ye|xtern in|
|00002dd0| 74 20 74 62 5f 73 69 6d | 70 6c 65 5f 70 72 69 6e |t tb_sim|ple_prin|
|00002de0| 74 28 29 20 3b 0a 59 65 | 78 74 65 72 6e 20 69 6e |t() ;.Ye|xtern in|
|00002df0| 74 20 74 62 5f 73 69 6d | 70 6c 65 5f 72 65 61 64 |t tb_sim|ple_read|
|00002e00| 28 29 20 3b 0a 59 65 78 | 74 65 72 6e 20 69 6e 74 |() ;.Yex|tern int|
|00002e10| 20 74 62 5f 73 69 6d 70 | 6c 65 5f 75 73 65 28 29 | tb_simp|le_use()|
|00002e20| 20 3b 0a 59 0a 59 74 79 | 70 65 64 65 66 20 73 74 | ;.Y.Yty|pedef st|
|00002e30| 72 75 63 74 20 7b 0a 59 | 20 20 20 20 69 6e 74 20 |ruct {.Y|    int |
|00002e40| 66 69 72 73 74 20 3b 0a | 59 20 20 20 20 69 6e 74 |first ;.|Y    int|
|00002e50| 20 6c 61 73 74 20 3b 0a | 59 20 20 20 20 63 68 61 | last ;.|Y    cha|
|00002e60| 72 20 2a 72 65 73 75 6c | 74 20 3b 0a 59 7d 20 73 |r *resul|t ;.Y} s|
|00002e70| 69 6d 70 6c 65 72 6f 77 | 5f 74 20 3b 0a 59 0a 59 |implerow|_t ;.Y.Y|
|00002e80| 74 79 70 65 64 65 66 20 | 73 74 72 75 63 74 20 7b |typedef |struct {|
|00002e90| 0a 59 20 20 20 20 69 6e | 74 20 74 79 70 65 20 3b |.Y    in|t type ;|
|00002ea0| 0a 59 20 20 20 20 63 68 | 61 72 20 2a 74 69 74 6c |.Y    ch|ar *titl|
|00002eb0| 65 20 3b 0a 59 20 20 20 | 20 63 68 61 72 20 72 6f |e ;.Y   | char ro|
|00002ec0| 6c 6c 5b 31 30 5d 20 3b | 0a 59 20 20 20 20 63 68 |ll[10] ;|.Y    ch|
|00002ed0| 61 72 20 2a 73 6f 75 72 | 63 65 20 3b 0a 59 20 20 |ar *sour|ce ;.Y  |
|00002ee0| 20 20 69 6e 74 20 6e 75 | 6d 72 6f 77 73 20 3b 0a |  int nu|mrows ;.|
|00002ef0| 59 20 20 20 20 73 69 6d | 70 6c 65 72 6f 77 5f 74 |Y    sim|plerow_t|
|00002f00| 20 72 6f 77 73 5b 31 5d | 20 3b 0a 59 7d 20 73 69 | rows[1]| ;.Y} si|
|00002f10| 6d 70 6c 65 74 61 62 6c | 65 5f 74 20 3b 0a 59 0a |mpletabl|e_t ;.Y.|
|00002f20| 59 0a 53 48 41 52 5f 45 | 4f 46 0a 66 69 0a 69 66 |Y.SHAR_E|OF.fi.if|
|00002f30| 20 74 65 73 74 20 2d 66 | 20 27 74 61 62 6c 65 6d | test -f| 'tablem|
|00002f40| 75 6c 74 69 2e 68 27 0a | 74 68 65 6e 0a 09 65 63 |ulti.h'.|then..ec|
|00002f50| 68 6f 20 73 68 61 72 3a | 20 22 77 69 6c 6c 20 6e |ho shar:| "will n|
|00002f60| 6f 74 20 6f 76 65 72 2d | 77 72 69 74 65 20 65 78 |ot over-|write ex|
|00002f70| 69 73 74 69 6e 67 20 66 | 69 6c 65 20 27 74 61 62 |isting f|ile 'tab|
|00002f80| 6c 65 6d 75 6c 74 69 2e | 68 27 22 0a 65 6c 73 65 |lemulti.|h'".else|
|00002f90| 0a 73 65 64 20 27 73 2f | 5e 59 2f 2f 27 20 3c 3c |.sed 's/|^Y//' <<|
|00002fa0| 20 5c 53 48 41 52 5f 45 | 4f 46 20 3e 20 27 74 61 | \SHAR_E|OF > 'ta|
|00002fb0| 62 6c 65 6d 75 6c 74 69 | 2e 68 27 0a 59 2f 2a 0a |blemulti|.h'.Y/*.|
|00002fc0| 59 20 2a 20 54 41 42 4c | 45 4d 55 4c 54 49 2e 48 |Y * TABL|EMULTI.H|
|00002fd0| 0a 59 20 2a 20 42 79 20 | 4a 6f 73 68 75 61 20 4c |.Y * By |Joshua L|
|00002fe0| 65 76 79 0a 59 20 2a 0a | 59 20 2a 20 54 68 69 73 |evy.Y *.|Y * This|
|00002ff0| 20 68 65 61 64 65 72 20 | 72 6f 75 74 69 6e 65 20 | header |routine |
|00003000| 73 68 6f 75 6c 64 20 6f | 6e 6c 79 20 62 65 20 69 |should o|nly be i|
|00003010| 6e 63 6c 75 64 65 64 20 | 69 6e 20 74 61 62 6c 65 |ncluded |in table|
|00003020| 2e 63 20 61 6e 64 20 74 | 61 62 6c 65 6d 75 6c 74 |.c and t|ablemult|
|00003030| 69 2e 63 21 20 0a 59 20 | 2a 20 49 74 20 6d 75 73 |i.c! .Y |* It mus|
|00003040| 74 20 62 65 20 62 65 66 | 6f 72 65 20 74 68 65 20 |t be bef|ore the |
|00003050| 69 6e 63 6c 75 64 65 20 | 66 69 6c 65 20 66 6f 72 |include |file for|
|00003060| 20 74 61 62 6c 65 2e 68 | 0a 59 20 2a 2f 0a 59 0a | table.h|.Y */.Y.|
|00003070| 59 65 78 74 65 72 6e 20 | 69 6e 74 20 74 62 5f 6d |Yextern |int tb_m|
|00003080| 75 6c 74 69 5f 62 61 63 | 6b 28 29 20 3b 0a 59 65 |ulti_bac|k() ;.Ye|
|00003090| 78 74 65 72 6e 20 69 6e | 74 20 74 62 5f 6d 75 6c |xtern in|t tb_mul|
|000030a0| 74 69 5f 63 68 6f 6f 73 | 65 28 29 20 3b 0a 59 65 |ti_choos|e() ;.Ye|
|000030b0| 78 74 65 72 6e 20 69 6e | 74 20 74 62 5f 6d 75 6c |xtern in|t tb_mul|
|000030c0| 74 69 5f 66 72 65 65 28 | 29 20 3b 0a 59 65 78 74 |ti_free(|) ;.Yext|
|000030d0| 65 72 6e 20 69 6e 74 20 | 74 62 5f 6d 75 6c 74 69 |ern int |tb_multi|
|000030e0| 5f 70 72 69 6e 74 28 29 | 20 3b 0a 59 65 78 74 65 |_print()| ;.Yexte|
|000030f0| 72 6e 20 69 6e 74 20 74 | 62 5f 6d 75 6c 74 69 5f |rn int t|b_multi_|
|00003100| 72 65 61 64 28 29 20 3b | 0a 59 65 78 74 65 72 6e |read() ;|.Yextern|
|00003110| 20 69 6e 74 20 74 62 5f | 6d 75 6c 74 69 5f 75 73 | int tb_|multi_us|
|00003120| 65 28 29 20 3b 0a 59 0a | 59 74 79 70 65 64 65 66 |e() ;.Y.|Ytypedef|
|00003130| 20 73 74 72 75 63 74 20 | 7b 0a 59 20 20 20 20 69 | struct |{.Y    i|
|00003140| 6e 74 20 66 69 72 73 74 | 20 3b 0a 59 20 20 20 20 |nt first| ;.Y    |
|00003150| 69 6e 74 20 6c 61 73 74 | 20 3b 0a 59 20 20 20 20 |int last| ;.Y    |
|00003160| 63 68 61 72 20 2a 72 65 | 73 75 6c 74 5b 31 5d 20 |char *re|sult[1] |
|00003170| 3b 0a 59 7d 20 6d 75 6c | 74 69 72 6f 77 5f 74 20 |;.Y} mul|tirow_t |
|00003180| 3b 0a 59 0a 59 74 79 70 | 65 64 65 66 20 73 74 72 |;.Y.Ytyp|edef str|
|00003190| 75 63 74 20 7b 0a 59 20 | 20 20 20 69 6e 74 20 74 |uct {.Y |   int t|
|000031a0| 79 70 65 20 3b 0a 59 20 | 20 20 20 63 68 61 72 20 |ype ;.Y |   char |
|000031b0| 2a 74 69 74 6c 65 20 3b | 0a 59 20 20 20 20 63 68 |*title ;|.Y    ch|
|000031c0| 61 72 20 72 6f 6c 6c 5b | 31 30 5d 20 3b 0a 59 20 |ar roll[|10] ;.Y |
|000031d0| 20 20 20 63 68 61 72 20 | 2a 73 6f 75 72 63 65 20 |   char |*source |
|000031e0| 3b 0a 59 20 20 20 20 69 | 6e 74 20 6e 75 6d 72 6f |;.Y    i|nt numro|
|000031f0| 77 73 20 3b 0a 59 20 20 | 20 20 69 6e 74 20 6e 75 |ws ;.Y  |  int nu|
|00003200| 6d 63 6f 6c 73 20 3b 0a | 59 20 20 20 20 63 68 61 |mcols ;.|Y    cha|
|00003210| 72 20 2a 2a 63 6f 6c 6e | 61 6d 65 73 20 3b 0a 59 |r **coln|ames ;.Y|
|00003220| 20 20 20 20 6d 75 6c 74 | 69 72 6f 77 5f 74 20 2a |    mult|irow_t *|
|00003230| 72 6f 77 73 5b 31 5d 20 | 3b 0a 59 7d 20 6d 75 6c |rows[1] |;.Y} mul|
|00003240| 74 69 74 61 62 6c 65 5f | 74 20 3b 0a 59 0a 59 0a |titable_|t ;.Y.Y.|
|00003250| 53 48 41 52 5f 45 4f 46 | 0a 66 69 0a 69 66 20 74 |SHAR_EOF|.fi.if t|
|00003260| 65 73 74 20 2d 66 20 27 | 4d 61 6b 65 66 69 6c 65 |est -f '|Makefile|
|00003270| 27 0a 74 68 65 6e 0a 09 | 65 63 68 6f 20 73 68 61 |'.then..|echo sha|
|00003280| 72 3a 20 22 77 69 6c 6c | 20 6e 6f 74 20 6f 76 65 |r: "will| not ove|
|00003290| 72 2d 77 72 69 74 65 20 | 65 78 69 73 74 69 6e 67 |r-write |existing|
|000032a0| 20 66 69 6c 65 20 27 4d | 61 6b 65 66 69 6c 65 27 | file 'M|akefile'|
|000032b0| 22 0a 65 6c 73 65 0a 73 | 65 64 20 27 73 2f 5e 59 |".else.s|ed 's/^Y|
|000032c0| 2f 2f 27 20 3c 3c 20 5c | 53 48 41 52 5f 45 4f 46 |//' << \|SHAR_EOF|
|000032d0| 20 3e 20 27 4d 61 6b 65 | 66 69 6c 65 27 0a 59 23 | > 'Make|file'.Y#|
|000032e0| 0a 59 23 20 4d 61 6b 65 | 66 69 6c 65 20 66 6f 72 |.Y# Make|file for|
|000032f0| 20 74 68 65 20 74 61 62 | 6c 65 20 61 6e 64 20 72 | the tab|le and r|
|00003300| 61 6e 64 6f 6d 20 75 74 | 69 6c 69 74 79 20 70 61 |andom ut|ility pa|
|00003310| 63 6b 61 67 65 73 0a 59 | 23 20 61 6e 64 20 73 6f |ckages.Y|# and so|
|00003320| 6d 65 20 70 72 6f 67 72 | 61 6d 73 20 77 68 69 63 |me progr|ams whic|
|00003330| 68 20 75 73 65 20 74 68 | 65 6d 2e 0a 59 23 20 62 |h use th|em..Y# b|
|00003340| 79 20 4a 6f 73 68 75 61 | 20 4c 65 76 79 0a 59 23 |y Joshua| Levy.Y#|
|00003350| 0a 59 0a 59 4c 20 3d 20 | 74 61 62 6c 65 2e 61 20 |.Y.YL = |table.a |
|00003360| 72 61 6e 64 6f 6d 2e 6f | 20 2d 6c 6d 0a 59 4e 20 |random.o| -lm.YN |
|00003370| 3d 20 74 61 62 6c 65 2e | 61 20 72 61 6e 64 6f 6d |= table.|a random|
|00003380| 2e 6f 0a 59 48 20 3d 20 | 74 61 62 6c 65 2e 68 20 |.o.YH = |table.h |
|00003390| 72 61 6e 64 6f 6d 2e 68 | 0a 59 44 20 3d 20 0a 59 |random.h|.YD = .Y|
|000033a0| 23 44 3d 20 2d 44 4e 45 | 45 44 44 55 50 0a 59 52 |#D= -DNE|EDDUP.YR|
|000033b0| 20 3d 20 72 61 6e 6c 69 | 62 20 20 23 20 42 53 44 | = ranli|b  # BSD|
|000033c0| 20 6e 65 65 64 73 20 72 | 61 6e 6c 69 62 0a 59 23 | needs r|anlib.Y#|
|000033d0| 52 20 3d 20 6c 73 20 20 | 20 20 20 23 20 53 69 6e |R = ls  |   # Sin|
|000033e0| 63 65 20 53 79 73 56 20 | 64 6f 65 73 20 6e 6f 74 |ce SysV |does not|
|000033f0| 20 68 61 76 65 20 72 61 | 6e 6c 69 62 2c 20 74 68 | have ra|nlib, th|
|00003400| 69 73 20 69 73 20 61 20 | 6e 6f 20 6f 70 0a 59 0a |is is a |no op.Y.|
|00003410| 59 65 78 65 63 73 3a 20 | 72 6e 64 74 65 73 74 20 |Yexecs: |rndtest |
|00003420| 74 61 62 6c 65 20 74 62 | 32 74 62 6c 20 74 62 74 |table tb|2tbl tbt|
|00003430| 65 73 74 0a 59 0a 59 6c | 69 62 73 3a 20 74 61 62 |est.Y.Yl|ibs: tab|
|00003440| 6c 65 2e 61 20 72 61 6e | 64 6f 6d 2e 6f 0a 59 0a |le.a ran|dom.o.Y.|
|00003450| 59 61 6c 6c 3a 20 65 78 | 65 63 73 20 6c 69 62 73 |Yall: ex|ecs libs|
|00003460| 0a 59 0a 59 72 61 6e 64 | 6f 6d 2e 6f 3a 20 72 61 |.Y.Yrand|om.o: ra|
|00003470| 6e 64 6f 6d 2e 63 20 72 | 61 6e 64 6f 6d 2e 68 0a |ndom.c r|andom.h.|
|00003480| 59 09 63 63 20 2d 67 20 | 2d 63 20 72 61 6e 64 6f |Y.cc -g |-c rando|
|00003490| 6d 2e 63 0a 59 0a 59 74 | 61 62 6c 65 73 69 6d 70 |m.c.Y.Yt|ablesimp|
|000034a0| 62 69 67 2e 6f 3a 20 74 | 61 62 6c 65 73 69 6d 70 |big.o: t|ablesimp|
|000034b0| 62 69 67 2e 63 20 74 61 | 62 6c 65 2e 68 0a 59 09 |big.c ta|ble.h.Y.|
|000034c0| 63 63 20 2d 67 20 2d 63 | 20 74 61 62 6c 65 73 69 |cc -g -c| tablesi|
|000034d0| 6d 70 62 69 67 2e 63 20 | 24 44 0a 59 0a 59 74 61 |mpbig.c |$D.Y.Yta|
|000034e0| 62 6c 65 6d 75 6c 74 69 | 2e 6f 3a 20 74 61 62 6c |blemulti|.o: tabl|
|000034f0| 65 6d 75 6c 74 69 2e 63 | 20 74 61 62 6c 65 2e 68 |emulti.c| table.h|
|00003500| 0a 59 09 63 63 20 2d 67 | 20 2d 63 20 74 61 62 6c |.Y.cc -g| -c tabl|
|00003510| 65 6d 75 6c 74 69 2e 63 | 20 24 44 0a 59 0a 59 74 |emulti.c| $D.Y.Yt|
|00003520| 61 62 6c 65 73 69 6d 70 | 6c 65 2e 6f 3a 20 74 61 |ablesimp|le.o: ta|
|00003530| 62 6c 65 73 69 6d 70 6c | 65 2e 63 20 74 61 62 6c |blesimpl|e.c tabl|
|00003540| 65 2e 68 0a 59 09 63 63 | 20 2d 67 20 2d 63 20 74 |e.h.Y.cc| -g -c t|
|00003550| 61 62 6c 65 73 69 6d 70 | 6c 65 2e 63 20 24 44 0a |ablesimp|le.c $D.|
|00003560| 59 0a 59 74 61 62 6c 65 | 2e 6f 3a 20 74 61 62 6c |Y.Ytable|.o: tabl|
|00003570| 65 2e 63 20 74 61 62 6c | 65 2e 68 0a 59 09 63 63 |e.c tabl|e.h.Y.cc|
|00003580| 20 2d 67 20 2d 63 20 74 | 61 62 6c 65 2e 63 20 24 | -g -c t|able.c $|
|00003590| 44 0a 59 0a 59 74 61 62 | 6c 65 2e 61 3a 20 74 61 |D.Y.Ytab|le.a: ta|
|000035a0| 62 6c 65 2e 68 20 74 61 | 62 6c 65 2e 6f 20 74 61 |ble.h ta|ble.o ta|
|000035b0| 62 6c 65 73 69 6d 70 6c | 65 2e 6f 20 74 61 62 6c |blesimpl|e.o tabl|
|000035c0| 65 6d 75 6c 74 69 2e 6f | 20 74 61 62 6c 65 73 69 |emulti.o| tablesi|
|000035d0| 6d 70 62 69 67 2e 6f 0a | 59 09 61 72 20 72 20 74 |mpbig.o.|Y.ar r t|
|000035e0| 61 62 6c 65 2e 61 20 74 | 61 62 6c 65 2e 6f 20 74 |able.a t|able.o t|
|000035f0| 61 62 6c 65 73 69 6d 70 | 6c 65 2e 6f 20 74 61 62 |ablesimp|le.o tab|
|00003600| 6c 65 6d 75 6c 74 69 2e | 6f 20 74 61 62 6c 65 73 |lemulti.|o tables|
|00003610| 69 6d 70 62 69 67 2e 6f | 0a 59 09 24 52 20 74 61 |impbig.o|.Y.$R ta|
|00003620| 62 6c 65 2e 61 0a 59 0a | 59 23 20 74 61 62 6c 65 |ble.a.Y.|Y# table|
|00003630| 20 74 6f 20 74 72 6f 66 | 66 2f 74 62 6c 20 63 6f | to trof|f/tbl co|
|00003640| 6e 76 65 72 73 69 6f 6e | 20 70 72 6f 67 72 61 6d |nversion| program|
|00003650| 0a 59 74 62 32 74 62 6c | 3a 20 74 61 62 6c 65 2e |.Ytb2tbl|: table.|
|00003660| 63 20 24 48 20 24 4e 20 | 0a 59 09 63 63 20 2d 6f |c $H $N |.Y.cc -o|
|00003670| 20 74 62 32 74 62 6c 20 | 2d 67 20 2d 44 54 42 32 | tb2tbl |-g -DTB2|
|00003680| 54 42 4c 20 74 61 62 6c | 65 2e 63 20 24 4c 20 24 |TBL tabl|e.c $L $|
|00003690| 44 0a 59 0a 59 23 20 74 | 61 62 6c 65 20 74 65 73 |D.Y.Y# t|able tes|
|000036a0| 74 20 70 72 6f 67 72 61 | 6d 0a 59 74 61 62 6c 65 |t progra|m.Ytable|
|000036b0| 3a 20 74 61 62 6c 65 2e | 63 20 24 48 20 24 4e 0a |: table.|c $H $N.|
|000036c0| 59 09 63 63 20 2d 6f 20 | 74 61 62 6c 65 20 2d 67 |Y.cc -o |table -g|
|000036d0| 20 2d 44 54 45 53 54 20 | 74 61 62 6c 65 2e 63 20 | -DTEST |table.c |
|000036e0| 24 4c 20 20 24 44 0a 59 | 0a 59 74 62 74 65 73 74 |$L  $D.Y|.Ytbtest|
|000036f0| 3a 20 74 62 74 65 73 74 | 2e 63 20 24 48 20 24 4e |: tbtest|.c $H $N|
|00003700| 0a 59 09 63 63 20 2d 6f | 20 74 62 74 65 73 74 20 |.Y.cc -o| tbtest |
|00003710| 2d 67 20 2d 44 54 45 53 | 54 20 74 62 74 65 73 74 |-g -DTES|T tbtest|
|00003720| 2e 63 20 24 4c 20 24 44 | 0a 59 0a 59 23 20 72 61 |.c $L $D|.Y.Y# ra|
|00003730| 6e 64 6f 6d 20 6e 75 6d | 62 65 72 20 74 65 73 74 |ndom num|ber test|
|00003740| 20 70 72 6f 67 72 61 6d | 0a 59 72 6e 64 74 65 73 | program|.Yrndtes|
|00003750| 74 3a 20 72 61 6e 64 6f | 6d 2e 63 20 72 61 6e 64 |t: rando|m.c rand|
|00003760| 6f 6d 2e 68 0a 59 09 63 | 63 20 2d 67 20 2d 44 54 |om.h.Y.c|c -g -DT|
|00003770| 45 53 54 20 2d 6f 20 72 | 6e 64 74 65 73 74 20 72 |EST -o r|ndtest r|
|00003780| 61 6e 64 6f 6d 2e 63 20 | 2d 6c 6d 0a 59 0a 59 63 |andom.c |-lm.Y.Yc|
|00003790| 6c 65 61 6e 3a 0a 59 09 | 72 6d 20 2d 66 20 2a 7e |lean:.Y.|rm -f *~|
|000037a0| 20 2a 2e 6f 20 2a 2e 61 | 20 74 61 62 6c 65 20 74 | *.o *.a| table t|
|000037b0| 62 32 74 62 6c 20 72 6e | 64 74 65 73 74 20 63 6f |b2tbl rn|dtest co|
|000037c0| 72 65 0a 59 0a 53 48 41 | 52 5f 45 4f 46 0a 66 69 |re.Y.SHA|R_EOF.fi|
|000037d0| 0a 69 66 20 74 65 73 74 | 20 2d 66 20 27 74 61 62 |.if test| -f 'tab|
|000037e0| 6c 65 73 69 6d 70 6c 65 | 2e 63 27 0a 74 68 65 6e |lesimple|.c'.then|
|000037f0| 0a 09 65 63 68 6f 20 73 | 68 61 72 3a 20 22 77 69 |..echo s|har: "wi|
|00003800| 6c 6c 20 6e 6f 74 20 6f | 76 65 72 2d 77 72 69 74 |ll not o|ver-writ|
|00003810| 65 20 65 78 69 73 74 69 | 6e 67 20 66 69 6c 65 20 |e existi|ng file |
|00003820| 27 74 61 62 6c 65 73 69 | 6d 70 6c 65 2e 63 27 22 |'tablesi|mple.c'"|
|00003830| 0a 65 6c 73 65 0a 73 65 | 64 20 27 73 2f 5e 59 2f |.else.se|d 's/^Y/|
|00003840| 2f 27 20 3c 3c 20 5c 53 | 48 41 52 5f 45 4f 46 20 |/' << \S|HAR_EOF |
|00003850| 3e 20 27 74 61 62 6c 65 | 73 69 6d 70 6c 65 2e 63 |> 'table|simple.c|
|00003860| 27 0a 59 2f 2a 0a 59 20 | 2a 20 54 41 42 4c 45 53 |'.Y/*.Y |* TABLES|
|00003870| 49 4d 50 4c 45 2e 43 0a | 59 20 2a 20 43 6f 64 65 |IMPLE.C.|Y * Code|
|00003880| 20 73 75 70 70 6f 72 74 | 69 6e 67 20 72 6f 6c 6c | support|ing roll|
|00003890| 69 6e 67 20 6f 6e 20 73 | 69 6d 70 6c 65 20 74 61 |ing on s|imple ta|
|000038a0| 62 6c 65 73 0a 59 20 2a | 20 42 79 20 4a 6f 73 68 |bles.Y *| By Josh|
|000038b0| 75 61 20 4c 65 76 79 20 | 20 0a 59 20 2a 0a 59 20 |ua Levy | .Y *.Y |
|000038c0| 2a 20 43 4f 4d 50 49 4c | 49 4e 47 0a 59 20 2a 0a |* COMPIL|ING.Y *.|
|000038d0| 59 25 20 63 63 20 2d 67 | 20 2d 63 20 74 61 62 6c |Y% cc -g| -c tabl|
|000038e0| 65 73 69 6d 70 6c 65 2e | 63 20 0a 59 20 2a 2f 0a |esimple.|c .Y */.|
|000038f0| 59 0a 59 23 69 6e 63 6c | 75 64 65 20 3c 73 74 64 |Y.Y#incl|ude <std|
|00003900| 69 6f 2e 68 3e 0a 59 23 | 69 6e 63 6c 75 64 65 20 |io.h>.Y#|include |
|00003910| 3c 61 73 73 65 72 74 2e | 68 3e 0a 59 23 69 6e 63 |<assert.|h>.Y#inc|
|00003920| 6c 75 64 65 20 3c 73 74 | 72 69 6e 67 2e 68 3e 0a |lude <st|ring.h>.|
|00003930| 59 23 69 6e 63 6c 75 64 | 65 20 3c 63 74 79 70 65 |Y#includ|e <ctype|
|00003940| 2e 68 3e 0a 59 0a 59 23 | 69 6e 63 6c 75 64 65 20 |.h>.Y.Y#|include |
|00003950| 22 74 61 62 6c 65 2e 68 | 22 0a 59 0a 59 69 6e 74 |"table.h|".Y.Yint|
|00003960| 20 70 61 72 73 65 5f 72 | 61 6e 67 65 28 73 74 72 | parse_r|ange(str|
|00003970| 2c 66 69 72 73 74 2c 6c | 61 73 74 29 20 63 68 61 |,first,l|ast) cha|
|00003980| 72 20 2a 73 74 72 20 3b | 20 69 6e 74 20 2a 66 69 |r *str ;| int *fi|
|00003990| 72 73 74 20 3b 20 69 6e | 74 20 2a 6c 61 73 74 20 |rst ; in|t *last |
|000039a0| 3b 0a 59 7b 0a 59 20 20 | 20 20 69 6e 74 20 6e 20 |;.Y{.Y  |  int n |
|000039b0| 3b 0a 59 0a 59 20 20 20 | 20 6e 20 3d 20 73 73 63 |;.Y.Y   | n = ssc|
|000039c0| 61 6e 66 28 73 74 72 2c | 22 25 64 2d 25 64 22 2c |anf(str,|"%d-%d",|
|000039d0| 66 69 72 73 74 2c 6c 61 | 73 74 29 20 3b 0a 59 20 |first,la|st) ;.Y |
|000039e0| 20 20 20 69 66 20 28 6e | 3d 3d 31 29 0a 59 09 2a |   if (n|==1).Y.*|
|000039f0| 66 69 72 73 74 20 3d 20 | 2a 6c 61 73 74 20 3d 20 |first = |*last = |
|00003a00| 61 74 6f 69 28 73 74 72 | 29 20 3b 0a 59 20 20 20 |atoi(str|) ;.Y   |
|00003a10| 20 72 65 74 75 72 6e 20 | 6e 20 3b 0a 59 7d 0a 59 | return |n ;.Y}.Y|
|00003a20| 0a 59 0c 0a 59 69 6e 74 | 20 74 62 5f 73 69 6d 70 |.Y..Yint| tb_simp|
|00003a30| 6c 65 5f 72 65 61 64 28 | 72 74 2c 66 70 2c 74 69 |le_read(|rt,fp,ti|
|00003a40| 74 6c 65 29 20 74 61 62 | 6c 65 5f 74 20 2a 2a 72 |tle) tab|le_t **r|
|00003a50| 74 20 3b 20 46 49 4c 45 | 20 2a 66 70 20 3b 20 63 |t ; FILE| *fp ; c|
|00003a60| 68 61 72 20 2a 74 69 74 | 6c 65 20 3b 20 0a 59 7b |har *tit|le ; .Y{|
|00003a70| 0a 59 20 20 20 20 73 69 | 6d 70 6c 65 74 61 62 6c |.Y    si|mpletabl|
|00003a80| 65 5f 74 20 2a 74 20 3b | 0a 59 20 20 20 20 63 68 |e_t *t ;|.Y    ch|
|00003a90| 61 72 20 62 75 66 5b 31 | 30 30 30 5d 20 3b 0a 59 |ar buf[1|000] ;.Y|
|00003aa0| 20 20 20 20 63 68 61 72 | 20 72 6f 6c 6c 5b 31 30 |    char| roll[10|
|00003ab0| 5d 20 3b 0a 59 20 20 20 | 20 69 6e 74 20 72 6f 77 |] ;.Y   | int row|
|00003ac0| 73 20 3b 0a 59 20 20 20 | 20 69 6e 74 20 73 74 73 |s ;.Y   | int sts|
|00003ad0| 20 3b 0a 59 20 20 20 20 | 69 6e 74 20 72 20 3b 0a | ;.Y    |int r ;.|
|00003ae0| 59 0a 59 20 20 20 20 73 | 74 73 20 3d 20 28 69 6e |Y.Y    s|ts = (in|
|00003af0| 74 29 66 67 65 74 73 28 | 62 75 66 2c 73 69 7a 65 |t)fgets(|buf,size|
|00003b00| 6f 66 28 62 75 66 29 2c | 66 70 29 20 3b 0a 59 20 |of(buf),|fp) ;.Y |
|00003b10| 20 20 20 61 73 73 65 72 | 74 28 73 74 73 29 20 3b |   asser|t(sts) ;|
|00003b20| 0a 59 20 20 20 20 73 74 | 73 20 3d 20 73 73 63 61 |.Y    st|s = ssca|
|00003b30| 6e 66 28 62 75 66 2c 22 | 25 73 20 25 64 22 2c 72 |nf(buf,"|%s %d",r|
|00003b40| 6f 6c 6c 2c 26 72 6f 77 | 73 29 20 3b 0a 59 20 20 |oll,&row|s) ;.Y  |
|00003b50| 20 20 61 73 73 65 72 74 | 28 73 74 73 3d 3d 32 29 |  assert|(sts==2)|
|00003b60| 20 3b 0a 59 20 20 20 20 | 74 20 3d 20 28 73 69 6d | ;.Y    |t = (sim|
|00003b70| 70 6c 65 74 61 62 6c 65 | 5f 74 2a 29 0a 59 09 4d |pletable|_t*).Y.M|
|00003b80| 41 4c 4c 4f 43 28 73 69 | 7a 65 6f 66 28 73 69 6d |ALLOC(si|zeof(sim|
|00003b90| 70 6c 65 74 61 62 6c 65 | 5f 74 29 2b 73 69 7a 65 |pletable|_t)+size|
|00003ba0| 6f 66 28 73 69 6d 70 6c | 65 72 6f 77 5f 74 29 2a |of(simpl|erow_t)*|
|00003bb0| 28 72 6f 77 73 2d 31 29 | 29 20 3b 0a 59 20 20 20 |(rows-1)|) ;.Y   |
|00003bc0| 20 61 73 73 65 72 74 28 | 74 29 20 3b 0a 59 20 20 | assert(|t) ;.Y  |
|00003bd0| 20 20 74 2d 3e 74 69 74 | 6c 65 20 3d 20 73 74 72 |  t->tit|le = str|
|00003be0| 64 75 70 28 74 69 74 6c | 65 29 20 3b 0a 59 20 20 |dup(titl|e) ;.Y  |
|00003bf0| 20 20 73 74 72 6e 63 70 | 79 28 74 2d 3e 72 6f 6c |  strncp|y(t->rol|
|00003c00| 6c 2c 72 6f 6c 6c 2c 73 | 69 7a 65 6f 66 28 74 2d |l,roll,s|izeof(t-|
|00003c10| 3e 72 6f 6c 6c 29 29 20 | 3b 0a 59 20 20 20 20 74 |>roll)) |;.Y    t|
|00003c20| 2d 3e 6e 75 6d 72 6f 77 | 73 20 3d 20 72 6f 77 73 |->numrow|s = rows|
|00003c30| 20 3b 0a 59 20 20 20 20 | 73 74 73 20 3d 20 28 69 | ;.Y    |sts = (i|
|00003c40| 6e 74 29 66 67 65 74 73 | 28 62 75 66 2c 73 69 7a |nt)fgets|(buf,siz|
|00003c50| 65 6f 66 28 62 75 66 29 | 2c 66 70 29 20 3b 0a 59 |eof(buf)|,fp) ;.Y|
|00003c60| 20 20 20 20 61 73 73 65 | 72 74 28 73 74 73 29 20 |    asse|rt(sts) |
|00003c70| 3b 0a 59 20 20 20 20 74 | 2d 3e 73 6f 75 72 63 65 |;.Y    t|->source|
|00003c80| 20 3d 20 73 74 72 64 75 | 70 28 73 74 72 74 6f 6b | = strdu|p(strtok|
|00003c90| 28 62 75 66 2c 22 5c 6e | 22 29 29 20 3b 0a 59 20 |(buf,"\n|")) ;.Y |
|00003ca0| 20 20 20 66 6f 72 28 72 | 3d 30 20 3b 20 72 3c 72 |   for(r|=0 ; r<r|
|00003cb0| 6f 77 73 20 3b 20 72 2b | 2b 29 20 7b 0a 59 09 73 |ows ; r+|+) {.Y.s|
|00003cc0| 74 73 20 3d 20 28 69 6e | 74 29 66 67 65 74 73 28 |ts = (in|t)fgets(|
|00003cd0| 62 75 66 2c 73 69 7a 65 | 6f 66 28 62 75 66 29 2c |buf,size|of(buf),|
|00003ce0| 66 70 29 20 3b 0a 59 09 | 61 73 73 65 72 74 28 73 |fp) ;.Y.|assert(s|
|00003cf0| 74 73 29 20 3b 0a 59 09 | 73 74 73 3d 70 61 72 73 |ts) ;.Y.|sts=pars|
|00003d00| 65 5f 72 61 6e 67 65 28 | 73 74 72 74 6f 6b 28 62 |e_range(|strtok(b|
|00003d10| 75 66 2c 22 5c 74 5c 6e | 22 29 2c 26 74 2d 3e 72 |uf,"\t\n|"),&t->r|
|00003d20| 6f 77 73 5b 72 5d 2e 66 | 69 72 73 74 2c 26 74 2d |ows[r].f|irst,&t-|
|00003d30| 3e 72 6f 77 73 5b 72 5d | 2e 6c 61 73 74 29 3b 0a |>rows[r]|.last);.|
|00003d40| 59 09 61 73 73 65 72 74 | 28 73 74 73 3e 30 29 20 |Y.assert|(sts>0) |
|00003d50| 3b 0a 59 09 74 2d 3e 72 | 6f 77 73 5b 72 5d 2e 72 |;.Y.t->r|ows[r].r|
|00003d60| 65 73 75 6c 74 20 3d 20 | 73 74 72 64 75 70 28 73 |esult = |strdup(s|
|00003d70| 74 72 74 6f 6b 28 28 63 | 68 61 72 2a 29 30 2c 22 |trtok((c|har*)0,"|
|00003d80| 5c 6e 22 29 29 20 3b 0a | 59 09 61 73 73 65 72 74 |\n")) ;.|Y.assert|
|00003d90| 28 74 2d 3e 72 6f 77 73 | 5b 72 5d 2e 72 65 73 75 |(t->rows|[r].resu|
|00003da0| 6c 74 29 20 3b 0a 59 20 | 20 20 20 7d 0a 59 20 20 |lt) ;.Y |   }.Y  |
|00003db0| 20 20 2a 72 74 20 3d 20 | 28 74 61 62 6c 65 5f 74 |  *rt = |(table_t|
|00003dc0| 2a 29 74 20 3b 0a 59 20 | 20 20 20 72 65 74 75 72 |*)t ;.Y |   retur|
|00003dd0| 6e 20 30 20 3b 0a 59 7d | 0a 59 0a 59 69 6e 74 20 |n 0 ;.Y}|.Y.Yint |
|00003de0| 74 62 5f 73 69 6d 70 6c | 65 5f 75 73 65 28 74 61 |tb_simpl|e_use(ta|
|00003df0| 62 2c 72 65 73 75 6c 74 | 29 20 74 61 62 6c 65 5f |b,result|) table_|
|00003e00| 74 20 2a 74 61 62 20 3b | 20 63 68 61 72 20 2a 2a |t *tab ;| char **|
|00003e10| 72 65 73 75 6c 74 20 3b | 0a 59 7b 0a 59 20 20 20 |result ;|.Y{.Y   |
|00003e20| 20 73 69 6d 70 6c 65 74 | 61 62 6c 65 5f 74 20 2a | simplet|able_t *|
|00003e30| 74 20 3b 0a 59 20 20 20 | 20 69 6e 74 20 72 2c 69 |t ;.Y   | int r,i|
|00003e40| 20 3b 0a 59 0a 59 20 20 | 20 20 74 20 3d 20 28 73 | ;.Y.Y  |  t = (s|
|00003e50| 69 6d 70 6c 65 74 61 62 | 6c 65 5f 74 2a 29 74 61 |impletab|le_t*)ta|
|00003e60| 62 20 3b 0a 59 20 20 20 | 20 72 20 3d 20 72 61 5f |b ;.Y   | r = ra_|
|00003e70| 72 6f 6c 6c 28 74 2d 3e | 72 6f 6c 6c 29 20 3b 0a |roll(t->|roll) ;.|
|00003e80| 59 20 20 20 20 66 6f 72 | 28 69 3d 30 20 3b 20 69 |Y    for|(i=0 ; i|
|00003e90| 3c 74 2d 3e 6e 75 6d 72 | 6f 77 73 20 3b 20 69 2b |<t->numr|ows ; i+|
|00003ea0| 2b 29 20 7b 0a 59 09 69 | 66 20 28 72 3e 3d 74 2d |+) {.Y.i|f (r>=t-|
|00003eb0| 3e 72 6f 77 73 5b 69 5d | 2e 66 69 72 73 74 20 26 |>rows[i]|.first &|
|00003ec0| 26 20 72 3c 3d 74 2d 3e | 72 6f 77 73 5b 69 5d 2e |& r<=t->|rows[i].|
|00003ed0| 6c 61 73 74 29 20 7b 0a | 59 09 20 20 20 20 2a 72 |last) {.|Y.    *r|
|00003ee0| 65 73 75 6c 74 20 3d 20 | 74 2d 3e 72 6f 77 73 5b |esult = |t->rows[|
|00003ef0| 69 5d 2e 72 65 73 75 6c | 74 20 3b 0a 59 09 20 20 |i].resul|t ;.Y.  |
|00003f00| 20 20 72 65 74 75 72 6e | 20 54 42 5f 4f 4b 20 3b |  return| TB_OK ;|
|00003f10| 0a 59 09 7d 0a 59 20 20 | 20 20 7d 0a 59 20 20 20 |.Y.}.Y  |  }.Y   |
|00003f20| 20 2a 72 65 73 75 6c 74 | 20 3d 20 4e 55 4c 4c 20 | *result| = NULL |
|00003f30| 3b 0a 59 20 20 20 20 72 | 65 74 75 72 6e 20 2d 31 |;.Y    r|eturn -1|
|00003f40| 20 3b 0a 59 7d 0a 59 0a | 59 69 6e 74 20 74 62 5f | ;.Y}.Y.|Yint tb_|
|00003f50| 73 69 6d 70 6c 65 5f 70 | 72 69 6e 74 28 74 61 62 |simple_p|rint(tab|
|00003f60| 2c 66 70 2c 77 61 79 29 | 20 74 61 62 6c 65 5f 74 |,fp,way)| table_t|
|00003f70| 20 2a 74 61 62 20 3b 20 | 46 49 4c 45 20 2a 66 70 | *tab ; |FILE *fp|
|00003f80| 20 3b 20 69 6e 74 20 77 | 61 79 20 3b 0a 59 7b 0a | ; int w|ay ;.Y{.|
|00003f90| 59 20 20 20 20 73 69 6d | 70 6c 65 74 61 62 6c 65 |Y    sim|pletable|
|00003fa0| 5f 74 20 2a 74 20 3b 0a | 59 20 20 20 20 63 68 61 |_t *t ;.|Y    cha|
|00003fb0| 72 20 74 6d 70 5b 31 30 | 5d 20 3b 0a 59 20 20 20 |r tmp[10|] ;.Y   |
|00003fc0| 20 69 6e 74 20 72 20 3b | 0a 59 0a 59 20 20 20 20 | int r ;|.Y.Y    |
|00003fd0| 74 20 3d 20 28 73 69 6d | 70 6c 65 74 61 62 6c 65 |t = (sim|pletable|
|00003fe0| 5f 74 2a 29 74 61 62 20 | 3b 0a 59 20 20 20 20 73 |_t*)tab |;.Y    s|
|00003ff0| 77 69 74 63 68 20 28 77 | 61 79 29 20 7b 0a 59 20 |witch (w|ay) {.Y |
|00004000| 20 20 20 20 20 63 61 73 | 65 20 31 3a 0a 59 09 66 |     cas|e 1:.Y.f|
|00004010| 70 72 69 6e 74 66 28 66 | 70 2c 22 2e 54 53 5c 6e |printf(f|p,".TS\n|
|00004020| 63 42 20 73 5c 6e 63 49 | 20 73 2e 5c 6e 22 29 20 |cB s\ncI| s.\n") |
|00004030| 3b 0a 59 09 66 70 72 69 | 6e 74 66 28 66 70 2c 22 |;.Y.fpri|ntf(fp,"|
|00004040| 25 73 5c 6e 22 2c 74 2d | 3e 74 69 74 6c 65 29 20 |%s\n",t-|>title) |
|00004050| 3b 0a 59 09 66 70 72 69 | 6e 74 66 28 66 70 2c 22 |;.Y.fpri|ntf(fp,"|
|00004060| 28 72 6f 6c 6c 20 25 73 | 29 5c 6e 22 2c 74 2d 3e |(roll %s|)\n",t->|
|00004070| 72 6f 6c 6c 29 20 3b 0a | 59 09 66 70 72 69 6e 74 |roll) ;.|Y.fprint|
|00004080| 66 28 66 70 2c 22 2e 54 | 26 5c 6e 22 29 20 3b 0a |f(fp,".T|&\n") ;.|
|00004090| 59 09 66 70 72 69 6e 74 | 66 28 66 70 2c 22 72 20 |Y.fprint|f(fp,"r |
|000040a0| 6c 2e 5c 6e 22 29 20 3b | 0a 59 09 66 6f 72 28 72 |l.\n") ;|.Y.for(r|
|000040b0| 3d 30 20 3b 20 72 3c 74 | 2d 3e 6e 75 6d 72 6f 77 |=0 ; r<t|->numrow|
|000040c0| 73 20 3b 20 72 2b 2b 29 | 20 7b 0a 59 09 20 20 20 |s ; r++)| {.Y.   |
|000040d0| 20 69 66 20 28 74 2d 3e | 72 6f 77 73 5b 72 5d 2e | if (t->|rows[r].|
|000040e0| 66 69 72 73 74 3d 3d 74 | 2d 3e 72 6f 77 73 5b 72 |first==t|->rows[r|
|000040f0| 5d 2e 6c 61 73 74 29 0a | 59 09 09 73 70 72 69 6e |].last).|Y..sprin|
|00004100| 74 66 28 74 6d 70 2c 22 | 25 64 22 2c 74 2d 3e 72 |tf(tmp,"|%d",t->r|
|00004110| 6f 77 73 5b 72 5d 2e 66 | 69 72 73 74 29 20 3b 0a |ows[r].f|irst) ;.|
|00004120| 59 09 20 20 20 20 65 6c | 73 65 0a 59 09 09 73 70 |Y.    el|se.Y..sp|
|00004130| 72 69 6e 74 66 28 74 6d | 70 2c 22 25 64 2d 25 64 |rintf(tm|p,"%d-%d|
|00004140| 22 2c 74 2d 3e 72 6f 77 | 73 5b 72 5d 2e 66 69 72 |",t->row|s[r].fir|
|00004150| 73 74 2c 74 2d 3e 72 6f | 77 73 5b 72 5d 2e 6c 61 |st,t->ro|ws[r].la|
|00004160| 73 74 29 20 3b 0a 59 09 | 20 20 20 20 66 70 72 69 |st) ;.Y.|    fpri|
|00004170| 6e 74 66 28 66 70 2c 22 | 25 73 5c 74 25 73 5c 6e |ntf(fp,"|%s\t%s\n|
|00004180| 22 2c 74 6d 70 2c 74 2d | 3e 72 6f 77 73 5b 72 5d |",tmp,t-|>rows[r]|
|00004190| 2e 72 65 73 75 6c 74 29 | 20 3b 0a 59 09 7d 0a 59 |.result)| ;.Y.}.Y|
|000041a0| 09 66 70 72 69 6e 74 66 | 28 66 70 2c 22 2e 54 45 |.fprintf|(fp,".TE|
|000041b0| 5c 6e 22 29 20 3b 0a 59 | 09 62 72 65 61 6b 20 3b |\n") ;.Y|.break ;|
|000041c0| 0a 59 20 20 20 20 20 20 | 64 65 66 61 75 6c 74 3a |.Y      |default:|
|000041d0| 0a 59 09 72 65 74 75 72 | 6e 20 54 42 5f 45 5f 4e |.Y.retur|n TB_E_N|
|000041e0| 4f 54 59 45 54 20 3b 0a | 59 20 20 20 20 7d 0a 59 |OTYET ;.|Y    }.Y|
|000041f0| 20 20 20 20 72 65 74 75 | 72 6e 20 54 42 5f 4f 4b |    retu|rn TB_OK|
|00004200| 20 3b 0a 59 7d 0a 59 0a | 59 69 6e 74 20 74 62 5f | ;.Y}.Y.|Yint tb_|
|00004210| 73 69 6d 70 6c 65 5f 66 | 72 65 65 28 74 29 20 74 |simple_f|ree(t) t|
|00004220| 61 62 6c 65 5f 74 20 2a | 74 20 3b 0a 59 7b 0a 59 |able_t *|t ;.Y{.Y|
|00004230| 20 20 20 20 69 6e 74 20 | 72 20 3b 0a 59 20 20 20 |    int |r ;.Y   |
|00004240| 20 73 69 6d 70 6c 65 74 | 61 62 6c 65 5f 74 20 2a | simplet|able_t *|
|00004250| 73 74 20 3b 0a 59 0a 59 | 20 20 20 20 73 74 20 3d |st ;.Y.Y|    st =|
|00004260| 20 28 73 69 6d 70 6c 65 | 74 61 62 6c 65 5f 74 2a | (simple|table_t*|
|00004270| 29 74 20 3b 0a 59 20 20 | 20 20 46 52 45 45 28 73 |)t ;.Y  |  FREE(s|
|00004280| 74 2d 3e 74 69 74 6c 65 | 29 20 3b 0a 59 20 20 20 |t->title|) ;.Y   |
|00004290| 20 46 52 45 45 28 73 74 | 2d 3e 73 6f 75 72 63 65 | FREE(st|->source|
|000042a0| 29 20 3b 0a 59 20 20 20 | 20 66 6f 72 28 72 3d 30 |) ;.Y   | for(r=0|
|000042b0| 20 3b 20 72 3c 73 74 2d | 3e 6e 75 6d 72 6f 77 73 | ; r<st-|>numrows|
|000042c0| 20 3b 20 72 2b 2b 29 0a | 59 09 46 52 45 45 28 73 | ; r++).|Y.FREE(s|
|000042d0| 74 2d 3e 72 6f 77 73 5b | 72 5d 2e 72 65 73 75 6c |t->rows[|r].resul|
|000042e0| 74 29 20 3b 20 20 20 20 | 0a 59 20 20 20 20 46 52 |t) ;    |.Y    FR|
|000042f0| 45 45 28 73 74 29 20 3b | 0a 59 20 20 20 20 72 65 |EE(st) ;|.Y    re|
|00004300| 74 75 72 6e 20 54 42 5f | 4f 4b 20 3b 0a 59 7d 0a |turn TB_|OK ;.Y}.|
|00004310| 59 0a 59 69 6e 74 20 74 | 62 5f 73 69 6d 70 6c 65 |Y.Yint t|b_simple|
|00004320| 5f 63 68 6f 6f 73 65 28 | 74 29 20 74 61 62 6c 65 |_choose(|t) table|
|00004330| 5f 74 20 2a 74 20 3b 0a | 59 7b 0a 59 20 20 20 20 |_t *t ;.|Y{.Y    |
|00004340| 72 65 74 75 72 6e 20 54 | 42 5f 45 5f 4e 4f 54 59 |return T|B_E_NOTY|
|00004350| 45 54 20 3b 0a 59 7d 0a | 59 0a 59 69 6e 74 20 74 |ET ;.Y}.|Y.Yint t|
|00004360| 62 5f 73 69 6d 70 6c 65 | 5f 62 61 63 6b 28 74 2c |b_simple|_back(t,|
|00004370| 66 69 6e 64 2c 72 65 73 | 29 20 74 61 62 6c 65 5f |find,res|) table_|
|00004380| 74 20 2a 74 20 3b 20 63 | 68 61 72 20 2a 66 69 6e |t *t ; c|har *fin|
|00004390| 64 20 3b 20 63 68 61 72 | 20 2a 2a 72 65 73 20 3b |d ; char| **res ;|
|000043a0| 0a 59 7b 0a 59 20 20 20 | 20 73 69 6d 70 6c 65 74 |.Y{.Y   | simplet|
|000043b0| 61 62 6c 65 5f 74 20 2a | 74 61 62 20 3d 20 28 73 |able_t *|tab = (s|
|000043c0| 69 6d 70 6c 65 74 61 62 | 6c 65 5f 74 20 2a 29 74 |impletab|le_t *)t|
|000043d0| 20 3b 0a 59 20 20 20 20 | 69 6e 74 20 69 20 3b 0a | ;.Y    |int i ;.|
|000043e0| 59 0a 59 20 20 20 20 61 | 73 73 65 72 74 28 66 69 |Y.Y    a|ssert(fi|
|000043f0| 6e 64 29 20 3b 0a 59 20 | 20 20 20 61 73 73 65 72 |nd) ;.Y |   asser|
|00004400| 74 28 72 65 73 29 20 3b | 0a 59 20 20 20 20 61 73 |t(res) ;|.Y    as|
|00004410| 73 65 72 74 28 74 29 20 | 3b 0a 59 0a 59 20 20 20 |sert(t) |;.Y.Y   |
|00004420| 20 2a 72 65 73 20 3d 20 | 4e 55 4c 4c 20 3b 0a 59 | *res = |NULL ;.Y|
|00004430| 20 20 20 20 66 6f 72 28 | 69 3d 30 20 3b 20 69 3c |    for(|i=0 ; i<|
|00004440| 74 61 62 2d 3e 6e 75 6d | 72 6f 77 73 20 3b 20 69 |tab->num|rows ; i|
|00004450| 2b 2b 29 20 7b 0a 59 09 | 69 66 20 28 21 73 74 72 |++) {.Y.|if (!str|
|00004460| 63 6d 70 28 66 69 6e 64 | 2c 74 61 62 2d 3e 72 6f |cmp(find|,tab->ro|
|00004470| 77 73 5b 69 5d 2e 72 65 | 73 75 6c 74 29 29 20 7b |ws[i].re|sult)) {|
|00004480| 0a 59 09 20 20 20 20 2a | 72 65 73 20 3d 20 28 63 |.Y.    *|res = (c|
|00004490| 68 61 72 2a 29 26 74 61 | 62 2d 3e 72 6f 77 73 5b |har*)&ta|b->rows[|
|000044a0| 69 5d 2e 66 69 72 73 74 | 20 3b 0a 59 09 20 20 20 |i].first| ;.Y.   |
|000044b0| 20 62 72 65 61 6b 20 3b | 0a 59 09 7d 0a 59 20 20 | break ;|.Y.}.Y  |
|000044c0| 20 20 7d 0a 59 20 20 20 | 20 72 65 74 75 72 6e 20 |  }.Y   | return |
|000044d0| 54 42 5f 4f 4b 20 3b 0a | 59 7d 0a 53 48 41 52 5f |TB_OK ;.|Y}.SHAR_|
|000044e0| 45 4f 46 0a 66 69 0a 69 | 66 20 74 65 73 74 20 2d |EOF.fi.i|f test -|
|000044f0| 66 20 27 74 61 62 6c 65 | 6d 75 6c 74 69 2e 63 27 |f 'table|multi.c'|
|00004500| 0a 74 68 65 6e 0a 09 65 | 63 68 6f 20 73 68 61 72 |.then..e|cho shar|
|00004510| 3a 20 22 77 69 6c 6c 20 | 6e 6f 74 20 6f 76 65 72 |: "will |not over|
|00004520| 2d 77 72 69 74 65 20 65 | 78 69 73 74 69 6e 67 20 |-write e|xisting |
|00004530| 66 69 6c 65 20 27 74 61 | 62 6c 65 6d 75 6c 74 69 |file 'ta|blemulti|
|00004540| 2e 63 27 22 0a 65 6c 73 | 65 0a 73 65 64 20 27 73 |.c'".els|e.sed 's|
|00004550| 2f 5e 59 2f 2f 27 20 3c | 3c 20 5c 53 48 41 52 5f |/^Y//' <|< \SHAR_|
|00004560| 45 4f 46 20 3e 20 27 74 | 61 62 6c 65 6d 75 6c 74 |EOF > 't|ablemult|
|00004570| 69 2e 63 27 0a 59 2f 2a | 0a 59 20 2a 20 54 41 42 |i.c'.Y/*|.Y * TAB|
|00004580| 4c 45 4d 55 4c 54 49 2e | 43 0a 59 20 2a 20 43 6f |LEMULTI.|C.Y * Co|
|00004590| 64 65 20 73 75 70 70 6f | 72 74 69 6e 67 20 72 6f |de suppo|rting ro|
|000045a0| 6c 6c 69 6e 67 20 6f 6e | 20 6d 75 6c 74 69 70 6c |lling on| multipl|
|000045b0| 65 20 63 6f 6c 6c 75 6d | 6e 20 74 61 62 6c 65 73 |e collum|n tables|
|000045c0| 0a 59 20 2a 20 42 79 20 | 4a 6f 73 68 75 61 20 4c |.Y * By |Joshua L|
|000045d0| 65 76 79 20 20 0a 59 20 | 2a 0a 59 20 2a 20 43 4f |evy  .Y |*.Y * CO|
|000045e0| 4d 50 49 4c 49 4e 47 0a | 59 20 2a 0a 59 25 20 63 |MPILING.|Y *.Y% c|
|000045f0| 63 20 2d 67 20 2d 63 20 | 74 61 62 6c 65 6d 75 6c |c -g -c |tablemul|
|00004600| 74 69 2e 63 20 0a 59 20 | 2a 2f 0a 59 0a 59 23 69 |ti.c .Y |*/.Y.Y#i|
|00004610| 6e 63 6c 75 64 65 20 3c | 73 74 64 69 6f 2e 68 3e |nclude <|stdio.h>|
|00004620| 0a 59 23 69 6e 63 6c 75 | 64 65 20 3c 61 73 73 65 |.Y#inclu|de <asse|
|00004630| 72 74 2e 68 3e 0a 59 23 | 69 6e 63 6c 75 64 65 20 |rt.h>.Y#|include |
|00004640| 3c 73 74 72 69 6e 67 2e | 68 3e 0a 59 23 69 6e 63 |<string.|h>.Y#inc|
|00004650| 6c 75 64 65 20 3c 63 74 | 79 70 65 2e 68 3e 0a 59 |lude <ct|ype.h>.Y|
|00004660| 0a 59 23 69 6e 63 6c 75 | 64 65 20 22 74 61 62 6c |.Y#inclu|de "tabl|
|00004670| 65 2e 68 22 0a 59 0c 0a | 59 69 6e 74 20 74 62 5f |e.h".Y..|Yint tb_|
|00004680| 6d 75 6c 74 69 5f 72 65 | 61 64 28 72 74 2c 66 70 |multi_re|ad(rt,fp|
|00004690| 2c 74 69 74 6c 65 29 20 | 74 61 62 6c 65 5f 74 20 |,title) |table_t |
|000046a0| 2a 2a 72 74 20 3b 20 46 | 49 4c 45 20 2a 66 70 20 |**rt ; F|ILE *fp |
|000046b0| 3b 20 63 68 61 72 20 2a | 74 69 74 6c 65 20 3b 20 |; char *|title ; |
|000046c0| 0a 59 7b 0a 59 20 20 20 | 20 72 65 67 69 73 74 65 |.Y{.Y   | registe|
|000046d0| 72 20 6d 75 6c 74 69 74 | 61 62 6c 65 5f 74 20 2a |r multit|able_t *|
|000046e0| 74 20 3b 0a 59 20 20 20 | 20 72 65 67 69 73 74 65 |t ;.Y   | registe|
|000046f0| 72 20 69 6e 74 20 63 2c | 72 20 3b 0a 59 20 20 20 |r int c,|r ;.Y   |
|00004700| 20 63 68 61 72 20 62 75 | 66 5b 31 30 30 30 5d 20 | char bu|f[1000] |
|00004710| 3b 0a 59 20 20 20 20 63 | 68 61 72 20 72 6f 6c 6c |;.Y    c|har roll|
|00004720| 5b 31 30 5d 20 3b 0a 59 | 20 20 20 20 69 6e 74 20 |[10] ;.Y|    int |
|00004730| 72 6f 77 73 2c 63 6f 6c | 73 20 3b 0a 59 20 20 20 |rows,col|s ;.Y   |
|00004740| 20 69 6e 74 20 73 74 73 | 20 3b 0a 59 0a 59 20 20 | int sts| ;.Y.Y  |
|00004750| 20 20 73 74 73 20 3d 20 | 28 69 6e 74 29 66 67 65 |  sts = |(int)fge|
|00004760| 74 73 28 62 75 66 2c 73 | 69 7a 65 6f 66 28 62 75 |ts(buf,s|izeof(bu|
|00004770| 66 29 2c 66 70 29 20 3b | 0a 59 20 20 20 20 61 73 |f),fp) ;|.Y    as|
|00004780| 73 65 72 74 28 73 74 73 | 29 20 3b 0a 59 20 20 20 |sert(sts|) ;.Y   |
|00004790| 20 73 74 73 20 3d 20 73 | 73 63 61 6e 66 28 62 75 | sts = s|scanf(bu|
|000047a0| 66 2c 22 25 73 20 25 64 | 20 25 64 22 2c 72 6f 6c |f,"%s %d| %d",rol|
|000047b0| 6c 2c 26 72 6f 77 73 2c | 26 63 6f 6c 73 29 20 3b |l,&rows,|&cols) ;|
|000047c0| 0a 59 20 20 20 20 61 73 | 73 65 72 74 28 73 74 73 |.Y    as|sert(sts|
|000047d0| 3d 3d 33 29 20 3b 0a 59 | 20 20 20 20 74 20 3d 20 |==3) ;.Y|    t = |
|000047e0| 28 6d 75 6c 74 69 74 61 | 62 6c 65 5f 74 2a 29 0a |(multita|ble_t*).|
|000047f0| 59 09 4d 41 4c 4c 4f 43 | 28 73 69 7a 65 6f 66 28 |Y.MALLOC|(sizeof(|
|00004800| 6d 75 6c 74 69 74 61 62 | 6c 65 5f 74 29 2b 73 69 |multitab|le_t)+si|
|00004810| 7a 65 6f 66 28 6d 75 6c | 74 69 72 6f 77 5f 74 2a |zeof(mul|tirow_t*|
|00004820| 29 2a 28 72 6f 77 73 2d | 31 29 29 20 3b 0a 59 20 |)*(rows-|1)) ;.Y |
|00004830| 20 20 20 61 73 73 65 72 | 74 28 74 29 20 3b 0a 59 |   asser|t(t) ;.Y|
|00004840| 20 20 20 20 74 2d 3e 74 | 69 74 6c 65 20 3d 20 73 |    t->t|itle = s|
|00004850| 74 72 64 75 70 28 74 69 | 74 6c 65 29 20 3b 0a 59 |trdup(ti|tle) ;.Y|
|00004860| 20 20 20 20 73 74 72 6e | 63 70 79 28 74 2d 3e 72 |    strn|cpy(t->r|
|00004870| 6f 6c 6c 2c 72 6f 6c 6c | 2c 73 69 7a 65 6f 66 28 |oll,roll|,sizeof(|
|00004880| 74 2d 3e 72 6f 6c 6c 29 | 29 20 3b 0a 59 20 20 20 |t->roll)|) ;.Y   |
|00004890| 20 74 2d 3e 6e 75 6d 72 | 6f 77 73 20 3d 20 72 6f | t->numr|ows = ro|
|000048a0| 77 73 20 3b 0a 59 20 20 | 20 20 74 2d 3e 6e 75 6d |ws ;.Y  |  t->num|
|000048b0| 63 6f 6c 73 20 3d 20 63 | 6f 6c 73 20 3b 0a 59 20 |cols = c|ols ;.Y |
|000048c0| 20 20 20 73 74 73 20 3d | 20 28 69 6e 74 29 66 67 |   sts =| (int)fg|
|000048d0| 65 74 73 28 62 75 66 2c | 73 69 7a 65 6f 66 28 62 |ets(buf,|sizeof(b|
|000048e0| 75 66 29 2c 66 70 29 20 | 3b 0a 59 20 20 20 20 61 |uf),fp) |;.Y    a|
|000048f0| 73 73 65 72 74 28 73 74 | 73 29 20 3b 0a 59 20 20 |ssert(st|s) ;.Y  |
|00004900| 20 20 74 2d 3e 73 6f 75 | 72 63 65 20 3d 20 73 74 |  t->sou|rce = st|
|00004910| 72 64 75 70 28 73 74 72 | 74 6f 6b 28 62 75 66 2c |rdup(str|tok(buf,|
|00004920| 22 5c 6e 22 29 29 20 3b | 0a 59 20 20 20 20 2f 2a |"\n")) ;|.Y    /*|
|00004930| 20 72 65 61 64 20 69 6e | 20 74 68 65 20 63 6f 6c | read in| the col|
|00004940| 75 6d 6e 20 6e 61 6d 65 | 73 20 2a 2f 0a 59 20 20 |umn name|s */.Y  |
|00004950| 20 20 74 2d 3e 63 6f 6c | 6e 61 6d 65 73 20 3d 20 |  t->col|names = |
|00004960| 28 63 68 61 72 20 2a 2a | 29 63 61 6c 6c 6f 63 28 |(char **|)calloc(|
|00004970| 63 6f 6c 73 2b 31 2c 73 | 69 7a 65 6f 66 28 63 68 |cols+1,s|izeof(ch|
|00004980| 61 72 2a 29 29 20 3b 0a | 59 20 20 20 20 61 73 73 |ar*)) ;.|Y    ass|
|00004990| 65 72 74 28 74 2d 3e 63 | 6f 6c 6e 61 6d 65 73 29 |ert(t->c|olnames)|
|000049a0| 20 3b 0a 59 20 20 20 20 | 73 74 73 20 3d 20 28 69 | ;.Y    |sts = (i|
|000049b0| 6e 74 29 66 67 65 74 73 | 28 62 75 66 2c 73 69 7a |nt)fgets|(buf,siz|
|000049c0| 65 6f 66 28 62 75 66 29 | 2c 66 70 29 20 3b 0a 59 |eof(buf)|,fp) ;.Y|
|000049d0| 20 20 20 20 61 73 73 65 | 72 74 28 73 74 73 29 20 |    asse|rt(sts) |
|000049e0| 3b 0a 59 20 20 20 20 61 | 73 73 65 72 74 28 73 74 |;.Y    a|ssert(st|
|000049f0| 72 74 6f 6b 28 62 75 66 | 2c 22 20 5c 74 5c 6e 22 |rtok(buf|," \t\n"|
|00004a00| 29 29 20 3b 20 2f 2a 20 | 67 65 74 20 72 69 64 20 |)) ; /* |get rid |
|00004a10| 6f 66 20 66 69 72 73 74 | 20 64 61 73 68 20 2a 2f |of first| dash */|
|00004a20| 0a 59 20 20 20 20 66 6f | 72 28 63 3d 30 20 3b 20 |.Y    fo|r(c=0 ; |
|00004a30| 63 3c 74 2d 3e 6e 75 6d | 63 6f 6c 73 20 3b 20 63 |c<t->num|cols ; c|
|00004a40| 2b 2b 29 20 7b 0a 59 09 | 74 2d 3e 63 6f 6c 6e 61 |++) {.Y.|t->colna|
|00004a50| 6d 65 73 5b 63 5d 3d 73 | 74 72 64 75 70 28 73 74 |mes[c]=s|trdup(st|
|00004a60| 72 74 6f 6b 28 28 63 68 | 61 72 2a 29 30 2c 22 5c |rtok((ch|ar*)0,"\|
|00004a70| 74 5c 6e 22 29 29 20 3b | 0a 59 20 20 20 20 7d 0a |t\n")) ;|.Y    }.|
|00004a80| 59 20 20 20 20 74 2d 3e | 63 6f 6c 6e 61 6d 65 73 |Y    t->|colnames|
|00004a90| 5b 63 5d 20 3d 20 4e 55 | 4c 4c 20 3b 0a 59 0a 59 |[c] = NU|LL ;.Y.Y|
|00004aa0| 20 20 20 20 66 6f 72 28 | 72 3d 30 20 3b 20 72 3c |    for(|r=0 ; r<|
|00004ab0| 72 6f 77 73 20 3b 20 72 | 2b 2b 29 20 7b 0a 59 09 |rows ; r|++) {.Y.|
|00004ac0| 74 2d 3e 72 6f 77 73 5b | 72 5d 20 3d 20 28 6d 75 |t->rows[|r] = (mu|
|00004ad0| 6c 74 69 72 6f 77 5f 74 | 2a 29 0a 59 09 20 20 20 |ltirow_t|*).Y.   |
|00004ae0| 20 4d 41 4c 4c 4f 43 28 | 73 69 7a 65 6f 66 28 6d | MALLOC(|sizeof(m|
|00004af0| 75 6c 74 69 72 6f 77 5f | 74 29 2b 73 69 7a 65 6f |ultirow_|t)+sizeo|
|00004b00| 66 28 63 68 61 72 2a 29 | 2a 28 74 2d 3e 6e 75 6d |f(char*)|*(t->num|
|00004b10| 63 6f 6c 73 2d 31 29 29 | 20 3b 0a 59 09 73 74 73 |cols-1))| ;.Y.sts|
|00004b20| 20 3d 20 28 69 6e 74 29 | 66 67 65 74 73 28 62 75 | = (int)|fgets(bu|
|00004b30| 66 2c 73 69 7a 65 6f 66 | 28 62 75 66 29 2c 66 70 |f,sizeof|(buf),fp|
|00004b40| 29 20 3b 0a 59 09 61 73 | 73 65 72 74 28 73 74 73 |) ;.Y.as|sert(sts|
|00004b50| 29 20 3b 0a 59 09 73 74 | 73 3d 70 61 72 73 65 5f |) ;.Y.st|s=parse_|
|00004b60| 72 61 6e 67 65 28 73 74 | 72 74 6f 6b 28 62 75 66 |range(st|rtok(buf|
|00004b70| 2c 22 5c 74 5c 6e 22 29 | 2c 26 74 2d 3e 72 6f 77 |,"\t\n")|,&t->row|
|00004b80| 73 5b 72 5d 2d 3e 66 69 | 72 73 74 2c 0a 59 09 09 |s[r]->fi|rst,.Y..|
|00004b90| 09 26 74 2d 3e 72 6f 77 | 73 5b 72 5d 2d 3e 6c 61 |.&t->row|s[r]->la|
|00004ba0| 73 74 29 3b 0a 59 09 61 | 73 73 65 72 74 28 73 74 |st);.Y.a|ssert(st|
|00004bb0| 73 3e 30 29 20 3b 0a 59 | 09 66 6f 72 28 63 3d 30 |s>0) ;.Y|.for(c=0|
|00004bc0| 20 3b 20 63 3c 74 2d 3e | 6e 75 6d 63 6f 6c 73 20 | ; c<t->|numcols |
|00004bd0| 3b 20 63 2b 2b 29 20 7b | 0a 59 09 20 20 20 20 74 |; c++) {|.Y.    t|
|00004be0| 2d 3e 72 6f 77 73 5b 72 | 5d 2d 3e 72 65 73 75 6c |->rows[r|]->resul|
|00004bf0| 74 5b 63 5d 20 3d 20 73 | 74 72 64 75 70 28 73 74 |t[c] = s|trdup(st|
|00004c00| 72 74 6f 6b 28 28 63 68 | 61 72 2a 29 30 2c 22 5c |rtok((ch|ar*)0,"\|
|00004c10| 74 5c 6e 22 29 29 20 3b | 0a 59 09 20 20 20 20 61 |t\n")) ;|.Y.    a|
|00004c20| 73 73 65 72 74 28 74 2d | 3e 72 6f 77 73 5b 72 5d |ssert(t-|>rows[r]|
|00004c30| 2d 3e 72 65 73 75 6c 74 | 5b 63 5d 29 20 3b 0a 59 |->result|[c]) ;.Y|
|00004c40| 09 7d 0a 59 0a 59 20 20 | 20 20 7d 0a 59 0a 59 20 |.}.Y.Y  |  }.Y.Y |
|00004c50| 20 20 20 2a 72 74 20 3d | 20 28 74 61 62 6c 65 5f |   *rt =| (table_|
|00004c60| 74 2a 29 74 20 3b 0a 59 | 20 20 20 20 72 65 74 75 |t*)t ;.Y|    retu|
|00004c70| 72 6e 20 30 20 3b 0a 59 | 7d 0a 59 0a 59 69 6e 74 |rn 0 ;.Y|}.Y.Yint|
|00004c80| 20 74 62 5f 6d 75 6c 74 | 69 5f 75 73 65 28 74 61 | tb_mult|i_use(ta|
|00004c90| 62 2c 63 6f 6c 2c 72 65 | 73 75 6c 74 29 20 74 61 |b,col,re|sult) ta|
|00004ca0| 62 6c 65 5f 74 20 2a 74 | 61 62 20 3b 20 63 68 61 |ble_t *t|ab ; cha|
|00004cb0| 72 20 2a 63 6f 6c 20 3b | 63 68 61 72 20 2a 2a 72 |r *col ;|char **r|
|00004cc0| 65 73 75 6c 74 20 3b 0a | 59 7b 0a 59 20 20 20 20 |esult ;.|Y{.Y    |
|00004cd0| 72 65 67 69 73 74 65 72 | 20 6d 75 6c 74 69 74 61 |register| multita|
|00004ce0| 62 6c 65 5f 74 20 2a 74 | 20 3b 0a 59 20 20 20 20 |ble_t *t| ;.Y    |
|00004cf0| 69 6e 74 20 6e 63 6f 6c | 20 3b 0a 59 20 20 20 20 |int ncol| ;.Y    |
|00004d00| 69 6e 74 20 69 2c 72 20 | 3b 0a 59 0a 59 20 20 20 |int i,r |;.Y.Y   |
|00004d10| 20 74 20 3d 20 28 6d 75 | 6c 74 69 74 61 62 6c 65 | t = (mu|ltitable|
|00004d20| 5f 74 2a 29 74 61 62 20 | 3b 0a 59 0a 59 20 20 20 |_t*)tab |;.Y.Y   |
|00004d30| 20 66 6f 72 28 72 3d 30 | 20 3b 20 72 3c 74 2d 3e | for(r=0| ; r<t->|
|00004d40| 6e 75 6d 63 6f 6c 73 20 | 3b 20 72 2b 2b 29 20 0a |numcols |; r++) .|
|00004d50| 59 09 69 66 20 28 21 73 | 74 72 63 6d 70 28 74 2d |Y.if (!s|trcmp(t-|
|00004d60| 3e 63 6f 6c 6e 61 6d 65 | 73 5b 72 5d 2c 63 6f 6c |>colname|s[r],col|
|00004d70| 29 29 20 7b 0a 59 09 20 | 20 20 20 6e 63 6f 6c 20 |)) {.Y. |   ncol |
|00004d80| 3d 20 72 20 3b 0a 59 09 | 20 20 20 20 62 72 65 61 |= r ;.Y.|    brea|
|00004d90| 6b 20 3b 0a 59 09 7d 0a | 59 20 20 20 20 69 66 20 |k ;.Y.}.|Y    if |
|00004da0| 28 72 3d 3d 74 2d 3e 6e | 75 6d 63 6f 6c 73 29 0a |(r==t->n|umcols).|
|00004db0| 59 09 72 65 74 75 72 6e | 20 54 42 5f 45 5f 4e 4f |Y.return| TB_E_NO|
|00004dc0| 5f 43 4f 4c 20 3b 0a 59 | 0a 59 20 20 20 20 72 20 |_COL ;.Y|.Y    r |
|00004dd0| 3d 20 72 61 5f 72 6f 6c | 6c 28 74 2d 3e 72 6f 6c |= ra_rol|l(t->rol|
|00004de0| 6c 29 20 3b 0a 59 0a 59 | 20 20 20 20 66 6f 72 28 |l) ;.Y.Y|    for(|
|00004df0| 69 3d 30 20 3b 20 69 3c | 74 2d 3e 6e 75 6d 72 6f |i=0 ; i<|t->numro|
|00004e00| 77 73 20 3b 20 69 2b 2b | 29 20 7b 0a 59 09 69 66 |ws ; i++|) {.Y.if|
|00004e10| 20 28 72 3e 3d 74 2d 3e | 72 6f 77 73 5b 69 5d 2d | (r>=t->|rows[i]-|
|00004e20| 3e 66 69 72 73 74 20 26 | 26 20 72 3c 3d 74 2d 3e |>first &|& r<=t->|
|00004e30| 72 6f 77 73 5b 69 5d 2d | 3e 6c 61 73 74 29 20 7b |rows[i]-|>last) {|
|00004e40| 0a 59 09 20 20 20 20 2a | 72 65 73 75 6c 74 20 3d |.Y.    *|result =|
|00004e50| 20 74 2d 3e 72 6f 77 73 | 5b 69 5d 2d 3e 72 65 73 | t->rows|[i]->res|
|00004e60| 75 6c 74 5b 6e 63 6f 6c | 5d 20 3b 0a 59 09 20 20 |ult[ncol|] ;.Y.  |
|00004e70| 20 20 72 65 74 75 72 6e | 20 54 42 5f 4f 4b 20 3b |  return| TB_OK ;|
|00004e80| 0a 59 09 7d 0a 59 20 20 | 20 20 7d 0a 59 0a 59 20 |.Y.}.Y  |  }.Y.Y |
|00004e90| 20 20 20 72 65 74 75 72 | 6e 20 54 42 5f 45 5f 4d |   retur|n TB_E_M|
|00004ea0| 49 53 43 20 3b 0a 59 7d | 0a 59 0a 59 69 6e 74 20 |ISC ;.Y}|.Y.Yint |
|00004eb0| 74 62 5f 6d 75 6c 74 69 | 5f 70 72 69 6e 74 28 74 |tb_multi|_print(t|
|00004ec0| 61 62 2c 66 70 2c 77 61 | 79 29 20 74 61 62 6c 65 |ab,fp,wa|y) table|
|00004ed0| 5f 74 20 2a 74 61 62 20 | 3b 20 46 49 4c 45 20 2a |_t *tab |; FILE *|
|00004ee0| 66 70 20 3b 20 69 6e 74 | 20 77 61 79 20 3b 0a 59 |fp ; int| way ;.Y|
|00004ef0| 7b 0a 59 20 20 20 20 72 | 65 67 69 73 74 65 72 20 |{.Y    r|egister |
|00004f00| 6d 75 6c 74 69 74 61 62 | 6c 65 5f 74 20 2a 74 20 |multitab|le_t *t |
|00004f10| 3b 0a 59 20 20 20 20 69 | 6e 74 20 72 2c 63 20 3b |;.Y    i|nt r,c ;|
|00004f20| 0a 59 0a 59 20 20 20 20 | 74 20 3d 20 28 6d 75 6c |.Y.Y    |t = (mul|
|00004f30| 74 69 74 61 62 6c 65 5f | 74 2a 29 74 61 62 20 3b |titable_|t*)tab ;|
|00004f40| 0a 59 20 20 20 20 73 77 | 69 74 63 68 20 28 77 61 |.Y    sw|itch (wa|
|00004f50| 79 29 20 7b 0a 59 20 20 | 20 20 20 20 63 61 73 65 |y) {.Y  |    case|
|00004f60| 20 31 3a 0a 59 09 66 70 | 72 69 6e 74 66 28 66 70 | 1:.Y.fp|rintf(fp|
|00004f70| 2c 22 2e 54 53 5c 6e 63 | 42 5c 6e 63 49 5c 6e 63 |,".TS\nc|B\ncI\nc|
|00004f80| 49 2e 5c 6e 22 29 20 3b | 0a 59 09 66 70 72 69 6e |I.\n") ;|.Y.fprin|
|00004f90| 74 66 28 66 70 2c 22 25 | 73 5c 6e 22 2c 74 2d 3e |tf(fp,"%|s\n",t->|
|00004fa0| 74 69 74 6c 65 29 20 3b | 0a 59 09 66 70 72 69 6e |title) ;|.Y.fprin|
|00004fb0| 74 66 28 66 70 2c 22 28 | 72 6f 6c 6c 20 25 73 29 |tf(fp,"(|roll %s)|
|00004fc0| 5c 6e 22 2c 74 2d 3e 72 | 6f 6c 6c 29 20 3b 0a 59 |\n",t->r|oll) ;.Y|
|00004fd0| 09 66 70 72 69 6e 74 66 | 28 66 70 2c 22 25 73 5c |.fprintf|(fp,"%s\|
|00004fe0| 6e 22 2c 74 2d 3e 73 6f | 75 72 63 65 29 20 3b 0a |n",t->so|urce) ;.|
|00004ff0| 59 09 66 70 72 69 6e 74 | 66 28 66 70 2c 22 2e 54 |Y.fprint|f(fp,".T|
|00005000| 26 5c 6e 22 29 20 3b 0a | 59 09 66 70 72 69 6e 74 |&\n") ;.|Y.fprint|
|00005010| 66 28 66 70 2c 22 72 49 | 20 22 29 20 3b 0a 59 09 |f(fp,"rI| ") ;.Y.|
|00005020| 66 6f 72 28 63 3d 30 20 | 3b 20 63 3c 74 2d 3e 6e |for(c=0 |; c<t->n|
|00005030| 75 6d 63 6f 6c 73 20 3b | 20 63 2b 2b 29 0a 59 09 |umcols ;| c++).Y.|
|00005040| 20 20 20 20 66 70 72 69 | 6e 74 66 28 66 70 2c 22 |    fpri|ntf(fp,"|
|00005050| 63 25 63 22 2c 63 3d 3d | 74 2d 3e 6e 75 6d 63 6f |c%c",c==|t->numco|
|00005060| 6c 73 2d 31 3f 27 2e 27 | 3a 27 20 27 29 20 3b 0a |ls-1?'.'|:' ') ;.|
|00005070| 59 09 66 70 72 69 6e 74 | 66 28 66 70 2c 22 5c 6e |Y.fprint|f(fp,"\n|
|00005080| 52 6f 6c 6c 5c 74 22 29 | 20 3b 0a 59 09 66 6f 72 |Roll\t")| ;.Y.for|
|00005090| 28 63 3d 30 20 3b 20 63 | 3c 74 2d 3e 6e 75 6d 63 |(c=0 ; c|<t->numc|
|000050a0| 6f 6c 73 20 3b 20 63 2b | 2b 29 0a 59 09 20 20 20 |ols ; c+|+).Y.   |
|000050b0| 20 66 70 72 69 6e 74 66 | 28 66 70 2c 22 25 73 25 | fprintf|(fp,"%s%|
|000050c0| 63 22 2c 74 2d 3e 63 6f | 6c 6e 61 6d 65 73 5b 63 |c",t->co|lnames[c|
|000050d0| 5d 2c 0a 59 09 09 20 20 | 20 20 63 3d 3d 74 2d 3e |],.Y..  |  c==t->|
|000050e0| 6e 75 6d 63 6f 6c 73 2d | 31 3f 27 5c 6e 27 3a 27 |numcols-|1?'\n':'|
|000050f0| 5c 74 27 29 20 3b 0a 59 | 09 0a 59 09 66 6f 72 28 |\t') ;.Y|..Y.for(|
|00005100| 72 3d 30 20 3b 20 72 3c | 74 2d 3e 6e 75 6d 72 6f |r=0 ; r<|t->numro|
|00005110| 77 73 20 3b 20 72 2b 2b | 29 20 7b 0a 59 09 20 20 |ws ; r++|) {.Y.  |
|00005120| 20 20 69 66 20 28 74 2d | 3e 72 6f 77 73 5b 72 5d |  if (t-|>rows[r]|
|00005130| 2d 3e 66 69 72 73 74 3d | 3d 74 2d 3e 72 6f 77 73 |->first=|=t->rows|
|00005140| 5b 72 5d 2d 3e 6c 61 73 | 74 29 0a 59 09 09 66 70 |[r]->las|t).Y..fp|
|00005150| 72 69 6e 74 66 28 66 70 | 2c 22 25 64 5c 74 22 2c |rintf(fp|,"%d\t",|
|00005160| 74 2d 3e 72 6f 77 73 5b | 72 5d 2d 3e 66 69 72 73 |t->rows[|r]->firs|
|00005170| 74 29 20 3b 0a 59 09 20 | 20 20 20 65 6c 73 65 0a |t) ;.Y. |   else.|
|00005180| 59 09 09 66 70 72 69 6e | 74 66 28 66 70 2c 22 25 |Y..fprin|tf(fp,"%|
|00005190| 64 2d 25 64 5c 74 22 2c | 74 2d 3e 72 6f 77 73 5b |d-%d\t",|t->rows[|
|000051a0| 72 5d 2d 3e 66 69 72 73 | 74 2c 74 2d 3e 72 6f 77 |r]->firs|t,t->row|
|000051b0| 73 5b 72 5d 2d 3e 6c 61 | 73 74 29 20 3b 0a 59 09 |s[r]->la|st) ;.Y.|
|000051c0| 20 20 20 20 66 6f 72 28 | 63 3d 30 20 3b 20 63 3c |    for(|c=0 ; c<|
|000051d0| 74 2d 3e 6e 75 6d 63 6f | 6c 73 20 3b 20 63 2b 2b |t->numco|ls ; c++|
|000051e0| 29 0a 59 09 09 66 70 72 | 69 6e 74 66 28 66 70 2c |).Y..fpr|intf(fp,|
|000051f0| 22 25 73 25 63 22 2c 74 | 2d 3e 72 6f 77 73 5b 72 |"%s%c",t|->rows[r|
|00005200| 5d 2d 3e 72 65 73 75 6c | 74 5b 63 5d 2c 0a 59 09 |]->resul|t[c],.Y.|
|00005210| 09 09 63 3d 3d 74 2d 3e | 6e 75 6d 63 6f 6c 73 2d |..c==t->|numcols-|
|00005220| 31 3f 27 5c 6e 27 3a 27 | 5c 74 27 29 20 3b 0a 59 |1?'\n':'|\t') ;.Y|
|00005230| 09 7d 0a 59 09 66 70 72 | 69 6e 74 66 28 66 70 2c |.}.Y.fpr|intf(fp,|
|00005240| 22 2e 54 45 5c 6e 22 29 | 20 3b 0a 59 09 62 72 65 |".TE\n")| ;.Y.bre|
|00005250| 61 6b 20 3b 0a 59 20 20 | 20 20 20 20 64 65 66 61 |ak ;.Y  |    defa|
|00005260| 75 6c 74 3a 0a 59 09 72 | 65 74 75 72 6e 20 54 42 |ult:.Y.r|eturn TB|
|00005270| 5f 45 5f 4e 4f 54 59 45 | 54 20 3b 0a 59 20 20 20 |_E_NOTYE|T ;.Y   |
|00005280| 20 7d 0a 59 20 20 20 20 | 72 65 74 75 72 6e 20 54 | }.Y    |return T|
|00005290| 42 5f 4f 4b 20 3b 0a 59 | 7d 0a 59 0a 59 69 6e 74 |B_OK ;.Y|}.Y.Yint|
|000052a0| 20 74 62 5f 6d 75 6c 74 | 69 5f 66 72 65 65 28 74 | tb_mult|i_free(t|
|000052b0| 29 20 74 61 62 6c 65 5f | 74 20 2a 74 20 3b 0a 59 |) table_|t *t ;.Y|
|000052c0| 7b 0a 59 20 20 20 20 69 | 6e 74 20 72 2c 63 20 3b |{.Y    i|nt r,c ;|
|000052d0| 0a 59 20 20 20 20 6d 75 | 6c 74 69 74 61 62 6c 65 |.Y    mu|ltitable|
|000052e0| 5f 74 20 2a 6d 74 20 3b | 0a 59 0a 59 20 20 20 20 |_t *mt ;|.Y.Y    |
|000052f0| 6d 74 20 3d 20 28 6d 75 | 6c 74 69 74 61 62 6c 65 |mt = (mu|ltitable|
|00005300| 5f 74 20 2a 29 74 20 3b | 0a 59 0a 59 20 20 20 20 |_t *)t ;|.Y.Y    |
|00005310| 46 52 45 45 28 6d 74 2d | 3e 74 69 74 6c 65 29 20 |FREE(mt-|>title) |
|00005320| 3b 0a 59 20 20 20 20 46 | 52 45 45 28 6d 74 2d 3e |;.Y    F|REE(mt->|
|00005330| 73 6f 75 72 63 65 29 20 | 3b 0a 59 20 20 20 20 66 |source) |;.Y    f|
|00005340| 6f 72 28 63 3d 30 20 3b | 20 63 3c 6d 74 2d 3e 6e |or(c=0 ;| c<mt->n|
|00005350| 75 6d 63 6f 6c 73 20 3b | 20 63 2b 2b 29 20 7b 0a |umcols ;| c++) {.|
|00005360| 59 09 46 52 45 45 28 6d | 74 2d 3e 63 6f 6c 6e 61 |Y.FREE(m|t->colna|
|00005370| 6d 65 73 5b 63 5d 29 20 | 3b 0a 59 20 20 20 20 7d |mes[c]) |;.Y    }|
|00005380| 0a 59 20 20 20 20 66 6f | 72 28 72 3d 30 20 3b 20 |.Y    fo|r(r=0 ; |
|00005390| 72 3c 6d 74 2d 3e 6e 75 | 6d 72 6f 77 73 20 3b 20 |r<mt->nu|mrows ; |
|000053a0| 72 2b 2b 29 20 7b 0a 59 | 09 46 52 45 45 28 6d 74 |r++) {.Y|.FREE(mt|
|000053b0| 2d 3e 72 6f 77 73 5b 72 | 5d 29 20 3b 0a 59 09 66 |->rows[r|]) ;.Y.f|
|000053c0| 6f 72 28 63 3d 30 20 3b | 20 63 3c 6d 74 2d 3e 6e |or(c=0 ;| c<mt->n|
|000053d0| 75 6d 63 6f 6c 73 20 3b | 20 63 2b 2b 29 20 7b 0a |umcols ;| c++) {.|
|000053e0| 59 09 20 20 20 20 46 52 | 45 45 28 6d 74 2d 3e 72 |Y.    FR|EE(mt->r|
|000053f0| 6f 77 73 5b 72 5d 2d 3e | 72 65 73 75 6c 74 5b 63 |ows[r]->|result[c|
|00005400| 5d 29 20 3b 0a 59 09 7d | 0a 59 20 20 20 20 7d 0a |]) ;.Y.}|.Y    }.|
|00005410| 59 20 20 20 20 46 52 45 | 45 28 6d 74 2d 3e 63 6f |Y    FRE|E(mt->co|
|00005420| 6c 6e 61 6d 65 73 29 20 | 3b 0a 59 20 20 20 20 46 |lnames) |;.Y    F|
|00005430| 52 45 45 28 6d 74 29 20 | 3b 0a 59 0a 59 20 20 20 |REE(mt) |;.Y.Y   |
|00005440| 20 72 65 74 75 72 6e 20 | 54 42 5f 4f 4b 20 3b 0a | return |TB_OK ;.|
|00005450| 59 7d 0a 59 0a 59 69 6e | 74 20 74 62 5f 6d 75 6c |Y}.Y.Yin|t tb_mul|
|00005460| 74 69 5f 63 68 6f 6f 73 | 65 28 74 29 20 74 61 62 |ti_choos|e(t) tab|
|00005470| 6c 65 5f 74 20 2a 74 20 | 3b 0a 59 7b 0a 59 20 20 |le_t *t |;.Y{.Y  |
|00005480| 20 20 72 65 74 75 72 6e | 20 54 42 5f 45 5f 4e 4f |  return| TB_E_NO|
|00005490| 54 59 45 54 20 3b 0a 59 | 7d 0a 59 0a 59 69 6e 74 |TYET ;.Y|}.Y.Yint|
|000054a0| 20 74 62 5f 6d 75 6c 74 | 69 5f 62 61 63 6b 28 74 | tb_mult|i_back(t|
|000054b0| 2c 66 69 6e 64 2c 64 61 | 74 61 2c 72 65 73 29 20 |,find,da|ta,res) |
|000054c0| 74 61 62 6c 65 5f 74 20 | 2a 74 20 3b 20 63 68 61 |table_t |*t ; cha|
|000054d0| 72 20 2a 66 69 6e 64 2c | 20 2a 64 61 74 61 2c 20 |r *find,| *data, |
|000054e0| 2a 2a 72 65 73 20 3b 0a | 59 7b 0a 59 20 20 20 20 |**res ;.|Y{.Y    |
|000054f0| 6d 75 6c 74 69 74 61 62 | 6c 65 5f 74 20 2a 74 61 |multitab|le_t *ta|
|00005500| 62 20 3d 20 28 6d 75 6c | 74 69 74 61 62 6c 65 5f |b = (mul|titable_|
|00005510| 74 20 2a 29 74 20 3b 0a | 59 20 20 20 20 69 6e 74 |t *)t ;.|Y    int|
|00005520| 20 69 2c 6b 20 3b 20 0a | 59 0a 59 20 20 20 20 61 | i,k ; .|Y.Y    a|
|00005530| 73 73 65 72 74 28 74 29 | 20 3b 0a 59 20 20 20 20 |ssert(t)| ;.Y    |
|00005540| 61 73 73 65 72 74 28 66 | 69 6e 64 29 20 3b 0a 59 |assert(f|ind) ;.Y|
|00005550| 20 20 20 20 61 73 73 65 | 72 74 28 72 65 73 29 20 |    asse|rt(res) |
|00005560| 3b 0a 59 0a 59 20 20 20 | 20 2a 72 65 73 20 3d 20 |;.Y.Y   | *res = |
|00005570| 4e 55 4c 4c 20 3b 0a 59 | 20 20 20 20 69 66 20 28 |NULL ;.Y|    if (|
|00005580| 21 64 61 74 61 29 20 7b | 0a 59 09 2f 2a 20 49 66 |!data) {|.Y./* If|
|00005590| 20 6e 6f 20 64 61 74 61 | 2c 20 73 65 61 72 63 68 | no data|, search|
|000055a0| 20 74 68 65 20 77 68 6f | 6c 65 20 74 61 62 6c 65 | the who|le table|
|000055b0| 20 2a 2f 0a 59 09 66 6f | 72 28 69 3d 30 20 3b 20 | */.Y.fo|r(i=0 ; |
|000055c0| 69 3c 74 61 62 2d 3e 6e | 75 6d 72 6f 77 73 20 3b |i<tab->n|umrows ;|
|000055d0| 20 69 2b 2b 29 20 7b 0a | 59 09 20 20 20 20 66 6f | i++) {.|Y.    fo|
|000055e0| 72 28 69 3d 30 20 3b 20 | 69 3c 74 61 62 2d 3e 6e |r(i=0 ; |i<tab->n|
|000055f0| 75 6d 63 6f 6c 73 20 3b | 20 69 2b 2b 29 20 7b 0a |umcols ;| i++) {.|
|00005600| 59 09 09 69 66 20 28 21 | 73 74 72 63 6d 70 28 66 |Y..if (!|strcmp(f|
|00005610| 69 6e 64 2c 74 61 62 2d | 3e 72 6f 77 73 5b 69 5d |ind,tab-|>rows[i]|
|00005620| 2d 3e 72 65 73 75 6c 74 | 5b 6b 5d 29 29 20 7b 0a |->result|[k])) {.|
|00005630| 59 09 09 20 20 20 20 2a | 72 65 73 20 3d 20 74 61 |Y..    *|res = ta|
|00005640| 62 2d 3e 72 6f 77 73 5b | 69 5d 2d 3e 72 65 73 75 |b->rows[|i]->resu|
|00005650| 6c 74 5b 6b 5d 20 3b 0a | 59 09 09 20 20 20 20 62 |lt[k] ;.|Y..    b|
|00005660| 72 65 61 6b 20 3b 0a 59 | 09 09 7d 0a 59 09 20 20 |reak ;.Y|..}.Y.  |
|00005670| 20 20 7d 0a 59 09 7d 0a | 59 20 20 20 20 7d 20 65 |  }.Y.}.|Y    } e|
|00005680| 6c 73 65 20 7b 0a 59 09 | 2f 2a 20 6f 74 68 65 72 |lse {.Y.|/* other|
|00005690| 20 77 69 73 65 2c 20 6a | 75 73 74 20 73 65 61 72 | wise, j|ust sear|
|000056a0| 63 68 20 74 68 65 20 72 | 6f 77 20 69 6e 20 71 75 |ch the r|ow in qu|
|000056b0| 65 73 74 69 6f 6e 20 2a | 2f 0a 59 09 66 6f 72 28 |estion *|/.Y.for(|
|000056c0| 69 3d 30 20 3b 20 69 3c | 74 61 62 2d 3e 6e 75 6d |i=0 ; i<|tab->num|
|000056d0| 63 6f 6c 73 20 3b 20 69 | 2b 2b 29 20 7b 0a 59 09 |cols ; i|++) {.Y.|
|000056e0| 20 20 20 20 69 66 20 28 | 21 73 74 72 63 6d 70 28 |    if (|!strcmp(|
|000056f0| 64 61 74 61 2c 74 61 62 | 2d 3e 63 6f 6c 6e 61 6d |data,tab|->colnam|
|00005700| 65 73 5b 6b 5d 29 29 0a | 59 09 09 62 72 65 61 6b |es[k])).|Y..break|
|00005710| 20 3b 0a 59 09 7d 0a 59 | 09 69 66 20 28 6b 3d 3d | ;.Y.}.Y|.if (k==|
|00005720| 74 61 62 2d 3e 6e 75 6d | 63 6f 6c 73 29 0a 59 09 |tab->num|cols).Y.|
|00005730| 20 20 20 20 72 65 74 75 | 72 6e 20 54 42 5f 45 5f |    retu|rn TB_E_|
|00005740| 4d 49 53 43 20 3b 0a 59 | 09 66 6f 72 28 69 3d 30 |MISC ;.Y|.for(i=0|
|00005750| 20 3b 20 69 3c 74 61 62 | 2d 3e 6e 75 6d 72 6f 77 | ; i<tab|->numrow|
|00005760| 73 20 3b 20 69 2b 2b 29 | 20 7b 0a 59 09 20 20 20 |s ; i++)| {.Y.   |
|00005770| 20 69 66 20 28 21 73 74 | 72 63 6d 70 28 66 69 6e | if (!st|rcmp(fin|
|00005780| 64 2c 74 61 62 2d 3e 72 | 6f 77 73 5b 69 5d 2d 3e |d,tab->r|ows[i]->|
|00005790| 72 65 73 75 6c 74 5b 6b | 5d 29 29 20 7b 0a 59 09 |result[k|])) {.Y.|
|000057a0| 09 2a 72 65 73 20 3d 20 | 28 63 68 61 72 2a 29 26 |.*res = |(char*)&|
|000057b0| 74 61 62 2d 3e 72 6f 77 | 73 5b 69 5d 2d 3e 66 69 |tab->row|s[i]->fi|
|000057c0| 72 73 74 20 3b 0a 59 09 | 09 62 72 65 61 6b 20 3b |rst ;.Y.|.break ;|
|000057d0| 0a 59 09 20 20 20 20 7d | 0a 59 09 7d 0a 59 20 20 |.Y.    }|.Y.}.Y  |
|000057e0| 20 20 7d 0a 59 20 20 20 | 20 72 65 74 75 72 6e 20 |  }.Y   | return |
|000057f0| 54 42 5f 4f 4b 20 3b 0a | 59 7d 0a 53 48 41 52 5f |TB_OK ;.|Y}.SHAR_|
|00005800| 45 4f 46 0a 66 69 0a 69 | 66 20 74 65 73 74 20 2d |EOF.fi.i|f test -|
|00005810| 66 20 27 74 61 62 6c 65 | 73 69 6d 70 62 69 67 2e |f 'table|simpbig.|
|00005820| 63 27 0a 74 68 65 6e 0a | 09 65 63 68 6f 20 73 68 |c'.then.|.echo sh|
|00005830| 61 72 3a 20 22 77 69 6c | 6c 20 6e 6f 74 20 6f 76 |ar: "wil|l not ov|
|00005840| 65 72 2d 77 72 69 74 65 | 20 65 78 69 73 74 69 6e |er-write| existin|
|00005850| 67 20 66 69 6c 65 20 27 | 74 61 62 6c 65 73 69 6d |g file '|tablesim|
|00005860| 70 62 69 67 2e 63 27 22 | 0a 65 6c 73 65 0a 73 65 |pbig.c'"|.else.se|
|00005870| 64 20 27 73 2f 5e 59 2f | 2f 27 20 3c 3c 20 5c 53 |d 's/^Y/|/' << \S|
|00005880| 48 41 52 5f 45 4f 46 20 | 3e 20 27 74 61 62 6c 65 |HAR_EOF |> 'table|
|00005890| 73 69 6d 70 62 69 67 2e | 63 27 0a 59 2f 2a 0a 59 |simpbig.|c'.Y/*.Y|
|000058a0| 20 2a 20 54 41 42 4c 45 | 53 49 4d 50 42 49 47 2e | * TABLE|SIMPBIG.|
|000058b0| 43 0a 59 20 2a 20 43 6f | 64 65 20 73 75 70 70 6f |C.Y * Co|de suppo|
|000058c0| 72 74 69 6e 67 20 72 6f | 6c 6c 69 6e 67 20 6f 6e |rting ro|lling on|
|000058d0| 20 62 69 67 20 62 75 74 | 20 73 69 6d 70 6c 65 20 | big but| simple |
|000058e0| 74 61 62 6c 65 73 0a 59 | 20 2a 20 42 79 20 4a 6f |tables.Y| * By Jo|
|000058f0| 73 68 75 61 20 4c 65 76 | 79 20 20 0a 59 20 2a 0a |shua Lev|y  .Y *.|
|00005900| 59 20 2a 20 43 4f 4d 50 | 49 4c 49 4e 47 0a 59 20 |Y * COMP|ILING.Y |
|00005910| 2a 0a 59 25 20 63 63 20 | 2d 67 20 2d 63 20 74 61 |*.Y% cc |-g -c ta|
|00005920| 62 6c 65 73 69 6d 70 62 | 69 67 2e 63 20 0a 59 20 |blesimpb|ig.c .Y |
|00005930| 2a 2f 0a 59 0a 59 23 69 | 6e 63 6c 75 64 65 20 3c |*/.Y.Y#i|nclude <|
|00005940| 73 74 64 69 6f 2e 68 3e | 0a 59 23 69 6e 63 6c 75 |stdio.h>|.Y#inclu|
|00005950| 64 65 20 3c 61 73 73 65 | 72 74 2e 68 3e 0a 59 23 |de <asse|rt.h>.Y#|
|00005960| 69 6e 63 6c 75 64 65 20 | 3c 73 74 72 69 6e 67 2e |include |<string.|
|00005970| 68 3e 0a 59 23 69 6e 63 | 6c 75 64 65 20 3c 63 74 |h>.Y#inc|lude <ct|
|00005980| 79 70 65 2e 68 3e 0a 59 | 0a 59 23 69 6e 63 6c 75 |ype.h>.Y|.Y#inclu|
|00005990| 64 65 20 22 74 61 62 6c | 65 2e 68 22 0a 59 0a 59 |de "tabl|e.h".Y.Y|
|000059a0| 0c 0a 59 69 6e 74 20 74 | 62 5f 73 69 6d 70 62 69 |..Yint t|b_simpbi|
|000059b0| 67 5f 72 65 61 64 28 72 | 74 2c 66 70 2c 74 69 74 |g_read(r|t,fp,tit|
|000059c0| 6c 65 29 20 74 61 62 6c | 65 5f 74 20 2a 2a 72 74 |le) tabl|e_t **rt|
|000059d0| 20 3b 20 46 49 4c 45 20 | 2a 66 70 20 3b 20 63 68 | ; FILE |*fp ; ch|
|000059e0| 61 72 20 2a 74 69 74 6c | 65 20 3b 20 0a 59 7b 0a |ar *titl|e ; .Y{.|
|000059f0| 59 20 20 20 20 73 69 6d | 70 6c 65 74 61 62 6c 65 |Y    sim|pletable|
|00005a00| 5f 74 20 2a 74 20 3b 0a | 59 20 20 20 20 73 69 6d |_t *t ;.|Y    sim|
|00005a10| 70 6c 65 72 6f 77 5f 74 | 20 2a 72 6f 77 20 3b 0a |plerow_t| *row ;.|
|00005a20| 59 20 20 20 20 63 68 61 | 72 20 62 75 66 5b 31 30 |Y    cha|r buf[10|
|00005a30| 30 30 5d 20 3b 0a 59 20 | 20 20 20 63 68 61 72 20 |00] ;.Y |   char |
|00005a40| 72 6f 6c 6c 5b 31 30 5d | 20 3b 0a 59 20 20 20 20 |roll[10]| ;.Y    |
|00005a50| 69 6e 74 20 72 6f 77 73 | 20 3b 0a 59 20 20 20 20 |int rows| ;.Y    |
|00005a60| 69 6e 74 20 73 74 73 20 | 3b 0a 59 20 20 20 20 69 |int sts |;.Y    i|
|00005a70| 6e 74 20 72 2c 69 20 3b | 0a 59 20 20 20 20 69 6e |nt r,i ;|.Y    in|
|00005a80| 74 20 6c 69 6e 65 73 20 | 3b 0a 59 20 20 20 20 63 |t lines |;.Y    c|
|00005a90| 68 61 72 20 2a 63 70 20 | 3b 0a 59 0a 59 20 20 20 |har *cp |;.Y.Y   |
|00005aa0| 20 73 74 73 20 3d 20 28 | 69 6e 74 29 66 67 65 74 | sts = (|int)fget|
|00005ab0| 73 28 62 75 66 2c 73 69 | 7a 65 6f 66 28 62 75 66 |s(buf,si|zeof(buf|
|00005ac0| 29 2c 66 70 29 20 3b 0a | 59 20 20 20 20 61 73 73 |),fp) ;.|Y    ass|
|00005ad0| 65 72 74 28 73 74 73 29 | 20 3b 0a 59 20 20 20 20 |ert(sts)| ;.Y    |
|00005ae0| 73 74 73 20 3d 20 73 73 | 63 61 6e 66 28 62 75 66 |sts = ss|canf(buf|
|00005af0| 2c 22 25 73 20 25 64 22 | 2c 72 6f 6c 6c 2c 26 72 |,"%s %d"|,roll,&r|
|00005b00| 6f 77 73 29 20 3b 0a 59 | 20 20 20 20 61 73 73 65 |ows) ;.Y|    asse|
|00005b10| 72 74 28 73 74 73 3d 3d | 32 29 20 3b 0a 59 20 20 |rt(sts==|2) ;.Y  |
|00005b20| 20 20 74 20 3d 20 28 73 | 69 6d 70 6c 65 74 61 62 |  t = (s|impletab|
|00005b30| 6c 65 5f 74 2a 29 0a 59 | 09 4d 41 4c 4c 4f 43 28 |le_t*).Y|.MALLOC(|
|00005b40| 73 69 7a 65 6f 66 28 73 | 69 6d 70 6c 65 74 61 62 |sizeof(s|impletab|
|00005b50| 6c 65 5f 74 29 2b 73 69 | 7a 65 6f 66 28 73 69 6d |le_t)+si|zeof(sim|
|00005b60| 70 6c 65 72 6f 77 5f 74 | 29 2a 28 72 6f 77 73 2d |plerow_t|)*(rows-|
|00005b70| 31 29 29 20 3b 0a 59 20 | 20 20 20 61 73 73 65 72 |1)) ;.Y |   asser|
|00005b80| 74 28 74 29 20 3b 0a 59 | 20 20 20 20 74 2d 3e 74 |t(t) ;.Y|    t->t|
|00005b90| 69 74 6c 65 20 3d 20 73 | 74 72 64 75 70 28 74 69 |itle = s|trdup(ti|
|00005ba0| 74 6c 65 29 20 3b 0a 59 | 20 20 20 20 73 74 72 6e |tle) ;.Y|    strn|
|00005bb0| 63 70 79 28 74 2d 3e 72 | 6f 6c 6c 2c 72 6f 6c 6c |cpy(t->r|oll,roll|
|00005bc0| 2c 73 69 7a 65 6f 66 28 | 74 2d 3e 72 6f 6c 6c 29 |,sizeof(|t->roll)|
|00005bd0| 29 20 3b 0a 59 20 20 20 | 20 74 2d 3e 6e 75 6d 72 |) ;.Y   | t->numr|
|00005be0| 6f 77 73 20 3d 20 72 6f | 77 73 20 3b 0a 59 20 20 |ows = ro|ws ;.Y  |
|00005bf0| 20 20 73 74 73 20 3d 20 | 28 69 6e 74 29 66 67 65 |  sts = |(int)fge|
|00005c00| 74 73 28 62 75 66 2c 73 | 69 7a 65 6f 66 28 62 75 |ts(buf,s|izeof(bu|
|00005c10| 66 29 2c 66 70 29 20 3b | 0a 59 20 20 20 20 61 73 |f),fp) ;|.Y    as|
|00005c20| 73 65 72 74 28 73 74 73 | 29 20 3b 0a 59 20 20 20 |sert(sts|) ;.Y   |
|00005c30| 20 74 2d 3e 73 6f 75 72 | 63 65 20 3d 20 73 74 72 | t->sour|ce = str|
|00005c40| 64 75 70 28 73 74 72 74 | 6f 6b 28 62 75 66 2c 22 |dup(strt|ok(buf,"|
|00005c50| 5c 6e 22 29 29 20 3b 0a | 59 20 20 20 20 66 6f 72 |\n")) ;.|Y    for|
|00005c60| 28 72 3d 30 20 3b 20 72 | 3c 72 6f 77 73 20 3b 20 |(r=0 ; r|<rows ; |
|00005c70| 72 2b 2b 29 20 7b 0a 59 | 09 73 74 73 20 3d 20 28 |r++) {.Y|.sts = (|
|00005c80| 69 6e 74 29 66 67 65 74 | 73 28 62 75 66 2c 73 69 |int)fget|s(buf,si|
|00005c90| 7a 65 6f 66 28 62 75 66 | 29 2c 66 70 29 20 3b 0a |zeof(buf|),fp) ;.|
|00005ca0| 59 09 61 73 73 65 72 74 | 28 73 74 73 29 20 3b 0a |Y.assert|(sts) ;.|
|00005cb0| 59 09 72 6f 77 20 3d 20 | 26 74 2d 3e 72 6f 77 73 |Y.row = |&t->rows|
|00005cc0| 5b 72 5d 20 3b 0a 59 09 | 73 74 73 3d 70 61 72 73 |[r] ;.Y.|sts=pars|
|00005cd0| 65 5f 72 61 6e 67 65 28 | 73 74 72 74 6f 6b 28 62 |e_range(|strtok(b|
|00005ce0| 75 66 2c 22 5c 74 5c 6e | 22 29 2c 26 72 6f 77 2d |uf,"\t\n|"),&row-|
|00005cf0| 3e 66 69 72 73 74 2c 26 | 72 6f 77 2d 3e 6c 61 73 |>first,&|row->las|
|00005d00| 74 29 3b 0a 59 09 61 73 | 73 65 72 74 28 73 74 73 |t);.Y.as|sert(sts|
|00005d10| 3e 30 29 20 3b 0a 59 09 | 6c 69 6e 65 73 20 3d 20 |>0) ;.Y.|lines = |
|00005d20| 61 74 6f 69 28 73 74 72 | 74 6f 6b 28 28 63 68 61 |atoi(str|tok((cha|
|00005d30| 72 2a 29 30 2c 22 5c 6e | 22 29 29 20 3b 0a 59 09 |r*)0,"\n|")) ;.Y.|
|00005d40| 72 6f 77 2d 3e 72 65 73 | 75 6c 74 20 3d 20 28 63 |row->res|ult = (c|
|00005d50| 68 61 72 2a 29 6d 61 6c | 6c 6f 63 28 31 33 32 2a |har*)mal|loc(132*|
|00005d60| 6c 69 6e 65 73 2b 31 29 | 20 3b 0a 59 09 61 73 73 |lines+1)| ;.Y.ass|
|00005d70| 65 72 74 28 72 6f 77 2d | 3e 72 65 73 75 6c 74 29 |ert(row-|>result)|
|00005d80| 20 3b 0a 59 09 66 6f 72 | 28 69 3d 30 2c 63 70 3d | ;.Y.for|(i=0,cp=|
|00005d90| 72 6f 77 2d 3e 72 65 73 | 75 6c 74 20 3b 20 69 3c |row->res|ult ; i<|
|00005da0| 6c 69 6e 65 73 20 3b 20 | 69 2b 2b 29 20 7b 0a 59 |lines ; |i++) {.Y|
|00005db0| 09 20 20 20 20 73 74 73 | 20 3d 20 28 69 6e 74 29 |.    sts| = (int)|
|00005dc0| 66 67 65 74 73 28 63 70 | 2c 28 75 6e 73 69 67 6e |fgets(cp|,(unsign|
|00005dd0| 65 64 29 31 33 32 2c 66 | 70 29 20 3b 0a 59 09 20 |ed)132,f|p) ;.Y. |
|00005de0| 20 20 20 61 73 73 65 72 | 74 28 73 74 73 29 20 3b |   asser|t(sts) ;|
|00005df0| 0a 59 09 20 20 20 20 63 | 70 20 2b 3d 20 73 74 72 |.Y.    c|p += str|
|00005e00| 6c 65 6e 28 63 70 29 20 | 3b 0a 59 09 7d 0a 59 09 |len(cp) |;.Y.}.Y.|
|00005e10| 2a 63 70 20 3d 20 27 5c | 30 27 20 3b 0a 59 20 20 |*cp = '\|0' ;.Y  |
|00005e20| 20 20 7d 0a 59 20 20 20 | 20 2a 72 74 20 3d 20 28 |  }.Y   | *rt = (|
|00005e30| 74 61 62 6c 65 5f 74 2a | 29 74 20 3b 0a 59 20 20 |table_t*|)t ;.Y  |
|00005e40| 20 20 72 65 74 75 72 6e | 20 30 20 3b 0a 59 7d 0a |  return| 0 ;.Y}.|
|00005e50| 59 0a 59 69 6e 74 20 74 | 62 5f 73 69 6d 70 62 69 |Y.Yint t|b_simpbi|
|00005e60| 67 5f 70 72 69 6e 74 28 | 74 61 62 2c 66 70 2c 77 |g_print(|tab,fp,w|
|00005e70| 61 79 29 20 74 61 62 6c | 65 5f 74 20 2a 74 61 62 |ay) tabl|e_t *tab|
|00005e80| 20 3b 20 46 49 4c 45 20 | 2a 66 70 20 3b 20 69 6e | ; FILE |*fp ; in|
|00005e90| 74 20 77 61 79 20 3b 0a | 59 7b 0a 59 20 20 20 20 |t way ;.|Y{.Y    |
|00005ea0| 73 69 6d 70 6c 65 74 61 | 62 6c 65 5f 74 20 2a 74 |simpleta|ble_t *t|
|00005eb0| 20 3b 0a 59 20 20 20 20 | 63 68 61 72 20 74 6d 70 | ;.Y    |char tmp|
|00005ec0| 5b 31 30 5d 20 3b 0a 59 | 20 20 20 20 69 6e 74 20 |[10] ;.Y|    int |
|00005ed0| 72 20 3b 0a 59 0a 59 20 | 20 20 20 74 20 3d 20 28 |r ;.Y.Y |   t = (|
|00005ee0| 73 69 6d 70 6c 65 74 61 | 62 6c 65 5f 74 2a 29 74 |simpleta|ble_t*)t|
|00005ef0| 61 62 20 3b 0a 59 20 20 | 20 20 73 77 69 74 63 68 |ab ;.Y  |  switch|
|00005f00| 20 28 77 61 79 29 20 7b | 0a 59 20 20 20 20 20 20 | (way) {|.Y      |
|00005f10| 63 61 73 65 20 31 3a 0a | 59 09 66 70 72 69 6e 74 |case 1:.|Y.fprint|
|00005f20| 66 28 66 70 2c 22 2e 54 | 53 5c 6e 63 42 20 73 5c |f(fp,".T|S\ncB s\|
|00005f30| 6e 63 49 20 73 5c 6e 22 | 29 20 3b 0a 59 09 66 70 |ncI s\n"|) ;.Y.fp|
|00005f40| 72 69 6e 74 66 28 66 70 | 2c 22 72 20 6c 77 28 35 |rintf(fp|,"r lw(5|
|00005f50| 69 29 2e 5c 6e 22 29 20 | 3b 0a 59 09 66 70 72 69 |i).\n") |;.Y.fpri|
|00005f60| 6e 74 66 28 66 70 2c 22 | 25 73 5c 6e 22 2c 74 2d |ntf(fp,"|%s\n",t-|
|00005f70| 3e 74 69 74 6c 65 29 20 | 3b 0a 59 09 66 70 72 69 |>title) |;.Y.fpri|
|00005f80| 6e 74 66 28 66 70 2c 22 | 28 72 6f 6c 6c 20 25 73 |ntf(fp,"|(roll %s|
|00005f90| 29 5c 6e 22 2c 74 2d 3e | 72 6f 6c 6c 29 20 3b 0a |)\n",t->|roll) ;.|
|00005fa0| 59 09 66 6f 72 28 72 3d | 30 20 3b 20 72 3c 74 2d |Y.for(r=|0 ; r<t-|
|00005fb0| 3e 6e 75 6d 72 6f 77 73 | 20 3b 20 72 2b 2b 29 20 |>numrows| ; r++) |
|00005fc0| 7b 0a 59 09 20 20 20 20 | 69 66 20 28 74 2d 3e 72 |{.Y.    |if (t->r|
|00005fd0| 6f 77 73 5b 72 5d 2e 66 | 69 72 73 74 3d 3d 74 2d |ows[r].f|irst==t-|
|00005fe0| 3e 72 6f 77 73 5b 72 5d | 2e 6c 61 73 74 29 0a 59 |>rows[r]|.last).Y|
|00005ff0| 09 09 73 70 72 69 6e 74 | 66 28 74 6d 70 2c 22 25 |..sprint|f(tmp,"%|
|00006000| 64 22 2c 74 2d 3e 72 6f | 77 73 5b 72 5d 2e 66 69 |d",t->ro|ws[r].fi|
|00006010| 72 73 74 29 20 3b 0a 59 | 09 20 20 20 20 65 6c 73 |rst) ;.Y|.    els|
|00006020| 65 0a 59 09 09 73 70 72 | 69 6e 74 66 28 74 6d 70 |e.Y..spr|intf(tmp|
|00006030| 2c 22 25 64 2d 25 64 22 | 2c 74 2d 3e 72 6f 77 73 |,"%d-%d"|,t->rows|
|00006040| 5b 72 5d 2e 66 69 72 73 | 74 2c 74 2d 3e 72 6f 77 |[r].firs|t,t->row|
|00006050| 73 5b 72 5d 2e 6c 61 73 | 74 29 20 3b 0a 59 09 20 |s[r].las|t) ;.Y. |
|00006060| 20 20 20 66 70 72 69 6e | 74 66 28 66 70 2c 22 25 |   fprin|tf(fp,"%|
|00006070| 73 5c 74 54 7b 5c 6e 25 | 73 54 7d 5c 6e 22 2c 74 |s\tT{\n%|sT}\n",t|
|00006080| 6d 70 2c 74 2d 3e 72 6f | 77 73 5b 72 5d 2e 72 65 |mp,t->ro|ws[r].re|
|00006090| 73 75 6c 74 29 20 3b 0a | 59 09 7d 0a 59 09 66 70 |sult) ;.|Y.}.Y.fp|
|000060a0| 72 69 6e 74 66 28 66 70 | 2c 22 2e 54 45 5c 6e 22 |rintf(fp|,".TE\n"|
|000060b0| 29 20 3b 0a 59 09 62 72 | 65 61 6b 20 3b 0a 59 20 |) ;.Y.br|eak ;.Y |
|000060c0| 20 20 20 20 20 64 65 66 | 61 75 6c 74 3a 0a 59 09 |     def|ault:.Y.|
|000060d0| 72 65 74 75 72 6e 20 54 | 42 5f 45 5f 4e 4f 54 59 |return T|B_E_NOTY|
|000060e0| 45 54 20 3b 0a 59 20 20 | 20 20 7d 0a 59 20 20 20 |ET ;.Y  |  }.Y   |
|000060f0| 20 72 65 74 75 72 6e 20 | 54 42 5f 4f 4b 20 3b 0a | return |TB_OK ;.|
|00006100| 59 7d 0a 53 48 41 52 5f | 45 4f 46 0a 66 69 0a 69 |Y}.SHAR_|EOF.fi.i|
|00006110| 66 20 74 65 73 74 20 2d | 66 20 27 74 61 62 6c 65 |f test -|f 'table|
|00006120| 2e 63 27 0a 74 68 65 6e | 0a 09 65 63 68 6f 20 73 |.c'.then|..echo s|
|00006130| 68 61 72 3a 20 22 77 69 | 6c 6c 20 6e 6f 74 20 6f |har: "wi|ll not o|
|00006140| 76 65 72 2d 77 72 69 74 | 65 20 65 78 69 73 74 69 |ver-writ|e existi|
|00006150| 6e 67 20 66 69 6c 65 20 | 27 74 61 62 6c 65 2e 63 |ng file |'table.c|
|00006160| 27 22 0a 65 6c 73 65 0a | 73 65 64 20 27 73 2f 5e |'".else.|sed 's/^|
|00006170| 59 2f 2f 27 20 3c 3c 20 | 5c 53 48 41 52 5f 45 4f |Y//' << |\SHAR_EO|
|00006180| 46 20 3e 20 27 74 61 62 | 6c 65 2e 63 27 0a 59 2f |F > 'tab|le.c'.Y/|
|00006190| 2a 0a 59 20 2a 20 54 41 | 42 4c 45 2e 43 0a 59 20 |*.Y * TA|BLE.C.Y |
|000061a0| 2a 20 43 6f 64 65 20 73 | 75 70 70 6f 72 74 69 6e |* Code s|upportin|
|000061b0| 67 20 72 6f 6c 6c 69 6e | 67 20 6f 6e 20 74 61 62 |g rollin|g on tab|
|000061c0| 6c 65 73 0a 59 20 2a 20 | 42 79 20 4a 6f 73 68 75 |les.Y * |By Joshu|
|000061d0| 61 20 6c 65 76 79 20 20 | 0a 59 20 2a 0a 59 20 2a |a levy  |.Y *.Y *|
|000061e0| 20 43 4f 4d 50 49 4c 49 | 4e 47 0a 59 20 2a 0a 59 | COMPILI|NG.Y *.Y|
|000061f0| 20 2a 20 54 68 69 73 20 | 6c 69 6e 65 20 63 72 65 | * This |line cre|
|00006200| 61 74 65 73 20 61 20 73 | 69 6d 70 6c 65 20 74 65 |ates a s|imple te|
|00006210| 73 74 20 70 72 6f 67 72 | 61 6d 3a 0a 59 25 20 20 |st progr|am:.Y%  |
|00006220| 63 63 20 2d 67 20 2d 44 | 54 45 53 54 20 2d 6f 20 |cc -g -D|TEST -o |
|00006230| 74 61 62 6c 65 20 74 61 | 62 6c 65 2e 63 20 74 61 |table ta|ble.c ta|
|00006240| 62 6c 65 73 69 6d 70 6c | 65 2e 6f 20 74 61 62 6c |blesimpl|e.o tabl|
|00006250| 65 6d 75 6c 74 69 2e 6f | 20 72 61 6e 64 6f 6d 2e |emulti.o| random.|
|00006260| 6f 0a 59 20 2a 0a 59 20 | 2a 20 54 68 69 73 20 6c |o.Y *.Y |* This l|
|00006270| 69 6e 65 20 63 72 65 61 | 74 65 73 20 61 6e 20 27 |ine crea|tes an '|
|00006280| 6f 27 20 66 69 6c 65 20 | 74 6f 20 69 6e 63 6c 75 |o' file |to inclu|
|00006290| 64 65 20 69 6e 20 6f 74 | 68 65 72 20 70 72 6f 67 |de in ot|her prog|
|000062a0| 72 61 6d 73 3a 0a 59 25 | 6f 20 63 63 20 2d 67 20 |rams:.Y%|o cc -g |
|000062b0| 2d 63 20 74 61 62 6c 65 | 2e 63 20 0a 59 20 2a 0a |-c table|.c .Y *.|
|000062c0| 59 20 2a 20 49 4e 54 45 | 52 46 41 43 45 0a 59 20 |Y * INTE|RFACE.Y |
|000062d0| 2a 20 20 20 54 68 65 72 | 65 20 69 73 20 6f 6e 65 |*   Ther|e is one|
|000062e0| 20 64 61 74 61 20 74 79 | 70 65 3a 0a 59 20 2a 20 | data ty|pe:.Y * |
|000062f0| 20 20 20 20 74 61 62 6c | 65 5f 74 0a 59 20 2a 20 |    tabl|e_t.Y * |
|00006300| 20 20 61 6e 64 20 73 65 | 76 65 6e 20 69 6e 74 65 |  and se|ven inte|
|00006310| 72 66 61 63 65 73 20 69 | 6e 20 74 68 69 73 20 66 |rfaces i|n this f|
|00006320| 69 6c 65 3a 0a 59 20 2a | 20 20 20 20 20 74 62 5f |ile:.Y *|     tb_|
|00006330| 72 65 61 64 28 74 61 62 | 6c 65 2c 66 69 6c 65 29 |read(tab|le,file)|
|00006340| 20 74 61 62 6c 65 5f 74 | 20 2a 2a 74 61 62 6c 65 | table_t| **table|
|00006350| 20 3b 20 63 68 61 72 20 | 2a 66 69 6c 65 20 3b 0a | ; char |*file ;.|
|00006360| 59 20 2a 20 20 20 20 20 | 74 62 5f 75 73 65 28 74 |Y *     |tb_use(t|
|00006370| 61 62 6c 65 2c 2e 2e 2e | 2c 72 65 73 75 6c 74 29 |able,...|,result)|
|00006380| 20 74 61 62 6c 65 5f 74 | 20 2a 74 61 62 6c 65 20 | table_t| *table |
|00006390| 3b 20 63 68 61 72 20 2a | 2a 72 65 73 75 6c 74 20 |; char *|*result |
|000063a0| 3b 0a 59 20 2a 20 20 20 | 20 20 74 62 5f 66 72 65 |;.Y *   |  tb_fre|
|000063b0| 65 28 74 61 62 6c 65 29 | 20 74 61 62 6c 65 5f 74 |e(table)| table_t|
|000063c0| 20 2a 74 61 62 6c 65 20 | 3b 0a 59 20 2a 20 20 20 | *table |;.Y *   |
|000063d0| 20 20 74 62 5f 70 72 69 | 6e 74 28 74 61 62 6c 65 |  tb_pri|nt(table|
|000063e0| 2c 77 61 79 29 20 74 61 | 62 6c 65 5f 74 20 2a 74 |,way) ta|ble_t *t|
|000063f0| 61 62 6c 65 20 3b 20 69 | 6e 74 20 77 61 79 20 3b |able ; i|nt way ;|
+--------+-------------------------+-------------------------+--------+--------+