home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: SHell self-extracting ARchive
(archive/shar).
You can browse this item here: xmodem
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| SHell self-extracting ARchive (archive/shar)
| magic
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| C source text
| default
| |
| 99%
| file
| C source, ASCII text
| default
| |
| 100%
| checkBytes
| Printable ASCII
| default
| |
| 100%
| perlTextCheck
| Likely Text (Perl)
| default
| |
| 100%
| siegfried
| fmt/329 Shell Archive Format
| default
| |
| 100%
| detectItEasy
| Format: plain text[LF]
| default (weak)
| |
| 100%
| xdgMime
| message/rfc822
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 53 75 62 6a 65 63 74 3a | 20 34 2e 32 42 53 44 20 |Subject:| 4.2BSD |
|00000010| 58 4d 4f 44 45 4d 20 70 | 72 6f 67 72 61 6d 73 0a |XMODEM p|rograms.|
|00000020| 4e 65 77 73 67 72 6f 75 | 70 73 3a 20 6d 6f 64 2e |Newsgrou|ps: mod.|
|00000030| 73 6f 75 72 63 65 73 0a | 41 70 70 72 6f 76 65 64 |sources.|Approved|
|00000040| 3a 20 6a 70 6e 40 70 61 | 6e 64 61 2e 55 55 43 50 |: jpn@pa|nda.UUCP|
|00000050| 0a 0a 4d 6f 64 2e 73 6f | 75 72 63 65 73 3a 20 20 |..Mod.so|urces: |
|00000060| 56 6f 6c 75 6d 65 20 34 | 2c 20 49 73 73 75 65 20 |Volume 4|, Issue |
|00000070| 31 31 38 0a 53 75 62 6d | 69 74 74 65 64 20 62 79 |118.Subm|itted by|
|00000080| 3a 20 73 65 69 73 6d 6f | 21 75 77 76 61 78 21 6e |: seismo|!uwvax!n|
|00000090| 69 63 6d 61 64 21 62 72 | 6f 77 6e 20 28 4d 72 2e |icmad!br|own (Mr.|
|000000a0| 20 56 69 64 65 6f 29 0a | 0a 23 21 20 2f 62 69 6e | Video).|.#! /bin|
|000000b0| 2f 73 68 0a 23 20 54 68 | 69 73 20 69 73 20 61 20 |/sh.# Th|is is a |
|000000c0| 73 68 65 6c 6c 20 61 72 | 63 68 69 76 65 2c 20 6d |shell ar|chive, m|
|000000d0| 65 61 6e 69 6e 67 3a 0a | 23 20 31 2e 20 52 65 6d |eaning:.|# 1. Rem|
|000000e0| 6f 76 65 20 65 76 65 72 | 79 74 68 69 6e 67 20 61 |ove ever|ything a|
|000000f0| 62 6f 76 65 20 74 68 65 | 20 23 21 20 2f 62 69 6e |bove the| #! /bin|
|00000100| 2f 73 68 20 6c 69 6e 65 | 2e 0a 23 20 32 2e 20 53 |/sh line|..# 2. S|
|00000110| 61 76 65 20 74 68 65 20 | 72 65 73 75 6c 74 69 6e |ave the |resultin|
|00000120| 67 20 74 65 78 74 20 69 | 6e 20 61 20 66 69 6c 65 |g text i|n a file|
|00000130| 2e 0a 23 20 33 2e 20 45 | 78 65 63 75 74 65 20 74 |..# 3. E|xecute t|
|00000140| 68 65 20 66 69 6c 65 20 | 77 69 74 68 20 2f 62 69 |he file |with /bi|
|00000150| 6e 2f 73 68 20 28 6e 6f | 74 20 63 73 68 29 20 74 |n/sh (no|t csh) t|
|00000160| 6f 20 63 72 65 61 74 65 | 20 74 68 65 20 66 69 6c |o create| the fil|
|00000170| 65 73 3a 0a 23 09 52 45 | 41 44 4d 45 0a 23 09 78 |es:.#.RE|ADME.#.x|
|00000180| 6d 6f 64 72 65 63 2e 31 | 0a 23 09 78 6d 6f 64 74 |modrec.1|.#.xmodt|
|00000190| 72 61 6e 2e 31 0a 23 09 | 4d 61 6b 65 66 69 6c 65 |ran.1.#.|Makefile|
|000001a0| 0a 23 09 61 64 64 2e 63 | 0a 23 09 61 64 64 63 72 |.#.add.c|.#.addcr|
|000001b0| 2e 63 0a 23 09 61 64 64 | 6c 66 2e 63 0a 23 09 63 |.c.#.add|lf.c.#.c|
|000001c0| 6f 70 79 2e 63 0a 23 09 | 63 72 2e 63 0a 23 09 63 |opy.c.#.|cr.c.#.c|
|000001d0| 72 32 6c 66 2e 63 0a 23 | 09 64 65 6c 2e 63 0a 23 |r2lf.c.#|.del.c.#|
|000001e0| 09 64 65 6c 63 72 2e 63 | 0a 23 09 6c 66 2e 63 0a |.delcr.c|.#.lf.c.|
|000001f0| 23 09 6c 66 32 63 72 2e | 63 0a 23 09 72 65 63 65 |#.lf2cr.|c.#.rece|
|00000200| 69 76 65 2e 63 0a 23 09 | 74 6f 5f 70 63 2e 63 0a |ive.c.#.|to_pc.c.|
|00000210| 23 09 74 6f 5f 76 61 78 | 2e 63 0a 23 09 74 72 61 |#.to_vax|.c.#.tra|
|00000220| 6e 73 6d 69 74 2e 63 0a | 23 20 54 68 69 73 20 61 |nsmit.c.|# This a|
|00000230| 72 63 68 69 76 65 20 63 | 72 65 61 74 65 64 3a 20 |rchive c|reated: |
|00000240| 4d 6f 6e 20 4d 61 79 20 | 31 32 20 32 33 3a 32 32 |Mon May |12 23:22|
|00000250| 3a 35 33 20 31 39 38 36 | 0a 65 78 70 6f 72 74 20 |:53 1986|.export |
|00000260| 50 41 54 48 3b 20 50 41 | 54 48 3d 2f 62 69 6e 3a |PATH; PA|TH=/bin:|
|00000270| 24 50 41 54 48 0a 65 63 | 68 6f 20 73 68 61 72 3a |$PATH.ec|ho shar:|
|00000280| 20 65 78 74 72 61 63 74 | 69 6e 67 20 22 27 52 45 | extract|ing "'RE|
|00000290| 41 44 4d 45 27 22 20 27 | 28 36 38 34 20 63 68 61 |ADME'" '|(684 cha|
|000002a0| 72 61 63 74 65 72 73 29 | 27 0a 69 66 20 74 65 73 |racters)|'.if tes|
|000002b0| 74 20 2d 66 20 27 52 45 | 41 44 4d 45 27 0a 74 68 |t -f 'RE|ADME'.th|
|000002c0| 65 6e 0a 09 65 63 68 6f | 20 73 68 61 72 3a 20 77 |en..echo| shar: w|
|000002d0| 69 6c 6c 20 6e 6f 74 20 | 6f 76 65 72 2d 77 72 69 |ill not |over-wri|
|000002e0| 74 65 20 65 78 69 73 74 | 69 6e 67 20 66 69 6c 65 |te exist|ing file|
|000002f0| 20 22 27 52 45 41 44 4d | 45 27 22 0a 65 6c 73 65 | "'READM|E'".else|
|00000300| 0a 63 61 74 20 3c 3c 20 | 5c 53 48 41 52 5f 45 4f |.cat << |\SHAR_EO|
|00000310| 46 20 3e 20 27 52 45 41 | 44 4d 45 27 0a 54 6f 20 |F > 'REA|DME'.To |
|00000320| 63 72 65 61 74 65 20 74 | 68 65 20 74 77 6f 20 78 |create t|he two x|
|00000330| 6d 6f 64 65 6d 20 70 72 | 6f 67 72 61 6d 73 2c 20 |modem pr|ograms, |
|00000340| 72 75 6e 3a 0a 09 6d 61 | 6b 65 20 61 6c 6c 0a 0a |run:..ma|ke all..|
|00000350| 54 6f 20 28 63 6f 6d 70 | 69 6c 65 20 61 6e 64 29 |To (comp|ile and)|
|00000360| 20 69 6e 73 74 61 6c 6c | 20 72 75 6e 3a 0a 09 6d | install| run:..m|
|00000370| 61 6b 65 20 69 6e 73 74 | 61 6c 6c 0a 0a 54 68 65 |ake inst|all..The|
|00000380| 72 65 20 61 72 65 20 74 | 77 6f 20 6d 61 6e 75 61 |re are t|wo manua|
|00000390| 6c 20 66 69 6c 65 73 3a | 20 78 6d 6f 64 74 72 61 |l files:| xmodtra|
|000003a0| 6e 2e 31 20 61 6e 64 20 | 78 6d 6f 64 72 65 63 2e |n.1 and |xmodrec.|
|000003b0| 31 0a 0a 54 68 65 20 74 | 77 6f 20 63 6f 6d 70 69 |1..The t|wo compi|
|000003c0| 6c 65 64 20 70 72 6f 67 | 72 61 6d 73 2c 20 78 6d |led prog|rams, xm|
|000003d0| 6f 64 72 65 63 20 61 6e | 64 20 78 6d 6f 64 74 72 |odrec an|d xmodtr|
|000003e0| 61 6e 2c 20 77 69 6c 6c | 20 62 65 20 6d 6f 76 65 |an, will| be move|
|000003f0| 64 20 74 6f 20 74 68 65 | 0a 2f 75 73 72 2f 6c 6f |d to the|./usr/lo|
|00000400| 63 61 6c 20 64 69 72 65 | 63 74 6f 72 79 2e 20 20 |cal dire|ctory. |
|00000410| 49 66 20 74 68 69 73 20 | 69 73 20 6e 6f 74 20 77 |If this |is not w|
|00000420| 68 65 72 65 20 79 6f 75 | 20 77 61 6e 74 20 74 68 |here you| want th|
|00000430| 65 6d 2c 20 63 68 61 6e | 67 65 20 74 68 65 0a 4d |em, chan|ge the.M|
|00000440| 61 6b 65 66 69 6c 65 20 | 24 50 41 54 48 20 76 61 |akefile |$PATH va|
|00000450| 72 69 61 62 6c 65 20 74 | 6f 20 77 68 61 74 20 79 |riable t|o what y|
|00000460| 6f 75 20 77 61 6e 74 20 | 66 6f 72 20 79 6f 75 72 |ou want |for your|
|00000470| 20 73 79 73 74 65 6d 2e | 0a 0a 54 68 65 20 70 72 | system.|..The pr|
|00000480| 6f 67 72 61 6d 73 20 61 | 72 65 20 62 65 69 6e 67 |ograms a|re being|
|00000490| 20 75 73 65 64 20 6f 6e | 20 61 20 56 41 58 20 37 | used on| a VAX 7|
|000004a0| 35 30 20 77 69 74 68 20 | 42 53 44 20 34 2e 32 2e |50 with |BSD 4.2.|
|000004b0| 20 20 54 68 65 79 20 61 | 72 65 20 75 73 65 64 0a | They a|re used.|
|000004c0| 74 6f 20 74 72 61 6e 73 | 66 65 72 20 64 61 74 61 |to trans|fer data|
|000004d0| 20 62 65 74 77 65 65 6e | 20 50 43 73 20 61 6e 64 | between| PCs and|
|000004e0| 20 74 68 65 20 56 41 58 | 2e 0a 0a 49 66 20 79 6f | the VAX|...If yo|
|000004f0| 75 20 68 61 76 65 20 61 | 6e 79 20 71 75 65 73 74 |u have a|ny quest|
|00000500| 69 6f 6e 73 20 6f 72 20 | 63 6f 6d 6d 65 6e 74 73 |ions or |comments|
|00000510| 2c 20 73 65 6e 64 20 55 | 55 43 50 20 6d 61 69 6c |, send U|UCP mail|
|00000520| 20 74 6f 3a 0a 0a 20 20 | 20 20 20 20 20 20 20 20 | to:.. | |
|00000530| 20 20 20 20 69 68 6e 70 | 34 2d 2d 2d 2d 2d 2d 5c | ihnp|4------\|
|00000540| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 68 61 72 |. | har|
|00000550| 76 61 72 64 2d 5c 20 20 | 20 20 20 5c 0a 20 20 20 |vard-\ | \. |
|00000560| 20 20 20 20 20 20 20 20 | 20 20 20 20 73 65 69 73 | | seis|
|00000570| 6d 6f 21 75 77 76 61 78 | 21 6e 69 63 6d 61 64 21 |mo!uwvax|!nicmad!|
|00000580| 62 72 6f 77 6e 0a 20 20 | 20 20 20 20 20 20 20 20 |brown. | |
|00000590| 20 20 20 20 74 6f 70 61 | 7a 2d 2f 20 20 20 20 20 | topa|z-/ |
|000005a0| 2f 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 64 |/. | d|
|000005b0| 65 63 76 61 78 2d 2d 2d | 2d 2d 2d 2f 0a 0a 4d 69 |ecvax---|---/..Mi|
|000005c0| 6b 65 20 42 72 6f 77 6e | 0a 53 48 41 52 5f 45 4f |ke Brown|.SHAR_EO|
|000005d0| 46 0a 69 66 20 74 65 73 | 74 20 36 38 34 20 2d 6e |F.if tes|t 684 -n|
|000005e0| 65 20 22 60 77 63 20 2d | 63 20 3c 20 27 52 45 41 |e "`wc -|c < 'REA|
|000005f0| 44 4d 45 27 60 22 0a 74 | 68 65 6e 0a 09 65 63 68 |DME'`".t|hen..ech|
|00000600| 6f 20 73 68 61 72 3a 20 | 65 72 72 6f 72 20 74 72 |o shar: |error tr|
|00000610| 61 6e 73 6d 69 74 74 69 | 6e 67 20 22 27 52 45 41 |ansmitti|ng "'REA|
|00000620| 44 4d 45 27 22 20 27 28 | 73 68 6f 75 6c 64 20 68 |DME'" '(|should h|
|00000630| 61 76 65 20 62 65 65 6e | 20 36 38 34 20 63 68 61 |ave been| 684 cha|
|00000640| 72 61 63 74 65 72 73 29 | 27 0a 66 69 0a 66 69 0a |racters)|'.fi.fi.|
|00000650| 65 63 68 6f 20 73 68 61 | 72 3a 20 65 78 74 72 61 |echo sha|r: extra|
|00000660| 63 74 69 6e 67 20 22 27 | 78 6d 6f 64 72 65 63 2e |cting "'|xmodrec.|
|00000670| 31 27 22 20 27 28 35 37 | 39 20 63 68 61 72 61 63 |1'" '(57|9 charac|
|00000680| 74 65 72 73 29 27 0a 69 | 66 20 74 65 73 74 20 2d |ters)'.i|f test -|
|00000690| 66 20 27 78 6d 6f 64 72 | 65 63 2e 31 27 0a 74 68 |f 'xmodr|ec.1'.th|
|000006a0| 65 6e 0a 09 65 63 68 6f | 20 73 68 61 72 3a 20 77 |en..echo| shar: w|
|000006b0| 69 6c 6c 20 6e 6f 74 20 | 6f 76 65 72 2d 77 72 69 |ill not |over-wri|
|000006c0| 74 65 20 65 78 69 73 74 | 69 6e 67 20 66 69 6c 65 |te exist|ing file|
|000006d0| 20 22 27 78 6d 6f 64 72 | 65 63 2e 31 27 22 0a 65 | "'xmodr|ec.1'".e|
|000006e0| 6c 73 65 0a 63 61 74 20 | 3c 3c 20 5c 53 48 41 52 |lse.cat |<< \SHAR|
|000006f0| 5f 45 4f 46 20 3e 20 27 | 78 6d 6f 64 72 65 63 2e |_EOF > '|xmodrec.|
|00000700| 31 27 0a 2e 54 48 20 58 | 4d 4f 44 52 45 43 20 31 |1'..TH X|MODREC 1|
|00000710| 0a 2e 53 48 20 4e 41 4d | 45 0a 78 6d 6f 64 72 65 |..SH NAM|E.xmodre|
|00000720| 63 20 5c 2d 20 72 65 63 | 65 69 76 65 20 66 69 6c |c \- rec|eive fil|
|00000730| 65 20 75 73 69 6e 67 20 | 58 4d 4f 44 45 4d 20 70 |e using |XMODEM p|
|00000740| 72 6f 74 6f 63 6f 6c 0a | 2e 53 48 20 53 59 4e 4f |rotocol.|.SH SYNO|
|00000750| 50 53 49 53 0a 2e 42 20 | 78 6d 6f 64 72 65 63 0a |PSIS..B |xmodrec.|
|00000760| 5b 0a 2e 42 20 5c 2d 74 | 0a 5d 20 66 69 6c 65 6e |[..B \-t|.] filen|
|00000770| 61 6d 65 0a 2e 53 48 20 | 44 45 53 43 52 49 50 54 |ame..SH |DESCRIPT|
|00000780| 49 4f 4e 0a 2e 49 20 58 | 6d 6f 64 72 65 63 0a 69 |ION..I X|modrec.i|
|00000790| 73 20 75 73 65 64 20 74 | 6f 20 72 65 63 65 69 76 |s used t|o receiv|
|000007a0| 65 20 61 20 66 69 6c 65 | 20 66 72 6f 6d 20 61 6e |e a file| from an|
|000007b0| 6f 74 68 65 72 20 63 6f | 6d 70 75 74 65 72 2c 20 |other co|mputer, |
|000007c0| 69 65 2c 20 49 42 4d 20 | 50 43 20 6f 72 20 6c 6f |ie, IBM |PC or lo|
|000007d0| 6f 6b 2d 61 6c 69 6b 65 | 2e 0a 54 68 65 20 63 6f |ok-alike|..The co|
|000007e0| 6d 70 75 74 65 72 20 66 | 72 6f 6d 20 77 68 69 63 |mputer f|rom whic|
|000007f0| 68 20 74 68 65 20 66 69 | 6c 65 20 69 73 20 74 6f |h the fi|le is to|
|00000800| 20 62 65 20 72 65 63 65 | 69 76 65 64 20 6d 75 73 | be rece|ived mus|
|00000810| 74 20 61 6c 73 6f 20 68 | 61 76 65 20 74 68 65 0a |t also h|ave the.|
|00000820| 58 4d 4f 44 45 4d 20 70 | 72 6f 74 6f 63 6f 6c 2e |XMODEM p|rotocol.|
|00000830| 0a 2e 50 50 0a 54 68 69 | 73 20 76 65 72 73 69 6f |..PP.Thi|s versio|
|00000840| 6e 20 6f 66 20 58 4d 4f | 44 45 4d 20 75 73 65 73 |n of XMO|DEM uses|
|00000850| 20 74 68 65 20 63 68 65 | 63 6b 73 75 6d 20 6d 65 | the che|cksum me|
|00000860| 74 68 6f 64 20 6f 66 20 | 65 72 72 6f 72 20 64 65 |thod of |error de|
|00000870| 74 65 63 74 69 6f 6e 2e | 0a 2e 50 50 0a 4f 70 74 |tection.|..PP.Opt|
|00000880| 69 6f 6e 73 3a 0a 2e 54 | 50 20 36 0a 2e 42 20 20 |ions:..T|P 6..B |
|00000890| 5c 2d 74 0a 52 65 6d 6f | 76 65 20 74 68 65 20 63 |\-t.Remo|ve the c|
|000008a0| 61 72 72 69 61 67 65 20 | 72 65 74 75 72 6e 73 20 |arriage |returns |
|000008b0| 66 72 6f 6d 20 74 68 65 | 20 69 6e 63 6f 6d 69 6e |from the| incomin|
|000008c0| 67 20 64 61 74 61 2e 20 | 20 41 6c 73 6f 20 72 65 |g data. | Also re|
|000008d0| 6d 6f 76 65 73 20 74 68 | 65 20 5e 5a 0a 65 6e 64 |moves th|e ^Z.end|
|000008e0| 2d 6f 66 2d 66 69 6c 65 | 20 6d 61 72 6b 65 72 20 |-of-file| marker |
|000008f0| 61 6e 64 20 61 6e 79 20 | 64 61 74 61 20 61 66 74 |and any |data aft|
|00000900| 65 72 20 69 74 2e 0a 2e | 53 48 20 41 55 54 48 4f |er it...|SH AUTHO|
|00000910| 52 0a 4a 69 6d 20 48 65 | 69 6e 20 7b 69 68 6e 70 |R.Jim He|in {ihnp|
|00000920| 34 2c 73 65 69 73 6d 6f | 7d 21 75 77 76 61 78 21 |4,seismo|}!uwvax!|
|00000930| 61 73 74 72 6f 61 74 63 | 21 6e 69 63 6d 61 64 21 |astroatc|!nicmad!|
|00000940| 6a 68 65 69 6e 0a 53 48 | 41 52 5f 45 4f 46 0a 69 |jhein.SH|AR_EOF.i|
|00000950| 66 20 74 65 73 74 20 35 | 37 39 20 2d 6e 65 20 22 |f test 5|79 -ne "|
|00000960| 60 77 63 20 2d 63 20 3c | 20 27 78 6d 6f 64 72 65 |`wc -c <| 'xmodre|
|00000970| 63 2e 31 27 60 22 0a 74 | 68 65 6e 0a 09 65 63 68 |c.1'`".t|hen..ech|
|00000980| 6f 20 73 68 61 72 3a 20 | 65 72 72 6f 72 20 74 72 |o shar: |error tr|
|00000990| 61 6e 73 6d 69 74 74 69 | 6e 67 20 22 27 78 6d 6f |ansmitti|ng "'xmo|
|000009a0| 64 72 65 63 2e 31 27 22 | 20 27 28 73 68 6f 75 6c |drec.1'"| '(shoul|
|000009b0| 64 20 68 61 76 65 20 62 | 65 65 6e 20 35 37 39 20 |d have b|een 579 |
|000009c0| 63 68 61 72 61 63 74 65 | 72 73 29 27 0a 66 69 0a |characte|rs)'.fi.|
|000009d0| 66 69 0a 65 63 68 6f 20 | 73 68 61 72 3a 20 65 78 |fi.echo |shar: ex|
|000009e0| 74 72 61 63 74 69 6e 67 | 20 22 27 78 6d 6f 64 74 |tracting| "'xmodt|
|000009f0| 72 61 6e 2e 31 27 22 20 | 27 28 36 31 34 20 63 68 |ran.1'" |'(614 ch|
|00000a00| 61 72 61 63 74 65 72 73 | 29 27 0a 69 66 20 74 65 |aracters|)'.if te|
|00000a10| 73 74 20 2d 66 20 27 78 | 6d 6f 64 74 72 61 6e 2e |st -f 'x|modtran.|
|00000a20| 31 27 0a 74 68 65 6e 0a | 09 65 63 68 6f 20 73 68 |1'.then.|.echo sh|
|00000a30| 61 72 3a 20 77 69 6c 6c | 20 6e 6f 74 20 6f 76 65 |ar: will| not ove|
|00000a40| 72 2d 77 72 69 74 65 20 | 65 78 69 73 74 69 6e 67 |r-write |existing|
|00000a50| 20 66 69 6c 65 20 22 27 | 78 6d 6f 64 74 72 61 6e | file "'|xmodtran|
|00000a60| 2e 31 27 22 0a 65 6c 73 | 65 0a 63 61 74 20 3c 3c |.1'".els|e.cat <<|
|00000a70| 20 5c 53 48 41 52 5f 45 | 4f 46 20 3e 20 27 78 6d | \SHAR_E|OF > 'xm|
|00000a80| 6f 64 74 72 61 6e 2e 31 | 27 0a 2e 54 48 20 58 4d |odtran.1|'..TH XM|
|00000a90| 4f 44 54 52 41 4e 20 31 | 0a 2e 53 48 20 4e 41 4d |ODTRAN 1|..SH NAM|
|00000aa0| 45 0a 78 6d 6f 64 74 72 | 61 6e 20 5c 2d 20 74 72 |E.xmodtr|an \- tr|
|00000ab0| 61 6e 73 6d 69 74 20 61 | 20 66 69 6c 65 20 75 73 |ansmit a| file us|
|00000ac0| 69 6e 67 20 58 4d 4f 44 | 45 4d 20 70 72 6f 74 6f |ing XMOD|EM proto|
|00000ad0| 63 6f 6c 0a 2e 53 48 20 | 53 59 4e 4f 50 53 49 53 |col..SH |SYNOPSIS|
|00000ae0| 0a 2e 42 20 78 6d 6f 64 | 74 72 61 6e 0a 5b 0a 2e |..B xmod|tran.[..|
|00000af0| 42 20 5c 2d 74 0a 5d 20 | 66 69 6c 65 6e 61 6d 65 |B \-t.] |filename|
|00000b00| 0a 2e 53 48 20 44 45 53 | 43 52 49 50 54 49 4f 4e |..SH DES|CRIPTION|
|00000b10| 0a 2e 49 20 58 6d 6f 64 | 74 72 61 6e 0a 69 73 20 |..I Xmod|tran.is |
|00000b20| 75 73 65 64 20 74 6f 20 | 74 72 61 6e 73 6d 69 74 |used to |transmit|
|00000b30| 20 61 20 66 69 6c 65 20 | 74 6f 20 61 6e 6f 74 68 | a file |to anoth|
|00000b40| 65 72 20 63 6f 6d 70 75 | 74 65 72 2c 20 69 65 2c |er compu|ter, ie,|
|00000b50| 20 49 42 4d 20 50 43 20 | 6f 72 20 6c 6f 6f 6b 2d | IBM PC |or look-|
|00000b60| 61 6c 69 6b 65 2e 0a 54 | 68 65 20 63 6f 6d 70 75 |alike..T|he compu|
|00000b70| 74 65 72 20 74 6f 20 77 | 68 69 63 68 20 74 68 65 |ter to w|hich the|
|00000b80| 20 66 69 6c 65 20 69 73 | 20 74 6f 20 62 65 20 74 | file is| to be t|
|00000b90| 72 61 6e 73 6d 69 74 74 | 65 64 20 6d 75 73 74 20 |ransmitt|ed must |
|00000ba0| 61 6c 73 6f 20 68 61 76 | 65 20 74 68 65 0a 58 4d |also hav|e the.XM|
|00000bb0| 4f 44 45 4d 20 70 72 6f | 74 6f 63 6f 6c 2e 0a 2e |ODEM pro|tocol...|
|00000bc0| 50 50 0a 54 68 69 73 20 | 76 65 72 73 69 6f 6e 20 |PP.This |version |
|00000bd0| 6f 66 20 58 4d 4f 44 45 | 4d 20 75 73 65 73 20 74 |of XMODE|M uses t|
|00000be0| 68 65 20 63 68 65 63 6b | 73 75 6d 20 6d 65 74 68 |he check|sum meth|
|00000bf0| 6f 64 20 6f 66 20 65 72 | 72 6f 72 20 64 65 74 65 |od of er|ror dete|
|00000c00| 63 74 69 6f 6e 2e 0a 2e | 50 50 0a 4f 70 74 69 6f |ction...|PP.Optio|
|00000c10| 6e 73 3a 0a 2e 54 50 20 | 36 0a 2e 42 20 20 5c 2d |ns:..TP |6..B \-|
|00000c20| 74 0a 41 64 64 73 20 63 | 61 72 72 69 61 67 65 20 |t.Adds c|arriage |
|00000c30| 72 65 74 75 72 6e 73 20 | 74 6f 20 65 61 63 68 20 |returns |to each |
|00000c40| 6c 69 6e 65 20 6f 66 20 | 64 61 74 61 20 62 65 69 |line of |data bei|
|00000c50| 6e 67 20 74 72 61 6e 73 | 6d 69 74 74 65 64 2e 20 |ng trans|mitted. |
|00000c60| 20 53 6f 6d 65 20 63 6f | 6d 70 75 74 65 72 73 0a | Some co|mputers.|
|00000c70| 72 65 71 75 69 72 65 20 | 74 68 61 74 20 74 68 65 |require |that the|
|00000c80| 20 74 65 78 74 20 66 69 | 6c 65 20 68 61 76 65 20 | text fi|le have |
|00000c90| 61 20 43 52 2f 4c 46 20 | 61 74 20 74 68 65 20 65 |a CR/LF |at the e|
|00000ca0| 6e 64 20 6f 66 20 65 61 | 63 68 20 6c 69 6e 65 2e |nd of ea|ch line.|
|00000cb0| 0a 2e 53 48 20 41 55 54 | 48 4f 52 0a 4a 69 6d 20 |..SH AUT|HOR.Jim |
|00000cc0| 48 65 69 6e 20 7b 69 68 | 6e 70 34 2c 73 65 69 73 |Hein {ih|np4,seis|
|00000cd0| 6d 6f 7d 21 75 77 76 61 | 78 21 61 73 74 72 6f 61 |mo}!uwva|x!astroa|
|00000ce0| 74 63 21 6e 69 63 6d 61 | 64 21 6a 68 65 69 6e 0a |tc!nicma|d!jhein.|
|00000cf0| 53 48 41 52 5f 45 4f 46 | 0a 69 66 20 74 65 73 74 |SHAR_EOF|.if test|
|00000d00| 20 36 31 34 20 2d 6e 65 | 20 22 60 77 63 20 2d 63 | 614 -ne| "`wc -c|
|00000d10| 20 3c 20 27 78 6d 6f 64 | 74 72 61 6e 2e 31 27 60 | < 'xmod|tran.1'`|
|00000d20| 22 0a 74 68 65 6e 0a 09 | 65 63 68 6f 20 73 68 61 |".then..|echo sha|
|00000d30| 72 3a 20 65 72 72 6f 72 | 20 74 72 61 6e 73 6d 69 |r: error| transmi|
|00000d40| 74 74 69 6e 67 20 22 27 | 78 6d 6f 64 74 72 61 6e |tting "'|xmodtran|
|00000d50| 2e 31 27 22 20 27 28 73 | 68 6f 75 6c 64 20 68 61 |.1'" '(s|hould ha|
|00000d60| 76 65 20 62 65 65 6e 20 | 36 31 34 20 63 68 61 72 |ve been |614 char|
|00000d70| 61 63 74 65 72 73 29 27 | 0a 66 69 0a 66 69 0a 65 |acters)'|.fi.fi.e|
|00000d80| 63 68 6f 20 73 68 61 72 | 3a 20 65 78 74 72 61 63 |cho shar|: extrac|
|00000d90| 74 69 6e 67 20 22 27 4d | 61 6b 65 66 69 6c 65 27 |ting "'M|akefile'|
|00000da0| 22 20 27 28 31 33 34 30 | 20 63 68 61 72 61 63 74 |" '(1340| charact|
|00000db0| 65 72 73 29 27 0a 69 66 | 20 74 65 73 74 20 2d 66 |ers)'.if| test -f|
|00000dc0| 20 27 4d 61 6b 65 66 69 | 6c 65 27 0a 74 68 65 6e | 'Makefi|le'.then|
|00000dd0| 0a 09 65 63 68 6f 20 73 | 68 61 72 3a 20 77 69 6c |..echo s|har: wil|
|00000de0| 6c 20 6e 6f 74 20 6f 76 | 65 72 2d 77 72 69 74 65 |l not ov|er-write|
|00000df0| 20 65 78 69 73 74 69 6e | 67 20 66 69 6c 65 20 22 | existin|g file "|
|00000e00| 27 4d 61 6b 65 66 69 6c | 65 27 22 0a 65 6c 73 65 |'Makefil|e'".else|
|00000e10| 0a 63 61 74 20 3c 3c 20 | 5c 53 48 41 52 5f 45 4f |.cat << |\SHAR_EO|
|00000e20| 46 20 3e 20 27 4d 61 6b | 65 66 69 6c 65 27 0a 46 |F > 'Mak|efile'.F|
|00000e30| 49 4c 45 53 09 3d 20 72 | 65 63 65 69 76 65 2e 63 |ILES.= r|eceive.c|
|00000e40| 20 74 72 61 6e 73 6d 69 | 74 2e 63 20 61 64 64 63 | transmi|t.c addc|
|00000e50| 72 2e 63 20 64 65 6c 63 | 72 2e 63 20 61 64 64 2e |r.c delc|r.c add.|
|00000e60| 63 20 64 65 6c 2e 63 5c | 0a 20 20 20 20 20 20 20 |c del.c\|. |
|00000e70| 20 20 20 6c 66 32 63 72 | 2e 63 20 63 72 2e 63 20 | lf2cr|.c cr.c |
|00000e80| 6c 66 2e 63 20 63 72 32 | 6c 66 2e 63 0a 4f 42 4a |lf.c cr2|lf.c.OBJ|
|00000e90| 53 09 3d 20 72 65 63 65 | 69 76 65 2e 6f 20 74 72 |S.= rece|ive.o tr|
|00000ea0| 61 6e 73 6d 69 74 2e 6f | 20 61 64 64 63 72 2e 6f |ansmit.o| addcr.o|
|00000eb0| 20 64 65 6c 63 72 2e 6f | 20 61 64 64 2e 6f 20 64 | delcr.o| add.o d|
|00000ec0| 65 6c 2e 6f 5c 0a 20 20 | 20 20 20 20 20 20 20 20 |el.o\. | |
|00000ed0| 6c 66 32 63 72 2e 6f 20 | 63 72 2e 6f 20 6c 66 2e |lf2cr.o |cr.o lf.|
|00000ee0| 6f 20 63 72 32 6c 66 2e | 6f 0a 4c 49 42 53 20 09 |o cr2lf.|o.LIBS .|
|00000ef0| 3d 20 2d 6c 63 75 72 73 | 65 73 20 2d 6c 74 65 72 |= -lcurs|es -lter|
|00000f00| 6d 6c 69 62 0a 46 4c 41 | 47 53 09 3d 20 2d 4f 20 |mlib.FLA|GS.= -O |
|00000f10| 2d 63 20 2d 49 2f 73 79 | 73 2f 68 0a 50 41 54 48 |-c -I/sy|s/h.PATH|
|00000f20| 09 3d 20 2f 75 73 72 2f | 6c 6f 63 61 6c 0a 61 6c |.= /usr/|local.al|
|00000f30| 6c 3a 09 09 72 65 63 65 | 69 76 65 20 74 72 61 6e |l:..rece|ive tran|
|00000f40| 73 6d 69 74 0a 63 6c 65 | 61 6e 3a 0a 09 09 72 6d |smit.cle|an:...rm|
|00000f50| 20 2d 66 20 24 28 4f 42 | 4a 53 29 20 72 65 63 65 | -f $(OB|JS) rece|
|00000f60| 69 76 65 20 74 72 61 6e | 73 6d 69 74 0a 70 72 3a |ive tran|smit.pr:|
|00000f70| 0a 09 09 6c 70 72 20 2d | 50 6c 70 20 24 28 46 49 |...lpr -|Plp $(FI|
|00000f80| 4c 45 53 29 0a 69 6e 73 | 74 61 6c 6c 3a 09 72 65 |LES).ins|tall:.re|
|00000f90| 63 65 69 76 65 20 74 72 | 61 6e 73 6d 69 74 0a 09 |ceive tr|ansmit..|
|00000fa0| 09 73 74 72 69 70 20 72 | 65 63 65 69 76 65 0a 09 |.strip r|eceive..|
|00000fb0| 09 63 70 20 72 65 63 65 | 69 76 65 20 24 28 50 41 |.cp rece|ive $(PA|
|00000fc0| 54 48 29 2f 78 6d 6f 64 | 72 65 63 0a 09 09 73 74 |TH)/xmod|rec...st|
|00000fd0| 72 69 70 20 74 72 61 6e | 73 6d 69 74 0a 09 09 63 |rip tran|smit...c|
|00000fe0| 70 20 74 72 61 6e 73 6d | 69 74 20 24 28 50 41 54 |p transm|it $(PAT|
|00000ff0| 48 29 2f 78 6d 6f 64 74 | 72 61 6e 0a 72 65 63 65 |H)/xmodt|ran.rece|
|00001000| 69 76 65 2e 6f 3a 09 72 | 65 63 65 69 76 65 2e 63 |ive.o:.r|eceive.c|
|00001010| 0a 09 09 63 63 20 24 28 | 46 4c 41 47 53 29 20 72 |...cc $(|FLAGS) r|
|00001020| 65 63 65 69 76 65 2e 63 | 0a 72 65 63 65 69 76 65 |eceive.c|.receive|
|00001030| 3a 09 72 65 63 65 69 76 | 65 2e 6f 20 64 65 6c 2e |:.receiv|e.o del.|
|00001040| 6f 20 6c 66 2e 6f 0a 09 | 09 63 63 20 2d 4f 20 2d |o lf.o..|.cc -O -|
|00001050| 6f 20 72 65 63 65 69 76 | 65 20 64 65 6c 2e 6f 20 |o receiv|e del.o |
|00001060| 6c 66 2e 6f 20 72 65 63 | 65 69 76 65 2e 6f 20 24 |lf.o rec|eive.o $|
|00001070| 28 4c 49 42 53 29 0a 74 | 72 61 6e 73 6d 69 74 2e |(LIBS).t|ransmit.|
|00001080| 6f 3a 09 74 72 61 6e 73 | 6d 69 74 2e 63 0a 09 09 |o:.trans|mit.c...|
|00001090| 63 63 20 24 28 46 4c 41 | 47 53 29 20 74 72 61 6e |cc $(FLA|GS) tran|
|000010a0| 73 6d 69 74 2e 63 0a 74 | 72 61 6e 73 6d 69 74 3a |smit.c.t|ransmit:|
|000010b0| 09 74 72 61 6e 73 6d 69 | 74 2e 6f 20 61 64 64 2e |.transmi|t.o add.|
|000010c0| 6f 20 63 72 2e 6f 0a 09 | 09 63 63 20 2d 4f 20 2d |o cr.o..|.cc -O -|
|000010d0| 6f 20 74 72 61 6e 73 6d | 69 74 20 61 64 64 2e 6f |o transm|it add.o|
|000010e0| 20 63 72 2e 6f 20 74 72 | 61 6e 73 6d 69 74 2e 6f | cr.o tr|ansmit.o|
|000010f0| 20 24 28 4c 49 42 53 29 | 0a 61 64 64 63 72 2e 6f | $(LIBS)|.addcr.o|
|00001100| 3a 09 61 64 64 63 72 2e | 63 0a 09 09 63 63 20 24 |:.addcr.|c...cc $|
|00001110| 28 46 4c 41 47 53 29 20 | 61 64 64 63 72 2e 63 0a |(FLAGS) |addcr.c.|
|00001120| 61 64 64 63 72 3a 09 09 | 61 64 64 63 72 2e 6f 20 |addcr:..|addcr.o |
|00001130| 61 64 64 2e 6f 0a 09 09 | 63 63 20 2d 4f 20 2d 6f |add.o...|cc -O -o|
|00001140| 20 61 64 64 63 72 20 61 | 64 64 2e 6f 20 61 64 64 | addcr a|dd.o add|
|00001150| 63 72 2e 6f 0a 09 09 73 | 74 72 69 70 20 61 64 64 |cr.o...s|trip add|
|00001160| 63 72 0a 09 09 63 70 20 | 61 64 64 63 72 20 24 28 |cr...cp |addcr $(|
|00001170| 50 41 54 48 29 0a 64 65 | 6c 63 72 2e 6f 3a 09 64 |PATH).de|lcr.o:.d|
|00001180| 65 6c 63 72 2e 63 0a 09 | 09 63 63 20 24 28 46 4c |elcr.c..|.cc $(FL|
|00001190| 41 47 53 29 20 64 65 6c | 63 72 2e 63 0a 64 65 6c |AGS) del|cr.c.del|
|000011a0| 63 72 3a 09 09 64 65 6c | 63 72 2e 6f 20 64 65 6c |cr:..del|cr.o del|
|000011b0| 2e 6f 0a 09 09 63 63 20 | 2d 4f 20 2d 6f 20 64 65 |.o...cc |-O -o de|
|000011c0| 6c 63 72 20 64 65 6c 2e | 6f 20 64 65 6c 63 72 2e |lcr del.|o delcr.|
|000011d0| 6f 0a 09 09 73 74 72 69 | 70 20 64 65 6c 63 72 0a |o...stri|p delcr.|
|000011e0| 09 09 63 70 20 64 65 6c | 63 72 20 24 28 50 41 54 |..cp del|cr $(PAT|
|000011f0| 48 29 0a 61 64 64 2e 6f | 3a 09 09 61 64 64 2e 63 |H).add.o|:..add.c|
|00001200| 0a 09 09 63 63 20 24 28 | 46 4c 41 47 53 29 20 61 |...cc $(|FLAGS) a|
|00001210| 64 64 2e 63 0a 64 65 6c | 2e 6f 3a 09 09 64 65 6c |dd.c.del|.o:..del|
|00001220| 2e 63 0a 09 09 63 63 20 | 24 28 46 4c 41 47 53 29 |.c...cc |$(FLAGS)|
|00001230| 20 64 65 6c 2e 63 0a 63 | 72 2e 6f 3a 09 09 63 72 | del.c.c|r.o:..cr|
|00001240| 2e 63 0a 09 09 63 63 20 | 24 28 46 4c 41 47 53 29 |.c...cc |$(FLAGS)|
|00001250| 20 63 72 2e 63 0a 6c 66 | 32 63 72 2e 6f 3a 09 6c | cr.c.lf|2cr.o:.l|
|00001260| 66 32 63 72 2e 63 0a 09 | 09 63 63 20 24 28 46 4c |f2cr.c..|.cc $(FL|
|00001270| 41 47 53 29 20 6c 66 32 | 63 72 2e 63 0a 6c 66 32 |AGS) lf2|cr.c.lf2|
|00001280| 63 72 3a 09 09 6c 66 32 | 63 72 2e 6f 20 63 72 2e |cr:..lf2|cr.o cr.|
|00001290| 6f 0a 09 09 63 63 20 2d | 4f 20 2d 6f 20 6c 66 32 |o...cc -|O -o lf2|
|000012a0| 63 72 20 6c 66 32 63 72 | 2e 6f 20 63 72 2e 6f 0a |cr lf2cr|.o cr.o.|
|000012b0| 09 09 73 74 72 69 70 20 | 6c 66 32 63 72 0a 09 09 |..strip |lf2cr...|
|000012c0| 63 70 20 6c 66 32 63 72 | 20 24 28 50 41 54 48 29 |cp lf2cr| $(PATH)|
|000012d0| 0a 6c 66 2e 6f 3a 09 09 | 6c 66 2e 63 0a 09 09 63 |.lf.o:..|lf.c...c|
|000012e0| 63 20 24 28 46 4c 41 47 | 53 29 20 6c 66 2e 63 0a |c $(FLAG|S) lf.c.|
|000012f0| 63 72 32 6c 66 2e 6f 3a | 09 63 72 32 6c 66 2e 63 |cr2lf.o:|.cr2lf.c|
|00001300| 0a 09 09 63 63 20 24 28 | 46 4c 41 47 53 29 20 63 |...cc $(|FLAGS) c|
|00001310| 72 32 6c 66 2e 63 0a 63 | 72 32 6c 66 3a 09 09 63 |r2lf.c.c|r2lf:..c|
|00001320| 72 32 6c 66 2e 6f 20 6c | 66 2e 6f 0a 09 09 63 63 |r2lf.o l|f.o...cc|
|00001330| 20 2d 4f 20 2d 6f 20 63 | 72 32 6c 66 20 63 72 32 | -O -o c|r2lf cr2|
|00001340| 6c 66 2e 6f 20 6c 66 2e | 6f 0a 09 09 73 74 72 69 |lf.o lf.|o...stri|
|00001350| 70 20 63 72 32 6c 66 0a | 09 09 63 70 20 63 72 32 |p cr2lf.|..cp cr2|
|00001360| 6c 66 20 24 28 50 41 54 | 48 29 0a 53 48 41 52 5f |lf $(PAT|H).SHAR_|
|00001370| 45 4f 46 0a 69 66 20 74 | 65 73 74 20 31 33 34 30 |EOF.if t|est 1340|
|00001380| 20 2d 6e 65 20 22 60 77 | 63 20 2d 63 20 3c 20 27 | -ne "`w|c -c < '|
|00001390| 4d 61 6b 65 66 69 6c 65 | 27 60 22 0a 74 68 65 6e |Makefile|'`".then|
|000013a0| 0a 09 65 63 68 6f 20 73 | 68 61 72 3a 20 65 72 72 |..echo s|har: err|
|000013b0| 6f 72 20 74 72 61 6e 73 | 6d 69 74 74 69 6e 67 20 |or trans|mitting |
|000013c0| 22 27 4d 61 6b 65 66 69 | 6c 65 27 22 20 27 28 73 |"'Makefi|le'" '(s|
|000013d0| 68 6f 75 6c 64 20 68 61 | 76 65 20 62 65 65 6e 20 |hould ha|ve been |
|000013e0| 31 33 34 30 20 63 68 61 | 72 61 63 74 65 72 73 29 |1340 cha|racters)|
|000013f0| 27 0a 66 69 0a 66 69 0a | 65 63 68 6f 20 73 68 61 |'.fi.fi.|echo sha|
|00001400| 72 3a 20 65 78 74 72 61 | 63 74 69 6e 67 20 22 27 |r: extra|cting "'|
|00001410| 61 64 64 2e 63 27 22 20 | 27 28 38 38 31 20 63 68 |add.c'" |'(881 ch|
|00001420| 61 72 61 63 74 65 72 73 | 29 27 0a 69 66 20 74 65 |aracters|)'.if te|
|00001430| 73 74 20 2d 66 20 27 61 | 64 64 2e 63 27 0a 74 68 |st -f 'a|dd.c'.th|
|00001440| 65 6e 0a 09 65 63 68 6f | 20 73 68 61 72 3a 20 77 |en..echo| shar: w|
|00001450| 69 6c 6c 20 6e 6f 74 20 | 6f 76 65 72 2d 77 72 69 |ill not |over-wri|
|00001460| 74 65 20 65 78 69 73 74 | 69 6e 67 20 66 69 6c 65 |te exist|ing file|
|00001470| 20 22 27 61 64 64 2e 63 | 27 22 0a 65 6c 73 65 0a | "'add.c|'".else.|
|00001480| 63 61 74 20 3c 3c 20 5c | 53 48 41 52 5f 45 4f 46 |cat << \|SHAR_EOF|
|00001490| 20 3e 20 27 61 64 64 2e | 63 27 0a 23 0a 23 20 69 | > 'add.|c'.#.# i|
|000014a0| 6e 63 6c 75 64 65 20 3c | 66 69 6c 65 2e 68 3e 0a |nclude <|file.h>.|
|000014b0| 0a 23 20 64 65 66 69 6e | 65 20 43 52 09 31 33 0a |.# defin|e CR.13.|
|000014c0| 23 20 64 65 66 69 6e 65 | 20 4e 4c 09 31 30 0a 23 |# define| NL.10.#|
|000014d0| 20 64 65 66 69 6e 65 20 | 43 54 52 4c 5f 5a 20 32 | define |CTRL_Z 2|
|000014e0| 36 0a 0a 63 68 61 72 20 | 2a 0a 41 44 44 43 52 28 |6..char |*.ADDCR(|
|000014f0| 66 69 6c 65 29 0a 63 68 | 61 72 20 2a 66 69 6c 65 |file).ch|ar *file|
|00001500| 3b 20 7b 0a 09 69 6e 74 | 20 69 64 2c 20 6f 69 64 |; {..int| id, oid|
|00001510| 3b 0a 09 63 68 61 72 20 | 62 75 66 5b 35 31 32 5d |;..char |buf[512]|
|00001520| 2c 20 2a 69 6e 64 65 78 | 28 29 3b 0a 09 73 74 61 |, *index|();..sta|
|00001530| 74 69 63 20 63 68 61 72 | 20 74 65 6d 70 5b 31 31 |tic char| temp[11|
|00001540| 5d 3b 0a 09 63 68 61 72 | 20 2a 65 6e 64 20 3d 20 |];..char| *end = |
|00001550| 22 5c 72 5c 6e 22 3b 0a | 09 69 6e 74 20 6c 6e 2c |"\r\n";.|.int ln,|
|00001560| 20 63 6e 74 3b 0a 09 72 | 65 67 69 73 74 65 72 20 | cnt;..r|egister |
|00001570| 63 68 61 72 20 2a 70 74 | 72 20 3d 20 62 75 66 2c |char *pt|r = buf,|
|00001580| 20 2a 6f 64 3b 0a 09 72 | 65 67 69 73 74 65 72 20 | *od;..r|egister |
|00001590| 69 2c 20 63 6f 75 6e 74 | 3b 0a 0a 09 73 74 72 63 |i, count|;...strc|
|000015a0| 70 79 28 74 65 6d 70 2c | 22 74 65 6d 70 58 58 58 |py(temp,|"tempXXX|
|000015b0| 58 58 58 22 29 3b 0a 09 | 6d 6b 74 65 6d 70 28 74 |XXX");..|mktemp(t|
|000015c0| 65 6d 70 29 3b 0a 09 69 | 66 20 28 28 6f 69 64 20 |emp);..i|f ((oid |
|000015d0| 3d 20 6f 70 65 6e 28 74 | 65 6d 70 2c 4f 5f 43 52 |= open(t|emp,O_CR|
|000015e0| 45 41 54 20 7c 20 4f 5f | 57 52 4f 4e 4c 59 2c 30 |EAT | O_|WRONLY,0|
|000015f0| 36 34 34 29 29 20 3c 20 | 30 29 20 7b 0a 09 09 70 |644)) < |0) {...p|
|00001600| 65 72 72 6f 72 28 74 65 | 6d 70 29 3b 0a 09 09 75 |error(te|mp);...u|
|00001610| 6e 6c 69 6e 6b 28 74 65 | 6d 70 29 3b 0a 09 09 65 |nlink(te|mp);...e|
|00001620| 78 69 74 28 2d 31 29 3b | 0a 09 7d 0a 09 69 66 20 |xit(-1);|..}..if |
|00001630| 28 28 69 64 20 3d 20 6f | 70 65 6e 28 66 69 6c 65 |((id = o|pen(file|
|00001640| 2c 4f 5f 52 44 4f 4e 4c | 59 2c 30 36 34 34 29 29 |,O_RDONL|Y,0644))|
|00001650| 20 3c 20 30 29 20 7b 0a | 09 09 70 65 72 72 6f 72 | < 0) {.|..perror|
|00001660| 28 66 69 6c 65 29 3b 0a | 09 09 75 6e 6c 69 6e 6b |(file);.|..unlink|
|00001670| 28 74 65 6d 70 29 3b 0a | 09 09 65 78 69 74 28 2d |(temp);.|..exit(-|
|00001680| 31 29 3b 0a 09 7d 0a 09 | 09 09 0a 09 77 68 69 6c |1);..}..|....whil|
|00001690| 65 20 28 6c 6e 20 3d 20 | 72 65 61 64 28 69 64 2c |e (ln = |read(id,|
|000016a0| 70 74 72 2c 35 31 32 29 | 29 20 7b 0a 09 09 63 6f |ptr,512)|) {...co|
|000016b0| 75 6e 74 20 3d 20 30 3b | 0a 09 09 77 68 69 6c 65 |unt = 0;|...while|
|000016c0| 20 28 20 6f 64 20 3d 20 | 69 6e 64 65 78 28 70 74 | ( od = |index(pt|
|000016d0| 72 2c 4e 4c 29 20 29 20 | 7b 0a 09 09 09 69 66 20 |r,NL) ) |{....if |
|000016e0| 28 6f 64 20 3e 20 26 62 | 75 66 5b 6c 6e 5d 29 20 |(od > &b|uf[ln]) |
|000016f0| 62 72 65 61 6b 3b 0a 09 | 09 09 2a 6f 64 20 3d 20 |break;..|..*od = |
|00001700| 27 5c 30 27 3b 0a 09 09 | 09 63 6e 74 20 3d 20 73 |'\0';...|.cnt = s|
|00001710| 74 72 6c 65 6e 28 70 74 | 72 29 3b 0a 09 09 09 63 |trlen(pt|r);....c|
|00001720| 6f 75 6e 74 20 2b 3d 20 | 63 6e 74 3b 0a 09 09 09 |ount += |cnt;....|
|00001730| 77 72 69 74 65 28 6f 69 | 64 2c 20 70 74 72 2c 20 |write(oi|d, ptr, |
|00001740| 63 6e 74 29 3b 0a 09 09 | 09 77 72 69 74 65 28 6f |cnt);...|.write(o|
|00001750| 69 64 2c 20 65 6e 64 2c | 20 32 29 3b 0a 09 09 09 |id, end,| 2);....|
|00001760| 70 74 72 20 3d 20 2b 2b | 6f 64 3b 0a 09 09 09 63 |ptr = ++|od;....c|
|00001770| 6f 75 6e 74 2b 2b 3b 0a | 09 09 7d 0a 09 09 69 66 |ount++;.|..}...if|
|00001780| 20 28 63 6f 75 6e 74 20 | 3d 20 6c 6e 20 2d 20 63 | (count |= ln - c|
|00001790| 6f 75 6e 74 29 0a 09 09 | 09 77 72 69 74 65 28 6f |ount)...|.write(o|
|000017a0| 69 64 2c 70 74 72 2c 63 | 6f 75 6e 74 29 3b 0a 09 |id,ptr,c|ount);..|
|000017b0| 09 70 74 72 20 3d 20 62 | 75 66 3b 0a 09 7d 0a 09 |.ptr = b|uf;..}..|
|000017c0| 2a 70 74 72 20 3d 20 43 | 54 52 4c 5f 5a 3b 0a 09 |*ptr = C|TRL_Z;..|
|000017d0| 77 72 69 74 65 28 6f 69 | 64 2c 70 74 72 2c 31 29 |write(oi|d,ptr,1)|
|000017e0| 3b 0a 0a 09 63 6c 6f 73 | 65 28 6f 69 64 29 3b 20 |;...clos|e(oid); |
|000017f0| 63 6c 6f 73 65 28 69 64 | 29 3b 0a 09 72 65 74 75 |close(id|);..retu|
|00001800| 72 6e 28 74 65 6d 70 29 | 3b 0a 7d 0a 53 48 41 52 |rn(temp)|;.}.SHAR|
|00001810| 5f 45 4f 46 0a 69 66 20 | 74 65 73 74 20 38 38 31 |_EOF.if |test 881|
|00001820| 20 2d 6e 65 20 22 60 77 | 63 20 2d 63 20 3c 20 27 | -ne "`w|c -c < '|
|00001830| 61 64 64 2e 63 27 60 22 | 0a 74 68 65 6e 0a 09 65 |add.c'`"|.then..e|
|00001840| 63 68 6f 20 73 68 61 72 | 3a 20 65 72 72 6f 72 20 |cho shar|: error |
|00001850| 74 72 61 6e 73 6d 69 74 | 74 69 6e 67 20 22 27 61 |transmit|ting "'a|
|00001860| 64 64 2e 63 27 22 20 27 | 28 73 68 6f 75 6c 64 20 |dd.c'" '|(should |
|00001870| 68 61 76 65 20 62 65 65 | 6e 20 38 38 31 20 63 68 |have bee|n 881 ch|
|00001880| 61 72 61 63 74 65 72 73 | 29 27 0a 66 69 0a 66 69 |aracters|)'.fi.fi|
|00001890| 0a 65 63 68 6f 20 73 68 | 61 72 3a 20 65 78 74 72 |.echo sh|ar: extr|
|000018a0| 61 63 74 69 6e 67 20 22 | 27 61 64 64 63 72 2e 63 |acting "|'addcr.c|
|000018b0| 27 22 20 27 28 32 31 39 | 20 63 68 61 72 61 63 74 |'" '(219| charact|
|000018c0| 65 72 73 29 27 0a 69 66 | 20 74 65 73 74 20 2d 66 |ers)'.if| test -f|
|000018d0| 20 27 61 64 64 63 72 2e | 63 27 0a 74 68 65 6e 0a | 'addcr.|c'.then.|
|000018e0| 09 65 63 68 6f 20 73 68 | 61 72 3a 20 77 69 6c 6c |.echo sh|ar: will|
|000018f0| 20 6e 6f 74 20 6f 76 65 | 72 2d 77 72 69 74 65 20 | not ove|r-write |
|00001900| 65 78 69 73 74 69 6e 67 | 20 66 69 6c 65 20 22 27 |existing| file "'|
|00001910| 61 64 64 63 72 2e 63 27 | 22 0a 65 6c 73 65 0a 63 |addcr.c'|".else.c|
|00001920| 61 74 20 3c 3c 20 5c 53 | 48 41 52 5f 45 4f 46 20 |at << \S|HAR_EOF |
|00001930| 3e 20 27 61 64 64 63 72 | 2e 63 27 0a 6d 61 69 6e |> 'addcr|.c'.main|
|00001940| 28 61 72 67 63 2c 61 72 | 67 76 29 0a 69 6e 74 20 |(argc,ar|gv).int |
|00001950| 61 72 67 63 3b 0a 63 68 | 61 72 20 2a 61 72 67 76 |argc;.ch|ar *argv|
|00001960| 5b 5d 3b 20 7b 0a 09 63 | 68 61 72 20 62 75 66 5b |[]; {..c|har buf[|
|00001970| 35 31 32 5d 3b 0a 09 72 | 65 67 69 73 74 65 72 20 |512];..r|egister |
|00001980| 69 6e 74 20 69 3b 0a 0a | 09 66 6f 72 20 28 69 20 |int i;..|.for (i |
|00001990| 3d 20 31 3b 20 69 20 3c | 20 61 72 67 63 3b 20 69 |= 1; i <| argc; i|
|000019a0| 2b 2b 29 20 7b 0a 09 09 | 73 74 72 63 70 79 28 62 |++) {...|strcpy(b|
|000019b0| 75 66 2c 22 6d 76 20 22 | 29 3b 0a 09 09 73 74 72 |uf,"mv "|);...str|
|000019c0| 63 61 74 28 62 75 66 2c | 41 44 44 43 52 28 61 72 |cat(buf,|ADDCR(ar|
|000019d0| 67 76 5b 69 5d 29 29 3b | 0a 09 09 73 74 72 63 61 |gv[i]));|...strca|
|000019e0| 74 28 62 75 66 2c 22 20 | 22 29 3b 0a 09 09 73 74 |t(buf," |");...st|
|000019f0| 72 63 61 74 28 62 75 66 | 2c 61 72 67 76 5b 69 5d |rcat(buf|,argv[i]|
|00001a00| 29 3b 0a 09 09 73 79 73 | 74 65 6d 28 62 75 66 29 |);...sys|tem(buf)|
|00001a10| 3b 0a 09 7d 0a 7d 0a 53 | 48 41 52 5f 45 4f 46 0a |;..}.}.S|HAR_EOF.|
|00001a20| 69 66 20 74 65 73 74 20 | 32 31 39 20 2d 6e 65 20 |if test |219 -ne |
|00001a30| 22 60 77 63 20 2d 63 20 | 3c 20 27 61 64 64 63 72 |"`wc -c |< 'addcr|
|00001a40| 2e 63 27 60 22 0a 74 68 | 65 6e 0a 09 65 63 68 6f |.c'`".th|en..echo|
|00001a50| 20 73 68 61 72 3a 20 65 | 72 72 6f 72 20 74 72 61 | shar: e|rror tra|
|00001a60| 6e 73 6d 69 74 74 69 6e | 67 20 22 27 61 64 64 63 |nsmittin|g "'addc|
|00001a70| 72 2e 63 27 22 20 27 28 | 73 68 6f 75 6c 64 20 68 |r.c'" '(|should h|
|00001a80| 61 76 65 20 62 65 65 6e | 20 32 31 39 20 63 68 61 |ave been| 219 cha|
|00001a90| 72 61 63 74 65 72 73 29 | 27 0a 66 69 0a 66 69 0a |racters)|'.fi.fi.|
|00001aa0| 65 63 68 6f 20 73 68 61 | 72 3a 20 65 78 74 72 61 |echo sha|r: extra|
|00001ab0| 63 74 69 6e 67 20 22 27 | 61 64 64 6c 66 2e 63 27 |cting "'|addlf.c'|
|00001ac0| 22 20 27 28 39 33 35 20 | 63 68 61 72 61 63 74 65 |" '(935 |characte|
|00001ad0| 72 73 29 27 0a 69 66 20 | 74 65 73 74 20 2d 66 20 |rs)'.if |test -f |
|00001ae0| 27 61 64 64 6c 66 2e 63 | 27 0a 74 68 65 6e 0a 09 |'addlf.c|'.then..|
|00001af0| 65 63 68 6f 20 73 68 61 | 72 3a 20 77 69 6c 6c 20 |echo sha|r: will |
|00001b00| 6e 6f 74 20 6f 76 65 72 | 2d 77 72 69 74 65 20 65 |not over|-write e|
|00001b10| 78 69 73 74 69 6e 67 20 | 66 69 6c 65 20 22 27 61 |xisting |file "'a|
|00001b20| 64 64 6c 66 2e 63 27 22 | 0a 65 6c 73 65 0a 63 61 |ddlf.c'"|.else.ca|
|00001b30| 74 20 3c 3c 20 5c 53 48 | 41 52 5f 45 4f 46 20 3e |t << \SH|AR_EOF >|
|00001b40| 20 27 61 64 64 6c 66 2e | 63 27 0a 23 0a 23 20 64 | 'addlf.|c'.#.# d|
|00001b50| 65 66 69 6e 65 20 43 52 | 09 31 33 0a 23 20 64 65 |efine CR|.13.# de|
|00001b60| 66 69 6e 65 20 4e 4c 09 | 31 30 0a 0a 6d 61 69 6e |fine NL.|10..main|
|00001b70| 28 61 72 67 63 2c 61 72 | 67 76 29 0a 69 6e 74 20 |(argc,ar|gv).int |
|00001b80| 61 72 67 63 3b 0a 63 68 | 61 72 20 2a 61 72 67 76 |argc;.ch|ar *argv|
|00001b90| 5b 5d 3b 20 7b 0a 09 69 | 6e 74 20 69 64 2c 20 6f |[]; {..i|nt id, o|
|00001ba0| 69 64 3b 0a 09 63 68 61 | 72 20 62 75 66 5b 35 31 |id;..cha|r buf[51|
|00001bb0| 32 5d 3b 0a 09 63 68 61 | 72 20 2a 74 65 6d 70 2c |2];..cha|r *temp,|
|00001bc0| 20 2a 69 6e 64 65 78 28 | 29 3b 0a 09 63 68 61 72 | *index(|);..char|
|00001bd0| 20 2a 65 6e 64 20 3d 20 | 22 5c 72 5c 6e 22 3b 0a | *end = |"\r\n";.|
|00001be0| 09 69 6e 74 20 6c 6e 2c | 20 63 6e 74 3b 0a 09 72 |.int ln,| cnt;..r|
|00001bf0| 65 67 69 73 74 65 72 20 | 63 68 61 72 20 2a 70 74 |egister |char *pt|
|00001c00| 72 2c 20 2a 6f 64 3b 0a | 09 72 65 67 69 73 74 65 |r, *od;.|.registe|
|00001c10| 72 20 69 2c 20 63 6f 75 | 6e 74 3b 0a 0a 09 66 6f |r i, cou|nt;...fo|
|00001c20| 72 20 28 69 20 3d 20 31 | 3b 20 69 20 3c 20 61 72 |r (i = 1|; i < ar|
|00001c30| 67 63 3b 20 69 2b 2b 29 | 20 7b 0a 09 09 69 66 20 |gc; i++)| {...if |
|00001c40| 28 28 69 64 20 3d 20 6f | 70 65 6e 28 61 72 67 76 |((id = o|pen(argv|
|00001c50| 5b 69 5d 2c 30 29 29 20 | 3c 20 30 29 20 7b 0a 09 |[i],0)) |< 0) {..|
|00001c60| 09 09 70 72 69 6e 74 66 | 28 22 43 41 4e 20 4e 4f |..printf|("CAN NO|
|00001c70| 54 20 4f 50 45 4e 20 46 | 49 4c 45 20 60 25 73 27 |T OPEN F|ILE `%s'|
|00001c80| 2e 20 2e 20 2e 20 2e 20 | 2e 5c 6e 22 2c 61 72 67 |. . . . |.\n",arg|
|00001c90| 76 5b 69 5d 29 3b 0a 09 | 09 09 62 72 65 61 6b 3b |v[i]);..|..break;|
|00001ca0| 0a 09 09 7d 20 65 6c 73 | 65 20 7b 0a 09 09 09 74 |...} els|e {....t|
|00001cb0| 65 6d 70 20 3d 20 22 74 | 65 6d 70 58 58 58 58 58 |emp = "t|empXXXXX|
|00001cc0| 58 22 3b 0a 09 09 09 6d | 6b 74 65 6d 70 28 74 65 |X";....m|ktemp(te|
|00001cd0| 6d 70 29 3b 0a 09 09 09 | 6f 69 64 20 3d 20 63 72 |mp);....|oid = cr|
|00001ce0| 65 61 74 28 74 65 6d 70 | 2c 30 36 34 34 29 3b 0a |eat(temp|,0644);.|
|00001cf0| 09 09 09 0a 09 09 09 70 | 74 72 20 3d 20 62 75 66 |.......p|tr = buf|
|00001d00| 3b 0a 09 09 09 77 68 69 | 6c 65 20 28 6c 6e 20 3d |;....whi|le (ln =|
|00001d10| 20 72 65 61 64 28 69 64 | 2c 70 74 72 2c 35 31 32 | read(id|,ptr,512|
|00001d20| 29 29 20 7b 0a 09 09 09 | 09 63 6f 75 6e 74 20 3d |)) {....|.count =|
|00001d30| 20 30 3b 0a 09 09 09 09 | 77 68 69 6c 65 20 28 20 | 0;.....|while ( |
|00001d40| 6f 64 20 3d 20 69 6e 64 | 65 78 28 70 74 72 2c 43 |od = ind|ex(ptr,C|
|00001d50| 52 29 20 29 20 7b 0a 09 | 09 09 09 09 69 66 20 28 |R) ) {..|....if (|
|00001d60| 6f 64 20 3e 20 26 62 75 | 66 5b 6c 6e 5d 29 20 62 |od > &bu|f[ln]) b|
|00001d70| 72 65 61 6b 3b 0a 09 09 | 09 09 09 2a 6f 64 20 3d |reak;...|...*od =|
|00001d80| 20 27 5c 30 27 3b 0a 09 | 09 09 09 09 63 6e 74 20 | '\0';..|....cnt |
|00001d90| 3d 20 73 74 72 6c 65 6e | 28 70 74 72 29 3b 0a 09 |= strlen|(ptr);..|
|00001da0| 09 09 09 09 63 6f 75 6e | 74 20 2b 3d 20 63 6e 74 |....coun|t += cnt|
|00001db0| 3b 0a 09 09 09 09 09 77 | 72 69 74 65 28 6f 69 64 |;......w|rite(oid|
|00001dc0| 2c 20 70 74 72 2c 20 63 | 6e 74 29 3b 0a 09 09 09 |, ptr, c|nt);....|
|00001dd0| 09 09 77 72 69 74 65 28 | 6f 69 64 2c 20 65 6e 64 |..write(|oid, end|
|00001de0| 2c 20 32 29 3b 0a 09 09 | 09 09 09 70 74 72 20 3d |, 2);...|...ptr =|
|00001df0| 20 2b 2b 6f 64 3b 0a 09 | 09 09 09 09 63 6f 75 6e | ++od;..|....coun|
|00001e00| 74 2b 2b 3b 0a 09 09 09 | 09 7d 0a 09 09 09 09 69 |t++;....|.}.....i|
|00001e10| 66 20 28 63 6f 75 6e 74 | 20 3d 20 6c 6e 20 2d 20 |f (count| = ln - |
|00001e20| 63 6f 75 6e 74 29 0a 09 | 09 09 09 09 77 72 69 74 |count)..|....writ|
|00001e30| 65 28 6f 69 64 2c 70 74 | 72 2c 63 6f 75 6e 74 29 |e(oid,pt|r,count)|
|00001e40| 3b 0a 09 09 09 09 70 74 | 72 20 3d 20 62 75 66 3b |;.....pt|r = buf;|
|00001e50| 0a 09 09 09 7d 0a 0a 09 | 09 09 63 6c 6f 73 65 28 |....}...|..close(|
|00001e60| 6f 69 64 29 3b 20 63 6c | 6f 73 65 28 69 64 29 3b |oid); cl|ose(id);|
|00001e70| 0a 09 09 09 73 74 72 63 | 70 79 28 62 75 66 2c 22 |....strc|py(buf,"|
|00001e80| 6d 76 20 22 29 3b 0a 09 | 09 09 73 74 72 63 61 74 |mv ");..|..strcat|
|00001e90| 28 62 75 66 2c 74 65 6d | 70 29 3b 0a 09 09 09 73 |(buf,tem|p);....s|
|00001ea0| 74 72 63 61 74 28 62 75 | 66 2c 22 20 22 29 3b 0a |trcat(bu|f," ");.|
|00001eb0| 09 09 09 73 74 72 63 61 | 74 28 62 75 66 2c 61 72 |...strca|t(buf,ar|
|00001ec0| 67 76 5b 69 5d 29 3b 0a | 09 09 09 73 79 73 74 65 |gv[i]);.|...syste|
|00001ed0| 6d 28 62 75 66 29 3b 0a | 09 09 09 75 6e 6c 69 6e |m(buf);.|...unlin|
|00001ee0| 6b 28 74 65 6d 70 29 3b | 0a 09 09 7d 0a 09 7d 0a |k(temp);|...}..}.|
|00001ef0| 7d 0a 53 48 41 52 5f 45 | 4f 46 0a 69 66 20 74 65 |}.SHAR_E|OF.if te|
|00001f00| 73 74 20 39 33 35 20 2d | 6e 65 20 22 60 77 63 20 |st 935 -|ne "`wc |
|00001f10| 2d 63 20 3c 20 27 61 64 | 64 6c 66 2e 63 27 60 22 |-c < 'ad|dlf.c'`"|
|00001f20| 0a 74 68 65 6e 0a 09 65 | 63 68 6f 20 73 68 61 72 |.then..e|cho shar|
|00001f30| 3a 20 65 72 72 6f 72 20 | 74 72 61 6e 73 6d 69 74 |: error |transmit|
|00001f40| 74 69 6e 67 20 22 27 61 | 64 64 6c 66 2e 63 27 22 |ting "'a|ddlf.c'"|
|00001f50| 20 27 28 73 68 6f 75 6c | 64 20 68 61 76 65 20 62 | '(shoul|d have b|
|00001f60| 65 65 6e 20 39 33 35 20 | 63 68 61 72 61 63 74 65 |een 935 |characte|
|00001f70| 72 73 29 27 0a 66 69 0a | 66 69 0a 65 63 68 6f 20 |rs)'.fi.|fi.echo |
|00001f80| 73 68 61 72 3a 20 65 78 | 74 72 61 63 74 69 6e 67 |shar: ex|tracting|
|00001f90| 20 22 27 63 6f 70 79 2e | 63 27 22 20 27 28 36 30 | "'copy.|c'" '(60|
|00001fa0| 38 32 20 63 68 61 72 61 | 63 74 65 72 73 29 27 0a |82 chara|cters)'.|
|00001fb0| 69 66 20 74 65 73 74 20 | 2d 66 20 27 63 6f 70 79 |if test |-f 'copy|
|00001fc0| 2e 63 27 0a 74 68 65 6e | 0a 09 65 63 68 6f 20 73 |.c'.then|..echo s|
|00001fd0| 68 61 72 3a 20 77 69 6c | 6c 20 6e 6f 74 20 6f 76 |har: wil|l not ov|
|00001fe0| 65 72 2d 77 72 69 74 65 | 20 65 78 69 73 74 69 6e |er-write| existin|
|00001ff0| 67 20 66 69 6c 65 20 22 | 27 63 6f 70 79 2e 63 27 |g file "|'copy.c'|
|00002000| 22 0a 65 6c 73 65 0a 63 | 61 74 20 3c 3c 20 5c 53 |".else.c|at << \S|
|00002010| 48 41 52 5f 45 4f 46 20 | 3e 20 27 63 6f 70 79 2e |HAR_EOF |> 'copy.|
|00002020| 63 27 0a 23 0a 23 69 6e | 63 6c 75 64 65 20 3c 73 |c'.#.#in|clude <s|
|00002030| 74 64 69 6f 2e 68 3e 0a | 23 69 6e 63 6c 75 64 65 |tdio.h>.|#include|
|00002040| 20 3c 73 79 73 2f 74 79 | 70 65 73 2e 68 3e 0a 23 | <sys/ty|pes.h>.#|
|00002050| 69 6e 63 6c 75 64 65 20 | 3c 73 79 73 2f 64 69 72 |include |<sys/dir|
|00002060| 2e 68 3e 0a 23 69 6e 63 | 6c 75 64 65 20 3c 73 79 |.h>.#inc|lude <sy|
|00002070| 73 2f 73 74 61 74 2e 68 | 3e 0a 23 69 6e 63 6c 75 |s/stat.h|>.#inclu|
|00002080| 64 65 20 3c 73 69 67 6e | 61 6c 2e 68 3e 0a 23 69 |de <sign|al.h>.#i|
|00002090| 6e 63 6c 75 64 65 20 3c | 70 77 64 2e 68 3e 0a 23 |nclude <|pwd.h>.#|
|000020a0| 69 6e 63 6c 75 64 65 20 | 3c 67 72 70 2e 68 3e 0a |include |<grp.h>.|
|000020b0| 0a 0a 2f 2a 0a 2a 2a 09 | 63 6f 70 79 20 2d 20 63 |../*.**.|copy - c|
|000020c0| 6f 70 79 20 61 20 20 73 | 75 62 74 72 65 65 20 74 |opy a s|ubtree t|
|000020d0| 6f 20 61 20 6e 65 77 20 | 64 69 72 65 63 74 6f 72 |o a new |director|
|000020e0| 79 0a 2a 2a 09 70 72 65 | 73 65 72 76 69 6e 67 20 |y.**.pre|serving |
|000020f0| 6f 77 6e 65 72 73 68 69 | 70 20 61 6e 64 20 64 61 |ownershi|p and da|
|00002100| 74 65 73 20 28 61 63 63 | 65 73 73 20 61 6e 64 20 |tes (acc|ess and |
|00002110| 6d 6f 64 69 66 69 63 61 | 74 69 6f 6e 20 6f 6e 6c |modifica|tion onl|
|00002120| 79 29 0a 2a 2a 0a 2a 2a | 09 4b 65 69 74 68 20 54 |y).**.**|.Keith T|
|00002130| 68 6f 6d 70 73 6f 6e 09 | 2d 20 46 65 62 20 37 2c |hompson.|- Feb 7,|
|00002140| 20 31 39 38 31 0a 2a 2a | 09 72 65 76 69 73 65 64 | 1981.**|.revised|
|00002150| 09 09 2d 20 4d 61 79 20 | 31 2c 20 31 39 38 31 09 |..- May |1, 1981.|
|00002160| 28 61 64 64 65 64 20 6f | 70 74 69 6f 6e 73 29 0a |(added o|ptions).|
|00002170| 2a 2a 0a 2a 2a 09 4f 70 | 74 69 6f 6e 73 3a 09 28 |**.**.Op|tions:.(|
|00002180| 63 61 6e 20 6f 6e 6c 79 | 20 62 65 20 75 73 65 64 |can only| be used|
|00002190| 20 62 79 20 73 75 70 65 | 72 75 73 65 72 29 0a 2a | by supe|ruser).*|
|000021a0| 2a 0a 2a 2a 09 09 2d 6f | 20 6c 6f 67 69 6e 5f 6e |*.**..-o| login_n|
|000021b0| 61 6d 65 09 6d 61 6b 65 | 20 61 6c 6c 20 66 69 6c |ame.make| all fil|
|000021c0| 65 73 20 6f 77 6e 65 64 | 20 62 79 20 27 6c 6f 67 |es owned| by 'log|
|000021d0| 69 6e 5f 6e 61 6d 65 27 | 0a 2a 2a 09 09 2d 75 20 |in_name'|.**..-u |
|000021e0| 6c 6f 67 69 6e 5f 6e 61 | 6d 65 09 6d 61 6b 65 20 |login_na|me.make |
|000021f0| 61 6c 6c 20 75 73 65 72 | 20 6f 77 6e 65 72 73 68 |all user| ownersh|
|00002200| 69 70 20 27 6c 6f 67 69 | 6e 5f 6e 61 6d 65 27 0a |ip 'logi|n_name'.|
|00002210| 2a 2a 09 09 2d 67 20 67 | 72 6f 75 70 5f 6e 61 6d |**..-g g|roup_nam|
|00002220| 65 09 6d 61 6b 65 20 61 | 6c 6c 20 67 72 6f 75 70 |e.make a|ll group|
|00002230| 20 6f 77 6e 65 72 73 68 | 69 70 20 27 67 72 6f 75 | ownersh|ip 'grou|
|00002240| 70 5f 6e 61 6d 65 27 0a | 2a 2f 0a 0a 23 64 65 66 |p_name'.|*/..#def|
|00002250| 69 6e 65 20 42 53 49 5a | 45 20 34 30 39 36 0a 0a |ine BSIZ|E 4096..|
|00002260| 23 64 65 66 69 6e 65 20 | 44 45 53 54 20 28 61 72 |#define |DEST (ar|
|00002270| 67 63 2d 31 29 0a 23 64 | 65 66 69 6e 65 20 53 52 |gc-1).#d|efine SR|
|00002280| 43 20 20 28 61 72 67 63 | 2d 32 29 0a 0a 23 64 65 |C (argc|-2)..#de|
|00002290| 66 69 6e 65 20 45 58 49 | 53 54 53 20 30 0a 23 64 |fine EXI|STS 0.#d|
|000022a0| 65 66 69 6e 65 20 52 45 | 41 44 41 42 4c 45 20 34 |efine RE|ADABLE 4|
|000022b0| 0a 23 64 65 66 69 6e 65 | 20 57 52 49 54 45 41 42 |.#define| WRITEAB|
|000022c0| 4c 45 20 32 0a 23 64 65 | 66 69 6e 65 20 45 58 45 |LE 2.#de|fine EXE|
|000022d0| 43 55 54 41 42 4c 45 20 | 31 0a 0a 23 64 65 66 69 |CUTABLE |1..#defi|
|000022e0| 6e 65 20 4d 4f 44 45 20 | 30 36 36 36 0a 23 64 65 |ne MODE |0666.#de|
|000022f0| 66 69 6e 65 20 52 45 41 | 44 20 30 0a 0a 23 64 65 |fine REA|D 0..#de|
|00002300| 66 69 6e 65 20 73 74 72 | 6e 63 61 74 20 73 74 72 |fine str|ncat str|
|00002310| 63 61 74 6e 0a 65 78 74 | 65 72 6e 20 63 68 61 72 |catn.ext|ern char|
|00002320| 20 2a 73 74 72 63 61 74 | 28 29 3b 0a 65 78 74 65 | *strcat|();.exte|
|00002330| 72 6e 20 63 68 61 72 20 | 2a 73 74 72 63 70 79 28 |rn char |*strcpy(|
|00002340| 29 3b 0a 0a 69 6e 74 20 | 73 75 70 65 72 75 73 65 |);..int |superuse|
|00002350| 72 3b 0a 69 6e 74 20 75 | 73 65 72 3b 0a 69 6e 74 |r;.int u|ser;.int|
|00002360| 20 67 72 6f 75 70 3b 0a | 0a 6d 61 69 6e 28 61 72 | group;.|.main(ar|
|00002370| 67 63 2c 61 72 67 76 29 | 0a 69 6e 74 20 61 72 67 |gc,argv)|.int arg|
|00002380| 63 3b 0a 63 68 61 72 20 | 2a 2a 61 72 67 76 3b 0a |c;.char |**argv;.|
|00002390| 7b 0a 09 72 65 67 69 73 | 74 65 72 20 69 2c 6a 2c |{..regis|ter i,j,|
|000023a0| 62 61 64 61 72 67 3b 0a | 09 72 65 67 69 73 74 65 |badarg;.|.registe|
|000023b0| 72 20 73 74 72 75 63 74 | 20 70 61 73 73 77 64 20 |r struct| passwd |
|000023c0| 2a 70 77 3b 0a 09 65 78 | 74 65 72 6e 20 73 74 72 |*pw;..ex|tern str|
|000023d0| 75 63 74 20 70 61 73 73 | 77 64 20 2a 67 65 74 70 |uct pass|wd *getp|
|000023e0| 77 6e 61 6d 28 29 3b 0a | 0a 09 73 69 67 6e 61 6c |wnam();.|..signal|
|000023f0| 28 53 49 47 49 4e 54 2c | 53 49 47 5f 49 47 4e 29 |(SIGINT,|SIG_IGN)|
|00002400| 3b 0a 09 73 69 67 6e 61 | 6c 28 53 49 47 48 55 50 |;..signa|l(SIGHUP|
|00002410| 2c 53 49 47 5f 49 47 4e | 29 3b 0a 09 73 69 67 6e |,SIG_IGN|);..sign|
|00002420| 61 6c 28 53 49 47 51 55 | 49 54 2c 53 49 47 5f 49 |al(SIGQU|IT,SIG_I|
|00002430| 47 4e 29 3b 0a 09 73 69 | 67 6e 61 6c 28 53 49 47 |GN);..si|gnal(SIG|
|00002440| 54 45 52 4d 2c 53 49 47 | 5f 49 47 4e 29 3b 0a 09 |TERM,SIG|_IGN);..|
|00002450| 73 69 67 6e 61 6c 28 53 | 49 47 50 49 50 45 2c 53 |signal(S|IGPIPE,S|
|00002460| 49 47 5f 49 47 4e 29 3b | 0a 0a 09 75 73 65 72 20 |IG_IGN);|...user |
|00002470| 3d 20 67 65 74 75 69 64 | 28 29 3b 0a 09 73 75 70 |= getuid|();..sup|
|00002480| 65 72 75 73 65 72 20 3d | 20 75 73 65 72 20 3d 3d |eruser =| user ==|
|00002490| 20 30 3b 0a 09 67 72 6f | 75 70 20 3d 20 73 75 70 | 0;..gro|up = sup|
|000024a0| 65 72 75 73 65 72 20 3f | 20 30 20 3a 20 67 65 74 |eruser ?| 0 : get|
|000024b0| 67 69 64 28 29 3b 0a 0a | 09 62 61 64 61 72 67 20 |gid();..|.badarg |
|000024c0| 3d 20 30 3b 0a 0a 09 69 | 66 28 61 72 67 63 20 3c |= 0;...i|f(argc <|
|000024d0| 20 33 29 20 7b 0a 09 09 | 66 70 72 69 6e 74 66 28 | 3) {...|fprintf(|
|000024e0| 73 74 64 65 72 72 2c 22 | 75 73 61 67 65 3a 20 25 |stderr,"|usage: %|
|000024f0| 73 20 5b 20 6f 70 74 69 | 6f 6e 73 20 5d 20 73 72 |s [ opti|ons ] sr|
|00002500| 63 5f 64 69 72 20 64 73 | 74 5f 64 69 72 5c 6e 22 |c_dir ds|t_dir\n"|
|00002510| 2c 0a 09 09 09 09 61 72 | 67 76 5b 30 5d 29 3b 0a |,.....ar|gv[0]);.|
|00002520| 09 09 65 78 69 74 28 32 | 29 3b 0a 09 7d 0a 0a 09 |..exit(2|);..}...|
|00002530| 69 66 28 73 75 70 65 72 | 75 73 65 72 29 20 66 6f |if(super|user) fo|
|00002540| 72 28 69 3d 31 20 3b 20 | 69 3c 53 52 43 3b 20 69 |r(i=1 ; |i<SRC; i|
|00002550| 20 3d 20 6a 29 20 7b 0a | 09 09 72 65 67 69 73 74 | = j) {.|..regist|
|00002560| 65 72 20 63 68 61 72 20 | 2a 70 74 72 3b 0a 0a 09 |er char |*ptr;...|
|00002570| 09 70 74 72 20 3d 20 61 | 72 67 76 5b 69 5d 3b 0a |.ptr = a|rgv[i];.|
|00002580| 09 09 6a 20 3d 20 69 2b | 31 3b 0a 09 09 69 66 28 |..j = i+|1;...if(|
|00002590| 6a 20 3e 3d 20 53 52 43 | 29 20 7b 0a 09 09 09 66 |j >= SRC|) {....f|
|000025a0| 70 72 69 6e 74 66 28 73 | 74 64 65 72 72 2c 22 49 |printf(s|tderr,"I|
|000025b0| 6e 76 61 6c 69 64 20 61 | 72 67 75 6d 65 6e 74 3a |nvalid a|rgument:|
|000025c0| 20 25 73 5c 6e 22 2c 61 | 72 67 76 5b 69 5d 29 3b | %s\n",a|rgv[i]);|
|000025d0| 0a 09 09 09 62 61 64 61 | 72 67 2b 2b 3b 0a 09 09 |....bada|rg++;...|
|000025e0| 09 62 72 65 61 6b 3b 0a | 09 09 7d 0a 0a 09 09 69 |.break;.|..}....i|
|000025f0| 66 28 2a 70 74 72 2b 2b | 20 21 3d 20 27 2d 27 29 |f(*ptr++| != '-')|
|00002600| 20 7b 0a 09 09 09 66 70 | 72 69 6e 74 66 28 73 74 | {....fp|rintf(st|
|00002610| 64 65 72 72 2c 22 49 6e | 76 61 6c 69 64 20 61 72 |derr,"In|valid ar|
|00002620| 67 75 6d 65 6e 74 3a 20 | 25 73 5c 6e 22 2c 61 72 |gument: |%s\n",ar|
|00002630| 67 76 5b 69 5d 29 3b 0a | 09 09 09 62 61 64 61 72 |gv[i]);.|...badar|
|00002640| 67 2b 2b 3b 0a 09 09 09 | 63 6f 6e 74 69 6e 75 65 |g++;....|continue|
|00002650| 3b 0a 09 09 7d 0a 0a 09 | 09 70 77 20 3d 20 67 65 |;...}...|.pw = ge|
|00002660| 74 70 77 6e 61 6d 28 61 | 72 67 76 5b 6a 5d 29 3b |tpwnam(a|rgv[j]);|
|00002670| 0a 09 09 6a 2b 2b 3b 0a | 0a 09 09 73 77 69 74 63 |...j++;.|...switc|
|00002680| 68 28 2a 70 74 72 29 20 | 7b 0a 0a 09 09 63 61 73 |h(*ptr) |{....cas|
|00002690| 65 20 27 6f 27 3a 0a 09 | 09 09 75 73 65 72 20 3d |e 'o':..|..user =|
|000026a0| 20 70 77 2d 3e 70 77 5f | 75 69 64 3b 0a 09 09 09 | pw->pw_|uid;....|
|000026b0| 67 72 6f 75 70 20 3d 20 | 70 77 2d 3e 70 77 5f 67 |group = |pw->pw_g|
|000026c0| 69 64 3b 0a 09 09 09 62 | 72 65 61 6b 3b 0a 0a 09 |id;....b|reak;...|
|000026d0| 09 63 61 73 65 20 27 75 | 27 3a 0a 09 09 09 75 73 |.case 'u|':....us|
|000026e0| 65 72 20 3d 20 70 77 2d | 3e 70 77 5f 75 69 64 3b |er = pw-|>pw_uid;|
|000026f0| 0a 09 09 09 62 72 65 61 | 6b 3b 0a 0a 09 09 63 61 |....brea|k;....ca|
|00002700| 73 65 20 27 67 27 3a 0a | 09 09 09 67 72 6f 75 70 |se 'g':.|...group|
|00002710| 20 3d 20 70 77 2d 3e 70 | 77 5f 67 69 64 3b 0a 09 | = pw->p|w_gid;..|
|00002720| 09 09 62 72 65 61 6b 3b | 0a 0a 09 09 64 65 66 61 |..break;|....defa|
|00002730| 75 6c 74 3a 0a 09 09 09 | 66 70 72 69 6e 74 66 28 |ult:....|fprintf(|
|00002740| 73 74 64 65 72 72 2c 22 | 42 61 64 20 6f 70 74 69 |stderr,"|Bad opti|
|00002750| 6f 6e 3a 20 25 63 5c 6e | 22 2c 2a 28 70 74 72 2d |on: %c\n|",*(ptr-|
|00002760| 31 29 29 3b 0a 09 09 09 | 62 61 64 61 72 67 2b 2b |1));....|badarg++|
|00002770| 3b 0a 09 09 7d 0a 09 7d | 0a 0a 09 69 66 28 62 61 |;...}..}|...if(ba|
|00002780| 64 61 72 67 29 20 65 78 | 69 74 28 34 29 3b 0a 0a |darg) ex|it(4);..|
|00002790| 0a 09 69 66 28 21 61 63 | 63 65 73 73 28 61 72 67 |..if(!ac|cess(arg|
|000027a0| 76 5b 44 45 53 54 5d 2c | 45 58 49 53 54 53 29 29 |v[DEST],|EXISTS))|
|000027b0| 20 7b 0a 09 09 66 70 72 | 69 6e 74 66 28 73 74 64 | {...fpr|intf(std|
|000027c0| 65 72 72 2c 22 25 73 20 | 61 6c 72 65 61 64 79 20 |err,"%s |already |
|000027d0| 65 78 69 73 74 73 5c 6e | 22 2c 61 72 67 76 5b 44 |exists\n|",argv[D|
|000027e0| 45 53 54 5d 29 3b 0a 09 | 09 65 78 69 74 28 32 29 |EST]);..|.exit(2)|
|000027f0| 3b 0a 09 7d 0a 0a 09 69 | 66 28 61 63 63 65 73 73 |;..}...i|f(access|
|00002800| 28 61 72 67 76 5b 53 52 | 43 5d 2c 52 45 41 44 41 |(argv[SR|C],READA|
|00002810| 42 4c 45 29 29 20 7b 0a | 09 09 66 70 72 69 6e 74 |BLE)) {.|..fprint|
|00002820| 66 28 73 74 64 65 72 72 | 2c 22 25 73 20 6e 6f 74 |f(stderr|,"%s not|
|00002830| 20 72 65 61 64 61 62 6c | 65 5c 6e 22 2c 61 72 67 | readabl|e\n",arg|
|00002840| 76 5b 53 52 43 5d 29 3b | 0a 09 09 65 78 69 74 28 |v[SRC]);|...exit(|
|00002850| 32 29 3b 0a 09 7d 0a 0a | 0a 09 63 6f 70 79 28 61 |2);..}..|..copy(a|
|00002860| 72 67 76 5b 53 52 43 5d | 2c 61 72 67 76 5b 44 45 |rgv[SRC]|,argv[DE|
|00002870| 53 54 5d 29 3b 0a 7d 0a | 0a 63 6f 70 79 28 73 72 |ST]);.}.|.copy(sr|
|00002880| 63 2c 64 73 74 29 0a 63 | 68 61 72 20 2a 73 72 63 |c,dst).c|har *src|
|00002890| 2c 2a 64 73 74 3b 0a 7b | 0a 09 73 74 72 75 63 74 |,*dst;.{|..struct|
|000028a0| 20 64 69 72 65 63 74 20 | 64 69 72 62 75 66 3b 0a | direct |dirbuf;.|
|000028b0| 09 75 6e 69 6f 6e 20 7b | 0a 09 09 63 68 61 72 20 |.union {|...char |
|000028c0| 2a 63 3b 0a 09 09 73 74 | 72 75 63 74 20 64 69 72 |*c;...st|ruct dir|
|000028d0| 65 63 74 20 2a 64 3b 0a | 09 7d 20 75 5f 64 69 72 |ect *d;.|.} u_dir|
|000028e0| 3b 0a 09 73 74 72 75 63 | 74 20 73 74 61 74 20 73 |;..struc|t stat s|
|000028f0| 74 61 74 62 75 66 3b 0a | 09 73 74 72 75 63 74 20 |tatbuf;.|.struct |
|00002900| 73 74 61 74 20 73 72 63 | 73 74 61 74 3b 0a 09 63 |stat src|stat;..c|
|00002910| 68 61 72 20 73 72 63 5f | 66 69 6c 65 5b 32 35 36 |har src_|file[256|
|00002920| 5d 2c 64 73 74 5f 66 69 | 6c 65 5b 32 35 36 5d 3b |],dst_fi|le[256];|
|00002930| 0a 09 69 6e 74 20 73 72 | 63 5f 66 64 3b 0a 0a 09 |..int sr|c_fd;...|
|00002940| 75 5f 64 69 72 2e 64 20 | 3d 20 26 64 69 72 62 75 |u_dir.d |= &dirbu|
|00002950| 66 3b 0a 0a 09 69 66 28 | 73 74 61 74 28 73 72 63 |f;...if(|stat(src|
|00002960| 2c 26 73 72 63 73 74 61 | 74 29 29 20 7b 0a 09 09 |,&srcsta|t)) {...|
|00002970| 70 65 72 72 6f 72 28 73 | 72 63 29 3b 0a 09 09 65 |perror(s|rc);...e|
|00002980| 78 69 74 28 34 29 3b 0a | 09 7d 0a 0a 09 69 66 28 |xit(4);.|.}...if(|
|00002990| 28 73 72 63 73 74 61 74 | 2e 73 74 5f 6d 6f 64 65 |(srcstat|.st_mode|
|000029a0| 26 53 5f 49 46 4d 54 29 | 20 21 3d 20 53 5f 49 46 |&S_IFMT)| != S_IF|
|000029b0| 44 49 52 29 20 7b 0a 09 | 09 66 70 72 69 6e 74 66 |DIR) {..|.fprintf|
|000029c0| 28 73 74 64 65 72 72 2c | 22 63 6f 70 79 3a 20 25 |(stderr,|"copy: %|
|000029d0| 73 20 69 73 20 6e 6f 74 | 20 61 20 64 69 72 65 63 |s is not| a direc|
|000029e0| 74 6f 72 79 5c 6e 22 2c | 73 72 63 29 3b 0a 09 09 |tory\n",|src);...|
|000029f0| 65 78 69 74 28 34 29 3b | 0a 09 7d 0a 0a 09 2f 2a |exit(4);|..}.../*|
|00002a00| 0a 09 2a 2a 09 73 72 63 | 20 65 78 69 73 74 73 20 |..**.src| exists |
|00002a10| 61 6e 64 20 69 73 20 72 | 65 61 64 61 62 6c 65 0a |and is r|eadable.|
|00002a20| 09 2a 2a 09 6e 6f 77 20 | 6d 61 6b 65 20 74 68 65 |.**.now |make the|
|00002a30| 20 74 61 72 67 65 74 20 | 64 69 72 65 63 74 6f 72 | target |director|
|00002a40| 79 0a 09 2a 2f 0a 0a 09 | 69 66 28 6d 6b 64 69 72 |y..*/...|if(mkdir|
|00002a50| 28 64 73 74 29 29 20 7b | 0a 09 09 65 78 69 74 28 |(dst)) {|...exit(|
|00002a60| 34 29 3b 0a 09 7d 0a 0a | 09 63 68 61 6e 67 65 28 |4);..}..|.change(|
|00002a70| 64 73 74 2c 20 26 73 72 | 63 73 74 61 74 29 3b 0a |dst, &sr|cstat);.|
|00002a80| 0a 09 69 66 28 28 73 72 | 63 5f 66 64 20 3d 20 6f |..if((sr|c_fd = o|
|00002a90| 70 65 6e 28 73 72 63 2c | 30 29 29 20 3c 20 30 29 |pen(src,|0)) < 0)|
|00002aa0| 20 7b 0a 09 09 70 65 72 | 72 6f 72 28 73 72 63 29 | {...per|ror(src)|
|00002ab0| 3b 0a 09 09 65 78 69 74 | 28 34 29 3b 0a 09 7d 0a |;...exit|(4);..}.|
|00002ac0| 0a 09 77 68 69 6c 65 28 | 72 65 61 64 28 73 72 63 |..while(|read(src|
|00002ad0| 5f 66 64 2c 75 5f 64 69 | 72 2e 63 2c 73 69 7a 65 |_fd,u_di|r.c,size|
|00002ae0| 6f 66 28 64 69 72 62 75 | 66 29 29 20 3d 3d 20 73 |of(dirbu|f)) == s|
|00002af0| 69 7a 65 6f 66 28 64 69 | 72 62 75 66 29 29 20 7b |izeof(di|rbuf)) {|
|00002b00| 0a 0a 09 09 2f 2a 0a 09 | 09 2a 2a 09 74 65 73 74 |..../*..|.**.test|
|00002b10| 20 74 6f 20 73 65 65 20 | 69 66 20 74 68 65 20 64 | to see |if the d|
|00002b20| 69 72 65 63 74 6f 72 79 | 20 73 6c 6f 74 20 69 73 |irectory| slot is|
|00002b30| 20 69 6e 20 75 73 65 0a | 09 09 2a 2f 0a 0a 09 09 | in use.|..*/....|
|00002b40| 69 66 28 21 64 69 72 62 | 75 66 2e 64 5f 69 6e 6f |if(!dirb|uf.d_ino|
|00002b50| 29 20 20 7b 0a 09 09 09 | 63 6f 6e 74 69 6e 75 65 |) {....|continue|
|00002b60| 3b 0a 09 09 7d 0a 0a 09 | 09 2f 2a 0a 09 09 2a 2a |;...}...|./*...**|
|00002b70| 09 73 6b 69 70 20 22 2e | 22 20 26 20 22 2e 2e 22 |.skip ".|" & ".."|
|00002b80| 2c 20 6d 6b 64 69 72 20 | 74 61 6b 65 73 20 63 61 |, mkdir |takes ca|
|00002b90| 72 65 20 6f 66 20 74 68 | 65 6d 0a 09 09 2a 2f 0a |re of th|em...*/.|
|00002ba0| 0a 09 09 69 66 28 21 73 | 74 72 63 6d 70 28 22 2e |...if(!s|trcmp(".|
|00002bb0| 22 2c 64 69 72 62 75 66 | 2e 64 5f 6e 61 6d 65 29 |",dirbuf|.d_name)|
|00002bc0| 0a 09 09 7c 7c 20 21 73 | 74 72 63 6d 70 28 22 2e |...|| !s|trcmp(".|
|00002bd0| 2e 22 2c 64 69 72 62 75 | 66 2e 64 5f 6e 61 6d 65 |.",dirbu|f.d_name|
|00002be0| 29 29 20 7b 0a 09 09 09 | 63 6f 6e 74 69 6e 75 65 |)) {....|continue|
|00002bf0| 3b 0a 09 09 7d 0a 0a 09 | 09 2f 2a 0a 09 09 2a 2a |;...}...|./*...**|
|00002c00| 09 77 65 20 68 61 76 65 | 20 61 20 66 69 6c 65 20 |.we have| a file |
|00002c10| 6f 72 20 64 69 72 65 63 | 74 6f 72 79 20 74 6f 20 |or direc|tory to |
|00002c20| 63 6f 70 79 20 6e 6f 77 | 0a 09 09 2a 2f 0a 0a 09 |copy now|...*/...|
|00002c30| 09 6d 6b 6e 61 6d 65 28 | 73 72 63 5f 66 69 6c 65 |.mkname(|src_file|
|00002c40| 2c 73 72 63 2c 64 69 72 | 62 75 66 2e 64 5f 6e 61 |,src,dir|buf.d_na|
|00002c50| 6d 65 29 3b 0a 09 09 6d | 6b 6e 61 6d 65 28 64 73 |me);...m|kname(ds|
|00002c60| 74 5f 66 69 6c 65 2c 64 | 73 74 2c 64 69 72 62 75 |t_file,d|st,dirbu|
|00002c70| 66 2e 64 5f 6e 61 6d 65 | 29 3b 0a 0a 09 09 69 66 |f.d_name|);....if|
|00002c80| 28 73 74 61 74 28 73 72 | 63 5f 66 69 6c 65 2c 26 |(stat(sr|c_file,&|
|00002c90| 73 74 61 74 62 75 66 29 | 29 20 7b 0a 09 09 09 70 |statbuf)|) {....p|
|00002ca0| 65 72 72 6f 72 28 73 72 | 63 5f 66 69 6c 65 29 3b |error(sr|c_file);|
|00002cb0| 0a 09 09 09 65 78 69 74 | 28 34 29 3b 0a 09 09 7d |....exit|(4);...}|
|00002cc0| 0a 0a 09 09 69 66 28 21 | 73 75 70 65 72 75 73 65 |....if(!|superuse|
|00002cd0| 72 20 26 26 20 61 63 63 | 65 73 73 28 73 72 63 5f |r && acc|ess(src_|
|00002ce0| 66 69 6c 65 2c 52 45 41 | 44 41 42 4c 45 29 29 20 |file,REA|DABLE)) |
|00002cf0| 7b 0a 09 09 09 66 70 72 | 69 6e 74 66 28 73 74 64 |{....fpr|intf(std|
|00002d00| 6f 75 74 2c 22 63 6f 70 | 79 3a 20 6e 6f 20 61 63 |out,"cop|y: no ac|
|00002d10| 63 65 73 73 20 25 73 5c | 6e 22 2c 73 72 63 5f 66 |cess %s\|n",src_f|
|00002d20| 69 6c 65 29 3b 0a 09 09 | 09 63 6f 6e 74 69 6e 75 |ile);...|.continu|
|00002d30| 65 3b 0a 09 09 7d 0a 0a | 09 09 2f 2a 0a 09 09 2a |e;...}..|../*...*|
|00002d40| 2a 09 64 6f 20 74 68 65 | 20 63 6f 70 79 20 64 65 |*.do the| copy de|
|00002d50| 70 65 6e 64 69 6e 67 20 | 6f 6e 20 74 68 65 20 66 |pending |on the f|
|00002d60| 69 6c 65 20 74 79 70 65 | 0a 09 09 2a 2a 0a 09 09 |ile type|...**...|
|00002d70| 2a 2a 09 64 69 72 65 63 | 74 6f 72 79 3a 09 72 65 |**.direc|tory:.re|
|00002d80| 63 75 72 73 69 76 65 6c | 79 20 63 6f 70 79 20 74 |cursivel|y copy t|
|00002d90| 68 65 20 73 75 62 74 72 | 65 65 0a 09 09 2a 2a 09 |he subtr|ee...**.|
|00002da0| 72 65 67 75 6c 61 72 3a | 09 63 6f 70 79 20 74 68 |regular:|.copy th|
|00002db0| 65 20 66 69 6c 65 0a 09 | 09 2a 2a 09 73 70 65 63 |e file..|.**.spec|
|00002dc0| 69 61 6c 3a 09 6d 61 6b | 65 20 61 20 6e 65 77 20 |ial:.mak|e a new |
|00002dd0| 6e 6f 64 65 20 28 73 75 | 70 65 72 20 75 73 65 72 |node (su|per user|
|00002de0| 20 6f 6e 6c 79 29 0a 09 | 09 2a 2f 0a 0a 09 09 73 | only)..|.*/....s|
|00002df0| 77 69 74 63 68 28 28 73 | 74 61 74 62 75 66 2e 73 |witch((s|tatbuf.s|
|00002e00| 74 5f 6d 6f 64 65 29 26 | 53 5f 49 46 4d 54 29 20 |t_mode)&|S_IFMT) |
|00002e10| 7b 0a 0a 09 09 63 61 73 | 65 20 53 5f 49 46 44 49 |{....cas|e S_IFDI|
|00002e20| 52 3a 0a 09 09 09 63 6f | 70 79 28 73 72 63 5f 66 |R:....co|py(src_f|
|00002e30| 69 6c 65 2c 64 73 74 5f | 66 69 6c 65 29 3b 0a 09 |ile,dst_|file);..|
|00002e40| 09 09 62 72 65 61 6b 3b | 0a 0a 09 09 63 61 73 65 |..break;|....case|
|00002e50| 20 53 5f 49 46 43 48 52 | 3a 0a 09 09 63 61 73 65 | S_IFCHR|:...case|
|00002e60| 20 53 5f 49 46 42 4c 4b | 3a 0a 09 09 09 69 66 28 | S_IFBLK|:....if(|
|00002e70| 21 73 75 70 65 72 75 73 | 65 72 29 20 62 72 65 61 |!superus|er) brea|
|00002e80| 6b 3b 0a 0a 09 09 09 66 | 70 72 69 6e 74 66 28 73 |k;.....f|printf(s|
|00002e90| 74 64 6f 75 74 2c 22 6d | 61 6b 69 6e 67 20 73 70 |tdout,"m|aking sp|
|00002ea0| 65 63 69 61 6c 20 66 69 | 6c 65 20 25 73 5c 6e 22 |ecial fi|le %s\n"|
|00002eb0| 2c 64 73 74 5f 66 69 6c | 65 29 3b 0a 0a 09 09 09 |,dst_fil|e);.....|
|00002ec0| 69 66 28 6d 6b 6e 6f 64 | 28 64 73 74 5f 66 69 6c |if(mknod|(dst_fil|
|00002ed0| 65 2c 28 69 6e 74 29 20 | 73 74 61 74 62 75 66 2e |e,(int) |statbuf.|
|00002ee0| 73 74 5f 6d 6f 64 65 2c | 0a 09 09 09 09 73 74 61 |st_mode,|.....sta|
|00002ef0| 74 62 75 66 2e 73 74 5f | 72 64 65 76 29 29 20 7b |tbuf.st_|rdev)) {|
|00002f00| 0a 09 09 09 7d 0a 09 09 | 09 63 68 61 6e 67 65 28 |....}...|.change(|
|00002f10| 64 73 74 5f 66 69 6c 65 | 2c 20 26 73 74 61 74 62 |dst_file|, &statb|
|00002f20| 75 66 29 3b 0a 09 09 09 | 75 74 69 6d 65 28 64 73 |uf);....|utime(ds|
|00002f30| 74 5f 66 69 6c 65 2c 26 | 28 73 74 61 74 62 75 66 |t_file,&|(statbuf|
|00002f40| 2e 73 74 5f 61 74 69 6d | 65 29 29 3b 0a 09 09 09 |.st_atim|e));....|
|00002f50| 69 66 28 63 68 6d 6f 64 | 28 64 73 74 5f 66 69 6c |if(chmod|(dst_fil|
|00002f60| 65 2c 28 69 6e 74 29 20 | 73 74 61 74 62 75 66 2e |e,(int) |statbuf.|
|00002f70| 73 74 5f 6d 6f 64 65 29 | 29 20 7b 0a 09 09 09 09 |st_mode)|) {.....|
|00002f80| 70 65 72 72 6f 72 28 64 | 73 74 5f 66 69 6c 65 29 |perror(d|st_file)|
|00002f90| 3b 0a 09 09 09 09 65 78 | 69 74 28 34 29 3b 0a 09 |;.....ex|it(4);..|
|00002fa0| 09 09 7d 0a 09 09 09 62 | 72 65 61 6b 3b 0a 0a 09 |..}....b|reak;...|
|00002fb0| 09 63 61 73 65 20 53 5f | 49 46 52 45 47 3a 0a 09 |.case S_|IFREG:..|
|00002fc0| 09 09 66 69 6c 65 63 6f | 70 79 28 73 72 63 5f 66 |..fileco|py(src_f|
|00002fd0| 69 6c 65 2c 64 73 74 5f | 66 69 6c 65 29 3b 0a 09 |ile,dst_|file);..|
|00002fe0| 09 09 63 68 61 6e 67 65 | 28 64 73 74 5f 66 69 6c |..change|(dst_fil|
|00002ff0| 65 2c 20 26 73 74 61 74 | 62 75 66 29 3b 0a 09 09 |e, &stat|buf);...|
|00003000| 09 75 74 69 6d 65 28 64 | 73 74 5f 66 69 6c 65 2c |.utime(d|st_file,|
|00003010| 26 28 73 74 61 74 62 75 | 66 2e 73 74 5f 61 74 69 |&(statbu|f.st_ati|
|00003020| 6d 65 29 29 3b 0a 09 09 | 09 69 66 28 63 68 6d 6f |me));...|.if(chmo|
|00003030| 64 28 64 73 74 5f 66 69 | 6c 65 2c 28 69 6e 74 29 |d(dst_fi|le,(int)|
|00003040| 20 73 74 61 74 62 75 66 | 2e 73 74 5f 6d 6f 64 65 | statbuf|.st_mode|
|00003050| 29 29 20 7b 0a 09 09 09 | 09 70 65 72 72 6f 72 28 |)) {....|.perror(|
|00003060| 64 73 74 5f 66 69 6c 65 | 29 3b 0a 09 09 09 09 65 |dst_file|);.....e|
|00003070| 78 69 74 28 34 29 3b 0a | 09 09 09 7d 0a 09 09 09 |xit(4);.|...}....|
|00003080| 62 72 65 61 6b 3b 0a 0a | 09 09 64 65 66 61 75 6c |break;..|..defaul|
|00003090| 74 3a 0a 09 09 09 66 70 | 72 69 6e 74 66 28 73 74 |t:....fp|rintf(st|
|000030a0| 64 65 72 72 2c 22 62 61 | 64 20 66 69 6c 65 20 74 |derr,"ba|d file t|
|000030b0| 79 70 65 3a 20 25 73 5c | 6e 22 2c 73 72 63 5f 66 |ype: %s\|n",src_f|
|000030c0| 69 6c 65 29 3b 0a 09 09 | 7d 0a 0a 09 7d 0a 09 75 |ile);...|}...}..u|
|000030d0| 74 69 6d 65 28 64 73 74 | 2c 26 28 73 72 63 73 74 |time(dst|,&(srcst|
|000030e0| 61 74 2e 73 74 5f 61 74 | 69 6d 65 29 29 3b 0a 09 |at.st_at|ime));..|
|000030f0| 69 66 28 63 68 6d 6f 64 | 28 64 73 74 2c 28 69 6e |if(chmod|(dst,(in|
|00003100| 74 29 20 73 72 63 73 74 | 61 74 2e 73 74 5f 6d 6f |t) srcst|at.st_mo|
|00003110| 64 65 29 29 20 7b 0a 09 | 09 70 65 72 72 6f 72 28 |de)) {..|.perror(|
|00003120| 64 73 74 5f 66 69 6c 65 | 29 3b 0a 09 09 65 78 69 |dst_file|);...exi|
|00003130| 74 28 34 29 3b 0a 09 7d | 0a 0a 09 63 6c 6f 73 65 |t(4);..}|...close|
|00003140| 28 73 72 63 5f 66 64 29 | 3b 0a 7d 0a 0a 0a 6d 6b |(src_fd)|;.}...mk|
|00003150| 6e 61 6d 65 28 64 73 74 | 2c 73 74 72 31 2c 73 74 |name(dst|,str1,st|
|00003160| 72 32 29 0a 63 68 61 72 | 20 2a 64 73 74 2c 2a 73 |r2).char| *dst,*s|
|00003170| 74 72 31 2c 2a 73 74 72 | 32 3b 0a 7b 0a 09 64 73 |tr1,*str|2;.{..ds|
|00003180| 74 5b 30 5d 20 3d 20 27 | 5c 30 27 3b 0a 09 73 74 |t[0] = '|\0';..st|
|00003190| 72 63 61 74 28 64 73 74 | 2c 73 74 72 31 29 3b 0a |rcat(dst|,str1);.|
|000031a0| 09 73 74 72 63 61 74 28 | 64 73 74 2c 22 2f 22 29 |.strcat(|dst,"/")|
|000031b0| 3b 0a 09 73 74 72 6e 63 | 61 74 28 64 73 74 2c 73 |;..strnc|at(dst,s|
|000031c0| 74 72 32 2c 31 34 29 3b | 0a 0a 7d 0a 0a 66 69 6c |tr2,14);|..}..fil|
|000031d0| 65 63 6f 70 79 28 73 72 | 63 2c 64 73 74 29 0a 63 |ecopy(sr|c,dst).c|
|000031e0| 68 61 72 20 2a 73 72 63 | 2c 2a 64 73 74 3b 0a 7b |har *src|,*dst;.{|
|000031f0| 0a 09 72 65 67 69 73 74 | 65 72 20 69 6e 74 20 73 |..regist|er int s|
|00003200| 72 63 5f 66 64 2c 64 73 | 74 5f 66 64 3b 0a 09 63 |rc_fd,ds|t_fd;..c|
|00003210| 68 61 72 20 62 6c 6f 63 | 6b 5b 42 53 49 5a 45 5d |har bloc|k[BSIZE]|
|00003220| 3b 0a 09 72 65 67 69 73 | 74 65 72 20 69 6e 74 20 |;..regis|ter int |
|00003230| 73 69 7a 65 3b 0a 0a 09 | 69 66 28 28 73 72 63 5f |size;...|if((src_|
|00003240| 66 64 20 3d 20 6f 70 65 | 6e 28 73 72 63 2c 52 45 |fd = ope|n(src,RE|
|00003250| 41 44 29 29 20 3c 20 30 | 29 20 7b 0a 09 09 70 65 |AD)) < 0|) {...pe|
|00003260| 72 72 6f 72 28 73 72 63 | 29 3b 0a 09 09 65 78 69 |rror(src|);...exi|
|00003270| 74 28 34 29 3b 0a 09 7d | 0a 0a 09 69 66 28 28 64 |t(4);..}|...if((d|
|00003280| 73 74 5f 66 64 20 3d 20 | 63 72 65 61 74 28 64 73 |st_fd = |creat(ds|
|00003290| 74 2c 4d 4f 44 45 29 29 | 20 3c 20 30 29 20 7b 0a |t,MODE))| < 0) {.|
|000032a0| 09 09 70 65 72 72 6f 72 | 28 64 73 74 29 3b 0a 09 |..perror|(dst);..|
|000032b0| 09 65 78 69 74 28 34 29 | 3b 0a 09 7d 0a 0a 09 77 |.exit(4)|;..}...w|
|000032c0| 68 69 6c 65 28 28 73 69 | 7a 65 20 3d 20 72 65 61 |hile((si|ze = rea|
|000032d0| 64 28 73 72 63 5f 66 64 | 2c 62 6c 6f 63 6b 2c 42 |d(src_fd|,block,B|
|000032e0| 53 49 5a 45 29 29 20 3e | 20 30 29 20 7b 0a 09 09 |SIZE)) >| 0) {...|
|000032f0| 69 66 28 77 72 69 74 65 | 28 64 73 74 5f 66 64 2c |if(write|(dst_fd,|
|00003300| 62 6c 6f 63 6b 2c 73 69 | 7a 65 29 20 21 3d 20 73 |block,si|ze) != s|
|00003310| 69 7a 65 29 20 7b 0a 09 | 09 09 70 65 72 72 6f 72 |ize) {..|..perror|
|00003320| 28 64 73 74 29 3b 0a 09 | 09 09 65 78 69 74 28 34 |(dst);..|..exit(4|
|00003330| 29 3b 0a 09 09 7d 0a 09 | 7d 0a 0a 09 69 66 28 73 |);...}..|}...if(s|
|00003340| 69 7a 65 20 3c 20 30 29 | 20 7b 0a 09 09 70 65 72 |ize < 0)| {...per|
|00003350| 72 6f 72 28 73 72 63 29 | 3b 0a 09 09 65 78 69 74 |ror(src)|;...exit|
|00003360| 28 34 29 3b 0a 09 7d 0a | 0a 09 69 66 28 63 6c 6f |(4);..}.|..if(clo|
|00003370| 73 65 28 73 72 63 5f 66 | 64 29 29 20 7b 0a 09 09 |se(src_f|d)) {...|
|00003380| 70 65 72 72 6f 72 28 73 | 72 63 29 3b 0a 09 09 65 |perror(s|rc);...e|
|00003390| 78 69 74 28 34 29 3b 0a | 09 7d 0a 09 69 66 28 63 |xit(4);.|.}..if(c|
|000033a0| 6c 6f 73 65 28 64 73 74 | 5f 66 64 29 29 20 7b 0a |lose(dst|_fd)) {.|
|000033b0| 09 09 70 65 72 72 6f 72 | 28 73 72 63 29 3b 0a 09 |..perror|(src);..|
|000033c0| 09 65 78 69 74 28 34 29 | 3b 0a 09 7d 0a 0a 7d 0a |.exit(4)|;..}..}.|
|000033d0| 0a 63 68 61 6e 67 65 28 | 66 69 6c 65 2c 73 74 61 |.change(|file,sta|
|000033e0| 74 75 73 29 0a 63 68 61 | 72 20 2a 66 69 6c 65 3b |tus).cha|r *file;|
|000033f0| 0a 73 74 72 75 63 74 20 | 73 74 61 74 20 2a 73 74 |.struct |stat *st|
|00003400| 61 74 75 73 3b 0a 7b 0a | 09 69 6e 74 20 75 2c 67 |atus;.{.|.int u,g|
|00003410| 3b 0a 0a 09 75 20 3d 20 | 75 73 65 72 3b 0a 09 67 |;...u = |user;..g|
|00003420| 20 3d 20 67 72 6f 75 70 | 3b 0a 0a 09 69 66 28 73 | = group|;...if(s|
|00003430| 75 70 65 72 75 73 65 72 | 29 20 7b 0a 09 09 69 66 |uperuser|) {...if|
|00003440| 28 21 75 73 65 72 29 20 | 7b 0a 09 09 09 75 20 3d |(!user) |{....u =|
|00003450| 20 73 74 61 74 75 73 2d | 3e 73 74 5f 75 69 64 3b | status-|>st_uid;|
|00003460| 0a 09 09 7d 0a 09 09 69 | 66 28 21 67 72 6f 75 70 |...}...i|f(!group|
|00003470| 29 20 7b 0a 09 09 09 67 | 20 3d 20 73 74 61 74 75 |) {....g| = statu|
|00003480| 73 2d 3e 73 74 5f 67 69 | 64 3b 0a 09 09 7d 0a 09 |s->st_gi|d;...}..|
|00003490| 7d 0a 09 69 66 28 63 68 | 6f 77 6e 28 66 69 6c 65 |}..if(ch|own(file|
|000034a0| 2c 20 75 2c 20 67 29 29 | 20 7b 0a 09 09 70 65 72 |, u, g))| {...per|
|000034b0| 72 6f 72 28 66 69 6c 65 | 29 3b 0a 09 09 65 78 69 |ror(file|);...exi|
|000034c0| 74 28 34 29 3b 0a 09 7d | 0a 7d 0a 0a 0a 6d 6b 64 |t(4);..}|.}...mkd|
|000034d0| 69 72 28 64 29 0a 72 65 | 67 69 73 74 65 72 20 63 |ir(d).re|gister c|
|000034e0| 68 61 72 20 2a 64 3b 0a | 7b 0a 09 63 68 61 72 20 |har *d;.|{..char |
|000034f0| 70 6e 61 6d 65 5b 31 32 | 38 5d 2c 20 64 6e 61 6d |pname[12|8], dnam|
|00003500| 65 5b 31 32 38 5d 3b 0a | 09 72 65 67 69 73 74 65 |e[128];.|.registe|
|00003510| 72 20 69 2c 20 73 6c 61 | 73 68 20 3d 20 30 3b 0a |r i, sla|sh = 0;.|
|00003520| 0a 09 70 6e 61 6d 65 5b | 30 5d 20 3d 20 27 5c 30 |..pname[|0] = '\0|
|00003530| 27 3b 0a 09 66 6f 72 28 | 69 20 3d 20 30 3b 20 64 |';..for(|i = 0; d|
|00003540| 5b 69 5d 3b 20 2b 2b 69 | 29 0a 09 09 69 66 28 64 |[i]; ++i|)...if(d|
|00003550| 5b 69 5d 20 3d 3d 20 27 | 2f 27 29 0a 09 09 09 73 |[i] == '|/')....s|
|00003560| 6c 61 73 68 20 3d 20 69 | 20 2b 20 31 3b 0a 09 69 |lash = i| + 1;..i|
|00003570| 66 28 73 6c 61 73 68 29 | 0a 09 09 73 74 72 6e 63 |f(slash)|...strnc|
|00003580| 70 79 28 70 6e 61 6d 65 | 2c 20 64 2c 20 73 6c 61 |py(pname|, d, sla|
|00003590| 73 68 29 3b 0a 09 73 74 | 72 63 70 79 28 70 6e 61 |sh);..st|rcpy(pna|
|000035a0| 6d 65 2b 73 6c 61 73 68 | 2c 20 22 2e 22 29 3b 0a |me+slash|, ".");.|
|000035b0| 09 69 66 20 28 61 63 63 | 65 73 73 28 70 6e 61 6d |.if (acc|ess(pnam|
|000035c0| 65 2c 20 57 52 49 54 45 | 41 42 4c 45 29 29 20 7b |e, WRITE|ABLE)) {|
|000035d0| 0a 09 09 66 70 72 69 6e | 74 66 28 73 74 64 65 72 |...fprin|tf(stder|
|000035e0| 72 2c 22 6d 6b 64 69 72 | 3a 20 63 61 6e 6e 6f 74 |r,"mkdir|: cannot|
|000035f0| 20 61 63 63 65 73 73 20 | 25 73 5c 6e 22 2c 20 70 | access |%s\n", p|
|00003600| 6e 61 6d 65 29 3b 0a 09 | 09 72 65 74 75 72 6e 28 |name);..|.return(|
|00003610| 2d 31 29 3b 0a 09 7d 0a | 0a 09 69 66 20 28 28 6d |-1);..}.|..if ((m|
|00003620| 6b 6e 6f 64 28 64 2c 20 | 30 34 30 37 37 37 2c 20 |knod(d, |040777, |
|00003630| 30 29 29 20 3c 20 30 29 | 20 7b 0a 09 09 66 70 72 |0)) < 0)| {...fpr|
|00003640| 69 6e 74 66 28 73 74 64 | 65 72 72 2c 22 6d 6b 64 |intf(std|err,"mkd|
|00003650| 69 72 3a 20 63 61 6e 6e | 6f 74 20 6d 61 6b 65 20 |ir: cann|ot make |
|00003660| 64 69 72 65 63 74 6f 72 | 79 20 25 73 5c 6e 22 2c |director|y %s\n",|
|00003670| 20 64 29 3b 0a 09 09 72 | 65 74 75 72 6e 28 2d 31 | d);...r|eturn(-1|
|00003680| 29 3b 0a 09 7d 0a 09 73 | 74 72 63 70 79 28 64 6e |);..}..s|trcpy(dn|
|00003690| 61 6d 65 2c 20 64 29 3b | 0a 09 73 74 72 63 61 74 |ame, d);|..strcat|
|000036a0| 28 64 6e 61 6d 65 2c 20 | 22 2f 2e 22 29 3b 0a 0a |(dname, |"/.");..|
|000036b0| 09 69 66 28 28 6c 69 6e | 6b 28 64 2c 20 64 6e 61 |.if((lin|k(d, dna|
|000036c0| 6d 65 29 29 20 3c 20 30 | 29 20 7b 0a 09 09 66 70 |me)) < 0|) {...fp|
|000036d0| 72 69 6e 74 66 28 73 74 | 64 65 72 72 2c 20 22 6d |rintf(st|derr, "m|
|000036e0| 6b 64 69 72 3a 20 63 61 | 6e 6e 6f 74 20 6c 69 6e |kdir: ca|nnot lin|
|000036f0| 6b 20 25 73 5c 6e 22 2c | 20 64 6e 61 6d 65 29 3b |k %s\n",| dname);|
|00003700| 0a 09 09 75 6e 6c 69 6e | 6b 28 64 29 3b 0a 09 09 |...unlin|k(d);...|
|00003710| 72 65 74 75 72 6e 28 2d | 31 29 3b 0a 09 7d 0a 09 |return(-|1);..}..|
|00003720| 73 74 72 63 61 74 28 64 | 6e 61 6d 65 2c 20 22 2e |strcat(d|name, ".|
|00003730| 22 29 3b 0a 09 69 66 28 | 28 6c 69 6e 6b 28 70 6e |");..if(|(link(pn|
|00003740| 61 6d 65 2c 20 64 6e 61 | 6d 65 29 29 20 3c 20 30 |ame, dna|me)) < 0|
|00003750| 29 20 7b 0a 09 09 66 70 | 72 69 6e 74 66 28 73 74 |) {...fp|rintf(st|
|00003760| 64 65 72 72 2c 20 22 6d | 6b 64 69 72 3a 20 63 61 |derr, "m|kdir: ca|
|00003770| 6e 6e 6f 74 20 6c 69 6e | 6b 20 25 73 5c 6e 22 2c |nnot lin|k %s\n",|
|00003780| 64 6e 61 6d 65 29 3b 0a | 09 09 64 6e 61 6d 65 5b |dname);.|..dname[|
|00003790| 73 74 72 6c 65 6e 28 64 | 6e 61 6d 65 29 5d 20 3d |strlen(d|name)] =|
|000037a0| 20 27 5c 30 27 3b 0a 09 | 09 75 6e 6c 69 6e 6b 28 | '\0';..|.unlink(|
|000037b0| 64 6e 61 6d 65 29 3b 0a | 09 09 75 6e 6c 69 6e 6b |dname);.|..unlink|
|000037c0| 28 64 29 3b 0a 09 09 72 | 65 74 75 72 6e 28 2d 31 |(d);...r|eturn(-1|
|000037d0| 29 3b 0a 09 7d 0a 0a 09 | 72 65 74 75 72 6e 28 30 |);..}...|return(0|
|000037e0| 29 3b 0a 7d 0a 53 48 41 | 52 5f 45 4f 46 0a 69 66 |);.}.SHA|R_EOF.if|
|000037f0| 20 74 65 73 74 20 36 30 | 38 32 20 2d 6e 65 20 22 | test 60|82 -ne "|
|00003800| 60 77 63 20 2d 63 20 3c | 20 27 63 6f 70 79 2e 63 |`wc -c <| 'copy.c|
|00003810| 27 60 22 0a 74 68 65 6e | 0a 09 65 63 68 6f 20 73 |'`".then|..echo s|
|00003820| 68 61 72 3a 20 65 72 72 | 6f 72 20 74 72 61 6e 73 |har: err|or trans|
|00003830| 6d 69 74 74 69 6e 67 20 | 22 27 63 6f 70 79 2e 63 |mitting |"'copy.c|
|00003840| 27 22 20 27 28 73 68 6f | 75 6c 64 20 68 61 76 65 |'" '(sho|uld have|
|00003850| 20 62 65 65 6e 20 36 30 | 38 32 20 63 68 61 72 61 | been 60|82 chara|
|00003860| 63 74 65 72 73 29 27 0a | 66 69 0a 66 69 0a 65 63 |cters)'.|fi.fi.ec|
|00003870| 68 6f 20 73 68 61 72 3a | 20 65 78 74 72 61 63 74 |ho shar:| extract|
|00003880| 69 6e 67 20 22 27 63 72 | 2e 63 27 22 20 27 28 37 |ing "'cr|.c'" '(7|
|00003890| 37 38 20 63 68 61 72 61 | 63 74 65 72 73 29 27 0a |78 chara|cters)'.|
|000038a0| 69 66 20 74 65 73 74 20 | 2d 66 20 27 63 72 2e 63 |if test |-f 'cr.c|
|000038b0| 27 0a 74 68 65 6e 0a 09 | 65 63 68 6f 20 73 68 61 |'.then..|echo sha|
|000038c0| 72 3a 20 77 69 6c 6c 20 | 6e 6f 74 20 6f 76 65 72 |r: will |not over|
|000038d0| 2d 77 72 69 74 65 20 65 | 78 69 73 74 69 6e 67 20 |-write e|xisting |
|000038e0| 66 69 6c 65 20 22 27 63 | 72 2e 63 27 22 0a 65 6c |file "'c|r.c'".el|
|000038f0| 73 65 0a 63 61 74 20 3c | 3c 20 5c 53 48 41 52 5f |se.cat <|< \SHAR_|
|00003900| 45 4f 46 20 3e 20 27 63 | 72 2e 63 27 0a 23 0a 23 |EOF > 'c|r.c'.#.#|
|00003910| 69 6e 63 6c 75 64 65 20 | 3c 66 69 6c 65 2e 68 3e |include |<file.h>|
|00003920| 0a 0a 23 64 65 66 69 6e | 65 20 43 52 09 31 33 0a |..#defin|e CR.13.|
|00003930| 23 64 65 66 69 6e 65 20 | 4e 4c 09 31 30 0a 0a 63 |#define |NL.10..c|
|00003940| 68 61 72 20 2a 0a 4c 46 | 32 43 52 28 66 69 6c 65 |har *.LF|2CR(file|
|00003950| 29 0a 63 68 61 72 20 2a | 66 69 6c 65 3b 20 7b 0a |).char *|file; {.|
|00003960| 09 69 6e 74 20 69 64 2c | 20 6f 69 64 3b 0a 09 63 |.int id,| oid;..c|
|00003970| 68 61 72 20 62 75 66 5b | 35 31 32 5d 2c 20 2a 69 |har buf[|512], *i|
|00003980| 6e 64 65 78 28 29 3b 0a | 09 73 74 61 74 69 63 20 |ndex();.|.static |
|00003990| 63 68 61 72 20 74 65 6d | 70 5b 31 31 5d 3b 0a 09 |char tem|p[11];..|
|000039a0| 72 65 67 69 73 74 65 72 | 20 63 68 61 72 20 2a 70 |register| char *p|
|000039b0| 74 72 20 3d 20 62 75 66 | 3b 0a 09 72 65 67 69 73 |tr = buf|;..regis|
|000039c0| 74 65 72 20 6c 6e 2c 20 | 63 6f 75 6e 74 3b 0a 0a |ter ln, |count;..|
|000039d0| 09 73 74 72 63 70 79 28 | 74 65 6d 70 2c 22 74 65 |.strcpy(|temp,"te|
|000039e0| 6d 70 58 58 58 58 58 58 | 22 29 3b 0a 09 6d 6b 74 |mpXXXXXX|");..mkt|
|000039f0| 65 6d 70 28 74 65 6d 70 | 29 3b 0a 09 69 66 20 28 |emp(temp|);..if (|
|00003a00| 28 6f 69 64 20 3d 20 6f | 70 65 6e 28 74 65 6d 70 |(oid = o|pen(temp|
|00003a10| 2c 4f 5f 43 52 45 41 54 | 20 7c 20 4f 5f 57 52 4f |,O_CREAT| | O_WRO|
|00003a20| 4e 4c 59 2c 30 36 34 34 | 29 29 20 3c 20 30 29 20 |NLY,0644|)) < 0) |
|00003a30| 7b 0a 09 09 70 65 72 72 | 6f 72 28 74 65 6d 70 29 |{...perr|or(temp)|
|00003a40| 3b 0a 09 09 75 6e 6c 69 | 6e 6b 28 74 65 6d 70 29 |;...unli|nk(temp)|
|00003a50| 3b 0a 09 09 65 78 69 74 | 28 2d 31 29 3b 0a 09 7d |;...exit|(-1);..}|
|00003a60| 0a 09 69 66 20 28 28 69 | 64 20 3d 20 6f 70 65 6e |..if ((i|d = open|
|00003a70| 28 66 69 6c 65 2c 4f 5f | 52 44 4f 4e 4c 59 2c 30 |(file,O_|RDONLY,0|
|00003a80| 36 34 34 29 29 20 3c 20 | 30 29 20 7b 0a 09 09 70 |644)) < |0) {...p|
|00003a90| 65 72 72 6f 72 28 66 69 | 6c 65 29 3b 0a 09 09 75 |error(fi|le);...u|
|00003aa0| 6e 6c 69 6e 6b 28 74 65 | 6d 70 29 3b 0a 09 09 65 |nlink(te|mp);...e|
|00003ab0| 78 69 74 28 2d 31 29 3b | 0a 09 7d 0a 09 09 09 0a |xit(-1);|..}.....|
|00003ac0| 09 63 6f 75 6e 74 20 3d | 20 30 3b 0a 09 77 68 69 |.count =| 0;..whi|
|00003ad0| 6c 65 20 28 6c 6e 20 3d | 20 72 65 61 64 28 69 64 |le (ln =| read(id|
|00003ae0| 2c 70 74 72 2c 35 31 32 | 29 29 20 7b 0a 09 09 77 |,ptr,512|)) {...w|
|00003af0| 68 69 6c 65 20 28 20 70 | 74 72 20 3d 20 69 6e 64 |hile ( p|tr = ind|
|00003b00| 65 78 28 70 74 72 2c 4e | 4c 29 20 29 20 7b 0a 09 |ex(ptr,N|L) ) {..|
|00003b10| 09 09 69 66 20 28 70 74 | 72 20 3e 20 26 62 75 66 |..if (pt|r > &buf|
|00003b20| 5b 6c 6e 5d 29 20 62 72 | 65 61 6b 3b 0a 09 09 09 |[ln]) br|eak;....|
|00003b30| 2a 70 74 72 20 3d 20 43 | 52 3b 0a 09 09 7d 0a 09 |*ptr = C|R;...}..|
|00003b40| 09 77 72 69 74 65 28 6f | 69 64 2c 70 74 72 20 3d |.write(o|id,ptr =|
|00003b50| 20 62 75 66 2c 6c 6e 29 | 3b 0a 09 09 63 6f 75 6e | buf,ln)|;...coun|
|00003b60| 74 20 2b 3d 20 6c 6e 3b | 0a 09 7d 0a 09 69 66 20 |t += ln;|..}..if |
|00003b70| 28 6c 6e 20 3d 20 63 6f | 75 6e 74 20 25 20 31 32 |(ln = co|unt % 12|
|00003b80| 38 29 20 7b 0a 09 09 63 | 6f 75 6e 74 20 3d 20 31 |8) {...c|ount = 1|
|00003b90| 32 38 20 2d 20 6c 6e 3b | 0a 09 09 66 6f 72 20 28 |28 - ln;|...for (|
|00003ba0| 6c 6e 20 3d 20 30 2c 20 | 70 74 72 20 3d 20 62 75 |ln = 0, |ptr = bu|
|00003bb0| 66 3b 20 6c 6e 20 3c 20 | 63 6f 75 6e 74 20 3b 20 |f; ln < |count ; |
|00003bc0| 6c 6e 2b 2b 2c 20 2a 70 | 74 72 2b 2b 20 3d 20 27 |ln++, *p|tr++ = '|
|00003bd0| 20 27 29 3b 0a 09 09 77 | 72 69 74 65 28 6f 69 64 | ');...w|rite(oid|
|00003be0| 2c 62 75 66 2c 6c 6e 29 | 3b 0a 09 7d 0a 0a 09 63 |,buf,ln)|;..}...c|
|00003bf0| 6c 6f 73 65 28 6f 69 64 | 29 3b 20 63 6c 6f 73 65 |lose(oid|); close|
|00003c00| 28 69 64 29 3b 0a 09 72 | 65 74 75 72 6e 28 74 65 |(id);..r|eturn(te|
|00003c10| 6d 70 29 3b 0a 7d 0a 53 | 48 41 52 5f 45 4f 46 0a |mp);.}.S|HAR_EOF.|
|00003c20| 69 66 20 74 65 73 74 20 | 37 37 38 20 2d 6e 65 20 |if test |778 -ne |
|00003c30| 22 60 77 63 20 2d 63 20 | 3c 20 27 63 72 2e 63 27 |"`wc -c |< 'cr.c'|
|00003c40| 60 22 0a 74 68 65 6e 0a | 09 65 63 68 6f 20 73 68 |`".then.|.echo sh|
|00003c50| 61 72 3a 20 65 72 72 6f | 72 20 74 72 61 6e 73 6d |ar: erro|r transm|
|00003c60| 69 74 74 69 6e 67 20 22 | 27 63 72 2e 63 27 22 20 |itting "|'cr.c'" |
|00003c70| 27 28 73 68 6f 75 6c 64 | 20 68 61 76 65 20 62 65 |'(should| have be|
|00003c80| 65 6e 20 37 37 38 20 63 | 68 61 72 61 63 74 65 72 |en 778 c|haracter|
|00003c90| 73 29 27 0a 66 69 0a 66 | 69 0a 65 63 68 6f 20 73 |s)'.fi.f|i.echo s|
|00003ca0| 68 61 72 3a 20 65 78 74 | 72 61 63 74 69 6e 67 20 |har: ext|racting |
|00003cb0| 22 27 63 72 32 6c 66 2e | 63 27 22 20 27 28 31 32 |"'cr2lf.|c'" '(12|
|00003cc0| 39 20 63 68 61 72 61 63 | 74 65 72 73 29 27 0a 69 |9 charac|ters)'.i|
|00003cd0| 66 20 74 65 73 74 20 2d | 66 20 27 63 72 32 6c 66 |f test -|f 'cr2lf|
|00003ce0| 2e 63 27 0a 74 68 65 6e | 0a 09 65 63 68 6f 20 73 |.c'.then|..echo s|
|00003cf0| 68 61 72 3a 20 77 69 6c | 6c 20 6e 6f 74 20 6f 76 |har: wil|l not ov|
|00003d00| 65 72 2d 77 72 69 74 65 | 20 65 78 69 73 74 69 6e |er-write| existin|
|00003d10| 67 20 66 69 6c 65 20 22 | 27 63 72 32 6c 66 2e 63 |g file "|'cr2lf.c|
|00003d20| 27 22 0a 65 6c 73 65 0a | 63 61 74 20 3c 3c 20 5c |'".else.|cat << \|
|00003d30| 53 48 41 52 5f 45 4f 46 | 20 3e 20 27 63 72 32 6c |SHAR_EOF| > 'cr2l|
|00003d40| 66 2e 63 27 0a 6d 61 69 | 6e 28 61 72 67 63 2c 61 |f.c'.mai|n(argc,a|
|00003d50| 72 67 76 29 0a 69 6e 74 | 20 61 72 67 63 3b 0a 63 |rgv).int| argc;.c|
|00003d60| 68 61 72 20 2a 61 72 67 | 76 5b 5d 3b 20 7b 0a 09 |har *arg|v[]; {..|
|00003d70| 63 68 61 72 20 62 75 66 | 5b 35 31 32 5d 3b 0a 09 |char buf|[512];..|
|00003d80| 72 65 67 69 73 74 65 72 | 20 69 6e 74 20 69 3b 0a |register| int i;.|
|00003d90| 0a 09 66 6f 72 20 28 69 | 20 3d 20 31 3b 20 69 20 |..for (i| = 1; i |
|00003da0| 3c 20 61 72 67 63 3b 20 | 69 2b 2b 29 20 7b 0a 09 |< argc; |i++) {..|
|00003db0| 09 43 52 32 4c 46 28 61 | 72 67 76 5b 69 5d 29 3b |.CR2LF(a|rgv[i]);|
|00003dc0| 0a 09 7d 0a 7d 0a 53 48 | 41 52 5f 45 4f 46 0a 69 |..}.}.SH|AR_EOF.i|
|00003dd0| 66 20 74 65 73 74 20 31 | 32 39 20 2d 6e 65 20 22 |f test 1|29 -ne "|
|00003de0| 60 77 63 20 2d 63 20 3c | 20 27 63 72 32 6c 66 2e |`wc -c <| 'cr2lf.|
|00003df0| 63 27 60 22 0a 74 68 65 | 6e 0a 09 65 63 68 6f 20 |c'`".the|n..echo |
|00003e00| 73 68 61 72 3a 20 65 72 | 72 6f 72 20 74 72 61 6e |shar: er|ror tran|
|00003e10| 73 6d 69 74 74 69 6e 67 | 20 22 27 63 72 32 6c 66 |smitting| "'cr2lf|
|00003e20| 2e 63 27 22 20 27 28 73 | 68 6f 75 6c 64 20 68 61 |.c'" '(s|hould ha|
|00003e30| 76 65 20 62 65 65 6e 20 | 31 32 39 20 63 68 61 72 |ve been |129 char|
|00003e40| 61 63 74 65 72 73 29 27 | 0a 66 69 0a 66 69 0a 65 |acters)'|.fi.fi.e|
|00003e50| 63 68 6f 20 73 68 61 72 | 3a 20 65 78 74 72 61 63 |cho shar|: extrac|
|00003e60| 74 69 6e 67 20 22 27 64 | 65 6c 2e 63 27 22 20 27 |ting "'d|el.c'" '|
|00003e70| 28 31 30 33 30 20 63 68 | 61 72 61 63 74 65 72 73 |(1030 ch|aracters|
|00003e80| 29 27 0a 69 66 20 74 65 | 73 74 20 2d 66 20 27 64 |)'.if te|st -f 'd|
|00003e90| 65 6c 2e 63 27 0a 74 68 | 65 6e 0a 09 65 63 68 6f |el.c'.th|en..echo|
|00003ea0| 20 73 68 61 72 3a 20 77 | 69 6c 6c 20 6e 6f 74 20 | shar: w|ill not |
|00003eb0| 6f 76 65 72 2d 77 72 69 | 74 65 20 65 78 69 73 74 |over-wri|te exist|
|00003ec0| 69 6e 67 20 66 69 6c 65 | 20 22 27 64 65 6c 2e 63 |ing file| "'del.c|
|00003ed0| 27 22 0a 65 6c 73 65 0a | 63 61 74 20 3c 3c 20 5c |'".else.|cat << \|
|00003ee0| 53 48 41 52 5f 45 4f 46 | 20 3e 20 27 64 65 6c 2e |SHAR_EOF| > 'del.|
|00003ef0| 63 27 0a 23 0a 23 20 69 | 6e 63 6c 75 64 65 20 3c |c'.#.# i|nclude <|
|00003f00| 66 69 6c 65 2e 68 3e 0a | 0a 23 20 64 65 66 69 6e |file.h>.|.# defin|
|00003f10| 65 20 43 52 09 31 33 0a | 23 20 64 65 66 69 6e 65 |e CR.13.|# define|
|00003f20| 20 4e 4c 09 31 30 0a 23 | 20 64 65 66 69 6e 65 20 | NL.10.#| define |
|00003f30| 43 54 52 4c 5f 5a 09 32 | 36 0a 23 20 64 65 66 69 |CTRL_Z.2|6.# defi|
|00003f40| 6e 65 20 42 4c 4f 43 4b | 09 35 31 32 0a 0a 44 45 |ne BLOCK|.512..DE|
|00003f50| 4c 43 52 28 66 69 6c 65 | 29 0a 63 68 61 72 20 2a |LCR(file|).char *|
|00003f60| 66 69 6c 65 3b 20 7b 0a | 09 69 6e 74 20 69 64 2c |file; {.|.int id,|
|00003f70| 20 6f 69 64 3b 0a 09 63 | 68 61 72 20 62 75 66 5b | oid;..c|har buf[|
|00003f80| 42 4c 4f 43 4b 2b 31 30 | 5d 2c 20 2a 69 6e 64 65 |BLOCK+10|], *inde|
|00003f90| 78 28 29 3b 0a 09 73 74 | 61 74 69 63 20 63 68 61 |x();..st|atic cha|
|00003fa0| 72 20 74 65 6d 70 5b 31 | 31 5d 3b 0a 09 72 65 67 |r temp[1|1];..reg|
|00003fb0| 69 73 74 65 72 20 63 68 | 61 72 20 2a 70 74 72 20 |ister ch|ar *ptr |
|00003fc0| 3d 20 62 75 66 2c 20 2a | 6f 64 2c 20 2a 63 7a 3b |= buf, *|od, *cz;|
|00003fd0| 0a 09 72 65 67 69 73 74 | 65 72 20 69 6e 74 20 6c |..regist|er int l|
|00003fe0| 65 6e 3b 0a 0a 09 73 74 | 72 63 70 79 28 74 65 6d |en;...st|rcpy(tem|
|00003ff0| 70 2c 22 74 65 6d 70 58 | 58 58 58 58 58 22 29 3b |p,"tempX|XXXXX");|
|00004000| 0a 09 6d 6b 74 65 6d 70 | 28 74 65 6d 70 29 3b 0a |..mktemp|(temp);.|
|00004010| 09 69 66 20 28 28 6f 69 | 64 20 3d 20 6f 70 65 6e |.if ((oi|d = open|
|00004020| 28 74 65 6d 70 2c 4f 5f | 43 52 45 41 54 20 7c 20 |(temp,O_|CREAT | |
|00004030| 4f 5f 57 52 4f 4e 4c 59 | 2c 30 36 34 34 29 29 20 |O_WRONLY|,0644)) |
|00004040| 3c 20 30 29 20 7b 0a 09 | 09 70 65 72 72 6f 72 28 |< 0) {..|.perror(|
|00004050| 74 65 6d 70 29 3b 0a 09 | 09 75 6e 6c 69 6e 6b 28 |temp);..|.unlink(|
|00004060| 74 65 6d 70 29 3b 0a 09 | 09 65 78 69 74 28 2d 31 |temp);..|.exit(-1|
|00004070| 29 3b 0a 09 7d 0a 0a 09 | 69 66 20 28 28 69 64 20 |);..}...|if ((id |
|00004080| 3d 20 6f 70 65 6e 28 66 | 69 6c 65 2c 4f 5f 52 44 |= open(f|ile,O_RD|
|00004090| 4f 4e 4c 59 2c 30 36 34 | 34 29 29 20 3c 20 30 29 |ONLY,064|4)) < 0)|
|000040a0| 20 7b 0a 09 09 70 65 72 | 72 6f 72 28 66 69 6c 65 | {...per|ror(file|
|000040b0| 29 3b 0a 09 09 75 6e 6c | 69 6e 6b 28 74 65 6d 70 |);...unl|ink(temp|
|000040c0| 29 3b 0a 09 09 65 78 69 | 74 28 2d 31 29 3b 0a 09 |);...exi|t(-1);..|
|000040d0| 7d 0a 0a 09 77 68 69 6c | 65 20 28 28 6c 65 6e 20 |}...whil|e ((len |
|000040e0| 3d 20 72 65 61 64 28 69 | 64 2c 70 74 72 2c 42 4c |= read(i|d,ptr,BL|
|000040f0| 4f 43 4b 29 29 20 3e 20 | 30 29 20 7b 0a 09 09 2a |OCK)) > |0) {...*|
|00004100| 28 70 74 72 20 2b 20 6c | 65 6e 29 20 3d 20 30 3b |(ptr + l|en) = 0;|
|00004110| 0a 09 09 77 68 69 6c 65 | 20 28 20 6f 64 20 3d 20 |...while| ( od = |
|00004120| 69 6e 64 65 78 28 70 74 | 72 2c 43 52 29 20 29 20 |index(pt|r,CR) ) |
|00004130| 7b 0a 09 09 09 2a 6f 64 | 20 3d 20 27 5c 30 27 3b |{....*od| = '\0';|
|00004140| 0a 09 09 09 69 66 20 28 | 63 7a 20 3d 20 69 6e 64 |....if (|cz = ind|
|00004150| 65 78 28 70 74 72 2c 43 | 54 52 4c 5f 5a 29 29 20 |ex(ptr,C|TRL_Z)) |
|00004160| 7b 0a 09 09 09 09 2a 63 | 7a 20 3d 20 27 5c 30 27 |{.....*c|z = '\0'|
|00004170| 3b 0a 09 09 09 09 77 72 | 69 74 65 28 6f 69 64 2c |;.....wr|ite(oid,|
|00004180| 20 70 74 72 2c 20 73 74 | 72 6c 65 6e 28 70 74 72 | ptr, st|rlen(ptr|
|00004190| 29 29 3b 0a 09 09 09 20 | 09 67 6f 74 6f 20 4f 55 |));.... |.goto OU|
|000041a0| 54 3b 0a 09 09 09 7d 0a | 09 09 09 77 72 69 74 65 |T;....}.|...write|
|000041b0| 28 6f 69 64 2c 20 70 74 | 72 2c 20 73 74 72 6c 65 |(oid, pt|r, strle|
|000041c0| 6e 28 70 74 72 29 29 3b | 0a 09 09 09 70 74 72 20 |n(ptr));|....ptr |
|000041d0| 3d 20 2b 2b 6f 64 3b 0a | 09 09 7d 0a 09 09 69 66 |= ++od;.|..}...if|
|000041e0| 20 28 63 7a 20 3d 20 69 | 6e 64 65 78 28 70 74 72 | (cz = i|ndex(ptr|
|000041f0| 2c 43 54 52 4c 5f 5a 29 | 29 20 7b 0a 09 09 09 2a |,CTRL_Z)|) {....*|
|00004200| 63 7a 20 3d 20 27 5c 30 | 27 3b 0a 09 09 09 77 72 |cz = '\0|';....wr|
|00004210| 69 74 65 28 6f 69 64 2c | 20 70 74 72 2c 20 73 74 |ite(oid,| ptr, st|
|00004220| 72 6c 65 6e 28 70 74 72 | 29 29 3b 0a 09 09 20 09 |rlen(ptr|));... .|
|00004230| 67 6f 74 6f 20 4f 55 54 | 3b 0a 09 09 7d 0a 09 09 |goto OUT|;...}...|
|00004240| 69 66 20 28 6c 65 6e 20 | 3d 20 73 74 72 6c 65 6e |if (len |= strlen|
|00004250| 28 70 74 72 29 29 0a 09 | 09 77 72 69 74 65 28 6f |(ptr))..|.write(o|
|00004260| 69 64 2c 20 70 74 72 2c | 20 6c 65 6e 29 3b 0a 09 |id, ptr,| len);..|
|00004270| 09 70 74 72 20 3d 20 62 | 75 66 3b 0a 09 7d 0a 0a |.ptr = b|uf;..}..|
|00004280| 4f 55 54 3a 0a 09 63 6c | 6f 73 65 28 6f 69 64 29 |OUT:..cl|ose(oid)|
|00004290| 3b 20 63 6c 6f 73 65 28 | 69 64 29 3b 0a 09 73 74 |; close(|id);..st|
|000042a0| 72 63 70 79 28 62 75 66 | 2c 22 6d 76 20 22 29 3b |rcpy(buf|,"mv ");|
|000042b0| 0a 09 73 74 72 63 61 74 | 28 62 75 66 2c 74 65 6d |..strcat|(buf,tem|
|000042c0| 70 29 3b 0a 09 73 74 72 | 63 61 74 28 62 75 66 2c |p);..str|cat(buf,|
|000042d0| 22 20 22 29 3b 0a 09 73 | 74 72 63 61 74 28 62 75 |" ");..s|trcat(bu|
|000042e0| 66 2c 66 69 6c 65 29 3b | 0a 09 73 79 73 74 65 6d |f,file);|..system|
|000042f0| 28 62 75 66 29 3b 0a 7d | 0a 53 48 41 52 5f 45 4f |(buf);.}|.SHAR_EO|
|00004300| 46 0a 69 66 20 74 65 73 | 74 20 31 30 33 30 20 2d |F.if tes|t 1030 -|
|00004310| 6e 65 20 22 60 77 63 20 | 2d 63 20 3c 20 27 64 65 |ne "`wc |-c < 'de|
|00004320| 6c 2e 63 27 60 22 0a 74 | 68 65 6e 0a 09 65 63 68 |l.c'`".t|hen..ech|
|00004330| 6f 20 73 68 61 72 3a 20 | 65 72 72 6f 72 20 74 72 |o shar: |error tr|
|00004340| 61 6e 73 6d 69 74 74 69 | 6e 67 20 22 27 64 65 6c |ansmitti|ng "'del|
|00004350| 2e 63 27 22 20 27 28 73 | 68 6f 75 6c 64 20 68 61 |.c'" '(s|hould ha|
|00004360| 76 65 20 62 65 65 6e 20 | 31 30 33 30 20 63 68 61 |ve been |1030 cha|
|00004370| 72 61 63 74 65 72 73 29 | 27 0a 66 69 0a 66 69 0a |racters)|'.fi.fi.|
|00004380| 65 63 68 6f 20 73 68 61 | 72 3a 20 65 78 74 72 61 |echo sha|r: extra|
|00004390| 63 74 69 6e 67 20 22 27 | 64 65 6c 63 72 2e 63 27 |cting "'|delcr.c'|
|000043a0| 22 20 27 28 31 32 39 20 | 63 68 61 72 61 63 74 65 |" '(129 |characte|
|000043b0| 72 73 29 27 0a 69 66 20 | 74 65 73 74 20 2d 66 20 |rs)'.if |test -f |
|000043c0| 27 64 65 6c 63 72 2e 63 | 27 0a 74 68 65 6e 0a 09 |'delcr.c|'.then..|
|000043d0| 65 63 68 6f 20 73 68 61 | 72 3a 20 77 69 6c 6c 20 |echo sha|r: will |
|000043e0| 6e 6f 74 20 6f 76 65 72 | 2d 77 72 69 74 65 20 65 |not over|-write e|
|000043f0| 78 69 73 74 69 6e 67 20 | 66 69 6c 65 20 22 27 64 |xisting |file "'d|
|00004400| 65 6c 63 72 2e 63 27 22 | 0a 65 6c 73 65 0a 63 61 |elcr.c'"|.else.ca|
|00004410| 74 20 3c 3c 20 5c 53 48 | 41 52 5f 45 4f 46 20 3e |t << \SH|AR_EOF >|
|00004420| 20 27 64 65 6c 63 72 2e | 63 27 0a 6d 61 69 6e 28 | 'delcr.|c'.main(|
|00004430| 61 72 67 63 2c 61 72 67 | 76 29 0a 69 6e 74 20 61 |argc,arg|v).int a|
|00004440| 72 67 63 3b 0a 63 68 61 | 72 20 2a 61 72 67 76 5b |rgc;.cha|r *argv[|
|00004450| 5d 3b 20 7b 0a 09 63 68 | 61 72 20 62 75 66 5b 35 |]; {..ch|ar buf[5|
|00004460| 31 32 5d 3b 0a 09 72 65 | 67 69 73 74 65 72 20 69 |12];..re|gister i|
|00004470| 6e 74 20 69 3b 0a 0a 09 | 66 6f 72 20 28 69 20 3d |nt i;...|for (i =|
|00004480| 20 31 3b 20 69 20 3c 20 | 61 72 67 63 3b 20 69 2b | 1; i < |argc; i+|
|00004490| 2b 29 20 7b 0a 09 09 44 | 45 4c 43 52 28 61 72 67 |+) {...D|ELCR(arg|
|000044a0| 76 5b 69 5d 29 3b 0a 09 | 7d 0a 7d 0a 53 48 41 52 |v[i]);..|}.}.SHAR|
|000044b0| 5f 45 4f 46 0a 69 66 20 | 74 65 73 74 20 31 32 39 |_EOF.if |test 129|
|000044c0| 20 2d 6e 65 20 22 60 77 | 63 20 2d 63 20 3c 20 27 | -ne "`w|c -c < '|
|000044d0| 64 65 6c 63 72 2e 63 27 | 60 22 0a 74 68 65 6e 0a |delcr.c'|`".then.|
|000044e0| 09 65 63 68 6f 20 73 68 | 61 72 3a 20 65 72 72 6f |.echo sh|ar: erro|
|000044f0| 72 20 74 72 61 6e 73 6d | 69 74 74 69 6e 67 20 22 |r transm|itting "|
|00004500| 27 64 65 6c 63 72 2e 63 | 27 22 20 27 28 73 68 6f |'delcr.c|'" '(sho|
|00004510| 75 6c 64 20 68 61 76 65 | 20 62 65 65 6e 20 31 32 |uld have| been 12|
|00004520| 39 20 63 68 61 72 61 63 | 74 65 72 73 29 27 0a 66 |9 charac|ters)'.f|
|00004530| 69 0a 66 69 0a 65 63 68 | 6f 20 73 68 61 72 3a 20 |i.fi.ech|o shar: |
|00004540| 65 78 74 72 61 63 74 69 | 6e 67 20 22 27 6c 66 2e |extracti|ng "'lf.|
|00004550| 63 27 22 20 27 28 31 32 | 35 32 20 63 68 61 72 61 |c'" '(12|52 chara|
|00004560| 63 74 65 72 73 29 27 0a | 69 66 20 74 65 73 74 20 |cters)'.|if test |
|00004570| 2d 66 20 27 6c 66 2e 63 | 27 0a 74 68 65 6e 0a 09 |-f 'lf.c|'.then..|
|00004580| 65 63 68 6f 20 73 68 61 | 72 3a 20 77 69 6c 6c 20 |echo sha|r: will |
|00004590| 6e 6f 74 20 6f 76 65 72 | 2d 77 72 69 74 65 20 65 |not over|-write e|
|000045a0| 78 69 73 74 69 6e 67 20 | 66 69 6c 65 20 22 27 6c |xisting |file "'l|
|000045b0| 66 2e 63 27 22 0a 65 6c | 73 65 0a 63 61 74 20 3c |f.c'".el|se.cat <|
|000045c0| 3c 20 5c 53 48 41 52 5f | 45 4f 46 20 3e 20 27 6c |< \SHAR_|EOF > 'l|
|000045d0| 66 2e 63 27 0a 23 0a 23 | 69 6e 63 6c 75 64 65 20 |f.c'.#.#|include |
|000045e0| 3c 66 69 6c 65 2e 68 3e | 0a 0a 23 64 65 66 69 6e |<file.h>|..#defin|
|000045f0| 65 20 43 52 09 31 33 0a | 23 64 65 66 69 6e 65 20 |e CR.13.|#define |
|00004600| 4e 4c 09 31 30 0a 23 64 | 65 66 69 6e 65 20 42 4c |NL.10.#d|efine BL|
|00004610| 4f 43 4b 09 35 31 32 0a | 23 64 65 66 69 6e 65 20 |OCK.512.|#define |
|00004620| 53 54 4f 50 09 30 78 66 | 66 0a 0a 43 52 32 4c 46 |STOP.0xf|f..CR2LF|
|00004630| 28 66 69 6c 65 29 0a 63 | 68 61 72 20 2a 66 69 6c |(file).c|har *fil|
|00004640| 65 3b 20 7b 0a 09 69 6e | 74 20 69 64 2c 20 6f 69 |e; {..in|t id, oi|
|00004650| 64 3b 0a 09 63 68 61 72 | 20 62 75 66 5b 42 4c 4f |d;..char| buf[BLO|
|00004660| 43 4b 2b 31 5d 2c 20 2a | 69 6e 64 65 78 28 29 3b |CK+1], *|index();|
|00004670| 0a 09 63 68 61 72 20 74 | 65 6d 70 5b 31 31 5d 2c |..char t|emp[11],|
|00004680| 20 74 65 6d 70 31 5b 31 | 31 5d 3b 0a 09 72 65 67 | temp1[1|1];..reg|
|00004690| 69 73 74 65 72 20 63 68 | 61 72 20 2a 70 74 72 20 |ister ch|ar *ptr |
|000046a0| 3d 20 62 75 66 3b 0a 09 | 72 65 67 69 73 74 65 72 |= buf;..|register|
|000046b0| 20 69 6e 74 20 6c 65 6e | 3b 0a 0a 09 73 74 72 63 | int len|;...strc|
|000046c0| 70 79 28 74 65 6d 70 2c | 22 74 65 6d 70 58 58 58 |py(temp,|"tempXXX|
|000046d0| 58 58 58 22 29 3b 0a 09 | 6d 6b 74 65 6d 70 28 74 |XXX");..|mktemp(t|
|000046e0| 65 6d 70 29 3b 0a 09 69 | 66 20 28 28 6f 69 64 20 |emp);..i|f ((oid |
|000046f0| 3d 20 6f 70 65 6e 28 74 | 65 6d 70 2c 4f 5f 43 52 |= open(t|emp,O_CR|
|00004700| 45 41 54 20 7c 20 4f 5f | 52 44 57 52 2c 30 36 34 |EAT | O_|RDWR,064|
|00004710| 34 29 29 20 3c 20 30 29 | 20 7b 0a 09 09 70 65 72 |4)) < 0)| {...per|
|00004720| 72 6f 72 28 74 65 6d 70 | 29 3b 0a 09 09 75 6e 6c |ror(temp|);...unl|
|00004730| 69 6e 6b 28 74 65 6d 70 | 29 3b 0a 09 09 65 78 69 |ink(temp|);...exi|
|00004740| 74 28 2d 31 29 3b 0a 09 | 7d 0a 0a 09 69 66 20 28 |t(-1);..|}...if (|
|00004750| 28 69 64 20 3d 20 6f 70 | 65 6e 28 66 69 6c 65 2c |(id = op|en(file,|
|00004760| 4f 5f 52 44 4f 4e 4c 59 | 2c 30 36 34 34 29 29 20 |O_RDONLY|,0644)) |
|00004770| 3c 20 30 29 20 7b 0a 09 | 09 70 65 72 72 6f 72 28 |< 0) {..|.perror(|
|00004780| 66 69 6c 65 29 3b 0a 09 | 09 75 6e 6c 69 6e 6b 28 |file);..|.unlink(|
|00004790| 74 65 6d 70 29 3b 0a 09 | 09 65 78 69 74 28 2d 31 |temp);..|.exit(-1|
|000047a0| 29 3b 0a 09 7d 0a 0a 09 | 62 75 66 5b 42 4c 4f 43 |);..}...|buf[BLOC|
|000047b0| 4b 5d 20 3d 20 30 3b 0a | 09 77 68 69 6c 65 20 28 |K] = 0;.|.while (|
|000047c0| 28 6c 65 6e 20 3d 20 72 | 65 61 64 28 69 64 2c 70 |(len = r|ead(id,p|
|000047d0| 74 72 2c 42 4c 4f 43 4b | 29 29 20 3e 20 30 29 20 |tr,BLOCK|)) > 0) |
|000047e0| 7b 0a 09 09 77 68 69 6c | 65 20 28 20 70 74 72 20 |{...whil|e ( ptr |
|000047f0| 3d 20 69 6e 64 65 78 28 | 70 74 72 2c 43 52 29 20 |= index(|ptr,CR) |
|00004800| 29 20 7b 0a 09 09 09 2a | 70 74 72 20 3d 20 4e 4c |) {....*|ptr = NL|
|00004810| 3b 0a 09 09 7d 0a 09 09 | 77 72 69 74 65 28 6f 69 |;...}...|write(oi|
|00004820| 64 2c 20 70 74 72 20 3d | 20 62 75 66 2c 20 6c 65 |d, ptr =| buf, le|
|00004830| 6e 29 3b 0a 09 7d 0a 09 | 0a 09 63 6c 6f 73 65 28 |n);..}..|..close(|
|00004840| 69 64 29 3b 0a 09 6c 73 | 65 65 6b 28 6f 69 64 2c |id);..ls|eek(oid,|
|00004850| 31 2c 4c 5f 58 54 4e 44 | 29 3b 0a 09 64 6f 20 7b |1,L_XTND|);..do {|
|00004860| 0a 09 09 6c 73 65 65 6b | 28 6f 69 64 2c 2d 32 2c |...lseek|(oid,-2,|
|00004870| 4c 5f 49 4e 43 52 29 3b | 0a 09 09 72 65 61 64 28 |L_INCR);|...read(|
|00004880| 6f 69 64 2c 70 74 72 2c | 31 29 3b 0a 09 7d 20 77 |oid,ptr,|1);..} w|
|00004890| 68 69 6c 65 20 28 20 2a | 70 74 72 20 21 3d 20 4e |hile ( *|ptr != N|
|000048a0| 4c 20 29 3b 0a 09 2a 70 | 74 72 20 3d 20 53 54 4f |L );..*p|tr = STO|
|000048b0| 50 3b 0a 09 77 72 69 74 | 65 28 6f 69 64 2c 70 74 |P;..writ|e(oid,pt|
|000048c0| 72 2c 31 29 3b 0a 09 6c | 73 65 65 6b 28 6f 69 64 |r,1);..l|seek(oid|
|000048d0| 2c 30 2c 4c 5f 53 45 54 | 29 3b 0a 0a 09 73 74 72 |,0,L_SET|);...str|
|000048e0| 63 70 79 28 74 65 6d 70 | 31 2c 22 74 65 6d 70 58 |cpy(temp|1,"tempX|
|000048f0| 58 58 58 58 58 22 29 3b | 0a 09 6d 6b 74 65 6d 70 |XXXXX");|..mktemp|
|00004900| 28 74 65 6d 70 31 29 3b | 0a 09 69 66 20 28 28 69 |(temp1);|..if ((i|
|00004910| 64 20 3d 20 6f 70 65 6e | 28 74 65 6d 70 31 2c 4f |d = open|(temp1,O|
|00004920| 5f 43 52 45 41 54 20 7c | 20 4f 5f 57 52 4f 4e 4c |_CREAT || O_WRONL|
|00004930| 59 2c 30 36 34 34 29 29 | 20 3c 20 30 29 20 7b 0a |Y,0644))| < 0) {.|
|00004940| 09 09 70 65 72 72 6f 72 | 28 74 65 6d 70 31 29 3b |..perror|(temp1);|
|00004950| 0a 09 09 75 6e 6c 69 6e | 6b 28 74 65 6d 70 31 29 |...unlin|k(temp1)|
|00004960| 3b 0a 09 09 75 6e 6c 69 | 6e 6b 28 74 65 6d 70 29 |;...unli|nk(temp)|
|00004970| 3b 0a 09 09 65 78 69 74 | 28 2d 31 29 3b 0a 09 7d |;...exit|(-1);..}|
|00004980| 0a 0a 09 70 74 72 20 3d | 20 62 75 66 3b 0a 09 77 |...ptr =| buf;..w|
|00004990| 68 69 6c 65 20 28 28 6c | 65 6e 20 3d 20 72 65 61 |hile ((l|en = rea|
|000049a0| 64 28 6f 69 64 2c 70 74 | 72 2c 42 4c 4f 43 4b 29 |d(oid,pt|r,BLOCK)|
|000049b0| 29 20 3e 20 30 29 20 7b | 0a 09 09 69 66 20 28 70 |) > 0) {|...if (p|
|000049c0| 74 72 20 3d 20 69 6e 64 | 65 78 28 70 74 72 2c 53 |tr = ind|ex(ptr,S|
|000049d0| 54 4f 50 29 29 20 20 7b | 0a 09 09 09 2a 70 74 72 |TOP)) {|....*ptr|
|000049e0| 20 3d 20 30 3b 0a 09 09 | 09 77 72 69 74 65 28 69 | = 0;...|.write(i|
|000049f0| 64 2c 20 62 75 66 2c 20 | 73 74 72 6c 65 6e 28 62 |d, buf, |strlen(b|
|00004a00| 75 66 29 29 3b 0a 09 09 | 09 62 72 65 61 6b 3b 0a |uf));...|.break;.|
|00004a10| 09 09 7d 0a 09 09 77 72 | 69 74 65 28 69 64 2c 20 |..}...wr|ite(id, |
|00004a20| 70 74 72 20 3d 20 62 75 | 66 2c 20 6c 65 6e 29 3b |ptr = bu|f, len);|
|00004a30| 0a 09 7d 0a 0a 09 63 6c | 6f 73 65 28 6f 69 64 29 |..}...cl|ose(oid)|
|00004a40| 3b 20 63 6c 6f 73 65 28 | 69 64 29 3b 0a 09 73 74 |; close(|id);..st|
|00004a50| 72 63 70 79 28 62 75 66 | 2c 22 6d 76 20 22 29 3b |rcpy(buf|,"mv ");|
|00004a60| 0a 09 73 74 72 63 61 74 | 28 62 75 66 2c 74 65 6d |..strcat|(buf,tem|
|00004a70| 70 31 29 3b 0a 09 73 74 | 72 63 61 74 28 62 75 66 |p1);..st|rcat(buf|
|00004a80| 2c 22 20 22 29 3b 0a 09 | 73 74 72 63 61 74 28 62 |," ");..|strcat(b|
|00004a90| 75 66 2c 66 69 6c 65 29 | 3b 0a 09 73 79 73 74 65 |uf,file)|;..syste|
|00004aa0| 6d 28 62 75 66 29 3b 0a | 09 75 6e 6c 69 6e 6b 28 |m(buf);.|.unlink(|
|00004ab0| 74 65 6d 70 29 3b 0a 7d | 0a 53 48 41 52 5f 45 4f |temp);.}|.SHAR_EO|
|00004ac0| 46 0a 69 66 20 74 65 73 | 74 20 31 32 35 32 20 2d |F.if tes|t 1252 -|
|00004ad0| 6e 65 20 22 60 77 63 20 | 2d 63 20 3c 20 27 6c 66 |ne "`wc |-c < 'lf|
|00004ae0| 2e 63 27 60 22 0a 74 68 | 65 6e 0a 09 65 63 68 6f |.c'`".th|en..echo|
|00004af0| 20 73 68 61 72 3a 20 65 | 72 72 6f 72 20 74 72 61 | shar: e|rror tra|
|00004b00| 6e 73 6d 69 74 74 69 6e | 67 20 22 27 6c 66 2e 63 |nsmittin|g "'lf.c|
|00004b10| 27 22 20 27 28 73 68 6f | 75 6c 64 20 68 61 76 65 |'" '(sho|uld have|
|00004b20| 20 62 65 65 6e 20 31 32 | 35 32 20 63 68 61 72 61 | been 12|52 chara|
|00004b30| 63 74 65 72 73 29 27 0a | 66 69 0a 66 69 0a 65 63 |cters)'.|fi.fi.ec|
|00004b40| 68 6f 20 73 68 61 72 3a | 20 65 78 74 72 61 63 74 |ho shar:| extract|
|00004b50| 69 6e 67 20 22 27 6c 66 | 32 63 72 2e 63 27 22 20 |ing "'lf|2cr.c'" |
|00004b60| 27 28 32 31 39 20 63 68 | 61 72 61 63 74 65 72 73 |'(219 ch|aracters|
|00004b70| 29 27 0a 69 66 20 74 65 | 73 74 20 2d 66 20 27 6c |)'.if te|st -f 'l|
|00004b80| 66 32 63 72 2e 63 27 0a | 74 68 65 6e 0a 09 65 63 |f2cr.c'.|then..ec|
|00004b90| 68 6f 20 73 68 61 72 3a | 20 77 69 6c 6c 20 6e 6f |ho shar:| will no|
|00004ba0| 74 20 6f 76 65 72 2d 77 | 72 69 74 65 20 65 78 69 |t over-w|rite exi|
|00004bb0| 73 74 69 6e 67 20 66 69 | 6c 65 20 22 27 6c 66 32 |sting fi|le "'lf2|
|00004bc0| 63 72 2e 63 27 22 0a 65 | 6c 73 65 0a 63 61 74 20 |cr.c'".e|lse.cat |
|00004bd0| 3c 3c 20 5c 53 48 41 52 | 5f 45 4f 46 20 3e 20 27 |<< \SHAR|_EOF > '|
|00004be0| 6c 66 32 63 72 2e 63 27 | 0a 6d 61 69 6e 28 61 72 |lf2cr.c'|.main(ar|
|00004bf0| 67 63 2c 61 72 67 76 29 | 0a 69 6e 74 20 61 72 67 |gc,argv)|.int arg|
|00004c00| 63 3b 0a 63 68 61 72 20 | 2a 61 72 67 76 5b 5d 3b |c;.char |*argv[];|
|00004c10| 20 7b 0a 09 63 68 61 72 | 20 62 75 66 5b 35 31 32 | {..char| buf[512|
|00004c20| 5d 3b 0a 09 72 65 67 69 | 73 74 65 72 20 69 6e 74 |];..regi|ster int|
|00004c30| 20 69 3b 0a 0a 09 66 6f | 72 20 28 69 20 3d 20 31 | i;...fo|r (i = 1|
|00004c40| 3b 20 69 20 3c 20 61 72 | 67 63 3b 20 69 2b 2b 29 |; i < ar|gc; i++)|
|00004c50| 20 7b 0a 09 09 73 74 72 | 63 70 79 28 62 75 66 2c | {...str|cpy(buf,|
|00004c60| 22 6d 76 20 22 29 3b 0a | 09 09 73 74 72 63 61 74 |"mv ");.|..strcat|
|00004c70| 28 62 75 66 2c 4c 46 32 | 43 52 28 61 72 67 76 5b |(buf,LF2|CR(argv[|
|00004c80| 69 5d 29 29 3b 0a 09 09 | 73 74 72 63 61 74 28 62 |i]));...|strcat(b|
|00004c90| 75 66 2c 22 20 22 29 3b | 0a 09 09 73 74 72 63 61 |uf," ");|...strca|
|00004ca0| 74 28 62 75 66 2c 61 72 | 67 76 5b 69 5d 29 3b 0a |t(buf,ar|gv[i]);.|
|00004cb0| 09 09 73 79 73 74 65 6d | 28 62 75 66 29 3b 0a 09 |..system|(buf);..|
|00004cc0| 7d 0a 7d 0a 53 48 41 52 | 5f 45 4f 46 0a 69 66 20 |}.}.SHAR|_EOF.if |
|00004cd0| 74 65 73 74 20 32 31 39 | 20 2d 6e 65 20 22 60 77 |test 219| -ne "`w|
|00004ce0| 63 20 2d 63 20 3c 20 27 | 6c 66 32 63 72 2e 63 27 |c -c < '|lf2cr.c'|
|00004cf0| 60 22 0a 74 68 65 6e 0a | 09 65 63 68 6f 20 73 68 |`".then.|.echo sh|
|00004d00| 61 72 3a 20 65 72 72 6f | 72 20 74 72 61 6e 73 6d |ar: erro|r transm|
|00004d10| 69 74 74 69 6e 67 20 22 | 27 6c 66 32 63 72 2e 63 |itting "|'lf2cr.c|
|00004d20| 27 22 20 27 28 73 68 6f | 75 6c 64 20 68 61 76 65 |'" '(sho|uld have|
|00004d30| 20 62 65 65 6e 20 32 31 | 39 20 63 68 61 72 61 63 | been 21|9 charac|
|00004d40| 74 65 72 73 29 27 0a 66 | 69 0a 66 69 0a 65 63 68 |ters)'.f|i.fi.ech|
|00004d50| 6f 20 73 68 61 72 3a 20 | 65 78 74 72 61 63 74 69 |o shar: |extracti|
|00004d60| 6e 67 20 22 27 72 65 63 | 65 69 76 65 2e 63 27 22 |ng "'rec|eive.c'"|
|00004d70| 20 27 28 34 35 32 37 20 | 63 68 61 72 61 63 74 65 | '(4527 |characte|
|00004d80| 72 73 29 27 0a 69 66 20 | 74 65 73 74 20 2d 66 20 |rs)'.if |test -f |
|00004d90| 27 72 65 63 65 69 76 65 | 2e 63 27 0a 74 68 65 6e |'receive|.c'.then|
|00004da0| 0a 09 65 63 68 6f 20 73 | 68 61 72 3a 20 77 69 6c |..echo s|har: wil|
|00004db0| 6c 20 6e 6f 74 20 6f 76 | 65 72 2d 77 72 69 74 65 |l not ov|er-write|
|00004dc0| 20 65 78 69 73 74 69 6e | 67 20 66 69 6c 65 20 22 | existin|g file "|
|00004dd0| 27 72 65 63 65 69 76 65 | 2e 63 27 22 0a 65 6c 73 |'receive|.c'".els|
|00004de0| 65 0a 63 61 74 20 3c 3c | 20 5c 53 48 41 52 5f 45 |e.cat <<| \SHAR_E|
|00004df0| 4f 46 20 3e 20 27 72 65 | 63 65 69 76 65 2e 63 27 |OF > 're|ceive.c'|
|00004e00| 0a 2f 2a 0a 2a 2a 09 72 | 65 63 65 69 76 65 20 66 |./*.**.r|eceive f|
|00004e10| 69 6c 65 6e 61 6d 65 0a | 2a 2f 0a 23 0a 23 20 69 |ilename.|*/.#.# i|
|00004e20| 6e 63 6c 75 64 65 20 3c | 66 69 6c 65 2e 68 3e 0a |nclude <|file.h>.|
|00004e30| 23 20 69 6e 63 6c 75 64 | 65 20 3c 63 75 72 73 65 |# includ|e <curse|
|00004e40| 73 2e 68 3e 0a 23 20 69 | 6e 63 6c 75 64 65 20 3c |s.h>.# i|nclude <|
|00004e50| 73 69 67 6e 61 6c 2e 68 | 3e 0a 23 20 69 6e 63 6c |signal.h|>.# incl|
|00004e60| 75 64 65 20 3c 74 69 6d | 65 2e 68 3e 0a 23 20 69 |ude <tim|e.h>.# i|
|00004e70| 6e 63 6c 75 64 65 20 3c | 73 65 74 6a 6d 70 2e 68 |nclude <|setjmp.h|
|00004e80| 3e 0a 0a 23 20 64 65 66 | 69 6e 65 09 53 4f 48 09 |>..# def|ine.SOH.|
|00004e90| 30 78 31 0a 23 20 64 65 | 66 69 6e 65 09 4e 41 4b |0x1.# de|fine.NAK|
|00004ea0| 09 30 78 31 35 0a 23 20 | 64 65 66 69 6e 65 09 41 |.0x15.# |define.A|
|00004eb0| 43 4b 09 30 78 36 0a 23 | 20 64 65 66 69 6e 65 09 |CK.0x6.#| define.|
|00004ec0| 45 4f 54 09 30 78 34 0a | 23 20 64 65 66 69 6e 65 |EOT.0x4.|# define|
|00004ed0| 09 43 41 4e 43 45 4c 09 | 30 78 31 38 0a 0a 63 68 |.CANCEL.|0x18..ch|
|00004ee0| 61 72 20 66 69 6c 65 6e | 61 6d 65 5b 36 34 5d 3b |ar filen|ame[64];|
|00004ef0| 0a 69 6e 74 20 72 65 74 | 72 69 65 73 3b 09 09 2f |.int ret|ries;../|
|00004f00| 2a 20 72 65 74 72 69 65 | 73 20 63 6f 75 6e 74 65 |* retrie|s counte|
|00004f10| 72 20 2a 2f 0a 69 6e 74 | 20 73 65 71 5f 6e 75 6d |r */.int| seq_num|
|00004f20| 3b 09 09 2f 2a 20 73 65 | 71 75 65 6e 63 65 20 6e |;../* se|quence n|
|00004f30| 75 6d 62 65 72 20 2a 2f | 0a 69 6e 74 20 63 61 75 |umber */|.int cau|
|00004f40| 67 68 74 28 29 3b 09 09 | 2f 2a 20 69 6e 74 65 72 |ght();..|/* inter|
|00004f50| 72 75 70 74 20 72 6f 75 | 74 69 6e 65 2c 20 63 61 |rupt rou|tine, ca|
|00004f60| 6c 6c 65 64 20 69 66 20 | 68 61 76 65 6e 27 74 20 |lled if |haven't |
|00004f70| 72 65 63 65 69 76 65 64 | 20 61 0a 09 09 09 20 20 |received| a.... |
|00004f80| 20 62 6c 6f 63 6b 20 69 | 6e 20 31 20 73 65 63 6f | block i|n 1 seco|
|00004f90| 6e 64 20 2a 2f 0a 73 74 | 72 75 63 74 20 73 69 67 |nd */.st|ruct sig|
|00004fa0| 76 65 63 20 76 65 63 3b | 0a 6a 6d 70 5f 62 75 66 |vec vec;|.jmp_buf|
|00004fb0| 20 65 6e 76 3b 0a 0a 6d | 61 69 6e 28 61 72 67 63 | env;..m|ain(argc|
|00004fc0| 2c 61 72 67 76 29 0a 69 | 6e 74 20 61 72 67 63 3b |,argv).i|nt argc;|
|00004fd0| 0a 63 68 61 72 20 2a 61 | 72 67 76 5b 5d 3b 20 7b |.char *a|rgv[]; {|
|00004fe0| 0a 0a 09 69 6e 74 20 66 | 64 3b 0a 09 63 68 61 72 |...int f|d;..char|
|00004ff0| 20 63 3b 0a 09 72 65 67 | 69 73 74 65 72 20 69 6e | c;..reg|ister in|
|00005000| 74 20 69 3b 0a 0a 09 69 | 66 20 28 21 28 28 61 72 |t i;...i|f (!((ar|
|00005010| 67 63 20 3d 3d 20 32 29 | 20 7c 7c 20 28 61 72 67 |gc == 2)| || (arg|
|00005020| 63 20 3d 3d 20 33 29 29 | 29 20 7b 0a 09 09 70 72 |c == 3))|) {...pr|
|00005030| 69 6e 74 66 28 22 49 4c | 4c 45 47 41 4c 20 4e 55 |intf("IL|LEGAL NU|
|00005040| 4d 42 45 52 20 4f 46 20 | 41 52 47 55 4d 45 4e 54 |MBER OF |ARGUMENT|
|00005050| 53 2e 5c 6e 22 29 3b 0a | 09 09 70 72 69 6e 74 66 |S.\n");.|..printf|
|00005060| 28 22 53 59 4e 4f 50 53 | 49 53 3a 20 74 6f 5f 76 |("SYNOPS|IS: to_v|
|00005070| 61 78 5f 78 20 5b 2d 74 | 5d 20 5b 2d 6d 5d 20 66 |ax_x [-t|] [-m] f|
|00005080| 69 6c 65 6e 61 6d 65 5c | 6e 22 29 3b 0a 09 09 65 |ilename\|n");...e|
|00005090| 78 69 74 28 2d 31 29 3b | 0a 09 7d 0a 0a 09 69 66 |xit(-1);|..}...if|
|000050a0| 20 28 61 72 67 63 20 3d | 3d 20 33 29 20 7b 0a 09 | (argc =|= 3) {..|
|000050b0| 09 69 66 20 28 73 74 72 | 63 6d 70 28 61 72 67 76 |.if (str|cmp(argv|
|000050c0| 5b 31 5d 2c 22 2d 74 22 | 29 20 26 26 20 73 74 72 |[1],"-t"|) && str|
|000050d0| 63 6d 70 28 61 72 67 76 | 5b 31 5d 2c 22 2d 6d 22 |cmp(argv|[1],"-m"|
|000050e0| 29 29 20 7b 0a 09 09 09 | 70 72 69 6e 74 66 28 22 |)) {....|printf("|
|000050f0| 62 61 64 20 61 72 67 75 | 6d 65 6e 74 20 60 25 73 |bad argu|ment `%s|
|00005100| 27 5c 6e 22 2c 61 72 67 | 76 5b 31 5d 29 3b 0a 09 |'\n",arg|v[1]);..|
|00005110| 09 09 70 72 69 6e 74 66 | 28 22 53 59 4e 4f 50 53 |..printf|("SYNOPS|
|00005120| 49 53 3a 20 74 6f 5f 76 | 61 78 5f 78 20 5b 2d 74 |IS: to_v|ax_x [-t|
|00005130| 5d 20 5b 2d 6d 5d 20 66 | 69 6c 65 6e 61 6d 65 5c |] [-m] f|ilename\|
|00005140| 6e 22 29 3b 0a 09 09 09 | 65 78 69 74 28 2d 31 29 |n");....|exit(-1)|
|00005150| 3b 0a 09 09 7d 0a 09 7d | 0a 0a 09 73 74 72 63 70 |;...}..}|...strcp|
|00005160| 79 28 66 69 6c 65 6e 61 | 6d 65 2c 61 72 67 76 5b |y(filena|me,argv[|
|00005170| 61 72 67 63 2d 31 5d 29 | 3b 0a 09 69 66 20 28 28 |argc-1])|;..if ((|
|00005180| 66 64 20 3d 20 6f 70 65 | 6e 28 66 69 6c 65 6e 61 |fd = ope|n(filena|
|00005190| 6d 65 2c 4f 5f 57 52 4f | 4e 4c 59 7c 4f 5f 43 52 |me,O_WRO|NLY|O_CR|
|000051a0| 45 41 54 7c 4f 5f 54 52 | 55 4e 43 2c 30 36 34 34 |EAT|O_TR|UNC,0644|
|000051b0| 29 29 20 3c 20 30 29 20 | 7b 0a 09 09 70 65 72 72 |)) < 0) |{...perr|
|000051c0| 6f 72 28 66 69 6c 65 6e | 61 6d 65 29 3b 0a 09 09 |or(filen|ame);...|
|000051d0| 65 78 69 74 28 2d 31 29 | 3b 0a 09 7d 0a 0a 09 69 |exit(-1)|;..}...i|
|000051e0| 6e 69 74 73 63 72 28 29 | 3b 0a 09 72 61 77 28 29 |nitscr()|;..raw()|
|000051f0| 3b 09 09 09 2f 2a 20 73 | 65 74 20 74 65 72 6d 69 |;.../* s|et termi|
|00005200| 6e 61 6c 20 74 6f 20 38 | 2d 62 69 74 20 49 2f 4f |nal to 8|-bit I/O|
|00005210| 20 2a 2f 0a 09 6e 6f 65 | 63 68 6f 28 29 3b 0a 0a | */..noe|cho();..|
|00005220| 2f 2a 0a 2a 2a 09 49 67 | 6e 6f 72 65 20 69 6e 74 |/*.**.Ig|nore int|
|00005230| 65 72 72 75 70 74 73 20 | 66 72 6f 6d 20 74 68 65 |errupts |from the|
|00005240| 20 75 73 65 72 2e 0a 2a | 2a 09 49 66 20 74 68 65 | user..*|*.If the|
|00005250| 20 75 73 65 72 20 63 6f | 75 6c 64 20 64 65 6c 65 | user co|uld dele|
|00005260| 74 65 20 74 68 69 73 20 | 70 72 6f 67 72 61 6d 20 |te this |program |
|00005270| 74 68 65 20 74 65 72 6d | 69 6e 61 6c 0a 2a 2a 09 |the term|inal.**.|
|00005280| 77 6f 75 6c 64 20 62 65 | 20 6c 65 66 74 20 69 6e |would be| left in|
|00005290| 20 61 20 75 6e 64 69 73 | 65 72 61 62 6c 65 20 73 | a undis|erable s|
|000052a0| 74 61 74 65 20 6f 66 20 | 6d 69 6e 64 2e 0a 2a 2f |tate of |mind..*/|
|000052b0| 0a 0a 09 76 65 63 2e 73 | 76 5f 68 61 6e 64 6c 65 |...vec.s|v_handle|
|000052c0| 72 20 3d 20 63 61 75 67 | 68 74 3b 0a 09 76 65 63 |r = caug|ht;..vec|
|000052d0| 2e 73 76 5f 6d 61 73 6b | 20 3d 20 76 65 63 2e 73 |.sv_mask| = vec.s|
|000052e0| 76 5f 6f 6e 73 74 61 63 | 6b 20 3d 20 30 3b 0a 09 |v_onstac|k = 0;..|
|000052f0| 73 69 67 76 65 63 28 53 | 49 47 41 4c 52 4d 2c 26 |sigvec(S|IGALRM,&|
|00005300| 76 65 63 2c 28 73 74 72 | 75 63 74 20 73 69 67 76 |vec,(str|uct sigv|
|00005310| 65 63 20 2a 29 30 29 3b | 0a 0a 09 73 69 67 73 65 |ec *)0);|...sigse|
|00005320| 74 6d 61 73 6b 28 2d 31 | 20 5e 20 28 31 20 3c 3c |tmask(-1| ^ (1 <<|
|00005330| 20 28 53 49 47 41 4c 52 | 4d 2d 31 29 29 29 3b 09 | (SIGALR|M-1)));.|
|00005340| 2f 2a 20 65 6e 61 62 6c | 65 20 61 6c 61 72 6d 20 |/* enabl|e alarm |
|00005350| 73 69 67 6e 61 6c 20 2a | 2f 0a 0a 09 63 20 3d 20 |signal *|/...c = |
|00005360| 4e 41 4b 3b 0a 09 72 65 | 74 72 69 65 73 20 3d 20 |NAK;..re|tries = |
|00005370| 30 3b 0a 09 69 66 20 28 | 73 65 74 6a 6d 70 28 65 |0;..if (|setjmp(e|
|00005380| 6e 76 29 29 20 7b 0a 09 | 20 20 20 20 77 72 69 74 |nv)) {..| writ|
|00005390| 65 28 31 2c 26 63 2c 31 | 29 3b 0a 09 20 20 20 20 |e(1,&c,1|);.. |
|000053a0| 69 66 20 28 72 65 74 72 | 69 65 73 2b 2b 20 3e 20 |if (retr|ies++ > |
|000053b0| 31 30 29 20 7b 0a 09 09 | 72 65 73 65 74 28 31 29 |10) {...|reset(1)|
|000053c0| 3b 20 09 20 20 20 20 20 | 2f 2a 20 72 65 73 74 6f |; . |/* resto|
|000053d0| 72 65 20 74 65 72 6d 69 | 6e 61 6c 20 74 6f 20 6e |re termi|nal to n|
|000053e0| 6f 72 6d 61 6c 20 73 74 | 61 74 65 20 2a 2f 0a 09 |ormal st|ate */..|
|000053f0| 09 70 72 69 6e 74 66 28 | 22 43 61 6e 20 6e 6f 74 |.printf(|"Can not|
|00005400| 20 67 65 74 20 72 65 70 | 6c 79 20 66 72 6f 6d 20 | get rep|ly from |
|00005410| 74 72 61 6e 73 6d 69 74 | 74 65 72 5c 6e 22 29 3b |transmit|ter\n");|
|00005420| 0a 09 09 65 78 69 74 28 | 30 29 3b 20 0a 09 20 20 |...exit(|0); .. |
|00005430| 20 20 7d 0a 09 7d 0a 09 | 0a 09 53 45 54 5f 54 49 | }..}..|..SET_TI|
|00005440| 4d 45 52 28 31 30 29 3b | 0a 09 72 65 61 64 28 30 |MER(10);|..read(0|
|00005450| 2c 26 63 2c 31 29 3b 0a | 09 44 49 53 41 42 4c 45 |,&c,1);.|.DISABLE|
|00005460| 5f 54 49 4d 45 52 28 29 | 3b 0a 0a 09 73 65 71 5f |_TIMER()|;...seq_|
|00005470| 6e 75 6d 20 3d 20 31 3b | 20 72 65 74 72 69 65 73 |num = 1;| retries|
|00005480| 20 3d 20 30 3b 0a 09 66 | 6f 72 28 3b 3b 29 20 7b | = 0;..f|or(;;) {|
|00005490| 0a 0a 09 09 69 66 20 28 | 72 65 74 72 69 65 73 20 |....if (|retries |
|000054a0| 3d 3d 20 31 30 29 20 7b | 0a 09 09 09 63 20 3d 20 |== 10) {|....c = |
|000054b0| 43 41 4e 43 45 4c 3b 0a | 09 09 09 77 72 69 74 65 |CANCEL;.|...write|
|000054c0| 28 31 2c 26 63 2c 31 29 | 3b 0a 09 09 09 72 65 73 |(1,&c,1)|;....res|
|000054d0| 65 74 28 31 29 3b 0a 09 | 09 09 70 72 69 6e 74 66 |et(1);..|..printf|
|000054e0| 28 22 54 65 72 6d 69 6e | 61 74 65 64 20 61 66 74 |("Termin|ated aft|
|000054f0| 65 72 20 31 30 20 72 65 | 74 72 69 65 73 5c 72 5c |er 10 re|tries\r\|
|00005500| 6e 22 29 3b 0a 09 09 09 | 65 78 69 74 28 2d 31 29 |n");....|exit(-1)|
|00005510| 3b 0a 09 09 7d 0a 0a 09 | 09 73 77 69 74 63 68 28 |;...}...|.switch(|
|00005520| 20 63 20 26 20 30 78 37 | 66 20 29 20 7b 0a 09 09 | c & 0x7|f ) {...|
|00005530| 09 63 61 73 65 20 53 4f | 48 3a 0a 09 09 09 09 42 |.case SO|H:.....B|
|00005540| 4c 4f 43 4b 28 66 64 29 | 3b 0a 09 09 09 09 62 72 |LOCK(fd)|;.....br|
|00005550| 65 61 6b 3b 0a 09 09 09 | 63 61 73 65 20 43 41 4e |eak;....|case CAN|
|00005560| 43 45 4c 3a 0a 09 09 09 | 09 70 72 69 6e 74 66 28 |CEL:....|.printf(|
|00005570| 22 52 65 63 65 69 76 65 | 64 20 43 41 4e 43 45 4c |"Receive|d CANCEL|
|00005580| 20 73 69 67 6e 61 6c 5c | 72 5c 6e 22 29 3b 0a 09 | signal\|r\n");..|
|00005590| 09 09 09 72 65 73 65 74 | 28 31 29 3b 0a 09 09 09 |...reset|(1);....|
|000055a0| 09 65 78 69 74 28 2d 31 | 29 3b 0a 09 09 09 63 61 |.exit(-1|);....ca|
|000055b0| 73 65 20 45 4f 54 3a 0a | 09 09 09 09 63 20 3d 20 |se EOT:.|....c = |
|000055c0| 41 43 4b 3b 0a 09 09 09 | 09 77 72 69 74 65 28 31 |ACK;....|.write(1|
|000055d0| 2c 26 63 2c 31 29 3b 0a | 09 09 09 09 72 65 73 65 |,&c,1);.|....rese|
|000055e0| 74 28 30 29 3b 0a 09 09 | 09 09 67 6f 74 6f 20 45 |t(0);...|..goto E|
|000055f0| 4e 44 3b 0a 09 09 09 64 | 65 66 61 75 6c 74 3a 0a |ND;....d|efault:.|
|00005600| 09 09 09 09 73 6c 65 65 | 70 28 32 29 3b 09 2f 2a |....slee|p(2);./*|
|00005610| 20 77 61 69 74 20 66 6f | 72 20 61 20 62 69 74 20 | wait fo|r a bit |
|00005620| 2a 2f 0a 09 09 09 09 6e | 6f 72 61 77 28 29 3b 09 |*/.....n|oraw();.|
|00005630| 2f 2a 20 66 6c 75 73 68 | 20 69 6e 70 75 74 20 62 |/* flush| input b|
|00005640| 75 66 66 65 72 20 2a 2f | 0a 09 09 09 09 72 61 77 |uffer */|.....raw|
|00005650| 28 29 3b 0a 09 09 09 09 | 63 20 3d 20 4e 41 4b 3b |();.....|c = NAK;|
|00005660| 0a 09 09 09 09 77 72 69 | 74 65 28 31 2c 26 63 2c |.....wri|te(1,&c,|
|00005670| 31 29 3b 0a 09 09 09 09 | 72 65 74 72 69 65 73 2b |1);.....|retries+|
|00005680| 2b 3b 0a 09 09 09 09 62 | 72 65 61 6b 3b 0a 09 09 |+;.....b|reak;...|
|00005690| 7d 0a 09 09 63 20 3d 20 | 4e 41 4b 3b 0a 09 09 69 |}...c = |NAK;...i|
|000056a0| 66 20 28 73 65 74 6a 6d | 70 28 65 6e 76 29 29 20 |f (setjm|p(env)) |
|000056b0| 7b 0a 09 09 20 20 20 20 | 77 72 69 74 65 28 31 2c |{... |write(1,|
|000056c0| 26 63 2c 31 29 3b 0a 09 | 09 20 20 20 20 69 66 20 |&c,1);..|. if |
|000056d0| 28 72 65 74 72 69 65 73 | 2b 2b 20 3e 20 31 30 29 |(retries|++ > 10)|
|000056e0| 20 7b 0a 09 09 09 72 65 | 73 65 74 28 31 29 3b 20 | {....re|set(1); |
|000056f0| 09 20 20 20 20 20 2f 2a | 20 72 65 73 74 6f 72 65 |. /*| restore|
|00005700| 20 74 65 72 6d 69 6e 61 | 6c 20 74 6f 20 6e 6f 72 | termina|l to nor|
|00005710| 6d 61 6c 20 73 74 61 74 | 65 20 2a 2f 0a 09 09 09 |mal stat|e */....|
|00005720| 70 72 69 6e 74 66 28 22 | 43 61 6e 20 6e 6f 74 20 |printf("|Can not |
|00005730| 67 65 74 20 72 65 70 6c | 79 20 66 72 6f 6d 20 74 |get repl|y from t|
|00005740| 72 61 6e 73 6d 69 74 74 | 65 72 5c 6e 22 29 3b 0a |ransmitt|er\n");.|
|00005750| 09 09 09 65 78 69 74 28 | 30 29 3b 20 0a 09 09 20 |...exit(|0); ... |
|00005760| 20 20 20 7d 0a 09 09 7d | 0a 09 0a 09 09 53 45 54 | }...}|.....SET|
|00005770| 5f 54 49 4d 45 52 28 31 | 30 29 3b 0a 09 09 72 65 |_TIMER(1|0);...re|
|00005780| 61 64 28 30 2c 26 63 2c | 31 29 3b 0a 09 20 20 20 |ad(0,&c,|1);.. |
|00005790| 20 20 20 20 20 44 49 53 | 41 42 4c 45 5f 54 49 4d | DIS|ABLE_TIM|
|000057a0| 45 52 28 29 3b 0a 09 09 | 0a 09 7d 0a 45 4e 44 3a |ER();...|..}.END:|
|000057b0| 0a 0a 09 63 6c 6f 73 65 | 28 66 64 29 3b 0a 09 69 |...close|(fd);..i|
|000057c0| 66 20 28 61 72 67 63 20 | 3d 3d 20 33 29 20 7b 0a |f (argc |== 3) {.|
|000057d0| 09 09 73 77 69 74 63 68 | 28 20 61 72 67 76 5b 31 |..switch|( argv[1|
|000057e0| 5d 5b 31 5d 20 29 20 7b | 0a 09 09 09 63 61 73 65 |][1] ) {|....case|
|000057f0| 20 27 74 27 3a 0a 09 09 | 09 09 70 72 69 6e 74 66 | 't':...|..printf|
|00005800| 28 22 44 65 6c 65 74 69 | 6e 67 20 63 61 72 72 69 |("Deleti|ng carri|
|00005810| 61 67 65 20 72 65 74 75 | 72 6e 73 5c 6e 22 29 3b |age retu|rns\n");|
|00005820| 0a 09 09 09 09 44 45 4c | 43 52 28 66 69 6c 65 6e |.....DEL|CR(filen|
|00005830| 61 6d 65 29 3b 0a 09 09 | 09 09 62 72 65 61 6b 3b |ame);...|..break;|
|00005840| 0a 09 09 09 63 61 73 65 | 20 27 6d 27 3a 0a 09 09 |....case| 'm':...|
|00005850| 09 09 70 72 69 6e 74 66 | 28 22 43 68 61 6e 67 69 |..printf|("Changi|
|00005860| 6e 67 20 63 72 27 73 20 | 74 6f 20 6c 66 27 73 5c |ng cr's |to lf's\|
|00005870| 6e 22 29 3b 0a 09 09 09 | 09 43 52 32 4c 46 28 66 |n");....|.CR2LF(f|
|00005880| 69 6c 65 6e 61 6d 65 29 | 3b 0a 09 09 7d 0a 09 7d |ilename)|;...}..}|
|00005890| 0a 7d 0a 0a 42 4c 4f 43 | 4b 28 66 64 29 20 0a 69 |.}..BLOC|K(fd) .i|
|000058a0| 6e 74 20 66 64 3b 20 7b | 0a 09 0a 09 72 65 67 69 |nt fd; {|....regi|
|000058b0| 73 74 65 72 20 69 3b 0a | 09 72 65 67 69 73 74 65 |ster i;.|.registe|
|000058c0| 72 20 63 68 61 72 20 2a | 70 3b 0a 09 63 68 61 72 |r char *|p;..char|
|000058d0| 20 62 6c 6f 63 6b 5b 31 | 33 31 5d 3b 0a 09 63 68 | block[1|31];..ch|
|000058e0| 61 72 20 63 3b 0a 09 69 | 6e 74 20 78 73 75 6d 3b |ar c;..i|nt xsum;|
|000058f0| 0a 0a 09 72 65 74 72 69 | 65 73 20 3d 20 30 3b 09 |...retri|es = 0;.|
|00005900| 09 2f 2a 20 73 74 61 72 | 74 20 66 72 65 73 68 20 |./* star|t fresh |
|00005910| 2a 2f 0a 0a 09 2f 2a 20 | 75 73 65 64 20 74 6f 20 |*/.../* |used to |
|00005920| 62 65 20 31 20 2a 2f 0a | 09 53 45 54 5f 54 49 4d |be 1 */.|.SET_TIM|
|00005930| 45 52 28 31 30 29 3b 0a | 09 69 66 20 28 73 65 74 |ER(10);.|.if (set|
|00005940| 6a 6d 70 28 65 6e 76 29 | 29 20 7b 0a 09 20 20 20 |jmp(env)|) {.. |
|00005950| 20 6e 6f 72 61 77 28 29 | 3b 0a 09 20 20 20 20 72 | noraw()|;.. r|
|00005960| 61 77 28 29 3b 0a 09 20 | 20 20 20 63 20 3d 20 4e |aw();.. | c = N|
|00005970| 41 4b 3b 0a 09 20 20 20 | 20 77 72 69 74 65 28 31 |AK;.. | write(1|
|00005980| 2c 26 63 2c 31 29 3b 0a | 09 20 20 20 20 72 65 74 |,&c,1);.|. ret|
|00005990| 72 69 65 73 2b 2b 3b 0a | 09 20 20 20 20 72 65 74 |ries++;.|. ret|
|000059a0| 75 72 6e 3b 0a 09 7d 20 | 65 6c 73 65 20 7b 0a 09 |urn;..} |else {..|
|000059b0| 20 20 20 20 69 20 3d 20 | 72 65 61 64 28 30 2c 62 | i = |read(0,b|
|000059c0| 6c 6f 63 6b 2c 31 33 31 | 29 3b 0a 09 20 20 20 20 |lock,131|);.. |
|000059d0| 77 68 69 6c 65 28 20 69 | 20 3c 20 31 33 31 20 29 |while( i| < 131 )|
|000059e0| 20 7b 0a 09 20 20 20 20 | 09 69 20 2b 3d 20 72 65 | {.. |.i += re|
|000059f0| 61 64 28 30 2c 26 62 6c | 6f 63 6b 5b 69 5d 2c 31 |ad(0,&bl|ock[i],1|
|00005a00| 33 31 2d 69 29 3b 09 2f | 2a 20 64 61 74 61 20 62 |31-i);./|* data b|
|00005a10| 6c 6f 63 6b 20 2a 2f 0a | 09 20 20 20 20 7d 0a 09 |lock */.|. }..|
|00005a20| 20 20 20 20 44 49 53 41 | 42 4c 45 5f 54 49 4d 45 | DISA|BLE_TIME|
|00005a30| 52 28 29 3b 0a 09 7d 0a | 09 0a 09 69 66 20 28 20 |R();..}.|...if ( |
|00005a40| 28 62 6c 6f 63 6b 5b 30 | 5d 20 26 20 30 78 66 66 |(block[0|] & 0xff|
|00005a50| 29 20 21 3d 20 73 65 71 | 5f 6e 75 6d 20 29 20 7b |) != seq|_num ) {|
|00005a60| 0a 09 09 69 20 3d 20 28 | 73 65 71 5f 6e 75 6d 20 |...i = (|seq_num |
|00005a70| 3f 20 73 65 71 5f 6e 75 | 6d 20 2d 20 31 20 3a 20 |? seq_nu|m - 1 : |
|00005a80| 32 35 35 29 3b 0a 09 09 | 69 66 20 28 28 62 6c 6f |255);...|if ((blo|
|00005a90| 63 6b 5b 30 5d 20 26 20 | 30 78 66 66 29 20 21 3d |ck[0] & |0xff) !=|
|00005aa0| 20 69 20 29 20 7b 0a 09 | 09 09 69 66 20 28 20 28 | i ) {..|..if ( (|
|00005ab0| 62 6c 6f 63 6b 5b 31 5d | 20 26 20 30 78 66 66 29 |block[1]| & 0xff)|
|00005ac0| 20 21 3d 20 28 32 35 35 | 20 2d 20 73 65 71 5f 6e | != (255| - seq_n|
|00005ad0| 75 6d 29 20 29 20 7b 0a | 09 09 09 09 69 20 3d 20 |um) ) {.|....i = |
|00005ae0| 32 35 35 20 2d 20 69 3b | 0a 09 09 09 09 69 66 20 |255 - i;|.....if |
|00005af0| 28 28 62 6c 6f 63 6b 5b | 31 5d 20 26 20 30 78 66 |((block[|1] & 0xf|
|00005b00| 66 29 20 3d 3d 20 69 20 | 29 20 7b 0a 09 09 09 09 |f) == i |) {.....|
|00005b10| 09 63 20 3d 20 4e 41 4b | 3b 0a 09 09 09 09 09 77 |.c = NAK|;......w|
|00005b20| 72 69 74 65 28 31 2c 26 | 63 2c 31 29 3b 0a 09 09 |rite(1,&|c,1);...|
|00005b30| 09 09 09 72 65 74 72 69 | 65 73 2b 2b 3b 0a 09 09 |...retri|es++;...|
|00005b40| 09 09 09 72 65 74 75 72 | 6e 3b 0a 09 09 09 09 7d |...retur|n;.....}|
|00005b50| 0a 09 09 09 09 63 20 3d | 20 43 41 4e 43 45 4c 3b |.....c =| CANCEL;|
|00005b60| 20 09 2f 2a 20 6c 6f 73 | 73 20 6f 66 20 73 79 6e | ./* los|s of syn|
|00005b70| 63 68 72 6f 6e 69 7a 61 | 74 69 6f 6e 20 2a 2f 0a |chroniza|tion */.|
|00005b80| 09 09 09 09 77 72 69 74 | 65 28 31 2c 26 63 2c 31 |....writ|e(1,&c,1|
|00005b90| 29 3b 0a 09 09 09 09 72 | 65 73 65 74 28 31 29 3b |);.....r|eset(1);|
|00005ba0| 0a 09 09 09 09 65 78 69 | 74 28 2d 31 29 3b 0a 09 |.....exi|t(-1);..|
|00005bb0| 09 09 7d 0a 09 09 7d 0a | 09 09 72 65 74 72 69 65 |..}...}.|..retrie|
|00005bc0| 73 2b 2b 3b 0a 09 09 67 | 6f 74 6f 20 6c 65 61 76 |s++;...g|oto leav|
|00005bd0| 65 3b 0a 09 7d 0a 0a 09 | 69 66 20 28 20 28 62 6c |e;..}...|if ( (bl|
|00005be0| 6f 63 6b 5b 31 5d 20 26 | 20 30 78 66 66 29 20 21 |ock[1] &| 0xff) !|
|00005bf0| 3d 20 28 32 35 35 20 2d | 20 73 65 71 5f 6e 75 6d |= (255 -| seq_num|
|00005c00| 29 20 29 20 7b 0a 09 09 | 63 20 3d 20 4e 41 4b 3b |) ) {...|c = NAK;|
|00005c10| 0a 09 09 77 72 69 74 65 | 28 31 2c 26 63 2c 31 29 |...write|(1,&c,1)|
|00005c20| 3b 0a 09 09 72 65 74 72 | 69 65 73 2b 2b 3b 0a 09 |;...retr|ies++;..|
|00005c30| 09 72 65 74 75 72 6e 3b | 0a 09 7d 0a 09 0a 09 78 |.return;|..}....x|
|00005c40| 73 75 6d 20 3d 20 30 3b | 0a 09 66 6f 72 20 28 69 |sum = 0;|..for (i|
|00005c50| 20 3d 20 30 2c 20 70 20 | 3d 20 26 62 6c 6f 63 6b | = 0, p |= &block|
|00005c60| 5b 32 5d 3b 20 69 20 3c | 20 31 32 38 3b 20 69 2b |[2]; i <| 128; i+|
|00005c70| 2b 29 20 78 73 75 6d 20 | 2b 3d 20 28 2a 70 2b 2b |+) xsum |+= (*p++|
|00005c80| 20 26 20 30 78 66 66 29 | 3b 0a 09 78 73 75 6d 20 | & 0xff)|;..xsum |
|00005c90| 26 3d 20 30 78 66 66 3b | 0a 09 69 66 20 28 20 28 |&= 0xff;|..if ( (|
|00005ca0| 62 6c 6f 63 6b 5b 31 33 | 30 5d 20 26 20 30 78 66 |block[13|0] & 0xf|
|00005cb0| 66 29 20 21 3d 20 78 73 | 75 6d 20 29 20 7b 0a 09 |f) != xs|um ) {..|
|00005cc0| 09 63 20 3d 20 4e 41 4b | 3b 0a 09 09 77 72 69 74 |.c = NAK|;...writ|
|00005cd0| 65 28 31 2c 26 63 2c 31 | 29 3b 0a 09 09 72 65 74 |e(1,&c,1|);...ret|
|00005ce0| 72 69 65 73 2b 2b 3b 0a | 09 09 72 65 74 75 72 6e |ries++;.|..return|
|00005cf0| 3b 0a 09 7d 0a 0a 09 77 | 72 69 74 65 28 66 64 2c |;..}...w|rite(fd,|
|00005d00| 26 62 6c 6f 63 6b 5b 32 | 5d 2c 31 32 38 29 3b 0a |&block[2|],128);.|
|00005d10| 09 72 65 74 72 69 65 73 | 20 3d 20 30 3b 0a 09 73 |.retries| = 0;..s|
|00005d20| 65 71 5f 6e 75 6d 20 3d | 20 2b 2b 73 65 71 5f 6e |eq_num =| ++seq_n|
|00005d30| 75 6d 20 25 20 32 35 36 | 3b 0a 6c 65 61 76 65 3a |um % 256|;.leave:|
|00005d40| 0a 09 63 20 3d 20 41 43 | 4b 3b 0a 09 77 72 69 74 |..c = AC|K;..writ|
|00005d50| 65 28 31 2c 26 63 2c 31 | 29 3b 0a 7d 0a 0a 72 65 |e(1,&c,1|);.}..re|
|00005d60| 73 65 74 28 72 65 6d 6f | 76 65 29 20 0a 69 6e 74 |set(remo|ve) .int|
|00005d70| 20 72 65 6d 6f 76 65 3b | 20 7b 0a 09 0a 09 44 49 | remove;| {....DI|
|00005d80| 53 41 42 4c 45 5f 54 49 | 4d 45 52 28 29 3b 0a 09 |SABLE_TI|MER();..|
|00005d90| 73 69 67 73 65 74 6d 61 | 73 6b 28 30 29 3b 0a 09 |sigsetma|sk(0);..|
|00005da0| 76 65 63 2e 73 76 5f 68 | 61 6e 64 6c 65 72 20 3d |vec.sv_h|andler =|
|00005db0| 20 53 49 47 5f 44 46 4c | 3b 0a 09 76 65 63 2e 73 | SIG_DFL|;..vec.s|
|00005dc0| 76 5f 6d 61 73 6b 20 3d | 20 76 65 63 2e 73 76 5f |v_mask =| vec.sv_|
|00005dd0| 6f 6e 73 74 61 63 6b 20 | 3d 20 30 3b 0a 09 73 69 |onstack |= 0;..si|
|00005de0| 67 76 65 63 28 53 49 47 | 41 4c 52 4d 2c 26 76 65 |gvec(SIG|ALRM,&ve|
|00005df0| 63 2c 28 73 74 72 75 63 | 74 20 73 69 67 76 65 63 |c,(struc|t sigvec|
|00005e00| 20 2a 29 30 29 3b 0a 09 | 6e 6f 72 61 77 28 29 3b | *)0);..|noraw();|
|00005e10| 20 65 63 68 6f 28 29 3b | 0a 09 65 6e 64 77 69 6e | echo();|..endwin|
|00005e20| 28 29 3b 0a 09 69 66 20 | 28 72 65 6d 6f 76 65 29 |();..if |(remove)|
|00005e30| 20 75 6e 6c 69 6e 6b 28 | 66 69 6c 65 6e 61 6d 65 | unlink(|filename|
|00005e40| 29 3b 0a 7d 0a 09 0a 0a | 63 61 75 67 68 74 28 29 |);.}....|caught()|
|00005e50| 20 7b 0a 09 6c 6f 6e 67 | 6a 6d 70 28 65 6e 76 2c | {..long|jmp(env,|
|00005e60| 31 29 3b 0a 7d 0a 0a 53 | 45 54 5f 54 49 4d 45 52 |1);.}..S|ET_TIMER|
|00005e70| 28 73 65 63 73 29 20 0a | 69 6e 74 20 73 65 63 73 |(secs) .|int secs|
|00005e80| 3b 20 7b 0a 09 73 74 72 | 75 63 74 20 69 74 69 6d |; {..str|uct itim|
|00005e90| 65 72 76 61 6c 20 76 61 | 6c 3b 0a 0a 09 76 61 6c |erval va|l;...val|
|00005ea0| 2e 69 74 5f 76 61 6c 75 | 65 2e 74 76 5f 73 65 63 |.it_valu|e.tv_sec|
|00005eb0| 20 3d 20 73 65 63 73 3b | 0a 09 76 61 6c 2e 69 74 | = secs;|..val.it|
|00005ec0| 5f 76 61 6c 75 65 2e 74 | 76 5f 75 73 65 63 20 3d |_value.t|v_usec =|
|00005ed0| 20 73 65 63 73 20 2a 20 | 31 30 30 30 3b 0a 09 74 | secs * |1000;..t|
|00005ee0| 69 6d 65 72 63 6c 65 61 | 72 28 26 76 61 6c 2e 69 |imerclea|r(&val.i|
|00005ef0| 74 5f 69 6e 74 65 72 76 | 61 6c 29 3b 0a 09 73 65 |t_interv|al);..se|
|00005f00| 74 69 74 69 6d 65 72 28 | 49 54 49 4d 45 52 5f 52 |titimer(|ITIMER_R|
|00005f10| 45 41 4c 2c 26 76 61 6c | 2c 28 73 74 72 75 63 74 |EAL,&val|,(struct|
|00005f20| 20 69 74 69 6d 65 72 76 | 61 6c 20 2a 29 30 29 3b | itimerv|al *)0);|
|00005f30| 0a 7d 0a 0a 44 49 53 41 | 42 4c 45 5f 54 49 4d 45 |.}..DISA|BLE_TIME|
|00005f40| 52 28 29 20 7b 0a 09 73 | 74 72 75 63 74 20 69 74 |R() {..s|truct it|
|00005f50| 69 6d 65 72 76 61 6c 20 | 76 61 6c 3b 0a 0a 09 74 |imerval |val;...t|
|00005f60| 69 6d 65 72 63 6c 65 61 | 72 28 26 76 61 6c 2e 69 |imerclea|r(&val.i|
|00005f70| 74 5f 76 61 6c 75 65 29 | 3b 0a 09 73 65 74 69 74 |t_value)|;..setit|
|00005f80| 69 6d 65 72 28 49 54 49 | 4d 45 52 5f 52 45 41 4c |imer(ITI|MER_REAL|
|00005f90| 2c 26 76 61 6c 2c 28 73 | 74 72 75 63 74 20 69 74 |,&val,(s|truct it|
|00005fa0| 69 6d 65 72 76 61 6c 20 | 2a 29 30 29 3b 0a 7d 0a |imerval |*)0);.}.|
|00005fb0| 53 48 41 52 5f 45 4f 46 | 0a 69 66 20 74 65 73 74 |SHAR_EOF|.if test|
|00005fc0| 20 34 35 32 37 20 2d 6e | 65 20 22 60 77 63 20 2d | 4527 -n|e "`wc -|
|00005fd0| 63 20 3c 20 27 72 65 63 | 65 69 76 65 2e 63 27 60 |c < 'rec|eive.c'`|
|00005fe0| 22 0a 74 68 65 6e 0a 09 | 65 63 68 6f 20 73 68 61 |".then..|echo sha|
|00005ff0| 72 3a 20 65 72 72 6f 72 | 20 74 72 61 6e 73 6d 69 |r: error| transmi|
|00006000| 74 74 69 6e 67 20 22 27 | 72 65 63 65 69 76 65 2e |tting "'|receive.|
|00006010| 63 27 22 20 27 28 73 68 | 6f 75 6c 64 20 68 61 76 |c'" '(sh|ould hav|
|00006020| 65 20 62 65 65 6e 20 34 | 35 32 37 20 63 68 61 72 |e been 4|527 char|
|00006030| 61 63 74 65 72 73 29 27 | 0a 66 69 0a 66 69 0a 65 |acters)'|.fi.fi.e|
|00006040| 63 68 6f 20 73 68 61 72 | 3a 20 65 78 74 72 61 63 |cho shar|: extrac|
|00006050| 74 69 6e 67 20 22 27 74 | 6f 5f 70 63 2e 63 27 22 |ting "'t|o_pc.c'"|
|00006060| 20 27 28 35 30 32 37 20 | 63 68 61 72 61 63 74 65 | '(5027 |characte|
|00006070| 72 73 29 27 0a 69 66 20 | 74 65 73 74 20 2d 66 20 |rs)'.if |test -f |
|00006080| 27 74 6f 5f 70 63 2e 63 | 27 0a 74 68 65 6e 0a 09 |'to_pc.c|'.then..|
|00006090| 65 63 68 6f 20 73 68 61 | 72 3a 20 77 69 6c 6c 20 |echo sha|r: will |
|000060a0| 6e 6f 74 20 6f 76 65 72 | 2d 77 72 69 74 65 20 65 |not over|-write e|
|000060b0| 78 69 73 74 69 6e 67 20 | 66 69 6c 65 20 22 27 74 |xisting |file "'t|
|000060c0| 6f 5f 70 63 2e 63 27 22 | 0a 65 6c 73 65 0a 63 61 |o_pc.c'"|.else.ca|
|000060d0| 74 20 3c 3c 20 5c 53 48 | 41 52 5f 45 4f 46 20 3e |t << \SH|AR_EOF >|
|000060e0| 20 27 74 6f 5f 70 63 2e | 63 27 0a 23 0a 23 20 69 | 'to_pc.|c'.#.# i|
|000060f0| 6e 63 6c 75 64 65 20 3c | 63 75 72 73 65 73 2e 68 |nclude <|curses.h|
|00006100| 3e 0a 23 20 69 6e 63 6c | 75 64 65 20 3c 73 69 67 |>.# incl|ude <sig|
|00006110| 6e 61 6c 2e 68 3e 0a 23 | 20 69 6e 63 6c 75 64 65 |nal.h>.#| include|
|00006120| 20 3c 66 69 6c 65 2e 68 | 3e 0a 0a 23 20 64 65 66 | <file.h|>..# def|
|00006130| 69 6e 65 09 53 54 5f 42 | 4c 4b 09 33 33 09 09 2f |ine.ST_B|LK.33../|
|00006140| 2a 20 21 20 2a 2f 0a 23 | 20 64 65 66 69 6e 65 09 |* ! */.#| define.|
|00006150| 52 45 41 44 59 09 33 34 | 09 09 2f 2a 20 22 20 2a |READY.34|../* " *|
|00006160| 2f 0a 23 20 64 65 66 69 | 6e 65 09 4f 4b 41 59 09 |/.# defi|ne.OKAY.|
|00006170| 33 35 09 09 2f 2a 20 23 | 20 2a 2f 0a 23 20 64 65 |35../* #| */.# de|
|00006180| 66 69 6e 65 09 4e 4f 54 | 5f 4f 4b 09 33 36 09 09 |fine.NOT|_OK.36..|
|00006190| 2f 2a 20 24 20 2a 2f 0a | 23 20 64 65 66 69 6e 65 |/* $ */.|# define|
|000061a0| 09 43 41 4e 43 45 4c 09 | 33 37 09 09 2f 2a 20 25 |.CANCEL.|37../* %|
|000061b0| 20 2a 2f 0a 23 20 64 65 | 66 69 6e 65 09 43 52 09 | */.# de|fine.CR.|
|000061c0| 31 33 09 09 2f 2a 20 5c | 72 20 2a 2f 0a 23 20 64 |13../* \|r */.# d|
|000061d0| 65 66 69 6e 65 09 70 61 | 64 20 22 20 20 20 20 22 |efine.pa|d " "|
|000061e0| 0a 0a 69 6e 74 20 73 65 | 71 5f 6e 75 6d 2c 20 6f |..int se|q_num, o|
|000061f0| 6c 64 2c 20 66 6c 61 67 | 73 3b 0a 63 68 61 72 20 |ld, flag|s;.char |
|00006200| 62 75 66 5b 39 35 5d 2c | 20 73 65 71 5b 34 5d 2c |buf[95],| seq[4],|
|00006210| 20 66 69 6c 65 6e 61 6d | 65 5b 36 34 5d 3b 0a 0a | filenam|e[64];..|
|00006220| 6d 61 69 6e 28 61 72 67 | 63 2c 61 72 67 76 29 0a |main(arg|c,argv).|
|00006230| 69 6e 74 20 61 72 67 63 | 3b 0a 63 68 61 72 20 2a |int argc|;.char *|
|00006240| 61 72 67 76 5b 5d 3b 20 | 7b 0a 0a 09 69 6e 74 20 |argv[]; |{...int |
|00006250| 66 64 3b 0a 09 72 65 67 | 69 73 74 65 72 20 69 3b |fd;..reg|ister i;|
|00006260| 0a 09 72 65 67 69 73 74 | 65 72 20 63 68 61 72 20 |..regist|er char |
|00006270| 2a 70 74 72 3b 0a 09 63 | 68 61 72 20 2a 41 44 44 |*ptr;..c|har *ADD|
|00006280| 43 52 28 29 3b 0a 09 63 | 68 61 72 20 63 2c 20 63 |CR();..c|har c, c|
|00006290| 68 75 6e 63 6b 5b 34 35 | 5d 3b 0a 09 63 68 61 72 |hunck[45|];..char|
|000062a0| 20 2a 4d 4b 5f 53 45 51 | 28 29 2c 20 2a 4d 4b 5f | *MK_SEQ|(), *MK_|
|000062b0| 53 54 41 52 54 28 29 2c | 20 2a 69 74 6f 73 28 29 |START(),| *itos()|
|000062c0| 3b 0a 09 69 6e 74 20 6c | 69 6d 2c 20 70 69 64 3b |;..int l|im, pid;|
|000062d0| 0a 09 69 6e 74 20 66 69 | 72 73 74 20 3d 20 31 3b |..int fi|rst = 1;|
|000062e0| 0a 0a 09 66 6c 61 67 73 | 20 3d 20 61 72 67 63 3b |...flags| = argc;|
|000062f0| 0a 09 69 66 20 28 21 28 | 28 61 72 67 63 20 3d 3d |..if (!(|(argc ==|
|00006300| 20 32 29 20 7c 7c 20 28 | 61 72 67 63 20 3d 3d 20 | 2) || (|argc == |
|00006310| 33 29 29 29 20 7b 0a 09 | 09 70 72 69 6e 74 66 28 |3))) {..|.printf(|
|00006320| 22 49 4c 4c 45 47 41 4c | 20 4e 55 4d 42 45 52 20 |"ILLEGAL| NUMBER |
|00006330| 4f 46 20 41 52 47 55 4d | 45 4e 54 53 2e 5c 6e 22 |OF ARGUM|ENTS.\n"|
|00006340| 29 3b 0a 09 09 70 72 69 | 6e 74 66 28 22 53 59 4e |);...pri|ntf("SYN|
|00006350| 4f 50 53 49 53 3a 20 74 | 6f 5f 70 63 20 5b 2d 74 |OPSIS: t|o_pc [-t|
|00006360| 5d 20 66 69 6c 65 6e 61 | 6d 65 5c 6e 22 29 3b 0a |] filena|me\n");.|
|00006370| 09 09 65 78 69 74 28 2d | 31 29 3b 0a 09 7d 0a 0a |..exit(-|1);..}..|
|00006380| 09 69 66 20 28 61 72 67 | 63 20 3d 3d 20 32 29 20 |.if (arg|c == 2) |
|00006390| 73 74 72 63 70 79 28 66 | 69 6c 65 6e 61 6d 65 2c |strcpy(f|ilename,|
|000063a0| 61 72 67 76 5b 31 5d 29 | 3b 20 20 2f 2a 20 64 6f |argv[1])|; /* do|
|000063b0| 6e 27 74 20 70 75 74 20 | 69 6e 20 43 52 27 73 20 |n't put |in CR's |
|000063c0| 2a 2f 0a 09 65 6c 73 65 | 20 7b 20 0a 09 09 69 66 |*/..else| { ...if|
|000063d0| 20 28 73 74 72 63 6d 70 | 28 61 72 67 76 5b 31 5d | (strcmp|(argv[1]|
|000063e0| 2c 22 2d 74 22 29 29 20 | 7b 0a 09 09 09 70 72 69 |,"-t")) |{....pri|
|000063f0| 6e 74 66 28 22 62 61 64 | 20 61 72 67 75 6d 65 6e |ntf("bad| argumen|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
