/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume25 / fsp / part03

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 53 75 62 6a 65 63 74 3a | 20 76 32 35 69 30 32 36 |Subject:| v25i026|
|00000010| 3a 20 41 20 72 65 61 6c | 2d 74 69 6d 65 2c 20 6d |: A real|-time, m|
|00000020| 75 6c 74 69 74 68 72 65 | 61 64 65 64 20 49 6e 74 |ultithre|aded Int|
|00000030| 65 72 6e 65 74 20 61 72 | 63 68 69 76 65 20 73 65 |ernet ar|chive se|
|00000040| 72 76 65 72 2c 20 50 61 | 72 74 30 33 2f 30 33 0a |rver, Pa|rt03/03.|
|00000050| 4e 65 77 73 67 72 6f 75 | 70 73 3a 20 63 6f 6d 70 |Newsgrou|ps: comp|
|00000060| 2e 73 6f 75 72 63 65 73 | 2e 75 6e 69 78 0a 41 70 |.sources|.unix.Ap|
|00000070| 70 72 6f 76 65 64 3a 20 | 76 69 78 69 65 40 70 61 |proved: |vixie@pa|
|00000080| 2e 64 65 63 2e 63 6f 6d | 0a 0a 53 75 62 6d 69 74 |.dec.com|..Submit|
|00000090| 74 65 64 2d 42 79 3a 20 | 77 65 6e 2d 6b 69 6e 67 |ted-By: |wen-king|
|000000a0| 40 76 6c 73 69 2e 63 73 | 2e 63 61 6c 74 65 63 68 |@vlsi.cs|.caltech|
|000000b0| 2e 65 64 75 0a 50 6f 73 | 74 69 6e 67 2d 4e 75 6d |.edu.Pos|ting-Num|
|000000c0| 62 65 72 3a 20 56 6f 6c | 75 6d 65 20 32 35 2c 20 |ber: Vol|ume 25, |
|000000d0| 49 73 73 75 65 20 32 36 | 0a 41 72 63 68 69 76 65 |Issue 26|.Archive|
|000000e0| 2d 4e 61 6d 65 3a 20 66 | 73 70 2f 70 61 72 74 30 |-Name: f|sp/part0|
|000000f0| 33 0a 0a 23 21 20 2f 62 | 69 6e 2f 73 68 0a 23 20 |3..#! /b|in/sh.# |
|00000100| 54 68 69 73 20 69 73 20 | 61 20 73 68 65 6c 6c 20 |This is |a shell |
|00000110| 61 72 63 68 69 76 65 2e | 20 20 52 65 6d 6f 76 65 |archive.|  Remove|
|00000120| 20 61 6e 79 74 68 69 6e | 67 20 62 65 66 6f 72 65 | anythin|g before|
|00000130| 20 74 68 69 73 20 6c 69 | 6e 65 2c 20 74 68 65 6e | this li|ne, then|
|00000140| 20 75 6e 70 61 63 6b 0a | 23 20 69 74 20 62 79 20 | unpack.|# it by |
|00000150| 73 61 76 69 6e 67 20 69 | 74 20 69 6e 74 6f 20 61 |saving i|t into a|
|00000160| 20 66 69 6c 65 20 61 6e | 64 20 74 79 70 69 6e 67 | file an|d typing|
|00000170| 20 22 73 68 20 66 69 6c | 65 22 2e 20 20 54 6f 20 | "sh fil|e".  To |
|00000180| 6f 76 65 72 77 72 69 74 | 65 20 65 78 69 73 74 69 |overwrit|e existi|
|00000190| 6e 67 0a 23 20 66 69 6c | 65 73 2c 20 74 79 70 65 |ng.# fil|es, type|
|000001a0| 20 22 73 68 20 66 69 6c | 65 20 2d 63 22 2e 20 20 | "sh fil|e -c".  |
|000001b0| 59 6f 75 20 63 61 6e 20 | 61 6c 73 6f 20 66 65 65 |You can |also fee|
|000001c0| 64 20 74 68 69 73 20 61 | 73 20 73 74 61 6e 64 61 |d this a|s standa|
|000001d0| 72 64 20 69 6e 70 75 74 | 20 76 69 61 0a 23 20 75 |rd input| via.# u|
|000001e0| 6e 73 68 61 72 2c 20 6f | 72 20 62 79 20 74 79 70 |nshar, o|r by typ|
|000001f0| 69 6e 67 20 22 73 68 20 | 3c 66 69 6c 65 22 2c 20 |ing "sh |<file", |
|00000200| 65 2e 67 2e 2e 20 20 49 | 66 20 74 68 69 73 20 61 |e.g..  I|f this a|
|00000210| 72 63 68 69 76 65 20 69 | 73 20 63 6f 6d 70 6c 65 |rchive i|s comple|
|00000220| 74 65 2c 20 79 6f 75 0a | 23 20 77 69 6c 6c 20 73 |te, you.|# will s|
|00000230| 65 65 20 74 68 65 20 66 | 6f 6c 6c 6f 77 69 6e 67 |ee the f|ollowing|
|00000240| 20 6d 65 73 73 61 67 65 | 20 61 74 20 74 68 65 20 | message| at the |
|00000250| 65 6e 64 3a 0a 23 09 09 | 22 45 6e 64 20 6f 66 20 |end:.#..|"End of |
|00000260| 61 72 63 68 69 76 65 20 | 33 20 28 6f 66 20 33 29 |archive |3 (of 3)|
|00000270| 2e 22 0a 23 20 43 6f 6e | 74 65 6e 74 73 3a 20 20 |.".# Con|tents:  |
|00000280| 62 73 64 5f 73 72 63 2f | 6c 73 2e 63 20 62 73 64 |bsd_src/|ls.c bsd|
|00000290| 5f 73 72 63 2f 72 61 6e | 64 6f 6d 2e 63 20 73 65 |_src/ran|dom.c se|
|000002a0| 72 76 65 72 5f 66 69 6c | 65 2e 63 0a 23 20 57 72 |rver_fil|e.c.# Wr|
|000002b0| 61 70 70 65 64 20 62 79 | 20 76 69 78 69 65 40 63 |apped by| vixie@c|
|000002c0| 6f 67 6e 69 74 69 6f 6e | 2e 70 61 2e 64 65 63 2e |ognition|.pa.dec.|
|000002d0| 63 6f 6d 20 6f 6e 20 46 | 72 69 20 44 65 63 20 31 |com on F|ri Dec 1|
|000002e0| 33 20 31 37 3a 35 33 3a | 31 32 20 31 39 39 31 0a |3 17:53:|12 1991.|
|000002f0| 50 41 54 48 3d 2f 62 69 | 6e 3a 2f 75 73 72 2f 62 |PATH=/bi|n:/usr/b|
|00000300| 69 6e 3a 2f 75 73 72 2f | 75 63 62 20 3b 20 65 78 |in:/usr/|ucb ; ex|
|00000310| 70 6f 72 74 20 50 41 54 | 48 0a 69 66 20 74 65 73 |port PAT|H.if tes|
|00000320| 74 20 2d 66 20 27 62 73 | 64 5f 73 72 63 2f 6c 73 |t -f 'bs|d_src/ls|
|00000330| 2e 63 27 20 2d 61 20 22 | 24 7b 31 7d 22 20 21 3d |.c' -a "|${1}" !=|
|00000340| 20 22 2d 63 22 20 3b 20 | 74 68 65 6e 20 0a 20 20 | "-c" ; |then .  |
|00000350| 65 63 68 6f 20 73 68 61 | 72 3a 20 57 69 6c 6c 20 |echo sha|r: Will |
|00000360| 6e 6f 74 20 63 6c 6f 62 | 62 65 72 20 65 78 69 73 |not clob|ber exis|
|00000370| 74 69 6e 67 20 66 69 6c | 65 20 5c 22 27 62 73 64 |ting fil|e \"'bsd|
|00000380| 5f 73 72 63 2f 6c 73 2e | 63 27 5c 22 0a 65 6c 73 |_src/ls.|c'\".els|
|00000390| 65 0a 65 63 68 6f 20 73 | 68 61 72 3a 20 45 78 74 |e.echo s|har: Ext|
|000003a0| 72 61 63 74 69 6e 67 20 | 5c 22 27 62 73 64 5f 73 |racting |\"'bsd_s|
|000003b0| 72 63 2f 6c 73 2e 63 27 | 5c 22 20 5c 28 31 30 39 |rc/ls.c'|\" \(109|
|000003c0| 35 30 20 63 68 61 72 61 | 63 74 65 72 73 5c 29 0a |50 chara|cters\).|
|000003d0| 73 65 64 20 22 73 2f 5e | 58 2f 2f 22 20 3e 27 62 |sed "s/^|X//" >'b|
|000003e0| 73 64 5f 73 72 63 2f 6c | 73 2e 63 27 20 3c 3c 27 |sd_src/l|s.c' <<'|
|000003f0| 45 4e 44 5f 4f 46 5f 46 | 49 4c 45 27 0a 58 2f 2a |END_OF_F|ILE'.X/*|
|00000400| 0a 58 20 2a 20 43 6f 70 | 79 72 69 67 68 74 20 28 |.X * Cop|yright (|
|00000410| 63 29 20 31 39 38 39 20 | 54 68 65 20 52 65 67 65 |c) 1989 |The Rege|
|00000420| 6e 74 73 20 6f 66 20 74 | 68 65 20 55 6e 69 76 65 |nts of t|he Unive|
|00000430| 72 73 69 74 79 20 6f 66 | 20 43 61 6c 69 66 6f 72 |rsity of| Califor|
|00000440| 6e 69 61 2e 0a 58 20 2a | 20 41 6c 6c 20 72 69 67 |nia..X *| All rig|
|00000450| 68 74 73 20 72 65 73 65 | 72 76 65 64 2e 0a 58 20 |hts rese|rved..X |
|00000460| 2a 0a 58 20 2a 20 54 68 | 69 73 20 63 6f 64 65 20 |*.X * Th|is code |
|00000470| 69 73 20 64 65 72 69 76 | 65 64 20 66 72 6f 6d 20 |is deriv|ed from |
|00000480| 73 6f 66 74 77 61 72 65 | 20 63 6f 6e 74 72 69 62 |software| contrib|
|00000490| 75 74 65 64 20 74 6f 20 | 42 65 72 6b 65 6c 65 79 |uted to |Berkeley|
|000004a0| 20 62 79 0a 58 20 2a 20 | 4d 69 63 68 61 65 6c 20 | by.X * |Michael |
|000004b0| 46 69 73 63 68 62 65 69 | 6e 2e 0a 58 20 2a 0a 58 |Fischbei|n..X *.X|
|000004c0| 20 2a 20 52 65 64 69 73 | 74 72 69 62 75 74 69 6f | * Redis|tributio|
|000004d0| 6e 20 61 6e 64 20 75 73 | 65 20 69 6e 20 73 6f 75 |n and us|e in sou|
|000004e0| 72 63 65 20 61 6e 64 20 | 62 69 6e 61 72 79 20 66 |rce and |binary f|
|000004f0| 6f 72 6d 73 20 61 72 65 | 20 70 65 72 6d 69 74 74 |orms are| permitt|
|00000500| 65 64 0a 58 20 2a 20 70 | 72 6f 76 69 64 65 64 20 |ed.X * p|rovided |
|00000510| 74 68 61 74 3a 20 28 31 | 29 20 73 6f 75 72 63 65 |that: (1|) source|
|00000520| 20 64 69 73 74 72 69 62 | 75 74 69 6f 6e 73 20 72 | distrib|utions r|
|00000530| 65 74 61 69 6e 20 74 68 | 69 73 20 65 6e 74 69 72 |etain th|is entir|
|00000540| 65 20 63 6f 70 79 72 69 | 67 68 74 0a 58 20 2a 20 |e copyri|ght.X * |
|00000550| 6e 6f 74 69 63 65 20 61 | 6e 64 20 63 6f 6d 6d 65 |notice a|nd comme|
|00000560| 6e 74 2c 20 61 6e 64 20 | 28 32 29 20 64 69 73 74 |nt, and |(2) dist|
|00000570| 72 69 62 75 74 69 6f 6e | 73 20 69 6e 63 6c 75 64 |ribution|s includ|
|00000580| 69 6e 67 20 62 69 6e 61 | 72 69 65 73 20 64 69 73 |ing bina|ries dis|
|00000590| 70 6c 61 79 0a 58 20 2a | 20 74 68 65 20 66 6f 6c |play.X *| the fol|
|000005a0| 6c 6f 77 69 6e 67 20 61 | 63 6b 6e 6f 77 6c 65 64 |lowing a|cknowled|
|000005b0| 67 65 6d 65 6e 74 3a 20 | 20 60 60 54 68 69 73 20 |gement: | ``This |
|000005c0| 70 72 6f 64 75 63 74 20 | 69 6e 63 6c 75 64 65 73 |product |includes|
|000005d0| 20 73 6f 66 74 77 61 72 | 65 0a 58 20 2a 20 64 65 | softwar|e.X * de|
|000005e0| 76 65 6c 6f 70 65 64 20 | 62 79 20 74 68 65 20 55 |veloped |by the U|
|000005f0| 6e 69 76 65 72 73 69 74 | 79 20 6f 66 20 43 61 6c |niversit|y of Cal|
|00000600| 69 66 6f 72 6e 69 61 2c | 20 42 65 72 6b 65 6c 65 |ifornia,| Berkele|
|00000610| 79 20 61 6e 64 20 69 74 | 73 20 63 6f 6e 74 72 69 |y and it|s contri|
|00000620| 62 75 74 6f 72 73 27 27 | 0a 58 20 2a 20 69 6e 20 |butors''|.X * in |
|00000630| 74 68 65 20 64 6f 63 75 | 6d 65 6e 74 61 74 69 6f |the docu|mentatio|
|00000640| 6e 20 6f 72 20 6f 74 68 | 65 72 20 6d 61 74 65 72 |n or oth|er mater|
|00000650| 69 61 6c 73 20 70 72 6f | 76 69 64 65 64 20 77 69 |ials pro|vided wi|
|00000660| 74 68 20 74 68 65 20 64 | 69 73 74 72 69 62 75 74 |th the d|istribut|
|00000670| 69 6f 6e 0a 58 20 2a 20 | 61 6e 64 20 69 6e 20 61 |ion.X * |and in a|
|00000680| 6c 6c 20 61 64 76 65 72 | 74 69 73 69 6e 67 20 6d |ll adver|tising m|
|00000690| 61 74 65 72 69 61 6c 73 | 20 6d 65 6e 74 69 6f 6e |aterials| mention|
|000006a0| 69 6e 67 20 66 65 61 74 | 75 72 65 73 20 6f 72 20 |ing feat|ures or |
|000006b0| 75 73 65 20 6f 66 20 74 | 68 69 73 0a 58 20 2a 20 |use of t|his.X * |
|000006c0| 73 6f 66 74 77 61 72 65 | 2e 20 4e 65 69 74 68 65 |software|. Neithe|
|000006d0| 72 20 74 68 65 20 6e 61 | 6d 65 20 6f 66 20 74 68 |r the na|me of th|
|000006e0| 65 20 55 6e 69 76 65 72 | 73 69 74 79 20 6e 6f 72 |e Univer|sity nor|
|000006f0| 20 74 68 65 20 6e 61 6d | 65 73 20 6f 66 20 69 74 | the nam|es of it|
|00000700| 73 0a 58 20 2a 20 63 6f | 6e 74 72 69 62 75 74 6f |s.X * co|ntributo|
|00000710| 72 73 20 6d 61 79 20 62 | 65 20 75 73 65 64 20 74 |rs may b|e used t|
|00000720| 6f 20 65 6e 64 6f 72 73 | 65 20 6f 72 20 70 72 6f |o endors|e or pro|
|00000730| 6d 6f 74 65 20 70 72 6f | 64 75 63 74 73 20 64 65 |mote pro|ducts de|
|00000740| 72 69 76 65 64 0a 58 20 | 2a 20 66 72 6f 6d 20 74 |rived.X |* from t|
|00000750| 68 69 73 20 73 6f 66 74 | 77 61 72 65 20 77 69 74 |his soft|ware wit|
|00000760| 68 6f 75 74 20 73 70 65 | 63 69 66 69 63 20 70 72 |hout spe|cific pr|
|00000770| 69 6f 72 20 77 72 69 74 | 74 65 6e 20 70 65 72 6d |ior writ|ten perm|
|00000780| 69 73 73 69 6f 6e 2e 0a | 58 20 2a 20 54 48 49 53 |ission..|X * THIS|
|00000790| 20 53 4f 46 54 57 41 52 | 45 20 49 53 20 50 52 4f | SOFTWAR|E IS PRO|
|000007a0| 56 49 44 45 44 20 60 60 | 41 53 20 49 53 27 27 20 |VIDED ``|AS IS'' |
|000007b0| 41 4e 44 20 57 49 54 48 | 4f 55 54 20 41 4e 59 20 |AND WITH|OUT ANY |
|000007c0| 45 58 50 52 45 53 53 20 | 4f 52 0a 58 20 2a 20 49 |EXPRESS |OR.X * I|
|000007d0| 4d 50 4c 49 45 44 20 57 | 41 52 52 41 4e 54 49 45 |MPLIED W|ARRANTIE|
|000007e0| 53 2c 20 49 4e 43 4c 55 | 44 49 4e 47 2c 20 57 49 |S, INCLU|DING, WI|
|000007f0| 54 48 4f 55 54 20 4c 49 | 4d 49 54 41 54 49 4f 4e |THOUT LI|MITATION|
|00000800| 2c 20 54 48 45 20 49 4d | 50 4c 49 45 44 0a 58 20 |, THE IM|PLIED.X |
|00000810| 2a 20 57 41 52 52 41 4e | 54 49 45 53 20 4f 46 20 |* WARRAN|TIES OF |
|00000820| 4d 45 52 43 48 41 4e 54 | 41 42 49 4c 49 54 59 20 |MERCHANT|ABILITY |
|00000830| 41 4e 44 20 46 49 54 4e | 45 53 53 20 46 4f 52 20 |AND FITN|ESS FOR |
|00000840| 41 20 50 41 52 54 49 43 | 55 4c 41 52 20 50 55 52 |A PARTIC|ULAR PUR|
|00000850| 50 4f 53 45 2e 0a 58 20 | 2a 2f 0a 58 0a 58 23 69 |POSE..X |*/.X.X#i|
|00000860| 66 6e 64 65 66 20 6c 69 | 6e 74 0a 63 68 61 72 20 |fndef li|nt.char |
|00000870| 63 6f 70 79 72 69 67 68 | 74 5b 5d 20 3d 0a 58 22 |copyrigh|t[] =.X"|
|00000880| 40 28 23 29 20 43 6f 70 | 79 72 69 67 68 74 20 28 |@(#) Cop|yright (|
|00000890| 63 29 20 31 39 38 39 20 | 54 68 65 20 52 65 67 65 |c) 1989 |The Rege|
|000008a0| 6e 74 73 20 6f 66 20 74 | 68 65 20 55 6e 69 76 65 |nts of t|he Unive|
|000008b0| 72 73 69 74 79 20 6f 66 | 20 43 61 6c 69 66 6f 72 |rsity of| Califor|
|000008c0| 6e 69 61 2e 5c 6e 5c 0a | 58 20 41 6c 6c 20 72 69 |nia.\n\.|X All ri|
|000008d0| 67 68 74 73 20 72 65 73 | 65 72 76 65 64 2e 5c 6e |ghts res|erved.\n|
|000008e0| 22 3b 0a 58 23 65 6e 64 | 69 66 20 2f 2a 20 6e 6f |";.X#end|if /* no|
|000008f0| 74 20 6c 69 6e 74 20 2a | 2f 0a 58 0a 58 23 69 66 |t lint *|/.X.X#if|
|00000900| 6e 64 65 66 20 6c 69 6e | 74 0a 73 74 61 74 69 63 |ndef lin|t.static|
|00000910| 20 63 68 61 72 20 73 63 | 63 73 69 64 5b 5d 20 3d | char sc|csid[] =|
|00000920| 20 22 40 28 23 29 6c 73 | 2e 63 09 35 2e 34 32 20 | "@(#)ls|.c.5.42 |
|00000930| 28 42 65 72 6b 65 6c 65 | 79 29 20 35 2f 31 37 2f |(Berkele|y) 5/17/|
|00000940| 39 30 22 3b 0a 58 23 65 | 6e 64 69 66 20 2f 2a 20 |90";.X#e|ndif /* |
|00000950| 6e 6f 74 20 6c 69 6e 74 | 20 2a 2f 0a 58 0a 58 23 |not lint| */.X.X#|
|00000960| 69 6e 63 6c 75 64 65 20 | 22 2e 2e 2f 63 6c 69 65 |include |"../clie|
|00000970| 6e 74 5f 64 65 66 2e 68 | 22 0a 58 23 69 6e 63 6c |nt_def.h|".X#incl|
|00000980| 75 64 65 20 3c 73 79 73 | 2f 69 6f 63 74 6c 2e 68 |ude <sys|/ioctl.h|
|00000990| 3e 0a 58 23 69 6e 63 6c | 75 64 65 20 3c 73 74 72 |>.X#incl|ude <str|
|000009a0| 69 6e 67 2e 68 3e 0a 58 | 23 69 6e 63 6c 75 64 65 |ing.h>.X|#include|
|000009b0| 20 22 6c 73 2e 68 22 0a | 58 23 69 6e 63 6c 75 64 | "ls.h".|X#includ|
|000009c0| 65 20 22 74 77 65 61 6b | 2e 68 22 0a 58 0a 69 6e |e "tweak|.h".X.in|
|000009d0| 74 20 28 2a 73 6f 72 74 | 66 63 6e 29 28 29 2c 20 |t (*sort|fcn)(), |
|000009e0| 28 2a 70 72 69 6e 74 66 | 63 6e 29 28 29 3b 0a 63 |(*printf|cn)();.c|
|000009f0| 68 61 72 20 2a 65 6d 61 | 6c 6c 6f 63 28 29 3b 0a |har *ema|lloc();.|
|00000a00| 58 0a 69 6e 74 20 74 65 | 72 6d 77 69 64 74 68 20 |X.int te|rmwidth |
|00000a10| 3d 20 38 30 3b 09 09 2f | 2a 20 64 65 66 61 75 6c |= 80;../|* defaul|
|00000a20| 74 20 74 65 72 6d 69 6e | 61 6c 20 77 69 64 74 68 |t termin|al width|
|00000a30| 20 2a 2f 0a 58 0a 58 2f | 2a 20 66 6c 61 67 73 20 | */.X.X/|* flags |
|00000a40| 2a 2f 0a 69 6e 74 20 66 | 5f 61 63 63 65 73 73 74 |*/.int f|_accesst|
|00000a50| 69 6d 65 3b 09 09 2f 2a | 20 75 73 65 20 74 69 6d |ime;../*| use tim|
|00000a60| 65 20 6f 66 20 6c 61 73 | 74 20 61 63 63 65 73 73 |e of las|t access|
|00000a70| 20 2a 2f 0a 69 6e 74 20 | 66 5f 63 6f 6c 75 6d 6e | */.int |f_column|
|00000a80| 3b 09 09 09 2f 2a 20 63 | 6f 6c 75 6d 6e 61 74 65 |;.../* c|olumnate|
|00000a90| 64 20 66 6f 72 6d 61 74 | 20 2a 2f 0a 69 6e 74 20 |d format| */.int |
|00000aa0| 66 5f 67 72 6f 75 70 3b | 09 09 09 2f 2a 20 73 68 |f_group;|.../* sh|
|00000ab0| 6f 77 20 67 72 6f 75 70 | 20 6f 77 6e 65 72 73 68 |ow group| ownersh|
|00000ac0| 69 70 20 6f 66 20 61 20 | 66 69 6c 65 20 2a 2f 0a |ip of a |file */.|
|00000ad0| 69 6e 74 20 66 5f 69 67 | 6e 6f 72 65 6c 69 6e 6b |int f_ig|norelink|
|00000ae0| 3b 09 09 2f 2a 20 69 6e | 64 69 72 65 63 74 20 74 |;../* in|direct t|
|00000af0| 68 72 6f 75 67 68 20 73 | 79 6d 62 6f 6c 69 63 20 |hrough s|ymbolic |
|00000b00| 6c 69 6e 6b 20 6f 70 65 | 72 61 6e 64 73 20 2a 2f |link ope|rands */|
|00000b10| 0a 69 6e 74 20 66 5f 69 | 6e 6f 64 65 3b 09 09 09 |.int f_i|node;...|
|00000b20| 2f 2a 20 70 72 69 6e 74 | 20 69 6e 6f 64 65 20 2a |/* print| inode *|
|00000b30| 2f 0a 69 6e 74 20 66 5f | 6b 62 6c 6f 63 6b 73 3b |/.int f_|kblocks;|
|00000b40| 09 09 09 2f 2a 20 70 72 | 69 6e 74 20 73 69 7a 65 |.../* pr|int size|
|00000b50| 20 69 6e 20 6b 69 6c 6f | 62 79 74 65 73 20 2a 2f | in kilo|bytes */|
|00000b60| 0a 69 6e 74 20 66 5f 6c | 69 73 74 61 6c 6c 64 6f |.int f_l|istalldo|
|00000b70| 74 3b 09 09 2f 2a 20 6c | 69 73 74 20 2e 20 61 6e |t;../* l|ist . an|
|00000b80| 64 20 2e 2e 20 61 73 20 | 77 65 6c 6c 20 2a 2f 0a |d .. as |well */.|
|00000b90| 69 6e 74 20 66 5f 6c 69 | 73 74 64 69 72 3b 09 09 |int f_li|stdir;..|
|00000ba0| 09 2f 2a 20 6c 69 73 74 | 20 61 63 74 75 61 6c 20 |./* list| actual |
|00000bb0| 64 69 72 65 63 74 6f 72 | 79 2c 20 6e 6f 74 20 63 |director|y, not c|
|00000bc0| 6f 6e 74 65 6e 74 73 20 | 2a 2f 0a 69 6e 74 20 66 |ontents |*/.int f|
|00000bd0| 5f 6c 69 73 74 64 6f 74 | 3b 09 09 09 2f 2a 20 6c |_listdot|;.../* l|
|00000be0| 69 73 74 20 66 69 6c 65 | 73 20 62 65 67 69 6e 6e |ist file|s beginn|
|00000bf0| 69 6e 67 20 77 69 74 68 | 20 2e 20 2a 2f 0a 69 6e |ing with| . */.in|
|00000c00| 74 20 66 5f 6c 6f 6e 67 | 66 6f 72 6d 3b 09 09 09 |t f_long|form;...|
|00000c10| 2f 2a 20 6c 6f 6e 67 20 | 6c 69 73 74 69 6e 67 20 |/* long |listing |
|00000c20| 66 6f 72 6d 61 74 20 2a | 2f 0a 69 6e 74 20 66 5f |format *|/.int f_|
|00000c30| 6e 65 65 64 73 74 61 74 | 3b 09 09 09 2f 2a 20 69 |needstat|;.../* i|
|00000c40| 66 20 6e 65 65 64 20 74 | 6f 20 73 74 61 74 20 66 |f need t|o stat f|
|00000c50| 69 6c 65 73 20 2a 2f 0a | 69 6e 74 20 66 5f 6e 65 |iles */.|int f_ne|
|00000c60| 77 6c 69 6e 65 3b 09 09 | 09 2f 2a 20 69 66 20 70 |wline;..|./* if p|
|00000c70| 72 65 63 65 64 65 20 77 | 69 74 68 20 6e 65 77 6c |recede w|ith newl|
|00000c80| 69 6e 65 20 2a 2f 0a 69 | 6e 74 20 66 5f 6e 6f 6e |ine */.i|nt f_non|
|00000c90| 70 72 69 6e 74 3b 09 09 | 09 2f 2a 20 73 68 6f 77 |print;..|./* show|
|00000ca0| 20 75 6e 70 72 69 6e 74 | 61 62 6c 65 73 20 61 73 | unprint|ables as|
|00000cb0| 20 3f 20 2a 2f 0a 69 6e | 74 20 66 5f 6e 6f 73 6f | ? */.in|t f_noso|
|00000cc0| 72 74 3b 09 09 09 2f 2a | 20 64 6f 6e 27 74 20 73 |rt;.../*| don't s|
|00000cd0| 6f 72 74 20 6f 75 74 70 | 75 74 20 2a 2f 0a 69 6e |ort outp|ut */.in|
|00000ce0| 74 20 66 5f 72 65 63 75 | 72 73 69 76 65 3b 09 09 |t f_recu|rsive;..|
|00000cf0| 2f 2a 20 6c 73 20 73 75 | 62 64 69 72 65 63 74 6f |/* ls su|bdirecto|
|00000d00| 72 69 65 73 20 61 6c 73 | 6f 20 2a 2f 0a 69 6e 74 |ries als|o */.int|
|00000d10| 20 66 5f 72 65 76 65 72 | 73 65 73 6f 72 74 3b 09 | f_rever|sesort;.|
|00000d20| 09 2f 2a 20 72 65 76 65 | 72 73 65 20 77 68 61 74 |./* reve|rse what|
|00000d30| 65 76 65 72 20 73 6f 72 | 74 20 69 73 20 75 73 65 |ever sor|t is use|
|00000d40| 64 20 2a 2f 0a 69 6e 74 | 20 66 5f 73 69 6e 67 6c |d */.int| f_singl|
|00000d50| 65 63 6f 6c 3b 09 09 2f | 2a 20 75 73 65 20 73 69 |ecol;../|* use si|
|00000d60| 6e 67 6c 65 20 63 6f 6c | 75 6d 6e 20 6f 75 74 70 |ngle col|umn outp|
|00000d70| 75 74 20 2a 2f 0a 69 6e | 74 20 66 5f 73 69 7a 65 |ut */.in|t f_size|
|00000d80| 3b 09 09 09 2f 2a 20 6c | 69 73 74 20 73 69 7a 65 |;.../* l|ist size|
|00000d90| 20 69 6e 20 73 68 6f 72 | 74 20 6c 69 73 74 69 6e | in shor|t listin|
|00000da0| 67 20 2a 2f 0a 69 6e 74 | 20 66 5f 73 74 61 74 75 |g */.int| f_statu|
|00000db0| 73 74 69 6d 65 3b 09 09 | 2f 2a 20 75 73 65 20 74 |stime;..|/* use t|
|00000dc0| 69 6d 65 20 6f 66 20 6c | 61 73 74 20 6d 6f 64 65 |ime of l|ast mode|
|00000dd0| 20 63 68 61 6e 67 65 20 | 2a 2f 0a 69 6e 74 20 66 | change |*/.int f|
|00000de0| 5f 64 69 72 6e 61 6d 65 | 3b 09 09 09 2f 2a 20 69 |_dirname|;.../* i|
|00000df0| 66 20 70 72 65 63 65 64 | 65 20 77 69 74 68 20 64 |f preced|e with d|
|00000e00| 69 72 65 63 74 6f 72 79 | 20 6e 61 6d 65 20 2a 2f |irectory| name */|
|00000e10| 0a 69 6e 74 20 66 5f 74 | 69 6d 65 73 6f 72 74 3b |.int f_t|imesort;|
|00000e20| 09 09 09 2f 2a 20 73 6f | 72 74 20 62 79 20 74 69 |.../* so|rt by ti|
|00000e30| 6d 65 20 76 69 63 65 20 | 6e 61 6d 65 20 2a 2f 0a |me vice |name */.|
|00000e40| 69 6e 74 20 66 5f 74 6f | 74 61 6c 3b 09 09 09 2f |int f_to|tal;.../|
|00000e50| 2a 20 69 66 20 70 72 65 | 63 65 64 65 20 77 69 74 |* if pre|cede wit|
|00000e60| 68 20 22 74 6f 74 61 6c | 22 20 6c 69 6e 65 20 2a |h "total|" line *|
|00000e70| 2f 0a 69 6e 74 20 66 5f | 74 79 70 65 3b 09 09 09 |/.int f_|type;...|
|00000e80| 2f 2a 20 61 64 64 20 74 | 79 70 65 20 63 68 61 72 |/* add t|ype char|
|00000e90| 61 63 74 65 72 20 66 6f | 72 20 6e 6f 6e 2d 72 65 |acter fo|r non-re|
|00000ea0| 67 75 6c 61 72 20 66 69 | 6c 65 73 20 2a 2f 0a 58 |gular fi|les */.X|
|00000eb0| 0a 66 6c 73 5f 6d 61 69 | 6e 28 61 72 67 63 2c 20 |.fls_mai|n(argc, |
|00000ec0| 61 72 67 76 29 0a 58 09 | 69 6e 74 20 61 72 67 63 |argv).X.|int argc|
|00000ed0| 3b 0a 58 09 63 68 61 72 | 20 2a 2a 61 72 67 76 3b |;.X.char| **argv;|
|00000ee0| 0a 58 7b 0a 58 09 65 78 | 74 65 72 6e 20 69 6e 74 |.X{.X.ex|tern int|
|00000ef0| 20 6f 70 74 69 6e 64 3b | 0a 58 09 69 6e 74 20 63 | optind;|.X.int c|
|00000f00| 68 3b 0a 58 09 63 68 61 | 72 20 2a 70 2c 20 2a 67 |h;.X.cha|r *p, *g|
|00000f10| 65 74 65 6e 76 28 29 3b | 0a 58 09 69 6e 74 20 61 |etenv();|.X.int a|
|00000f20| 63 63 63 6d 70 28 29 2c | 20 6d 6f 64 63 6d 70 28 |cccmp(),| modcmp(|
|00000f30| 29 2c 20 6e 61 6d 65 63 | 6d 70 28 29 2c 20 70 72 |), namec|mp(), pr|
|00000f40| 63 6f 70 79 28 29 2c 20 | 70 72 69 6e 74 63 6f 6c |copy(), |printcol|
|00000f50| 28 29 3b 0a 58 09 69 6e | 74 20 70 72 69 6e 74 6c |();.X.in|t printl|
|00000f60| 6f 6e 67 28 29 2c 20 70 | 72 69 6e 74 73 63 6f 6c |ong(), p|rintscol|
|00000f70| 28 29 2c 20 72 65 76 61 | 63 63 63 6d 70 28 29 2c |(), reva|cccmp(),|
|00000f80| 20 72 65 76 6d 6f 64 63 | 6d 70 28 29 2c 20 72 65 | revmodc|mp(), re|
|00000f90| 76 6e 61 6d 65 63 6d 70 | 28 29 3b 0a 58 09 69 6e |vnamecmp|();.X.in|
|00000fa0| 74 20 72 65 76 73 74 61 | 74 63 6d 70 28 29 2c 20 |t revsta|tcmp(), |
|00000fb0| 73 74 61 74 63 6d 70 28 | 29 3b 0a 58 0a 58 09 2f |statcmp(|);.X.X./|
|00000fc0| 2a 20 74 65 72 6d 69 6e | 61 6c 20 64 65 66 61 75 |* termin|al defau|
|00000fd0| 6c 74 73 20 74 6f 20 2d | 43 71 2c 20 6e 6f 6e 2d |lts to -|Cq, non-|
|00000fe0| 74 65 72 6d 69 6e 61 6c | 20 64 65 66 61 75 6c 74 |terminal| default|
|00000ff0| 73 20 74 6f 20 2d 31 20 | 2a 2f 0a 58 09 69 66 20 |s to -1 |*/.X.if |
|00001000| 28 69 73 61 74 74 79 28 | 31 29 29 20 7b 0a 58 09 |(isatty(|1)) {.X.|
|00001010| 09 66 5f 6e 6f 6e 70 72 | 69 6e 74 20 3d 20 31 3b |.f_nonpr|int = 1;|
|00001020| 0a 58 09 09 74 65 72 6d | 77 69 64 74 68 20 20 3d |.X..term|width  =|
|00001030| 20 38 30 3b 0a 58 23 69 | 66 64 65 66 20 54 49 4f | 80;.X#i|fdef TIO|
|00001040| 43 47 57 49 4e 53 5a 0a | 58 09 09 7b 20 20 20 73 |CGWINSZ.|X..{   s|
|00001050| 74 72 75 63 74 20 77 69 | 6e 73 69 7a 65 20 77 69 |truct wi|nsize wi|
|00001060| 6e 3b 0a 58 09 09 20 20 | 20 20 69 66 20 28 69 6f |n;.X..  |  if (io|
|00001070| 63 74 6c 28 31 2c 20 54 | 49 4f 43 47 57 49 4e 53 |ctl(1, T|IOCGWINS|
|00001080| 5a 2c 20 26 77 69 6e 29 | 20 3d 3d 20 2d 31 20 7c |Z, &win)| == -1 ||
|00001090| 7c 20 21 77 69 6e 2e 77 | 73 5f 63 6f 6c 29 20 7b || !win.w|s_col) {|
|000010a0| 0a 58 09 09 09 20 20 20 | 20 69 66 20 28 70 20 3d |.X...   | if (p =|
|000010b0| 20 67 65 74 65 6e 76 28 | 22 43 4f 4c 55 4d 4e 53 | getenv(|"COLUMNS|
|000010c0| 22 29 29 0a 58 09 09 09 | 09 20 20 20 20 74 65 72 |")).X...|.    ter|
|000010d0| 6d 77 69 64 74 68 20 3d | 20 61 74 6f 69 28 70 29 |mwidth =| atoi(p)|
|000010e0| 3b 0a 58 09 09 20 20 20 | 20 7d 0a 58 09 09 20 20 |;.X..   | }.X..  |
|000010f0| 20 20 65 6c 73 65 0a 58 | 09 09 09 20 20 20 20 74 |  else.X|...    t|
|00001100| 65 72 6d 77 69 64 74 68 | 20 3d 20 77 69 6e 2e 77 |ermwidth| = win.w|
|00001110| 73 5f 63 6f 6c 3b 0a 58 | 09 09 7d 0a 58 23 65 6e |s_col;.X|..}.X#en|
|00001120| 64 69 66 0a 58 09 09 66 | 5f 63 6f 6c 75 6d 6e 20 |dif.X..f|_column |
|00001130| 3d 20 31 3b 0a 58 09 7d | 20 65 6c 73 65 0a 58 09 |= 1;.X.}| else.X.|
|00001140| 09 66 5f 73 69 6e 67 6c | 65 63 6f 6c 20 3d 20 31 |.f_singl|ecol = 1|
|00001150| 3b 0a 58 0a 58 09 2f 2a | 20 72 6f 6f 74 20 69 73 |;.X.X./*| root is|
|00001160| 20 2d 41 20 61 75 74 6f | 6d 61 74 69 63 61 6c 6c | -A auto|maticall|
|00001170| 79 20 2a 2f 0a 58 09 69 | 66 20 28 21 67 65 74 75 |y */.X.i|f (!getu|
|00001180| 69 64 28 29 29 0a 58 09 | 09 66 5f 6c 69 73 74 64 |id()).X.|.f_listd|
|00001190| 6f 74 20 3d 20 31 3b 0a | 58 0a 58 09 77 68 69 6c |ot = 1;.|X.X.whil|
|000011a0| 65 20 28 28 63 68 20 3d | 20 67 65 74 6f 70 74 28 |e ((ch =| getopt(|
|000011b0| 61 72 67 63 2c 20 61 72 | 67 76 2c 20 22 31 41 43 |argc, ar|gv, "1AC|
|000011c0| 46 4c 52 61 63 64 66 67 | 69 6b 6c 71 72 73 74 75 |FLRacdfg|iklqrstu|
|000011d0| 22 29 29 20 21 3d 20 45 | 4f 46 29 20 7b 0a 58 09 |")) != E|OF) {.X.|
|000011e0| 09 73 77 69 74 63 68 20 | 28 63 68 29 20 7b 0a 58 |.switch |(ch) {.X|
|000011f0| 09 09 2f 2a 0a 58 09 09 | 20 2a 20 2d 31 2c 20 2d |../*.X..| * -1, -|
|00001200| 43 20 61 6e 64 20 2d 6c | 20 61 6c 6c 20 6f 76 65 |C and -l| all ove|
|00001210| 72 72 69 64 65 20 65 61 | 63 68 20 6f 74 68 65 72 |rride ea|ch other|
|00001220| 0a 58 09 09 20 2a 20 73 | 6f 20 73 68 65 6c 6c 20 |.X.. * s|o shell |
|00001230| 61 6c 69 61 73 69 6e 67 | 20 77 6f 72 6b 73 20 72 |aliasing| works r|
|00001240| 69 67 68 74 0a 58 09 09 | 20 2a 2f 0a 58 09 09 63 |ight.X..| */.X..c|
|00001250| 61 73 65 20 27 31 27 3a | 0a 58 09 09 09 66 5f 73 |ase '1':|.X...f_s|
|00001260| 69 6e 67 6c 65 63 6f 6c | 20 3d 20 31 3b 0a 58 09 |inglecol| = 1;.X.|
|00001270| 09 09 66 5f 63 6f 6c 75 | 6d 6e 20 3d 20 66 5f 6c |..f_colu|mn = f_l|
|00001280| 6f 6e 67 66 6f 72 6d 20 | 3d 20 30 3b 0a 58 09 09 |ongform |= 0;.X..|
|00001290| 09 62 72 65 61 6b 3b 0a | 58 09 09 63 61 73 65 20 |.break;.|X..case |
|000012a0| 27 43 27 3a 0a 58 09 09 | 09 66 5f 63 6f 6c 75 6d |'C':.X..|.f_colum|
|000012b0| 6e 20 3d 20 31 3b 0a 58 | 09 09 09 66 5f 6c 6f 6e |n = 1;.X|...f_lon|
|000012c0| 67 66 6f 72 6d 20 3d 20 | 66 5f 73 69 6e 67 6c 65 |gform = |f_single|
|000012d0| 63 6f 6c 20 3d 20 30 3b | 0a 58 09 09 09 62 72 65 |col = 0;|.X...bre|
|000012e0| 61 6b 3b 0a 58 09 09 63 | 61 73 65 20 27 6c 27 3a |ak;.X..c|ase 'l':|
|000012f0| 0a 58 09 09 09 66 5f 6c | 6f 6e 67 66 6f 72 6d 20 |.X...f_l|ongform |
|00001300| 3d 20 31 3b 0a 58 09 09 | 09 66 5f 63 6f 6c 75 6d |= 1;.X..|.f_colum|
|00001310| 6e 20 3d 20 66 5f 73 69 | 6e 67 6c 65 63 6f 6c 20 |n = f_si|nglecol |
|00001320| 3d 20 30 3b 0a 58 09 09 | 09 62 72 65 61 6b 3b 0a |= 0;.X..|.break;.|
|00001330| 58 09 09 2f 2a 20 2d 63 | 20 61 6e 64 20 2d 75 20 |X../* -c| and -u |
|00001340| 6f 76 65 72 72 69 64 65 | 20 65 61 63 68 20 6f 74 |override| each ot|
|00001350| 68 65 72 20 2a 2f 0a 58 | 09 09 63 61 73 65 20 27 |her */.X|..case '|
|00001360| 63 27 3a 0a 58 09 09 09 | 66 5f 73 74 61 74 75 73 |c':.X...|f_status|
|00001370| 74 69 6d 65 20 3d 20 31 | 3b 0a 58 09 09 09 66 5f |time = 1|;.X...f_|
|00001380| 61 63 63 65 73 73 74 69 | 6d 65 20 3d 20 30 3b 0a |accessti|me = 0;.|
|00001390| 58 09 09 09 62 72 65 61 | 6b 3b 0a 58 09 09 63 61 |X...brea|k;.X..ca|
|000013a0| 73 65 20 27 75 27 3a 0a | 58 09 09 09 66 5f 61 63 |se 'u':.|X...f_ac|
|000013b0| 63 65 73 73 74 69 6d 65 | 20 3d 20 31 3b 0a 58 09 |cesstime| = 1;.X.|
|000013c0| 09 09 66 5f 73 74 61 74 | 75 73 74 69 6d 65 20 3d |..f_stat|ustime =|
|000013d0| 20 30 3b 0a 58 09 09 09 | 62 72 65 61 6b 3b 0a 58 | 0;.X...|break;.X|
|000013e0| 09 09 63 61 73 65 20 27 | 46 27 3a 0a 58 09 09 09 |..case '|F':.X...|
|000013f0| 66 5f 74 79 70 65 20 3d | 20 31 3b 0a 58 09 09 09 |f_type =| 1;.X...|
|00001400| 62 72 65 61 6b 3b 0a 58 | 09 09 63 61 73 65 20 27 |break;.X|..case '|
|00001410| 4c 27 3a 0a 58 09 09 09 | 66 5f 69 67 6e 6f 72 65 |L':.X...|f_ignore|
|00001420| 6c 69 6e 6b 20 3d 20 31 | 3b 0a 58 09 09 09 62 72 |link = 1|;.X...br|
|00001430| 65 61 6b 3b 0a 58 09 09 | 63 61 73 65 20 27 52 27 |eak;.X..|case 'R'|
|00001440| 3a 0a 58 09 09 09 66 5f | 72 65 63 75 72 73 69 76 |:.X...f_|recursiv|
|00001450| 65 20 3d 20 31 3b 0a 58 | 09 09 09 62 72 65 61 6b |e = 1;.X|...break|
|00001460| 3b 0a 58 09 09 63 61 73 | 65 20 27 61 27 3a 0a 58 |;.X..cas|e 'a':.X|
|00001470| 09 09 09 66 5f 6c 69 73 | 74 61 6c 6c 64 6f 74 20 |...f_lis|talldot |
|00001480| 3d 20 31 3b 0a 58 09 09 | 09 2f 2a 20 46 41 4c 4c |= 1;.X..|./* FALL|
|00001490| 54 48 52 4f 55 47 48 20 | 2a 2f 0a 58 09 09 63 61 |THROUGH |*/.X..ca|
|000014a0| 73 65 20 27 41 27 3a 0a | 58 09 09 09 66 5f 6c 69 |se 'A':.|X...f_li|
|000014b0| 73 74 64 6f 74 20 3d 20 | 31 3b 0a 58 09 09 09 62 |stdot = |1;.X...b|
|000014c0| 72 65 61 6b 3b 0a 58 09 | 09 63 61 73 65 20 27 64 |reak;.X.|.case 'd|
|000014d0| 27 3a 0a 58 09 09 09 66 | 5f 6c 69 73 74 64 69 72 |':.X...f|_listdir|
|000014e0| 20 3d 20 31 3b 0a 58 09 | 09 09 62 72 65 61 6b 3b | = 1;.X.|..break;|
|000014f0| 0a 58 09 09 63 61 73 65 | 20 27 66 27 3a 0a 58 09 |.X..case| 'f':.X.|
|00001500| 09 09 66 5f 6e 6f 73 6f | 72 74 20 3d 20 31 3b 0a |..f_noso|rt = 1;.|
|00001510| 58 09 09 09 62 72 65 61 | 6b 3b 0a 58 09 09 63 61 |X...brea|k;.X..ca|
|00001520| 73 65 20 27 67 27 3a 0a | 58 09 09 09 66 5f 67 72 |se 'g':.|X...f_gr|
|00001530| 6f 75 70 20 3d 20 31 3b | 0a 58 09 09 09 62 72 65 |oup = 1;|.X...bre|
|00001540| 61 6b 3b 0a 58 09 09 63 | 61 73 65 20 27 69 27 3a |ak;.X..c|ase 'i':|
|00001550| 0a 58 09 09 09 66 5f 69 | 6e 6f 64 65 20 3d 20 31 |.X...f_i|node = 1|
|00001560| 3b 0a 58 09 09 09 62 72 | 65 61 6b 3b 0a 58 09 09 |;.X...br|eak;.X..|
|00001570| 63 61 73 65 20 27 6b 27 | 3a 0a 58 09 09 09 66 5f |case 'k'|:.X...f_|
|00001580| 6b 62 6c 6f 63 6b 73 20 | 3d 20 31 3b 0a 58 09 09 |kblocks |= 1;.X..|
|00001590| 09 62 72 65 61 6b 3b 0a | 58 09 09 63 61 73 65 20 |.break;.|X..case |
|000015a0| 27 71 27 3a 0a 58 09 09 | 09 66 5f 6e 6f 6e 70 72 |'q':.X..|.f_nonpr|
|000015b0| 69 6e 74 20 3d 20 31 3b | 0a 58 09 09 09 62 72 65 |int = 1;|.X...bre|
|000015c0| 61 6b 3b 0a 58 09 09 63 | 61 73 65 20 27 72 27 3a |ak;.X..c|ase 'r':|
|000015d0| 0a 58 09 09 09 66 5f 72 | 65 76 65 72 73 65 73 6f |.X...f_r|everseso|
|000015e0| 72 74 20 3d 20 31 3b 0a | 58 09 09 09 62 72 65 61 |rt = 1;.|X...brea|
|000015f0| 6b 3b 0a 58 09 09 63 61 | 73 65 20 27 73 27 3a 0a |k;.X..ca|se 's':.|
|00001600| 58 09 09 09 66 5f 73 69 | 7a 65 20 3d 20 31 3b 0a |X...f_si|ze = 1;.|
|00001610| 58 09 09 09 62 72 65 61 | 6b 3b 0a 58 09 09 63 61 |X...brea|k;.X..ca|
|00001620| 73 65 20 27 74 27 3a 0a | 58 09 09 09 66 5f 74 69 |se 't':.|X...f_ti|
|00001630| 6d 65 73 6f 72 74 20 3d | 20 31 3b 0a 58 09 09 09 |mesort =| 1;.X...|
|00001640| 62 72 65 61 6b 3b 0a 58 | 09 09 64 65 66 61 75 6c |break;.X|..defaul|
|00001650| 74 3a 0a 58 09 09 63 61 | 73 65 20 27 3f 27 3a 0a |t:.X..ca|se '?':.|
|00001660| 58 09 09 09 75 73 61 67 | 65 28 29 3b 0a 58 09 09 |X...usag|e();.X..|
|00001670| 7d 0a 58 09 7d 0a 58 09 | 61 72 67 63 20 2d 3d 20 |}.X.}.X.|argc -= |
|00001680| 6f 70 74 69 6e 64 3b 0a | 58 09 61 72 67 76 20 2b |optind;.|X.argv +|
|00001690| 3d 20 6f 70 74 69 6e 64 | 3b 0a 58 0a 58 09 2f 2a |= optind|;.X.X./*|
|000016a0| 20 2d 64 20 74 75 72 6e | 73 20 6f 66 66 20 2d 52 | -d turn|s off -R|
|000016b0| 20 2a 2f 0a 58 09 69 66 | 20 28 66 5f 6c 69 73 74 | */.X.if| (f_list|
|000016c0| 64 69 72 29 0a 58 09 09 | 66 5f 72 65 63 75 72 73 |dir).X..|f_recurs|
|000016d0| 69 76 65 20 3d 20 30 3b | 0a 58 0a 58 09 2f 2a 20 |ive = 0;|.X.X./* |
|000016e0| 69 66 20 6e 65 65 64 20 | 74 6f 20 73 74 61 74 20 |if need |to stat |
|000016f0| 66 69 6c 65 73 20 2a 2f | 0a 58 09 66 5f 6e 65 65 |files */|.X.f_nee|
|00001700| 64 73 74 61 74 20 3d 20 | 66 5f 6c 6f 6e 67 66 6f |dstat = |f_longfo|
|00001710| 72 6d 20 7c 7c 20 66 5f | 72 65 63 75 72 73 69 76 |rm || f_|recursiv|
|00001720| 65 20 7c 7c 20 66 5f 74 | 69 6d 65 73 6f 72 74 20 |e || f_t|imesort |
|00001730| 7c 7c 0a 58 09 20 20 20 | 20 66 5f 73 69 7a 65 20 |||.X.   | f_size |
|00001740| 7c 7c 20 66 5f 74 79 70 | 65 3b 0a 58 0a 58 09 2f ||| f_typ|e;.X.X./|
|00001750| 2a 20 73 65 6c 65 63 74 | 20 61 20 73 6f 72 74 20 |* select| a sort |
|00001760| 66 75 6e 63 74 69 6f 6e | 20 2a 2f 0a 58 09 69 66 |function| */.X.if|
|00001770| 20 28 66 5f 72 65 76 65 | 72 73 65 73 6f 72 74 29 | (f_reve|rsesort)|
|00001780| 20 7b 0a 58 09 09 69 66 | 20 28 21 66 5f 74 69 6d | {.X..if| (!f_tim|
|00001790| 65 73 6f 72 74 29 0a 58 | 09 09 09 73 6f 72 74 66 |esort).X|...sortf|
|000017a0| 63 6e 20 3d 20 72 65 76 | 6e 61 6d 65 63 6d 70 3b |cn = rev|namecmp;|
|000017b0| 0a 58 09 09 65 6c 73 65 | 20 69 66 20 28 66 5f 61 |.X..else| if (f_a|
|000017c0| 63 63 65 73 73 74 69 6d | 65 29 0a 58 09 09 09 73 |ccesstim|e).X...s|
|000017d0| 6f 72 74 66 63 6e 20 3d | 20 72 65 76 61 63 63 63 |ortfcn =| revaccc|
|000017e0| 6d 70 3b 0a 58 09 09 65 | 6c 73 65 20 69 66 20 28 |mp;.X..e|lse if (|
|000017f0| 66 5f 73 74 61 74 75 73 | 74 69 6d 65 29 0a 58 09 |f_status|time).X.|
|00001800| 09 09 73 6f 72 74 66 63 | 6e 20 3d 20 72 65 76 73 |..sortfc|n = revs|
|00001810| 74 61 74 63 6d 70 3b 0a | 58 09 09 65 6c 73 65 20 |tatcmp;.|X..else |
|00001820| 2f 2a 20 75 73 65 20 6d | 6f 64 69 66 69 63 61 74 |/* use m|odificat|
|00001830| 69 6f 6e 20 74 69 6d 65 | 20 2a 2f 0a 58 09 09 09 |ion time| */.X...|
|00001840| 73 6f 72 74 66 63 6e 20 | 3d 20 72 65 76 6d 6f 64 |sortfcn |= revmod|
|00001850| 63 6d 70 3b 0a 58 09 7d | 20 65 6c 73 65 20 7b 0a |cmp;.X.}| else {.|
|00001860| 58 09 09 69 66 20 28 21 | 66 5f 74 69 6d 65 73 6f |X..if (!|f_timeso|
|00001870| 72 74 29 0a 58 09 09 09 | 73 6f 72 74 66 63 6e 20 |rt).X...|sortfcn |
|00001880| 3d 20 6e 61 6d 65 63 6d | 70 3b 0a 58 09 09 65 6c |= namecm|p;.X..el|
|00001890| 73 65 20 69 66 20 28 66 | 5f 61 63 63 65 73 73 74 |se if (f|_accesst|
|000018a0| 69 6d 65 29 0a 58 09 09 | 09 73 6f 72 74 66 63 6e |ime).X..|.sortfcn|
|000018b0| 20 3d 20 61 63 63 63 6d | 70 3b 0a 58 09 09 65 6c | = acccm|p;.X..el|
|000018c0| 73 65 20 69 66 20 28 66 | 5f 73 74 61 74 75 73 74 |se if (f|_statust|
|000018d0| 69 6d 65 29 0a 58 09 09 | 09 73 6f 72 74 66 63 6e |ime).X..|.sortfcn|
|000018e0| 20 3d 20 73 74 61 74 63 | 6d 70 3b 0a 58 09 09 65 | = statc|mp;.X..e|
|000018f0| 6c 73 65 20 2f 2a 20 75 | 73 65 20 6d 6f 64 69 66 |lse /* u|se modif|
|00001900| 69 63 61 74 69 6f 6e 20 | 74 69 6d 65 20 2a 2f 0a |ication |time */.|
|00001910| 58 09 09 09 73 6f 72 74 | 66 63 6e 20 3d 20 6d 6f |X...sort|fcn = mo|
|00001920| 64 63 6d 70 3b 0a 58 09 | 7d 0a 58 0a 58 09 2f 2a |dcmp;.X.|}.X.X./*|
|00001930| 20 73 65 6c 65 63 74 20 | 61 20 70 72 69 6e 74 20 | select |a print |
|00001940| 66 75 6e 63 74 69 6f 6e | 20 2a 2f 0a 58 09 69 66 |function| */.X.if|
|00001950| 20 28 66 5f 73 69 6e 67 | 6c 65 63 6f 6c 29 0a 58 | (f_sing|lecol).X|
|00001960| 09 09 70 72 69 6e 74 66 | 63 6e 20 3d 20 70 72 69 |..printf|cn = pri|
|00001970| 6e 74 73 63 6f 6c 3b 0a | 58 09 65 6c 73 65 20 69 |ntscol;.|X.else i|
|00001980| 66 20 28 66 5f 6c 6f 6e | 67 66 6f 72 6d 29 0a 58 |f (f_lon|gform).X|
|00001990| 09 09 70 72 69 6e 74 66 | 63 6e 20 3d 20 70 72 69 |..printf|cn = pri|
|000019a0| 6e 74 6c 6f 6e 67 3b 0a | 58 09 65 6c 73 65 0a 58 |ntlong;.|X.else.X|
|000019b0| 09 09 70 72 69 6e 74 66 | 63 6e 20 3d 20 70 72 69 |..printf|cn = pri|
|000019c0| 6e 74 63 6f 6c 3b 0a 58 | 0a 58 09 69 66 20 28 21 |ntcol;.X|.X.if (!|
|000019d0| 61 72 67 63 29 20 7b 0a | 58 09 09 61 72 67 63 20 |argc) {.|X..argc |
|000019e0| 3d 20 31 3b 0a 58 09 09 | 61 72 67 76 5b 30 5d 20 |= 1;.X..|argv[0] |
|000019f0| 3d 20 22 2e 22 3b 0a 58 | 09 09 61 72 67 76 5b 31 |= ".";.X|..argv[1|
|00001a00| 5d 20 3d 20 4e 55 4c 4c | 3b 0a 58 09 7d 0a 58 09 |] = NULL|;.X.}.X.|
|00001a10| 64 6f 61 72 67 73 28 61 | 72 67 63 2c 20 61 72 67 |doargs(a|rgc, arg|
|00001a20| 76 29 3b 0a 58 7d 0a 58 | 0a 73 74 61 74 69 63 20 |v);.X}.X|.static |
|00001a30| 63 68 61 72 20 70 61 74 | 68 5b 32 2a 31 30 32 34 |char pat|h[2*1024|
|00001a40| 20 2b 20 31 5d 3b 0a 73 | 74 61 74 69 63 20 63 68 | + 1];.s|tatic ch|
|00001a50| 61 72 20 2a 65 6e 64 6f | 66 70 61 74 68 20 3d 20 |ar *endo|fpath = |
|00001a60| 70 61 74 68 3b 0a 58 0a | 64 6f 61 72 67 73 28 61 |path;.X.|doargs(a|
|00001a70| 72 67 63 2c 20 61 72 67 | 76 29 0a 58 09 69 6e 74 |rgc, arg|v).X.int|
|00001a80| 20 61 72 67 63 3b 0a 58 | 09 63 68 61 72 20 2a 2a | argc;.X|.char **|
|00001a90| 61 72 67 76 3b 0a 58 7b | 0a 58 09 72 65 67 69 73 |argv;.X{|.X.regis|
|00001aa0| 74 65 72 20 4c 53 20 2a | 64 73 74 61 74 70 2c 20 |ter LS *|dstatp, |
|00001ab0| 2a 72 73 74 61 74 70 3b | 0a 58 09 72 65 67 69 73 |*rstatp;|.X.regis|
|00001ac0| 74 65 72 20 69 6e 74 20 | 63 6e 74 2c 20 64 69 72 |ter int |cnt, dir|
|00001ad0| 63 6e 74 2c 20 64 69 72 | 6d 61 78 2c 20 6d 61 78 |cnt, dir|max, max|
|00001ae0| 6c 65 6e 2c 20 72 65 67 | 63 6e 74 2c 20 72 65 67 |len, reg|cnt, reg|
|00001af0| 6d 61 78 3b 0a 58 09 4c | 53 20 2a 64 73 74 61 74 |max;.X.L|S *dstat|
|00001b00| 73 2c 20 2a 72 73 74 61 | 74 73 3b 0a 58 09 73 74 |s, *rsta|ts;.X.st|
|00001b10| 72 75 63 74 20 73 74 61 | 74 20 73 62 3b 0a 58 09 |ruct sta|t sb;.X.|
|00001b20| 63 68 61 72 20 74 6f 70 | 5b 32 2a 31 30 32 34 20 |char top|[2*1024 |
|00001b30| 2b 20 31 5d 2c 20 2a 2a | 61 76 2c 20 2a 61 76 32 |+ 1], **|av, *av2|
|00001b40| 5b 32 5d 3b 0a 58 09 75 | 6e 73 69 67 6e 65 64 20 |[2];.X.u|nsigned |
|00001b50| 6c 6f 6e 67 20 62 6c 6f | 63 6b 73 3b 0a 58 09 65 |long blo|cks;.X.e|
|00001b60| 78 74 65 72 6e 20 63 68 | 61 72 20 2a 2a 67 6c 6f |xtern ch|ar **glo|
|00001b70| 62 28 29 3b 0a 58 0a 58 | 09 2f 2a 0a 58 09 20 2a |b();.X.X|./*.X. *|
|00001b80| 20 77 61 6c 6b 20 74 68 | 72 6f 75 67 68 20 74 68 | walk th|rough th|
|00001b90| 65 20 6f 70 65 72 61 6e | 64 73 2c 20 62 75 69 6c |e operan|ds, buil|
|00001ba0| 64 69 6e 67 20 73 65 70 | 61 72 61 74 65 20 61 72 |ding sep|arate ar|
|00001bb0| 72 61 79 73 20 6f 66 20 | 4c 53 0a 58 09 20 2a 20 |rays of |LS.X. * |
|00001bc0| 73 74 72 75 63 74 75 72 | 65 73 20 66 6f 72 20 64 |structur|es for d|
|00001bd0| 69 72 65 63 74 6f 72 79 | 20 61 6e 64 20 6e 6f 6e |irectory| and non|
|00001be0| 2d 64 69 72 65 63 74 6f | 72 79 20 66 69 6c 65 73 |-directo|ry files|
|00001bf0| 2e 0a 58 09 20 2a 2f 0a | 58 09 64 73 74 61 74 73 |..X. */.|X.dstats|
|00001c00| 20 3d 20 72 73 74 61 74 | 73 20 3d 20 4e 55 4c 4c | = rstat|s = NULL|
|00001c10| 3b 0a 58 09 64 69 72 6d | 61 78 20 3d 20 72 65 67 |;.X.dirm|ax = reg|
|00001c20| 6d 61 78 20 3d 20 30 3b | 0a 58 0a 58 09 66 6f 72 |max = 0;|.X.X.for|
|00001c30| 20 28 64 69 72 63 6e 74 | 20 3d 20 72 65 67 63 6e | (dircnt| = regcn|
|00001c40| 74 20 3d 20 30 3b 20 2a | 61 72 67 76 3b 20 2b 2b |t = 0; *|argv; ++|
|00001c50| 61 72 67 76 29 0a 58 09 | 7b 0a 58 09 20 20 20 20 |argv).X.|{.X.    |
|00001c60| 69 66 28 21 28 61 76 20 | 3d 20 67 6c 6f 62 28 2a |if(!(av |= glob(*|
|00001c70| 61 72 67 76 29 29 29 20 | 7b 20 61 76 20 3d 20 61 |argv))) |{ av = a|
|00001c80| 76 32 3b 20 61 76 32 5b | 30 5d 20 3d 20 2a 61 72 |v2; av2[|0] = *ar|
|00001c90| 67 76 3b 20 61 76 32 5b | 31 5d 20 3d 20 30 3b 20 |gv; av2[|1] = 0; |
|00001ca0| 7d 0a 58 0a 58 09 20 20 | 20 20 66 6f 72 28 20 3b |}.X.X.  |  for( ;|
|00001cb0| 20 2a 61 76 3b 20 61 76 | 2b 2b 29 0a 58 09 20 20 | *av; av|++).X.  |
|00001cc0| 20 20 7b 0a 58 09 09 69 | 66 20 28 75 74 69 6c 5f |  {.X..i|f (util_|
|00001cd0| 73 74 61 74 28 2a 61 76 | 2c 20 26 73 62 29 29 20 |stat(*av|, &sb)) |
|00001ce0| 7b 0a 58 09 09 09 70 65 | 72 72 6f 72 28 2a 61 76 |{.X...pe|rror(*av|
|00001cf0| 29 3b 0a 58 09 09 09 69 | 66 20 28 65 72 72 6e 6f |);.X...i|f (errno|
|00001d00| 20 3d 3d 20 45 4e 4f 45 | 4e 54 29 0a 58 09 09 09 | == ENOE|NT).X...|
|00001d10| 09 63 6f 6e 74 69 6e 75 | 65 3b 0a 58 09 09 09 6c |.continu|e;.X...l|
|00001d20| 73 5f 62 61 64 28 31 29 | 3b 0a 58 09 09 7d 0a 58 |s_bad(1)|;.X..}.X|
|00001d30| 09 09 69 66 20 28 28 53 | 5f 49 46 44 49 52 20 26 |..if ((S|_IFDIR &|
|00001d40| 20 73 62 2e 73 74 5f 6d | 6f 64 65 29 20 26 26 20 | sb.st_m|ode) && |
|00001d50| 21 66 5f 6c 69 73 74 64 | 69 72 29 20 7b 0a 58 09 |!f_listd|ir) {.X.|
|00001d60| 09 09 69 66 28 64 69 72 | 6d 61 78 20 3d 3d 20 64 |..if(dir|max == d|
|00001d70| 69 72 63 6e 74 29 0a 58 | 09 09 09 7b 0a 58 09 09 |ircnt).X|...{.X..|
|00001d80| 09 20 20 20 20 64 69 72 | 6d 61 78 20 2b 3d 20 31 |.    dir|max += 1|
|00001d90| 30 3b 0a 58 09 09 09 20 | 20 20 20 69 66 20 28 21 |0;.X... |   if (!|
|00001da0| 64 73 74 61 74 73 29 0a | 58 09 09 09 20 20 20 20 |dstats).|X...    |
|00001db0| 7b 0a 58 09 09 09 09 64 | 73 74 61 74 70 20 3d 20 |{.X....d|statp = |
|00001dc0| 64 73 74 61 74 73 20 3d | 20 28 4c 53 20 2a 29 65 |dstats =| (LS *)e|
|00001dd0| 6d 61 6c 6c 6f 63 28 64 | 69 72 6d 61 78 20 2a 0a |malloc(d|irmax *.|
|00001de0| 58 09 09 09 09 09 09 09 | 09 28 73 69 7a 65 6f 66 |X.......|.(sizeof|
|00001df0| 28 4c 53 29 29 29 3b 0a | 58 09 09 09 20 20 20 20 |(LS)));.|X...    |
|00001e00| 7d 20 65 6c 73 65 20 0a | 58 09 09 09 20 20 20 20 |} else .|X...    |
|00001e10| 7b 0a 58 09 09 09 09 64 | 73 74 61 74 73 20 3d 20 |{.X....d|stats = |
|00001e20| 28 4c 53 20 2a 29 72 65 | 61 6c 6c 6f 63 28 64 73 |(LS *)re|alloc(ds|
|00001e30| 74 61 74 73 2c 0a 58 09 | 09 09 09 09 09 09 64 69 |tats,.X.|......di|
|00001e40| 72 6d 61 78 20 2a 20 28 | 73 69 7a 65 6f 66 28 4c |rmax * (|sizeof(L|
|00001e50| 53 29 29 29 3b 0a 58 09 | 09 09 09 64 73 74 61 74 |S)));.X.|...dstat|
|00001e60| 70 20 3d 20 64 73 74 61 | 74 73 20 2b 20 64 69 72 |p = dsta|ts + dir|
|00001e70| 63 6e 74 3b 0a 58 09 09 | 09 20 20 20 20 7d 0a 58 |cnt;.X..|.    }.X|
|00001e80| 09 09 09 7d 0a 58 09 09 | 09 64 73 74 61 74 70 2d |...}.X..|.dstatp-|
|00001e90| 3e 6e 61 6d 65 20 3d 20 | 2a 61 76 3b 0a 58 09 09 |>name = |*av;.X..|
|00001ea0| 09 64 73 74 61 74 70 2d | 3e 6c 73 74 61 74 20 3d |.dstatp-|>lstat =|
|00001eb0| 20 73 62 3b 0a 58 09 09 | 09 2b 2b 64 73 74 61 74 | sb;.X..|.++dstat|
|00001ec0| 70 3b 0a 58 09 09 09 2b | 2b 64 69 72 63 6e 74 3b |p;.X...+|+dircnt;|
|00001ed0| 0a 58 09 09 7d 0a 58 09 | 09 65 6c 73 65 20 7b 0a |.X..}.X.|.else {.|
|00001ee0| 58 09 09 09 69 66 28 72 | 65 67 6d 61 78 20 3d 3d |X...if(r|egmax ==|
|00001ef0| 20 72 65 67 63 6e 74 29 | 0a 58 09 09 09 7b 0a 58 | regcnt)|.X...{.X|
|00001f00| 09 09 09 20 20 20 20 72 | 65 67 6d 61 78 20 2b 3d |...    r|egmax +=|
|00001f10| 20 31 30 3b 0a 58 0a 58 | 09 09 09 20 20 20 20 69 | 10;.X.X|...    i|
|00001f20| 66 20 28 21 72 73 74 61 | 74 73 29 0a 58 09 09 09 |f (!rsta|ts).X...|
|00001f30| 20 20 20 20 7b 0a 58 09 | 09 09 09 62 6c 6f 63 6b |    {.X.|...block|
|00001f40| 73 20 3d 20 30 3b 0a 58 | 09 09 09 09 6d 61 78 6c |s = 0;.X|....maxl|
|00001f50| 65 6e 20 3d 20 2d 31 3b | 0a 58 09 09 09 09 72 73 |en = -1;|.X....rs|
|00001f60| 74 61 74 70 20 3d 20 72 | 73 74 61 74 73 20 3d 20 |tatp = r|stats = |
|00001f70| 28 4c 53 20 2a 29 65 6d | 61 6c 6c 6f 63 28 72 65 |(LS *)em|alloc(re|
|00001f80| 67 6d 61 78 20 2a 0a 58 | 09 09 09 09 09 09 20 20 |gmax *.X|......  |
|00001f90| 20 20 28 73 69 7a 65 6f | 66 28 4c 53 29 29 29 3b |  (sizeo|f(LS)));|
|00001fa0| 0a 58 09 09 09 20 20 20 | 20 7d 20 65 6c 73 65 0a |.X...   | } else.|
|00001fb0| 58 09 09 09 20 20 20 20 | 7b 0a 58 09 09 09 09 72 |X...    |{.X....r|
|00001fc0| 73 74 61 74 73 20 3d 20 | 28 4c 53 20 2a 29 72 65 |stats = |(LS *)re|
|00001fd0| 61 6c 6c 6f 63 28 72 73 | 74 61 74 73 2c 0a 58 09 |alloc(rs|tats,.X.|
|00001fe0| 09 09 09 09 09 09 72 65 | 67 6d 61 78 20 2a 20 28 |......re|gmax * (|
|00001ff0| 73 69 7a 65 6f 66 28 4c | 53 29 29 29 3b 0a 58 09 |sizeof(L|S)));.X.|
|00002000| 09 09 09 72 73 74 61 74 | 70 20 3d 20 72 73 74 61 |...rstat|p = rsta|
|00002010| 74 73 20 2b 20 72 65 67 | 63 6e 74 3b 0a 58 09 09 |ts + reg|cnt;.X..|
|00002020| 09 20 20 20 20 7d 0a 58 | 09 09 09 7d 0a 58 09 09 |.    }.X|...}.X..|
|00002030| 09 72 73 74 61 74 70 2d | 3e 6e 61 6d 65 20 3d 20 |.rstatp-|>name = |
|00002040| 2a 61 76 3b 0a 58 09 09 | 09 72 73 74 61 74 70 2d |*av;.X..|.rstatp-|
|00002050| 3e 6c 73 74 61 74 20 3d | 20 73 62 3b 0a 58 0a 58 |>lstat =| sb;.X.X|
|00002060| 09 09 09 2f 2a 20 73 61 | 76 65 20 6e 61 6d 65 20 |.../* sa|ve name |
|00002070| 6c 65 6e 67 74 68 20 66 | 6f 72 20 2d 43 20 66 6f |length f|or -C fo|
|00002080| 72 6d 61 74 20 2a 2f 0a | 58 09 09 09 72 73 74 61 |rmat */.|X...rsta|
|00002090| 74 70 2d 3e 6c 65 6e 20 | 3d 20 73 74 72 6c 65 6e |tp->len |= strlen|
|000020a0| 28 2a 61 76 29 3b 0a 58 | 0a 58 09 09 09 69 66 20 |(*av);.X|.X...if |
|000020b0| 28 66 5f 6e 6f 6e 70 72 | 69 6e 74 29 0a 58 09 09 |(f_nonpr|int).X..|
|000020c0| 09 09 70 72 63 6f 70 79 | 28 2a 61 76 2c 20 2a 61 |..prcopy|(*av, *a|
|000020d0| 76 2c 20 72 73 74 61 74 | 70 2d 3e 6c 65 6e 29 3b |v, rstat|p->len);|
|000020e0| 0a 58 0a 58 09 09 09 2f | 2a 20 63 61 6c 63 75 6c |.X.X.../|* calcul|
|000020f0| 61 74 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 62 6c |ate numb|er of bl|
|00002100| 6f 63 6b 73 20 69 66 20 | 2d 6c 2f 2d 73 20 66 6f |ocks if |-l/-s fo|
|00002110| 72 6d 61 74 73 20 2a 2f | 0a 58 09 09 09 69 66 20 |rmats */|.X...if |
|00002120| 28 66 5f 6c 6f 6e 67 66 | 6f 72 6d 20 7c 7c 20 66 |(f_longf|orm || f|
|00002130| 5f 73 69 7a 65 29 0a 58 | 09 09 09 09 62 6c 6f 63 |_size).X|....bloc|
|00002140| 6b 73 20 2b 3d 20 28 73 | 62 2e 73 74 5f 73 69 7a |ks += (s|b.st_siz|
|00002150| 65 20 2b 20 31 30 32 33 | 29 2f 31 30 32 34 3b 0a |e + 1023|)/1024;.|
|00002160| 58 0a 58 09 09 09 2f 2a | 20 73 61 76 65 20 6d 61 |X.X.../*| save ma|
|00002170| 78 20 6c 65 6e 67 74 68 | 20 69 66 20 2d 43 20 66 |x length| if -C f|
|00002180| 6f 72 6d 61 74 20 2a 2f | 0a 58 09 09 09 69 66 20 |ormat */|.X...if |
|00002190| 28 66 5f 63 6f 6c 75 6d | 6e 20 26 26 20 6d 61 78 |(f_colum|n && max|
|000021a0| 6c 65 6e 20 3c 20 72 73 | 74 61 74 70 2d 3e 6c 65 |len < rs|tatp->le|
|000021b0| 6e 29 0a 58 09 09 09 09 | 6d 61 78 6c 65 6e 20 3d |n).X....|maxlen =|
|000021c0| 20 72 73 74 61 74 70 2d | 3e 6c 65 6e 3b 0a 58 0a | rstatp-|>len;.X.|
|000021d0| 58 09 09 09 2b 2b 72 73 | 74 61 74 70 3b 0a 58 09 |X...++rs|tatp;.X.|
|000021e0| 09 09 2b 2b 72 65 67 63 | 6e 74 3b 0a 58 09 09 7d |..++regc|nt;.X..}|
|000021f0| 0a 58 09 20 20 20 20 7d | 0a 58 09 7d 0a 58 09 2f |.X.    }|.X.}.X./|
|00002200| 2a 20 64 69 73 70 6c 61 | 79 20 72 65 67 75 6c 61 |* displa|y regula|
|00002210| 72 20 66 69 6c 65 73 20 | 2a 2f 0a 58 09 69 66 20 |r files |*/.X.if |
|00002220| 28 72 65 67 63 6e 74 29 | 20 7b 0a 58 09 09 72 73 |(regcnt)| {.X..rs|
|00002230| 74 61 74 73 5b 30 5d 2e | 6c 73 74 61 74 2e 73 74 |tats[0].|lstat.st|
|00002240| 5f 62 74 6f 74 61 6c 20 | 3d 20 62 6c 6f 63 6b 73 |_btotal |= blocks|
|00002250| 3b 0a 58 09 09 72 73 74 | 61 74 73 5b 30 5d 2e 6c |;.X..rst|ats[0].l|
|00002260| 73 74 61 74 2e 73 74 5f | 6d 61 78 6c 65 6e 20 3d |stat.st_|maxlen =|
|00002270| 20 6d 61 78 6c 65 6e 3b | 0a 58 09 09 64 69 73 70 | maxlen;|.X..disp|
|00002280| 6c 61 79 64 69 72 28 72 | 73 74 61 74 73 2c 20 72 |laydir(r|stats, r|
|00002290| 65 67 63 6e 74 29 3b 0a | 58 09 09 66 5f 6e 65 77 |egcnt);.|X..f_new|
|000022a0| 6c 69 6e 65 20 3d 20 66 | 5f 64 69 72 6e 61 6d 65 |line = f|_dirname|
|000022b0| 20 3d 20 31 3b 0a 58 09 | 7d 0a 58 09 2f 2a 20 64 | = 1;.X.|}.X./* d|
|000022c0| 69 73 70 6c 61 79 20 64 | 69 72 65 63 74 6f 72 69 |isplay d|irectori|
|000022d0| 65 73 20 2a 2f 0a 58 09 | 69 66 20 28 64 69 72 63 |es */.X.|if (dirc|
|000022e0| 6e 74 29 20 7b 0a 58 09 | 09 72 65 67 69 73 74 65 |nt) {.X.|.registe|
|000022f0| 72 20 63 68 61 72 20 2a | 70 3b 0a 58 0a 58 09 09 |r char *|p;.X.X..|
|00002300| 66 5f 74 6f 74 61 6c 20 | 3d 20 31 3b 0a 58 09 09 |f_total |= 1;.X..|
|00002310| 69 66 20 28 64 69 72 63 | 6e 74 20 3e 20 31 29 20 |if (dirc|nt > 1) |
|00002320| 7b 0a 58 09 09 09 28 76 | 6f 69 64 29 75 74 69 6c |{.X...(v|oid)util|
|00002330| 5f 67 65 74 77 64 28 74 | 6f 70 29 3b 0a 58 09 09 |_getwd(t|op);.X..|
|00002340| 09 71 73 6f 72 74 28 28 | 63 68 61 72 20 2a 29 64 |.qsort((|char *)d|
|00002350| 73 74 61 74 73 2c 20 64 | 69 72 63 6e 74 2c 20 73 |stats, d|ircnt, s|
|00002360| 69 7a 65 6f 66 28 4c 53 | 29 2c 20 73 6f 72 74 66 |izeof(LS|), sortf|
|00002370| 63 6e 29 3b 0a 58 09 09 | 09 66 5f 64 69 72 6e 61 |cn);.X..|.f_dirna|
|00002380| 6d 65 20 3d 20 31 3b 0a | 58 09 09 7d 0a 58 09 09 |me = 1;.|X..}.X..|
|00002390| 66 6f 72 20 28 63 6e 74 | 20 3d 20 30 3b 20 63 6e |for (cnt| = 0; cn|
|000023a0| 74 20 3c 20 64 69 72 63 | 6e 74 3b 20 2b 2b 64 73 |t < dirc|nt; ++ds|
|000023b0| 74 61 74 73 29 20 7b 0a | 58 09 09 09 66 6f 72 20 |tats) {.|X...for |
|000023c0| 28 65 6e 64 6f 66 70 61 | 74 68 20 3d 20 70 61 74 |(endofpa|th = pat|
|000023d0| 68 2c 20 70 20 3d 20 64 | 73 74 61 74 73 2d 3e 6e |h, p = d|stats->n|
|000023e0| 61 6d 65 3b 0a 58 09 09 | 09 20 20 20 20 2a 65 6e |ame;.X..|.    *en|
|000023f0| 64 6f 66 70 61 74 68 20 | 3d 20 2a 70 2b 2b 3b 20 |dofpath |= *p++; |
|00002400| 2b 2b 65 6e 64 6f 66 70 | 61 74 68 29 3b 0a 58 09 |++endofp|ath);.X.|
|00002410| 09 09 73 75 62 64 69 72 | 28 64 73 74 61 74 73 29 |..subdir|(dstats)|
|00002420| 3b 0a 58 09 09 09 66 5f | 6e 65 77 6c 69 6e 65 20 |;.X...f_|newline |
|00002430| 3d 20 31 3b 0a 58 09 09 | 09 69 66 20 28 2b 2b 63 |= 1;.X..|.if (++c|
|00002440| 6e 74 20 3c 20 64 69 72 | 63 6e 74 20 26 26 20 75 |nt < dir|cnt && u|
|00002450| 74 69 6c 5f 63 64 28 74 | 6f 70 29 29 20 7b 0a 58 |til_cd(t|op)) {.X|
|00002460| 09 09 09 09 70 65 72 72 | 6f 72 28 74 6f 70 29 3b |....perr|or(top);|
|00002470| 0a 58 09 09 09 09 6c 73 | 5f 62 61 64 28 31 29 3b |.X....ls|_bad(1);|
|00002480| 0a 58 09 09 09 7d 0a 58 | 09 09 7d 0a 58 09 7d 0a |.X...}.X|..}.X.}.|
|00002490| 58 7d 0a 58 0a 64 69 73 | 70 6c 61 79 64 69 72 28 |X}.X.dis|playdir(|
|000024a0| 73 74 61 74 73 2c 20 6e | 75 6d 29 0a 58 09 4c 53 |stats, n|um).X.LS|
|000024b0| 20 2a 73 74 61 74 73 3b | 0a 58 09 72 65 67 69 73 | *stats;|.X.regis|
|000024c0| 74 65 72 20 69 6e 74 20 | 6e 75 6d 3b 0a 58 7b 0a |ter int |num;.X{.|
|000024d0| 58 09 72 65 67 69 73 74 | 65 72 20 63 68 61 72 20 |X.regist|er char |
|000024e0| 2a 70 2c 20 2a 73 61 76 | 65 64 70 61 74 68 3b 0a |*p, *sav|edpath;.|
|000024f0| 58 09 4c 53 20 2a 6c 70 | 3b 0a 58 0a 58 09 69 66 |X.LS *lp|;.X.X.if|
|00002500| 20 28 6e 75 6d 20 3e 20 | 31 20 26 26 20 21 66 5f | (num > |1 && !f_|
|00002510| 6e 6f 73 6f 72 74 29 20 | 7b 0a 58 09 09 75 6e 73 |nosort) |{.X..uns|
|00002520| 69 67 6e 65 64 20 6c 6f | 6e 67 20 73 61 76 65 31 |igned lo|ng save1|
|00002530| 2c 20 73 61 76 65 32 3b | 0a 58 0a 58 09 09 73 61 |, save2;|.X.X..sa|
|00002540| 76 65 31 20 3d 20 73 74 | 61 74 73 5b 30 5d 2e 6c |ve1 = st|ats[0].l|
|00002550| 73 74 61 74 2e 73 74 5f | 62 74 6f 74 61 6c 3b 0a |stat.st_|btotal;.|
|00002560| 58 09 09 73 61 76 65 32 | 20 3d 20 73 74 61 74 73 |X..save2| = stats|
|00002570| 5b 30 5d 2e 6c 73 74 61 | 74 2e 73 74 5f 6d 61 78 |[0].lsta|t.st_max|
|00002580| 6c 65 6e 3b 0a 58 09 09 | 71 73 6f 72 74 28 28 63 |len;.X..|qsort((c|
|00002590| 68 61 72 20 2a 29 73 74 | 61 74 73 2c 20 6e 75 6d |har *)st|ats, num|
|000025a0| 2c 20 73 69 7a 65 6f 66 | 28 4c 53 29 2c 20 73 6f |, sizeof|(LS), so|
|000025b0| 72 74 66 63 6e 29 3b 0a | 58 09 09 73 74 61 74 73 |rtfcn);.|X..stats|
|000025c0| 5b 30 5d 2e 6c 73 74 61 | 74 2e 73 74 5f 62 74 6f |[0].lsta|t.st_bto|
|000025d0| 74 61 6c 20 3d 20 73 61 | 76 65 31 3b 0a 58 09 09 |tal = sa|ve1;.X..|
|000025e0| 73 74 61 74 73 5b 30 5d | 2e 6c 73 74 61 74 2e 73 |stats[0]|.lstat.s|
|000025f0| 74 5f 6d 61 78 6c 65 6e | 20 3d 20 73 61 76 65 32 |t_maxlen| = save2|
|00002600| 3b 0a 58 09 7d 0a 58 0a | 58 09 70 72 69 6e 74 66 |;.X.}.X.|X.printf|
|00002610| 63 6e 28 73 74 61 74 73 | 2c 20 6e 75 6d 29 3b 0a |cn(stats|, num);.|
|00002620| 58 0a 58 09 69 66 20 28 | 66 5f 72 65 63 75 72 73 |X.X.if (|f_recurs|
|00002630| 69 76 65 29 20 7b 0a 58 | 09 09 73 61 76 65 64 70 |ive) {.X|..savedp|
|00002640| 61 74 68 20 3d 20 65 6e | 64 6f 66 70 61 74 68 3b |ath = en|dofpath;|
|00002650| 0a 58 09 09 66 6f 72 20 | 28 6c 70 20 3d 20 73 74 |.X..for |(lp = st|
|00002660| 61 74 73 3b 20 6e 75 6d | 2d 2d 3b 20 2b 2b 6c 70 |ats; num|--; ++lp|
|00002670| 29 20 7b 0a 58 09 09 09 | 69 66 20 28 21 28 53 5f |) {.X...|if (!(S_|
|00002680| 49 46 44 49 52 20 26 20 | 6c 70 2d 3e 6c 73 74 61 |IFDIR & |lp->lsta|
|00002690| 74 2e 73 74 5f 6d 6f 64 | 65 29 29 0a 58 09 09 09 |t.st_mod|e)).X...|
|000026a0| 09 63 6f 6e 74 69 6e 75 | 65 3b 0a 58 09 09 09 70 |.continu|e;.X...p|
|000026b0| 20 3d 20 6c 70 2d 3e 6e | 61 6d 65 3b 0a 58 09 09 | = lp->n|ame;.X..|
|000026c0| 09 69 66 20 28 70 5b 30 | 5d 20 3d 3d 20 27 2e 27 |.if (p[0|] == '.'|
|000026d0| 20 26 26 20 28 21 70 5b | 31 5d 20 7c 7c 20 70 5b | && (!p[|1] || p[|
|000026e0| 31 5d 20 3d 3d 20 27 2e | 27 20 26 26 20 21 70 5b |1] == '.|' && !p[|
|000026f0| 32 5d 29 29 0a 58 09 09 | 09 09 63 6f 6e 74 69 6e |2])).X..|..contin|
|00002700| 75 65 3b 0a 58 09 09 09 | 69 66 20 28 65 6e 64 6f |ue;.X...|if (endo|
|00002710| 66 70 61 74 68 20 21 3d | 20 70 61 74 68 20 26 26 |fpath !=| path &&|
|00002720| 20 65 6e 64 6f 66 70 61 | 74 68 5b 2d 31 5d 20 21 | endofpa|th[-1] !|
|00002730| 3d 20 27 2f 27 29 0a 58 | 09 09 09 09 2a 65 6e 64 |= '/').X|....*end|
|00002740| 6f 66 70 61 74 68 2b 2b | 20 3d 20 27 2f 27 3b 0a |ofpath++| = '/';.|
|00002750| 58 09 09 09 66 6f 72 20 | 28 3b 20 2a 65 6e 64 6f |X...for |(; *endo|
|00002760| 66 70 61 74 68 20 3d 20 | 2a 70 2b 2b 3b 20 2b 2b |fpath = |*p++; ++|
|00002770| 65 6e 64 6f 66 70 61 74 | 68 29 3b 0a 58 09 09 09 |endofpat|h);.X...|
|00002780| 66 5f 6e 65 77 6c 69 6e | 65 20 3d 20 66 5f 64 69 |f_newlin|e = f_di|
|00002790| 72 6e 61 6d 65 20 3d 20 | 66 5f 74 6f 74 61 6c 20 |rname = |f_total |
|000027a0| 3d 20 31 3b 0a 58 09 09 | 09 73 75 62 64 69 72 28 |= 1;.X..|.subdir(|
|000027b0| 6c 70 29 3b 0a 58 09 09 | 09 2a 28 65 6e 64 6f 66 |lp);.X..|.*(endof|
|000027c0| 70 61 74 68 20 3d 20 73 | 61 76 65 64 70 61 74 68 |path = s|avedpath|
|000027d0| 29 20 3d 20 27 5c 30 27 | 3b 0a 58 09 09 7d 0a 58 |) = '\0'|;.X..}.X|
|000027e0| 09 7d 0a 58 7d 0a 58 0a | 73 75 62 64 69 72 28 6c |.}.X}.X.|subdir(l|
|000027f0| 70 29 0a 58 09 4c 53 20 | 2a 6c 70 3b 0a 58 7b 0a |p).X.LS |*lp;.X{.|
|00002800| 58 09 4c 53 20 2a 73 74 | 61 74 73 3b 0a 58 09 69 |X.LS *st|ats;.X.i|
|00002810| 6e 74 20 6e 75 6d 3b 0a | 58 0a 58 09 69 66 20 28 |nt num;.|X.X.if (|
|00002820| 66 5f 6e 65 77 6c 69 6e | 65 29 0a 58 09 09 28 76 |f_newlin|e).X..(v|
|00002830| 6f 69 64 29 70 75 74 63 | 68 61 72 28 27 5c 6e 27 |oid)putc|har('\n'|
|00002840| 29 3b 0a 58 09 69 66 20 | 28 66 5f 64 69 72 6e 61 |);.X.if |(f_dirna|
|00002850| 6d 65 29 0a 58 09 09 28 | 76 6f 69 64 29 70 72 69 |me).X..(|void)pri|
|00002860| 6e 74 66 28 22 25 73 3a | 5c 6e 22 2c 20 70 61 74 |ntf("%s:|\n", pat|
|00002870| 68 29 3b 0a 58 0a 58 09 | 69 66 20 28 75 74 69 6c |h);.X.X.|if (util|
|00002880| 5f 63 64 28 6c 70 2d 3e | 6e 61 6d 65 29 29 20 7b |_cd(lp->|name)) {|
|00002890| 0a 58 09 09 70 65 72 72 | 6f 72 28 6c 70 2d 3e 6e |.X..perr|or(lp->n|
|000028a0| 61 6d 65 29 3b 0a 58 09 | 09 72 65 74 75 72 6e 3b |ame);.X.|.return;|
|000028b0| 0a 58 09 7d 0a 58 09 69 | 66 20 28 6e 75 6d 20 3d |.X.}.X.i|f (num =|
|000028c0| 20 74 61 62 64 69 72 28 | 6c 70 2c 20 26 73 74 61 | tabdir(|lp, &sta|
|000028d0| 74 73 29 29 20 7b 0a 58 | 09 09 64 69 73 70 6c 61 |ts)) {.X|..displa|
|000028e0| 79 64 69 72 28 73 74 61 | 74 73 2c 20 6e 75 6d 29 |ydir(sta|ts, num)|
|000028f0| 3b 0a 58 09 09 28 76 6f | 69 64 29 66 72 65 65 28 |;.X..(vo|id)free(|
|00002900| 28 63 68 61 72 20 2a 29 | 73 74 61 74 73 29 3b 0a |(char *)|stats);.|
|00002910| 58 09 7d 0a 58 09 69 66 | 20 28 75 74 69 6c 5f 63 |X.}.X.if| (util_c|
|00002920| 64 28 22 2e 2e 22 29 29 | 20 7b 0a 58 09 09 70 65 |d(".."))| {.X..pe|
|00002930| 72 72 6f 72 28 22 2e 2e | 22 29 3b 0a 58 09 09 6c |rror("..|");.X..l|
|00002940| 73 5f 62 61 64 28 31 29 | 3b 0a 58 09 7d 0a 58 7d |s_bad(1)|;.X.}.X}|
|00002950| 0a 58 0a 74 61 62 64 69 | 72 28 6c 70 2c 20 73 5f |.X.tabdi|r(lp, s_|
|00002960| 73 74 61 74 73 29 0a 58 | 09 4c 53 20 2a 6c 70 2c |stats).X|.LS *lp,|
|00002970| 20 2a 2a 73 5f 73 74 61 | 74 73 3b 0a 58 7b 0a 58 | **s_sta|ts;.X{.X|
|00002980| 09 72 65 67 69 73 74 65 | 72 20 52 44 49 52 20 2a |.registe|r RDIR *|
|00002990| 64 69 72 70 3b 0a 58 09 | 72 65 67 69 73 74 65 72 |dirp;.X.|register|
|000029a0| 20 69 6e 74 20 63 6e 74 | 2c 20 6d 61 78 65 6e 74 | int cnt|, maxent|
|000029b0| 72 79 2c 20 6d 61 78 6c | 65 6e 3b 0a 58 09 72 65 |ry, maxl|en;.X.re|
|000029c0| 67 69 73 74 65 72 20 63 | 68 61 72 20 2a 70 3b 0a |gister c|har *p;.|
|000029d0| 58 09 73 74 72 75 63 74 | 20 72 64 69 72 65 6e 74 |X.struct| rdirent|
|000029e0| 20 2a 64 70 3b 0a 58 09 | 75 6e 73 69 67 6e 65 64 | *dp;.X.|unsigned|
|000029f0| 20 6c 6f 6e 67 20 62 6c | 6f 63 6b 73 3b 0a 58 09 | long bl|ocks;.X.|
|00002a00| 4c 53 20 2a 73 74 61 74 | 73 3b 0a 58 0a 58 09 69 |LS *stat|s;.X.X.i|
|00002a10| 66 20 28 21 28 64 69 72 | 70 20 3d 20 75 74 69 6c |f (!(dir|p = util|
|00002a20| 5f 6f 70 65 6e 64 69 72 | 28 22 2e 22 29 29 29 20 |_opendir|("."))) |
|00002a30| 7b 0a 58 09 09 70 65 72 | 72 6f 72 28 6c 70 2d 3e |{.X..per|ror(lp->|
|00002a40| 6e 61 6d 65 29 3b 0a 58 | 09 09 72 65 74 75 72 6e |name);.X|..return|
|00002a50| 28 30 29 3b 0a 58 09 7d | 0a 58 09 62 6c 6f 63 6b |(0);.X.}|.X.block|
|00002a60| 73 20 3d 20 6d 61 78 65 | 6e 74 72 79 20 3d 20 6d |s = maxe|ntry = m|
|00002a70| 61 78 6c 65 6e 20 3d 20 | 30 3b 0a 58 09 73 74 61 |axlen = |0;.X.sta|
|00002a80| 74 73 20 3d 20 4e 55 4c | 4c 3b 0a 58 09 66 6f 72 |ts = NUL|L;.X.for|
|00002a90| 20 28 63 6e 74 20 3d 20 | 30 3b 20 64 70 20 3d 20 | (cnt = |0; dp = |
|00002aa0| 75 74 69 6c 5f 72 65 61 | 64 64 69 72 28 64 69 72 |util_rea|ddir(dir|
|00002ab0| 70 29 3b 29 20 7b 0a 58 | 09 09 2f 2a 20 74 68 69 |p);) {.X|../* thi|
|00002ac0| 73 20 64 6f 65 73 20 2d | 41 20 61 6e 64 20 2d 61 |s does -|A and -a|
|00002ad0| 20 2a 2f 0a 58 09 09 70 | 20 3d 20 64 70 2d 3e 64 | */.X..p| = dp->d|
|00002ae0| 5f 6e 61 6d 65 3b 0a 58 | 09 09 69 66 20 28 70 5b |_name;.X|..if (p[|
|00002af0| 30 5d 20 3d 3d 20 27 2e | 27 29 20 7b 0a 58 09 09 |0] == '.|') {.X..|
|00002b00| 09 69 66 20 28 21 66 5f | 6c 69 73 74 64 6f 74 29 |.if (!f_|listdot)|
|00002b10| 0a 58 09 09 09 09 63 6f | 6e 74 69 6e 75 65 3b 0a |.X....co|ntinue;.|
|00002b20| 58 09 09 09 69 66 20 28 | 21 66 5f 6c 69 73 74 61 |X...if (|!f_lista|
|00002b30| 6c 6c 64 6f 74 20 26 26 | 20 28 21 70 5b 31 5d 20 |lldot &&| (!p[1] |
|00002b40| 7c 7c 20 70 5b 31 5d 20 | 3d 3d 20 27 2e 27 20 26 ||| p[1] |== '.' &|
|00002b50| 26 20 21 70 5b 32 5d 29 | 29 0a 58 09 09 09 09 63 |& !p[2])|).X....c|
|00002b60| 6f 6e 74 69 6e 75 65 3b | 0a 58 09 09 7d 0a 58 09 |ontinue;|.X..}.X.|
|00002b70| 09 69 66 20 28 63 6e 74 | 20 3d 3d 20 6d 61 78 65 |.if (cnt| == maxe|
|00002b80| 6e 74 72 79 29 20 7b 0a | 58 23 64 65 66 69 6e 65 |ntry) {.|X#define|
|00002b90| 09 44 45 46 4e 55 4d 09 | 32 35 36 0a 58 09 09 09 |.DEFNUM.|256.X...|
|00002ba0| 6d 61 78 65 6e 74 72 79 | 20 2b 3d 20 44 45 46 4e |maxentry| += DEFN|
|00002bb0| 55 4d 3b 0a 58 09 09 09 | 69 66 28 73 74 61 74 73 |UM;.X...|if(stats|
|00002bc0| 29 0a 58 09 09 09 7b 0a | 58 09 09 09 20 20 69 66 |).X...{.|X...  if|
|00002bd0| 20 28 21 28 2a 73 5f 73 | 74 61 74 73 20 3d 20 73 | (!(*s_s|tats = s|
|00002be0| 74 61 74 73 20 3d 20 28 | 4c 53 20 2a 29 72 65 61 |tats = (|LS *)rea|
|00002bf0| 6c 6c 6f 63 28 28 63 68 | 61 72 20 2a 29 73 74 61 |lloc((ch|ar *)sta|
|00002c00| 74 73 2c 0a 58 09 09 09 | 20 20 20 20 28 75 6e 73 |ts,.X...|    (uns|
|00002c10| 69 67 6e 65 64 20 69 6e | 74 29 6d 61 78 65 6e 74 |igned in|t)maxent|
|00002c20| 72 79 20 2a 20 73 69 7a | 65 6f 66 28 4c 53 29 29 |ry * siz|eof(LS))|
|00002c30| 29 29 0a 58 09 09 09 09 | 6e 6f 6d 65 6d 28 29 3b |)).X....|nomem();|
|00002c40| 0a 58 09 09 09 7d 20 65 | 6c 73 65 0a 58 09 09 09 |.X...} e|lse.X...|
|00002c50| 7b 0a 58 09 09 09 20 20 | 69 66 20 28 21 28 2a 73 |{.X...  |if (!(*s|
|00002c60| 5f 73 74 61 74 73 20 3d | 20 73 74 61 74 73 20 3d |_stats =| stats =|
|00002c70| 20 28 4c 53 20 2a 29 6d | 61 6c 6c 6f 63 28 0a 58 | (LS *)m|alloc(.X|
|00002c80| 09 09 09 20 20 20 20 28 | 75 6e 73 69 67 6e 65 64 |...    (|unsigned|
|00002c90| 20 69 6e 74 29 6d 61 78 | 65 6e 74 72 79 20 2a 20 | int)max|entry * |
|00002ca0| 73 69 7a 65 6f 66 28 4c | 53 29 29 29 29 0a 58 09 |sizeof(L|S)))).X.|
|00002cb0| 09 09 09 6e 6f 6d 65 6d | 28 29 3b 0a 58 09 09 09 |...nomem|();.X...|
|00002cc0| 7d 0a 58 09 09 7d 0a 58 | 09 09 69 66 20 28 66 5f |}.X..}.X|..if (f_|
|00002cd0| 6e 65 65 64 73 74 61 74 | 20 26 26 20 75 74 69 6c |needstat| && util|
|00002ce0| 5f 73 74 61 74 28 64 70 | 2d 3e 64 5f 6e 61 6d 65 |_stat(dp|->d_name|
|00002cf0| 2c 20 26 73 74 61 74 73 | 5b 63 6e 74 5d 2e 6c 73 |, &stats|[cnt].ls|
|00002d00| 74 61 74 29 29 20 7b 0a | 58 09 09 09 2f 2a 0a 58 |tat)) {.|X.../*.X|
|00002d10| 09 09 09 20 2a 20 64 6f | 6e 27 74 20 65 78 69 74 |... * do|n't exit|
|00002d20| 20 2d 2d 20 74 68 69 73 | 20 63 6f 75 6c 64 20 62 | -- this| could b|
|00002d30| 65 20 61 6e 20 4e 46 53 | 20 6d 6f 75 6e 74 20 74 |e an NFS| mount t|
|00002d40| 68 61 74 20 68 61 73 0a | 58 09 09 09 20 2a 20 67 |hat has.|X... * g|
|00002d50| 6f 6e 65 20 61 77 61 79 | 2e 20 20 46 6c 75 73 68 |one away|.  Flush|
|00002d60| 20 73 74 64 6f 75 74 20 | 73 6f 20 74 68 65 20 6d | stdout |so the m|
|00002d70| 65 73 73 61 67 65 73 20 | 6c 69 6e 65 20 75 70 2e |essages |line up.|
|00002d80| 0a 58 09 09 09 20 2a 2f | 0a 58 09 09 09 28 76 6f |.X... */|.X...(vo|
|00002d90| 69 64 29 66 66 6c 75 73 | 68 28 73 74 64 6f 75 74 |id)fflus|h(stdout|
|00002da0| 29 3b 0a 58 09 09 09 70 | 65 72 72 6f 72 28 64 70 |);.X...p|error(dp|
|00002db0| 2d 3e 64 5f 6e 61 6d 65 | 29 3b 0a 58 09 09 09 63 |->d_name|);.X...c|
|00002dc0| 6f 6e 74 69 6e 75 65 3b | 0a 58 09 09 7d 0a 58 09 |ontinue;|.X..}.X.|
|00002dd0| 09 73 74 61 74 73 5b 63 | 6e 74 5d 2e 6e 61 6d 65 |.stats[c|nt].name|
|00002de0| 20 3d 20 64 70 2d 3e 64 | 5f 6e 61 6d 65 3b 0a 58 | = dp->d|_name;.X|
|00002df0| 0a 58 09 09 2f 2a 0a 58 | 09 09 20 2a 20 67 65 74 |.X../*.X|.. * get|
|00002e00| 20 74 68 65 20 69 6e 6f | 64 65 20 66 72 6f 6d 20 | the ino|de from |
|00002e10| 74 68 65 20 64 69 72 65 | 63 74 6f 72 79 2c 20 73 |the dire|ctory, s|
|00002e20| 6f 20 74 68 65 20 2d 66 | 20 66 6c 61 67 0a 58 09 |o the -f| flag.X.|
|00002e30| 09 20 2a 20 77 6f 72 6b | 73 20 72 69 67 68 74 2e |. * work|s right.|
|00002e40| 0a 58 09 09 20 2a 2f 0a | 58 09 09 73 74 61 74 73 |.X.. */.|X..stats|
|00002e50| 5b 63 6e 74 5d 2e 6c 73 | 74 61 74 2e 73 74 5f 69 |[cnt].ls|tat.st_i|
|00002e60| 6e 6f 20 3d 20 64 70 2d | 3e 64 5f 69 6e 6f 3b 0a |no = dp-|>d_ino;.|
|00002e70| 58 0a 58 09 09 2f 2a 20 | 73 61 76 65 20 6e 61 6d |X.X../* |save nam|
|00002e80| 65 20 6c 65 6e 67 74 68 | 20 66 6f 72 20 2d 43 20 |e length| for -C |
|00002e90| 66 6f 72 6d 61 74 20 2a | 2f 0a 58 09 09 73 74 61 |format *|/.X..sta|
|00002ea0| 74 73 5b 63 6e 74 5d 2e | 6c 65 6e 20 3d 20 64 70 |ts[cnt].|len = dp|
|00002eb0| 2d 3e 64 5f 6e 61 6d 6c | 65 6e 3b 0a 58 0a 58 09 |->d_naml|en;.X.X.|
|00002ec0| 09 2f 2a 20 63 61 6c 63 | 75 6c 61 74 65 20 6e 75 |./* calc|ulate nu|
|00002ed0| 6d 62 65 72 20 6f 66 20 | 62 6c 6f 63 6b 73 20 69 |mber of |blocks i|
|00002ee0| 66 20 2d 6c 2f 2d 73 20 | 66 6f 72 6d 61 74 73 20 |f -l/-s |formats |
|00002ef0| 2a 2f 0a 58 09 09 69 66 | 20 28 66 5f 6c 6f 6e 67 |*/.X..if| (f_long|
|00002f00| 66 6f 72 6d 20 7c 7c 20 | 66 5f 73 69 7a 65 29 0a |form || |f_size).|
|00002f10| 58 09 09 09 62 6c 6f 63 | 6b 73 20 2b 3d 20 28 73 |X...bloc|ks += (s|
|00002f20| 74 61 74 73 5b 63 6e 74 | 5d 2e 6c 73 74 61 74 2e |tats[cnt|].lstat.|
|00002f30| 73 74 5f 73 69 7a 65 20 | 2b 20 31 30 32 33 29 2f |st_size |+ 1023)/|
|00002f40| 31 30 32 34 3b 0a 58 0a | 58 09 09 2f 2a 20 73 61 |1024;.X.|X../* sa|
|00002f50| 76 65 20 6d 61 78 20 6c | 65 6e 67 74 68 20 69 66 |ve max l|ength if|
|00002f60| 20 2d 43 20 66 6f 72 6d | 61 74 20 2a 2f 0a 58 09 | -C form|at */.X.|
|00002f70| 09 69 66 20 28 66 5f 63 | 6f 6c 75 6d 6e 20 26 26 |.if (f_c|olumn &&|
|00002f80| 20 6d 61 78 6c 65 6e 20 | 3c 20 28 69 6e 74 29 64 | maxlen |< (int)d|
|00002f90| 70 2d 3e 64 5f 6e 61 6d | 6c 65 6e 29 0a 58 09 09 |p->d_nam|len).X..|
|00002fa0| 09 6d 61 78 6c 65 6e 20 | 3d 20 64 70 2d 3e 64 5f |.maxlen |= dp->d_|
|00002fb0| 6e 61 6d 6c 65 6e 3b 0a | 58 09 09 2b 2b 63 6e 74 |namlen;.|X..++cnt|
|00002fc0| 3b 0a 58 09 7d 0a 58 09 | 28 76 6f 69 64 29 75 74 |;.X.}.X.|(void)ut|
|00002fd0| 69 6c 5f 63 6c 6f 73 65 | 64 69 72 28 64 69 72 70 |il_close|dir(dirp|
|00002fe0| 29 3b 0a 58 0a 58 09 69 | 66 20 28 63 6e 74 29 20 |);.X.X.i|f (cnt) |
|00002ff0| 7b 0a 58 09 09 73 74 61 | 74 73 5b 30 5d 2e 6c 73 |{.X..sta|ts[0].ls|
|00003000| 74 61 74 2e 73 74 5f 62 | 74 6f 74 61 6c 20 3d 20 |tat.st_b|total = |
|00003010| 62 6c 6f 63 6b 73 3b 0a | 58 09 09 73 74 61 74 73 |blocks;.|X..stats|
|00003020| 5b 30 5d 2e 6c 73 74 61 | 74 2e 73 74 5f 6d 61 78 |[0].lsta|t.st_max|
|00003030| 6c 65 6e 20 3d 20 6d 61 | 78 6c 65 6e 3b 0a 58 09 |len = ma|xlen;.X.|
|00003040| 7d 20 65 6c 73 65 20 69 | 66 20 28 73 74 61 74 73 |} else i|f (stats|
|00003050| 29 20 7b 0a 58 09 09 28 | 76 6f 69 64 29 66 72 65 |) {.X..(|void)fre|
|00003060| 65 28 28 63 68 61 72 20 | 2a 29 73 74 61 74 73 29 |e((char |*)stats)|
|00003070| 3b 0a 58 09 7d 0a 58 09 | 72 65 74 75 72 6e 28 63 |;.X.}.X.|return(c|
|00003080| 6e 74 29 3b 0a 58 7d 0a | 45 4e 44 5f 4f 46 5f 46 |nt);.X}.|END_OF_F|
|00003090| 49 4c 45 0a 69 66 20 74 | 65 73 74 20 31 30 39 35 |ILE.if t|est 1095|
|000030a0| 30 20 2d 6e 65 20 60 77 | 63 20 2d 63 20 3c 27 62 |0 -ne `w|c -c <'b|
|000030b0| 73 64 5f 73 72 63 2f 6c | 73 2e 63 27 60 3b 20 74 |sd_src/l|s.c'`; t|
|000030c0| 68 65 6e 0a 20 20 20 20 | 65 63 68 6f 20 73 68 61 |hen.    |echo sha|
|000030d0| 72 3a 20 5c 22 27 62 73 | 64 5f 73 72 63 2f 6c 73 |r: \"'bs|d_src/ls|
|000030e0| 2e 63 27 5c 22 20 75 6e | 70 61 63 6b 65 64 20 77 |.c'\" un|packed w|
|000030f0| 69 74 68 20 77 72 6f 6e | 67 20 73 69 7a 65 21 0a |ith wron|g size!.|
|00003100| 66 69 0a 23 20 65 6e 64 | 20 6f 66 20 27 62 73 64 |fi.# end| of 'bsd|
|00003110| 5f 73 72 63 2f 6c 73 2e | 63 27 0a 66 69 0a 69 66 |_src/ls.|c'.fi.if|
|00003120| 20 74 65 73 74 20 2d 66 | 20 27 62 73 64 5f 73 72 | test -f| 'bsd_sr|
|00003130| 63 2f 72 61 6e 64 6f 6d | 2e 63 27 20 2d 61 20 22 |c/random|.c' -a "|
|00003140| 24 7b 31 7d 22 20 21 3d | 20 22 2d 63 22 20 3b 20 |${1}" !=| "-c" ; |
|00003150| 74 68 65 6e 20 0a 20 20 | 65 63 68 6f 20 73 68 61 |then .  |echo sha|
|00003160| 72 3a 20 57 69 6c 6c 20 | 6e 6f 74 20 63 6c 6f 62 |r: Will |not clob|
|00003170| 62 65 72 20 65 78 69 73 | 74 69 6e 67 20 66 69 6c |ber exis|ting fil|
|00003180| 65 20 5c 22 27 62 73 64 | 5f 73 72 63 2f 72 61 6e |e \"'bsd|_src/ran|
|00003190| 64 6f 6d 2e 63 27 5c 22 | 0a 65 6c 73 65 0a 65 63 |dom.c'\"|.else.ec|
|000031a0| 68 6f 20 73 68 61 72 3a | 20 45 78 74 72 61 63 74 |ho shar:| Extract|
|000031b0| 69 6e 67 20 5c 22 27 62 | 73 64 5f 73 72 63 2f 72 |ing \"'b|sd_src/r|
|000031c0| 61 6e 64 6f 6d 2e 63 27 | 5c 22 20 5c 28 31 32 39 |andom.c'|\" \(129|
|000031d0| 35 35 20 63 68 61 72 61 | 63 74 65 72 73 5c 29 0a |55 chara|cters\).|
|000031e0| 73 65 64 20 22 73 2f 5e | 58 2f 2f 22 20 3e 27 62 |sed "s/^|X//" >'b|
|000031f0| 73 64 5f 73 72 63 2f 72 | 61 6e 64 6f 6d 2e 63 27 |sd_src/r|andom.c'|
|00003200| 20 3c 3c 27 45 4e 44 5f | 4f 46 5f 46 49 4c 45 27 | <<'END_|OF_FILE'|
|00003210| 0a 58 2f 2a 0a 58 20 2a | 20 43 6f 70 79 72 69 67 |.X/*.X *| Copyrig|
|00003220| 68 74 20 28 63 29 20 31 | 39 38 33 20 52 65 67 65 |ht (c) 1|983 Rege|
|00003230| 6e 74 73 20 6f 66 20 74 | 68 65 20 55 6e 69 76 65 |nts of t|he Unive|
|00003240| 72 73 69 74 79 20 6f 66 | 20 43 61 6c 69 66 6f 72 |rsity of| Califor|
|00003250| 6e 69 61 2e 0a 58 20 2a | 20 41 6c 6c 20 72 69 67 |nia..X *| All rig|
|00003260| 68 74 73 20 72 65 73 65 | 72 76 65 64 2e 0a 58 20 |hts rese|rved..X |
|00003270| 2a 0a 58 20 2a 20 52 65 | 64 69 73 74 72 69 62 75 |*.X * Re|distribu|
|00003280| 74 69 6f 6e 20 61 6e 64 | 20 75 73 65 20 69 6e 20 |tion and| use in |
|00003290| 73 6f 75 72 63 65 20 61 | 6e 64 20 62 69 6e 61 72 |source a|nd binar|
|000032a0| 79 20 66 6f 72 6d 73 20 | 61 72 65 20 70 65 72 6d |y forms |are perm|
|000032b0| 69 74 74 65 64 0a 58 20 | 2a 20 70 72 6f 76 69 64 |itted.X |* provid|
|000032c0| 65 64 20 74 68 61 74 3a | 20 28 31 29 20 73 6f 75 |ed that:| (1) sou|
|000032d0| 72 63 65 20 64 69 73 74 | 72 69 62 75 74 69 6f 6e |rce dist|ribution|
|000032e0| 73 20 72 65 74 61 69 6e | 20 74 68 69 73 20 65 6e |s retain| this en|
|000032f0| 74 69 72 65 20 63 6f 70 | 79 72 69 67 68 74 0a 58 |tire cop|yright.X|
|00003300| 20 2a 20 6e 6f 74 69 63 | 65 20 61 6e 64 20 63 6f | * notic|e and co|
|00003310| 6d 6d 65 6e 74 2c 20 61 | 6e 64 20 28 32 29 20 64 |mment, a|nd (2) d|
|00003320| 69 73 74 72 69 62 75 74 | 69 6f 6e 73 20 69 6e 63 |istribut|ions inc|
|00003330| 6c 75 64 69 6e 67 20 62 | 69 6e 61 72 69 65 73 20 |luding b|inaries |
|00003340| 64 69 73 70 6c 61 79 0a | 58 20 2a 20 74 68 65 20 |display.|X * the |
|00003350| 66 6f 6c 6c 6f 77 69 6e | 67 20 61 63 6b 6e 6f 77 |followin|g acknow|
|00003360| 6c 65 64 67 65 6d 65 6e | 74 3a 20 20 60 60 54 68 |ledgemen|t:  ``Th|
|00003370| 69 73 20 70 72 6f 64 75 | 63 74 20 69 6e 63 6c 75 |is produ|ct inclu|
|00003380| 64 65 73 20 73 6f 66 74 | 77 61 72 65 0a 58 20 2a |des soft|ware.X *|
|00003390| 20 64 65 76 65 6c 6f 70 | 65 64 20 62 79 20 74 68 | develop|ed by th|
|000033a0| 65 20 55 6e 69 76 65 72 | 73 69 74 79 20 6f 66 20 |e Univer|sity of |
|000033b0| 43 61 6c 69 66 6f 72 6e | 69 61 2c 20 42 65 72 6b |Californ|ia, Berk|
|000033c0| 65 6c 65 79 20 61 6e 64 | 20 69 74 73 20 63 6f 6e |eley and| its con|
|000033d0| 74 72 69 62 75 74 6f 72 | 73 27 27 0a 58 20 2a 20 |tributor|s''.X * |
|000033e0| 69 6e 20 74 68 65 20 64 | 6f 63 75 6d 65 6e 74 61 |in the d|ocumenta|
|000033f0| 74 69 6f 6e 20 6f 72 20 | 6f 74 68 65 72 20 6d 61 |tion or |other ma|
|00003400| 74 65 72 69 61 6c 73 20 | 70 72 6f 76 69 64 65 64 |terials |provided|
|00003410| 20 77 69 74 68 20 74 68 | 65 20 64 69 73 74 72 69 | with th|e distri|
|00003420| 62 75 74 69 6f 6e 0a 58 | 20 2a 20 61 6e 64 20 69 |bution.X| * and i|
|00003430| 6e 20 61 6c 6c 20 61 64 | 76 65 72 74 69 73 69 6e |n all ad|vertisin|
|00003440| 67 20 6d 61 74 65 72 69 | 61 6c 73 20 6d 65 6e 74 |g materi|als ment|
|00003450| 69 6f 6e 69 6e 67 20 66 | 65 61 74 75 72 65 73 20 |ioning f|eatures |
|00003460| 6f 72 20 75 73 65 20 6f | 66 20 74 68 69 73 0a 58 |or use o|f this.X|
|00003470| 20 2a 20 73 6f 66 74 77 | 61 72 65 2e 20 4e 65 69 | * softw|are. Nei|
|00003480| 74 68 65 72 20 74 68 65 | 20 6e 61 6d 65 20 6f 66 |ther the| name of|
|00003490| 20 74 68 65 20 55 6e 69 | 76 65 72 73 69 74 79 20 | the Uni|versity |
|000034a0| 6e 6f 72 20 74 68 65 20 | 6e 61 6d 65 73 20 6f 66 |nor the |names of|
|000034b0| 20 69 74 73 0a 58 20 2a | 20 63 6f 6e 74 72 69 62 | its.X *| contrib|
|000034c0| 75 74 6f 72 73 20 6d 61 | 79 20 62 65 20 75 73 65 |utors ma|y be use|
|000034d0| 64 20 74 6f 20 65 6e 64 | 6f 72 73 65 20 6f 72 20 |d to end|orse or |
|000034e0| 70 72 6f 6d 6f 74 65 20 | 70 72 6f 64 75 63 74 73 |promote |products|
|000034f0| 20 64 65 72 69 76 65 64 | 0a 58 20 2a 20 66 72 6f | derived|.X * fro|
|00003500| 6d 20 74 68 69 73 20 73 | 6f 66 74 77 61 72 65 20 |m this s|oftware |
|00003510| 77 69 74 68 6f 75 74 20 | 73 70 65 63 69 66 69 63 |without |specific|
|00003520| 20 70 72 69 6f 72 20 77 | 72 69 74 74 65 6e 20 70 | prior w|ritten p|
|00003530| 65 72 6d 69 73 73 69 6f | 6e 2e 0a 58 20 2a 20 54 |ermissio|n..X * T|
|00003540| 48 49 53 20 53 4f 46 54 | 57 41 52 45 20 49 53 20 |HIS SOFT|WARE IS |
|00003550| 50 52 4f 56 49 44 45 44 | 20 60 60 41 53 20 49 53 |PROVIDED| ``AS IS|
|00003560| 27 27 20 41 4e 44 20 57 | 49 54 48 4f 55 54 20 41 |'' AND W|ITHOUT A|
|00003570| 4e 59 20 45 58 50 52 45 | 53 53 20 4f 52 0a 58 20 |NY EXPRE|SS OR.X |
|00003580| 2a 20 49 4d 50 4c 49 45 | 44 20 57 41 52 52 41 4e |* IMPLIE|D WARRAN|
|00003590| 54 49 45 53 2c 20 49 4e | 43 4c 55 44 49 4e 47 2c |TIES, IN|CLUDING,|
|000035a0| 20 57 49 54 48 4f 55 54 | 20 4c 49 4d 49 54 41 54 | WITHOUT| LIMITAT|
|000035b0| 49 4f 4e 2c 20 54 48 45 | 20 49 4d 50 4c 49 45 44 |ION, THE| IMPLIED|
|000035c0| 0a 58 20 2a 20 57 41 52 | 52 41 4e 54 49 45 53 20 |.X * WAR|RANTIES |
|000035d0| 4f 46 20 4d 45 52 43 48 | 41 4e 54 41 42 49 4c 49 |OF MERCH|ANTABILI|
|000035e0| 54 59 20 41 4e 44 20 46 | 49 54 4e 45 53 53 20 46 |TY AND F|ITNESS F|
|000035f0| 4f 52 20 41 20 50 41 52 | 54 49 43 55 4c 41 52 20 |OR A PAR|TICULAR |
|00003600| 50 55 52 50 4f 53 45 2e | 0a 58 20 2a 2f 0a 58 0a |PURPOSE.|.X */.X.|
|00003610| 58 23 69 66 20 64 65 66 | 69 6e 65 64 28 4c 49 42 |X#if def|ined(LIB|
|00003620| 43 5f 53 43 43 53 29 20 | 26 26 20 21 64 65 66 69 |C_SCCS) |&& !defi|
|00003630| 6e 65 64 28 6c 69 6e 74 | 29 0a 73 74 61 74 69 63 |ned(lint|).static|
|00003640| 20 63 68 61 72 20 73 63 | 63 73 69 64 5b 5d 20 3d | char sc|csid[] =|
|00003650| 20 22 40 28 23 29 72 61 | 6e 64 6f 6d 2e 63 09 35 | "@(#)ra|ndom.c.5|
|00003660| 2e 37 20 28 42 65 72 6b | 65 6c 65 79 29 20 36 2f |.7 (Berk|eley) 6/|
|00003670| 31 2f 39 30 22 3b 0a 58 | 23 65 6e 64 69 66 20 2f |1/90";.X|#endif /|
|00003680| 2a 20 4c 49 42 43 5f 53 | 43 43 53 20 61 6e 64 20 |* LIBC_S|CCS and |
|00003690| 6e 6f 74 20 6c 69 6e 74 | 20 2a 2f 0a 58 0a 58 23 |not lint| */.X.X#|
|000036a0| 69 6e 63 6c 75 64 65 20 | 3c 73 74 64 69 6f 2e 68 |include |<stdio.h|
|000036b0| 3e 0a 58 0a 58 2f 2a 0a | 58 20 2a 20 72 61 6e 64 |>.X.X/*.|X * rand|
|000036c0| 6f 6d 2e 63 3a 0a 58 20 | 2a 20 41 6e 20 69 6d 70 |om.c:.X |* An imp|
|000036d0| 72 6f 76 65 64 20 72 61 | 6e 64 6f 6d 20 6e 75 6d |roved ra|ndom num|
|000036e0| 62 65 72 20 67 65 6e 65 | 72 61 74 69 6f 6e 20 70 |ber gene|ration p|
|000036f0| 61 63 6b 61 67 65 2e 20 | 20 49 6e 20 61 64 64 69 |ackage. | In addi|
|00003700| 74 69 6f 6e 20 74 6f 20 | 74 68 65 20 73 74 61 6e |tion to |the stan|
|00003710| 64 61 72 64 0a 58 20 2a | 20 72 61 6e 64 28 29 2f |dard.X *| rand()/|
|00003720| 73 72 61 6e 64 28 29 20 | 6c 69 6b 65 20 69 6e 74 |srand() |like int|
|00003730| 65 72 66 61 63 65 2c 20 | 74 68 69 73 20 70 61 63 |erface, |this pac|
|00003740| 6b 61 67 65 20 61 6c 73 | 6f 20 68 61 73 20 61 20 |kage als|o has a |
|00003750| 73 70 65 63 69 61 6c 20 | 73 74 61 74 65 20 69 6e |special |state in|
|00003760| 66 6f 0a 58 20 2a 20 69 | 6e 74 65 72 66 61 63 65 |fo.X * i|nterface|
|00003770| 2e 20 20 54 68 65 20 69 | 6e 69 74 73 74 61 74 65 |.  The i|nitstate|
|00003780| 28 29 20 72 6f 75 74 69 | 6e 65 20 69 73 20 63 61 |() routi|ne is ca|
|00003790| 6c 6c 65 64 20 77 69 74 | 68 20 61 20 73 65 65 64 |lled wit|h a seed|
|000037a0| 2c 20 61 6e 20 61 72 72 | 61 79 20 6f 66 0a 58 20 |, an arr|ay of.X |
|000037b0| 2a 20 62 79 74 65 73 2c | 20 61 6e 64 20 61 20 63 |* bytes,| and a c|
|000037c0| 6f 75 6e 74 20 6f 66 20 | 68 6f 77 20 6d 61 6e 79 |ount of |how many|
|000037d0| 20 62 79 74 65 73 20 61 | 72 65 20 62 65 69 6e 67 | bytes a|re being|
|000037e0| 20 70 61 73 73 65 64 20 | 69 6e 3b 20 74 68 69 73 | passed |in; this|
|000037f0| 20 61 72 72 61 79 20 69 | 73 20 74 68 65 6e 0a 58 | array i|s then.X|
|00003800| 20 2a 20 69 6e 69 74 69 | 61 6c 69 7a 65 64 20 74 | * initi|alized t|
|00003810| 6f 20 63 6f 6e 74 61 69 | 6e 20 69 6e 66 6f 72 6d |o contai|n inform|
|00003820| 61 74 69 6f 6e 20 66 6f | 72 20 72 61 6e 64 6f 6d |ation fo|r random|
|00003830| 20 6e 75 6d 62 65 72 20 | 67 65 6e 65 72 61 74 69 | number |generati|
|00003840| 6f 6e 20 77 69 74 68 20 | 74 68 61 74 0a 58 20 2a |on with |that.X *|
|00003850| 20 6d 75 63 68 20 73 74 | 61 74 65 20 69 6e 66 6f | much st|ate info|
|00003860| 72 6d 61 74 69 6f 6e 2e | 20 20 47 6f 6f 64 20 73 |rmation.|  Good s|
|00003870| 69 7a 65 73 20 66 6f 72 | 20 74 68 65 20 61 6d 6f |izes for| the amo|
|00003880| 75 6e 74 20 6f 66 20 73 | 74 61 74 65 20 69 6e 66 |unt of s|tate inf|
|00003890| 6f 72 6d 61 74 69 6f 6e | 20 61 72 65 0a 58 20 2a |ormation| are.X *|
|000038a0| 20 33 32 2c 20 36 34 2c | 20 31 32 38 2c 20 61 6e | 32, 64,| 128, an|
|000038b0| 64 20 32 35 36 20 62 79 | 74 65 73 2e 20 20 54 68 |d 256 by|tes.  Th|
|000038c0| 65 20 73 74 61 74 65 20 | 63 61 6e 20 62 65 20 73 |e state |can be s|
|000038d0| 77 69 74 63 68 65 64 20 | 62 79 20 63 61 6c 6c 69 |witched |by calli|
|000038e0| 6e 67 20 74 68 65 0a 58 | 20 2a 20 73 65 74 73 74 |ng the.X| * setst|
|000038f0| 61 74 65 28 29 20 72 6f | 75 74 69 6e 65 20 77 69 |ate() ro|utine wi|
|00003900| 74 68 20 74 68 65 20 73 | 61 6d 65 20 61 72 72 61 |th the s|ame arra|
|00003910| 79 20 61 73 20 77 61 73 | 20 69 6e 69 74 69 61 6c |y as was| initial|
|00003920| 6c 69 7a 65 64 20 77 69 | 74 68 20 69 6e 69 74 73 |lized wi|th inits|
|00003930| 74 61 74 65 28 29 2e 0a | 58 20 2a 20 42 79 20 64 |tate()..|X * By d|
|00003940| 65 66 61 75 6c 74 2c 20 | 74 68 65 20 70 61 63 6b |efault, |the pack|
|00003950| 61 67 65 20 72 75 6e 73 | 20 77 69 74 68 20 31 32 |age runs| with 12|
|00003960| 38 20 62 79 74 65 73 20 | 6f 66 20 73 74 61 74 65 |8 bytes |of state|
|00003970| 20 69 6e 66 6f 72 6d 61 | 74 69 6f 6e 20 61 6e 64 | informa|tion and|
|00003980| 0a 58 20 2a 20 67 65 6e | 65 72 61 74 65 73 20 66 |.X * gen|erates f|
|00003990| 61 72 20 62 65 74 74 65 | 72 20 72 61 6e 64 6f 6d |ar bette|r random|
|000039a0| 20 6e 75 6d 62 65 72 73 | 20 74 68 61 6e 20 61 20 | numbers| than a |
|000039b0| 6c 69 6e 65 61 72 20 63 | 6f 6e 67 72 75 65 6e 74 |linear c|ongruent|
|000039c0| 69 61 6c 20 67 65 6e 65 | 72 61 74 6f 72 2e 0a 58 |ial gene|rator..X|
|000039d0| 20 2a 20 49 66 20 74 68 | 65 20 61 6d 6f 75 6e 74 | * If th|e amount|
|000039e0| 20 6f 66 20 73 74 61 74 | 65 20 69 6e 66 6f 72 6d | of stat|e inform|
|000039f0| 61 74 69 6f 6e 20 69 73 | 20 6c 65 73 73 20 74 68 |ation is| less th|
|00003a00| 61 6e 20 33 32 20 62 79 | 74 65 73 2c 20 61 20 73 |an 32 by|tes, a s|
|00003a10| 69 6d 70 6c 65 20 6c 69 | 6e 65 61 72 0a 58 20 2a |imple li|near.X *|
|00003a20| 20 63 6f 6e 67 72 75 65 | 6e 74 69 61 6c 20 52 2e | congrue|ntial R.|
|00003a30| 4e 2e 47 2e 20 69 73 20 | 75 73 65 64 2e 0a 58 20 |N.G. is |used..X |
|00003a40| 2a 20 49 6e 74 65 72 6e | 61 6c 6c 79 2c 20 74 68 |* Intern|ally, th|
|00003a50| 65 20 73 74 61 74 65 20 | 69 6e 66 6f 72 6d 61 74 |e state |informat|
|00003a60| 69 6f 6e 20 69 73 20 74 | 72 65 61 74 65 64 20 61 |ion is t|reated a|
|00003a70| 73 20 61 6e 20 61 72 72 | 61 79 20 6f 66 20 6c 6f |s an arr|ay of lo|
|00003a80| 6e 67 73 3b 20 74 68 65 | 0a 58 20 2a 20 7a 65 72 |ngs; the|.X * zer|
|00003a90| 6f 65 74 68 20 65 6c 65 | 6d 65 6e 74 20 6f 66 20 |oeth ele|ment of |
|00003aa0| 74 68 65 20 61 72 72 61 | 79 20 69 73 20 74 68 65 |the arra|y is the|
|00003ab0| 20 74 79 70 65 20 6f 66 | 20 52 2e 4e 2e 47 2e 20 | type of| R.N.G. |
|00003ac0| 62 65 69 6e 67 20 75 73 | 65 64 20 28 73 6d 61 6c |being us|ed (smal|
|00003ad0| 6c 0a 58 20 2a 20 69 6e | 74 65 67 65 72 29 3b 20 |l.X * in|teger); |
|00003ae0| 74 68 65 20 72 65 6d 61 | 69 6e 64 65 72 20 6f 66 |the rema|inder of|
|00003af0| 20 74 68 65 20 61 72 72 | 61 79 20 69 73 20 74 68 | the arr|ay is th|
|00003b00| 65 20 73 74 61 74 65 20 | 69 6e 66 6f 72 6d 61 74 |e state |informat|
|00003b10| 69 6f 6e 20 66 6f 72 20 | 74 68 65 0a 58 20 2a 20 |ion for |the.X * |
|00003b20| 52 2e 4e 2e 47 2e 20 20 | 54 68 75 73 2c 20 33 32 |R.N.G.  |Thus, 32|
|00003b30| 20 62 79 74 65 73 20 6f | 66 20 73 74 61 74 65 20 | bytes o|f state |
|00003b40| 69 6e 66 6f 72 6d 61 74 | 69 6f 6e 20 77 69 6c 6c |informat|ion will|
|00003b50| 20 67 69 76 65 20 37 20 | 6c 6f 6e 67 73 20 77 6f | give 7 |longs wo|
|00003b60| 72 74 68 20 6f 66 0a 58 | 20 2a 20 73 74 61 74 65 |rth of.X| * state|
|00003b70| 20 69 6e 66 6f 72 6d 61 | 74 69 6f 6e 2c 20 77 68 | informa|tion, wh|
|00003b80| 69 63 68 20 77 69 6c 6c | 20 61 6c 6c 6f 77 20 61 |ich will| allow a|
|00003b90| 20 64 65 67 72 65 65 20 | 73 65 76 65 6e 20 70 6f | degree |seven po|
|00003ba0| 6c 79 6e 6f 6d 69 61 6c | 2e 20 20 28 4e 6f 74 65 |lynomial|.  (Note|
|00003bb0| 3a 20 74 68 65 20 0a 58 | 20 2a 20 7a 65 72 6f 65 |: the .X| * zeroe|
|00003bc0| 74 68 20 77 6f 72 64 20 | 6f 66 20 73 74 61 74 65 |th word |of state|
|00003bd0| 20 69 6e 66 6f 72 6d 61 | 74 69 6f 6e 20 61 6c 73 | informa|tion als|
|00003be0| 6f 20 68 61 73 20 73 6f | 6d 65 20 6f 74 68 65 72 |o has so|me other|
|00003bf0| 20 69 6e 66 6f 72 6d 61 | 74 69 6f 6e 20 73 74 6f | informa|tion sto|
|00003c00| 72 65 64 0a 58 20 2a 20 | 69 6e 20 69 74 20 2d 2d |red.X * |in it --|
|00003c10| 20 73 65 65 20 73 65 74 | 73 74 61 74 65 28 29 20 | see set|state() |
|00003c20| 66 6f 72 20 64 65 74 61 | 69 6c 73 29 2e 0a 58 20 |for deta|ils)..X |
|00003c30| 2a 20 54 68 65 20 72 61 | 6e 64 6f 6d 20 6e 75 6d |* The ra|ndom num|
|00003c40| 62 65 72 20 67 65 6e 65 | 72 61 74 69 6f 6e 20 74 |ber gene|ration t|
|00003c50| 65 63 68 6e 69 71 75 65 | 20 69 73 20 61 20 6c 69 |echnique| is a li|
|00003c60| 6e 65 61 72 20 66 65 65 | 64 62 61 63 6b 20 73 68 |near fee|dback sh|
|00003c70| 69 66 74 20 72 65 67 69 | 73 74 65 72 0a 58 20 2a |ift regi|ster.X *|
|00003c80| 20 61 70 70 72 6f 61 63 | 68 2c 20 65 6d 70 6c 6f | approac|h, emplo|
|00003c90| 79 69 6e 67 20 74 72 69 | 6e 6f 6d 69 61 6c 73 20 |ying tri|nomials |
|00003ca0| 28 73 69 6e 63 65 20 74 | 68 65 72 65 20 61 72 65 |(since t|here are|
|00003cb0| 20 66 65 77 65 72 20 74 | 65 72 6d 73 20 74 6f 20 | fewer t|erms to |
|00003cc0| 73 75 6d 20 75 70 20 74 | 68 61 74 0a 58 20 2a 20 |sum up t|hat.X * |
|00003cd0| 77 61 79 29 2e 20 20 49 | 6e 20 74 68 69 73 20 61 |way).  I|n this a|
|00003ce0| 70 70 72 6f 61 63 68 2c | 20 74 68 65 20 6c 65 61 |pproach,| the lea|
|00003cf0| 73 74 20 73 69 67 6e 69 | 66 69 63 61 6e 74 20 62 |st signi|ficant b|
|00003d00| 69 74 20 6f 66 20 61 6c | 6c 20 74 68 65 20 6e 75 |it of al|l the nu|
|00003d10| 6d 62 65 72 73 20 69 6e | 0a 58 20 2a 20 74 68 65 |mbers in|.X * the|
|00003d20| 20 73 74 61 74 65 20 74 | 61 62 6c 65 20 77 69 6c | state t|able wil|
|00003d30| 6c 20 61 63 74 20 61 73 | 20 61 20 6c 69 6e 65 61 |l act as| a linea|
|00003d40| 72 20 66 65 65 64 62 61 | 63 6b 20 73 68 69 66 74 |r feedba|ck shift|
|00003d50| 20 72 65 67 69 73 74 65 | 72 2c 20 61 6e 64 20 77 | registe|r, and w|
|00003d60| 69 6c 6c 20 68 61 76 65 | 0a 58 20 2a 20 70 65 72 |ill have|.X * per|
|00003d70| 69 6f 64 20 32 5e 64 65 | 67 20 2d 20 31 20 28 77 |iod 2^de|g - 1 (w|
|00003d80| 68 65 72 65 20 64 65 67 | 20 69 73 20 74 68 65 20 |here deg| is the |
|00003d90| 64 65 67 72 65 65 20 6f | 66 20 74 68 65 20 70 6f |degree o|f the po|
|00003da0| 6c 79 6e 6f 6d 69 61 6c | 20 62 65 69 6e 67 20 75 |lynomial| being u|
|00003db0| 73 65 64 2c 0a 58 20 2a | 20 61 73 73 75 6d 69 6e |sed,.X *| assumin|
|00003dc0| 67 20 74 68 61 74 20 74 | 68 65 20 70 6f 6c 79 6e |g that t|he polyn|
|00003dd0| 6f 6d 69 61 6c 20 69 73 | 20 69 72 72 65 64 75 63 |omial is| irreduc|
|00003de0| 69 62 6c 65 20 61 6e 64 | 20 70 72 69 6d 69 74 69 |ible and| primiti|
|00003df0| 76 65 29 2e 20 20 54 68 | 65 20 68 69 67 68 65 72 |ve).  Th|e higher|
|00003e00| 0a 58 20 2a 20 6f 72 64 | 65 72 20 62 69 74 73 20 |.X * ord|er bits |
|00003e10| 77 69 6c 6c 20 68 61 76 | 65 20 6c 6f 6e 67 65 72 |will hav|e longer|
|00003e20| 20 70 65 72 69 6f 64 73 | 2c 20 73 69 6e 63 65 20 | periods|, since |
|00003e30| 74 68 65 69 72 20 76 61 | 6c 75 65 73 20 61 72 65 |their va|lues are|
|00003e40| 20 61 6c 73 6f 20 69 6e | 66 6c 75 65 6e 63 65 64 | also in|fluenced|
|00003e50| 0a 58 20 2a 20 62 79 20 | 70 73 65 75 64 6f 2d 72 |.X * by |pseudo-r|
|00003e60| 61 6e 64 6f 6d 20 63 61 | 72 72 69 65 73 20 6f 75 |andom ca|rries ou|
|00003e70| 74 20 6f 66 20 74 68 65 | 20 6c 6f 77 65 72 20 62 |t of the| lower b|
|00003e80| 69 74 73 2e 20 20 54 68 | 65 20 74 6f 74 61 6c 20 |its.  Th|e total |
|00003e90| 70 65 72 69 6f 64 20 6f | 66 20 74 68 65 0a 58 20 |period o|f the.X |
|00003ea0| 2a 20 67 65 6e 65 72 61 | 74 6f 72 20 69 73 20 61 |* genera|tor is a|
|00003eb0| 70 70 72 6f 78 69 6d 61 | 74 65 6c 79 20 64 65 67 |pproxima|tely deg|
|00003ec0| 2a 28 32 2a 2a 64 65 67 | 20 2d 20 31 29 3b 20 74 |*(2**deg| - 1); t|
|00003ed0| 68 75 73 20 64 6f 75 62 | 6c 69 6e 67 20 74 68 65 |hus doub|ling the|
|00003ee0| 20 61 6d 6f 75 6e 74 20 | 6f 66 0a 58 20 2a 20 73 | amount |of.X * s|
|00003ef0| 74 61 74 65 20 69 6e 66 | 6f 72 6d 61 74 69 6f 6e |tate inf|ormation|
|00003f00| 20 68 61 73 20 61 20 76 | 61 73 74 20 69 6e 66 6c | has a v|ast infl|
|00003f10| 75 65 6e 63 65 20 6f 6e | 20 74 68 65 20 70 65 72 |uence on| the per|
|00003f20| 69 6f 64 20 6f 66 20 74 | 68 65 20 67 65 6e 65 72 |iod of t|he gener|
|00003f30| 61 74 6f 72 2e 0a 58 20 | 2a 20 4e 6f 74 65 3a 20 |ator..X |* Note: |
|00003f40| 74 68 65 20 64 65 67 2a | 28 32 2a 2a 64 65 67 20 |the deg*|(2**deg |
|00003f50| 2d 20 31 29 20 69 73 20 | 61 6e 20 61 70 70 72 6f |- 1) is |an appro|
|00003f60| 78 69 6d 61 74 69 6f 6e | 20 6f 6e 6c 79 20 67 6f |ximation| only go|
|00003f70| 6f 64 20 66 6f 72 20 6c | 61 72 67 65 20 64 65 67 |od for l|arge deg|
|00003f80| 2c 0a 58 20 2a 20 77 68 | 65 6e 20 74 68 65 20 70 |,.X * wh|en the p|
|00003f90| 65 72 69 6f 64 20 6f 66 | 20 74 68 65 20 73 68 69 |eriod of| the shi|
|00003fa0| 66 74 20 72 65 67 69 73 | 74 65 72 20 69 73 20 74 |ft regis|ter is t|
|00003fb0| 68 65 20 64 6f 6d 69 6e | 61 6e 74 20 66 61 63 74 |he domin|ant fact|
|00003fc0| 6f 72 2e 20 20 57 69 74 | 68 20 64 65 67 0a 58 20 |or.  Wit|h deg.X |
|00003fd0| 2a 20 65 71 75 61 6c 20 | 74 6f 20 73 65 76 65 6e |* equal |to seven|
|00003fe0| 2c 20 74 68 65 20 70 65 | 72 69 6f 64 20 69 73 20 |, the pe|riod is |
|00003ff0| 61 63 74 75 61 6c 6c 79 | 20 6d 75 63 68 20 6c 6f |actually| much lo|
|00004000| 6e 67 65 72 20 74 68 61 | 6e 20 74 68 65 20 37 2a |nger tha|n the 7*|
|00004010| 28 32 2a 2a 37 20 2d 20 | 31 29 0a 58 20 2a 20 70 |(2**7 - |1).X * p|
|00004020| 72 65 64 69 63 74 65 64 | 20 62 79 20 74 68 69 73 |redicted| by this|
|00004030| 20 66 6f 72 6d 75 6c 61 | 2e 0a 58 20 2a 2f 0a 58 | formula|..X */.X|
|00004040| 0a 58 0a 58 0a 58 2f 2a | 0a 58 20 2a 20 46 6f 72 |.X.X.X/*|.X * For|
|00004050| 20 65 61 63 68 20 6f 66 | 20 74 68 65 20 63 75 72 | each of| the cur|
|00004060| 72 65 6e 74 6c 79 20 73 | 75 70 70 6f 72 74 65 64 |rently s|upported|
|00004070| 20 72 61 6e 64 6f 6d 20 | 6e 75 6d 62 65 72 20 67 | random |number g|
|00004080| 65 6e 65 72 61 74 6f 72 | 73 2c 20 77 65 20 68 61 |enerator|s, we ha|
|00004090| 76 65 20 61 0a 58 20 2a | 20 62 72 65 61 6b 20 76 |ve a.X *| break v|
|000040a0| 61 6c 75 65 20 6f 6e 20 | 74 68 65 20 61 6d 6f 75 |alue on |the amou|
|000040b0| 6e 74 20 6f 66 20 73 74 | 61 74 65 20 69 6e 66 6f |nt of st|ate info|
|000040c0| 72 6d 61 74 69 6f 6e 20 | 28 79 6f 75 20 6e 65 65 |rmation |(you nee|
|000040d0| 64 20 61 74 20 6c 65 61 | 73 74 20 74 68 69 73 0a |d at lea|st this.|
|000040e0| 58 20 2a 20 6d 61 6e 79 | 20 62 79 74 65 73 20 6f |X * many| bytes o|
|000040f0| 66 20 73 74 61 74 65 20 | 69 6e 66 6f 20 74 6f 20 |f state |info to |
|00004100| 73 75 70 70 6f 72 74 20 | 74 68 69 73 20 72 61 6e |support |this ran|
|00004110| 64 6f 6d 20 6e 75 6d 62 | 65 72 20 67 65 6e 65 72 |dom numb|er gener|
|00004120| 61 74 6f 72 29 2c 20 61 | 20 64 65 67 72 65 65 0a |ator), a| degree.|
|00004130| 58 20 2a 20 66 6f 72 20 | 74 68 65 20 70 6f 6c 79 |X * for |the poly|
|00004140| 6e 6f 6d 69 61 6c 20 28 | 61 63 74 75 61 6c 6c 79 |nomial (|actually|
|00004150| 20 61 20 74 72 69 6e 6f | 6d 69 61 6c 29 20 74 68 | a trino|mial) th|
|00004160| 61 74 20 74 68 65 20 52 | 2e 4e 2e 47 2e 20 69 73 |at the R|.N.G. is|
|00004170| 20 62 61 73 65 64 20 6f | 6e 2c 20 61 6e 64 0a 58 | based o|n, and.X|
|00004180| 20 2a 20 74 68 65 20 73 | 65 70 61 72 61 74 69 6f | * the s|eparatio|
|00004190| 6e 20 62 65 74 77 65 65 | 6e 20 74 68 65 20 74 77 |n betwee|n the tw|
|000041a0| 6f 20 6c 6f 77 65 72 20 | 6f 72 64 65 72 20 63 6f |o lower |order co|
|000041b0| 65 66 66 69 63 69 65 6e | 74 73 20 6f 66 20 74 68 |efficien|ts of th|
|000041c0| 65 20 74 72 69 6e 6f 6d | 69 61 6c 2e 0a 58 20 2a |e trinom|ial..X *|
|000041d0| 2f 0a 58 0a 58 23 64 65 | 66 69 6e 65 09 09 54 59 |/.X.X#de|fine..TY|
|000041e0| 50 45 5f 30 09 09 30 09 | 09 2f 2a 20 6c 69 6e 65 |PE_0..0.|./* line|
|000041f0| 61 72 20 63 6f 6e 67 72 | 75 65 6e 74 69 61 6c 20 |ar congr|uential |
|00004200| 2a 2f 0a 58 23 64 65 66 | 69 6e 65 09 09 42 52 45 |*/.X#def|ine..BRE|
|00004210| 41 4b 5f 30 09 09 38 0a | 58 23 64 65 66 69 6e 65 |AK_0..8.|X#define|
|00004220| 09 09 44 45 47 5f 30 09 | 09 30 0a 58 23 64 65 66 |..DEG_0.|.0.X#def|
|00004230| 69 6e 65 09 09 53 45 50 | 5f 30 09 09 30 0a 58 0a |ine..SEP|_0..0.X.|
|00004240| 58 23 64 65 66 69 6e 65 | 09 09 54 59 50 45 5f 31 |X#define|..TYPE_1|
|00004250| 09 09 31 09 09 2f 2a 20 | 78 2a 2a 37 20 2b 20 78 |..1../* |x**7 + x|
|00004260| 2a 2a 33 20 2b 20 31 20 | 2a 2f 0a 58 23 64 65 66 |**3 + 1 |*/.X#def|
|00004270| 69 6e 65 09 09 42 52 45 | 41 4b 5f 31 09 09 33 32 |ine..BRE|AK_1..32|
|00004280| 0a 58 23 64 65 66 69 6e | 65 09 09 44 45 47 5f 31 |.X#defin|e..DEG_1|
|00004290| 09 09 37 0a 58 23 64 65 | 66 69 6e 65 09 09 53 45 |..7.X#de|fine..SE|
|000042a0| 50 5f 31 09 09 33 0a 58 | 0a 58 23 64 65 66 69 6e |P_1..3.X|.X#defin|
|000042b0| 65 09 09 54 59 50 45 5f | 32 09 09 32 09 09 2f 2a |e..TYPE_|2..2../*|
|000042c0| 20 78 2a 2a 31 35 20 2b | 20 78 20 2b 20 31 20 2a | x**15 +| x + 1 *|
|000042d0| 2f 0a 58 23 64 65 66 69 | 6e 65 09 09 42 52 45 41 |/.X#defi|ne..BREA|
|000042e0| 4b 5f 32 09 09 36 34 0a | 58 23 64 65 66 69 6e 65 |K_2..64.|X#define|
|000042f0| 09 09 44 45 47 5f 32 09 | 09 31 35 0a 58 23 64 65 |..DEG_2.|.15.X#de|
|00004300| 66 69 6e 65 09 09 53 45 | 50 5f 32 09 09 31 0a 58 |fine..SE|P_2..1.X|
|00004310| 0a 58 23 64 65 66 69 6e | 65 09 09 54 59 50 45 5f |.X#defin|e..TYPE_|
|00004320| 33 09 09 33 09 09 2f 2a | 20 78 2a 2a 33 31 20 2b |3..3../*| x**31 +|
|00004330| 20 78 2a 2a 33 20 2b 20 | 31 20 2a 2f 0a 58 23 64 | x**3 + |1 */.X#d|
|00004340| 65 66 69 6e 65 09 09 42 | 52 45 41 4b 5f 33 09 09 |efine..B|REAK_3..|
|00004350| 31 32 38 0a 58 23 64 65 | 66 69 6e 65 09 09 44 45 |128.X#de|fine..DE|
|00004360| 47 5f 33 09 09 33 31 0a | 58 23 64 65 66 69 6e 65 |G_3..31.|X#define|
|00004370| 09 09 53 45 50 5f 33 09 | 09 33 0a 58 0a 58 23 64 |..SEP_3.|.3.X.X#d|
|00004380| 65 66 69 6e 65 09 09 54 | 59 50 45 5f 34 09 09 34 |efine..T|YPE_4..4|
|00004390| 09 09 2f 2a 20 78 2a 2a | 36 33 20 2b 20 78 20 2b |../* x**|63 + x +|
|000043a0| 20 31 20 2a 2f 0a 58 23 | 64 65 66 69 6e 65 09 09 | 1 */.X#|define..|
|000043b0| 42 52 45 41 4b 5f 34 09 | 09 32 35 36 0a 58 23 64 |BREAK_4.|.256.X#d|
|000043c0| 65 66 69 6e 65 09 09 44 | 45 47 5f 34 09 09 36 33 |efine..D|EG_4..63|
|000043d0| 0a 58 23 64 65 66 69 6e | 65 09 09 53 45 50 5f 34 |.X#defin|e..SEP_4|
|000043e0| 09 09 31 0a 58 0a 58 0a | 58 2f 2a 0a 58 20 2a 20 |..1.X.X.|X/*.X * |
|000043f0| 41 72 72 61 79 20 76 65 | 72 73 69 6f 6e 73 20 6f |Array ve|rsions o|
|00004400| 66 20 74 68 65 20 61 62 | 6f 76 65 20 69 6e 66 6f |f the ab|ove info|
|00004410| 72 6d 61 74 69 6f 6e 20 | 74 6f 20 6d 61 6b 65 20 |rmation |to make |
|00004420| 63 6f 64 65 20 72 75 6e | 20 66 61 73 74 65 72 20 |code run| faster |
|00004430| 2d 2d 20 72 65 6c 69 65 | 73 0a 58 20 2a 20 6f 6e |-- relie|s.X * on|
|00004440| 20 66 61 63 74 20 74 68 | 61 74 20 54 59 50 45 5f | fact th|at TYPE_|
|00004450| 69 20 3d 3d 20 69 2e 0a | 58 20 2a 2f 0a 58 0a 58 |i == i..|X */.X.X|
|00004460| 23 64 65 66 69 6e 65 09 | 09 4d 41 58 5f 54 59 50 |#define.|.MAX_TYP|
|00004470| 45 53 09 35 09 09 2f 2a | 20 6d 61 78 20 6e 75 6d |ES.5../*| max num|
|00004480| 62 65 72 20 6f 66 20 74 | 79 70 65 73 20 61 62 6f |ber of t|ypes abo|
|00004490| 76 65 20 2a 2f 0a 58 0a | 73 74 61 74 69 63 20 20 |ve */.X.|static  |
|000044a0| 69 6e 74 09 09 64 65 67 | 72 65 65 73 5b 20 4d 41 |int..deg|rees[ MA|
|000044b0| 58 5f 54 59 50 45 53 20 | 5d 09 3d 20 7b 20 44 45 |X_TYPES |].= { DE|
|000044c0| 47 5f 30 2c 20 44 45 47 | 5f 31 2c 20 44 45 47 5f |G_0, DEG|_1, DEG_|
|000044d0| 32 2c 0a 58 09 09 09 09 | 09 09 09 09 44 45 47 5f |2,.X....|....DEG_|
|000044e0| 33 2c 20 44 45 47 5f 34 | 20 7d 3b 0a 58 0a 73 74 |3, DEG_4| };.X.st|
|000044f0| 61 74 69 63 20 20 69 6e | 74 09 09 73 65 70 73 5b |atic  in|t..seps[|
|00004500| 20 4d 41 58 5f 54 59 50 | 45 53 20 5d 09 3d 20 7b | MAX_TYP|ES ].= {|
|00004510| 20 53 45 50 5f 30 2c 20 | 53 45 50 5f 31 2c 20 53 | SEP_0, |SEP_1, S|
|00004520| 45 50 5f 32 2c 0a 58 09 | 09 09 09 09 09 09 09 53 |EP_2,.X.|.......S|
|00004530| 45 50 5f 33 2c 20 53 45 | 50 5f 34 20 7d 3b 0a 58 |EP_3, SE|P_4 };.X|
|00004540| 0a 58 0a 58 0a 58 2f 2a | 0a 58 20 2a 20 49 6e 69 |.X.X.X/*|.X * Ini|
|00004550| 74 69 61 6c 6c 79 2c 20 | 65 76 65 72 79 74 68 69 |tially, |everythi|
|00004560| 6e 67 20 69 73 20 73 65 | 74 20 75 70 20 61 73 20 |ng is se|t up as |
|00004570| 69 66 20 66 72 6f 6d 20 | 3a 0a 58 20 2a 09 09 69 |if from |:.X *..i|
|00004580| 6e 69 74 73 74 61 74 65 | 28 20 31 2c 20 26 72 61 |nitstate|( 1, &ra|
|00004590| 6e 64 74 62 6c 2c 20 31 | 32 38 20 29 3b 0a 58 20 |ndtbl, 1|28 );.X |
|000045a0| 2a 20 4e 6f 74 65 20 74 | 68 61 74 20 74 68 69 73 |* Note t|hat this|
|000045b0| 20 69 6e 69 74 69 61 6c | 69 7a 61 74 69 6f 6e 20 | initial|ization |
|000045c0| 74 61 6b 65 73 20 61 64 | 76 61 6e 74 61 67 65 20 |takes ad|vantage |
|000045d0| 6f 66 20 74 68 65 20 66 | 61 63 74 20 74 68 61 74 |of the f|act that|
|000045e0| 20 73 72 61 6e 64 6f 6d | 28 29 0a 58 20 2a 20 61 | srandom|().X * a|
|000045f0| 64 76 61 6e 63 65 73 20 | 74 68 65 20 66 72 6f 6e |dvances |the fron|
|00004600| 74 20 61 6e 64 20 72 65 | 61 72 20 70 6f 69 6e 74 |t and re|ar point|
|00004610| 65 72 73 20 31 30 2a 72 | 61 6e 64 5f 64 65 67 20 |ers 10*r|and_deg |
|00004620| 74 69 6d 65 73 2c 20 61 | 6e 64 20 68 65 6e 63 65 |times, a|nd hence|
|00004630| 20 74 68 65 0a 58 20 2a | 20 72 65 61 72 20 70 6f | the.X *| rear po|
|00004640| 69 6e 74 65 72 20 77 68 | 69 63 68 20 73 74 61 72 |inter wh|ich star|
|00004650| 74 73 20 61 74 20 30 20 | 77 69 6c 6c 20 61 6c 73 |ts at 0 |will als|
|00004660| 6f 20 65 6e 64 20 75 70 | 20 61 74 20 7a 65 72 6f |o end up| at zero|
|00004670| 3b 20 74 68 75 73 20 74 | 68 65 20 7a 65 72 6f 65 |; thus t|he zeroe|
|00004680| 74 68 0a 58 20 2a 20 65 | 6c 65 6d 65 6e 74 20 6f |th.X * e|lement o|
|00004690| 66 20 74 68 65 20 73 74 | 61 74 65 20 69 6e 66 6f |f the st|ate info|
|000046a0| 72 6d 61 74 69 6f 6e 2c | 20 77 68 69 63 68 20 63 |rmation,| which c|
|000046b0| 6f 6e 74 61 69 6e 73 20 | 69 6e 66 6f 20 61 62 6f |ontains |info abo|
|000046c0| 75 74 20 74 68 65 20 63 | 75 72 72 65 6e 74 0a 58 |ut the c|urrent.X|
|000046d0| 20 2a 20 70 6f 73 69 74 | 69 6f 6e 20 6f 66 20 74 | * posit|ion of t|
|000046e0| 68 65 20 72 65 61 72 20 | 70 6f 69 6e 74 65 72 20 |he rear |pointer |
|000046f0| 69 73 20 6a 75 73 74 0a | 58 20 2a 09 4d 41 58 5f |is just.|X *.MAX_|
|00004700| 54 59 50 45 53 2a 28 72 | 70 74 72 20 2d 20 73 74 |TYPES*(r|ptr - st|
|00004710| 61 74 65 29 20 2b 20 54 | 59 50 45 5f 33 20 3d 3d |ate) + T|YPE_3 ==|
|00004720| 20 54 59 50 45 5f 33 2e | 0a 58 20 2a 2f 0a 58 0a | TYPE_3.|.X */.X.|
|00004730| 73 74 61 74 69 63 20 20 | 6c 6f 6e 67 09 09 72 61 |static  |long..ra|
|00004740| 6e 64 74 62 6c 5b 20 44 | 45 47 5f 33 20 2b 20 31 |ndtbl[ D|EG_3 + 1|
|00004750| 20 5d 09 3d 20 7b 20 54 | 59 50 45 5f 33 2c 0a 58 | ].= { T|YPE_3,.X|
|00004760| 09 09 09 20 20 20 20 30 | 78 39 61 33 31 39 30 33 |...    0|x9a31903|
|00004770| 39 2c 20 30 78 33 32 64 | 39 63 30 32 34 2c 20 30 |9, 0x32d|9c024, 0|
|00004780| 78 39 62 36 36 33 31 38 | 32 2c 20 30 78 35 64 61 |x9b66318|2, 0x5da|
|00004790| 31 66 33 34 32 2c 20 0a | 58 09 09 09 20 20 20 20 |1f342, .|X...    |
|000047a0| 30 78 64 65 33 62 38 31 | 65 30 2c 20 30 78 64 66 |0xde3b81|e0, 0xdf|
|000047b0| 30 61 36 66 62 35 2c 20 | 30 78 66 31 30 33 62 63 |0a6fb5, |0xf103bc|
|000047c0| 30 32 2c 20 30 78 34 38 | 66 33 34 30 66 62 2c 20 |02, 0x48|f340fb, |
|000047d0| 0a 58 09 09 09 20 20 20 | 20 30 78 37 34 34 39 65 |.X...   | 0x7449e|
|000047e0| 35 36 62 2c 20 30 78 62 | 65 62 31 64 62 62 30 2c |56b, 0xb|eb1dbb0,|
|000047f0| 20 30 78 61 62 35 63 35 | 39 31 38 2c 20 30 78 39 | 0xab5c5|918, 0x9|
|00004800| 34 36 35 35 34 66 64 2c | 20 0a 58 09 09 09 20 20 |46554fd,| .X...  |
|00004810| 20 20 30 78 38 63 32 65 | 36 38 30 66 2c 20 30 78 |  0x8c2e|680f, 0x|
|00004820| 65 62 33 64 37 39 39 66 | 2c 20 30 78 62 31 31 65 |eb3d799f|, 0xb11e|
|00004830| 65 30 62 37 2c 20 30 78 | 32 64 34 33 36 62 38 36 |e0b7, 0x|2d436b86|
|00004840| 2c 20 0a 58 09 09 09 20 | 20 20 20 30 78 64 61 36 |, .X... |   0xda6|
|00004850| 37 32 65 32 61 2c 20 30 | 78 31 35 38 38 63 61 38 |72e2a, 0|x1588ca8|
|00004860| 38 2c 20 30 78 65 33 36 | 39 37 33 35 64 2c 20 30 |8, 0xe36|9735d, 0|
|00004870| 78 39 30 34 66 33 35 66 | 37 2c 20 0a 58 09 09 09 |x904f35f|7, .X...|
|00004880| 20 20 20 20 30 78 64 37 | 31 35 38 66 64 36 2c 20 |    0xd7|158fd6, |
|00004890| 30 78 36 66 61 36 66 30 | 35 31 2c 20 30 78 36 31 |0x6fa6f0|51, 0x61|
|000048a0| 36 65 36 62 39 36 2c 20 | 30 78 61 63 39 34 65 66 |6e6b96, |0xac94ef|
|000048b0| 64 63 2c 20 0a 58 09 09 | 09 20 20 20 20 30 78 33 |dc, .X..|.    0x3|
|000048c0| 36 34 31 33 66 39 33 2c | 20 30 78 63 36 32 32 63 |6413f93,| 0xc622c|
|000048d0| 32 39 38 2c 20 30 78 66 | 35 61 34 32 61 62 38 2c |298, 0xf|5a42ab8,|
|000048e0| 20 30 78 38 61 38 38 64 | 37 37 62 2c 20 0a 58 09 | 0x8a88d|77b, .X.|
|000048f0| 09 09 09 09 30 78 66 35 | 61 64 39 64 30 65 2c 20 |....0xf5|ad9d0e, |
|00004900| 30 78 38 39 39 39 32 32 | 30 62 2c 20 30 78 32 37 |0x899922|0b, 0x27|
|00004910| 66 62 34 37 62 39 20 7d | 3b 0a 58 0a 58 2f 2a 0a |fb47b9 }|;.X.X/*.|
|00004920| 58 20 2a 20 66 70 74 72 | 20 61 6e 64 20 72 70 74 |X * fptr| and rpt|
|00004930| 72 20 61 72 65 20 74 77 | 6f 20 70 6f 69 6e 74 65 |r are tw|o pointe|
|00004940| 72 73 20 69 6e 74 6f 20 | 74 68 65 20 73 74 61 74 |rs into |the stat|
|00004950| 65 20 69 6e 66 6f 2c 20 | 61 20 66 72 6f 6e 74 20 |e info, |a front |
|00004960| 61 6e 64 20 61 20 72 65 | 61 72 0a 58 20 2a 20 70 |and a re|ar.X * p|
|00004970| 6f 69 6e 74 65 72 2e 20 | 20 54 68 65 73 65 20 74 |ointer. | These t|
|00004980| 77 6f 20 70 6f 69 6e 74 | 65 72 73 20 61 72 65 20 |wo point|ers are |
|00004990| 61 6c 77 61 79 73 20 72 | 61 6e 64 5f 73 65 70 20 |always r|and_sep |
|000049a0| 70 6c 61 63 65 73 20 61 | 70 61 72 74 73 2c 20 61 |places a|parts, a|
|000049b0| 73 20 74 68 65 79 20 63 | 79 63 6c 65 0a 58 20 2a |s they c|ycle.X *|
|000049c0| 20 63 79 63 6c 69 63 61 | 6c 6c 79 20 74 68 72 6f | cyclica|lly thro|
|000049d0| 75 67 68 20 74 68 65 20 | 73 74 61 74 65 20 69 6e |ugh the |state in|
|000049e0| 66 6f 72 6d 61 74 69 6f | 6e 2e 20 20 28 59 65 73 |formatio|n.  (Yes|
|000049f0| 2c 20 74 68 69 73 20 64 | 6f 65 73 20 6d 65 61 6e |, this d|oes mean|
|00004a00| 20 77 65 20 63 6f 75 6c | 64 20 67 65 74 0a 58 20 | we coul|d get.X |
|00004a10| 2a 20 61 77 61 79 20 77 | 69 74 68 20 6a 75 73 74 |* away w|ith just|
|00004a20| 20 6f 6e 65 20 70 6f 69 | 6e 74 65 72 2c 20 62 75 | one poi|nter, bu|
|00004a30| 74 20 74 68 65 20 63 6f | 64 65 20 66 6f 72 20 72 |t the co|de for r|
|00004a40| 61 6e 64 6f 6d 28 29 20 | 69 73 20 6d 6f 72 65 20 |andom() |is more |
|00004a50| 65 66 66 69 63 69 65 6e | 74 20 74 68 69 73 0a 58 |efficien|t this.X|
|00004a60| 20 2a 20 77 61 79 29 2e | 20 20 54 68 65 20 70 6f | * way).|  The po|
|00004a70| 69 6e 74 65 72 73 20 61 | 72 65 20 6c 65 66 74 20 |inters a|re left |
|00004a80| 70 6f 73 69 74 69 6f 6e | 65 64 20 61 73 20 74 68 |position|ed as th|
|00004a90| 65 79 20 77 6f 75 6c 64 | 20 62 65 20 66 72 6f 6d |ey would| be from|
|00004aa0| 20 74 68 65 20 63 61 6c | 6c 0a 58 20 2a 09 09 09 | the cal|l.X *...|
|00004ab0| 69 6e 69 74 73 74 61 74 | 65 28 20 31 2c 20 72 61 |initstat|e( 1, ra|
|00004ac0| 6e 64 74 62 6c 2c 20 31 | 32 38 20 29 0a 58 20 2a |ndtbl, 1|28 ).X *|
|00004ad0| 20 28 54 68 65 20 70 6f | 73 69 74 69 6f 6e 20 6f | (The po|sition o|
|00004ae0| 66 20 74 68 65 20 72 65 | 61 72 20 70 6f 69 6e 74 |f the re|ar point|
|00004af0| 65 72 2c 20 72 70 74 72 | 2c 20 69 73 20 72 65 61 |er, rptr|, is rea|
|00004b00| 6c 6c 79 20 30 20 28 61 | 73 20 65 78 70 6c 61 69 |lly 0 (a|s explai|
|00004b10| 6e 65 64 20 61 62 6f 76 | 65 0a 58 20 2a 20 69 6e |ned abov|e.X * in|
|00004b20| 20 74 68 65 20 69 6e 69 | 74 69 61 6c 69 7a 61 74 | the ini|tializat|
|00004b30| 69 6f 6e 20 6f 66 20 72 | 61 6e 64 74 62 6c 29 20 |ion of r|andtbl) |
|00004b40| 62 65 63 61 75 73 65 20 | 74 68 65 20 73 74 61 74 |because |the stat|
|00004b50| 65 20 74 61 62 6c 65 20 | 70 6f 69 6e 74 65 72 20 |e table |pointer |
|00004b60| 69 73 20 73 65 74 0a 58 | 20 2a 20 74 6f 20 70 6f |is set.X| * to po|
|00004b70| 69 6e 74 20 74 6f 20 72 | 61 6e 64 74 62 6c 5b 31 |int to r|andtbl[1|
|00004b80| 5d 20 28 61 73 20 65 78 | 70 6c 61 69 6e 65 64 20 |] (as ex|plained |
|00004b90| 62 65 6c 6f 77 29 2e 0a | 58 20 2a 2f 0a 58 0a 73 |below)..|X */.X.s|
|00004ba0| 74 61 74 69 63 20 20 6c | 6f 6e 67 09 09 2a 66 70 |tatic  l|ong..*fp|
|00004bb0| 74 72 09 09 09 3d 20 26 | 72 61 6e 64 74 62 6c 5b |tr...= &|randtbl[|
|00004bc0| 20 53 45 50 5f 33 20 2b | 20 31 20 5d 3b 0a 73 74 | SEP_3 +| 1 ];.st|
|00004bd0| 61 74 69 63 20 20 6c 6f | 6e 67 09 09 2a 72 70 74 |atic  lo|ng..*rpt|
|00004be0| 72 09 09 09 3d 20 26 72 | 61 6e 64 74 62 6c 5b 20 |r...= &r|andtbl[ |
|00004bf0| 31 20 5d 3b 0a 58 0a 58 | 0a 58 0a 58 2f 2a 0a 58 |1 ];.X.X|.X.X/*.X|
|00004c00| 20 2a 20 54 68 65 20 66 | 6f 6c 6c 6f 77 69 6e 67 | * The f|ollowing|
|00004c10| 20 74 68 69 6e 67 73 20 | 61 72 65 20 74 68 65 20 | things |are the |
|00004c20| 70 6f 69 6e 74 65 72 20 | 74 6f 20 74 68 65 20 73 |pointer |to the s|
|00004c30| 74 61 74 65 20 69 6e 66 | 6f 72 6d 61 74 69 6f 6e |tate inf|ormation|
|00004c40| 20 74 61 62 6c 65 2c 0a | 58 20 2a 20 74 68 65 20 | table,.|X * the |
|00004c50| 74 79 70 65 20 6f 66 20 | 74 68 65 20 63 75 72 72 |type of |the curr|
|00004c60| 65 6e 74 20 67 65 6e 65 | 72 61 74 6f 72 2c 20 74 |ent gene|rator, t|
|00004c70| 68 65 20 64 65 67 72 65 | 65 20 6f 66 20 74 68 65 |he degre|e of the|
|00004c80| 20 63 75 72 72 65 6e 74 | 20 70 6f 6c 79 6e 6f 6d | current| polynom|
|00004c90| 69 61 6c 0a 58 20 2a 20 | 62 65 69 6e 67 20 75 73 |ial.X * |being us|
|00004ca0| 65 64 2c 20 61 6e 64 20 | 74 68 65 20 73 65 70 61 |ed, and |the sepa|
|00004cb0| 72 61 74 69 6f 6e 20 62 | 65 74 77 65 65 6e 20 74 |ration b|etween t|
|00004cc0| 68 65 20 74 77 6f 20 70 | 6f 69 6e 74 65 72 73 2e |he two p|ointers.|
|00004cd0| 0a 58 20 2a 20 4e 6f 74 | 65 20 74 68 61 74 20 66 |.X * Not|e that f|
|00004ce0| 6f 72 20 65 66 66 69 63 | 69 65 6e 63 79 20 6f 66 |or effic|iency of|
|00004cf0| 20 72 61 6e 64 6f 6d 28 | 29 2c 20 77 65 20 72 65 | random(|), we re|
|00004d00| 6d 65 6d 62 65 72 20 74 | 68 65 20 66 69 72 73 74 |member t|he first|
|00004d10| 20 6c 6f 63 61 74 69 6f | 6e 20 6f 66 0a 58 20 2a | locatio|n of.X *|
|00004d20| 20 74 68 65 20 73 74 61 | 74 65 20 69 6e 66 6f 72 | the sta|te infor|
|00004d30| 6d 61 74 69 6f 6e 2c 20 | 6e 6f 74 20 74 68 65 20 |mation, |not the |
|00004d40| 7a 65 72 6f 65 74 68 2e | 20 20 48 65 6e 63 65 20 |zeroeth.|  Hence |
|00004d50| 69 74 20 69 73 20 76 61 | 6c 69 64 20 74 6f 20 61 |it is va|lid to a|
|00004d60| 63 63 65 73 73 0a 58 20 | 2a 20 73 74 61 74 65 5b |ccess.X |* state[|
|00004d70| 2d 31 5d 2c 20 77 68 69 | 63 68 20 69 73 20 75 73 |-1], whi|ch is us|
|00004d80| 65 64 20 74 6f 20 73 74 | 6f 72 65 20 74 68 65 20 |ed to st|ore the |
|00004d90| 74 79 70 65 20 6f 66 20 | 74 68 65 20 52 2e 4e 2e |type of |the R.N.|
|00004da0| 47 2e 0a 58 20 2a 20 41 | 6c 73 6f 2c 20 77 65 20 |G..X * A|lso, we |
|00004db0| 72 65 6d 65 6d 62 65 72 | 20 74 68 65 20 6c 61 73 |remember| the las|
|00004dc0| 74 20 6c 6f 63 61 74 69 | 6f 6e 2c 20 73 69 6e 63 |t locati|on, sinc|
|00004dd0| 65 20 74 68 69 73 20 69 | 73 20 6d 6f 72 65 20 65 |e this i|s more e|
|00004de0| 66 66 69 63 69 65 6e 74 | 20 74 68 61 6e 0a 58 20 |fficient| than.X |
|00004df0| 2a 20 69 6e 64 65 78 69 | 6e 67 20 65 76 65 72 79 |* indexi|ng every|
|00004e00| 20 74 69 6d 65 20 74 6f | 20 66 69 6e 64 20 74 68 | time to| find th|
|00004e10| 65 20 61 64 64 72 65 73 | 73 20 6f 66 20 74 68 65 |e addres|s of the|
|00004e20| 20 6c 61 73 74 20 65 6c | 65 6d 65 6e 74 20 74 6f | last el|ement to|
|00004e30| 20 73 65 65 20 69 66 0a | 58 20 2a 20 74 68 65 20 | see if.|X * the |
|00004e40| 66 72 6f 6e 74 20 61 6e | 64 20 72 65 61 72 20 70 |front an|d rear p|
|00004e50| 6f 69 6e 74 65 72 73 20 | 68 61 76 65 20 77 72 61 |ointers |have wra|
|00004e60| 70 70 65 64 2e 0a 58 20 | 2a 2f 0a 58 0a 73 74 61 |pped..X |*/.X.sta|
|00004e70| 74 69 63 20 20 6c 6f 6e | 67 09 09 2a 73 74 61 74 |tic  lon|g..*stat|
|00004e80| 65 09 09 09 3d 20 26 72 | 61 6e 64 74 62 6c 5b 20 |e...= &r|andtbl[ |
|00004e90| 31 20 5d 3b 0a 58 0a 73 | 74 61 74 69 63 20 20 69 |1 ];.X.s|tatic  i|
|00004ea0| 6e 74 09 09 72 61 6e 64 | 5f 74 79 70 65 09 09 3d |nt..rand|_type..=|
|00004eb0| 20 54 59 50 45 5f 33 3b | 0a 73 74 61 74 69 63 20 | TYPE_3;|.static |
|00004ec0| 20 69 6e 74 09 09 72 61 | 6e 64 5f 64 65 67 09 09 | int..ra|nd_deg..|
|00004ed0| 3d 20 44 45 47 5f 33 3b | 0a 73 74 61 74 69 63 20 |= DEG_3;|.static |
|00004ee0| 20 69 6e 74 09 09 72 61 | 6e 64 5f 73 65 70 09 09 | int..ra|nd_sep..|
|00004ef0| 3d 20 53 45 50 5f 33 3b | 0a 58 0a 73 74 61 74 69 |= SEP_3;|.X.stati|
|00004f00| 63 20 20 6c 6f 6e 67 09 | 09 2a 65 6e 64 5f 70 74 |c  long.|.*end_pt|
|00004f10| 72 09 09 3d 20 26 72 61 | 6e 64 74 62 6c 5b 20 44 |r..= &ra|ndtbl[ D|
|00004f20| 45 47 5f 33 20 2b 20 31 | 20 5d 3b 0a 58 0a 58 0a |EG_3 + 1| ];.X.X.|
|00004f30| 58 0a 58 2f 2a 0a 58 20 | 2a 20 73 72 61 6e 64 6f |X.X/*.X |* srando|
|00004f40| 6d 3a 0a 58 20 2a 20 49 | 6e 69 74 69 61 6c 69 7a |m:.X * I|nitializ|
|00004f50| 65 20 74 68 65 20 72 61 | 6e 64 6f 6d 20 6e 75 6d |e the ra|ndom num|
|00004f60| 62 65 72 20 67 65 6e 65 | 72 61 74 6f 72 20 62 61 |ber gene|rator ba|
|00004f70| 73 65 64 20 6f 6e 20 74 | 68 65 20 67 69 76 65 6e |sed on t|he given|
|00004f80| 20 73 65 65 64 2e 20 20 | 49 66 20 74 68 65 0a 58 | seed.  |If the.X|
|00004f90| 20 2a 20 74 79 70 65 20 | 69 73 20 74 68 65 20 74 | * type |is the t|
|00004fa0| 72 69 76 69 61 6c 20 6e | 6f 2d 73 74 61 74 65 2d |rivial n|o-state-|
|00004fb0| 69 6e 66 6f 72 6d 61 74 | 69 6f 6e 20 74 79 70 65 |informat|ion type|
|00004fc0| 2c 20 6a 75 73 74 20 72 | 65 6d 65 6d 62 65 72 20 |, just r|emember |
|00004fd0| 74 68 65 20 73 65 65 64 | 2e 0a 58 20 2a 20 4f 74 |the seed|..X * Ot|
|00004fe0| 68 65 72 77 69 73 65 2c | 20 69 6e 69 74 69 61 6c |herwise,| initial|
|00004ff0| 69 7a 65 73 20 73 74 61 | 74 65 5b 5d 20 62 61 73 |izes sta|te[] bas|
|00005000| 65 64 20 6f 6e 20 74 68 | 65 20 67 69 76 65 6e 20 |ed on th|e given |
|00005010| 22 73 65 65 64 22 20 76 | 69 61 20 61 20 6c 69 6e |"seed" v|ia a lin|
|00005020| 65 61 72 0a 58 20 2a 20 | 63 6f 6e 67 72 75 65 6e |ear.X * |congruen|
|00005030| 74 69 61 6c 20 67 65 6e | 65 72 61 74 6f 72 2e 20 |tial gen|erator. |
|00005040| 20 54 68 65 6e 2c 20 74 | 68 65 20 70 6f 69 6e 74 | Then, t|he point|
|00005050| 65 72 73 20 61 72 65 20 | 73 65 74 20 74 6f 20 6b |ers are |set to k|
|00005060| 6e 6f 77 6e 20 6c 6f 63 | 61 74 69 6f 6e 73 0a 58 |nown loc|ations.X|
|00005070| 20 2a 20 74 68 61 74 20 | 61 72 65 20 65 78 61 63 | * that |are exac|
|00005080| 74 6c 79 20 72 61 6e 64 | 5f 73 65 70 20 70 6c 61 |tly rand|_sep pla|
|00005090| 63 65 73 20 61 70 61 72 | 74 2e 20 20 4c 61 73 74 |ces apar|t.  Last|
|000050a0| 6c 79 2c 20 69 74 20 63 | 79 63 6c 65 73 20 74 68 |ly, it c|ycles th|
|000050b0| 65 20 73 74 61 74 65 0a | 58 20 2a 20 69 6e 66 6f |e state.|X * info|
|000050c0| 72 6d 61 74 69 6f 6e 20 | 61 20 67 69 76 65 6e 20 |rmation |a given |
|000050d0| 6e 75 6d 62 65 72 20 6f | 66 20 74 69 6d 65 73 20 |number o|f times |
|000050e0| 74 6f 20 67 65 74 20 72 | 69 64 20 6f 66 20 61 6e |to get r|id of an|
|000050f0| 79 20 69 6e 69 74 69 61 | 6c 20 64 65 70 65 6e 64 |y initia|l depend|
|00005100| 65 6e 63 69 65 73 0a 58 | 20 2a 20 69 6e 74 72 6f |encies.X| * intro|
|00005110| 64 75 63 65 64 20 62 79 | 20 74 68 65 20 4c 2e 43 |duced by| the L.C|
|00005120| 2e 52 2e 4e 2e 47 2e 0a | 58 20 2a 20 4e 6f 74 65 |.R.N.G..|X * Note|
|00005130| 20 74 68 61 74 20 74 68 | 65 20 69 6e 69 74 69 61 | that th|e initia|
|00005140| 6c 69 7a 61 74 69 6f 6e | 20 6f 66 20 72 61 6e 64 |lization| of rand|
|00005150| 74 62 6c 5b 5d 20 66 6f | 72 20 64 65 66 61 75 6c |tbl[] fo|r defaul|
|00005160| 74 20 75 73 61 67 65 20 | 72 65 6c 69 65 73 20 6f |t usage |relies o|
|00005170| 6e 0a 58 20 2a 20 76 61 | 6c 75 65 73 20 70 72 6f |n.X * va|lues pro|
|00005180| 64 75 63 65 64 20 62 79 | 20 74 68 69 73 20 72 6f |duced by| this ro|
|00005190| 75 74 69 6e 65 2e 0a 58 | 20 2a 2f 0a 58 0a 73 72 |utine..X| */.X.sr|
|000051a0| 61 6e 64 6f 6d 28 20 78 | 20 29 0a 58 0a 58 20 20 |andom( x| ).X.X  |
|000051b0| 20 20 75 6e 73 69 67 6e | 65 64 09 09 78 3b 0a 58 |  unsign|ed..x;.X|
|000051c0| 7b 0a 58 20 20 20 20 09 | 72 65 67 69 73 74 65 72 |{.X    .|register|
|000051d0| 20 20 69 6e 74 09 09 69 | 2c 20 6a 3b 0a 58 09 6c |  int..i|, j;.X.l|
|000051e0| 6f 6e 67 20 72 61 6e 64 | 6f 6d 28 29 3b 0a 58 0a |ong rand|om();.X.|
|000051f0| 58 09 69 66 28 20 20 72 | 61 6e 64 5f 74 79 70 65 |X.if(  r|and_type|
|00005200| 20 20 3d 3d 20 20 54 59 | 50 45 5f 30 20 20 29 20 |  ==  TY|PE_0  ) |
|00005210| 20 7b 0a 58 09 20 20 20 | 20 73 74 61 74 65 5b 20 | {.X.   | state[ |
|00005220| 30 20 5d 20 3d 20 78 3b | 0a 58 09 7d 0a 58 09 65 |0 ] = x;|.X.}.X.e|
|00005230| 6c 73 65 20 20 7b 0a 58 | 09 20 20 20 20 6a 20 3d |lse  {.X|.    j =|
|00005240| 20 31 3b 0a 58 09 20 20 | 20 20 73 74 61 74 65 5b | 1;.X.  |  state[|
|00005250| 20 30 20 5d 20 3d 20 78 | 3b 0a 58 09 20 20 20 20 | 0 ] = x|;.X.    |
|00005260| 66 6f 72 28 20 69 20 3d | 20 31 3b 20 69 20 3c 20 |for( i =| 1; i < |
|00005270| 72 61 6e 64 5f 64 65 67 | 3b 20 69 2b 2b 20 29 20 |rand_deg|; i++ ) |
|00005280| 20 7b 0a 58 09 09 73 74 | 61 74 65 5b 69 5d 20 3d | {.X..st|ate[i] =|
|00005290| 20 31 31 30 33 35 31 35 | 32 34 35 2a 73 74 61 74 | 1103515|245*stat|
|000052a0| 65 5b 69 20 2d 20 31 5d | 20 2b 20 31 32 33 34 35 |e[i - 1]| + 12345|
|000052b0| 3b 0a 58 09 20 20 20 20 | 7d 0a 58 09 20 20 20 20 |;.X.    |}.X.    |
|000052c0| 66 70 74 72 20 3d 20 26 | 73 74 61 74 65 5b 20 72 |fptr = &|state[ r|
|000052d0| 61 6e 64 5f 73 65 70 20 | 5d 3b 0a 58 09 20 20 20 |and_sep |];.X.   |
|000052e0| 20 72 70 74 72 20 3d 20 | 26 73 74 61 74 65 5b 20 | rptr = |&state[ |
|000052f0| 30 20 5d 3b 0a 58 09 20 | 20 20 20 66 6f 72 28 20 |0 ];.X. |   for( |
|00005300| 69 20 3d 20 30 3b 20 69 | 20 3c 20 31 30 2a 72 61 |i = 0; i| < 10*ra|
|00005310| 6e 64 5f 64 65 67 3b 20 | 69 2b 2b 20 29 20 20 72 |nd_deg; |i++ )  r|
|00005320| 61 6e 64 6f 6d 28 29 3b | 0a 58 09 7d 0a 58 7d 0a |andom();|.X.}.X}.|
|00005330| 58 0a 58 0a 58 0a 58 2f | 2a 0a 58 20 2a 20 69 6e |X.X.X.X/|*.X * in|
|00005340| 69 74 73 74 61 74 65 3a | 0a 58 20 2a 20 49 6e 69 |itstate:|.X * Ini|
|00005350| 74 69 61 6c 69 7a 65 20 | 74 68 65 20 73 74 61 74 |tialize |the stat|
|00005360| 65 20 69 6e 66 6f 72 6d | 61 74 69 6f 6e 20 69 6e |e inform|ation in|
|00005370| 20 74 68 65 20 67 69 76 | 65 6e 20 61 72 72 61 79 | the giv|en array|
|00005380| 20 6f 66 20 6e 20 62 79 | 74 65 73 20 66 6f 72 0a | of n by|tes for.|
|00005390| 58 20 2a 20 66 75 74 75 | 72 65 20 72 61 6e 64 6f |X * futu|re rando|
|000053a0| 6d 20 6e 75 6d 62 65 72 | 20 67 65 6e 65 72 61 74 |m number| generat|
|000053b0| 69 6f 6e 2e 20 20 42 61 | 73 65 64 20 6f 6e 20 74 |ion.  Ba|sed on t|
|000053c0| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 62 79 74 |he numbe|r of byt|
|000053d0| 65 73 20 77 65 0a 58 20 | 2a 20 61 72 65 20 67 69 |es we.X |* are gi|
|000053e0| 76 65 6e 2c 20 61 6e 64 | 20 74 68 65 20 62 72 65 |ven, and| the bre|
|000053f0| 61 6b 20 76 61 6c 75 65 | 73 20 66 6f 72 20 74 68 |ak value|s for th|
|00005400| 65 20 64 69 66 66 65 72 | 65 6e 74 20 52 2e 4e 2e |e differ|ent R.N.|
|00005410| 47 2e 27 73 2c 20 77 65 | 20 63 68 6f 6f 73 65 0a |G.'s, we| choose.|
|00005420| 58 20 2a 20 74 68 65 20 | 62 65 73 74 20 28 6c 61 |X * the |best (la|
|00005430| 72 67 65 73 74 29 20 6f | 6e 65 20 77 65 20 63 61 |rgest) o|ne we ca|
|00005440| 6e 20 61 6e 64 20 73 65 | 74 20 74 68 69 6e 67 73 |n and se|t things|
|00005450| 20 75 70 20 66 6f 72 20 | 69 74 2e 20 20 73 72 61 | up for |it.  sra|
|00005460| 6e 64 6f 6d 28 29 20 69 | 73 0a 58 20 2a 20 74 68 |ndom() i|s.X * th|
|00005470| 65 6e 20 63 61 6c 6c 65 | 64 20 74 6f 20 69 6e 69 |en calle|d to ini|
|00005480| 74 69 61 6c 69 7a 65 20 | 74 68 65 20 73 74 61 74 |tialize |the stat|
|00005490| 65 20 69 6e 66 6f 72 6d | 61 74 69 6f 6e 2e 0a 58 |e inform|ation..X|
|000054a0| 20 2a 20 4e 6f 74 65 20 | 74 68 61 74 20 6f 6e 20 | * Note |that on |
|000054b0| 72 65 74 75 72 6e 20 66 | 72 6f 6d 20 73 72 61 6e |return f|rom sran|
|000054c0| 64 6f 6d 28 29 2c 20 77 | 65 20 73 65 74 20 73 74 |dom(), w|e set st|
|000054d0| 61 74 65 5b 2d 31 5d 20 | 74 6f 20 62 65 20 74 68 |ate[-1] |to be th|
|000054e0| 65 20 74 79 70 65 0a 58 | 20 2a 20 6d 75 6c 74 69 |e type.X| * multi|
|000054f0| 70 6c 65 78 65 64 20 77 | 69 74 68 20 74 68 65 20 |plexed w|ith the |
|00005500| 63 75 72 72 65 6e 74 20 | 76 61 6c 75 65 20 6f 66 |current |value of|
|00005510| 20 74 68 65 20 72 65 61 | 72 20 70 6f 69 6e 74 65 | the rea|r pointe|
|00005520| 72 3b 20 74 68 69 73 20 | 69 73 20 73 6f 0a 58 20 |r; this |is so.X |
|00005530| 2a 20 73 75 63 63 65 73 | 73 69 76 65 20 63 61 6c |* succes|sive cal|
|00005540| 6c 73 20 74 6f 20 69 6e | 69 74 73 74 61 74 65 28 |ls to in|itstate(|
|00005550| 29 20 77 6f 6e 27 74 20 | 6c 6f 73 65 20 74 68 69 |) won't |lose thi|
|00005560| 73 20 69 6e 66 6f 72 6d | 61 74 69 6f 6e 20 61 6e |s inform|ation an|
|00005570| 64 20 77 69 6c 6c 0a 58 | 20 2a 20 62 65 20 61 62 |d will.X| * be ab|
|00005580| 6c 65 20 74 6f 20 72 65 | 73 74 61 72 74 20 77 69 |le to re|start wi|
|00005590| 74 68 20 73 65 74 73 74 | 61 74 65 28 29 2e 0a 58 |th setst|ate()..X|
|000055a0| 20 2a 20 4e 6f 74 65 3a | 20 74 68 65 20 66 69 72 | * Note:| the fir|
|000055b0| 73 74 20 74 68 69 6e 67 | 20 77 65 20 64 6f 20 69 |st thing| we do i|
|000055c0| 73 20 73 61 76 65 20 74 | 68 65 20 63 75 72 72 65 |s save t|he curre|
|000055d0| 6e 74 20 73 74 61 74 65 | 2c 20 69 66 20 61 6e 79 |nt state|, if any|
|000055e0| 2c 20 6a 75 73 74 20 6c | 69 6b 65 0a 58 20 2a 20 |, just l|ike.X * |
|000055f0| 73 65 74 73 74 61 74 65 | 28 29 20 73 6f 20 74 68 |setstate|() so th|
|00005600| 61 74 20 69 74 20 64 6f | 65 73 6e 27 74 20 6d 61 |at it do|esn't ma|
|00005610| 74 74 65 72 20 77 68 65 | 6e 20 69 6e 69 74 73 74 |tter whe|n initst|
|00005620| 61 74 65 20 69 73 20 63 | 61 6c 6c 65 64 2e 0a 58 |ate is c|alled..X|
|00005630| 20 2a 20 52 65 74 75 72 | 6e 73 20 61 20 70 6f 69 | * Retur|ns a poi|
|00005640| 6e 74 65 72 20 74 6f 20 | 74 68 65 20 6f 6c 64 20 |nter to |the old |
|00005650| 73 74 61 74 65 2e 0a 58 | 20 2a 2f 0a 58 0a 63 68 |state..X| */.X.ch|
|00005660| 61 72 20 20 2a 0a 69 6e | 69 74 73 74 61 74 65 28 |ar  *.in|itstate(|
|00005670| 20 73 65 65 64 2c 20 61 | 72 67 5f 73 74 61 74 65 | seed, a|rg_state|
|00005680| 2c 20 6e 20 29 0a 58 0a | 58 20 20 20 20 75 6e 73 |, n ).X.|X    uns|
|00005690| 69 67 6e 65 64 09 09 73 | 65 65 64 3b 09 09 09 2f |igned..s|eed;.../|
|000056a0| 2a 20 73 65 65 64 20 66 | 6f 72 20 52 2e 20 4e 2e |* seed f|or R. N.|
|000056b0| 20 47 2e 20 2a 2f 0a 58 | 20 20 20 20 63 68 61 72 | G. */.X|    char|
|000056c0| 09 09 2a 61 72 67 5f 73 | 74 61 74 65 3b 09 09 2f |..*arg_s|tate;../|
|000056d0| 2a 20 70 6f 69 6e 74 65 | 72 20 74 6f 20 73 74 61 |* pointe|r to sta|
|000056e0| 74 65 20 61 72 72 61 79 | 20 2a 2f 0a 58 20 20 20 |te array| */.X   |
|000056f0| 20 69 6e 74 09 09 09 6e | 3b 09 09 09 2f 2a 20 23 | int...n|;.../* #|
|00005700| 20 62 79 74 65 73 20 6f | 66 20 73 74 61 74 65 20 | bytes o|f state |
|00005710| 69 6e 66 6f 20 2a 2f 0a | 58 7b 0a 58 09 72 65 67 |info */.|X{.X.reg|
|00005720| 69 73 74 65 72 20 20 63 | 68 61 72 09 09 2a 6f 73 |ister  c|har..*os|
|00005730| 74 61 74 65 09 09 3d 20 | 28 63 68 61 72 20 2a 29 |tate..= |(char *)|
|00005740| 28 20 26 73 74 61 74 65 | 5b 20 2d 31 20 5d 20 29 |( &state|[ -1 ] )|
|00005750| 3b 0a 58 0a 58 09 69 66 | 28 20 20 72 61 6e 64 5f |;.X.X.if|(  rand_|
|00005760| 74 79 70 65 20 20 3d 3d | 20 20 54 59 50 45 5f 30 |type  ==|  TYPE_0|
|00005770| 20 20 29 20 20 73 74 61 | 74 65 5b 20 2d 31 20 5d |  )  sta|te[ -1 ]|
|00005780| 20 3d 20 72 61 6e 64 5f | 74 79 70 65 3b 0a 58 09 | = rand_|type;.X.|
|00005790| 65 6c 73 65 20 20 73 74 | 61 74 65 5b 20 2d 31 20 |else  st|ate[ -1 |
|000057a0| 5d 20 3d 20 4d 41 58 5f | 54 59 50 45 53 2a 28 72 |] = MAX_|TYPES*(r|
|000057b0| 70 74 72 20 2d 20 73 74 | 61 74 65 29 20 2b 20 72 |ptr - st|ate) + r|
|000057c0| 61 6e 64 5f 74 79 70 65 | 3b 0a 58 09 69 66 28 20 |and_type|;.X.if( |
|000057d0| 20 6e 20 20 3c 20 20 42 | 52 45 41 4b 5f 31 20 20 | n  <  B|REAK_1  |
|000057e0| 29 20 20 7b 0a 58 09 20 | 20 20 20 69 66 28 20 20 |)  {.X. |   if(  |
|000057f0| 6e 20 20 3c 20 20 42 52 | 45 41 4b 5f 30 20 20 29 |n  <  BR|EAK_0  )|
|00005800| 20 20 7b 0a 58 09 09 66 | 70 72 69 6e 74 66 28 20 |  {.X..f|printf( |
|00005810| 73 74 64 65 72 72 2c 20 | 22 69 6e 69 74 73 74 61 |stderr, |"initsta|
|00005820| 74 65 3a 20 6e 6f 74 20 | 65 6e 6f 75 67 68 20 73 |te: not |enough s|
|00005830| 74 61 74 65 20 28 25 64 | 20 62 79 74 65 73 29 3b |tate (%d| bytes);|
|00005840| 20 69 67 6e 6f 72 65 64 | 2e 5c 6e 22 2c 20 6e 20 | ignored|.\n", n |
|00005850| 29 3b 0a 58 09 09 72 65 | 74 75 72 6e 20 30 3b 0a |);.X..re|turn 0;.|
|00005860| 58 09 20 20 20 20 7d 0a | 58 09 20 20 20 20 72 61 |X.    }.|X.    ra|
|00005870| 6e 64 5f 74 79 70 65 20 | 3d 20 54 59 50 45 5f 30 |nd_type |= TYPE_0|
|00005880| 3b 0a 58 09 20 20 20 20 | 72 61 6e 64 5f 64 65 67 |;.X.    |rand_deg|
|00005890| 20 3d 20 44 45 47 5f 30 | 3b 0a 58 09 20 20 20 20 | = DEG_0|;.X.    |
|000058a0| 72 61 6e 64 5f 73 65 70 | 20 3d 20 53 45 50 5f 30 |rand_sep| = SEP_0|
|000058b0| 3b 0a 58 09 7d 0a 58 09 | 65 6c 73 65 20 20 7b 0a |;.X.}.X.|else  {.|
|000058c0| 58 09 20 20 20 20 69 66 | 28 20 20 6e 20 20 3c 20 |X.    if|(  n  < |
|000058d0| 20 42 52 45 41 4b 5f 32 | 20 20 29 20 20 7b 0a 58 | BREAK_2|  )  {.X|
|000058e0| 09 09 72 61 6e 64 5f 74 | 79 70 65 20 3d 20 54 59 |..rand_t|ype = TY|
|000058f0| 50 45 5f 31 3b 0a 58 09 | 09 72 61 6e 64 5f 64 65 |PE_1;.X.|.rand_de|
|00005900| 67 20 3d 20 44 45 47 5f | 31 3b 0a 58 09 09 72 61 |g = DEG_|1;.X..ra|
|00005910| 6e 64 5f 73 65 70 20 3d | 20 53 45 50 5f 31 3b 0a |nd_sep =| SEP_1;.|
|00005920| 58 09 20 20 20 20 7d 0a | 58 09 20 20 20 20 65 6c |X.    }.|X.    el|
|00005930| 73 65 20 20 7b 0a 58 09 | 09 69 66 28 20 20 6e 20 |se  {.X.|.if(  n |
|00005940| 20 3c 20 20 42 52 45 41 | 4b 5f 33 20 20 29 20 20 | <  BREA|K_3  )  |
|00005950| 7b 0a 58 09 09 20 20 20 | 20 72 61 6e 64 5f 74 79 |{.X..   | rand_ty|
|00005960| 70 65 20 3d 20 54 59 50 | 45 5f 32 3b 0a 58 09 09 |pe = TYP|E_2;.X..|
|00005970| 20 20 20 20 72 61 6e 64 | 5f 64 65 67 20 3d 20 44 |    rand|_deg = D|
|00005980| 45 47 5f 32 3b 0a 58 09 | 09 20 20 20 20 72 61 6e |EG_2;.X.|.    ran|
|00005990| 64 5f 73 65 70 20 3d 20 | 53 45 50 5f 32 3b 0a 58 |d_sep = |SEP_2;.X|
|000059a0| 09 09 7d 0a 58 09 09 65 | 6c 73 65 20 20 7b 0a 58 |..}.X..e|lse  {.X|
|000059b0| 09 09 20 20 20 20 69 66 | 28 20 20 6e 20 20 3c 20 |..    if|(  n  < |
|000059c0| 20 42 52 45 41 4b 5f 34 | 20 20 29 20 20 7b 0a 58 | BREAK_4|  )  {.X|
|000059d0| 09 09 09 72 61 6e 64 5f | 74 79 70 65 20 3d 20 54 |...rand_|type = T|
|000059e0| 59 50 45 5f 33 3b 0a 58 | 09 09 09 72 61 6e 64 5f |YPE_3;.X|...rand_|
|000059f0| 64 65 67 20 3d 20 44 45 | 47 5f 33 3b 0a 58 09 09 |deg = DE|G_3;.X..|
|00005a00| 09 72 61 6e 64 5f 73 65 | 70 20 3d 20 53 45 50 5f |.rand_se|p = SEP_|
|00005a10| 33 3b 0a 58 09 09 20 20 | 20 20 7d 0a 58 09 09 20 |3;.X..  |  }.X.. |
|00005a20| 20 20 20 65 6c 73 65 20 | 20 7b 0a 58 09 09 09 72 |   else | {.X...r|
|00005a30| 61 6e 64 5f 74 79 70 65 | 20 3d 20 54 59 50 45 5f |and_type| = TYPE_|
|00005a40| 34 3b 0a 58 09 09 09 72 | 61 6e 64 5f 64 65 67 20 |4;.X...r|and_deg |
|00005a50| 3d 20 44 45 47 5f 34 3b | 0a 58 09 09 09 72 61 6e |= DEG_4;|.X...ran|
|00005a60| 64 5f 73 65 70 20 3d 20 | 53 45 50 5f 34 3b 0a 58 |d_sep = |SEP_4;.X|
|00005a70| 09 09 20 20 20 20 7d 0a | 58 09 09 7d 0a 58 09 20 |..    }.|X..}.X. |
|00005a80| 20 20 20 7d 0a 58 09 7d | 0a 58 09 73 74 61 74 65 |   }.X.}|.X.state|
|00005a90| 20 3d 20 26 28 20 20 28 | 20 28 6c 6f 6e 67 20 2a | = &(  (| (long *|
|00005aa0| 29 61 72 67 5f 73 74 61 | 74 65 20 29 5b 31 5d 20 |)arg_sta|te )[1] |
|00005ab0| 20 29 3b 09 2f 2a 20 66 | 69 72 73 74 20 6c 6f 63 | );./* f|irst loc|
|00005ac0| 61 74 69 6f 6e 20 2a 2f | 0a 58 09 65 6e 64 5f 70 |ation */|.X.end_p|
|00005ad0| 74 72 20 3d 20 26 73 74 | 61 74 65 5b 20 72 61 6e |tr = &st|ate[ ran|
|00005ae0| 64 5f 64 65 67 20 5d 3b | 09 2f 2a 20 6d 75 73 74 |d_deg ];|./* must|
|00005af0| 20 73 65 74 20 65 6e 64 | 5f 70 74 72 20 62 65 66 | set end|_ptr bef|
|00005b00| 6f 72 65 20 73 72 61 6e | 64 6f 6d 20 2a 2f 0a 58 |ore sran|dom */.X|
|00005b10| 09 73 72 61 6e 64 6f 6d | 28 20 73 65 65 64 20 29 |.srandom|( seed )|
|00005b20| 3b 0a 58 09 69 66 28 20 | 20 72 61 6e 64 5f 74 79 |;.X.if( | rand_ty|
|00005b30| 70 65 20 20 3d 3d 20 20 | 54 59 50 45 5f 30 20 20 |pe  ==  |TYPE_0  |
|00005b40| 29 20 20 73 74 61 74 65 | 5b 20 2d 31 20 5d 20 3d |)  state|[ -1 ] =|
|00005b50| 20 72 61 6e 64 5f 74 79 | 70 65 3b 0a 58 09 65 6c | rand_ty|pe;.X.el|
|00005b60| 73 65 20 20 73 74 61 74 | 65 5b 20 2d 31 20 5d 20 |se  stat|e[ -1 ] |
|00005b70| 3d 20 4d 41 58 5f 54 59 | 50 45 53 2a 28 72 70 74 |= MAX_TY|PES*(rpt|
|00005b80| 72 20 2d 20 73 74 61 74 | 65 29 20 2b 20 72 61 6e |r - stat|e) + ran|
|00005b90| 64 5f 74 79 70 65 3b 0a | 58 09 72 65 74 75 72 6e |d_type;.|X.return|
|00005ba0| 28 20 6f 73 74 61 74 65 | 20 29 3b 0a 58 7d 0a 58 |( ostate| );.X}.X|
|00005bb0| 0a 58 0a 58 0a 58 2f 2a | 0a 58 20 2a 20 73 65 74 |.X.X.X/*|.X * set|
|00005bc0| 73 74 61 74 65 3a 0a 58 | 20 2a 20 52 65 73 74 6f |state:.X| * Resto|
|00005bd0| 72 65 20 74 68 65 20 73 | 74 61 74 65 20 66 72 6f |re the s|tate fro|
|00005be0| 6d 20 74 68 65 20 67 69 | 76 65 6e 20 73 74 61 74 |m the gi|ven stat|
|00005bf0| 65 20 61 72 72 61 79 2e | 0a 58 20 2a 20 4e 6f 74 |e array.|.X * Not|
|00005c00| 65 3a 20 69 74 20 69 73 | 20 69 6d 70 6f 72 74 61 |e: it is| importa|
|00005c10| 6e 74 20 74 68 61 74 20 | 77 65 20 61 6c 73 6f 20 |nt that |we also |
|00005c20| 72 65 6d 65 6d 62 65 72 | 20 74 68 65 20 6c 6f 63 |remember| the loc|
|00005c30| 61 74 69 6f 6e 73 20 6f | 66 20 74 68 65 20 70 6f |ations o|f the po|
|00005c40| 69 6e 74 65 72 73 0a 58 | 20 2a 20 69 6e 20 74 68 |inters.X| * in th|
|00005c50| 65 20 63 75 72 72 65 6e | 74 20 73 74 61 74 65 20 |e curren|t state |
|00005c60| 69 6e 66 6f 72 6d 61 74 | 69 6f 6e 2c 20 61 6e 64 |informat|ion, and|
|00005c70| 20 72 65 73 74 6f 72 65 | 20 74 68 65 20 6c 6f 63 | restore| the loc|
|00005c80| 61 74 69 6f 6e 73 20 6f | 66 20 74 68 65 20 70 6f |ations o|f the po|
|00005c90| 69 6e 74 65 72 73 0a 58 | 20 2a 20 66 72 6f 6d 20 |inters.X| * from |
|00005ca0| 74 68 65 20 6f 6c 64 20 | 73 74 61 74 65 20 69 6e |the old |state in|
|00005cb0| 66 6f 72 6d 61 74 69 6f | 6e 2e 20 20 54 68 69 73 |formatio|n.  This|
|00005cc0| 20 69 73 20 64 6f 6e 65 | 20 62 79 20 6d 75 6c 74 | is done| by mult|
|00005cd0| 69 70 6c 65 78 69 6e 67 | 20 74 68 65 20 70 6f 69 |iplexing| the poi|
|00005ce0| 6e 74 65 72 0a 58 20 2a | 20 6c 6f 63 61 74 69 6f |nter.X *| locatio|
|00005cf0| 6e 20 69 6e 74 6f 20 74 | 68 65 20 7a 65 72 6f 65 |n into t|he zeroe|
|00005d00| 74 68 20 77 6f 72 64 20 | 6f 66 20 74 68 65 20 73 |th word |of the s|
|00005d10| 74 61 74 65 20 69 6e 66 | 6f 72 6d 61 74 69 6f 6e |tate inf|ormation|
|00005d20| 2e 0a 58 20 2a 20 4e 6f | 74 65 20 74 68 61 74 20 |..X * No|te that |
|00005d30| 64 75 65 20 74 6f 20 74 | 68 65 20 6f 72 64 65 72 |due to t|he order|
|00005d40| 20 69 6e 20 77 68 69 63 | 68 20 74 68 69 6e 67 73 | in whic|h things|
|00005d50| 20 61 72 65 20 64 6f 6e | 65 2c 20 69 74 20 69 73 | are don|e, it is|
|00005d60| 20 4f 4b 20 74 6f 20 63 | 61 6c 6c 0a 58 20 2a 20 | OK to c|all.X * |
|00005d70| 73 65 74 73 74 61 74 65 | 28 29 20 77 69 74 68 20 |setstate|() with |
|00005d80| 74 68 65 20 73 61 6d 65 | 20 73 74 61 74 65 20 61 |the same| state a|
|00005d90| 73 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 73 74 |s the cu|rrent st|
|00005da0| 61 74 65 2e 0a 58 20 2a | 20 52 65 74 75 72 6e 73 |ate..X *| Returns|
|00005db0| 20 61 20 70 6f 69 6e 74 | 65 72 20 74 6f 20 74 68 | a point|er to th|
|00005dc0| 65 20 6f 6c 64 20 73 74 | 61 74 65 20 69 6e 66 6f |e old st|ate info|
|00005dd0| 72 6d 61 74 69 6f 6e 2e | 0a 58 20 2a 2f 0a 58 0a |rmation.|.X */.X.|
|00005de0| 63 68 61 72 20 20 2a 0a | 73 65 74 73 74 61 74 65 |char  *.|setstate|
|00005df0| 28 20 61 72 67 5f 73 74 | 61 74 65 20 29 0a 58 0a |( arg_st|ate ).X.|
|00005e00| 58 20 20 20 20 63 68 61 | 72 09 09 2a 61 72 67 5f |X    cha|r..*arg_|
|00005e10| 73 74 61 74 65 3b 0a 58 | 7b 0a 58 09 72 65 67 69 |state;.X|{.X.regi|
|00005e20| 73 74 65 72 20 20 6c 6f | 6e 67 09 09 2a 6e 65 77 |ster  lo|ng..*new|
|00005e30| 5f 73 74 61 74 65 09 3d | 20 28 6c 6f 6e 67 20 2a |_state.=| (long *|
|00005e40| 29 61 72 67 5f 73 74 61 | 74 65 3b 0a 58 09 72 65 |)arg_sta|te;.X.re|
|00005e50| 67 69 73 74 65 72 20 20 | 69 6e 74 09 09 74 79 70 |gister  |int..typ|
|00005e60| 65 09 09 3d 20 6e 65 77 | 5f 73 74 61 74 65 5b 30 |e..= new|_state[0|
|00005e70| 5d 25 4d 41 58 5f 54 59 | 50 45 53 3b 0a 58 09 72 |]%MAX_TY|PES;.X.r|
|00005e80| 65 67 69 73 74 65 72 20 | 20 69 6e 74 09 09 72 65 |egister | int..re|
|00005e90| 61 72 09 09 3d 20 6e 65 | 77 5f 73 74 61 74 65 5b |ar..= ne|w_state[|
|00005ea0| 30 5d 2f 4d 41 58 5f 54 | 59 50 45 53 3b 0a 58 09 |0]/MAX_T|YPES;.X.|
|00005eb0| 63 68 61 72 09 09 09 2a | 6f 73 74 61 74 65 09 09 |char...*|ostate..|
|00005ec0| 3d 20 28 63 68 61 72 20 | 2a 29 28 20 26 73 74 61 |= (char |*)( &sta|
|00005ed0| 74 65 5b 20 2d 31 20 5d | 20 29 3b 0a 58 0a 58 09 |te[ -1 ]| );.X.X.|
|00005ee0| 69 66 28 20 20 72 61 6e | 64 5f 74 79 70 65 20 20 |if(  ran|d_type  |
|00005ef0| 3d 3d 20 20 54 59 50 45 | 5f 30 20 20 29 20 20 73 |==  TYPE|_0  )  s|
|00005f00| 74 61 74 65 5b 20 2d 31 | 20 5d 20 3d 20 72 61 6e |tate[ -1| ] = ran|
|00005f10| 64 5f 74 79 70 65 3b 0a | 58 09 65 6c 73 65 20 20 |d_type;.|X.else  |
|00005f20| 73 74 61 74 65 5b 20 2d | 31 20 5d 20 3d 20 4d 41 |state[ -|1 ] = MA|
|00005f30| 58 5f 54 59 50 45 53 2a | 28 72 70 74 72 20 2d 20 |X_TYPES*|(rptr - |
|00005f40| 73 74 61 74 65 29 20 2b | 20 72 61 6e 64 5f 74 79 |state) +| rand_ty|
|00005f50| 70 65 3b 0a 58 09 73 77 | 69 74 63 68 28 20 20 74 |pe;.X.sw|itch(  t|
|00005f60| 79 70 65 20 20 29 20 20 | 7b 0a 58 09 20 20 20 20 |ype  )  |{.X.    |
|00005f70| 63 61 73 65 20 20 54 59 | 50 45 5f 30 3a 0a 58 09 |case  TY|PE_0:.X.|
|00005f80| 20 20 20 20 63 61 73 65 | 20 20 54 59 50 45 5f 31 |    case|  TYPE_1|
|00005f90| 3a 0a 58 09 20 20 20 20 | 63 61 73 65 20 20 54 59 |:.X.    |case  TY|
|00005fa0| 50 45 5f 32 3a 0a 58 09 | 20 20 20 20 63 61 73 65 |PE_2:.X.|    case|
|00005fb0| 20 20 54 59 50 45 5f 33 | 3a 0a 58 09 20 20 20 20 |  TYPE_3|:.X.    |
|00005fc0| 63 61 73 65 20 20 54 59 | 50 45 5f 34 3a 0a 58 09 |case  TY|PE_4:.X.|
|00005fd0| 09 72 61 6e 64 5f 74 79 | 70 65 20 3d 20 74 79 70 |.rand_ty|pe = typ|
|00005fe0| 65 3b 0a 58 09 09 72 61 | 6e 64 5f 64 65 67 20 3d |e;.X..ra|nd_deg =|
|00005ff0| 20 64 65 67 72 65 65 73 | 5b 20 74 79 70 65 20 5d | degrees|[ type ]|
|00006000| 3b 0a 58 09 09 72 61 6e | 64 5f 73 65 70 20 3d 20 |;.X..ran|d_sep = |
|00006010| 73 65 70 73 5b 20 74 79 | 70 65 20 5d 3b 0a 58 09 |seps[ ty|pe ];.X.|
|00006020| 09 62 72 65 61 6b 3b 0a | 58 0a 58 09 20 20 20 20 |.break;.|X.X.    |
|00006030| 64 65 66 61 75 6c 74 3a | 0a 58 09 09 66 70 72 69 |default:|.X..fpri|
|00006040| 6e 74 66 28 20 73 74 64 | 65 72 72 2c 20 22 73 65 |ntf( std|err, "se|
|00006050| 74 73 74 61 74 65 3a 20 | 73 74 61 74 65 20 69 6e |tstate: |state in|
|00006060| 66 6f 20 68 61 73 20 62 | 65 65 6e 20 6d 75 6e 67 |fo has b|een mung|
|00006070| 65 64 3b 20 6e 6f 74 20 | 63 68 61 6e 67 65 64 2e |ed; not |changed.|
|00006080| 5c 6e 22 20 29 3b 0a 58 | 09 7d 0a 58 09 73 74 61 |\n" );.X|.}.X.sta|
|00006090| 74 65 20 3d 20 26 6e 65 | 77 5f 73 74 61 74 65 5b |te = &ne|w_state[|
|000060a0| 20 31 20 5d 3b 0a 58 09 | 69 66 28 20 20 72 61 6e | 1 ];.X.|if(  ran|
|000060b0| 64 5f 74 79 70 65 20 20 | 21 3d 20 20 54 59 50 45 |d_type  |!=  TYPE|
|000060c0| 5f 30 20 20 29 20 20 7b | 0a 58 09 20 20 20 20 72 |_0  )  {|.X.    r|
|000060d0| 70 74 72 20 3d 20 26 73 | 74 61 74 65 5b 20 72 65 |ptr = &s|tate[ re|
|000060e0| 61 72 20 5d 3b 0a 58 09 | 20 20 20 20 66 70 74 72 |ar ];.X.|    fptr|
|000060f0| 20 3d 20 26 73 74 61 74 | 65 5b 20 28 72 65 61 72 | = &stat|e[ (rear|
|00006100| 20 2b 20 72 61 6e 64 5f | 73 65 70 29 25 72 61 6e | + rand_|sep)%ran|
|00006110| 64 5f 64 65 67 20 5d 3b | 0a 58 09 7d 0a 58 09 65 |d_deg ];|.X.}.X.e|
|00006120| 6e 64 5f 70 74 72 20 3d | 20 26 73 74 61 74 65 5b |nd_ptr =| &state[|
|00006130| 20 72 61 6e 64 5f 64 65 | 67 20 5d 3b 09 09 2f 2a | rand_de|g ];../*|
|00006140| 20 73 65 74 20 65 6e 64 | 5f 70 74 72 20 74 6f 6f | set end|_ptr too|
|00006150| 20 2a 2f 0a 58 09 72 65 | 74 75 72 6e 28 20 6f 73 | */.X.re|turn( os|
|00006160| 74 61 74 65 20 29 3b 0a | 58 7d 0a 58 0a 58 0a 58 |tate );.|X}.X.X.X|
|00006170| 0a 58 2f 2a 0a 58 20 2a | 20 72 61 6e 64 6f 6d 3a |.X/*.X *| random:|
|00006180| 0a 58 20 2a 20 49 66 20 | 77 65 20 61 72 65 20 75 |.X * If |we are u|
|00006190| 73 69 6e 67 20 74 68 65 | 20 74 72 69 76 69 61 6c |sing the| trivial|
|000061a0| 20 54 59 50 45 5f 30 20 | 52 2e 4e 2e 47 2e 2c 20 | TYPE_0 |R.N.G., |
|000061b0| 6a 75 73 74 20 64 6f 20 | 74 68 65 20 6f 6c 64 20 |just do |the old |
|000061c0| 6c 69 6e 65 61 72 0a 58 | 20 2a 20 63 6f 6e 67 72 |linear.X| * congr|
|000061d0| 75 65 6e 74 69 61 6c 20 | 62 69 74 2e 20 20 4f 74 |uential |bit.  Ot|
|000061e0| 68 65 72 77 69 73 65 2c | 20 77 65 20 64 6f 20 6f |herwise,| we do o|
|000061f0| 75 72 20 66 61 6e 63 79 | 20 74 72 69 6e 6f 6d 69 |ur fancy| trinomi|
|00006200| 61 6c 20 73 74 75 66 66 | 2c 20 77 68 69 63 68 20 |al stuff|, which |
|00006210| 69 73 20 74 68 65 0a 58 | 20 2a 20 73 61 6d 65 20 |is the.X| * same |
|00006220| 69 6e 20 61 6c 6c 20 74 | 68 65 72 20 6f 74 68 65 |in all t|her othe|
|00006230| 72 20 63 61 73 65 73 20 | 64 75 65 20 74 6f 20 61 |r cases |due to a|
|00006240| 6c 6c 20 74 68 65 20 67 | 6c 6f 62 61 6c 20 76 61 |ll the g|lobal va|
|00006250| 72 69 61 62 6c 65 73 20 | 74 68 61 74 20 68 61 76 |riables |that hav|
|00006260| 65 20 62 65 65 6e 0a 58 | 20 2a 20 73 65 74 20 75 |e been.X| * set u|
|00006270| 70 2e 20 20 54 68 65 20 | 62 61 73 69 63 20 6f 70 |p.  The |basic op|
|00006280| 65 72 61 74 69 6f 6e 20 | 69 73 20 74 6f 20 61 64 |eration |is to ad|
|00006290| 64 20 74 68 65 20 6e 75 | 6d 62 65 72 20 61 74 20 |d the nu|mber at |
|000062a0| 74 68 65 20 72 65 61 72 | 20 70 6f 69 6e 74 65 72 |the rear| pointer|
|000062b0| 20 69 6e 74 6f 0a 58 20 | 2a 20 74 68 65 20 6f 6e | into.X |* the on|
|000062c0| 65 20 61 74 20 74 68 65 | 20 66 72 6f 6e 74 20 70 |e at the| front p|
|000062d0| 6f 69 6e 74 65 72 2e 20 | 20 54 68 65 6e 20 62 6f |ointer. | Then bo|
|000062e0| 74 68 20 70 6f 69 6e 74 | 65 72 73 20 61 72 65 20 |th point|ers are |
|000062f0| 61 64 76 61 6e 63 65 64 | 20 74 6f 20 74 68 65 20 |advanced| to the |
|00006300| 6e 65 78 74 0a 58 20 2a | 20 6c 6f 63 61 74 69 6f |next.X *| locatio|
|00006310| 6e 20 63 79 63 6c 69 63 | 61 6c 6c 79 20 69 6e 20 |n cyclic|ally in |
|00006320| 74 68 65 20 74 61 62 6c | 65 2e 20 20 54 68 65 20 |the tabl|e.  The |
|00006330| 76 61 6c 75 65 20 72 65 | 74 75 72 6e 65 64 20 69 |value re|turned i|
|00006340| 73 20 74 68 65 20 73 75 | 6d 20 67 65 6e 65 72 61 |s the su|m genera|
|00006350| 74 65 64 2c 0a 58 20 2a | 20 72 65 64 75 63 65 64 |ted,.X *| reduced|
|00006360| 20 74 6f 20 33 31 20 62 | 69 74 73 20 62 79 20 74 | to 31 b|its by t|
|00006370| 68 72 6f 77 69 6e 67 20 | 61 77 61 79 20 74 68 65 |hrowing |away the|
|00006380| 20 22 6c 65 61 73 74 20 | 72 61 6e 64 6f 6d 22 20 | "least |random" |
|00006390| 6c 6f 77 20 62 69 74 2e | 0a 58 20 2a 20 4e 6f 74 |low bit.|.X * Not|
|000063a0| 65 3a 20 74 68 65 20 63 | 6f 64 65 20 74 61 6b 65 |e: the c|ode take|
|000063b0| 73 20 61 64 76 61 6e 74 | 61 67 65 20 6f 66 20 74 |s advant|age of t|
|000063c0| 68 65 20 66 61 63 74 20 | 74 68 61 74 20 62 6f 74 |he fact |that bot|
|000063d0| 68 20 74 68 65 20 66 72 | 6f 6e 74 20 61 6e 64 0a |h the fr|ont and.|
|000063e0| 58 20 2a 20 72 65 61 72 | 20 70 6f 69 6e 74 65 72 |X * rear| pointer|
|000063f0| 73 20 63 61 6e 27 74 20 | 77 72 61 70 20 6f 6e 20 |s can't |wrap on |
+--------+-------------------------+-------------------------+--------+--------+