/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1797

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 3a 20 74 6e | 65 66 66 40 62 66 6d 6e |From: tn|eff@bfmn|
|00000010| 79 30 2e 42 46 4d 2e 43 | 4f 4d 20 28 54 6f 6d 20 |y0.BFM.C|OM (Tom |
|00000020| 4e 65 66 66 29 0a 4e 65 | 77 73 67 72 6f 75 70 73 |Neff).Ne|wsgroups|
|00000030| 3a 20 61 6c 74 2e 73 6f | 75 72 63 65 73 0a 53 75 |: alt.so|urces.Su|
|00000040| 62 6a 65 63 74 3a 20 42 | 65 74 74 65 72 20 53 79 |bject: B|etter Sy|
|00000050| 73 56 20 72 61 6e 64 6f | 6d 28 29 0a 4d 65 73 73 |sV rando|m().Mess|
|00000060| 61 67 65 2d 49 44 3a 20 | 3c 31 35 38 33 31 40 62 |age-ID: |<15831@b|
|00000070| 66 6d 6e 79 30 2e 42 46 | 4d 2e 43 4f 4d 3e 0a 44 |fmny0.BF|M.COM>.D|
|00000080| 61 74 65 3a 20 39 20 53 | 65 70 20 39 30 20 31 30 |ate: 9 S|ep 90 10|
|00000090| 3a 32 38 3a 30 36 20 47 | 4d 54 0a 0a 49 20 6e 65 |:28:06 G|MT..I ne|
|000000a0| 65 64 65 64 20 74 68 69 | 73 2e 20 48 65 72 65 20 |eded thi|s. Here |
|000000b0| 69 74 20 69 73 2e 0a 0a | 23 21 20 2f 62 69 6e 2f |it is...|#! /bin/|
|000000c0| 73 68 0a 23 20 54 68 69 | 73 20 69 73 20 61 20 73 |sh.# Thi|s is a s|
|000000d0| 68 65 6c 6c 20 61 72 63 | 68 69 76 65 2c 20 6d 65 |hell arc|hive, me|
|000000e0| 61 6e 69 6e 67 3a 0a 23 | 20 31 2e 20 52 65 6d 6f |aning:.#| 1. Remo|
|000000f0| 76 65 20 65 76 65 72 79 | 74 68 69 6e 67 20 61 62 |ve every|thing ab|
|00000100| 6f 76 65 20 74 68 65 20 | 23 21 20 2f 62 69 6e 2f |ove the |#! /bin/|
|00000110| 73 68 20 6c 69 6e 65 2e | 0a 23 20 32 2e 20 53 61 |sh line.|.# 2. Sa|
|00000120| 76 65 20 74 68 65 20 72 | 65 73 75 6c 74 69 6e 67 |ve the r|esulting|
|00000130| 20 74 65 78 74 20 69 6e | 20 61 20 66 69 6c 65 2e | text in| a file.|
|00000140| 0a 23 20 33 2e 20 45 78 | 65 63 75 74 65 20 74 68 |.# 3. Ex|ecute th|
|00000150| 65 20 66 69 6c 65 20 77 | 69 74 68 20 2f 62 69 6e |e file w|ith /bin|
|00000160| 2f 73 68 20 28 6e 6f 74 | 20 63 73 68 29 20 74 6f |/sh (not| csh) to|
|00000170| 20 63 72 65 61 74 65 3a | 0a 23 09 72 61 6e 64 34 | create:|.#.rand4|
|00000180| 38 2e 63 0a 23 20 54 68 | 69 73 20 61 72 63 68 69 |8.c.# Th|is archi|
|00000190| 76 65 20 63 72 65 61 74 | 65 64 3a 20 53 75 6e 20 |ve creat|ed: Sun |
|000001a0| 53 65 70 20 20 39 20 30 | 37 3a 32 36 3a 34 36 20 |Sep  9 0|7:26:46 |
|000001b0| 31 39 39 30 0a 65 78 70 | 6f 72 74 20 50 41 54 48 |1990.exp|ort PATH|
|000001c0| 3b 20 50 41 54 48 3d 2f | 62 69 6e 3a 2f 75 73 72 |; PATH=/|bin:/usr|
|000001d0| 2f 62 69 6e 3a 24 50 41 | 54 48 0a 69 66 20 74 65 |/bin:$PA|TH.if te|
|000001e0| 73 74 20 2d 66 20 27 72 | 61 6e 64 34 38 2e 63 27 |st -f 'r|and48.c'|
|000001f0| 0a 74 68 65 6e 0a 09 65 | 63 68 6f 20 73 68 61 72 |.then..e|cho shar|
|00000200| 3a 20 22 77 69 6c 6c 20 | 6e 6f 74 20 6f 76 65 72 |: "will |not over|
|00000210| 2d 77 72 69 74 65 20 65 | 78 69 73 74 69 6e 67 20 |-write e|xisting |
|00000220| 66 69 6c 65 20 27 72 61 | 6e 64 34 38 2e 63 27 22 |file 'ra|nd48.c'"|
|00000230| 0a 65 6c 73 65 0a 73 65 | 64 20 27 73 2f 5e 58 2f |.else.se|d 's/^X/|
|00000240| 2f 27 20 3c 3c 20 5c 53 | 48 41 52 5f 45 4f 46 20 |/' << \S|HAR_EOF |
|00000250| 3e 20 27 72 61 6e 64 34 | 38 2e 63 27 0a 58 2f 2a |> 'rand4|8.c'.X/*|
|00000260| 2a 2a 2a 0a 58 20 2a 0a | 58 20 2a 20 72 61 6e 64 |***.X *.|X * rand|
|00000270| 34 38 20 2d 20 69 6d 70 | 72 6f 76 65 64 20 72 61 |48 - imp|roved ra|
|00000280| 6e 64 6f 6d 28 31 29 20 | 75 73 69 6e 67 20 53 79 |ndom(1) |using Sy|
|00000290| 73 74 65 6d 20 56 20 64 | 72 61 6e 64 34 38 28 33 |stem V d|rand48(3|
|000002a0| 29 2e 0a 58 20 2a 0a 58 | 20 2a 20 55 73 65 73 20 |)..X *.X| * Uses |
|000002b0| 70 6f 77 28 29 20 66 72 | 6f 6d 20 6c 69 62 6d 2e |pow() fr|om libm.|
|000002c0| 61 3b 20 61 6c 73 6f 20 | 67 65 74 6f 70 74 2e 0a |a; also |getopt..|
|000002d0| 58 20 2a 0a 58 20 2a 20 | 42 75 69 6c 64 20 77 69 |X *.X * |Build wi|
|000002e0| 74 68 0a 58 20 2a 20 20 | 20 63 63 20 2d 6f 20 72 |th.X *  | cc -o r|
|000002f0| 61 6e 64 34 38 20 2d 4f | 20 72 61 6e 64 34 38 2e |and48 -O| rand48.|
|00000300| 63 20 2d 6c 6d 0a 58 20 | 2a 0a 58 20 2a 20 50 75 |c -lm.X |*.X * Pu|
|00000310| 62 6c 69 63 20 64 6f 6d | 61 69 6e 2e 09 53 65 70 |blic dom|ain..Sep|
|00000320| 74 65 6d 62 65 72 20 31 | 39 39 30 2e 0a 58 20 2a |tember 1|990..X *|
|00000330| 20 0a 58 20 2a 2a 2a 2a | 2f 0a 58 0a 58 23 69 6e | .X ****|/.X.X#in|
|00000340| 63 6c 75 64 65 20 3c 73 | 74 64 69 6f 2e 68 3e 0a |clude <s|tdio.h>.|
|00000350| 58 0a 58 65 78 74 65 72 | 6e 20 64 6f 75 62 6c 65 |X.Xexter|n double|
|00000360| 20 64 72 61 6e 64 34 38 | 28 29 3b 0a 58 65 78 74 | drand48|();.Xext|
|00000370| 65 72 6e 20 64 6f 75 62 | 6c 65 20 70 6f 77 28 29 |ern doub|le pow()|
|00000380| 3b 0a 58 0a 58 09 2f 2a | 20 20 54 68 65 20 63 6f |;.X.X./*|  The co|
|00000390| 6d 6d 61 6e 64 20 6d 61 | 69 6e 6c 69 6e 65 2e 20 |mmand ma|inline. |
|000003a0| 2a 2f 0a 58 0a 58 6d 61 | 69 6e 28 61 72 67 63 2c |*/.X.Xma|in(argc,|
|000003b0| 20 61 72 67 76 29 0a 58 | 69 6e 74 20 61 72 67 63 | argv).X|int argc|
|000003c0| 3b 0a 58 63 68 61 72 20 | 2a 2a 61 72 67 76 3b 0a |;.Xchar |**argv;.|
|000003d0| 58 7b 0a 58 09 69 6e 74 | 20 63 3b 0a 58 09 69 6e |X{.X.int| c;.X.in|
|000003e0| 74 20 65 72 72 66 6c 67 | 20 3d 20 30 3b 0a 58 0a |t errflg| = 0;.X.|
|000003f0| 58 09 65 78 74 65 72 6e | 20 63 68 61 72 20 2a 6f |X.extern| char *o|
|00000400| 70 74 61 72 67 3b 0a 58 | 09 65 78 74 65 72 6e 20 |ptarg;.X|.extern |
|00000410| 69 6e 74 20 6f 70 74 69 | 6e 64 3b 0a 58 0a 58 09 |int opti|nd;.X.X.|
|00000420| 64 6f 75 62 6c 65 20 77 | 65 69 67 68 74 69 6e 67 |double w|eighting|
|00000430| 20 3d 20 31 2e 30 3b 0a | 58 09 6c 6f 6e 67 20 63 | = 1.0;.|X.long c|
|00000440| 6f 75 6e 74 20 3d 20 31 | 3b 0a 58 09 6c 6f 6e 67 |ount = 1|;.X.long|
|00000450| 20 73 63 61 6c 65 20 3d | 20 32 3b 0a 58 0a 58 09 | scale =| 2;.X.X.|
|00000460| 2f 2a 20 20 43 6f 6c 6c | 65 63 74 20 6f 70 74 69 |/*  Coll|ect opti|
|00000470| 6f 6e 20 73 77 69 74 63 | 68 65 73 20 20 2a 2f 0a |on switc|hes  */.|
|00000480| 58 0a 58 09 77 68 69 6c | 65 20 28 28 63 3d 67 65 |X.X.whil|e ((c=ge|
|00000490| 74 6f 70 74 28 61 72 67 | 63 2c 20 61 72 67 76 2c |topt(arg|c, argv,|
|000004a0| 20 22 73 3a 77 3a 3f 22 | 29 29 20 21 3d 20 2d 31 | "s:w:?"|)) != -1|
|000004b0| 29 0a 58 09 09 73 77 69 | 74 63 68 20 28 63 29 20 |).X..swi|tch (c) |
|000004c0| 7b 0a 58 09 09 63 61 73 | 65 20 27 73 27 3a 0a 58 |{.X..cas|e 's':.X|
|000004d0| 09 09 09 73 63 61 6c 65 | 20 3d 20 61 74 6f 6c 28 |...scale| = atol(|
|000004e0| 6f 70 74 61 72 67 29 3b | 0a 58 09 09 09 62 72 65 |optarg);|.X...bre|
|000004f0| 61 6b 3b 0a 58 09 09 63 | 61 73 65 20 27 77 27 3a |ak;.X..c|ase 'w':|
|00000500| 0a 58 09 09 09 77 65 69 | 67 68 74 69 6e 67 20 3d |.X...wei|ghting =|
|00000510| 20 61 74 6f 66 28 6f 70 | 74 61 72 67 29 3b 0a 58 | atof(op|targ);.X|
|00000520| 09 09 09 62 72 65 61 6b | 3b 0a 58 09 09 64 65 66 |...break|;.X..def|
|00000530| 61 75 6c 74 3a 0a 58 09 | 09 09 65 72 72 66 6c 67 |ault:.X.|..errflg|
|00000540| 2b 2b 3b 0a 58 09 09 7d | 0a 58 0a 58 09 2f 2a 20 |++;.X..}|.X.X./* |
|00000550| 20 56 61 6c 69 64 61 74 | 65 20 61 72 67 73 20 61 | Validat|e args a|
|00000560| 6e 64 20 70 72 69 6e 74 | 20 75 73 61 67 65 20 6d |nd print| usage m|
|00000570| 65 73 73 61 67 65 20 69 | 66 20 62 61 64 20 20 2a |essage i|f bad  *|
|00000580| 2f 0a 58 0a 58 09 69 66 | 20 28 28 61 72 67 63 20 |/.X.X.if| ((argc |
|00000590| 2d 20 6f 70 74 69 6e 64 | 29 20 3e 20 31 29 0a 58 |- optind|) > 1).X|
|000005a0| 09 09 65 72 72 66 6c 67 | 2b 2b 3b 0a 58 09 65 6c |..errflg|++;.X.el|
|000005b0| 73 65 20 69 66 20 28 28 | 61 72 67 63 20 2d 20 6f |se if ((|argc - o|
|000005c0| 70 74 69 6e 64 29 20 3d | 3d 20 31 29 0a 58 09 09 |ptind) =|= 1).X..|
|000005d0| 63 6f 75 6e 74 20 3d 20 | 61 74 6f 6c 28 61 72 67 |count = |atol(arg|
|000005e0| 76 5b 6f 70 74 69 6e 64 | 5d 29 3b 0a 58 0a 58 09 |v[optind|]);.X.X.|
|000005f0| 69 66 20 28 65 72 72 66 | 6c 67 29 20 7b 0a 58 09 |if (errf|lg) {.X.|
|00000600| 09 66 70 72 69 6e 74 66 | 28 73 74 64 65 72 72 2c |.fprintf|(stderr,|
|00000610| 20 22 55 73 61 67 65 3a | 20 25 73 20 5b 2d 73 20 | "Usage:| %s [-s |
|00000620| 73 63 61 6c 65 5d 20 5b | 2d 77 20 77 65 69 67 68 |scale] [|-w weigh|
|00000630| 74 5d 20 5b 63 6f 75 6e | 74 5d 5c 6e 22 2c 20 61 |t] [coun|t]\n", a|
|00000640| 72 67 76 5b 30 5d 29 3b | 0a 58 09 09 65 78 69 74 |rgv[0]);|.X..exit|
|00000650| 28 31 29 3b 0a 58 09 7d | 0a 58 0a 58 09 73 72 61 |(1);.X.}|.X.X.sra|
|00000660| 6e 64 34 38 28 74 69 6d | 65 28 30 29 2b 67 65 74 |nd48(tim|e(0)+get|
|00000670| 70 69 64 28 29 29 3b 0a | 58 0a 58 09 77 68 69 6c |pid());.|X.X.whil|
|00000680| 65 20 28 63 6f 75 6e 74 | 2d 2d 29 0a 58 09 09 70 |e (count|--).X..p|
|00000690| 72 69 6e 74 66 28 22 25 | 69 5c 6e 22 2c 20 28 6c |rintf("%|i\n", (l|
|000006a0| 6f 6e 67 29 20 28 73 63 | 61 6c 65 20 2a 20 70 6f |ong) (sc|ale * po|
|000006b0| 77 28 64 72 61 6e 64 34 | 38 28 29 2c 20 77 65 69 |w(drand4|8(), wei|
|000006c0| 67 68 74 69 6e 67 29 29 | 29 3b 0a 58 7d 0a 53 48 |ghting))|);.X}.SH|
|000006d0| 41 52 5f 45 4f 46 0a 66 | 69 0a 65 78 69 74 20 30 |AR_EOF.f|i.exit 0|
|000006e0| 0a 23 09 45 6e 64 20 6f | 66 20 73 68 65 6c 6c 20 |.#.End o|f shell |
|000006f0| 61 72 63 68 69 76 65 0a |                         |archive.|        |
+--------+-------------------------+-------------------------+--------+--------+