/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume1 / 8707 / 45

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 3a 20 72 6f | 6f 74 40 71 65 74 7a 61 |From: ro|ot@qetza|
|00000010| 6c 2e 55 55 43 50 0a 4e | 65 77 73 67 72 6f 75 70 |l.UUCP.N|ewsgroup|
|00000020| 73 3a 20 63 6f 6d 70 2e | 73 6f 75 72 63 65 73 2e |s: comp.|sources.|
|00000030| 6d 69 73 63 0a 53 75 62 | 6a 65 63 74 3a 20 52 65 |misc.Sub|ject: Re|
|00000040| 61 64 20 74 61 70 65 20 | 61 6e 64 20 70 72 69 6e |ad tape |and prin|
|00000050| 74 20 66 6f 72 6d 61 74 | 20 70 72 6f 67 72 61 6d |t format| program|
|00000060| 0a 4d 65 73 73 61 67 65 | 2d 49 44 3a 20 3c 32 39 |.Message|-ID: <29|
|00000070| 30 39 40 6e 63 6f 61 73 | 74 2e 55 55 43 50 3e 0a |09@ncoas|t.UUCP>.|
|00000080| 44 61 74 65 3a 20 31 35 | 20 4a 75 6c 20 38 37 20 |Date: 15| Jul 87 |
|00000090| 30 34 3a 31 39 3a 34 33 | 20 47 4d 54 0a 53 65 6e |04:19:43| GMT.Sen|
|000000a0| 64 65 72 3a 20 61 6c 6c | 62 65 72 79 40 6e 63 6f |der: all|bery@nco|
|000000b0| 61 73 74 2e 55 55 43 50 | 0a 4c 69 6e 65 73 3a 20 |ast.UUCP|.Lines: |
|000000c0| 31 36 33 0a 41 70 70 72 | 6f 76 65 64 3a 20 61 6c |163.Appr|oved: al|
|000000d0| 6c 62 65 72 79 40 6e 63 | 6f 61 73 74 2e 55 55 43 |lbery@nc|oast.UUC|
|000000e0| 50 0a 58 2d 41 72 63 68 | 69 76 65 3a 20 63 6f 6d |P.X-Arch|ive: com|
|000000f0| 70 2e 73 6f 75 72 63 65 | 73 2e 6d 69 73 63 2f 38 |p.source|s.misc/8|
|00000100| 37 30 37 2f 34 35 0a 0a | 42 72 61 6e 64 6f 6e 20 |707/45..|Brandon |
|00000110| 2d 20 68 65 72 65 20 69 | 73 20 61 20 6c 69 74 74 |- here i|s a litt|
|00000120| 6c 65 20 75 74 69 6c 69 | 74 79 20 70 72 6f 67 72 |le utili|ty progr|
|00000130| 61 6d 20 66 6f 72 20 55 | 53 47 20 73 79 73 74 65 |am for U|SG syste|
|00000140| 6d 73 3b 20 69 74 20 6d | 61 79 0a 76 65 72 79 20 |ms; it m|ay.very |
|00000150| 77 65 6c 6c 20 77 6f 72 | 6b 20 6f 6e 20 42 53 44 |well wor|k on BSD|
|00000160| 20 61 73 20 77 65 6c 6c | 2e 20 50 6c 65 61 73 65 | as well|. Please|
|00000170| 20 70 6f 73 74 20 74 6f | 20 63 6f 6d 70 2e 73 6f | post to| comp.so|
|00000180| 75 72 63 65 73 2e 6d 69 | 73 63 2e 0a 0a 53 75 62 |urces.mi|sc...Sub|
|00000190| 6d 69 74 74 65 64 20 62 | 79 20 71 65 74 7a 61 6c |mitted b|y qetzal|
|000001a0| 21 72 63 77 3b 20 54 68 | 61 6e 6b 73 20 74 6f 20 |!rcw; Th|anks to |
|000001b0| 72 6f 63 68 65 73 74 65 | 72 21 6b 65 6e 0a 0a 23 |rocheste|r!ken..#|
|000001c0| 21 20 2f 62 69 6e 2f 73 | 68 0a 23 20 54 68 69 73 |! /bin/s|h.# This|
|000001d0| 20 69 73 20 61 20 73 68 | 65 6c 6c 20 61 72 63 68 | is a sh|ell arch|
|000001e0| 69 76 65 2c 20 6d 65 61 | 6e 69 6e 67 3a 0a 23 20 |ive, mea|ning:.# |
|000001f0| 31 2e 20 52 65 6d 6f 76 | 65 20 65 76 65 72 79 74 |1. Remov|e everyt|
|00000200| 68 69 6e 67 20 61 62 6f | 76 65 20 74 68 65 20 23 |hing abo|ve the #|
|00000210| 21 20 2f 62 69 6e 2f 73 | 68 20 6c 69 6e 65 2e 0a |! /bin/s|h line..|
|00000220| 23 20 32 2e 20 53 61 76 | 65 20 74 68 65 20 72 65 |# 2. Sav|e the re|
|00000230| 73 75 6c 74 69 6e 67 20 | 74 65 78 74 20 69 6e 20 |sulting |text in |
|00000240| 61 20 66 69 6c 65 2e 0a | 23 20 33 2e 20 45 78 65 |a file..|# 3. Exe|
|00000250| 63 75 74 65 20 74 68 65 | 20 66 69 6c 65 20 77 69 |cute the| file wi|
|00000260| 74 68 20 2f 62 69 6e 2f | 73 68 20 28 6e 6f 74 20 |th /bin/|sh (not |
|00000270| 63 73 68 29 20 74 6f 20 | 63 72 65 61 74 65 3a 0a |csh) to |create:.|
|00000280| 23 09 74 61 70 72 64 2e | 31 0a 23 09 74 61 70 72 |#.taprd.|1.#.tapr|
|00000290| 64 2e 63 0a 23 20 54 68 | 69 73 20 61 72 63 68 69 |d.c.# Th|is archi|
|000002a0| 76 65 20 63 72 65 61 74 | 65 64 3a 20 46 72 69 20 |ve creat|ed: Fri |
|000002b0| 4a 75 6c 20 20 33 20 31 | 33 3a 34 36 3a 30 33 20 |Jul  3 1|3:46:03 |
|000002c0| 31 39 38 37 0a 65 78 70 | 6f 72 74 20 50 41 54 48 |1987.exp|ort PATH|
|000002d0| 3b 20 50 41 54 48 3d 2f | 62 69 6e 3a 2f 75 73 72 |; PATH=/|bin:/usr|
|000002e0| 2f 62 69 6e 3a 24 50 41 | 54 48 0a 69 66 20 74 65 |/bin:$PA|TH.if te|
|000002f0| 73 74 20 2d 66 20 27 74 | 61 70 72 64 2e 31 27 0a |st -f 't|aprd.1'.|
|00000300| 74 68 65 6e 0a 09 65 63 | 68 6f 20 73 68 61 72 3a |then..ec|ho shar:|
|00000310| 20 22 77 69 6c 6c 20 6e | 6f 74 20 6f 76 65 72 2d | "will n|ot over-|
|00000320| 77 72 69 74 65 20 65 78 | 69 73 74 69 6e 67 20 66 |write ex|isting f|
|00000330| 69 6c 65 20 27 74 61 70 | 72 64 2e 31 27 22 0a 65 |ile 'tap|rd.1'".e|
|00000340| 6c 73 65 0a 63 61 74 20 | 3c 3c 20 5c 53 48 41 52 |lse.cat |<< \SHAR|
|00000350| 5f 45 4f 46 20 3e 20 27 | 74 61 70 72 64 2e 31 27 |_EOF > '|taprd.1'|
|00000360| 0a 2e 54 48 20 54 41 50 | 52 44 20 31 20 41 55 53 |..TH TAP|RD 1 AUS|
|00000370| 0a 2e 53 48 20 4e 41 4d | 45 0a 74 61 70 72 64 20 |..SH NAM|E.taprd |
|00000380| 20 5c 2d 20 20 72 65 61 | 64 20 74 61 70 65 20 61 | \-  rea|d tape a|
|00000390| 6e 64 20 70 72 69 6e 74 | 20 69 74 73 20 66 6f 72 |nd print| its for|
|000003a0| 6d 61 74 0a 2e 53 48 20 | 53 59 4e 4f 50 53 49 53 |mat..SH |SYNOPSIS|
|000003b0| 0a 2e 42 20 74 61 70 72 | 64 0a 72 61 77 5f 73 70 |..B tapr|d.raw_sp|
|000003c0| 65 63 69 61 6c 5f 66 69 | 6c 65 0a 2e 53 48 20 44 |ecial_fi|le..SH D|
|000003d0| 45 53 43 52 49 50 54 49 | 4f 4e 0a 2e 49 20 54 61 |ESCRIPTI|ON..I Ta|
|000003e0| 70 72 64 0a 69 73 20 75 | 73 65 64 20 74 6f 20 72 |prd.is u|sed to r|
|000003f0| 65 61 64 20 61 20 74 61 | 70 65 0a 61 6e 64 20 6c |ead a ta|pe.and l|
|00000400| 69 73 74 20 74 68 65 20 | 66 6f 72 6d 61 74 20 6f |ist the |format o|
|00000410| 66 20 72 65 63 6f 72 64 | 73 20 61 6e 64 20 74 61 |f record|s and ta|
|00000420| 70 65 20 6d 61 72 6b 73 | 2e 0a 49 74 20 77 69 6c |pe marks|..It wil|
|00000430| 6c 20 70 72 69 6e 74 20 | 61 20 6d 65 73 73 61 67 |l print |a messag|
|00000440| 65 20 64 65 73 63 72 69 | 62 69 6e 67 20 74 68 65 |e descri|bing the|
|00000450| 20 6c 61 73 74 20 73 65 | 74 20 6f 66 0a 69 64 65 | last se|t of.ide|
|00000460| 6e 74 69 63 61 6c 20 72 | 65 63 6f 72 64 73 20 65 |ntical r|ecords e|
|00000470| 6e 63 6f 75 6e 74 65 72 | 65 64 0a 65 76 65 72 79 |ncounter|ed.every|
|00000480| 20 74 69 6d 65 20 74 68 | 65 20 72 65 63 6f 72 64 | time th|e record|
|00000490| 20 74 79 70 65 20 63 68 | 61 6e 67 65 73 2e 0a 4f | type ch|anges..O|
|000004a0| 6e 20 72 65 63 65 69 76 | 69 6e 67 20 61 6e 20 69 |n receiv|ing an i|
|000004b0| 6e 74 65 72 72 75 70 74 | 2c 0a 2e 49 20 74 61 70 |nterrupt|,..I tap|
|000004c0| 72 64 0a 70 72 69 6e 74 | 73 20 61 20 73 75 6d 6d |rd.print|s a summ|
|000004d0| 61 72 79 20 62 65 66 6f | 72 65 20 74 65 72 6d 69 |ary befo|re termi|
|000004e0| 6e 61 74 69 6e 67 2e 0a | 2e 53 48 20 45 58 41 4d |nating..|.SH EXAM|
|000004f0| 50 4c 45 53 0a 74 61 70 | 72 64 20 2f 64 65 76 2f |PLES.tap|rd /dev/|
|00000500| 72 6d 74 30 0a 2e 53 48 | 20 53 45 45 20 41 4c 53 |rmt0..SH| SEE ALS|
|00000510| 4f 0a 6d 74 20 28 34 29 | 0a 53 48 41 52 5f 45 4f |O.mt (4)|.SHAR_EO|
|00000520| 46 0a 66 69 0a 69 66 20 | 74 65 73 74 20 2d 66 20 |F.fi.if |test -f |
|00000530| 27 74 61 70 72 64 2e 63 | 27 0a 74 68 65 6e 0a 09 |'taprd.c|'.then..|
|00000540| 65 63 68 6f 20 73 68 61 | 72 3a 20 22 77 69 6c 6c |echo sha|r: "will|
|00000550| 20 6e 6f 74 20 6f 76 65 | 72 2d 77 72 69 74 65 20 | not ove|r-write |
|00000560| 65 78 69 73 74 69 6e 67 | 20 66 69 6c 65 20 27 74 |existing| file 't|
|00000570| 61 70 72 64 2e 63 27 22 | 0a 65 6c 73 65 0a 63 61 |aprd.c'"|.else.ca|
|00000580| 74 20 3c 3c 20 5c 53 48 | 41 52 5f 45 4f 46 20 3e |t << \SH|AR_EOF >|
|00000590| 20 27 74 61 70 72 64 2e | 63 27 0a 2f 2a 0a 2a 2a | 'taprd.|c'./*.**|
|000005a0| 09 74 68 69 73 20 63 72 | 65 61 74 69 6f 6e 20 6a |.this cr|eation j|
|000005b0| 75 73 74 20 72 65 61 64 | 73 20 72 61 77 20 74 61 |ust read|s raw ta|
|000005c0| 70 65 20 66 69 6c 65 20 | 73 70 65 63 69 66 69 65 |pe file |specifie|
|000005d0| 64 20 61 73 0a 2a 2a 09 | 31 73 74 20 61 72 67 75 |d as.**.|1st argu|
|000005e0| 6d 65 6e 74 2e 20 20 69 | 74 20 74 68 65 6e 20 72 |ment.  i|t then r|
|000005f0| 65 70 6f 72 74 73 20 6f | 6e 20 72 65 63 6f 72 64 |eports o|n record|
|00000600| 20 73 69 7a 65 20 65 74 | 63 2e 20 20 6f 6e 0a 2a | size et|c.  on.*|
|00000610| 2a 09 64 6f 75 62 6c 65 | 20 74 61 70 65 6d 61 72 |*.double| tapemar|
|00000620| 6b 20 69 74 20 73 74 6f | 70 73 2e 0a 2a 2f 20 0a |k it sto|ps..*/ .|
|00000630| 0a 23 69 6e 63 6c 75 64 | 65 09 3c 73 79 73 2f 74 |.#includ|e.<sys/t|
|00000640| 79 70 65 73 2e 68 3e 0a | 23 69 6e 63 6c 75 64 65 |ypes.h>.|#include|
|00000650| 09 3c 73 79 73 2f 73 74 | 61 74 2e 68 3e 0a 23 69 |.<sys/st|at.h>.#i|
|00000660| 6e 63 6c 75 64 65 09 3c | 73 69 67 6e 61 6c 2e 68 |nclude.<|signal.h|
|00000670| 3e 0a 23 69 6e 63 6c 75 | 64 65 09 3c 73 74 64 69 |>.#inclu|de.<stdi|
|00000680| 6f 2e 68 3e 0a 23 69 6e | 63 6c 75 64 65 09 3c 66 |o.h>.#in|clude.<f|
|00000690| 63 6e 74 6c 2e 68 3e 0a | 0a 23 64 65 66 69 6e 65 |cntl.h>.|.#define|
|000006a0| 09 09 4e 42 55 46 09 34 | 34 09 2f 2a 20 4d 61 78 |..NBUF.4|4./* Max|
|000006b0| 69 6d 75 6d 20 73 69 7a | 65 20 74 61 70 65 20 62 |imum siz|e tape b|
|000006c0| 6c 6f 63 6b 20 6c 69 6b | 65 6c 79 20 74 6f 20 62 |lock lik|ely to b|
|000006d0| 65 20 65 6e 63 6f 75 6e | 74 65 72 65 64 20 2a 2f |e encoun|tered */|
|000006e0| 0a 23 64 65 66 69 6e 65 | 09 09 4e 45 52 52 09 31 |.#define|..NERR.1|
|000006f0| 30 09 2f 2a 20 4e 45 52 | 52 20 63 6f 6e 73 65 63 |0./* NER|R consec|
|00000700| 75 74 69 76 65 20 3d 3d | 3e 20 67 69 76 65 75 70 |utive ==|> giveup|
|00000710| 20 2a 2f 0a 0a 63 68 61 | 72 09 09 62 75 66 5b 4e | */..cha|r..buf[N|
|00000720| 42 55 46 2a 42 55 46 53 | 49 5a 5d 3b 0a 69 6e 74 |BUF*BUFS|IZ];.int|
|00000730| 09 09 66 6c 61 67 3b 0a | 69 6e 74 09 09 65 72 72 |..flag;.|int..err|
|00000740| 3b 0a 0a 63 61 74 63 68 | 28 73 29 0a 09 69 6e 74 |;..catch|(s)..int|
|00000750| 09 73 3b 0a 7b 0a 09 73 | 69 67 6e 61 6c 28 73 2c |.s;.{..s|ignal(s,|
|00000760| 20 53 49 47 5f 49 47 4e | 29 3b 0a 09 66 6c 61 67 | SIG_IGN|);..flag|
|00000770| 20 3d 20 31 3b 0a 7d 0a | 0a 6d 61 69 6e 28 61 72 | = 1;.}.|.main(ar|
|00000780| 67 63 2c 20 61 72 67 76 | 29 0a 09 69 6e 74 09 09 |gc, argv|)..int..|
|00000790| 61 72 67 63 3b 0a 09 63 | 68 61 72 20 2a 2a 09 09 |argc;..c|har **..|
|000007a0| 61 72 67 76 3b 0a 7b 0a | 09 72 65 67 69 73 74 65 |argv;.{.|.registe|
|000007b0| 72 09 69 6f 6c 64 3b 0a | 09 72 65 67 69 73 74 65 |r.iold;.|.registe|
|000007c0| 72 09 69 3b 0a 09 72 65 | 67 69 73 74 65 72 09 6e |r.i;..re|gister.n|
|000007d0| 72 65 63 3b 0a 09 72 65 | 67 69 73 74 65 72 09 69 |rec;..re|gister.i|
|000007e0| 6e 66 64 3b 0a 09 73 74 | 72 75 63 74 20 73 74 61 |nfd;..st|ruct sta|
|000007f0| 74 09 73 62 75 66 3b 0a | 0a 09 73 69 67 6e 61 6c |t.sbuf;.|..signal|
|00000800| 28 53 49 47 48 55 50 2c | 20 63 61 74 63 68 29 3b |(SIGHUP,| catch);|
|00000810| 0a 09 69 66 20 28 20 73 | 69 67 6e 61 6c 28 53 49 |..if ( s|ignal(SI|
|00000820| 47 49 4e 54 2c 20 53 49 | 47 5f 49 47 4e 29 20 3d |GINT, SI|G_IGN) =|
|00000830| 3d 20 53 49 47 5f 44 46 | 4c 20 29 0a 09 09 73 69 |= SIG_DF|L )...si|
|00000840| 67 6e 61 6c 28 53 49 47 | 49 4e 54 2c 20 63 61 74 |gnal(SIG|INT, cat|
|00000850| 63 68 29 3b 0a 09 69 66 | 20 28 20 73 69 67 6e 61 |ch);..if| ( signa|
|00000860| 6c 28 53 49 47 51 55 49 | 54 2c 20 53 49 47 5f 49 |l(SIGQUI|T, SIG_I|
|00000870| 47 4e 29 20 3d 3d 20 53 | 49 47 5f 44 46 4c 20 29 |GN) == S|IG_DFL )|
|00000880| 0a 09 09 73 69 67 6e 61 | 6c 28 53 49 47 51 55 49 |...signa|l(SIGQUI|
|00000890| 54 2c 20 63 61 74 63 68 | 29 3b 0a 0a 09 69 66 28 |T, catch|);...if(|
|000008a0| 61 72 67 63 20 21 3d 20 | 32 29 0a 09 7b 0a 09 09 |argc != |2)..{...|
|000008b0| 66 70 72 69 6e 74 66 28 | 73 74 64 65 72 72 2c 20 |fprintf(|stderr, |
|000008c0| 22 55 73 61 67 65 3a 20 | 25 73 20 66 69 6c 65 5c |"Usage: |%s file\|
|000008d0| 6e 22 2c 20 61 72 67 76 | 5b 30 5d 29 3b 0a 09 09 |n", argv|[0]);...|
|000008e0| 72 65 74 75 72 6e 20 32 | 3b 0a 09 7d 0a 0a 09 69 |return 2|;..}...i|
|000008f0| 66 28 28 69 6e 66 64 20 | 3d 20 6f 70 65 6e 28 61 |f((infd |= open(a|
|00000900| 72 67 76 5b 31 5d 2c 20 | 4f 5f 52 44 4f 4e 4c 59 |rgv[1], |O_RDONLY|
|00000910| 29 29 20 3d 3d 20 2d 31 | 29 0a 09 7b 0a 09 09 70 |)) == -1|)..{...p|
|00000920| 65 72 72 6f 72 28 61 72 | 67 76 5b 31 5d 29 3b 0a |error(ar|gv[1]);.|
|00000930| 09 09 72 65 74 75 72 6e | 20 32 3b 0a 09 7d 0a 0a |..return| 2;..}..|
|00000940| 09 66 73 74 61 74 28 69 | 6e 66 64 2c 20 26 73 62 |.fstat(i|nfd, &sb|
|00000950| 75 66 29 3b 0a 09 69 66 | 28 28 73 62 75 66 2e 73 |uf);..if|((sbuf.s|
|00000960| 74 5f 6d 6f 64 65 26 53 | 5f 49 46 4d 54 29 20 21 |t_mode&S|_IFMT) !|
|00000970| 3d 20 53 5f 49 46 43 48 | 52 29 0a 09 7b 0a 09 09 |= S_IFCH|R)..{...|
|00000980| 66 70 72 69 6e 74 66 28 | 73 74 64 65 72 72 2c 20 |fprintf(|stderr, |
|00000990| 22 25 73 20 6e 6f 74 20 | 61 20 72 61 77 20 64 65 |"%s not |a raw de|
|000009a0| 76 69 63 65 20 21 21 5c | 6e 22 2c 20 61 72 67 76 |vice !!\|n", argv|
|000009b0| 5b 31 5d 29 3b 0a 09 09 | 72 65 74 75 72 6e 20 32 |[1]);...|return 2|
|000009c0| 3b 0a 09 7d 0a 0a 09 6e | 72 65 63 20 3d 20 30 3b |;..}...n|rec = 0;|
|000009d0| 0a 09 69 6f 6c 64 20 3d | 20 72 65 61 64 28 69 6e |..iold =| read(in|
|000009e0| 66 64 2c 20 62 75 66 2c | 20 73 69 7a 65 6f 66 20 |fd, buf,| sizeof |
|000009f0| 62 75 66 29 3b 0a 09 66 | 6f 72 28 3b 3b 29 0a 09 |buf);..f|or(;;)..|
|00000a00| 7b 0a 09 09 6e 72 65 63 | 2b 2b 3b 0a 09 09 69 20 |{...nrec|++;...i |
|00000a10| 3d 20 72 65 61 64 28 69 | 6e 66 64 2c 20 62 75 66 |= read(i|nfd, buf|
|00000a20| 2c 20 73 69 7a 65 6f 66 | 20 62 75 66 29 3b 0a 09 |, sizeof| buf);..|
|00000a30| 09 69 66 28 69 20 3d 3d | 20 69 6f 6c 64 20 26 26 |.if(i ==| iold &&|
|00000a40| 20 69 20 3d 3d 20 30 29 | 0a 09 09 09 67 6f 74 6f | i == 0)|....goto|
|00000a50| 20 66 69 6e 69 3b 09 2f | 2a 20 63 6f 6e 73 69 64 | fini;./|* consid|
|00000a60| 65 72 65 64 20 65 6e 64 | 2d 6f 66 2d 74 61 70 65 |ered end|-of-tape|
|00000a70| 20 2a 2f 0a 09 09 69 66 | 20 28 20 28 69 3d 3d 69 | */...if| ( (i==i|
|00000a80| 6f 6c 64 29 20 26 26 20 | 28 69 3d 3d 2d 31 29 20 |old) && |(i==-1) |
|00000a90| 26 26 20 28 6e 72 65 63 | 3d 3d 4e 45 52 52 29 20 |&& (nrec|==NERR) |
|00000aa0| 29 0a 09 09 7b 0a 09 09 | 09 70 72 69 6e 74 66 28 |)...{...|.printf(|
|00000ab0| 22 25 64 20 63 6f 6e 73 | 65 63 75 74 69 76 65 20 |"%d cons|ecutive |
|00000ac0| 65 72 72 6f 72 73 3a 20 | 45 4f 54 20 61 73 73 75 |errors: |EOT assu|
|00000ad0| 6d 65 64 5c 6e 22 2c 4e | 45 52 52 29 3b 0a 09 09 |med\n",N|ERR);...|
|00000ae0| 09 72 65 74 75 72 6e 20 | 31 3b 0a 09 09 7d 0a 09 |.return |1;...}..|
|00000af0| 09 69 66 28 28 69 20 3d | 3d 20 69 6f 6c 64 29 20 |.if((i =|= iold) |
|00000b00| 26 26 20 21 66 6c 61 67 | 29 0a 09 09 09 63 6f 6e |&& !flag|)....con|
|00000b10| 74 69 6e 75 65 3b 0a 09 | 09 69 66 28 69 6f 6c 64 |tinue;..|.if(iold|
|00000b20| 29 0a 09 09 7b 0a 09 09 | 09 69 66 28 69 6f 6c 64 |)...{...|.if(iold|
|00000b30| 20 21 3d 20 2d 31 29 0a | 09 09 09 7b 0a 09 09 09 | != -1).|...{....|
|00000b40| 09 70 72 69 6e 74 66 28 | 22 25 36 64 2e 20 2a 20 |.printf(|"%6d. * |
|00000b50| 25 36 6f 28 25 36 64 2e | 29 5c 6e 22 2c 0a 09 09 |%6o(%6d.|)\n",...|
|00000b60| 09 09 09 6e 72 65 63 2c | 20 69 6f 6c 64 2c 20 69 |...nrec,| iold, i|
|00000b70| 6f 6c 64 29 3b 0a 09 09 | 09 7d 0a 09 09 09 65 6c |old);...|.}....el|
|00000b80| 73 65 0a 09 09 09 7b 0a | 09 09 09 09 70 72 69 6e |se....{.|....prin|
|00000b90| 74 66 28 22 25 36 64 2e | 20 2a 20 20 45 52 52 20 |tf("%6d.| *  ERR |
|00000ba0| 20 5c 6e 22 2c 20 6e 72 | 65 63 29 3b 0a 09 09 09 | \n", nr|ec);....|
|00000bb0| 09 65 72 72 2b 2b 3b 0a | 09 09 09 09 69 66 28 6e |.err++;.|....if(n|
|00000bc0| 72 65 63 20 3e 20 31 29 | 0a 09 09 09 09 09 72 65 |rec > 1)|......re|
|00000bd0| 74 75 72 6e 20 65 72 72 | 3b 0a 09 09 09 7d 0a 09 |turn err|;....}..|
|00000be0| 09 7d 0a 09 09 65 6c 73 | 65 0a 09 09 7b 0a 09 09 |.}...els|e...{...|
|00000bf0| 09 70 72 69 6e 74 66 28 | 22 5c 74 54 4d 5c 6e 22 |.printf(|"\tTM\n"|
|00000c00| 29 3b 0a 09 09 7d 0a 09 | 09 6e 72 65 63 20 3d 20 |);...}..|.nrec = |
|00000c10| 30 3b 0a 09 09 69 6f 6c | 64 20 3d 20 69 3b 0a 09 |0;...iol|d = i;..|
|00000c20| 09 69 66 28 66 6c 61 67 | 29 0a 09 09 7b 0a 09 09 |.if(flag|)...{...|
|00000c30| 09 70 72 69 6e 74 66 28 | 22 49 6e 74 65 72 72 75 |.printf(|"Interru|
|00000c40| 70 74 65 64 5c 6e 22 29 | 3b 0a 09 09 09 72 65 74 |pted\n")|;....ret|
|00000c50| 75 72 6e 20 31 3b 0a 09 | 09 7d 0a 09 7d 0a 66 69 |urn 1;..|.}..}.fi|
|00000c60| 6e 69 3a 0a 09 70 72 69 | 6e 74 66 28 22 5c 74 45 |ni:..pri|ntf("\tE|
|00000c70| 4f 54 5c 6e 22 29 3b 0a | 09 72 65 74 75 72 6e 20 |OT\n");.|.return |
|00000c80| 65 72 72 3b 0a 7d 0a 53 | 48 41 52 5f 45 4f 46 0a |err;.}.S|HAR_EOF.|
|00000c90| 66 69 0a 65 78 69 74 20 | 30 0a 23 09 45 6e 64 20 |fi.exit |0.#.End |
|00000ca0| 6f 66 20 73 68 65 6c 6c | 20 61 72 63 68 69 76 65 |of shell| archive|
|00000cb0| 0a                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+