/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / compsrcs / unix / volume06 / context

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 53 75 62 6a 65 63 74 3a | 20 76 30 36 69 30 31 37 |Subject:| v06i017|
|00000010| 3a 20 20 63 6f 6e 74 65 | 78 74 20 2d 20 67 65 6e |:  conte|xt - gen|
|00000020| 65 72 61 6c 69 7a 65 64 | 20 63 6f 6e 74 65 78 74 |eralized| context|
|00000030| 20 70 72 69 6e 74 65 72 | 20 28 63 6f 6e 74 65 78 | printer| (contex|
|00000040| 74 29 0a 4e 65 77 73 67 | 72 6f 75 70 73 3a 20 6d |t).Newsg|roups: m|
|00000050| 6f 64 2e 73 6f 75 72 63 | 65 73 0a 41 70 70 72 6f |od.sourc|es.Appro|
|00000060| 76 65 64 3a 20 72 73 40 | 6d 69 72 72 6f 72 2e 55 |ved: rs@|mirror.U|
|00000070| 55 43 50 0a 0a 53 75 62 | 6d 69 74 74 65 64 20 62 |UCP..Sub|mitted b|
|00000080| 79 3a 20 67 65 6e 72 61 | 64 21 64 65 63 76 61 78 |y: genra|d!decvax|
|00000090| 21 63 77 72 75 65 63 6d | 70 21 6e 63 6f 61 73 74 |!cwruecm|p!ncoast|
|000000a0| 21 61 6c 6c 62 65 72 79 | 20 28 42 72 61 6e 64 6f |!allbery| (Brando|
|000000b0| 6e 20 53 2e 20 41 6c 6c | 62 65 72 79 29 0a 4d 6f |n S. All|bery).Mo|
|000000c0| 64 2e 73 6f 75 72 63 65 | 73 3a 20 56 6f 6c 75 6d |d.source|s: Volum|
|000000d0| 65 20 36 2c 20 49 73 73 | 75 65 20 31 37 0a 41 72 |e 6, Iss|ue 17.Ar|
|000000e0| 63 68 69 76 65 2d 6e 61 | 6d 65 3a 20 63 6f 6e 74 |chive-na|me: cont|
|000000f0| 65 78 74 0a 0a 23 21 2f | 62 69 6e 2f 73 68 0a 23 |ext..#!/|bin/sh.#|
|00000100| 20 54 68 69 73 20 69 73 | 20 61 20 73 68 65 6c 6c | This is| a shell|
|00000110| 20 61 72 63 68 69 76 65 | 2e 20 20 52 65 6d 6f 76 | archive|.  Remov|
|00000120| 65 20 61 6e 79 74 68 69 | 6e 67 20 62 65 66 6f 72 |e anythi|ng befor|
|00000130| 65 20 74 68 69 73 20 6c | 69 6e 65 2c 0a 23 20 74 |e this l|ine,.# t|
|00000140| 68 65 6e 20 75 6e 70 61 | 63 6b 20 69 74 20 62 79 |hen unpa|ck it by|
|00000150| 20 73 61 76 69 6e 67 20 | 69 74 20 69 6e 20 61 20 | saving |it in a |
|00000160| 66 69 6c 65 20 61 6e 64 | 20 74 79 70 69 6e 67 20 |file and| typing |
|00000170| 22 73 68 20 66 69 6c 65 | 22 2e 0a 23 20 43 6f 6e |"sh file|"..# Con|
|00000180| 74 65 6e 74 73 3a 20 20 | 52 45 41 44 4d 45 20 63 |tents:  |README c|
|00000190| 6f 6e 74 65 78 74 2e 63 | 0a 20 0a 65 63 68 6f 20 |ontext.c|. .echo |
|000001a0| 78 20 2d 20 52 45 41 44 | 4d 45 0a 73 65 64 20 27 |x - READ|ME.sed '|
|000001b0| 73 2f 5e 58 58 2f 2f 27 | 20 3e 20 22 52 45 41 44 |s/^XX//'| > "READ|
|000001c0| 4d 45 22 20 3c 3c 27 40 | 2f 2f 45 2a 4f 2a 46 20 |ME" <<'@|//E*O*F |
|000001d0| 52 45 41 44 4d 45 2f 2f | 27 0a 58 58 54 68 65 20 |README//|'.XXThe |
|000001e0| 66 6f 6c 6c 6f 77 69 6e | 67 20 66 69 6c 65 20 69 |followin|g file i|
|000001f0| 73 20 6d 79 20 63 6f 6e | 74 65 78 74 27 27 20 70 |s my con|text'' p|
|00000200| 72 6f 67 72 61 6d 20 66 | 6f 72 20 64 69 73 70 6c |rogram f|or displ|
|00000210| 61 79 69 6e 67 20 74 68 | 65 20 63 6f 6e 74 65 78 |aying th|e contex|
|00000220| 74 20 6f 66 0a 58 58 61 | 20 6d 65 73 73 61 67 65 |t of.XXa| message|
|00000230| 20 6f 66 20 74 68 65 20 | 67 65 6e 65 72 61 6c 20 | of the |general |
|00000240| 66 6f 72 6d 0a 0a 58 58 | 09 3c 67 61 72 62 61 67 |form..XX|.<garbag|
|00000250| 65 3e 20 66 69 6c 65 6e | 61 6d 65 20 3c 67 61 72 |e> filen|ame <gar|
|00000260| 62 65 67 65 3e 20 6c 69 | 6e 65 6e 75 6d 62 65 72 |bege> li|nenumber|
|00000270| 20 3c 67 61 72 62 61 67 | 65 3e 0a 0a 58 58 53 61 | <garbag|e>..XXSa|
|00000280| 6d 70 6c 65 20 75 73 61 | 67 65 3a 0a 0a 58 58 53 |mple usa|ge:..XXS|
|00000290| 63 72 69 70 74 20 73 74 | 61 72 74 65 64 20 6f 6e |cript st|arted on|
|000002a0| 20 46 72 69 20 4a 75 6e | 20 20 36 20 31 38 3a 32 | Fri Jun|  6 18:2|
|000002b0| 39 3a 30 39 20 31 39 38 | 36 0a 58 58 25 20 67 72 |9:09 198|6.XX% gr|
|000002c0| 65 70 20 72 61 6e 67 65 | 20 63 6f 6e 74 65 78 74 |ep range| context|
|000002d0| 2e 63 0a 58 58 69 6e 74 | 20 63 78 74 72 61 6e 67 |.c.XXint| cxtrang|
|000002e0| 65 20 3d 20 33 3b 0a 58 | 58 09 09 69 66 20 28 28 |e = 3;.X|X..if ((|
|000002f0| 63 78 74 72 61 6e 67 65 | 20 3d 20 61 74 6f 6c 28 |cxtrange| = atol(|
|00000300| 61 72 67 76 5b 31 5d 29 | 29 20 3c 20 31 20 7c 7c |argv[1])|) < 1 |||
|00000310| 20 63 78 74 72 61 6e 67 | 65 20 3e 20 32 35 29 0a | cxtrang|e > 25).|
|00000320| 58 58 09 09 09 63 78 74 | 72 61 6e 67 65 20 3d 20 |XX...cxt|range = |
|00000330| 33 3b 0a 58 58 09 09 6c | 6f 6c 69 6e 6f 20 3d 20 |3;.XX..l|olino = |
|00000340| 28 63 78 74 6c 6e 20 3c | 20 63 78 74 72 61 6e 67 |(cxtln <| cxtrang|
|00000350| 65 20 2d 20 31 3f 20 31 | 3a 20 63 78 74 6c 6e 20 |e - 1? 1|: cxtln |
|00000360| 2d 20 63 78 74 72 61 6e | 67 65 29 3b 0a 58 58 09 |- cxtran|ge);.XX.|
|00000370| 09 68 69 6c 69 6e 6f 20 | 3d 20 63 78 74 6c 6e 20 |.hilino |= cxtln |
|00000380| 2b 20 63 78 74 72 61 6e | 67 65 3b 0a 0a 58 58 25 |+ cxtran|ge;..XX%|
|00000390| 20 67 72 65 70 20 2d 6e | 20 72 61 6e 67 65 20 2f | grep -n| range /|
|000003a0| 64 65 76 2f 6e 75 6c 6c | 20 63 6f 6e 74 65 78 74 |dev/null| context|
|000003b0| 2e 63 20 7c 20 63 6f 6e | 74 65 78 74 09 23 20 2f |.c | con|text.# /|
|000003c0| 64 65 76 2f 6e 75 6c 6c | 20 66 6f 72 63 65 73 20 |dev/null| forces |
|000003d0| 66 69 6c 65 6e 61 6d 65 | 0a 58 58 2a 2a 2a 2a 2a |filename|.XX*****|
|000003e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0a 58 58 2a 20 63 6f |********|*.XX* co|
|000003f0| 6e 74 65 78 74 2e 63 3a | 36 3a 69 6e 74 20 63 78 |ntext.c:|6:int cx|
|00000400| 74 72 61 6e 67 65 20 3d | 20 33 3b 0a 58 58 2a 2a |trange =| 3;.XX**|
|00000410| 2a 2a 2a 0a 58 58 20 20 | 0a 58 58 20 20 63 68 61 |***.XX  |.XX  cha|
|00000420| 72 20 63 75 72 66 69 6c | 65 5b 35 31 32 5d 3b 0a |r curfil|e[512];.|
|00000430| 58 58 20 20 46 49 4c 45 | 20 2a 63 75 72 66 70 20 |XX  FILE| *curfp |
|00000440| 3d 20 4e 55 4c 4c 3b 0a | 58 58 2a 20 69 6e 74 20 |= NULL;.|XX* int |
|00000450| 63 78 74 72 61 6e 67 65 | 20 3d 20 33 3b 0a 58 58 |cxtrange| = 3;.XX|
|00000460| 20 20 0a 58 58 20 20 63 | 68 61 72 20 2a 67 65 74 |  .XX  c|har *get|
|00000470| 73 28 29 3b 0a 58 58 20 | 20 0a 0a 58 58 2a 2a 2a |s();.XX | ..XX***|
|00000480| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0a 58 58 2a 20 |********|***.XX* |
|00000490| 63 6f 6e 74 65 78 74 2e | 63 3a 32 30 3a 09 09 69 |context.|c:20:..i|
|000004a0| 66 20 28 28 63 78 74 72 | 61 6e 67 65 20 3d 20 61 |f ((cxtr|ange = a|
|000004b0| 74 6f 6c 28 61 72 67 76 | 5b 31 5d 29 29 20 3c 20 |tol(argv|[1])) < |
|000004c0| 31 20 7c 7c 20 63 78 74 | 72 61 6e 67 65 20 3e 20 |1 || cxt|range > |
|000004d0| 32 35 29 0a 58 58 2a 2a | 2a 2a 2a 0a 58 58 20 20 |25).XX**|***.XX  |
|000004e0| 09 09 65 78 69 74 28 31 | 29 3b 0a 58 58 20 20 09 |..exit(1|);.XX  .|
|000004f0| 7d 0a 58 58 20 20 09 69 | 66 20 28 61 72 67 63 20 |}.XX  .i|f (argc |
|00000500| 3d 3d 20 32 29 0a 58 58 | 2a 20 09 09 69 66 20 28 |== 2).XX|* ..if (|
|00000510| 28 63 78 74 72 61 6e 67 | 65 20 3d 20 61 74 6f 6c |(cxtrang|e = atol|
|00000520| 28 61 72 67 76 5b 31 5d | 29 29 20 3c 20 31 20 7c |(argv[1]|)) < 1 ||
|00000530| 7c 20 63 78 74 72 61 6e | 67 65 20 3e 20 32 35 29 || cxtran|ge > 25)|
|00000540| 0a 58 58 20 20 09 09 09 | 63 78 74 72 61 6e 67 65 |.XX  ...|cxtrange|
|00000550| 20 3d 20 33 3b 0a 58 58 | 20 20 09 77 68 69 6c 65 | = 3;.XX|  .while|
|00000560| 20 28 67 65 74 73 28 63 | 6f 6e 74 65 78 74 29 20 | (gets(c|ontext) |
|00000570| 21 3d 20 28 63 68 61 72 | 20 2a 29 20 30 29 20 7b |!= (char| *) 0) {|
|00000580| 0a 58 58 20 20 09 09 66 | 6f 72 20 28 63 70 20 3d |.XX  ..f|or (cp =|
|00000590| 20 63 6f 6e 74 65 78 74 | 3b 20 2a 63 70 20 21 3d | context|; *cp !=|
|000005a0| 20 27 2e 27 20 26 26 20 | 2a 63 70 20 21 3d 20 27 | '.' && |*cp != '|
|000005b0| 2f 27 20 26 26 20 2a 63 | 70 20 21 3d 20 27 2d 27 |/' && *c|p != '-'|
|000005c0| 20 26 26 20 2a 63 70 20 | 21 3d 20 27 5f 27 20 26 | && *cp |!= '_' &|
|000005d0| 26 20 21 69 73 61 6c 6e | 75 6d 28 2a 63 70 29 3b |& !isaln|um(*cp);|
|000005e0| 20 63 70 2b 2b 29 0a 0a | 58 58 2a 2a 2a 2a 2a 2a | cp++)..|XX******|
|000005f0| 2a 2a 2a 2a 2a 2a 2a 2a | 0a 58 58 2a 20 63 6f 6e |********|.XX* con|
|00000600| 74 65 78 74 2e 63 3a 32 | 31 3a 09 09 09 63 78 74 |text.c:2|1:...cxt|
|00000610| 72 61 6e 67 65 20 3d 20 | 33 3b 0a 58 58 2a 2a 2a |range = |3;.XX***|
|00000620| 2a 2a 0a 58 58 20 20 09 | 7d 0a 58 58 20 20 09 69 |**.XX  .|}.XX  .i|
|00000630| 66 20 28 61 72 67 63 20 | 3d 3d 20 32 29 0a 58 58 |f (argc |== 2).XX|
|00000640| 20 20 09 09 69 66 20 28 | 28 63 78 74 72 61 6e 67 |  ..if (|(cxtrang|
|00000650| 65 20 3d 20 61 74 6f 6c | 28 61 72 67 76 5b 31 5d |e = atol|(argv[1]|
|00000660| 29 29 20 3c 20 31 20 7c | 7c 20 63 78 74 72 61 6e |)) < 1 ||| cxtran|
|00000670| 67 65 20 3e 20 32 35 29 | 0a 58 58 2a 20 09 09 09 |ge > 25)|.XX* ...|
|00000680| 63 78 74 72 61 6e 67 65 | 20 3d 20 33 3b 0a 58 58 |cxtrange| = 3;.XX|
|00000690| 20 20 09 77 68 69 6c 65 | 20 28 67 65 74 73 28 63 |  .while| (gets(c|
|000006a0| 6f 6e 74 65 78 74 29 20 | 21 3d 20 28 63 68 61 72 |ontext) |!= (char|
|000006b0| 20 2a 29 20 30 29 20 7b | 0a 58 58 20 20 09 09 66 | *) 0) {|.XX  ..f|
|000006c0| 6f 72 20 28 63 70 20 3d | 20 63 6f 6e 74 65 78 74 |or (cp =| context|
|000006d0| 3b 20 2a 63 70 20 21 3d | 20 27 2e 27 20 26 26 20 |; *cp !=| '.' && |
|000006e0| 2a 63 70 20 21 3d 20 27 | 2f 27 20 26 26 20 2a 63 |*cp != '|/' && *c|
|000006f0| 70 20 21 3d 20 27 2d 27 | 20 26 26 20 2a 63 70 20 |p != '-'| && *cp |
|00000700| 21 3d 20 27 5f 27 20 26 | 26 20 21 69 73 61 6c 6e |!= '_' &|& !isaln|
|00000710| 75 6d 28 2a 63 70 29 3b | 20 63 70 2b 2b 29 0a 58 |um(*cp);| cp++).X|
|00000720| 58 20 20 09 09 09 69 66 | 20 28 2a 63 70 20 3d 3d |X  ...if| (*cp ==|
|00000730| 20 27 5c 30 27 29 0a 0a | 58 58 2a 2a 2a 2a 2a 2a | '\0')..|XX******|
|00000740| 2a 2a 2a 2a 2a 2a 2a 2a | 0a 58 58 2a 20 63 6f 6e |********|.XX* con|
|00000750| 74 65 78 74 2e 63 3a 34 | 39 3a 09 09 6c 6f 6c 69 |text.c:4|9:..loli|
|00000760| 6e 6f 20 3d 20 28 63 78 | 74 6c 6e 20 3c 20 63 78 |no = (cx|tln < cx|
|00000770| 74 72 61 6e 67 65 20 2d | 20 31 3f 20 31 3a 20 63 |trange -| 1? 1: c|
|00000780| 78 74 6c 6e 20 2d 20 63 | 78 74 72 61 6e 67 65 29 |xtln - c|xtrange)|
|00000790| 3b 0a 58 58 2a 2a 2a 2a | 2a 0a 58 58 20 20 09 09 |;.XX****|*.XX  ..|
|000007a0| 69 66 20 28 2a 66 63 70 | 20 3d 3d 20 27 5c 30 27 |if (*fcp| == '\0'|
|000007b0| 29 0a 58 58 20 20 09 09 | 09 63 6f 6e 74 69 6e 75 |).XX  ..|.continu|
|000007c0| 65 3b 0a 58 58 20 20 09 | 09 63 78 74 6c 6e 20 3d |e;.XX  .|.cxtln =|
|000007d0| 20 61 74 6f 6c 28 66 63 | 70 29 3b 0a 58 58 2a 20 | atol(fc|p);.XX* |
|000007e0| 09 09 6c 6f 6c 69 6e 6f | 20 3d 20 28 63 78 74 6c |..lolino| = (cxtl|
|000007f0| 6e 20 3c 20 63 78 74 72 | 61 6e 67 65 20 2d 20 31 |n < cxtr|ange - 1|
|00000800| 3f 20 31 3a 20 63 78 74 | 6c 6e 20 2d 20 63 78 74 |? 1: cxt|ln - cxt|
|00000810| 72 61 6e 67 65 29 3b 0a | 58 58 20 20 09 09 68 69 |range);.|XX  ..hi|
|00000820| 6c 69 6e 6f 20 3d 20 63 | 78 74 6c 6e 20 2b 20 63 |lino = c|xtln + c|
|00000830| 78 74 72 61 6e 67 65 3b | 0a 58 58 20 20 09 09 69 |xtrange;|.XX  ..i|
|00000840| 66 20 28 6c 6f 6c 69 6e | 6f 20 3c 20 63 75 72 6c |f (lolin|o < curl|
|00000850| 6e 29 20 7b 0a 58 58 20 | 20 09 09 09 66 73 65 65 |n) {.XX | ...fsee|
|00000860| 6b 28 63 75 72 66 70 2c | 20 30 4c 2c 20 30 29 3b |k(curfp,| 0L, 0);|
|00000870| 0a 0a 58 58 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..XX****|********|
|00000880| 2a 2a 0a 58 58 2a 20 63 | 6f 6e 74 65 78 74 2e 63 |**.XX* c|ontext.c|
|00000890| 3a 35 30 3a 09 09 68 69 | 6c 69 6e 6f 20 3d 20 63 |:50:..hi|lino = c|
|000008a0| 78 74 6c 6e 20 2b 20 63 | 78 74 72 61 6e 67 65 3b |xtln + c|xtrange;|
|000008b0| 0a 58 58 2a 2a 2a 2a 2a | 0a 58 58 20 20 09 09 09 |.XX*****|.XX  ...|
|000008c0| 63 6f 6e 74 69 6e 75 65 | 3b 0a 58 58 20 20 09 09 |continue|;.XX  ..|
|000008d0| 63 78 74 6c 6e 20 3d 20 | 61 74 6f 6c 28 66 63 70 |cxtln = |atol(fcp|
|000008e0| 29 3b 0a 58 58 20 20 09 | 09 6c 6f 6c 69 6e 6f 20 |);.XX  .|.lolino |
|000008f0| 3d 20 28 63 78 74 6c 6e | 20 3c 20 63 78 74 72 61 |= (cxtln| < cxtra|
|00000900| 6e 67 65 20 2d 20 31 3f | 20 31 3a 20 63 78 74 6c |nge - 1?| 1: cxtl|
|00000910| 6e 20 2d 20 63 78 74 72 | 61 6e 67 65 29 3b 0a 58 |n - cxtr|ange);.X|
|00000920| 58 2a 20 09 09 68 69 6c | 69 6e 6f 20 3d 20 63 78 |X* ..hil|ino = cx|
|00000930| 74 6c 6e 20 2b 20 63 78 | 74 72 61 6e 67 65 3b 0a |tln + cx|trange;.|
|00000940| 58 58 20 20 09 09 69 66 | 20 28 6c 6f 6c 69 6e 6f |XX  ..if| (lolino|
|00000950| 20 3c 20 63 75 72 6c 6e | 29 20 7b 0a 58 58 20 20 | < curln|) {.XX  |
|00000960| 09 09 09 66 73 65 65 6b | 28 63 75 72 66 70 2c 20 |...fseek|(curfp, |
|00000970| 30 4c 2c 20 30 29 3b 0a | 58 58 20 20 09 09 09 63 |0L, 0);.|XX  ...c|
|00000980| 75 72 6c 6e 20 3d 20 30 | 3b 0a 0a 58 58 25 20 0a |urln = 0|;..XX% .|
|00000990| 58 58 73 63 72 69 70 74 | 20 64 6f 6e 65 20 6f 6e |XXscript| done on|
|000009a0| 20 46 72 69 20 4a 75 6e | 20 20 36 20 31 38 3a 32 | Fri Jun|  6 18:2|
|000009b0| 39 3a 35 35 20 31 39 38 | 36 0a 0a 58 58 41 6c 73 |9:55 198|6..XXAls|
|000009c0| 6f 20 75 73 65 66 75 6c | 20 66 6f 72 20 65 78 61 |o useful| for exa|
|000009d0| 6d 69 6e 69 6e 67 20 74 | 68 65 20 63 61 75 73 65 |mining t|he cause|
|000009e0| 73 20 6f 66 20 43 20 65 | 72 72 6f 72 73 20 28 61 |s of C e|rrors (a|
|000009f0| 6c 74 68 6f 75 67 68 20 | 49 27 76 65 20 72 65 63 |lthough |I've rec|
|00000a00| 65 69 76 65 64 20 6d 69 | 78 65 64 0a 58 58 72 65 |eived mi|xed.XXre|
|00000a10| 76 69 65 77 73 20 6f 6e | 20 74 68 61 74 3b 20 73 |views on| that; s|
|00000a20| 65 65 6d 73 20 74 68 61 | 74 20 42 53 44 34 2e 32 |eems tha|t BSD4.2|
|00000a30| 20 68 61 73 20 61 20 73 | 6d 61 72 74 65 72 27 27 | has a s|marter''|
|00000a40| 20 70 72 6f 67 72 61 6d | 20 63 61 6c 6c 65 64 65 | program| callede|
|00000a50| 72 72 6f 72 73 27 27 29 | 2e 0a 0a 58 58 53 69 6d |rrors'')|...XXSim|
|00000a60| 70 6c 79 20 63 6f 6d 70 | 69 6c 65 20 63 6f 6e 74 |ply comp|ile cont|
|00000a70| 65 78 74 2e 63 20 2d 2d | 20 74 68 65 72 65 20 61 |ext.c --| there a|
|00000a80| 72 65 20 6e 6f 20 56 37 | 2f 53 35 2f 42 53 44 20 |re no V7|/S5/BSD |
|00000a90| 64 65 70 65 6e 64 65 6e | 63 69 65 73 20 74 68 61 |dependen|cies tha|
|00000aa0| 74 20 49 20 6b 6e 6f 77 | 0a 58 58 6f 66 2e 20 20 |t I know|.XXof.  |
|00000ab0| 54 68 65 6e 20 65 6e 6a | 6f 79 2e 0a 0a 58 58 09 |Then enj|oy...XX.|
|00000ac0| 09 09 09 09 2d 2d 42 72 | 61 6e 64 6f 6e 0a 40 2f |....--Br|andon.@/|
|00000ad0| 2f 45 2a 4f 2a 46 20 52 | 45 41 44 4d 45 2f 2f 0a |/E*O*F R|EADME//.|
|00000ae0| 63 68 6d 6f 64 20 75 3d | 72 77 2c 67 3d 72 77 2c |chmod u=|rw,g=rw,|
|00000af0| 6f 3d 72 77 20 52 45 41 | 44 4d 45 0a 20 0a 65 63 |o=rw REA|DME. .ec|
|00000b00| 68 6f 20 78 20 2d 20 63 | 6f 6e 74 65 78 74 2e 63 |ho x - c|ontext.c|
|00000b10| 0a 73 65 64 20 27 73 2f | 5e 58 58 2f 2f 27 20 3e |.sed 's/|^XX//' >|
|00000b20| 20 22 63 6f 6e 74 65 78 | 74 2e 63 22 20 3c 3c 27 | "contex|t.c" <<'|
|00000b30| 40 2f 2f 45 2a 4f 2a 46 | 20 63 6f 6e 74 65 78 74 |@//E*O*F| context|
|00000b40| 2e 63 2f 2f 27 0a 58 58 | 23 69 6e 63 6c 75 64 65 |.c//'.XX|#include|
|00000b50| 20 3c 73 74 64 69 6f 2e | 68 3e 0a 58 58 23 69 6e | <stdio.|h>.XX#in|
|00000b60| 63 6c 75 64 65 20 3c 63 | 74 79 70 65 2e 68 3e 0a |clude <c|type.h>.|
|00000b70| 0a 58 58 63 68 61 72 20 | 63 75 72 66 69 6c 65 5b |.XXchar |curfile[|
|00000b80| 35 31 32 5d 3b 0a 58 58 | 46 49 4c 45 20 2a 63 75 |512];.XX|FILE *cu|
|00000b90| 72 66 70 20 3d 20 4e 55 | 4c 4c 3b 0a 58 58 69 6e |rfp = NU|LL;.XXin|
|00000ba0| 74 20 63 78 74 72 61 6e | 67 65 20 3d 20 33 3b 0a |t cxtran|ge = 3;.|
|00000bb0| 0a 58 58 63 68 61 72 20 | 2a 67 65 74 73 28 29 3b |.XXchar |*gets();|
|00000bc0| 0a 0a 58 58 6d 61 69 6e | 28 61 72 67 63 2c 20 61 |..XXmain|(argc, a|
|00000bd0| 72 67 76 29 0a 58 58 63 | 68 61 72 20 2a 2a 61 72 |rgv).XXc|har **ar|
|00000be0| 67 76 3b 20 7b 0a 58 58 | 09 63 68 61 72 20 63 6f |gv; {.XX|.char co|
|00000bf0| 6e 74 65 78 74 5b 35 31 | 32 5d 2c 20 66 6c 69 6e |ntext[51|2], flin|
|00000c00| 65 5b 35 31 32 5d 2c 20 | 2a 63 70 2c 20 2a 66 63 |e[512], |*cp, *fc|
|00000c10| 70 3b 0a 58 58 09 6c 6f | 6e 67 20 63 78 74 6c 6e |p;.XX.lo|ng cxtln|
|00000c20| 2c 20 6c 6f 6c 69 6e 6f | 2c 20 68 69 6c 69 6e 6f |, lolino|, hilino|
|00000c30| 2c 20 63 75 72 6c 6e 3b | 0a 0a 58 58 09 69 66 20 |, curln;|..XX.if |
|00000c40| 28 61 72 67 63 20 3e 20 | 32 29 20 7b 0a 58 58 09 |(argc > |2) {.XX.|
|00000c50| 09 66 70 72 69 6e 74 66 | 28 73 74 64 65 72 72 2c |.fprintf|(stderr,|
|00000c60| 20 22 55 73 61 67 65 3a | 20 63 6f 6e 74 65 78 74 | "Usage:| context|
|00000c70| 20 5b 6e 6c 69 6e 65 73 | 5d 20 3c 20 6c 69 73 74 | [nlines|] < list|
|00000c80| 66 69 6c 65 5c 6e 22 29 | 3b 0a 58 58 09 09 65 78 |file\n")|;.XX..ex|
|00000c90| 69 74 28 31 29 3b 0a 58 | 58 09 7d 0a 58 58 09 69 |it(1);.X|X.}.XX.i|
|00000ca0| 66 20 28 61 72 67 63 20 | 3d 3d 20 32 29 0a 58 58 |f (argc |== 2).XX|
|00000cb0| 09 09 69 66 20 28 28 63 | 78 74 72 61 6e 67 65 20 |..if ((c|xtrange |
|00000cc0| 3d 20 61 74 6f 6c 28 61 | 72 67 76 5b 31 5d 29 29 |= atol(a|rgv[1]))|
|00000cd0| 20 3c 20 31 20 7c 7c 20 | 63 78 74 72 61 6e 67 65 | < 1 || |cxtrange|
|00000ce0| 20 3e 20 32 35 29 0a 58 | 58 09 09 09 63 78 74 72 | > 25).X|X...cxtr|
|00000cf0| 61 6e 67 65 20 3d 20 33 | 3b 0a 58 58 09 77 68 69 |ange = 3|;.XX.whi|
|00000d00| 6c 65 20 28 67 65 74 73 | 28 63 6f 6e 74 65 78 74 |le (gets|(context|
|00000d10| 29 20 21 3d 20 28 63 68 | 61 72 20 2a 29 20 30 29 |) != (ch|ar *) 0)|
|00000d20| 20 7b 0a 58 58 09 09 66 | 6f 72 20 28 63 70 20 3d | {.XX..f|or (cp =|
|00000d30| 20 63 6f 6e 74 65 78 74 | 3b 20 2a 63 70 20 21 3d | context|; *cp !=|
|00000d40| 20 27 2e 27 20 26 26 20 | 2a 63 70 20 21 3d 20 27 | '.' && |*cp != '|
|00000d50| 2f 27 20 26 26 20 2a 63 | 70 20 21 3d 20 27 2d 27 |/' && *c|p != '-'|
|00000d60| 20 26 26 20 2a 63 70 20 | 21 3d 20 27 5f 27 20 26 | && *cp |!= '_' &|
|00000d70| 26 20 21 69 73 61 6c 6e | 75 6d 28 2a 63 70 29 3b |& !isaln|um(*cp);|
|00000d80| 20 63 70 2b 2b 29 0a 58 | 58 09 09 09 69 66 20 28 | cp++).X|X...if (|
|00000d90| 2a 63 70 20 3d 3d 20 27 | 5c 30 27 29 0a 58 58 09 |*cp == '|\0').XX.|
|00000da0| 09 09 09 62 72 65 61 6b | 3b 0a 58 58 09 09 69 66 |...break|;.XX..if|
|00000db0| 20 28 2a 63 70 20 3d 3d | 20 27 5c 30 27 29 0a 58 | (*cp ==| '\0').X|
|00000dc0| 58 09 09 09 63 6f 6e 74 | 69 6e 75 65 3b 0a 58 58 |X...cont|inue;.XX|
|00000dd0| 09 09 73 74 72 63 70 79 | 28 66 6c 69 6e 65 2c 20 |..strcpy|(fline, |
|00000de0| 63 70 29 3b 0a 58 58 09 | 09 66 6f 72 20 28 66 63 |cp);.XX.|.for (fc|
|00000df0| 70 20 3d 20 63 70 2c 20 | 63 70 20 3d 20 66 6c 69 |p = cp, |cp = fli|
|00000e00| 6e 65 3b 20 2a 63 70 20 | 3d 3d 20 27 5f 27 20 7c |ne; *cp |== '_' ||
|00000e10| 7c 20 2a 63 70 20 3d 3d | 20 27 2e 27 20 7c 7c 20 || *cp ==| '.' || |
|00000e20| 2a 63 70 20 3d 3d 20 27 | 2f 27 20 7c 7c 20 2a 63 |*cp == '|/' || *c|
|00000e30| 70 20 3d 3d 20 27 2d 27 | 20 7c 7c 20 69 73 61 6c |p == '-'| || isal|
|00000e40| 6e 75 6d 28 2a 63 70 29 | 3b 20 63 70 2b 2b 2c 20 |num(*cp)|; cp++, |
|00000e50| 66 63 70 2b 2b 29 0a 58 | 58 09 09 09 3b 0a 58 58 |fcp++).X|X...;.XX|
|00000e60| 09 09 69 66 20 28 2a 63 | 70 20 3d 3d 20 27 5c 30 |..if (*c|p == '\0|
|00000e70| 27 29 0a 58 58 09 09 09 | 63 6f 6e 74 69 6e 75 65 |').XX...|continue|
|00000e80| 3b 0a 58 58 09 09 2a 63 | 70 20 3d 20 27 5c 30 27 |;.XX..*c|p = '\0'|
|00000e90| 3b 0a 58 58 09 09 69 66 | 20 28 63 75 72 66 70 20 |;.XX..if| (curfp |
|00000ea0| 3d 3d 20 28 46 49 4c 45 | 20 2a 29 20 30 20 7c 7c |== (FILE| *) 0 |||
|00000eb0| 20 73 74 72 63 6d 70 28 | 63 75 72 66 69 6c 65 2c | strcmp(|curfile,|
|00000ec0| 20 66 6c 69 6e 65 29 20 | 21 3d 20 30 29 20 7b 0a | fline) |!= 0) {.|
|00000ed0| 58 58 09 09 09 69 66 20 | 28 63 75 72 66 70 20 21 |XX...if |(curfp !|
|00000ee0| 3d 20 28 46 49 4c 45 20 | 2a 29 20 30 29 0a 58 58 |= (FILE |*) 0).XX|
|00000ef0| 09 09 09 09 66 63 6c 6f | 73 65 28 63 75 72 66 70 |....fclo|se(curfp|
|00000f00| 29 3b 0a 58 58 09 09 09 | 69 66 20 28 28 63 75 72 |);.XX...|if ((cur|
|00000f10| 66 70 20 3d 20 66 6f 70 | 65 6e 28 66 6c 69 6e 65 |fp = fop|en(fline|
|00000f20| 2c 20 22 72 22 29 29 20 | 3d 3d 20 28 46 49 4c 45 |, "r")) |== (FILE|
|00000f30| 20 2a 29 20 30 29 20 7b | 0a 58 58 09 09 09 09 70 | *) 0) {|.XX....p|
|00000f40| 65 72 72 6f 72 28 66 6c | 69 6e 65 29 3b 0a 58 58 |error(fl|ine);.XX|
|00000f50| 09 09 09 09 63 6f 6e 74 | 69 6e 75 65 3b 0a 58 58 |....cont|inue;.XX|
|00000f60| 09 09 09 7d 0a 58 58 09 | 09 09 73 74 72 63 70 79 |...}.XX.|..strcpy|
|00000f70| 28 63 75 72 66 69 6c 65 | 2c 20 66 6c 69 6e 65 29 |(curfile|, fline)|
|00000f80| 3b 0a 58 58 09 09 09 63 | 75 72 6c 6e 20 3d 20 30 |;.XX...c|urln = 0|
|00000f90| 3b 0a 58 58 09 09 7d 0a | 58 58 09 09 66 6f 72 20 |;.XX..}.|XX..for |
|00000fa0| 28 3b 20 2a 66 63 70 20 | 21 3d 20 27 5c 30 27 20 |(; *fcp |!= '\0' |
|00000fb0| 26 26 20 21 69 73 64 69 | 67 69 74 28 2a 66 63 70 |&& !isdi|git(*fcp|
|00000fc0| 29 3b 20 66 63 70 2b 2b | 29 0a 58 58 09 09 09 3b |); fcp++|).XX...;|
|00000fd0| 0a 58 58 09 09 69 66 20 | 28 2a 66 63 70 20 3d 3d |.XX..if |(*fcp ==|
|00000fe0| 20 27 5c 30 27 29 0a 58 | 58 09 09 09 63 6f 6e 74 | '\0').X|X...cont|
|00000ff0| 69 6e 75 65 3b 0a 58 58 | 09 09 63 78 74 6c 6e 20 |inue;.XX|..cxtln |
|00001000| 3d 20 61 74 6f 6c 28 66 | 63 70 29 3b 0a 58 58 09 |= atol(f|cp);.XX.|
|00001010| 09 6c 6f 6c 69 6e 6f 20 | 3d 20 28 63 78 74 6c 6e |.lolino |= (cxtln|
|00001020| 20 3c 20 63 78 74 72 61 | 6e 67 65 20 2d 20 31 3f | < cxtra|nge - 1?|
|00001030| 20 31 3a 20 63 78 74 6c | 6e 20 2d 20 63 78 74 72 | 1: cxtl|n - cxtr|
|00001040| 61 6e 67 65 29 3b 0a 58 | 58 09 09 68 69 6c 69 6e |ange);.X|X..hilin|
|00001050| 6f 20 3d 20 63 78 74 6c | 6e 20 2b 20 63 78 74 72 |o = cxtl|n + cxtr|
|00001060| 61 6e 67 65 3b 0a 58 58 | 09 09 69 66 20 28 6c 6f |ange;.XX|..if (lo|
|00001070| 6c 69 6e 6f 20 3c 20 63 | 75 72 6c 6e 29 20 7b 0a |lino < c|urln) {.|
|00001080| 58 58 09 09 09 66 73 65 | 65 6b 28 63 75 72 66 70 |XX...fse|ek(curfp|
|00001090| 2c 20 30 4c 2c 20 30 29 | 3b 0a 58 58 09 09 09 63 |, 0L, 0)|;.XX...c|
|000010a0| 75 72 6c 6e 20 3d 20 30 | 3b 0a 58 58 09 09 7d 0a |urln = 0|;.XX..}.|
|000010b0| 58 58 09 09 69 66 20 28 | 63 78 74 6c 6e 20 3d 3d |XX..if (|cxtln ==|
|000010c0| 20 63 75 72 6c 6e 29 20 | 7b 09 09 2f 2a 20 61 6c | curln) |{../* al|
|000010d0| 72 65 61 64 79 20 73 68 | 6f 77 6e 20 2a 2f 0a 58 |ready sh|own */.X|
|000010e0| 58 09 09 09 70 72 69 6e | 74 66 28 22 2a 2a 2a 2a |X...prin|tf("****|
|000010f0| 2a 5c 6e 2a 20 25 73 5c | 6e 2a 2a 2a 2a 2a 5c 6e |*\n* %s\|n*****\n|
|00001100| 5c 6e 22 2c 20 63 6f 6e | 74 65 78 74 29 3b 0a 58 |\n", con|text);.X|
|00001110| 58 09 09 09 63 6f 6e 74 | 69 6e 75 65 3b 0a 58 58 |X...cont|inue;.XX|
|00001120| 09 09 7d 0a 58 58 09 09 | 70 72 69 6e 74 66 28 22 |..}.XX..|printf("|
|00001130| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 5c 6e |********|******\n|
|00001140| 2a 20 25 73 5c 6e 2a 2a | 2a 2a 2a 5c 6e 22 2c 20 |* %s\n**|***\n", |
|00001150| 63 6f 6e 74 65 78 74 29 | 3b 0a 58 58 09 09 77 68 |context)|;.XX..wh|
|00001160| 69 6c 65 20 28 66 67 65 | 74 73 28 66 6c 69 6e 65 |ile (fge|ts(fline|
|00001170| 2c 20 35 31 32 2c 20 63 | 75 72 66 70 29 20 21 3d |, 512, c|urfp) !=|
|00001180| 20 28 63 68 61 72 20 2a | 29 20 30 20 26 26 20 2b | (char *|) 0 && +|
|00001190| 2b 63 75 72 6c 6e 20 3c | 20 6c 6f 6c 69 6e 6f 29 |+curln <| lolino)|
|000011a0| 0a 58 58 09 09 09 3b 0a | 58 58 09 09 69 66 20 28 |.XX...;.|XX..if (|
|000011b0| 63 75 72 6c 6e 20 3c 20 | 6c 6f 6c 69 6e 6f 29 0a |curln < |lolino).|
|000011c0| 58 58 09 09 09 63 6f 6e | 74 69 6e 75 65 3b 0a 58 |XX...con|tinue;.X|
|000011d0| 58 09 09 6f 75 74 28 66 | 6c 69 6e 65 2c 20 63 75 |X..out(f|line, cu|
|000011e0| 72 6c 6e 20 3d 3d 20 63 | 78 74 6c 6e 29 3b 0a 58 |rln == c|xtln);.X|
|000011f0| 58 09 09 77 68 69 6c 65 | 20 28 66 67 65 74 73 28 |X..while| (fgets(|
|00001200| 66 6c 69 6e 65 2c 20 35 | 31 32 2c 20 63 75 72 66 |fline, 5|12, curf|
|00001210| 70 29 20 21 3d 20 28 63 | 68 61 72 20 2a 29 20 30 |p) != (c|har *) 0|
|00001220| 20 26 26 20 2b 2b 63 75 | 72 6c 6e 20 3c 3d 20 68 | && ++cu|rln <= h|
|00001230| 69 6c 69 6e 6f 29 0a 58 | 58 09 09 09 6f 75 74 28 |ilino).X|X...out(|
|00001240| 66 6c 69 6e 65 2c 20 63 | 75 72 6c 6e 20 3d 3d 20 |fline, c|urln == |
|00001250| 63 78 74 6c 6e 29 3b 0a | 58 58 09 09 70 75 74 63 |cxtln);.|XX..putc|
|00001260| 68 61 72 28 27 5c 6e 27 | 29 3b 0a 58 58 09 7d 0a |har('\n'|);.XX.}.|
|00001270| 58 58 7d 0a 0a 58 58 6f | 75 74 28 73 2c 20 66 6c |XX}..XXo|ut(s, fl|
|00001280| 67 29 0a 58 58 63 68 61 | 72 20 2a 73 3b 20 7b 0a |g).XXcha|r *s; {.|
|00001290| 58 58 09 70 72 69 6e 74 | 66 28 22 25 63 20 25 73 |XX.print|f("%c %s|
|000012a0| 22 2c 20 28 66 6c 67 3f | 20 27 2a 27 3a 20 27 20 |", (flg?| '*': ' |
|000012b0| 27 29 2c 20 73 29 3b 0a | 58 58 7d 0a 40 2f 2f 45 |'), s);.|XX}.@//E|
|000012c0| 2a 4f 2a 46 20 63 6f 6e | 74 65 78 74 2e 63 2f 2f |*O*F con|text.c//|
|000012d0| 0a 63 68 6d 6f 64 20 75 | 3d 72 77 2c 67 3d 72 77 |.chmod u|=rw,g=rw|
|000012e0| 2c 6f 3d 72 77 20 63 6f | 6e 74 65 78 74 2e 63 0a |,o=rw co|ntext.c.|
|000012f0| 20 0a 65 63 68 6f 20 49 | 6e 73 70 65 63 74 69 6e | .echo I|nspectin|
|00001300| 67 20 66 6f 72 20 64 61 | 6d 61 67 65 20 69 6e 20 |g for da|mage in |
|00001310| 74 72 61 6e 73 69 74 2e | 2e 2e 0a 74 65 6d 70 3d |transit.|...temp=|
|00001320| 2f 74 6d 70 2f 73 68 61 | 72 69 6e 24 24 3b 20 64 |/tmp/sha|rin$$; d|
|00001330| 74 65 6d 70 3d 2f 74 6d | 70 2f 73 68 61 72 6f 75 |temp=/tm|p/sharou|
|00001340| 74 24 24 0a 74 72 61 70 | 20 22 72 6d 20 2d 66 20 |t$$.trap| "rm -f |
|00001350| 24 74 65 6d 70 20 24 64 | 74 65 6d 70 3b 20 65 78 |$temp $d|temp; ex|
|00001360| 69 74 22 20 30 20 31 20 | 32 20 33 20 31 35 0a 63 |it" 0 1 |2 3 15.c|
|00001370| 61 74 20 3e 20 24 74 65 | 6d 70 20 3c 3c 5c 21 21 |at > $te|mp <<\!!|
|00001380| 21 0a 20 20 20 20 20 20 | 38 31 20 20 20 20 20 33 |!.      |81     3|
|00001390| 36 32 20 20 20 20 32 31 | 35 34 20 52 45 41 44 4d |62    21|54 READM|
|000013a0| 45 0a 20 20 20 20 20 20 | 37 34 20 20 20 20 20 32 |E.      |74     2|
|000013b0| 39 31 20 20 20 20 31 37 | 37 32 20 63 6f 6e 74 65 |91    17|72 conte|
|000013c0| 78 74 2e 63 0a 20 20 20 | 20 20 31 35 35 20 20 20 |xt.c.   |  155   |
|000013d0| 20 20 36 35 33 20 20 20 | 20 33 39 32 36 20 74 6f |  653   | 3926 to|
|000013e0| 74 61 6c 0a 21 21 21 0a | 77 63 20 20 52 45 41 44 |tal.!!!.|wc  READ|
|000013f0| 4d 45 20 63 6f 6e 74 65 | 78 74 2e 63 20 7c 20 73 |ME conte|xt.c | s|
|00001400| 65 64 20 27 73 3d 5b 5e | 20 5d 2a 2f 3d 3d 27 20 |ed 's=[^| ]*/==' |
|00001410| 7c 20 64 69 66 66 20 2d | 62 20 24 74 65 6d 70 20 || diff -|b $temp |
|00001420| 2d 20 3e 24 64 74 65 6d | 70 0a 69 66 20 74 65 73 |- >$dtem|p.if tes|
|00001430| 74 20 2d 73 20 24 64 74 | 65 6d 70 0a 74 68 65 6e |t -s $dt|emp.then|
|00001440| 20 65 63 68 6f 20 22 4f | 75 63 68 20 5b 64 69 66 | echo "O|uch [dif|
|00001450| 66 20 6f 66 20 77 63 20 | 6f 75 74 70 75 74 5d 3a |f of wc |output]:|
|00001460| 22 20 3b 20 63 61 74 20 | 24 64 74 65 6d 70 0a 65 |" ; cat |$dtemp.e|
|00001470| 6c 73 65 20 65 63 68 6f | 20 22 4e 6f 20 70 72 6f |lse echo| "No pro|
|00001480| 62 6c 65 6d 73 20 66 6f | 75 6e 64 2e 22 0a 66 69 |blems fo|und.".fi|
|00001490| 0a 65 78 69 74 20 30 0a |                         |.exit 0.|        |
+--------+-------------------------+-------------------------+--------+--------+