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: 1456
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| Newsgroup Content (archive/news)
| magic
| Supported |
| 100%
| dexvert
| SHell self-extracting ARchive (archive/shar)
| magic
| Supported |
| 100%
| dexvert
| Internet Message Format (text/imf)
| magic
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| news or mail, ASCII text
| default
| |
| 100%
| TrID
| E-Mail message (Var. 2)
| 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| 46 72 6f 6d 3a 20 6a 61 | 6b 40 73 61 63 74 6f 68 |From: ja|k@sactoh|
|00000010| 30 2e 55 55 43 50 20 28 | 4a 61 79 20 41 2e 20 4b |0.UUCP (|Jay A. K|
|00000020| 6f 6e 69 67 73 62 65 72 | 67 29 0a 4e 65 77 73 67 |onigsber|g).Newsg|
|00000030| 72 6f 75 70 73 3a 20 61 | 6c 74 2e 73 6f 75 72 63 |roups: a|lt.sourc|
|00000040| 65 73 0a 53 75 62 6a 65 | 63 74 3a 20 73 69 6d 70 |es.Subje|ct: simp|
|00000050| 65 64 20 61 20 73 69 6d | 70 6c 65 20 65 64 69 74 |ed a sim|ple edit|
|00000060| 6f 72 0a 4d 65 73 73 61 | 67 65 2d 49 44 3a 20 3c |or.Messa|ge-ID: <|
|00000070| 33 32 36 36 40 73 61 63 | 74 6f 68 30 2e 55 55 43 |3266@sac|toh0.UUC|
|00000080| 50 3e 0a 44 61 74 65 3a | 20 31 33 20 4a 75 6e 20 |P>.Date:| 13 Jun |
|00000090| 39 30 20 30 31 3a 30 35 | 3a 31 35 20 47 4d 54 0a |90 01:05|:15 GMT.|
|000000a0| 0a 54 68 69 73 20 65 64 | 69 74 6f 72 20 77 61 73 |.This ed|itor was|
|000000b0| 20 63 72 65 61 74 65 64 | 20 69 6e 20 72 65 73 70 | created| in resp|
|000000c0| 6f 6e 73 65 20 74 6f 20 | 72 65 71 75 65 73 74 73 |onse to |requests|
|000000d0| 20 6f 6e 20 61 6c 74 2e | 62 62 73 20 66 6f 72 20 | on alt.|bbs for |
|000000e0| 61 20 73 69 6d 70 6c 65 | 2c 0a 65 61 73 79 20 74 |a simple|,.easy t|
|000000f0| 6f 20 75 73 65 2c 20 65 | 64 69 74 6f 72 2e 0a 0a |o use, e|ditor...|
|00000100| 54 68 69 73 20 69 73 20 | 61 20 62 65 74 61 20 63 |This is |a beta c|
|00000110| 6f 70 79 2c 20 74 68 65 | 20 61 6c 66 61 20 63 6f |opy, the| alfa co|
|00000120| 70 79 20 74 75 72 6e 65 | 64 20 75 70 20 73 65 76 |py turne|d up sev|
|00000130| 65 72 61 6c 20 62 75 67 | 73 2c 20 77 68 69 63 68 |eral bug|s, which|
|00000140| 20 68 61 76 65 0a 28 6f | 66 20 63 6f 75 72 73 65 | have.(o|f course|
|00000150| 29 20 62 65 65 6e 20 66 | 69 78 65 64 2e 0a 0a 54 |) been f|ixed...T|
|00000160| 68 65 20 6d 61 69 6e 20 | 66 65 61 74 75 72 65 20 |he main |feature |
|00000170| 74 6f 20 74 68 69 73 20 | 65 64 69 74 6f 72 20 69 |to this |editor i|
|00000180| 73 20 69 74 73 20 4d 29 | 6f 64 69 66 79 20 63 6f |s its M)|odify co|
|00000190| 6d 6d 61 6e 64 20 2d 20 | 61 20 6d 75 6c 74 69 2d |mmand - |a multi-|
|000001a0| 75 73 65 0a 65 64 69 74 | 69 6e 67 20 66 75 6e 63 |use.edit|ing func|
|000001b0| 74 69 6f 6e 2e 0a 0a 73 | 69 6d 70 65 64 20 68 61 |tion...s|imped ha|
|000001c0| 73 20 62 6f 74 68 20 6f | 6e 6c 69 6e 65 20 68 65 |s both o|nline he|
|000001d0| 6c 70 20 61 6e 64 20 61 | 20 27 73 69 6d 70 65 64 |lp and a| 'simped|
|000001e0| 2e 64 6f 63 27 20 66 69 | 6c 65 2e 0a 0a 23 20 3d |.doc' fi|le...# =|
|000001f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000200| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 20 63 75 74 20 |========|=== cut |
|00000210| 68 65 72 65 20 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |here ===|========|
|00000220| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000230| 3d 3d 3d 3d 3d 3d 0a 23 | 21 20 2f 62 69 6e 2f 73 |======.#|! /bin/s|
|00000240| 68 0a 23 20 54 68 69 73 | 20 69 73 20 61 20 73 68 |h.# This| is a sh|
|00000250| 65 6c 6c 20 61 72 63 68 | 69 76 65 2c 20 6d 65 61 |ell arch|ive, mea|
|00000260| 6e 69 6e 67 3a 0a 23 20 | 31 2e 20 52 65 6d 6f 76 |ning:.# |1. Remov|
|00000270| 65 20 65 76 65 72 79 74 | 68 69 6e 67 20 61 62 6f |e everyt|hing abo|
|00000280| 76 65 20 74 68 65 20 23 | 21 20 2f 62 69 6e 2f 73 |ve the #|! /bin/s|
|00000290| 68 20 6c 69 6e 65 2e 0a | 23 20 32 2e 20 53 61 76 |h line..|# 2. Sav|
|000002a0| 65 20 74 68 65 20 72 65 | 73 75 6c 74 69 6e 67 20 |e the re|sulting |
|000002b0| 74 65 78 74 20 69 6e 20 | 61 20 66 69 6c 65 2e 0a |text in |a file..|
|000002c0| 23 20 33 2e 20 45 78 65 | 63 75 74 65 20 74 68 65 |# 3. Exe|cute the|
|000002d0| 20 66 69 6c 65 20 77 69 | 74 68 20 2f 62 69 6e 2f | file wi|th /bin/|
|000002e0| 73 68 20 28 6e 6f 74 20 | 63 73 68 29 20 74 6f 20 |sh (not |csh) to |
|000002f0| 63 72 65 61 74 65 3a 0a | 23 09 4d 61 6b 65 66 69 |create:.|#.Makefi|
|00000300| 6c 65 0a 23 09 61 64 64 | 6c 69 6e 65 73 2e 63 0a |le.#.add|lines.c.|
|00000310| 23 09 61 6c 6c 6f 63 61 | 74 65 2e 63 0a 23 09 63 |#.alloca|te.c.#.c|
|00000320| 6c 65 61 6e 75 70 2e 63 | 0a 23 09 63 6f 6d 6d 61 |leanup.c|.#.comma|
|00000330| 6e 64 73 2e 63 0a 23 09 | 64 65 6c 65 74 65 6c 69 |nds.c.#.|deleteli|
|00000340| 6e 65 2e 63 0a 23 09 65 | 64 69 74 6c 69 6e 65 2e |ne.c.#.e|ditline.|
|00000350| 63 0a 23 09 67 65 74 6c | 69 6e 65 2e 63 0a 23 09 |c.#.getl|ine.c.#.|
|00000360| 67 65 74 6c 69 6e 65 6e | 75 6d 2e 63 0a 23 09 68 |getlinen|um.c.#.h|
|00000370| 65 6c 70 2e 63 0a 23 09 | 6c 69 73 74 74 65 78 74 |elp.c.#.|listtext|
|00000380| 2e 63 0a 23 09 6d 61 69 | 6e 2e 63 0a 23 09 6d 6f |.c.#.mai|n.c.#.mo|
|00000390| 64 0a 23 09 6d 6f 64 69 | 66 79 2e 63 0a 23 09 6f |d.#.modi|fy.c.#.o|
|000003a0| 6e 65 0a 23 09 70 6f 73 | 69 74 69 6f 6e 2e 63 0a |ne.#.pos|ition.c.|
|000003b0| 23 09 73 61 76 65 66 69 | 6c 65 2e 63 0a 23 09 73 |#.savefi|le.c.#.s|
|000003c0| 69 6d 70 65 64 2e 64 6f | 63 0a 23 09 73 69 6d 70 |imped.do|c.#.simp|
|000003d0| 65 64 2e 68 0a 23 20 54 | 68 69 73 20 61 72 63 68 |ed.h.# T|his arch|
|000003e0| 69 76 65 20 63 72 65 61 | 74 65 64 3a 20 54 75 65 |ive crea|ted: Tue|
|000003f0| 20 4a 75 6e 20 31 32 20 | 31 37 3a 35 31 3a 32 35 | Jun 12 |17:51:25|
|00000400| 20 31 39 39 30 0a 65 78 | 70 6f 72 74 20 50 41 54 | 1990.ex|port PAT|
|00000410| 48 3b 20 50 41 54 48 3d | 2f 62 69 6e 3a 2f 75 73 |H; PATH=|/bin:/us|
|00000420| 72 2f 62 69 6e 3a 24 50 | 41 54 48 0a 65 63 68 6f |r/bin:$P|ATH.echo|
|00000430| 20 73 68 61 72 3a 20 22 | 65 78 74 72 61 63 74 69 | shar: "|extracti|
|00000440| 6e 67 20 27 4d 61 6b 65 | 66 69 6c 65 27 22 20 27 |ng 'Make|file'" '|
|00000450| 28 32 34 35 38 20 63 68 | 61 72 61 63 74 65 72 73 |(2458 ch|aracters|
|00000460| 29 27 0a 69 66 20 74 65 | 73 74 20 2d 66 20 27 4d |)'.if te|st -f 'M|
|00000470| 61 6b 65 66 69 6c 65 27 | 0a 74 68 65 6e 0a 09 65 |akefile'|.then..e|
|00000480| 63 68 6f 20 73 68 61 72 | 3a 20 22 77 69 6c 6c 20 |cho shar|: "will |
|00000490| 6e 6f 74 20 6f 76 65 72 | 2d 77 72 69 74 65 20 65 |not over|-write e|
|000004a0| 78 69 73 74 69 6e 67 20 | 66 69 6c 65 20 27 4d 61 |xisting |file 'Ma|
|000004b0| 6b 65 66 69 6c 65 27 22 | 0a 65 6c 73 65 0a 73 65 |kefile'"|.else.se|
|000004c0| 64 20 27 73 2f 5e 09 58 | 2f 2f 27 20 3c 3c 20 5c |d 's/^.X|//' << \|
|000004d0| 53 48 41 52 5f 45 4f 46 | 20 3e 20 27 4d 61 6b 65 |SHAR_EOF| > 'Make|
|000004e0| 66 69 6c 65 27 0a 09 58 | 23 20 73 69 6d 70 65 64 |file'..X|# simped|
|000004f0| 20 2d 20 61 20 73 69 6d | 70 6c 65 2c 20 65 61 73 | - a sim|ple, eas|
|00000500| 79 20 74 6f 20 75 73 65 | 20 28 6c 69 6e 65 20 6f |y to use| (line o|
|00000510| 72 69 65 6e 74 65 64 29 | 20 65 64 69 74 6f 72 2e |riented)| editor.|
|00000520| 0a 09 58 0a 09 58 23 20 | 43 6f 70 79 72 69 67 68 |..X..X# |Copyrigh|
|00000530| 74 20 28 43 29 20 31 39 | 39 30 20 4a 61 79 20 4b |t (C) 19|90 Jay K|
|00000540| 6f 6e 69 67 73 62 65 72 | 67 20 28 75 75 63 70 3a |onigsber|g (uucp:|
|00000550| 20 6a 61 6b 40 73 61 63 | 74 6f 68 30 29 0a 09 58 | jak@sac|toh0)..X|
|00000560| 23 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |# | |
|00000570| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000580| 20 20 20 20 28 70 61 70 | 65 72 20 6d 61 69 6c 20 | (pap|er mail |
|00000590| 6e 6f 74 20 61 76 61 69 | 6c 61 62 6c 65 29 0a 09 |not avai|lable)..|
|000005a0| 58 23 0a 09 58 23 20 54 | 68 69 73 20 70 72 6f 67 |X#..X# T|his prog|
|000005b0| 72 61 6d 20 69 73 20 66 | 72 65 65 20 73 6f 66 74 |ram is f|ree soft|
|000005c0| 77 61 72 65 3b 20 79 6f | 75 20 63 61 6e 20 72 65 |ware; yo|u can re|
|000005d0| 64 69 73 74 72 69 62 75 | 74 65 20 69 74 20 61 6e |distribu|te it an|
|000005e0| 64 2f 6f 72 20 6d 6f 64 | 69 66 79 0a 09 58 23 20 |d/or mod|ify..X# |
|000005f0| 69 74 20 75 6e 64 65 72 | 20 74 68 65 20 74 65 72 |it under| the ter|
|00000600| 6d 73 20 6f 66 20 74 68 | 65 20 47 4e 55 20 47 65 |ms of th|e GNU Ge|
|00000610| 6e 65 72 61 6c 20 50 75 | 62 6c 69 63 20 4c 69 63 |neral Pu|blic Lic|
|00000620| 65 6e 63 65 20 61 73 20 | 70 75 62 6c 69 73 68 65 |ence as |publishe|
|00000630| 64 20 62 79 0a 09 58 23 | 20 74 68 65 20 46 72 65 |d by..X#| the Fre|
|00000640| 65 20 53 6f 66 74 77 61 | 72 65 20 46 6f 75 6e 64 |e Softwa|re Found|
|00000650| 61 74 69 6f 6e 3b 20 65 | 69 74 68 65 72 20 76 65 |ation; e|ither ve|
|00000660| 72 73 69 6f 6e 20 31 2c | 20 6f 72 20 28 61 74 20 |rsion 1,| or (at |
|00000670| 79 6f 75 72 20 6f 70 74 | 69 6f 6e 29 0a 09 58 23 |your opt|ion)..X#|
|00000680| 20 61 6e 79 20 6c 61 74 | 65 72 20 76 65 72 73 69 | any lat|er versi|
|00000690| 6f 6e 2e 0a 09 58 0a 09 | 58 23 20 54 68 69 73 20 |on...X..|X# This |
|000006a0| 70 72 6f 67 72 61 6d 20 | 69 73 20 64 69 73 74 72 |program |is distr|
|000006b0| 75 62 69 74 65 64 20 69 | 6e 20 74 68 65 20 68 6f |ubited i|n the ho|
|000006c0| 70 65 20 74 68 61 74 20 | 69 74 20 77 69 6c 6c 20 |pe that |it will |
|000006d0| 62 65 20 75 73 65 66 75 | 6c 2c 0a 09 58 23 20 62 |be usefu|l,..X# b|
|000006e0| 75 74 20 57 49 54 48 4f | 55 54 20 41 4e 59 20 57 |ut WITHO|UT ANY W|
|000006f0| 41 52 52 41 4e 54 59 3b | 20 77 69 74 68 6f 75 74 |ARRANTY;| without|
|00000700| 20 65 76 65 76 20 74 68 | 65 20 69 6d 70 6c 69 65 | evev th|e implie|
|00000710| 64 20 77 61 72 72 61 6e | 74 79 20 6f 66 0a 09 58 |d warran|ty of..X|
|00000720| 23 20 4d 45 52 43 48 41 | 4e 54 41 42 49 4c 49 54 |# MERCHA|NTABILIT|
|00000730| 59 20 6f 72 20 46 49 54 | 54 4e 45 53 53 20 46 4f |Y or FIT|TNESS FO|
|00000740| 52 20 41 20 50 41 52 54 | 49 43 55 4c 41 52 20 50 |R A PART|ICULAR P|
|00000750| 55 52 50 4f 53 45 2e 20 | 53 65 65 20 74 68 65 0a |URPOSE. |See the.|
|00000760| 09 58 23 20 47 4e 55 20 | 47 65 6e 65 72 61 6c 20 |.X# GNU |General |
|00000770| 50 75 62 6c 69 63 20 4c | 69 63 65 6e 73 65 20 66 |Public L|icense f|
|00000780| 6f 72 20 6d 6f 72 65 20 | 64 65 74 61 69 6c 73 2e |or more |details.|
|00000790| 0a 09 58 0a 09 58 23 20 | 59 6f 75 20 73 68 6f 75 |..X..X# |You shou|
|000007a0| 6c 64 20 68 61 76 65 20 | 72 65 63 69 65 76 65 64 |ld have |recieved|
|000007b0| 20 61 20 63 6f 70 79 20 | 6f 66 20 74 68 65 20 47 | a copy |of the G|
|000007c0| 4e 55 20 47 65 6e 65 72 | 61 6c 20 50 75 62 6c 69 |NU Gener|al Publi|
|000007d0| 63 20 4c 69 63 65 6e 63 | 65 0a 09 58 23 20 61 6c |c Licenc|e..X# al|
|000007e0| 6f 6e 67 20 77 69 74 68 | 20 74 68 69 73 20 70 72 |ong with| this pr|
|000007f0| 6f 67 72 61 6d 3b 20 69 | 66 20 6e 6f 74 2c 20 77 |ogram; i|f not, w|
|00000800| 72 69 74 65 20 74 6f 20 | 74 68 65 20 46 72 65 65 |rite to |the Free|
|00000810| 20 53 6f 66 74 77 61 72 | 65 0a 09 58 23 20 46 6f | Softwar|e..X# Fo|
|00000820| 75 6e 64 61 74 69 6f 6e | 20 49 6e 63 2e 2c 20 36 |undation| Inc., 6|
|00000830| 37 35 20 4d 61 73 73 20 | 41 76 65 2c 20 43 61 6d |75 Mass |Ave, Cam|
|00000840| 62 72 69 64 67 65 2c 20 | 4d 41 20 30 32 31 33 39 |bridge, |MA 02139|
|00000850| 2c 20 55 53 41 2e 0a 09 | 58 0a 09 58 23 20 57 68 |, USA...|X..X# Wh|
|00000860| 69 6c 65 20 49 20 61 6d | 20 6e 6f 74 20 64 69 72 |ile I am| not dir|
|00000870| 65 63 74 6c 79 20 63 6f | 6e 6e 65 63 74 65 64 20 |ectly co|nnected |
|00000880| 77 69 74 68 20 47 4e 55 | 2c 20 49 20 68 6f 70 65 |with GNU|, I hope|
|00000890| 20 74 68 65 20 70 72 65 | 63 65 65 64 69 6e 67 0a | the pre|ceeding.|
|000008a0| 09 58 23 20 73 61 79 73 | 20 65 6e 6f 75 67 68 2e |.X# says| enough.|
|000008b0| 20 28 54 68 65 79 20 64 | 69 64 20 73 61 79 20 49 | (They d|id say I|
|000008c0| 20 63 6f 75 6c 64 20 63 | 6f 70 79 20 69 74 29 0a | could c|opy it).|
|000008d0| 09 58 23 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.X# | |
|000008e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000008f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000900| 20 20 20 20 4a 61 79 0a | 09 58 0a 09 58 0a 09 58 | Jay.|.X..X..X|
|00000910| 23 0a 09 58 23 20 4c 49 | 4e 45 4c 45 4e 20 2d 20 |#..X# LI|NELEN - |
|00000920| 54 68 65 20 6c 65 6e 67 | 74 68 20 6f 66 20 61 20 |The leng|th of a |
|00000930| 6c 69 6e 65 20 61 63 72 | 6f 73 73 20 74 68 65 20 |line acr|oss the |
|00000940| 73 63 72 65 65 6e 2e 20 | 54 68 69 73 20 76 61 6c |screen. |This val|
|00000950| 75 65 20 6d 75 73 74 20 | 62 65 0a 09 58 23 20 20 |ue must |be..X# |
|00000960| 20 20 20 20 20 20 20 20 | 20 61 74 20 6c 65 61 73 | | at leas|
|00000970| 74 20 35 20 63 68 61 72 | 61 63 74 65 72 73 20 6c |t 5 char|acters l|
|00000980| 65 73 73 20 74 68 61 6e | 20 74 68 65 20 73 63 72 |ess than| the scr|
|00000990| 65 65 6e 20 77 69 64 74 | 68 20 74 6f 20 61 6c 6c |een widt|h to all|
|000009a0| 6f 77 0a 09 58 23 20 20 | 20 20 20 20 20 20 20 20 |ow..X# | |
|000009b0| 20 66 6f 72 20 74 68 65 | 20 6c 69 6e 65 20 6e 75 | for the| line nu|
|000009c0| 6d 62 65 72 20 70 72 6f | 6d 70 74 20 61 74 20 74 |mber pro|mpt at t|
|000009d0| 68 65 20 6c 65 66 74 2e | 20 36 20 69 6e 20 62 65 |he left.| 6 in be|
|000009e0| 74 74 65 72 2e 0a 09 58 | 4c 49 4e 45 4c 45 4e 3d |tter...X|LINELEN=|
|000009f0| 37 34 0a 09 58 0a 09 58 | 23 0a 09 58 23 20 50 41 |74..X..X|#..X# PA|
|00000a00| 55 53 45 20 20 20 2d 20 | 54 68 69 73 20 69 73 20 |USE - |This is |
|00000a10| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 6c 69 |the numb|er of li|
|00000a20| 6e 65 73 20 74 68 61 74 | 20 77 69 6c 6c 20 62 65 |nes that| will be|
|00000a30| 20 6c 69 73 74 65 64 20 | 75 70 6f 6e 0a 09 58 23 | listed |upon..X#|
|00000a40| 20 20 20 20 20 20 20 20 | 20 20 20 65 6e 74 65 72 | | enter|
|00000a50| 69 6e 67 20 74 68 65 20 | 65 64 69 74 6f 72 20 77 |ing the |editor w|
|00000a60| 69 74 68 20 61 6e 20 65 | 78 69 73 74 69 6e 67 20 |ith an e|xisting |
|00000a70| 66 69 6c 65 2c 20 6f 72 | 20 77 68 65 6e 0a 09 58 |file, or| when..X|
|00000a80| 23 20 20 20 20 20 20 20 | 20 20 20 20 74 68 65 20 |# | the |
|00000a90| 4c 29 69 73 74 20 63 6f | 6d 6d 61 6e 64 20 69 73 |L)ist co|mmand is|
|00000aa0| 20 75 73 65 64 2e 20 54 | 68 65 20 48 29 65 6c 70 | used. T|he H)elp|
|00000ab0| 20 63 6f 6d 6d 61 6e 64 | 20 73 75 67 67 65 73 74 | command| suggest|
|00000ac0| 73 0a 09 58 23 20 20 20 | 20 20 20 20 20 20 20 20 |s..X# | |
|00000ad0| 69 74 20 77 69 6c 6c 20 | 62 65 20 22 61 62 6f 75 |it will |be "abou|
|00000ae0| 74 20 61 20 68 61 6c 66 | 20 61 20 73 63 72 65 65 |t a half| a scree|
|00000af0| 6e 22 2e 0a 09 58 50 41 | 55 53 45 3d 31 35 0a 09 |n"...XPA|USE=15..|
|00000b00| 58 0a 09 58 23 0a 09 58 | 23 20 42 45 4c 4c 20 20 |X..X#..X|# BELL |
|00000b10| 20 20 2d 20 43 68 6f 6f | 73 65 20 74 68 65 20 62 | - Choo|se the b|
|00000b20| 65 6c 6c 20 63 68 61 72 | 61 63 74 65 72 20 66 6f |ell char|acter fo|
|00000b30| 72 20 79 6f 75 72 20 73 | 79 73 74 65 6d 2c 20 61 |r your s|ystem, a|
|00000b40| 73 63 69 69 20 69 73 20 | 64 65 66 61 75 6c 74 2e |scii is |default.|
|00000b50| 0a 09 58 23 0a 09 58 42 | 45 4c 4c 3d 5c 30 30 37 |..X#..XB|ELL=\007|
|00000b60| 0a 09 58 0a 09 58 23 0a | 09 58 23 20 43 6f 6d 70 |..X..X#.|.X# Comp|
|00000b70| 6c 69 65 72 20 2d 20 63 | 68 6f 6f 73 65 20 79 6f |lier - c|hoose yo|
|00000b80| 75 72 20 43 20 63 6f 6d | 70 6c 69 65 72 2e 20 67 |ur C com|plier. g|
|00000b90| 63 63 20 2d 4f 20 2d 74 | 72 61 64 69 74 69 6f 6e |cc -O -t|radition|
|00000ba0| 61 6c 20 69 73 20 70 72 | 65 66 65 72 72 65 64 0a |al is pr|eferred.|
|00000bb0| 09 58 0a 09 58 43 43 3d | 63 63 20 2d 4f 0a 09 58 |.X..XCC=|cc -O..X|
|00000bc0| 23 43 43 3d 67 63 63 20 | 2d 4f 20 2d 74 72 61 64 |#CC=gcc |-O -trad|
|00000bd0| 69 74 69 6f 6e 61 6c 0a | 09 58 23 43 43 3d 67 63 |itional.|.X#CC=gc|
|00000be0| 63 20 2d 4f 20 2d 57 61 | 6c 6c 20 2d 57 73 68 61 |c -O -Wa|ll -Wsha|
|00000bf0| 64 6f 77 20 2d 57 70 6f | 69 6e 74 65 72 2d 61 72 |dow -Wpo|inter-ar|
|00000c00| 69 74 68 0a 09 58 23 43 | 43 3d 63 63 20 2d 67 0a |ith..X#C|C=cc -g.|
|00000c10| 09 58 0a 09 58 43 46 4c | 41 47 53 3d 2d 44 4c 49 |.X..XCFL|AGS=-DLI|
|00000c20| 4e 45 4c 45 4e 3d 24 28 | 4c 49 4e 45 4c 45 4e 29 |NELEN=$(|LINELEN)|
|00000c30| 20 2d 44 50 41 55 53 45 | 3d 24 28 50 41 55 53 45 | -DPAUSE|=$(PAUSE|
|00000c40| 29 20 2d 44 42 45 4c 4c | 3d 24 28 42 45 4c 4c 29 |) -DBELL|=$(BELL)|
|00000c50| 0a 09 58 0a 09 58 23 45 | 58 45 43 3d 61 2e 6f 75 |..X..X#E|XEC=a.ou|
|00000c60| 74 0a 09 58 45 58 45 43 | 3d 73 69 6d 70 65 64 0a |t..XEXEC|=simped.|
|00000c70| 09 58 0a 09 58 46 49 4c | 45 53 3d 6d 61 69 6e 2e |.X..XFIL|ES=main.|
|00000c80| 6f 20 63 6c 65 61 6e 75 | 70 2e 6f 20 67 65 74 6c |o cleanu|p.o getl|
|00000c90| 69 6e 65 2e 6f 20 6c 69 | 73 74 74 65 78 74 2e 6f |ine.o li|sttext.o|
|00000ca0| 20 61 6c 6c 6f 63 61 74 | 65 2e 6f 20 63 6f 6d 6d | allocat|e.o comm|
|00000cb0| 61 6e 64 73 2e 6f 5c 0a | 09 58 61 64 64 6c 69 6e |ands.o\.|.Xaddlin|
|00000cc0| 65 73 2e 6f 20 64 65 6c | 65 74 65 6c 69 6e 65 2e |es.o del|eteline.|
|00000cd0| 6f 20 67 65 74 6c 69 6e | 65 6e 75 6d 2e 6f 20 73 |o getlin|enum.o s|
|00000ce0| 61 76 65 66 69 6c 65 2e | 6f 20 65 64 69 74 6c 69 |avefile.|o editli|
|00000cf0| 6e 65 2e 6f 20 70 6f 73 | 69 74 69 6f 6e 2e 6f 5c |ne.o pos|ition.o\|
|00000d00| 0a 09 58 6d 6f 64 69 66 | 79 2e 6f 20 68 65 6c 70 |..Xmodif|y.o help|
|00000d10| 2e 6f 0a 09 58 0a 09 58 | 24 28 45 58 45 43 29 3a |.o..X..X|$(EXEC):|
|00000d20| 20 24 28 46 49 4c 45 53 | 29 0a 09 58 09 24 28 43 | $(FILES|)..X.$(C|
|00000d30| 43 29 20 24 28 43 46 4c | 41 47 53 29 20 24 28 46 |C) $(CFL|AGS) $(F|
|00000d40| 49 4c 45 53 29 20 2d 6f | 20 24 28 45 58 45 43 29 |ILES) -o| $(EXEC)|
|00000d50| 0a 09 58 0a 09 58 24 28 | 46 49 4c 45 53 29 3a 0a |..X..X$(|FILES):.|
|00000d60| 09 58 0a 09 58 63 6c 65 | 61 6e 3a 0a 09 58 09 72 |.X..Xcle|an:..X.r|
|00000d70| 6d 20 2d 66 20 24 28 46 | 49 4c 45 53 29 20 63 6f |m -f $(F|ILES) co|
|00000d80| 72 65 20 4d 41 4e 49 46 | 45 53 54 20 73 69 6d 70 |re MANIF|EST simp|
|00000d90| 65 64 3f 2e 61 72 0a 09 | 58 0a 09 58 73 68 69 70 |ed?.ar..|X..Xship|
|00000da0| 3a 20 74 61 72 0a 09 58 | 09 63 6f 6d 70 72 65 73 |: tar..X|.compres|
|00000db0| 73 20 73 69 6d 70 65 64 | 2e 74 61 72 0a 09 58 09 |s simped|.tar..X.|
|00000dc0| 65 63 68 6f 20 73 69 6d | 70 65 64 2e 74 61 72 2e |echo sim|ped.tar.|
|00000dd0| 5a 20 63 72 65 61 74 65 | 64 0a 09 58 0a 09 58 74 |Z create|d..X..Xt|
|00000de0| 61 72 3a 20 73 68 61 72 | 0a 09 58 09 74 61 72 20 |ar: shar|..X.tar |
|00000df0| 63 76 66 20 73 69 6d 70 | 65 64 2e 74 61 72 20 73 |cvf simp|ed.tar s|
|00000e00| 69 6d 70 65 64 3f 2e 61 | 72 0a 09 58 09 72 6d 20 |imped?.a|r..X.rm |
|00000e10| 73 69 6d 70 65 64 3f 2e | 61 72 0a 09 58 0a 09 58 |simped?.|ar..X..X|
|00000e20| 0a 09 58 73 68 61 72 3a | 0a 09 58 09 73 68 61 72 |..Xshar:|..X.shar|
|00000e30| 73 70 6c 69 74 20 2d 6c | 20 32 34 30 30 30 20 2d |split -l| 24000 -|
|00000e40| 6d 20 2d 72 20 2d 6f 20 | 73 69 6d 70 65 64 20 6d |m -r -o |simped m|
|00000e50| 61 69 6e 2e 63 20 63 6c | 65 61 6e 75 70 2e 63 20 |ain.c cl|eanup.c |
|00000e60| 67 65 74 6c 69 6e 65 2e | 63 20 5c 0a 09 58 09 6c |getline.|c \..X.l|
|00000e70| 69 73 74 74 65 78 74 2e | 63 20 61 6c 6c 6f 63 61 |isttext.|c alloca|
|00000e80| 74 65 2e 63 20 63 6f 6d | 6d 61 6e 64 73 2e 63 20 |te.c com|mands.c |
|00000e90| 61 64 64 6c 69 6e 65 73 | 2e 63 20 64 65 6c 65 74 |addlines|.c delet|
|00000ea0| 65 6c 69 6e 65 2e 63 20 | 5c 0a 09 58 09 67 65 74 |eline.c |\..X.get|
|00000eb0| 6c 69 6e 65 6e 75 6d 2e | 63 20 73 61 76 65 66 69 |linenum.|c savefi|
|00000ec0| 6c 65 2e 63 20 65 64 69 | 74 6c 69 6e 65 2e 63 20 |le.c edi|tline.c |
|00000ed0| 70 6f 73 69 74 69 6f 6e | 2e 63 20 6d 6f 64 69 66 |position|.c modif|
|00000ee0| 79 2e 63 20 68 65 6c 70 | 2e 63 20 5c 0a 09 58 09 |y.c help|.c \..X.|
|00000ef0| 4d 61 6b 65 66 69 6c 65 | 20 73 69 6d 70 65 64 2e |Makefile| simped.|
|00000f00| 64 6f 63 20 6f 6e 65 20 | 6d 6f 64 20 73 69 6d 70 |doc one |mod simp|
|00000f10| 65 64 2e 68 0a 09 58 09 | 72 6d 20 4d 41 4e 49 46 |ed.h..X.|rm MANIF|
|00000f20| 45 53 54 0a 53 48 41 52 | 5f 45 4f 46 0a 69 66 20 |EST.SHAR|_EOF.if |
|00000f30| 74 65 73 74 20 32 34 35 | 38 20 2d 6e 65 20 22 60 |test 245|8 -ne "`|
|00000f40| 77 63 20 2d 63 20 3c 20 | 27 4d 61 6b 65 66 69 6c |wc -c < |'Makefil|
|00000f50| 65 27 60 22 0a 74 68 65 | 6e 0a 09 65 63 68 6f 20 |e'`".the|n..echo |
|00000f60| 73 68 61 72 3a 20 22 65 | 72 72 6f 72 20 74 72 61 |shar: "e|rror tra|
|00000f70| 6e 73 6d 69 74 74 69 6e | 67 20 27 4d 61 6b 65 66 |nsmittin|g 'Makef|
|00000f80| 69 6c 65 27 22 20 27 28 | 73 68 6f 75 6c 64 20 68 |ile'" '(|should h|
|00000f90| 61 76 65 20 62 65 65 6e | 20 32 34 35 38 20 63 68 |ave been| 2458 ch|
|00000fa0| 61 72 61 63 74 65 72 73 | 29 27 0a 66 69 0a 66 69 |aracters|)'.fi.fi|
|00000fb0| 0a 65 63 68 6f 20 73 68 | 61 72 3a 20 22 65 78 74 |.echo sh|ar: "ext|
|00000fc0| 72 61 63 74 69 6e 67 20 | 27 61 64 64 6c 69 6e 65 |racting |'addline|
|00000fd0| 73 2e 63 27 22 20 27 28 | 31 35 39 33 20 63 68 61 |s.c'" '(|1593 cha|
|00000fe0| 72 61 63 74 65 72 73 29 | 27 0a 69 66 20 74 65 73 |racters)|'.if tes|
|00000ff0| 74 20 2d 66 20 27 61 64 | 64 6c 69 6e 65 73 2e 63 |t -f 'ad|dlines.c|
|00001000| 27 0a 74 68 65 6e 0a 09 | 65 63 68 6f 20 73 68 61 |'.then..|echo sha|
|00001010| 72 3a 20 22 77 69 6c 6c | 20 6e 6f 74 20 6f 76 65 |r: "will| not ove|
|00001020| 72 2d 77 72 69 74 65 20 | 65 78 69 73 74 69 6e 67 |r-write |existing|
|00001030| 20 66 69 6c 65 20 27 61 | 64 64 6c 69 6e 65 73 2e | file 'a|ddlines.|
|00001040| 63 27 22 0a 65 6c 73 65 | 0a 73 65 64 20 27 73 2f |c'".else|.sed 's/|
|00001050| 5e 09 58 2f 2f 27 20 3c | 3c 20 5c 53 48 41 52 5f |^.X//' <|< \SHAR_|
|00001060| 45 4f 46 20 3e 20 27 61 | 64 64 6c 69 6e 65 73 2e |EOF > 'a|ddlines.|
|00001070| 63 27 0a 09 58 2f 2a 0a | 09 58 20 2a 20 43 6f 70 |c'..X/*.|.X * Cop|
|00001080| 79 72 69 67 68 74 20 28 | 43 29 20 31 39 39 30 20 |yright (|C) 1990 |
|00001090| 4a 61 79 20 4b 6f 6e 69 | 67 73 62 65 72 67 20 2d |Jay Koni|gsberg -|
|000010a0| 20 73 65 65 20 4d 61 6b | 65 66 69 6c 65 20 66 6f | see Mak|efile fo|
|000010b0| 72 20 64 65 74 61 69 6c | 73 0a 09 58 20 2a 20 54 |r detail|s..X * T|
|000010c0| 68 69 73 20 69 73 20 46 | 72 65 65 20 53 6f 66 74 |his is F|ree Soft|
|000010d0| 77 61 72 65 2c 20 64 69 | 73 74 72 75 62 69 74 65 |ware, di|strubite|
|000010e0| 64 20 75 6e 64 65 72 20 | 74 68 65 20 47 4e 55 20 |d under |the GNU |
|000010f0| 53 6f 66 74 77 61 72 65 | 20 41 67 67 72 65 6d 65 |Software| Aggreme|
|00001100| 6e 74 2e 0a 09 58 20 2a | 0a 09 58 20 2a 2f 0a 09 |nt...X *|..X */..|
|00001110| 58 0a 09 58 2f 2a 0a 09 | 58 20 2a 20 61 64 64 6c |X..X/*..|X * addl|
|00001120| 69 6e 65 73 20 2d 20 61 | 64 64 20 74 65 78 74 20 |ines - a|dd text |
|00001130| 74 6f 20 74 68 65 20 74 | 65 78 74 20 62 75 66 66 |to the t|ext buff|
|00001140| 65 72 2e 20 54 68 69 73 | 20 72 6f 75 74 69 6e 65 |er. This| routine|
|00001150| 0a 09 58 20 2a 20 64 6f | 65 73 20 64 6f 75 62 6c |..X * do|es doubl|
|00001160| 65 20 73 65 72 76 69 63 | 65 20 72 65 61 64 69 6e |e servic|e readin|
|00001170| 67 20 66 72 6f 6d 20 73 | 74 64 69 6e 20 6f 72 20 |g from s|tdin or |
|00001180| 61 20 66 69 6c 65 2e 0a | 09 58 20 2a 20 61 6e 64 |a file..|.X * and|
|00001190| 20 68 61 6e 64 65 6c 65 | 73 20 69 6e 73 65 72 74 | handele|s insert|
|000011a0| 73 20 61 6e 64 20 61 70 | 70 65 6e 64 73 2e 0a 09 |s and ap|pends...|
|000011b0| 58 20 2a 2f 0a 09 58 23 | 69 6e 63 6c 75 64 65 20 |X */..X#|include |
|000011c0| 22 73 69 6d 70 65 64 2e | 68 22 0a 09 58 0a 09 58 |"simped.|h"..X..X|
|000011d0| 63 68 61 72 20 2a 2a 61 | 64 64 6c 69 6e 65 73 28 |char **a|ddlines(|
|000011e0| 74 65 78 74 2c 20 6f 76 | 65 72 66 6c 6f 77 2c 20 |text, ov|erflow, |
|000011f0| 63 6f 75 6e 74 2c 20 6c | 6f 63 61 74 69 6f 6e 2c |count, l|ocation,|
|00001200| 20 66 64 2c 20 6e 65 77 | 66 69 6c 65 29 0a 09 58 | fd, new|file)..X|
|00001210| 63 68 61 72 20 2a 2a 74 | 65 78 74 3b 0a 09 58 63 |char **t|ext;..Xc|
|00001220| 68 61 72 20 2a 6f 76 65 | 72 66 6c 6f 77 3b 0a 09 |har *ove|rflow;..|
|00001230| 58 69 6e 74 20 20 2a 63 | 6f 75 6e 74 3b 0a 09 58 |Xint *c|ount;..X|
|00001240| 69 6e 74 20 20 6c 6f 63 | 61 74 69 6f 6e 3b 09 09 |int loc|ation;..|
|00001250| 2f 2a 20 74 68 65 20 6c | 69 6e 65 20 6e 75 6d 62 |/* the l|ine numb|
|00001260| 65 72 20 61 66 74 65 72 | 20 77 68 69 63 68 20 74 |er after| which t|
|00001270| 68 65 20 61 64 64 20 6f | 63 63 75 72 65 73 20 2a |he add o|ccures *|
|00001280| 2f 0a 09 58 69 6e 74 20 | 20 6e 65 77 66 69 6c 65 |/..Xint | newfile|
|00001290| 3b 09 09 2f 2a 20 6e 65 | 77 66 69 6c 65 20 66 6c |;../* ne|wfile fl|
|000012a0| 61 67 20 74 6f 20 73 74 | 61 74 74 20 69 6e 20 69 |ag to st|att in i|
|000012b0| 6e 73 65 72 74 20 6d 6f | 64 65 20 2a 2f 0a 09 58 |nsert mo|de */..X|
|000012c0| 46 49 4c 45 20 2a 66 64 | 3b 0a 09 58 7b 0a 09 58 |FILE *fd|;..X{..X|
|000012d0| 69 6e 74 09 70 72 69 6e | 74 66 28 29 3b 0a 09 58 |int.prin|tf();..X|
|000012e0| 0a 09 58 65 78 74 65 72 | 6e 09 63 68 61 72 09 2a |..Xexter|n.char.*|
|000012f0| 67 65 74 6c 69 6e 65 28 | 29 2c 0a 09 58 09 09 2a |getline(|),..X..*|
|00001300| 2a 61 6c 6c 6f 63 61 74 | 65 28 29 3b 0a 09 58 0a |*allocat|e();..X.|
|00001310| 09 58 63 68 61 72 09 62 | 75 66 66 65 72 5b 4c 49 |.Xchar.b|uffer[LI|
|00001320| 4e 45 4c 45 4e 2b 32 5d | 3b 0a 09 58 0a 09 58 69 |NELEN+2]|;..X..Xi|
|00001330| 6e 74 09 63 68 61 72 5f | 72 65 61 64 5f 69 6e 3d |nt.char_|read_in=|
|00001340| 30 2c 09 09 2f 2a 20 63 | 68 61 72 61 63 74 65 72 |0,../* c|haracter|
|00001350| 73 20 72 65 61 64 20 69 | 6e 20 66 72 6f 6d 20 66 |s read i|n from f|
|00001360| 64 20 2a 2f 0a 09 58 09 | 74 65 78 74 5f 65 6e 74 |d */..X.|text_ent|
|00001370| 65 72 65 64 3d 54 52 55 | 45 3b 09 2f 2a 20 62 6f |ered=TRU|E;./* bo|
|00001380| 6f 6c 65 61 6e 20 74 6f | 20 64 65 74 65 72 6d 69 |olean to| determi|
|00001390| 6e 20 77 68 65 6e 20 74 | 6f 20 61 6c 6c 6f 63 61 |n when t|o alloca|
|000013a0| 74 65 0a 09 58 09 09 09 | 09 20 20 20 73 70 61 63 |te..X...|. spac|
|000013b0| 65 20 41 4e 44 20 74 68 | 65 20 66 6c 61 67 20 66 |e AND th|e flag f|
|000013c0| 6f 72 20 45 4f 46 20 2a | 2f 0a 09 58 0a 09 58 69 |or EOF *|/..X..Xi|
|000013d0| 66 20 28 2a 63 6f 75 6e | 74 20 3e 3d 20 30 29 0a |f (*coun|t >= 0).|
|000013e0| 09 58 20 20 20 20 2b 2b | 28 2a 63 6f 75 6e 74 29 |.X ++|(*count)|
|000013f0| 3b 0a 09 58 66 6f 72 28 | 3b 3b 29 0a 09 58 20 20 |;..Xfor(|;;)..X |
|00001400| 20 20 7b 0a 09 58 20 20 | 20 20 69 66 20 28 66 64 | {..X | if (fd|
|00001410| 20 3d 3d 20 73 74 64 69 | 6e 20 7c 7c 20 6e 65 77 | == stdi|n || new|
|00001420| 66 69 6c 65 29 0a 09 58 | 09 7b 0a 09 58 09 70 72 |file)..X|.{..X.pr|
|00001430| 69 6e 74 66 28 22 25 33 | 64 3e 20 22 2c 6c 6f 63 |intf("%3|d> ",loc|
|00001440| 61 74 69 6f 6e 29 3b 0a | 09 58 09 6f 76 65 72 66 |ation);.|.X.overf|
|00001450| 6c 6f 77 20 3d 20 67 65 | 74 6c 69 6e 65 28 62 75 |low = ge|tline(bu|
|00001460| 66 66 65 72 2c 20 26 74 | 65 78 74 5f 65 6e 74 65 |ffer, &t|ext_ente|
|00001470| 72 65 64 2c 20 73 74 64 | 69 6e 2c 20 27 5c 30 27 |red, std|in, '\0'|
|00001480| 2c 20 46 41 4c 53 45 29 | 3b 0a 09 58 09 7d 0a 09 |, FALSE)|;..X.}..|
|00001490| 58 20 20 20 20 65 6c 73 | 65 0a 09 58 09 7b 0a 09 |X els|e..X.{..|
|000014a0| 58 09 6f 76 65 72 66 6c | 6f 77 20 3d 20 67 65 74 |X.overfl|ow = get|
|000014b0| 6c 69 6e 65 28 62 75 66 | 66 65 72 2c 20 26 74 65 |line(buf|fer, &te|
|000014c0| 78 74 5f 65 6e 74 65 72 | 65 64 2c 20 66 64 2c 20 |xt_enter|ed, fd, |
|000014d0| 27 5c 30 27 2c 20 46 41 | 4c 53 45 29 3b 0a 09 58 |'\0', FA|LSE);..X|
|000014e0| 0a 09 58 09 2f 2a 20 73 | 65 65 20 69 66 20 61 20 |..X./* s|ee if a |
|000014f0| 62 6c 61 6e 6b 20 6c 69 | 6e 65 20 69 73 20 62 65 |blank li|ne is be|
|00001500| 69 6e 67 20 72 65 61 64 | 20 69 6e 2e 20 69 66 20 |ing read| in. if |
|00001510| 73 6f 2c 20 61 64 64 20 | 31 20 73 70 20 2a 2f 0a |so, add |1 sp */.|
|00001520| 09 58 09 69 66 20 28 74 | 65 78 74 5f 65 6e 74 65 |.X.if (t|ext_ente|
|00001530| 72 65 64 20 21 3d 20 45 | 4f 46 20 26 26 20 62 75 |red != E|OF && bu|
|00001540| 66 66 65 72 5b 30 5d 20 | 3d 3d 20 27 5c 6e 27 29 |ffer[0] |== '\n')|
|00001550| 0a 09 58 09 20 20 20 20 | 7b 0a 09 58 09 20 20 20 |..X. |{..X. |
|00001560| 20 62 75 66 66 65 72 5b | 30 5d 3d 27 20 27 3b 0a | buffer[|0]=' ';.|
|00001570| 09 58 09 20 20 20 20 62 | 75 66 66 65 72 5b 31 5d |.X. b|uffer[1]|
|00001580| 3d 27 5c 6e 27 3b 0a 09 | 58 09 20 20 20 20 62 75 |='\n';..|X. bu|
|00001590| 66 66 65 72 5b 32 5d 3d | 27 5c 30 27 3b 0a 09 58 |ffer[2]=|'\0';..X|
|000015a0| 09 20 20 20 20 74 65 78 | 74 5f 65 6e 74 65 72 65 |. tex|t_entere|
|000015b0| 64 3d 54 52 55 45 3b 0a | 09 58 09 20 20 20 20 7d |d=TRUE;.|.X. }|
|000015c0| 0a 09 58 09 7d 0a 09 58 | 20 20 20 20 69 66 20 28 |..X.}..X| if (|
|000015d0| 74 65 78 74 5f 65 6e 74 | 65 72 65 64 20 26 26 20 |text_ent|ered && |
|000015e0| 74 65 78 74 5f 65 6e 74 | 65 72 65 64 20 21 3d 20 |text_ent|ered != |
|000015f0| 45 4f 46 29 0a 09 58 09 | 7b 0a 09 58 09 74 65 78 |EOF)..X.|{..X.tex|
|00001600| 74 20 3d 20 61 6c 6c 6f | 63 61 74 65 28 74 65 78 |t = allo|cate(tex|
|00001610| 74 2c 20 62 75 66 66 65 | 72 2c 20 6f 76 65 72 66 |t, buffe|r, overf|
|00001620| 6c 6f 77 2c 20 6c 6f 63 | 61 74 69 6f 6e 2c 20 2a |low, loc|ation, *|
|00001630| 63 6f 75 6e 74 29 3b 0a | 09 58 09 28 2a 63 6f 75 |count);.|.X.(*cou|
|00001640| 6e 74 29 2b 2b 3b 0a 09 | 58 09 6c 6f 63 61 74 69 |nt)++;..|X.locati|
|00001650| 6f 6e 2b 2b 3b 0a 09 58 | 09 63 68 61 72 5f 72 65 |on++;..X|.char_re|
|00001660| 61 64 5f 69 6e 20 2b 3d | 20 28 73 74 72 6c 65 6e |ad_in +=| (strlen|
|00001670| 28 62 75 66 66 65 72 29 | 29 3b 0a 09 58 09 7d 0a |(buffer)|);..X.}.|
|00001680| 09 58 20 20 20 20 65 6c | 73 65 0a 09 58 09 62 72 |.X el|se..X.br|
|00001690| 65 61 6b 3b 0a 09 58 20 | 20 20 20 7d 0a 09 58 69 |eak;..X | }..Xi|
|000016a0| 66 28 66 64 20 21 3d 20 | 73 74 64 69 6e 20 26 26 |f(fd != |stdin &&|
|000016b0| 20 21 20 6e 65 77 66 69 | 6c 65 29 0a 09 58 20 20 | ! newfi|le)..X |
|000016c0| 20 20 7b 0a 09 58 20 20 | 20 20 70 72 69 6e 74 66 | {..X | printf|
|000016d0| 28 22 25 64 20 63 68 61 | 72 61 63 74 65 72 73 20 |("%d cha|racters |
|000016e0| 72 65 61 64 20 69 6e 5c | 6e 22 2c 20 63 68 61 72 |read in\|n", char|
|000016f0| 5f 72 65 61 64 5f 69 6e | 29 3b 0a 09 58 20 20 20 |_read_in|);..X |
|00001700| 20 7d 0a 09 58 69 66 20 | 28 2a 63 6f 75 6e 74 20 | }..Xif |(*count |
|00001710| 3e 3d 20 31 29 0a 09 58 | 20 20 20 20 2d 2d 28 2a |>= 1)..X| --(*|
|00001720| 63 6f 75 6e 74 29 3b 0a | 09 58 72 65 74 75 72 6e |count);.|.Xreturn|
|00001730| 28 74 65 78 74 29 3b 0a | 09 58 7d 0a 53 48 41 52 |(text);.|.X}.SHAR|
|00001740| 5f 45 4f 46 0a 69 66 20 | 74 65 73 74 20 31 35 39 |_EOF.if |test 159|
|00001750| 33 20 2d 6e 65 20 22 60 | 77 63 20 2d 63 20 3c 20 |3 -ne "`|wc -c < |
|00001760| 27 61 64 64 6c 69 6e 65 | 73 2e 63 27 60 22 0a 74 |'addline|s.c'`".t|
|00001770| 68 65 6e 0a 09 65 63 68 | 6f 20 73 68 61 72 3a 20 |hen..ech|o shar: |
|00001780| 22 65 72 72 6f 72 20 74 | 72 61 6e 73 6d 69 74 74 |"error t|ransmitt|
|00001790| 69 6e 67 20 27 61 64 64 | 6c 69 6e 65 73 2e 63 27 |ing 'add|lines.c'|
|000017a0| 22 20 27 28 73 68 6f 75 | 6c 64 20 68 61 76 65 20 |" '(shou|ld have |
|000017b0| 62 65 65 6e 20 31 35 39 | 33 20 63 68 61 72 61 63 |been 159|3 charac|
|000017c0| 74 65 72 73 29 27 0a 66 | 69 0a 66 69 0a 65 63 68 |ters)'.f|i.fi.ech|
|000017d0| 6f 20 73 68 61 72 3a 20 | 22 65 78 74 72 61 63 74 |o shar: |"extract|
|000017e0| 69 6e 67 20 27 61 6c 6c | 6f 63 61 74 65 2e 63 27 |ing 'all|ocate.c'|
|000017f0| 22 20 27 28 31 34 34 35 | 20 63 68 61 72 61 63 74 |" '(1445| charact|
|00001800| 65 72 73 29 27 0a 69 66 | 20 74 65 73 74 20 2d 66 |ers)'.if| test -f|
|00001810| 20 27 61 6c 6c 6f 63 61 | 74 65 2e 63 27 0a 74 68 | 'alloca|te.c'.th|
|00001820| 65 6e 0a 09 65 63 68 6f | 20 73 68 61 72 3a 20 22 |en..echo| shar: "|
|00001830| 77 69 6c 6c 20 6e 6f 74 | 20 6f 76 65 72 2d 77 72 |will not| over-wr|
|00001840| 69 74 65 20 65 78 69 73 | 74 69 6e 67 20 66 69 6c |ite exis|ting fil|
|00001850| 65 20 27 61 6c 6c 6f 63 | 61 74 65 2e 63 27 22 0a |e 'alloc|ate.c'".|
|00001860| 65 6c 73 65 0a 73 65 64 | 20 27 73 2f 5e 09 58 2f |else.sed| 's/^.X/|
|00001870| 2f 27 20 3c 3c 20 5c 53 | 48 41 52 5f 45 4f 46 20 |/' << \S|HAR_EOF |
|00001880| 3e 20 27 61 6c 6c 6f 63 | 61 74 65 2e 63 27 0a 09 |> 'alloc|ate.c'..|
|00001890| 58 2f 2a 0a 09 58 20 2a | 20 43 6f 70 79 72 69 67 |X/*..X *| Copyrig|
|000018a0| 68 74 20 28 43 29 20 31 | 39 39 30 20 4a 61 79 20 |ht (C) 1|990 Jay |
|000018b0| 4b 6f 6e 69 67 73 62 65 | 72 67 20 2d 20 73 65 65 |Konigsbe|rg - see|
|000018c0| 20 4d 61 6b 65 66 69 6c | 65 20 66 6f 72 20 64 65 | Makefil|e for de|
|000018d0| 74 61 69 6c 73 0a 09 58 | 20 2a 20 54 68 69 73 20 |tails..X| * This |
|000018e0| 69 73 20 46 72 65 65 20 | 53 6f 66 74 77 61 72 65 |is Free |Software|
|000018f0| 2c 20 64 69 73 74 72 75 | 62 69 74 65 64 20 75 6e |, distru|bited un|
|00001900| 64 65 72 20 74 68 65 20 | 47 4e 55 20 53 6f 66 74 |der the |GNU Soft|
|00001910| 77 61 72 65 20 41 67 67 | 72 65 6d 65 6e 74 2e 0a |ware Agg|rement..|
|00001920| 09 58 20 2a 2f 0a 09 58 | 0a 09 58 2f 2a 0a 09 58 |.X */..X|..X/*..X|
|00001930| 20 2a 20 61 6c 6c 6f 63 | 61 74 65 20 2d 20 6d 61 | * alloc|ate - ma|
|00001940| 6b 65 73 20 72 6f 6f 6d | 20 69 6e 20 74 68 65 20 |kes room| in the |
|00001950| 74 65 78 74 20 62 75 66 | 66 65 72 20 66 6f 72 20 |text buf|fer for |
|00001960| 77 68 61 74 65 76 65 72 | 20 77 61 73 20 6a 75 73 |whatever| was jus|
|00001970| 74 20 65 6e 74 65 72 65 | 64 2e 0a 09 58 20 2a 2f |t entere|d...X */|
|00001980| 0a 09 58 23 69 6e 63 6c | 75 64 65 20 22 73 69 6d |..X#incl|ude "sim|
|00001990| 70 65 64 2e 68 22 0a 09 | 58 0a 09 58 63 68 61 72 |ped.h"..|X..Xchar|
|000019a0| 20 2a 2a 61 6c 6c 6f 63 | 61 74 65 28 74 65 78 74 | **alloc|ate(text|
|000019b0| 2c 20 62 75 66 66 65 72 | 2c 20 6f 76 65 72 66 6c |, buffer|, overfl|
|000019c0| 6f 77 2c 20 6c 6f 63 61 | 74 69 6f 6e 2c 20 63 6f |ow, loca|tion, co|
|000019d0| 75 6e 74 29 0a 09 58 63 | 68 61 72 09 2a 2a 74 65 |unt)..Xc|har.**te|
|000019e0| 78 74 3b 0a 09 58 63 68 | 61 72 09 62 75 66 66 65 |xt;..Xch|ar.buffe|
|000019f0| 72 5b 5d 3b 0a 09 58 63 | 68 61 72 09 2a 6f 76 65 |r[];..Xc|har.*ove|
|00001a00| 72 66 6c 6f 77 3b 0a 09 | 58 69 6e 74 09 6c 6f 63 |rflow;..|Xint.loc|
|00001a10| 61 74 69 6f 6e 3b 09 2f | 2a 20 77 68 65 72 65 20 |ation;./|* where |
|00001a20| 74 6f 20 61 6c 6c 6f 63 | 61 74 65 20 73 70 61 63 |to alloc|ate spac|
|00001a30| 65 20 66 6f 72 20 74 68 | 65 20 62 75 66 66 65 72 |e for th|e buffer|
|00001a40| 20 2a 2f 0a 09 58 69 6e | 74 09 63 6f 75 6e 74 3b | */..Xin|t.count;|
|00001a50| 09 09 2f 2a 20 6e 75 6d | 62 65 72 20 6f 66 20 6c |../* num|ber of l|
|00001a60| 69 6e 65 73 20 69 6e 20 | 74 68 65 20 74 65 78 74 |ines in |the text|
|00001a70| 20 61 72 65 61 20 2a 2f | 0a 09 58 7b 0a 09 58 69 | area */|..X{..Xi|
|00001a80| 6e 74 09 66 70 72 69 6e | 74 66 28 29 2c 0a 09 58 |nt.fprin|tf(),..X|
|00001a90| 09 63 6c 65 61 6e 75 70 | 28 29 3b 0a 09 58 0a 09 |.cleanup|();..X..|
|00001aa0| 58 65 78 74 65 72 6e 20 | 63 68 61 72 20 2a 6d 61 |Xextern |char *ma|
|00001ab0| 6c 6c 6f 63 28 29 2c 0a | 09 58 09 20 20 20 20 2a |lloc(),.|.X. *|
|00001ac0| 72 65 61 6c 6c 6f 63 28 | 29 3b 0a 09 58 0a 09 58 |realloc(|);..X..X|
|00001ad0| 69 6e 74 09 6c 69 6e 65 | 6c 65 6e 2c 09 2f 2a 20 |int.line|len,./* |
|00001ae0| 6c 65 6e 67 74 68 20 6f | 66 20 74 68 65 20 69 6e |length o|f the in|
|00001af0| 70 75 74 20 62 75 66 66 | 65 72 20 2a 2f 0a 09 58 |put buff|er */..X|
|00001b00| 09 74 65 78 74 69 6e 78 | 3b 09 2f 2a 20 74 65 78 |.textinx|;./* tex|
|00001b10| 74 20 69 6e 64 65 78 20 | 66 6f 72 20 69 6e 73 65 |t index |for inse|
|00001b20| 72 74 20 61 64 6a 75 73 | 74 6d 65 6e 74 20 2a 2f |rt adjus|tment */|
|00001b30| 0a 09 58 0a 09 58 69 66 | 20 28 20 21 20 28 63 6f |..X..Xif| ( ! (co|
|00001b40| 75 6e 74 20 25 20 50 54 | 52 5f 43 48 55 4e 4b 29 |unt % PT|R_CHUNK)|
|00001b50| 20 29 0a 09 58 20 20 20 | 20 7b 0a 09 58 20 20 20 | )..X | {..X |
|00001b60| 20 69 66 20 28 20 28 74 | 65 78 74 20 3d 20 28 63 | if ( (t|ext = (c|
|00001b70| 68 61 72 20 2a 2a 29 72 | 65 61 6c 6c 6f 63 28 28 |har **)r|ealloc((|
|00001b80| 63 68 61 72 20 2a 29 74 | 65 78 74 2c 20 28 75 6e |char *)t|ext, (un|
|00001b90| 73 69 67 6e 65 64 29 0a | 09 58 09 28 28 63 6f 75 |signed).|.X.((cou|
|00001ba0| 6e 74 2b 50 54 52 5f 43 | 48 55 4e 4b 29 20 2a 20 |nt+PTR_C|HUNK) * |
|00001bb0| 73 69 7a 65 6f 66 28 63 | 68 61 72 20 2a 29 29 29 |sizeof(c|har *)))|
|00001bc0| 29 20 3d 3d 20 28 63 68 | 61 72 20 2a 2a 29 30 29 |) == (ch|ar **)0)|
|00001bd0| 0a 09 58 09 7b 0a 09 58 | 09 66 70 72 69 6e 74 66 |..X.{..X|.fprintf|
|00001be0| 28 73 74 64 65 72 72 2c | 20 22 72 65 61 6c 6c 6f |(stderr,| "reallo|
|00001bf0| 63 3a 20 65 72 72 6f 72 | 3d 25 64 5c 6e 22 2c 20 |c: error|=%d\n", |
|00001c00| 65 72 72 6e 6f 29 3b 0a | 09 58 09 63 6c 65 61 6e |errno);.|.X.clean|
|00001c10| 75 70 28 32 29 3b 0a 09 | 58 09 7d 0a 09 58 20 20 |up(2);..|X.}..X |
|00001c20| 20 20 7d 0a 09 58 69 66 | 20 28 6c 6f 63 61 74 69 | }..Xif| (locati|
|00001c30| 6f 6e 20 3c 20 63 6f 75 | 6e 74 29 20 2f 2a 20 69 |on < cou|nt) /* i|
|00001c40| 6e 73 65 72 74 20 76 73 | 2e 20 61 70 70 65 6e 64 |nsert vs|. append|
|00001c50| 20 2a 2f 0a 09 58 20 20 | 20 20 7b 0a 09 58 20 20 | */..X | {..X |
|00001c60| 20 20 66 6f 72 28 74 65 | 78 74 69 6e 78 3d 63 6f | for(te|xtinx=co|
|00001c70| 75 6e 74 3b 20 74 65 78 | 74 69 6e 78 20 3e 3d 20 |unt; tex|tinx >= |
|00001c80| 6c 6f 63 61 74 69 6f 6e | 3b 20 2d 2d 74 65 78 74 |location|; --text|
|00001c90| 69 6e 78 29 0a 09 58 09 | 74 65 78 74 5b 74 65 78 |inx)..X.|text[tex|
|00001ca0| 74 69 6e 78 5d 3d 74 65 | 78 74 5b 74 65 78 74 69 |tinx]=te|xt[texti|
|00001cb0| 6e 78 2d 31 5d 3b 0a 09 | 58 20 20 20 20 7d 0a 09 |nx-1];..|X }..|
|00001cc0| 58 69 66 20 28 6f 76 65 | 72 66 6c 6f 77 29 0a 09 |Xif (ove|rflow)..|
|00001cd0| 58 20 20 20 20 7b 0a 09 | 58 20 20 20 20 6c 69 6e |X {..|X lin|
|00001ce0| 65 6c 65 6e 3d 73 74 72 | 6c 65 6e 28 62 75 66 66 |elen=str|len(buff|
|00001cf0| 65 72 29 3b 0a 09 58 20 | 20 20 20 69 66 28 28 74 |er);..X | if((t|
|00001d00| 65 78 74 5b 6c 6f 63 61 | 74 69 6f 6e 2d 31 5d 3d |ext[loca|tion-1]=|
|00001d10| 6d 61 6c 6c 6f 63 28 28 | 75 6e 73 69 67 6e 65 64 |malloc((|unsigned|
|00001d20| 29 28 6c 69 6e 65 6c 65 | 6e 2b 46 55 44 47 45 29 |)(linele|n+FUDGE)|
|00001d30| 29 29 20 3d 3d 20 4e 55 | 4c 4c 29 0a 09 58 09 7b |)) == NU|LL)..X.{|
|00001d40| 0a 09 58 09 66 70 72 69 | 6e 74 66 28 73 74 64 65 |..X.fpri|ntf(stde|
|00001d50| 72 72 2c 20 22 6d 61 6c | 6c 6f 63 3a 20 65 72 72 |rr, "mal|loc: err|
|00001d60| 6f 72 3d 25 64 5c 6e 22 | 2c 20 65 72 72 6e 6f 29 |or=%d\n"|, errno)|
|00001d70| 3b 0a 09 58 09 63 6c 65 | 61 6e 75 70 28 32 29 3b |;..X.cle|anup(2);|
|00001d80| 0a 09 58 09 7d 0a 09 58 | 20 20 20 20 74 65 78 74 |..X.}..X| text|
|00001d90| 5b 6c 6f 63 61 74 69 6f | 6e 2d 31 5d 20 3d 20 73 |[locatio|n-1] = s|
|00001da0| 74 72 63 70 79 28 74 65 | 78 74 5b 6c 6f 63 61 74 |trcpy(te|xt[locat|
|00001db0| 69 6f 6e 2d 31 5d 2c 20 | 62 75 66 66 65 72 29 3b |ion-1], |buffer);|
|00001dc0| 0a 09 58 20 20 20 20 74 | 65 78 74 5b 6c 6f 63 61 |..X t|ext[loca|
|00001dd0| 74 69 6f 6e 2d 31 5d 5b | 6c 69 6e 65 6c 65 6e 5d |tion-1][|linelen]|
|00001de0| 3d 27 5c 6e 27 3b 0a 09 | 58 20 20 20 20 74 65 78 |='\n';..|X tex|
|00001df0| 74 5b 6c 6f 63 61 74 69 | 6f 6e 2d 31 5d 5b 6c 69 |t[locati|on-1][li|
|00001e00| 6e 65 6c 65 6e 2b 31 5d | 3d 27 5c 30 27 3b 0a 09 |nelen+1]|='\0';..|
|00001e10| 58 20 20 20 20 2f 2a 20 | 74 65 78 74 5b 6c 6f 63 |X /* |text[loc|
|00001e20| 61 74 69 6f 6e 2d 31 5d | 20 3d 20 73 74 72 63 61 |ation-1]| = strca|
|00001e30| 74 28 74 65 78 74 5b 6c | 6f 63 61 74 69 6f 6e 2d |t(text[l|ocation-|
|00001e40| 31 5d 2c 20 22 5c 6e 22 | 29 3b 20 2a 2f 0a 09 58 |1], "\n"|); */..X|
|00001e50| 20 20 20 20 7d 0a 09 58 | 65 6c 73 65 0a 09 58 20 | }..X|else..X |
|00001e60| 20 20 20 7b 0a 09 58 20 | 20 20 20 74 65 78 74 5b | {..X | text[|
|00001e70| 6c 6f 63 61 74 69 6f 6e | 2d 31 5d 20 3d 20 73 74 |location|-1] = st|
|00001e80| 72 64 75 70 28 62 75 66 | 66 65 72 29 3b 0a 09 58 |rdup(buf|fer);..X|
|00001e90| 20 20 20 20 7d 0a 09 58 | 72 65 74 75 72 6e 28 74 | }..X|return(t|
|00001ea0| 65 78 74 29 3b 0a 09 58 | 7d 0a 53 48 41 52 5f 45 |ext);..X|}.SHAR_E|
|00001eb0| 4f 46 0a 69 66 20 74 65 | 73 74 20 31 34 34 35 20 |OF.if te|st 1445 |
|00001ec0| 2d 6e 65 20 22 60 77 63 | 20 2d 63 20 3c 20 27 61 |-ne "`wc| -c < 'a|
|00001ed0| 6c 6c 6f 63 61 74 65 2e | 63 27 60 22 0a 74 68 65 |llocate.|c'`".the|
|00001ee0| 6e 0a 09 65 63 68 6f 20 | 73 68 61 72 3a 20 22 65 |n..echo |shar: "e|
|00001ef0| 72 72 6f 72 20 74 72 61 | 6e 73 6d 69 74 74 69 6e |rror tra|nsmittin|
|00001f00| 67 20 27 61 6c 6c 6f 63 | 61 74 65 2e 63 27 22 20 |g 'alloc|ate.c'" |
|00001f10| 27 28 73 68 6f 75 6c 64 | 20 68 61 76 65 20 62 65 |'(should| have be|
|00001f20| 65 6e 20 31 34 34 35 20 | 63 68 61 72 61 63 74 65 |en 1445 |characte|
|00001f30| 72 73 29 27 0a 66 69 0a | 66 69 0a 65 63 68 6f 20 |rs)'.fi.|fi.echo |
|00001f40| 73 68 61 72 3a 20 22 65 | 78 74 72 61 63 74 69 6e |shar: "e|xtractin|
|00001f50| 67 20 27 63 6c 65 61 6e | 75 70 2e 63 27 22 20 27 |g 'clean|up.c'" '|
|00001f60| 28 38 31 37 20 63 68 61 | 72 61 63 74 65 72 73 29 |(817 cha|racters)|
|00001f70| 27 0a 69 66 20 74 65 73 | 74 20 2d 66 20 27 63 6c |'.if tes|t -f 'cl|
|00001f80| 65 61 6e 75 70 2e 63 27 | 0a 74 68 65 6e 0a 09 65 |eanup.c'|.then..e|
|00001f90| 63 68 6f 20 73 68 61 72 | 3a 20 22 77 69 6c 6c 20 |cho shar|: "will |
|00001fa0| 6e 6f 74 20 6f 76 65 72 | 2d 77 72 69 74 65 20 65 |not over|-write e|
|00001fb0| 78 69 73 74 69 6e 67 20 | 66 69 6c 65 20 27 63 6c |xisting |file 'cl|
|00001fc0| 65 61 6e 75 70 2e 63 27 | 22 0a 65 6c 73 65 0a 73 |eanup.c'|".else.s|
|00001fd0| 65 64 20 27 73 2f 5e 09 | 58 2f 2f 27 20 3c 3c 20 |ed 's/^.|X//' << |
|00001fe0| 5c 53 48 41 52 5f 45 4f | 46 20 3e 20 27 63 6c 65 |\SHAR_EO|F > 'cle|
|00001ff0| 61 6e 75 70 2e 63 27 0a | 09 58 2f 2a 0a 09 58 20 |anup.c'.|.X/*..X |
|00002000| 2a 20 43 6f 70 79 72 69 | 67 68 74 20 28 43 29 20 |* Copyri|ght (C) |
|00002010| 31 39 39 30 20 4a 61 79 | 20 4b 6f 6e 69 67 73 62 |1990 Jay| Konigsb|
|00002020| 65 72 67 20 2d 20 73 65 | 65 20 4d 61 6b 65 66 69 |erg - se|e Makefi|
|00002030| 6c 65 20 66 6f 72 20 64 | 65 74 61 69 6c 73 0a 09 |le for d|etails..|
|00002040| 58 20 2a 20 54 68 69 73 | 20 69 73 20 46 72 65 65 |X * This| is Free|
|00002050| 20 53 6f 66 74 77 61 72 | 65 2c 20 64 69 73 74 72 | Softwar|e, distr|
|00002060| 75 62 69 74 65 64 20 75 | 6e 64 65 72 20 74 68 65 |ubited u|nder the|
|00002070| 20 47 4e 55 20 53 6f 66 | 74 77 61 72 65 20 41 67 | GNU Sof|tware Ag|
|00002080| 67 72 65 6d 65 6e 74 2e | 0a 09 58 20 2a 2f 0a 09 |grement.|..X */..|
|00002090| 58 0a 09 58 23 69 6e 63 | 6c 75 64 65 20 22 73 69 |X..X#inc|lude "si|
|000020a0| 6d 70 65 64 2e 68 22 0a | 09 58 0a 09 58 2f 2a 20 |mped.h".|.X..X/* |
|000020b0| 47 6c 6f 62 61 6c 20 66 | 6f 72 20 69 6e 74 65 72 |Global f|or inter|
|000020c0| 72 75 70 74 20 72 6f 75 | 74 69 6e 65 3a 20 63 6c |rupt rou|tine: cl|
|000020d0| 65 61 6e 75 70 28 29 20 | 2a 2f 0a 09 58 65 78 74 |eanup() |*/..Xext|
|000020e0| 65 72 6e 09 73 74 72 75 | 63 74 09 20 20 74 65 72 |ern.stru|ct. ter|
|000020f0| 6d 69 6f 20 20 74 74 79 | 73 65 74 3b 09 2f 2a 20 |mio tty|set;./* |
|00002100| 74 65 72 6d 69 6e 61 6c | 20 73 65 74 74 69 6e 67 |terminal| setting|
|00002110| 73 20 2a 2f 0a 09 58 65 | 78 74 65 72 6e 09 75 6e |s */..Xe|xtern.un|
|00002120| 73 69 67 6e 65 64 20 20 | 73 68 6f 72 74 20 20 20 |signed |short |
|00002130| 63 5f 6c 66 6c 61 67 5f | 68 6f 6c 64 3b 09 2f 2a |c_lflag_|hold;./*|
|00002140| 20 68 6f 6c 64 20 6f 72 | 69 67 69 6e 61 6c 20 76 | hold or|iginal v|
|00002150| 61 6c 75 65 73 20 66 6f | 72 20 72 65 73 65 74 20 |alues fo|r reset |
|00002160| 2a 2f 0a 09 58 65 78 74 | 65 72 6e 09 75 6e 73 69 |*/..Xext|ern.unsi|
|00002170| 67 6e 65 64 20 20 63 68 | 61 72 20 20 20 20 56 45 |gned ch|ar VE|
|00002180| 4f 46 5f 68 6f 6c 64 3b | 09 2f 2a 20 68 6f 6c 64 |OF_hold;|./* hold|
|00002190| 20 6f 72 69 67 69 6e 61 | 6c 20 76 61 6c 75 65 20 | origina|l value |
|000021a0| 66 6f 72 20 72 65 73 65 | 74 20 2a 2f 0a 09 58 0a |for rese|t */..X.|
|000021b0| 09 58 69 6e 74 20 63 6c | 65 61 6e 75 70 28 73 69 |.Xint cl|eanup(si|
|000021c0| 67 5f 63 61 75 67 68 74 | 29 20 2f 2a 20 53 69 67 |g_caught|) /* Sig|
|000021d0| 6e 61 6c 20 74 72 61 70 | 20 66 6f 72 20 53 49 47 |nal trap| for SIG|
|000021e0| 49 4e 54 20 2a 2f 0a 09 | 58 69 6e 74 09 73 69 67 |INT */..|Xint.sig|
|000021f0| 5f 63 61 75 67 68 74 3b | 0a 09 58 7b 0a 09 58 76 |_caught;|..X{..Xv|
|00002200| 6f 69 64 09 65 78 69 74 | 28 29 3b 0a 09 58 0a 09 |oid.exit|();..X..|
|00002210| 58 69 6e 74 09 69 6f 63 | 74 6c 28 29 2c 0a 09 58 |Xint.ioc|tl(),..X|
|00002220| 09 66 70 72 69 6e 74 66 | 28 29 3b 0a 09 58 0a 09 |.fprintf|();..X..|
|00002230| 58 2f 2a 20 72 65 73 65 | 74 20 74 65 72 6d 69 6e |X/* rese|t termin|
|00002240| 61 6c 20 63 68 61 72 61 | 73 74 69 63 73 20 2a 2f |al chara|stics */|
|00002250| 0a 09 58 74 74 79 73 65 | 74 2e 63 5f 6c 66 6c 61 |..Xttyse|t.c_lfla|
|00002260| 67 20 3d 20 63 5f 6c 66 | 6c 61 67 5f 68 6f 6c 64 |g = c_lf|lag_hold|
|00002270| 3b 0a 09 58 74 74 79 73 | 65 74 2e 63 5f 63 63 5b |;..Xttys|et.c_cc[|
|00002280| 34 5d 20 3d 20 56 45 4f | 46 5f 68 6f 6c 64 3b 0a |4] = VEO|F_hold;.|
|00002290| 09 58 69 66 20 28 20 69 | 6f 63 74 6c 28 30 2c 20 |.Xif ( i|octl(0, |
|000022a0| 54 43 53 45 54 41 57 2c | 20 26 74 74 79 73 65 74 |TCSETAW,| &ttyset|
|000022b0| 29 20 3d 3d 20 2d 31 29 | 20 7b 0a 09 58 20 20 20 |) == -1)| {..X |
|000022c0| 20 66 70 72 69 6e 74 66 | 28 73 74 64 65 72 72 2c | fprintf|(stderr,|
|000022d0| 20 22 69 6f 63 74 6c 3a | 20 65 72 72 6f 72 3d 25 | "ioctl:| error=%|
|000022e0| 64 5c 6e 22 2c 20 65 72 | 72 6e 6f 29 3b 0a 09 58 |d\n", er|rno);..X|
|000022f0| 20 20 20 20 65 78 69 74 | 28 32 29 3b 0a 09 58 7d | exit|(2);..X}|
|00002300| 0a 09 58 69 66 20 28 73 | 69 67 5f 63 61 75 67 68 |..Xif (s|ig_caugh|
|00002310| 74 29 0a 09 58 20 20 20 | 20 7b 0a 09 58 20 20 20 |t)..X | {..X |
|00002320| 20 66 70 72 69 6e 74 66 | 28 73 74 64 65 72 72 2c | fprintf|(stderr,|
|00002330| 22 5c 6e 4d 65 73 73 61 | 67 65 20 61 62 6f 72 74 |"\nMessa|ge abort|
|00002340| 65 64 2e 5c 6e 22 29 3b | 0a 09 58 20 20 20 20 7d |ed.\n");|..X }|
|00002350| 0a 09 58 65 78 69 74 28 | 32 29 3b 0a 09 58 72 65 |..Xexit(|2);..Xre|
|00002360| 74 75 72 6e 28 30 29 3b | 0a 09 58 7d 0a 53 48 41 |turn(0);|..X}.SHA|
|00002370| 52 5f 45 4f 46 0a 69 66 | 20 74 65 73 74 20 38 31 |R_EOF.if| test 81|
|00002380| 37 20 2d 6e 65 20 22 60 | 77 63 20 2d 63 20 3c 20 |7 -ne "`|wc -c < |
|00002390| 27 63 6c 65 61 6e 75 70 | 2e 63 27 60 22 0a 74 68 |'cleanup|.c'`".th|
|000023a0| 65 6e 0a 09 65 63 68 6f | 20 73 68 61 72 3a 20 22 |en..echo| shar: "|
|000023b0| 65 72 72 6f 72 20 74 72 | 61 6e 73 6d 69 74 74 69 |error tr|ansmitti|
|000023c0| 6e 67 20 27 63 6c 65 61 | 6e 75 70 2e 63 27 22 20 |ng 'clea|nup.c'" |
|000023d0| 27 28 73 68 6f 75 6c 64 | 20 68 61 76 65 20 62 65 |'(should| have be|
|000023e0| 65 6e 20 38 31 37 20 63 | 68 61 72 61 63 74 65 72 |en 817 c|haracter|
|000023f0| 73 29 27 0a 66 69 0a 66 | 69 0a 65 63 68 6f 20 73 |s)'.fi.f|i.echo s|
|00002400| 68 61 72 3a 20 22 65 78 | 74 72 61 63 74 69 6e 67 |har: "ex|tracting|
|00002410| 20 27 63 6f 6d 6d 61 6e | 64 73 2e 63 27 22 20 27 | 'comman|ds.c'" '|
|00002420| 28 36 31 38 38 20 63 68 | 61 72 61 63 74 65 72 73 |(6188 ch|aracters|
|00002430| 29 27 0a 69 66 20 74 65 | 73 74 20 2d 66 20 27 63 |)'.if te|st -f 'c|
|00002440| 6f 6d 6d 61 6e 64 73 2e | 63 27 0a 74 68 65 6e 0a |ommands.|c'.then.|
|00002450| 09 65 63 68 6f 20 73 68 | 61 72 3a 20 22 77 69 6c |.echo sh|ar: "wil|
|00002460| 6c 20 6e 6f 74 20 6f 76 | 65 72 2d 77 72 69 74 65 |l not ov|er-write|
|00002470| 20 65 78 69 73 74 69 6e | 67 20 66 69 6c 65 20 27 | existin|g file '|
|00002480| 63 6f 6d 6d 61 6e 64 73 | 2e 63 27 22 0a 65 6c 73 |commands|.c'".els|
|00002490| 65 0a 73 65 64 20 27 73 | 2f 5e 09 58 2f 2f 27 20 |e.sed 's|/^.X//' |
|000024a0| 3c 3c 20 5c 53 48 41 52 | 5f 45 4f 46 20 3e 20 27 |<< \SHAR|_EOF > '|
|000024b0| 63 6f 6d 6d 61 6e 64 73 | 2e 63 27 0a 09 58 2f 2a |commands|.c'..X/*|
|000024c0| 0a 09 58 20 2a 20 43 6f | 70 79 72 69 67 68 74 20 |..X * Co|pyright |
|000024d0| 28 43 29 20 31 39 39 30 | 20 4a 61 79 20 4b 6f 6e |(C) 1990| Jay Kon|
|000024e0| 69 67 73 62 65 72 67 20 | 2d 20 73 65 65 20 4d 61 |igsberg |- see Ma|
|000024f0| 6b 65 66 69 6c 65 20 66 | 6f 72 20 64 65 74 61 69 |kefile f|or detai|
|00002500| 6c 73 0a 09 58 20 2a 20 | 54 68 69 73 20 69 73 20 |ls..X * |This is |
|00002510| 46 72 65 65 20 53 6f 66 | 74 77 61 72 65 2c 20 64 |Free Sof|tware, d|
|00002520| 69 73 74 72 75 62 69 74 | 65 64 20 75 6e 64 65 72 |istrubit|ed under|
|00002530| 20 74 68 65 20 47 4e 55 | 20 53 6f 66 74 77 61 72 | the GNU| Softwar|
|00002540| 65 20 41 67 67 72 65 6d | 65 6e 74 2e 0a 09 58 20 |e Aggrem|ent...X |
|00002550| 2a 2f 0a 09 58 0a 09 58 | 23 69 6e 63 6c 75 64 65 |*/..X..X|#include|
|00002560| 20 22 73 69 6d 70 65 64 | 2e 68 22 0a 09 58 0a 09 | "simped|.h"..X..|
|00002570| 58 76 6f 69 64 20 63 6f | 6d 6d 61 6e 64 73 28 65 |Xvoid co|mmands(e|
|00002580| 64 69 74 66 69 6c 65 2c | 20 6e 65 77 66 69 6c 65 |ditfile,| newfile|
|00002590| 2c 20 66 64 29 0a 09 58 | 63 68 61 72 20 2a 65 64 |, fd)..X|char *ed|
|000025a0| 69 74 66 69 6c 65 3b 09 | 09 2f 2a 20 74 68 65 20 |itfile;.|./* the |
|000025b0| 6e 61 6d 65 20 6f 66 20 | 74 68 65 20 66 69 6c 65 |name of |the file|
|000025c0| 20 62 65 69 6e 67 20 65 | 64 69 74 65 64 2c 20 4e | being e|dited, N|
|000025d0| 55 4c 4c 0a 09 58 09 09 | 09 20 2a 20 69 66 20 6e |ULL..X..|. * if n|
|000025e0| 6f 20 66 69 6c 65 20 6e | 61 6d 65 20 77 61 73 20 |o file n|ame was |
|000025f0| 73 70 65 63 69 66 69 65 | 64 2e 20 41 73 6c 6f 2c |specifie|d. Aslo,|
|00002600| 0a 09 58 09 09 09 20 2a | 20 27 6e 65 77 66 69 6c |..X... *| 'newfil|
|00002610| 65 27 20 77 69 6c 6c 20 | 62 65 20 54 52 55 45 0a |e' will |be TRUE.|
|00002620| 09 58 09 09 09 20 2a 2f | 0a 09 58 69 6e 74 20 20 |.X... */|..Xint |
|00002630| 2a 6e 65 77 66 69 6c 65 | 3b 09 09 2f 2a 20 62 6f |*newfile|;../* bo|
|00002640| 6f 6c 65 61 6e 20 54 52 | 55 45 20 69 66 20 61 20 |olean TR|UE if a |
|00002650| 66 69 6c 65 20 69 73 20 | 63 72 65 61 74 65 64 2c |file is |created,|
|00002660| 20 46 41 4c 53 45 0a 09 | 58 09 09 09 20 2a 20 69 | FALSE..|X... * i|
|00002670| 66 20 74 68 65 20 66 69 | 6c 65 20 77 61 73 20 72 |f the fi|le was r|
|00002680| 65 61 64 20 69 6e 2e 0a | 09 58 09 09 09 20 2a 2f |ead in..|.X... */|
|00002690| 0a 09 58 46 49 4c 45 20 | 2a 66 64 3b 0a 09 58 7b |..XFILE |*fd;..X{|
|000026a0| 0a 09 58 65 78 74 65 72 | 6e 20 63 68 61 72 20 2a |..Xexter|n char *|
|000026b0| 6d 61 6c 6c 6f 63 28 29 | 3b 0a 09 58 0a 09 58 69 |malloc()|;..X..Xi|
|000026c0| 6e 74 09 70 72 69 6e 74 | 66 28 29 2c 0a 09 58 09 |nt.print|f(),..X.|
|000026d0| 66 70 72 69 6e 74 66 28 | 29 2c 0a 09 58 09 66 66 |fprintf(|),..X.ff|
|000026e0| 6c 75 73 68 28 29 2c 0a | 09 58 09 67 65 74 6c 69 |lush(),.|.X.getli|
|000026f0| 6e 65 6e 75 6d 28 29 2c | 0a 09 58 09 66 70 75 74 |nenum(),|..X.fput|
|00002700| 73 28 29 2c 0a 09 58 09 | 70 75 74 73 28 29 2c 0a |s(),..X.|puts(),.|
|00002710| 09 58 09 63 6c 65 61 6e | 75 70 28 29 3b 0a 09 58 |.X.clean|up();..X|
|00002720| 0a 09 58 63 68 61 72 20 | 09 2a 2a 61 64 64 6c 69 |..Xchar |.**addli|
|00002730| 6e 65 73 28 29 2c 09 09 | 2f 2a 20 61 64 64 20 6c |nes(),..|/* add l|
|00002740| 69 6e 65 73 20 74 6f 20 | 74 68 65 20 74 65 78 74 |ines to |the text|
|00002750| 20 61 72 65 61 20 2a 2f | 0a 09 58 09 2a 2a 65 64 | area */|..X.**ed|
|00002760| 69 74 6c 69 6e 65 28 29 | 2c 09 09 2f 2a 20 65 64 |itline()|,../* ed|
|00002770| 69 74 20 61 20 6c 69 6e | 65 20 28 73 75 62 73 75 |it a lin|e (subsu|
|00002780| 74 69 74 65 29 20 63 6f | 6d 6d 61 6e 64 20 2a 2f |tite) co|mmand */|
|00002790| 0a 09 58 09 2a 2a 64 65 | 6c 65 74 65 6c 69 6e 65 |..X.**de|leteline|
|000027a0| 28 29 2c 09 09 2f 2a 20 | 64 65 6c 65 74 65 20 61 |(),../* |delete a|
|000027b0| 20 6c 69 6e 65 20 69 6e | 20 74 68 65 20 74 65 78 | line in| the tex|
|000027c0| 74 20 62 75 66 66 65 72 | 20 2a 2f 0a 09 58 09 2a |t buffer| */..X.*|
|000027d0| 2a 6d 6f 64 69 66 79 28 | 29 3b 09 09 2f 2a 20 6d |*modify(|);../* m|
|000027e0| 6f 64 69 66 79 20 61 20 | 6c 69 6e 65 20 6f 66 20 |odify a |line of |
|000027f0| 74 65 78 74 20 2a 2f 0a | 09 58 0a 09 58 76 6f 69 |text */.|.X..Xvoi|
|00002800| 64 09 6c 69 73 74 74 65 | 78 74 28 29 2c 0a 09 58 |d.listte|xt(),..X|
|00002810| 09 73 61 76 65 66 69 6c | 65 28 29 2c 0a 09 58 09 |.savefil|e(),..X.|
|00002820| 68 65 6c 70 28 29 3b 0a | 09 58 0a 09 58 63 68 61 |help();.|.X..Xcha|
|00002830| 72 09 2a 2a 74 65 78 74 | 2c 09 09 09 2f 2a 20 74 |r.**text|,.../* t|
|00002840| 65 78 74 20 65 6e 74 65 | 72 65 64 20 69 6e 20 74 |ext ente|red in t|
|00002850| 68 65 20 65 64 69 74 6f | 72 20 2a 2f 0a 09 58 09 |he edito|r */..X.|
|00002860| 2a 6f 76 65 72 66 6c 6f | 77 3d 4e 55 4c 4c 2c 09 |*overflo|w=NULL,.|
|00002870| 09 2f 2a 20 70 6f 69 6e | 74 65 72 20 66 6f 72 20 |./* poin|ter for |
|00002880| 61 75 74 6f 77 72 61 70 | 20 2a 2f 0a 09 58 09 2a |autowrap| */..X.*|
|00002890| 64 65 6c 69 6d 69 74 65 | 72 3d 4e 55 4c 4c 2c 09 |delimite|r=NULL,.|
|000028a0| 2f 2a 20 70 61 73 73 65 | 64 20 62 61 63 6b 20 66 |/* passe|d back f|
|000028b0| 72 6f 6d 20 67 65 74 6c | 69 6e 65 6e 75 6d 20 66 |rom getl|inenum f|
|000028c0| 6f 72 20 65 64 69 74 20 | 2a 2f 0a 09 58 09 69 6e |or edit |*/..X.in|
|000028d0| 70 63 68 61 72 3b 09 09 | 2f 2a 20 63 6f 6d 6d 61 |pchar;..|/* comma|
|000028e0| 6e 64 20 69 6e 70 75 74 | 20 63 68 61 72 61 63 74 |nd input| charact|
|000028f0| 65 72 20 2a 2f 0a 09 58 | 0a 09 58 69 6e 74 09 63 |er */..X|..Xint.c|
|00002900| 6f 75 6e 74 3d 30 2c 09 | 09 2f 2a 20 6c 69 6e 65 |ount=0,.|./* line|
|00002910| 20 63 6f 75 6e 74 20 2a | 2f 0a 09 58 09 73 74 61 | count *|/..X.sta|
|00002920| 72 74 6c 69 73 74 2c 09 | 09 2f 2a 20 6c 69 6e 65 |rtlist,.|./* line|
|00002930| 20 6e 75 6d 62 65 72 20 | 74 6f 20 73 74 61 72 74 | number |to start|
|00002940| 20 61 20 6c 69 73 74 69 | 6e 67 20 2a 2f 0a 09 58 | a listi|ng */..X|
|00002950| 09 61 62 6f 72 74 3d 31 | 2c 09 09 2f 2a 20 63 6f |.abort=1|,../* co|
|00002960| 6d 6d 61 6e 64 20 61 62 | 6f 72 74 65 64 20 2d 20 |mmand ab|orted - |
|00002970| 64 6f 6e 27 74 20 70 72 | 69 6e 74 20 6d 65 6e 75 |don't pr|int menu|
|00002980| 20 2a 2f 0a 09 58 09 6c | 69 6e 65 6e 75 6d 3d 30 | */..X.l|inenum=0|
|00002990| 2c 09 09 2f 2a 20 6c 69 | 6e 65 20 6e 75 6d 62 65 |,../* li|ne numbe|
|000029a0| 72 20 66 6f 72 20 69 6e | 73 65 72 74 20 2a 2f 0a |r for in|sert */.|
|000029b0| 09 58 09 76 61 6c 69 64 | 5f 63 6f 6d 6d 61 6e 64 |.X.valid|_command|
|000029c0| 3d 46 41 4c 53 45 3b 09 | 2f 2a 20 62 6f 6f 6c 65 |=FALSE;.|/* boole|
|000029d0| 61 6e 20 66 6f 72 20 63 | 6f 6d 6d 61 6e 64 20 6c |an for c|ommand l|
|000029e0| 6f 6f 70 20 2a 2f 0a 09 | 58 0a 09 58 2f 2a 0a 09 |oop */..|X..X/*..|
|000029f0| 58 69 6e 69 74 69 6c 69 | 7a 65 20 74 68 65 20 74 |Xinitili|ze the t|
|00002a00| 65 78 74 20 62 75 66 66 | 65 72 20 61 72 65 61 0a |ext buff|er area.|
|00002a10| 09 58 2a 2f 0a 09 58 69 | 66 20 28 20 28 74 65 78 |.X*/..Xi|f ( (tex|
|00002a20| 74 20 3d 20 28 63 68 61 | 72 20 2a 2a 29 6d 61 6c |t = (cha|r **)mal|
|00002a30| 6c 6f 63 28 50 54 52 5f | 43 48 55 4e 4b 20 2a 20 |loc(PTR_|CHUNK * |
|00002a40| 73 69 7a 65 6f 66 28 63 | 68 61 72 20 2a 29 2b 31 |sizeof(c|har *)+1|
|00002a50| 29 29 20 3d 3d 20 28 63 | 68 61 72 20 2a 2a 29 30 |)) == (c|har **)0|
|00002a60| 20 29 0a 09 58 20 20 20 | 20 7b 0a 09 58 20 20 20 | )..X | {..X |
|00002a70| 20 66 70 72 69 6e 74 66 | 28 73 74 64 65 72 72 2c | fprintf|(stderr,|
|00002a80| 20 22 6d 61 6c 6c 6f 63 | 3a 20 65 72 72 6f 72 3d | "malloc|: error=|
|00002a90| 25 64 5c 6e 22 2c 20 65 | 72 72 6e 6f 29 3b 0a 09 |%d\n", e|rrno);..|
|00002aa0| 58 20 20 20 20 63 6c 65 | 61 6e 75 70 28 32 29 3b |X cle|anup(2);|
|00002ab0| 0a 09 58 20 20 20 20 7d | 0a 09 58 0a 09 58 2f 2a |..X }|..X..X/*|
|00002ac0| 0a 09 58 20 2a 20 43 6f | 70 79 72 69 67 68 74 0a |..X * Co|pyright.|
|00002ad0| 09 58 20 2a 2f 0a 09 58 | 70 75 74 73 28 22 5c 6e |.X */..X|puts("\n|
|00002ae0| 53 69 6d 70 65 64 20 76 | 65 72 73 69 6f 6e 20 31 |Simped v|ersion 1|
|00002af0| 2c 20 43 6f 70 79 72 69 | 67 68 74 20 28 43 29 20 |, Copyri|ght (C) |
|00002b00| 31 39 39 30 20 2d 20 4a | 61 79 20 4b 6f 6e 69 67 |1990 - J|ay Konig|
|00002b10| 73 62 65 72 67 5c 6e 22 | 29 3b 0a 09 58 0a 09 58 |sberg\n"|);..X..X|
|00002b20| 69 66 20 28 66 64 20 21 | 3d 20 73 74 64 69 6e 29 |if (fd !|= stdin)|
|00002b30| 0a 09 58 20 20 20 20 7b | 0a 09 58 20 20 20 20 70 |..X {|..X p|
|00002b40| 72 69 6e 74 66 28 22 25 | 73 3a 20 22 2c 20 65 64 |rintf("%|s: ", ed|
|00002b50| 69 74 66 69 6c 65 29 3b | 0a 09 58 20 20 20 20 7d |itfile);|..X }|
|00002b60| 0a 09 58 69 66 20 28 2a | 6e 65 77 66 69 6c 65 29 |..Xif (*|newfile)|
|00002b70| 0a 09 58 20 20 20 20 7b | 0a 09 58 20 20 20 20 70 |..X {|..X p|
|00002b80| 75 74 73 28 22 4e 65 77 | 20 66 69 6c 65 2e 5c 6e |uts("New| file.\n|
|00002b90| 22 29 3b 0a 09 58 20 20 | 20 20 70 75 74 73 28 22 |");..X | puts("|
|00002ba0| 50 6c 65 61 73 65 20 65 | 6e 74 65 72 20 79 6f 75 |Please e|nter you|
|00002bb0| 72 20 74 65 78 74 20 6e | 6f 77 2e 20 54 68 65 20 |r text n|ow. The |
|00002bc0| 74 65 78 74 20 77 69 6c | 6c 20 61 75 74 6f 6d 61 |text wil|l automa|
|00002bd0| 74 69 63 61 6c 6c 79 20 | 77 72 61 70 22 29 3b 0a |tically |wrap");.|
|00002be0| 09 58 20 20 20 20 70 75 | 74 73 28 22 61 72 6f 75 |.X pu|ts("arou|
|00002bf0| 6e 64 20 74 6f 20 74 68 | 65 20 6e 65 78 74 20 6c |nd to th|e next l|
|00002c00| 69 6e 65 20 77 68 65 6e | 20 61 20 6c 69 6e 65 20 |ine when| a line |
|00002c10| 69 73 20 66 75 6c 6c 2e | 20 45 6e 74 65 72 20 61 |is full.| Enter a|
|00002c20| 20 43 61 72 72 69 61 67 | 65 22 29 3b 0a 09 58 20 | Carriag|e");..X |
|00002c30| 20 20 20 70 75 74 73 28 | 22 52 65 74 75 72 6e 20 | puts(|"Return |
|00002c40| 6f 6e 20 61 20 6e 65 77 | 20 6c 69 6e 65 20 74 6f |on a new| line to|
|00002c50| 20 65 6e 64 2e 5c 6e 22 | 29 3b 0a 09 58 20 20 20 | end.\n"|);..X |
|00002c60| 20 7d 0a 09 58 74 65 78 | 74 20 3d 20 61 64 64 6c | }..Xtex|t = addl|
|00002c70| 69 6e 65 73 28 74 65 78 | 74 2c 20 6f 76 65 72 66 |ines(tex|t, overf|
|00002c80| 6c 6f 77 2c 20 26 63 6f | 75 6e 74 2c 20 31 2c 20 |low, &co|unt, 1, |
|00002c90| 66 64 2c 20 2a 6e 65 77 | 66 69 6c 65 29 3b 0a 09 |fd, *new|file);..|
|00002ca0| 58 0a 09 58 69 66 20 28 | 66 64 20 21 3d 20 73 74 |X..Xif (|fd != st|
|00002cb0| 64 69 6e 20 26 26 20 21 | 20 2a 6e 65 77 66 69 6c |din && !| *newfil|
|00002cc0| 65 29 0a 09 58 20 20 20 | 20 7b 0a 09 58 20 20 20 |e)..X | {..X |
|00002cd0| 20 69 66 20 28 63 6f 75 | 6e 74 20 3e 3d 20 50 41 | if (cou|nt >= PA|
|00002ce0| 55 53 45 29 0a 09 58 09 | 7b 0a 09 58 09 73 74 61 |USE)..X.|{..X.sta|
|00002cf0| 72 74 6c 69 73 74 20 3d | 20 63 6f 75 6e 74 20 2d |rtlist =| count -|
|00002d00| 20 50 41 55 53 45 20 2b | 20 31 3b 0a 09 58 09 70 | PAUSE +| 1;..X.p|
|00002d10| 72 69 6e 74 66 28 22 5c | 6e 54 68 65 20 6c 61 73 |rintf("\|nThe las|
|00002d20| 74 20 25 64 20 6c 69 6e | 65 73 20 72 65 61 64 20 |t %d lin|es read |
|00002d30| 69 6e 3a 5c 6e 22 2c 20 | 50 41 55 53 45 29 3b 0a |in:\n", |PAUSE);.|
|00002d40| 09 58 09 7d 0a 09 58 20 | 20 20 20 65 6c 73 65 0a |.X.}..X | else.|
|00002d50| 09 58 09 7b 0a 09 58 09 | 73 74 61 72 74 6c 69 73 |.X.{..X.|startlis|
|00002d60| 74 20 3d 20 31 3b 0a 09 | 58 09 7d 0a 09 58 20 20 |t = 1;..|X.}..X |
|00002d70| 20 20 6c 69 73 74 74 65 | 78 74 28 74 65 78 74 2c | listte|xt(text,|
|00002d80| 20 63 6f 75 6e 74 2c 20 | 73 74 61 72 74 6c 69 73 | count, |startlis|
|00002d90| 74 29 3b 0a 09 58 20 20 | 20 20 7d 0a 09 58 0a 09 |t);..X | }..X..|
|00002da0| 58 77 68 69 6c 65 20 28 | 21 20 76 61 6c 69 64 5f |Xwhile (|! valid_|
|00002db0| 63 6f 6d 6d 61 6e 64 29 | 0a 09 58 20 20 20 20 7b |command)|..X {|
|00002dc0| 0a 09 58 20 20 20 20 2f | 2a 0a 09 58 20 20 20 20 |..X /|*..X |
|00002dd0| 20 2a 20 61 62 6f 72 74 | 20 77 69 6c 6c 20 62 65 | * abort| will be|
|00002de0| 20 30 20 77 68 65 6e 20 | 72 65 74 75 72 6e 69 6e | 0 when |returnin|
|00002df0| 67 20 66 72 6f 6d 20 61 | 20 66 75 6e 63 74 69 6f |g from a| functio|
|00002e00| 6e 20 76 69 61 20 61 20 | 62 73 2c 0a 09 58 20 20 |n via a |bs,..X |
|00002e10| 20 20 20 2a 20 74 68 75 | 73 20 74 68 65 20 73 74 | * thu|s the st|
|00002e20| 72 61 6e 67 65 20 6c 6f | 6f 6b 69 6e 67 20 74 65 |range lo|oking te|
|00002e30| 73 74 2e 0a 09 58 20 20 | 20 20 20 2a 2f 0a 09 58 |st...X | */..X|
|00002e40| 20 20 20 20 69 66 20 28 | 61 62 6f 72 74 29 0a 09 | if (|abort)..|
|00002e50| 58 09 7b 0a 09 58 20 20 | 20 70 75 74 73 28 22 5c |X.{..X | puts("\|
|00002e60| 6e 4f 70 74 69 6f 6e 73 | 3a 20 53 29 61 76 65 20 |nOptions|: S)ave |
|00002e70| 61 6e 64 20 71 75 69 74 | 2c 20 41 29 62 6f 72 74 |and quit|, A)bort|
|00002e80| 2f 63 61 6e 63 65 6c 2c | 20 4c 29 69 73 74 20 6d |/cancel,| L)ist m|
|00002e90| 65 73 73 61 67 65 2c 20 | 45 29 64 69 74 20 6c 69 |essage, |E)dit li|
|00002ea0| 6e 65 2c 22 29 3b 0a 09 | 58 20 20 20 70 75 74 73 |ne,");..|X puts|
|00002eb0| 28 22 20 20 20 20 20 20 | 20 20 20 49 29 6e 73 65 |(" | I)nse|
|00002ec0| 72 74 20 6c 69 6e 65 2c | 20 44 29 65 6c 65 74 65 |rt line,| D)elete|
|00002ed0| 20 6c 69 6e 65 2c 20 43 | 29 6f 6e 74 69 6e 75 65 | line, C|)ontinue|
|00002ee0| 2c 20 4d 29 6f 64 69 66 | 79 2c 20 48 29 65 6c 70 |, M)odif|y, H)elp|
|00002ef0| 5c 6e 22 29 3b 0a 09 58 | 20 20 20 66 70 75 74 73 |\n");..X| fputs|
|00002f00| 28 22 43 6f 6d 6d 61 6e | 64 3f 20 22 2c 20 73 74 |("Comman|d? ", st|
|00002f10| 64 6f 75 74 29 3b 0a 09 | 58 09 7d 0a 09 58 0a 09 |dout);..|X.}..X..|
|00002f20| 58 20 20 20 20 61 62 6f | 72 74 3d 31 3b 0a 09 58 |X abo|rt=1;..X|
|00002f30| 20 20 20 20 66 66 6c 75 | 73 68 28 73 74 64 6f 75 | fflu|sh(stdou|
|00002f40| 74 29 3b 0a 09 58 20 20 | 20 20 76 61 6c 69 64 5f |t);..X | valid_|
|00002f50| 63 6f 6d 6d 61 6e 64 3d | 46 41 4c 53 45 3b 0a 09 |command=|FALSE;..|
|00002f60| 58 20 20 20 20 69 6e 70 | 63 68 61 72 20 3d 20 67 |X inp|char = g|
|00002f70| 65 74 63 68 61 72 28 29 | 3b 0a 09 58 20 20 20 20 |etchar()|;..X |
|00002f80| 70 75 74 63 68 61 72 28 | 69 6e 70 63 68 61 72 29 |putchar(|inpchar)|
|00002f90| 3b 0a 09 58 20 20 20 20 | 66 66 6c 75 73 68 28 73 |;..X |fflush(s|
|00002fa0| 74 64 6f 75 74 29 3b 0a | 09 58 0a 09 58 20 20 20 |tdout);.|.X..X |
|00002fb0| 20 73 77 69 74 63 68 20 | 28 69 6e 70 63 68 61 72 | switch |(inpchar|
|00002fc0| 29 0a 09 58 09 7b 0a 09 | 58 09 63 61 73 65 20 27 |)..X.{..|X.case '|
|00002fd0| 53 27 3a 20 2f 2a 20 73 | 61 76 65 20 74 68 65 20 |S': /* s|ave the |
|00002fe0| 66 69 6c 65 20 61 6e 64 | 20 71 75 69 74 20 2a 2f |file and| quit */|
|00002ff0| 0a 09 58 09 63 61 73 65 | 20 27 73 27 3a 0a 09 58 |..X.case| 's':..X|
|00003000| 09 20 20 20 20 66 6f 72 | 20 28 3b 3b 29 0a 09 58 |. for| (;;)..X|
|00003010| 09 09 7b 0a 09 58 09 09 | 69 66 20 28 20 28 69 6e |..{..X..|if ( (in|
|00003020| 70 63 68 61 72 3d 67 65 | 74 63 68 61 72 28 29 29 |pchar=ge|tchar())|
|00003030| 20 3d 3d 20 27 5c 62 27 | 20 29 0a 09 58 09 09 20 | == '\b'| )..X.. |
|00003040| 20 20 20 7b 0a 09 58 09 | 09 20 20 20 20 70 75 74 | {..X.|. put|
|00003050| 63 68 61 72 28 69 6e 70 | 63 68 61 72 29 3b 0a 09 |char(inp|char);..|
|00003060| 58 09 09 20 20 20 20 70 | 75 74 63 68 61 72 28 27 |X.. p|utchar('|
|00003070| 20 27 29 3b 0a 09 58 09 | 09 20 20 20 20 70 75 74 | ');..X.|. put|
|00003080| 63 68 61 72 28 69 6e 70 | 63 68 61 72 29 3b 0a 09 |char(inp|char);..|
|00003090| 58 09 09 20 20 20 20 61 | 62 6f 72 74 3d 30 3b 0a |X.. a|bort=0;.|
|000030a0| 09 58 09 09 20 20 20 20 | 62 72 65 61 6b 3b 0a 09 |.X.. |break;..|
|000030b0| 58 09 09 20 20 20 20 7d | 0a 09 58 09 09 65 6c 73 |X.. }|..X..els|
|000030c0| 65 20 69 66 20 28 20 69 | 6e 70 63 68 61 72 20 3d |e if ( i|npchar =|
|000030d0| 3d 20 27 5c 6e 27 20 29 | 0a 09 58 09 09 20 20 20 |= '\n' )|..X.. |
|000030e0| 20 7b 0a 09 58 09 09 20 | 20 20 20 73 61 76 65 66 | {..X.. | savef|
|000030f0| 69 6c 65 28 65 64 69 74 | 66 69 6c 65 2c 20 6e 65 |ile(edit|file, ne|
|00003100| 77 66 69 6c 65 2c 20 66 | 64 2c 20 74 65 78 74 2c |wfile, f|d, text,|
|00003110| 20 63 6f 75 6e 74 29 3b | 0a 09 58 09 09 20 20 20 | count);|..X.. |
|00003120| 20 62 72 65 61 6b 3b 0a | 09 58 09 09 20 20 20 20 | break;.|.X.. |
|00003130| 7d 0a 09 58 09 09 65 6c | 73 65 0a 09 58 09 09 20 |}..X..el|se..X.. |
|00003140| 20 20 20 70 75 74 63 68 | 61 72 28 42 45 4c 4c 29 | putch|ar(BELL)|
|00003150| 3b 0a 09 58 09 09 7d 0a | 09 58 09 20 20 20 20 62 |;..X..}.|.X. b|
|00003160| 72 65 61 6b 3b 0a 09 58 | 09 63 61 73 65 20 27 41 |reak;..X|.case 'A|
|00003170| 27 3a 20 2f 2a 20 61 62 | 6f 72 74 20 65 64 69 74 |': /* ab|ort edit|
|00003180| 69 6e 67 20 73 65 73 73 | 69 6f 6e 20 2a 2f 0a 09 |ing sess|ion */..|
|00003190| 58 09 63 61 73 65 20 27 | 61 27 3a 0a 09 58 09 20 |X.case '|a':..X. |
|000031a0| 20 20 20 66 6f 72 20 28 | 3b 3b 29 0a 09 58 09 09 | for (|;;)..X..|
|000031b0| 7b 0a 09 58 09 09 69 66 | 20 28 20 28 69 6e 70 63 |{..X..if| ( (inpc|
|000031c0| 68 61 72 3d 67 65 74 63 | 68 61 72 28 29 29 20 3d |har=getc|har()) =|
|000031d0| 3d 20 27 5c 62 27 20 29 | 0a 09 58 09 09 20 20 20 |= '\b' )|..X.. |
|000031e0| 20 7b 0a 09 58 09 09 20 | 20 20 20 70 75 74 63 68 | {..X.. | putch|
|000031f0| 61 72 28 69 6e 70 63 68 | 61 72 29 3b 0a 09 58 09 |ar(inpch|ar);..X.|
|00003200| 09 20 20 20 20 70 75 74 | 63 68 61 72 28 27 20 27 |. put|char(' '|
|00003210| 29 3b 0a 09 58 09 09 20 | 20 20 20 70 75 74 63 68 |);..X.. | putch|
|00003220| 61 72 28 69 6e 70 63 68 | 61 72 29 3b 0a 09 58 09 |ar(inpch|ar);..X.|
|00003230| 09 20 20 20 20 61 62 6f | 72 74 3d 30 3b 0a 09 58 |. abo|rt=0;..X|
|00003240| 09 09 20 20 20 20 62 72 | 65 61 6b 3b 0a 09 58 09 |.. br|eak;..X.|
|00003250| 09 20 20 20 20 7d 0a 09 | 58 09 09 65 6c 73 65 20 |. }..|X..else |
|00003260| 69 66 20 28 20 69 6e 70 | 63 68 61 72 20 3d 3d 20 |if ( inp|char == |
|00003270| 27 5c 6e 27 20 29 0a 09 | 58 09 09 20 20 20 20 7b |'\n' )..|X.. {|
|00003280| 0a 09 58 09 09 20 20 20 | 20 66 70 75 74 73 28 22 |..X.. | fputs("|
|00003290| 5c 6e 51 75 69 74 20 77 | 69 74 68 6f 75 74 20 73 |\nQuit w|ithout s|
|000032a0| 61 76 69 6e 67 20 28 72 | 65 74 75 72 6e 3d 6e 2f |aving (r|eturn=n/|
|000032b0| 59 29 3f 20 22 2c 20 73 | 74 64 6f 75 74 29 3b 0a |Y)? ", s|tdout);.|
|000032c0| 09 58 09 09 20 20 20 20 | 69 66 20 28 20 28 69 6e |.X.. |if ( (in|
|000032d0| 70 63 68 61 72 3d 67 65 | 74 63 68 61 72 28 29 29 |pchar=ge|tchar())|
|000032e0| 20 3d 3d 20 27 59 27 20 | 29 0a 09 58 09 09 09 7b | == 'Y' |)..X...{|
|000032f0| 0a 09 58 09 09 09 70 75 | 74 63 68 61 72 28 69 6e |..X...pu|tchar(in|
|00003300| 70 63 68 61 72 29 3b 0a | 09 58 09 09 09 66 66 6c |pchar);.|.X...ffl|
|00003310| 75 73 68 28 73 74 64 6f | 75 74 29 3b 0a 09 58 09 |ush(stdo|ut);..X.|
|00003320| 09 09 63 6c 65 61 6e 75 | 70 28 32 29 3b 0a 09 58 |..cleanu|p(2);..X|
|00003330| 09 09 09 62 72 65 61 6b | 3b 0a 09 58 09 09 09 7d |...break|;..X...}|
|00003340| 0a 09 58 09 09 20 20 20 | 20 65 6c 73 65 0a 09 58 |..X.. | else..X|
|00003350| 09 09 09 7b 0a 09 58 09 | 09 09 70 75 74 63 68 61 |...{..X.|..putcha|
|00003360| 72 28 69 6e 70 63 68 61 | 72 29 3b 0a 09 58 09 09 |r(inpcha|r);..X..|
|00003370| 09 66 66 6c 75 73 68 28 | 73 74 64 6f 75 74 29 3b |.fflush(|stdout);|
|00003380| 0a 09 58 09 09 09 70 75 | 74 73 28 22 22 29 3b 0a |..X...pu|ts("");.|
|00003390| 09 58 09 09 09 62 72 65 | 61 6b 3b 0a 09 58 09 09 |.X...bre|ak;..X..|
|000033a0| 09 7d 0a 09 58 09 09 20 | 20 20 20 7d 0a 09 58 09 |.}..X.. | }..X.|
|000033b0| 09 7d 0a 09 58 09 20 20 | 20 20 62 72 65 61 6b 3b |.}..X. | break;|
|000033c0| 0a 09 58 09 63 61 73 65 | 20 27 51 27 3a 20 2f 2a |..X.case| 'Q': /*|
|000033d0| 20 62 65 63 61 75 73 65 | 20 71 20 74 6f 20 71 75 | because| q to qu|
|000033e0| 69 74 20 69 73 20 73 6f | 20 63 6f 6d 6d 6f 6e 20 |it is so| common |
|000033f0| 2a 2f 0a 09 58 09 63 61 | 73 65 20 27 71 27 3a 0a |*/..X.ca|se 'q':.|
|00003400| 09 58 09 20 20 20 20 63 | 6c 65 61 6e 75 70 28 32 |.X. c|leanup(2|
|00003410| 29 3b 0a 09 58 09 20 20 | 20 20 62 72 65 61 6b 3b |);..X. | break;|
|00003420| 0a 09 58 09 63 61 73 65 | 20 27 4c 27 3a 20 2f 2a |..X.case| 'L': /*|
|00003430| 20 6c 69 73 74 20 74 68 | 65 20 66 69 6c 65 20 2a | list th|e file *|
|00003440| 2f 0a 09 58 09 63 61 73 | 65 20 27 6c 27 3a 0a 09 |/..X.cas|e 'l':..|
|00003450| 58 09 20 20 20 20 69 66 | 20 28 20 28 6c 69 6e 65 |X. if| ( (line|
|00003460| 6e 75 6d 3d 67 65 74 6c | 69 6e 65 6e 75 6d 28 63 |num=getl|inenum(c|
|00003470| 6f 75 6e 74 2c 20 22 63 | 72 3d 31 22 2c 20 22 22 |ount, "c|r=1", ""|
|00003480| 29 29 20 21 3d 20 2d 31 | 20 29 0a 09 58 09 09 7b |)) != -1| )..X..{|
|00003490| 0a 09 58 09 09 69 66 20 | 28 20 6c 69 6e 65 6e 75 |..X..if |( linenu|
|000034a0| 6d 20 21 3d 20 30 20 29 | 0a 09 58 09 09 20 20 20 |m != 0 )|..X.. |
|000034b0| 20 7b 0a 09 58 09 09 20 | 20 20 20 70 75 74 73 28 | {..X.. | puts(|
|000034c0| 22 22 29 3b 0a 09 58 09 | 09 20 20 20 20 6c 69 73 |"");..X.|. lis|
|000034d0| 74 74 65 78 74 28 74 65 | 78 74 2c 20 63 6f 75 6e |ttext(te|xt, coun|
|000034e0| 74 2c 20 6c 69 6e 65 6e | 75 6d 29 3b 0a 09 58 09 |t, linen|um);..X.|
|000034f0| 09 20 20 20 20 7d 0a 09 | 58 09 09 65 6c 73 65 0a |. }..|X..else.|
|00003500| 09 58 09 09 20 20 20 20 | 61 62 6f 72 74 3d 30 3b |.X.. |abort=0;|
|00003510| 0a 09 58 09 09 7d 0a 09 | 58 09 20 20 20 20 62 72 |..X..}..|X. br|
|00003520| 65 61 6b 3b 0a 09 58 09 | 63 61 73 65 20 27 45 27 |eak;..X.|case 'E'|
|00003530| 3a 20 2f 2a 20 65 64 69 | 74 20 61 20 6c 69 6e 65 |: /* edi|t a line|
|00003540| 20 2d 20 73 75 64 73 75 | 74 69 74 65 20 63 6f 6d | - sudsu|tite com|
|00003550| 6d 61 6e 64 20 2a 2f 0a | 09 58 09 63 61 73 65 20 |mand */.|.X.case |
|00003560| 27 65 27 3a 0a 09 58 09 | 20 20 20 20 2f 2a 20 69 |'e':..X.| /* i|
|00003570| 66 20 28 64 65 6c 69 6d | 69 74 65 72 29 0a 09 58 |f (delim|iter)..X|
|00003580| 09 09 69 66 20 28 2a 64 | 65 6c 69 6d 69 74 65 72 |..if (*d|elimiter|
|00003590| 29 0a 09 58 09 09 20 20 | 20 20 2a 64 65 6c 69 6d |)..X.. | *delim|
|000035a0| 69 74 65 72 3d 27 5c 30 | 27 3b 0a 09 58 09 20 20 |iter='\0|';..X. |
|000035b0| 20 20 2a 2f 0a 09 58 09 | 20 20 20 20 69 66 20 28 | */..X.| if (|
|000035c0| 64 65 6c 69 6d 69 74 65 | 72 29 0a 09 58 09 09 7b |delimite|r)..X..{|
|000035d0| 0a 09 58 09 09 66 72 65 | 65 28 64 65 6c 69 6d 69 |..X..fre|e(delimi|
|000035e0| 74 65 72 29 3b 0a 09 58 | 09 09 7d 0a 09 58 09 20 |ter);..X|..}..X. |
|000035f0| 20 20 20 65 6c 73 65 0a | 09 58 09 09 7b 0a 09 58 | else.|.X..{..X|
|00003600| 09 09 6d 61 6c 6c 6f 63 | 28 64 65 6c 69 6d 69 74 |..malloc|(delimit|
|00003610| 65 72 2c 20 32 29 3b 0a | 09 58 09 09 2a 64 65 6c |er, 2);.|.X..*del|
|00003620| 69 6d 69 74 65 72 3d 27 | 5c 30 27 3b 0a 09 58 09 |imiter='|\0';..X.|
|00003630| 09 7d 0a 09 58 0a 09 58 | 09 20 20 20 20 69 66 20 |.}..X..X|. if |
|00003640| 28 20 28 6c 69 6e 65 6e | 75 6d 3d 67 65 74 6c 69 |( (linen|um=getli|
|00003650| 6e 65 6e 75 6d 28 63 6f | 75 6e 74 2c 20 22 2f 3f |nenum(co|unt, "/?|
|00003660| 3d 63 72 22 2c 20 64 65 | 6c 69 6d 69 74 65 72 29 |=cr", de|limiter)|
|00003670| 29 20 21 3d 20 2d 31 20 | 29 0a 09 58 09 09 7b 0a |) != -1 |)..X..{.|
|00003680| 09 58 09 09 69 66 20 28 | 20 6c 69 6e 65 6e 75 6d |.X..if (| linenum|
|00003690| 20 21 3d 20 30 20 29 0a | 09 58 09 09 20 20 20 20 | != 0 ).|.X.. |
|000036a0| 7b 0a 09 58 09 09 20 20 | 20 20 69 66 20 28 20 21 |{..X.. | if ( !|
|000036b0| 20 2a 64 65 6c 69 6d 69 | 74 65 72 20 29 0a 09 58 | *delimi|ter )..X|
|000036c0| 09 09 09 70 75 74 73 28 | 22 22 29 3b 0a 09 58 09 |...puts(|"");..X.|
|000036d0| 09 20 20 20 20 74 65 78 | 74 20 3d 20 65 64 69 74 |. tex|t = edit|
|000036e0| 6c 69 6e 65 28 74 65 78 | 74 2c 20 6c 69 6e 65 6e |line(tex|t, linen|
|000036f0| 75 6d 2c 20 2a 64 65 6c | 69 6d 69 74 65 72 29 3b |um, *del|imiter);|
|00003700| 0a 09 58 09 09 20 20 20 | 20 7d 0a 09 58 09 09 65 |..X.. | }..X..e|
|00003710| 6c 73 65 0a 09 58 09 09 | 20 20 20 20 61 62 6f 72 |lse..X..| abor|
|00003720| 74 3d 30 3b 0a 09 58 09 | 09 7d 0a 09 58 09 20 20 |t=0;..X.|.}..X. |
|00003730| 20 20 62 72 65 61 6b 3b | 0a 09 58 09 63 61 73 65 | break;|..X.case|
|00003740| 20 27 49 27 3a 20 2f 2a | 20 69 6e 73 65 72 74 20 | 'I': /*| insert |
|00003750| 61 20 6c 69 6e 65 20 2a | 2f 0a 09 58 09 63 61 73 |a line *|/..X.cas|
|00003760| 65 20 27 69 27 3a 0a 09 | 58 09 20 20 20 20 69 66 |e 'i':..|X. if|
|00003770| 20 28 20 28 6c 69 6e 65 | 6e 75 6d 3d 67 65 74 6c | ( (line|num=getl|
|00003780| 69 6e 65 6e 75 6d 28 63 | 6f 75 6e 74 2c 20 22 22 |inenum(c|ount, ""|
|00003790| 2c 20 22 22 29 29 20 21 | 3d 20 2d 31 29 0a 09 58 |, "")) !|= -1)..X|
|000037a0| 09 09 7b 0a 09 58 09 09 | 69 66 20 28 20 6c 69 6e |..{..X..|if ( lin|
|000037b0| 65 6e 75 6d 20 21 3d 20 | 30 20 29 0a 09 58 09 09 |enum != |0 )..X..|
|000037c0| 20 20 20 20 7b 0a 09 58 | 09 09 20 20 20 20 70 75 | {..X|.. pu|
|000037d0| 74 73 28 22 22 29 3b 0a | 09 58 09 09 20 20 20 20 |ts("");.|.X.. |
|000037e0| 74 65 78 74 3d 61 64 64 | 6c 69 6e 65 73 28 74 65 |text=add|lines(te|
|000037f0| 78 74 2c 6f 76 65 72 66 | 6c 6f 77 2c 26 63 6f 75 |xt,overf|low,&cou|
|00003800| 6e 74 2c 6c 69 6e 65 6e | 75 6d 2c 73 74 64 69 6e |nt,linen|um,stdin|
|00003810| 2c 46 41 4c 53 45 29 3b | 0a 09 58 09 09 20 20 20 |,FALSE);|..X.. |
|00003820| 20 7d 0a 09 58 09 09 65 | 6c 73 65 0a 09 58 09 09 | }..X..e|lse..X..|
|00003830| 20 20 20 20 61 62 6f 72 | 74 3d 30 3b 0a 09 58 09 | abor|t=0;..X.|
|00003840| 09 7d 0a 09 58 09 20 20 | 20 20 62 72 65 61 6b 3b |.}..X. | break;|
|00003850| 0a 09 58 09 63 61 73 65 | 20 27 44 27 3a 20 2f 2a |..X.case| 'D': /*|
|00003860| 20 64 65 6c 65 74 65 20 | 61 20 6c 69 6e 65 20 2a | delete |a line *|
|00003870| 2f 0a 09 58 09 63 61 73 | 65 20 27 64 27 3a 0a 09 |/..X.cas|e 'd':..|
|00003880| 58 09 20 20 20 20 69 66 | 20 28 20 28 6c 69 6e 65 |X. if| ( (line|
|00003890| 6e 75 6d 3d 67 65 74 6c | 69 6e 65 6e 75 6d 28 63 |num=getl|inenum(c|
|000038a0| 6f 75 6e 74 2c 20 22 22 | 2c 20 22 22 29 29 20 21 |ount, ""|, "")) !|
|000038b0| 3d 20 2d 31 29 0a 09 58 | 09 09 7b 0a 09 58 09 09 |= -1)..X|..{..X..|
|000038c0| 69 66 20 28 6c 69 6e 65 | 6e 75 6d 20 21 3d 20 30 |if (line|num != 0|
|000038d0| 29 0a 09 58 09 09 20 20 | 20 20 7b 0a 09 58 09 09 |)..X.. | {..X..|
|000038e0| 20 20 20 20 70 75 74 73 | 28 22 22 29 3b 0a 09 58 | puts|("");..X|
|000038f0| 09 09 20 20 20 20 74 65 | 78 74 3d 64 65 6c 65 74 |.. te|xt=delet|
|00003900| 65 6c 69 6e 65 28 74 65 | 78 74 2c 20 26 63 6f 75 |eline(te|xt, &cou|
|00003910| 6e 74 2c 20 6c 69 6e 65 | 6e 75 6d 29 3b 0a 09 58 |nt, line|num);..X|
|00003920| 09 09 20 20 20 20 7d 0a | 09 58 09 09 65 6c 73 65 |.. }.|.X..else|
|00003930| 0a 09 58 09 09 20 20 20 | 20 61 62 6f 72 74 3d 30 |..X.. | abort=0|
|00003940| 3b 0a 09 58 09 09 7d 0a | 09 58 09 20 20 20 20 62 |;..X..}.|.X. b|
|00003950| 72 65 61 6b 3b 0a 09 58 | 09 63 61 73 65 20 27 43 |reak;..X|.case 'C|
|00003960| 27 3a 20 2f 2a 20 63 6f | 6e 74 69 6e 75 65 20 65 |': /* co|ntinue e|
|00003970| 64 69 74 69 6e 67 20 61 | 74 20 45 4f 46 20 2a 2f |diting a|t EOF */|
|00003980| 0a 09 58 09 63 61 73 65 | 20 27 63 27 3a 0a 09 58 |..X.case| 'c':..X|
|00003990| 09 20 20 20 20 66 6f 72 | 20 28 3b 3b 29 0a 09 58 |. for| (;;)..X|
|000039a0| 09 09 7b 0a 09 58 09 09 | 69 66 20 28 20 28 69 6e |..{..X..|if ( (in|
|000039b0| 70 63 68 61 72 3d 67 65 | 74 63 68 61 72 28 29 29 |pchar=ge|tchar())|
|000039c0| 20 3d 3d 20 27 5c 62 27 | 20 29 0a 09 58 09 09 7b | == '\b'| )..X..{|
|000039d0| 0a 09 58 09 09 20 20 20 | 20 70 75 74 63 68 61 72 |..X.. | putchar|
|000039e0| 28 69 6e 70 63 68 61 72 | 29 3b 0a 09 58 09 09 20 |(inpchar|);..X.. |
|000039f0| 20 20 20 70 75 74 63 68 | 61 72 28 27 20 27 29 3b | putch|ar(' ');|
|00003a00| 0a 09 58 09 09 20 20 20 | 20 70 75 74 63 68 61 72 |..X.. | putchar|
|00003a10| 28 69 6e 70 63 68 61 72 | 29 3b 0a 09 58 09 09 20 |(inpchar|);..X.. |
|00003a20| 20 20 20 61 62 6f 72 74 | 3d 30 3b 0a 09 58 09 09 | abort|=0;..X..|
|00003a30| 20 20 20 20 62 72 65 61 | 6b 3b 0a 09 58 09 09 7d | brea|k;..X..}|
|00003a40| 0a 09 58 09 09 65 6c 73 | 65 20 69 66 20 28 20 69 |..X..els|e if ( i|
|00003a50| 6e 70 63 68 61 72 20 3d | 3d 20 27 5c 6e 27 20 29 |npchar =|= '\n' )|
|00003a60| 0a 09 58 09 09 20 20 20 | 20 7b 0a 09 58 09 09 20 |..X.. | {..X.. |
|00003a70| 20 20 20 70 75 74 73 28 | 22 22 29 3b 0a 09 58 09 | puts(|"");..X.|
|00003a80| 09 20 20 20 20 74 65 78 | 74 3d 61 64 64 6c 69 6e |. tex|t=addlin|
|00003a90| 65 73 28 74 65 78 74 2c | 6f 76 65 72 66 6c 6f 77 |es(text,|overflow|
|00003aa0| 2c 26 63 6f 75 6e 74 2c | 63 6f 75 6e 74 2b 31 2c |,&count,|count+1,|
|00003ab0| 73 74 64 69 6e 2c 46 41 | 4c 53 45 29 3b 0a 09 58 |stdin,FA|LSE);..X|
|00003ac0| 09 09 20 20 20 20 62 72 | 65 61 6b 3b 0a 09 58 09 |.. br|eak;..X.|
|00003ad0| 09 20 20 20 20 7d 0a 09 | 58 09 09 65 6c 73 65 0a |. }..|X..else.|
|00003ae0| 09 58 09 09 20 20 20 20 | 70 75 74 63 68 61 72 28 |.X.. |putchar(|
|00003af0| 42 45 4c 4c 29 3b 0a 09 | 58 09 09 7d 0a 09 58 09 |BELL);..|X..}..X.|
|00003b00| 20 20 20 20 62 72 65 61 | 6b 3b 0a 09 58 09 63 61 | brea|k;..X.ca|
|00003b10| 73 65 20 27 4d 27 3a 20 | 2f 2a 20 6d 6f 64 69 66 |se 'M': |/* modif|
|00003b20| 79 20 2d 20 6d 75 6c 74 | 69 20 75 73 65 20 6c 69 |y - mult|i use li|
|00003b30| 6e 65 20 65 64 69 74 69 | 6e 67 20 2a 2f 0a 09 58 |ne editi|ng */..X|
|00003b40| 09 63 61 73 65 20 27 6d | 27 3a 0a 09 58 09 20 20 |.case 'm|':..X. |
|00003b50| 20 20 69 66 20 28 20 28 | 6c 69 6e 65 6e 75 6d 3d | if ( (|linenum=|
|00003b60| 67 65 74 6c 69 6e 65 6e | 75 6d 28 63 6f 75 6e 74 |getlinen|um(count|
|00003b70| 2c 20 22 22 2c 20 22 22 | 29 29 20 21 3d 20 2d 31 |, "", ""|)) != -1|
|00003b80| 20 29 0a 09 58 09 09 7b | 0a 09 58 09 09 69 66 20 | )..X..{|..X..if |
|00003b90| 28 20 6c 69 6e 65 6e 75 | 6d 20 21 3d 20 30 20 29 |( linenu|m != 0 )|
|00003ba0| 0a 09 58 09 09 20 20 20 | 20 7b 0a 09 58 09 09 20 |..X.. | {..X.. |
|00003bb0| 20 20 20 70 75 74 73 28 | 22 22 29 3b 0a 09 58 09 | puts(|"");..X.|
|00003bc0| 09 20 20 20 20 74 65 78 | 74 3d 6d 6f 64 69 66 79 |. tex|t=modify|
|00003bd0| 28 74 65 78 74 2c 20 6c | 69 6e 65 6e 75 6d 29 3b |(text, l|inenum);|
|00003be0| 0a 09 58 09 09 20 20 20 | 20 7d 0a 09 58 09 09 65 |..X.. | }..X..e|
|00003bf0| 6c 73 65 0a 09 58 09 09 | 20 20 20 20 61 62 6f 72 |lse..X..| abor|
|00003c00| 74 3d 30 3b 0a 09 58 09 | 09 7d 0a 09 58 09 20 20 |t=0;..X.|.}..X. |
|00003c10| 20 20 62 72 65 61 6b 3b | 0a 09 58 09 63 61 73 65 | break;|..X.case|
|00003c20| 20 27 5c 62 27 3a 0a 09 | 58 09 20 20 20 20 70 75 | '\b':..|X. pu|
|00003c30| 74 63 68 61 72 28 27 20 | 27 29 3b 0a 09 58 09 20 |tchar(' |');..X. |
|00003c40| 20 20 20 70 75 74 63 68 | 61 72 28 42 45 4c 4c 29 | putch|ar(BELL)|
|00003c50| 3b 0a 09 58 09 20 20 20 | 20 66 66 6c 75 73 68 28 |;..X. | fflush(|
|00003c60| 73 74 64 6f 75 74 29 3b | 0a 09 58 09 20 20 20 20 |stdout);|..X. |
|00003c70| 61 62 6f 72 74 3d 30 3b | 20 2f 2a 20 64 6f 20 6e |abort=0;| /* do n|
|00003c80| 6f 74 20 70 72 69 6e 74 | 20 6d 65 6e 75 20 61 67 |ot print| menu ag|
|00003c90| 61 69 6e 20 2a 2f 0a 09 | 58 09 20 20 20 20 62 72 |ain */..|X. br|
|00003ca0| 65 61 6b 3b 0a 09 58 09 | 63 61 73 65 20 27 5c 6e |eak;..X.|case '\n|
|00003cb0| 27 3a 0a 09 58 09 20 20 | 20 20 66 70 75 74 73 28 |':..X. | fputs(|
|00003cc0| 22 43 6f 6d 6d 61 6e 64 | 3f 20 22 2c 20 73 74 64 |"Command|? ", std|
|00003cd0| 6f 75 74 29 3b 0a 09 58 | 09 20 20 20 20 61 62 6f |out);..X|. abo|
|00003ce0| 72 74 3d 30 3b 20 2f 2a | 20 64 6f 20 6e 6f 74 20 |rt=0; /*| do not |
|00003cf0| 70 72 69 6e 74 20 6d 65 | 6e 75 20 61 67 61 69 6e |print me|nu again|
|00003d00| 20 2a 2f 0a 09 58 09 20 | 20 20 20 62 72 65 61 6b | */..X. | break|
|00003d10| 3b 0a 09 58 09 63 61 73 | 65 20 27 48 27 3a 0a 09 |;..X.cas|e 'H':..|
|00003d20| 58 09 63 61 73 65 20 27 | 68 27 3a 0a 09 58 09 20 |X.case '|h':..X. |
|00003d30| 20 20 20 66 6f 72 20 28 | 3b 3b 29 0a 09 58 09 09 | for (|;;)..X..|
|00003d40| 7b 0a 09 58 09 09 69 66 | 20 28 20 28 69 6e 70 63 |{..X..if| ( (inpc|
|00003d50| 68 61 72 3d 67 65 74 63 | 68 61 72 28 29 29 20 3d |har=getc|har()) =|
|00003d60| 3d 20 27 5c 62 27 20 29 | 0a 09 58 09 09 20 20 20 |= '\b' )|..X.. |
|00003d70| 20 7b 0a 09 58 09 09 20 | 20 20 20 70 75 74 63 68 | {..X.. | putch|
|00003d80| 61 72 28 69 6e 70 63 68 | 61 72 29 3b 0a 09 58 09 |ar(inpch|ar);..X.|
|00003d90| 09 20 20 20 20 70 75 74 | 63 68 61 72 28 27 20 27 |. put|char(' '|
|00003da0| 29 3b 0a 09 58 09 09 20 | 20 20 20 70 75 74 63 68 |);..X.. | putch|
|00003db0| 61 72 28 69 6e 70 63 68 | 61 72 29 3b 0a 09 58 09 |ar(inpch|ar);..X.|
|00003dc0| 09 20 20 20 20 61 62 6f | 72 74 3d 30 3b 0a 09 58 |. abo|rt=0;..X|
|00003dd0| 09 09 20 20 20 20 62 72 | 65 61 6b 3b 0a 09 58 09 |.. br|eak;..X.|
|00003de0| 09 20 20 20 20 7d 0a 09 | 58 09 09 65 6c 73 65 20 |. }..|X..else |
|00003df0| 69 66 20 28 20 69 6e 70 | 63 68 61 72 20 3d 3d 20 |if ( inp|char == |
|00003e00| 27 5c 6e 27 20 29 0a 09 | 58 09 09 20 20 20 20 7b |'\n' )..|X.. {|
|00003e10| 0a 09 58 09 09 20 20 20 | 20 68 65 6c 70 28 29 3b |..X.. | help();|
|00003e20| 0a 09 58 09 09 20 20 20 | 20 62 72 65 61 6b 3b 0a |..X.. | break;.|
|00003e30| 09 58 09 09 20 20 20 20 | 7d 0a 09 58 09 09 65 6c |.X.. |}..X..el|
|00003e40| 73 65 0a 09 58 09 09 20 | 20 20 20 70 75 74 63 68 |se..X.. | putch|
|00003e50| 61 72 28 42 45 4c 4c 29 | 3b 0a 09 58 09 09 7d 0a |ar(BELL)|;..X..}.|
|00003e60| 09 58 09 20 20 20 20 62 | 72 65 61 6b 3b 0a 09 58 |.X. b|reak;..X|
|00003e70| 09 63 61 73 65 20 27 6a | 27 3a 0a 09 58 09 20 20 |.case 'j|':..X. |
|00003e80| 20 20 70 75 74 73 28 22 | 5c 6e 5c 6e 41 75 74 68 | puts("|\n\nAuth|
|00003e90| 6f 72 3a 20 4a 61 79 20 | 4b 6f 6e 69 67 73 62 65 |or: Jay |Konigsbe|
|00003ea0| 72 67 5c 6e 22 29 3b 0a | 09 58 09 20 20 20 20 70 |rg\n");.|.X. p|
|00003eb0| 75 74 73 28 22 44 61 74 | 65 20 20 3a 20 4a 75 6e |uts("Dat|e : Jun|
|00003ec0| 65 20 31 39 39 30 5c 6e | 22 29 3b 0a 09 58 09 20 |e 1990\n|");..X. |
|00003ed0| 20 20 20 70 75 74 73 28 | 22 75 75 63 70 20 20 3a | puts(|"uucp :|
|00003ee0| 20 6a 61 6b 40 73 61 63 | 74 6f 68 30 5c 6e 22 29 | jak@sac|toh0\n")|
|00003ef0| 3b 0a 09 58 09 20 20 20 | 20 62 72 65 61 6b 3b 0a |;..X. | break;.|
|00003f00| 09 58 09 64 65 66 61 75 | 6c 74 20 3a 0a 09 58 09 |.X.defau|lt :..X.|
|00003f10| 20 20 20 20 70 72 69 6e | 74 66 28 22 25 63 3a 20 | prin|tf("%c: |
|00003f20| 6e 6f 74 20 61 20 76 61 | 6c 69 64 20 63 6f 6d 6d |not a va|lid comm|
|00003f30| 61 6e 64 2e 5c 6e 22 2c | 20 69 6e 70 63 68 61 72 |and.\n",| inpchar|
|00003f40| 29 3b 0a 09 58 09 7d 0a | 09 58 20 20 20 20 7d 0a |);..X.}.|.X }.|
|00003f50| 09 58 7d 0a 53 48 41 52 | 5f 45 4f 46 0a 69 66 20 |.X}.SHAR|_EOF.if |
|00003f60| 74 65 73 74 20 36 31 38 | 38 20 2d 6e 65 20 22 60 |test 618|8 -ne "`|
|00003f70| 77 63 20 2d 63 20 3c 20 | 27 63 6f 6d 6d 61 6e 64 |wc -c < |'command|
|00003f80| 73 2e 63 27 60 22 0a 74 | 68 65 6e 0a 09 65 63 68 |s.c'`".t|hen..ech|
|00003f90| 6f 20 73 68 61 72 3a 20 | 22 65 72 72 6f 72 20 74 |o shar: |"error t|
|00003fa0| 72 61 6e 73 6d 69 74 74 | 69 6e 67 20 27 63 6f 6d |ransmitt|ing 'com|
|00003fb0| 6d 61 6e 64 73 2e 63 27 | 22 20 27 28 73 68 6f 75 |mands.c'|" '(shou|
|00003fc0| 6c 64 20 68 61 76 65 20 | 62 65 65 6e 20 36 31 38 |ld have |been 618|
|00003fd0| 38 20 63 68 61 72 61 63 | 74 65 72 73 29 27 0a 66 |8 charac|ters)'.f|
|00003fe0| 69 0a 66 69 0a 65 63 68 | 6f 20 73 68 61 72 3a 20 |i.fi.ech|o shar: |
|00003ff0| 22 65 78 74 72 61 63 74 | 69 6e 67 20 27 64 65 6c |"extract|ing 'del|
|00004000| 65 74 65 6c 69 6e 65 2e | 63 27 22 20 27 28 38 37 |eteline.|c'" '(87|
|00004010| 38 20 63 68 61 72 61 63 | 74 65 72 73 29 27 0a 69 |8 charac|ters)'.i|
|00004020| 66 20 74 65 73 74 20 2d | 66 20 27 64 65 6c 65 74 |f test -|f 'delet|
|00004030| 65 6c 69 6e 65 2e 63 27 | 0a 74 68 65 6e 0a 09 65 |eline.c'|.then..e|
|00004040| 63 68 6f 20 73 68 61 72 | 3a 20 22 77 69 6c 6c 20 |cho shar|: "will |
|00004050| 6e 6f 74 20 6f 76 65 72 | 2d 77 72 69 74 65 20 65 |not over|-write e|
|00004060| 78 69 73 74 69 6e 67 20 | 66 69 6c 65 20 27 64 65 |xisting |file 'de|
|00004070| 6c 65 74 65 6c 69 6e 65 | 2e 63 27 22 0a 65 6c 73 |leteline|.c'".els|
|00004080| 65 0a 73 65 64 20 27 73 | 2f 5e 09 58 2f 2f 27 20 |e.sed 's|/^.X//' |
|00004090| 3c 3c 20 5c 53 48 41 52 | 5f 45 4f 46 20 3e 20 27 |<< \SHAR|_EOF > '|
|000040a0| 64 65 6c 65 74 65 6c 69 | 6e 65 2e 63 27 0a 09 58 |deleteli|ne.c'..X|
|000040b0| 2f 2a 0a 09 58 20 2a 20 | 43 6f 70 79 72 69 67 68 |/*..X * |Copyrigh|
|000040c0| 74 20 28 43 29 20 31 39 | 39 30 20 4a 61 79 20 4b |t (C) 19|90 Jay K|
|000040d0| 6f 6e 69 67 73 62 65 72 | 67 20 2d 20 73 65 65 20 |onigsber|g - see |
|000040e0| 4d 61 6b 65 66 69 6c 65 | 20 66 6f 72 20 64 65 74 |Makefile| for det|
|000040f0| 61 69 6c 73 0a 09 58 20 | 2a 20 54 68 69 73 20 69 |ails..X |* This i|
|00004100| 73 20 46 72 65 65 20 53 | 6f 66 74 77 61 72 65 2c |s Free S|oftware,|
|00004110| 20 64 69 73 74 72 75 62 | 69 74 65 64 20 75 6e 64 | distrub|ited und|
|00004120| 65 72 20 74 68 65 20 47 | 4e 55 20 53 6f 66 74 77 |er the G|NU Softw|
|00004130| 61 72 65 20 41 67 67 72 | 65 6d 65 6e 74 2e 0a 09 |are Aggr|ement...|
|00004140| 58 20 2a 2f 0a 09 58 0a | 09 58 23 69 6e 63 6c 75 |X */..X.|.X#inclu|
|00004150| 64 65 20 22 73 69 6d 70 | 65 64 2e 68 22 0a 09 58 |de "simp|ed.h"..X|
|00004160| 0a 09 58 63 68 61 72 20 | 2a 2a 64 65 6c 65 74 65 |..Xchar |**delete|
|00004170| 6c 69 6e 65 28 74 65 78 | 74 2c 20 63 6f 75 6e 74 |line(tex|t, count|
|00004180| 2c 20 64 65 6c 6c 69 6e | 65 29 0a 09 58 63 68 61 |, dellin|e)..Xcha|
|00004190| 72 20 2a 2a 74 65 78 74 | 3b 0a 09 58 69 6e 74 20 |r **text|;..Xint |
|000041a0| 20 2a 63 6f 75 6e 74 3b | 0a 09 58 69 6e 74 20 20 | *count;|..Xint |
|000041b0| 64 65 6c 6c 69 6e 65 3b | 09 09 2f 2a 20 72 65 74 |delline;|../* ret|
|000041c0| 75 72 6e 73 20 74 68 65 | 20 6c 69 6e 65 20 6e 75 |urns the| line nu|
|000041d0| 6d 62 65 72 20 64 65 6c | 65 74 65 64 20 6f 72 20 |mber del|eted or |
|000041e0| 30 20 2a 2f 0a 09 58 7b | 0a 09 58 69 6e 74 09 70 |0 */..X{|..Xint.p|
|000041f0| 72 69 6e 74 66 28 29 2c | 0a 09 58 09 66 66 6c 75 |rintf(),|..X.fflu|
|00004200| 73 68 28 29 2c 0a 09 58 | 09 70 75 74 73 28 29 2c |sh(),..X|.puts(),|
|00004210| 0a 09 58 09 66 70 75 74 | 73 28 29 3b 0a 09 58 0a |..X.fput|s();..X.|
|00004220| 09 58 76 6f 69 64 09 66 | 72 65 65 28 29 3b 0a 09 |.Xvoid.f|ree();..|
|00004230| 58 0a 09 58 69 6e 74 09 | 69 6e 70 63 68 61 72 3d |X..Xint.|inpchar=|
|00004240| 30 2c 0a 09 58 09 6c 6f | 6f 70 3b 0a 09 58 0a 09 |0,..X.lo|op;..X..|
|00004250| 58 69 66 28 64 65 6c 6c | 69 6e 65 20 3e 20 30 29 |Xif(dell|ine > 0)|
|00004260| 0a 09 58 20 20 20 20 7b | 0a 09 58 20 20 20 20 70 |..X {|..X p|
|00004270| 72 69 6e 74 66 28 22 5c | 6e 25 33 64 3e 20 22 2c |rintf("\|n%3d> ",|
|00004280| 64 65 6c 6c 69 6e 65 29 | 3b 0a 09 58 20 20 20 20 |delline)|;..X |
|00004290| 66 70 75 74 73 28 74 65 | 78 74 5b 64 65 6c 6c 69 |fputs(te|xt[delli|
|000042a0| 6e 65 2d 31 5d 2c 20 73 | 74 64 6f 75 74 29 3b 0a |ne-1], s|tdout);.|
|000042b0| 09 58 20 20 20 20 66 70 | 75 74 73 28 22 44 65 6c |.X fp|uts("Del|
|000042c0| 65 74 65 20 74 68 69 73 | 20 6c 69 6e 65 20 28 52 |ete this| line (R|
|000042d0| 65 74 75 72 6e 3d 6e 2f | 79 29 3a 20 22 2c 20 73 |eturn=n/|y): ", s|
|000042e0| 74 64 6f 75 74 29 3b 0a | 09 58 20 20 20 20 66 66 |tdout);.|.X ff|
|000042f0| 6c 75 73 68 28 73 74 64 | 6f 75 74 29 3b 0a 09 58 |lush(std|out);..X|
|00004300| 20 20 20 20 69 6e 70 63 | 68 61 72 3d 67 65 74 63 | inpc|har=getc|
|00004310| 68 61 72 28 29 3b 0a 09 | 58 20 20 20 20 70 75 74 |har();..|X put|
|00004320| 63 68 61 72 28 69 6e 70 | 63 68 61 72 29 3b 0a 09 |char(inp|char);..|
|00004330| 58 20 20 20 20 7d 0a 09 | 58 0a 09 58 69 66 20 28 |X }..|X..Xif (|
|00004340| 69 6e 70 63 68 61 72 20 | 3d 3d 20 27 79 27 20 7c |inpchar |== 'y' ||
|00004350| 7c 20 69 6e 70 63 68 61 | 72 20 3d 3d 20 27 59 27 || inpcha|r == 'Y'|
|00004360| 29 0a 09 58 20 20 20 20 | 7b 0a 09 58 20 20 20 20 |)..X |{..X |
|00004370| 66 72 65 65 28 74 65 78 | 74 5b 64 65 6c 6c 69 6e |free(tex|t[dellin|
|00004380| 65 2d 31 5d 29 3b 0a 09 | 58 20 20 20 20 66 6f 72 |e-1]);..|X for|
|00004390| 28 6c 6f 6f 70 3d 64 65 | 6c 6c 69 6e 65 2d 31 3b |(loop=de|lline-1;|
|000043a0| 20 6c 6f 6f 70 20 3c 20 | 2a 63 6f 75 6e 74 2d 31 | loop < |*count-1|
|000043b0| 3b 20 2b 2b 6c 6f 6f 70 | 29 0a 09 58 09 7b 0a 09 |; ++loop|)..X.{..|
|000043c0| 58 09 74 65 78 74 5b 6c | 6f 6f 70 5d 20 3d 20 74 |X.text[l|oop] = t|
|000043d0| 65 78 74 5b 6c 6f 6f 70 | 2b 31 5d 3b 0a 09 58 09 |ext[loop|+1];..X.|
|000043e0| 7d 0a 09 58 20 20 20 20 | 74 65 78 74 5b 6c 6f 6f |}..X |text[loo|
|000043f0| 70 5d 3d 4e 55 4c 4c 3b | 0a 09 58 20 20 20 20 2d |p]=NULL;|..X -|
|00004400| 2d 2a 63 6f 75 6e 74 3b | 0a 09 58 20 20 20 20 70 |-*count;|..X p|
|00004410| 75 74 73 28 22 5c 6e 4c | 69 6e 65 20 64 65 6c 65 |uts("\nL|ine dele|
|00004420| 74 65 64 2e 22 29 3b 0a | 09 58 20 20 20 20 7d 0a |ted.");.|.X }.|
|00004430| 09 58 65 6c 73 65 0a 09 | 58 20 20 20 20 7b 0a 09 |.Xelse..|X {..|
|00004440| 58 20 20 20 20 70 75 74 | 73 28 22 5c 6e 4c 69 6e |X put|s("\nLin|
|00004450| 65 20 4e 4f 54 20 64 65 | 6c 65 74 65 64 2e 22 29 |e NOT de|leted.")|
|00004460| 3b 0a 09 58 20 20 20 20 | 7d 0a 09 58 72 65 74 75 |;..X |}..Xretu|
|00004470| 72 6e 28 74 65 78 74 29 | 3b 0a 09 58 7d 0a 53 48 |rn(text)|;..X}.SH|
|00004480| 41 52 5f 45 4f 46 0a 69 | 66 20 74 65 73 74 20 38 |AR_EOF.i|f test 8|
|00004490| 37 38 20 2d 6e 65 20 22 | 60 77 63 20 2d 63 20 3c |78 -ne "|`wc -c <|
|000044a0| 20 27 64 65 6c 65 74 65 | 6c 69 6e 65 2e 63 27 60 | 'delete|line.c'`|
|000044b0| 22 0a 74 68 65 6e 0a 09 | 65 63 68 6f 20 73 68 61 |".then..|echo sha|
|000044c0| 72 3a 20 22 65 72 72 6f | 72 20 74 72 61 6e 73 6d |r: "erro|r transm|
|000044d0| 69 74 74 69 6e 67 20 27 | 64 65 6c 65 74 65 6c 69 |itting '|deleteli|
|000044e0| 6e 65 2e 63 27 22 20 27 | 28 73 68 6f 75 6c 64 20 |ne.c'" '|(should |
|000044f0| 68 61 76 65 20 62 65 65 | 6e 20 38 37 38 20 63 68 |have bee|n 878 ch|
|00004500| 61 72 61 63 74 65 72 73 | 29 27 0a 66 69 0a 66 69 |aracters|)'.fi.fi|
|00004510| 0a 65 63 68 6f 20 73 68 | 61 72 3a 20 22 65 78 74 |.echo sh|ar: "ext|
|00004520| 72 61 63 74 69 6e 67 20 | 27 65 64 69 74 6c 69 6e |racting |'editlin|
|00004530| 65 2e 63 27 22 20 27 28 | 34 36 34 31 20 63 68 61 |e.c'" '(|4641 cha|
|00004540| 72 61 63 74 65 72 73 29 | 27 0a 69 66 20 74 65 73 |racters)|'.if tes|
|00004550| 74 20 2d 66 20 27 65 64 | 69 74 6c 69 6e 65 2e 63 |t -f 'ed|itline.c|
|00004560| 27 0a 74 68 65 6e 0a 09 | 65 63 68 6f 20 73 68 61 |'.then..|echo sha|
|00004570| 72 3a 20 22 77 69 6c 6c | 20 6e 6f 74 20 6f 76 65 |r: "will| not ove|
|00004580| 72 2d 77 72 69 74 65 20 | 65 78 69 73 74 69 6e 67 |r-write |existing|
|00004590| 20 66 69 6c 65 20 27 65 | 64 69 74 6c 69 6e 65 2e | file 'e|ditline.|
|000045a0| 63 27 22 0a 65 6c 73 65 | 0a 73 65 64 20 27 73 2f |c'".else|.sed 's/|
|000045b0| 5e 09 58 2f 2f 27 20 3c | 3c 20 5c 53 48 41 52 5f |^.X//' <|< \SHAR_|
|000045c0| 45 4f 46 20 3e 20 27 65 | 64 69 74 6c 69 6e 65 2e |EOF > 'e|ditline.|
|000045d0| 63 27 0a 09 58 0a 09 58 | 2f 2a 0a 09 58 20 2a 20 |c'..X..X|/*..X * |
|000045e0| 43 6f 70 79 72 69 67 68 | 74 20 28 43 29 20 31 39 |Copyrigh|t (C) 19|
|000045f0| 39 30 20 4a 61 79 20 4b | 6f 6e 69 67 73 62 65 72 |90 Jay K|onigsber|
|00004600| 67 20 2d 20 73 65 65 20 | 4d 61 6b 65 66 69 6c 65 |g - see |Makefile|
|00004610| 20 66 6f 72 20 64 65 74 | 61 69 6c 73 0a 09 58 20 | for det|ails..X |
|00004620| 2a 20 54 68 69 73 20 69 | 73 20 46 72 65 65 20 53 |* This i|s Free S|
|00004630| 6f 66 74 77 61 72 65 2c | 20 64 69 73 74 72 75 62 |oftware,| distrub|
|00004640| 69 74 65 64 20 75 6e 64 | 65 72 20 74 68 65 20 47 |ited und|er the G|
|00004650| 4e 55 20 53 6f 66 74 77 | 61 72 65 20 41 67 67 72 |NU Softw|are Aggr|
|00004660| 65 6d 65 6e 74 2e 0a 09 | 58 20 2a 2f 0a 09 58 0a |ement...|X */..X.|
|00004670| 09 58 23 69 6e 63 6c 75 | 64 65 20 22 73 69 6d 70 |.X#inclu|de "simp|
|00004680| 65 64 2e 68 22 0a 09 58 | 0a 09 58 63 68 61 72 20 |ed.h"..X|..Xchar |
|00004690| 2a 2a 65 64 69 74 6c 69 | 6e 65 28 74 65 78 74 2c |**editli|ne(text,|
|000046a0| 20 6c 69 6e 65 6e 75 6d | 2c 20 64 65 6c 69 6d 69 | linenum|, delimi|
|000046b0| 74 65 72 29 0a 09 58 63 | 68 61 72 20 2a 2a 74 65 |ter)..Xc|har **te|
|000046c0| 78 74 3b 0a 09 58 69 6e | 74 20 20 6c 69 6e 65 6e |xt;..Xin|t linen|
|000046d0| 75 6d 3b 0a 09 58 63 68 | 61 72 20 64 65 6c 69 6d |um;..Xch|ar delim|
|000046e0| 69 74 65 72 3b 0a 09 58 | 7b 0a 09 58 69 6e 74 09 |iter;..X|{..Xint.|
|000046f0| 70 6f 73 69 74 69 6f 6e | 28 29 2c 09 09 2f 2a 20 |position|(),../* |
|00004700| 77 68 65 72 65 20 69 73 | 20 6f 6c 64 74 65 78 74 |where is| oldtext|
|00004710| 20 69 6e 20 74 65 78 74 | 5b 5d 2c 20 2d 31 20 69 | in text|[], -1 i|
|00004720| 66 20 65 72 72 20 2a 2f | 0a 09 58 09 63 6c 65 61 |f err */|..X.clea|
|00004730| 6e 75 70 28 29 2c 0a 09 | 58 09 70 75 74 73 28 29 |nup(),..|X.puts()|
|00004740| 2c 0a 09 58 09 66 70 75 | 74 73 28 29 2c 0a 09 58 |,..X.fpu|ts(),..X|
|00004750| 09 66 66 6c 75 73 68 28 | 29 2c 0a 09 58 09 70 72 |.fflush(|),..X.pr|
|00004760| 69 6e 74 66 28 29 2c 0a | 09 58 09 66 70 72 69 6e |intf(),.|.X.fprin|
|00004770| 74 66 28 29 3b 0a 09 58 | 0a 09 58 63 68 61 72 09 |tf();..X|..Xchar.|
|00004780| 2a 72 65 61 6c 6c 6f 63 | 28 29 2c 0a 09 58 09 2a |*realloc|(),..X.*|
|00004790| 67 65 74 6c 69 6e 65 28 | 29 3b 0a 09 58 0a 09 58 |getline(|);..X..X|
|000047a0| 0a 09 58 63 68 61 72 09 | 2a 6f 6c 64 74 65 78 74 |..Xchar.|*oldtext|
|000047b0| 2c 0a 09 58 09 2a 6e 65 | 77 74 65 78 74 2c 0a 09 |,..X.*ne|wtext,..|
|000047c0| 58 09 62 75 66 66 65 72 | 5b 4c 49 4e 45 4c 45 4e |X.buffer|[LINELEN|
|000047d0| 2b 32 5d 3b 0a 09 58 0a | 09 58 69 6e 74 09 74 65 |+2];..X.|.Xint.te|
|000047e0| 78 74 5f 65 6e 74 65 72 | 65 64 2c 09 09 2f 2a 20 |xt_enter|ed,../* |
|000047f0| 62 6f 6f 6c 65 61 6e 20 | 74 6f 20 74 65 6c 6c 20 |boolean |to tell |
|00004800| 69 66 20 73 6f 6d 65 74 | 68 69 6e 67 20 77 61 73 |if somet|hing was|
|00004810| 20 65 6e 74 65 72 65 64 | 20 2a 2f 0a 09 58 09 74 | entered| */..X.t|
|00004820| 65 78 74 69 6e 78 3d 30 | 2c 09 09 2f 2a 20 69 6e |extinx=0|,../* in|
|00004830| 64 65 78 20 66 6f 72 20 | 74 68 65 20 73 75 62 73 |dex for |the subs|
|00004840| 69 74 75 74 61 74 69 6f | 6e 20 2a 2f 0a 09 58 09 |itutatio|n */..X.|
|00004850| 74 65 78 74 6c 65 6e 2c | 09 09 2f 2a 20 6c 65 6e |textlen,|../* len|
|00004860| 67 74 68 20 6f 66 20 74 | 68 65 20 6f 72 69 67 69 |gth of t|he origi|
|00004870| 6e 61 6c 20 73 74 72 69 | 6e 67 20 2a 2f 0a 09 58 |nal stri|ng */..X|
|00004880| 09 6e 65 77 6c 65 6e 2c | 09 09 09 2f 2a 20 6c 65 |.newlen,|.../* le|
|00004890| 6e 67 74 68 20 6f 66 20 | 6e 65 77 20 74 65 78 74 |ngth of |new text|
|000048a0| 20 2a 2f 0a 09 58 09 6f | 6c 64 6c 65 6e 2c 09 09 | */..X.o|ldlen,..|
|000048b0| 09 2f 2a 20 6c 65 6e 67 | 74 68 20 6f 66 20 6f 6c |./* leng|th of ol|
|000048c0| 64 20 74 65 78 74 20 2a | 2f 0a 09 58 09 70 6f 69 |d text *|/..X.poi|
|000048d0| 6e 74 3d 30 3b 09 09 2f | 2a 20 73 75 62 73 63 72 |nt=0;../|* subscr|
|000048e0| 69 70 74 20 6f 66 20 74 | 65 78 74 5b 5d 20 77 68 |ipt of t|ext[] wh|
|000048f0| 65 72 65 20 6f 6c 64 74 | 65 78 74 20 62 65 67 69 |ere oldt|ext begi|
|00004900| 6e 73 20 2a 2f 0a 09 58 | 0a 09 58 74 65 78 74 6c |ns */..X|..Xtextl|
|00004910| 65 6e 3d 73 74 72 6c 65 | 6e 28 74 65 78 74 5b 6c |en=strle|n(text[l|
|00004920| 69 6e 65 6e 75 6d 2d 31 | 5d 29 3b 0a 09 58 69 66 |inenum-1|]);..Xif|
|00004930| 20 28 20 21 20 64 65 6c | 69 6d 69 74 65 72 20 29 | ( ! del|imiter )|
|00004940| 0a 09 58 20 20 20 20 7b | 0a 09 58 20 20 20 20 70 |..X {|..X p|
|00004950| 72 69 6e 74 66 28 22 25 | 33 64 3e 20 22 2c 20 6c |rintf("%|3d> ", l|
|00004960| 69 6e 65 6e 75 6d 29 3b | 0a 09 58 20 20 20 20 66 |inenum);|..X f|
|00004970| 70 75 74 73 28 74 65 78 | 74 5b 6c 69 6e 65 6e 75 |puts(tex|t[linenu|
|00004980| 6d 2d 31 5d 2c 20 73 74 | 64 6f 75 74 29 3b 0a 09 |m-1], st|dout);..|
|00004990| 58 20 20 20 20 70 75 74 | 73 28 22 52 65 74 75 72 |X put|s("Retur|
|000049a0| 6e 20 62 79 20 69 74 73 | 65 6c 66 20 74 6f 20 69 |n by its|elf to i|
|000049b0| 6e 73 65 72 74 20 61 74 | 20 74 68 65 20 62 65 67 |nsert at| the beg|
|000049c0| 69 6e 6e 69 6e 67 2e 22 | 29 3b 0a 09 58 20 20 20 |inning."|);..X |
|000049d0| 20 7d 0a 09 58 20 20 20 | 20 66 6f 72 28 3b 3b 29 | }..X | for(;;)|
|000049e0| 0a 09 58 20 20 20 20 7b | 0a 09 58 20 20 20 20 69 |..X {|..X i|
|000049f0| 66 20 28 20 21 20 64 65 | 6c 69 6d 69 74 65 72 29 |f ( ! de|limiter)|
|00004a00| 0a 09 58 09 7b 0a 09 58 | 09 66 70 75 74 73 28 22 |..X.{..X|.fputs("|
|00004a10| 4f 6c 64 20 74 65 78 74 | 3a 20 22 2c 20 73 74 64 |Old text|: ", std|
|00004a20| 6f 75 74 29 3b 0a 09 58 | 09 66 66 6c 75 73 68 28 |out);..X|.fflush(|
|00004a30| 73 74 64 6f 75 74 29 3b | 0a 09 58 09 7d 0a 09 58 |stdout);|..X.}..X|
|00004a40| 20 20 20 20 69 66 20 28 | 67 65 74 6c 69 6e 65 28 | if (|getline(|
|00004a50| 62 75 66 66 65 72 2c 20 | 26 74 65 78 74 5f 65 6e |buffer, |&text_en|
|00004a60| 74 65 72 65 64 2c 20 73 | 74 64 69 6e 2c 20 64 65 |tered, s|tdin, de|
|00004a70| 6c 69 6d 69 74 65 72 2c | 20 54 52 55 45 29 29 0a |limiter,| TRUE)).|
|00004a80| 09 58 09 7b 0a 09 58 09 | 69 66 20 28 20 21 20 64 |.X.{..X.|if ( ! d|
|00004a90| 65 6c 69 6d 69 74 65 72 | 29 0a 09 58 09 20 20 20 |elimiter|)..X. |
|00004aa0| 20 7b 0a 09 58 09 20 20 | 20 20 70 72 69 6e 74 66 | {..X. | printf|
|00004ab0| 28 22 4d 61 78 20 6c 69 | 6e 65 20 69 73 20 25 64 |("Max li|ne is %d|
|00004ac0| 20 63 68 61 72 61 63 74 | 65 72 73 2c 20 63 6f 6e | charact|ers, con|
|00004ad0| 74 69 6e 75 69 6e 67 2e | 2e 2e 5c 6e 22 2c 20 4c |tinuing.|..\n", L|
|00004ae0| 49 4e 45 4c 45 4e 29 3b | 0a 09 58 09 20 20 20 20 |INELEN);|..X. |
|00004af0| 7d 0a 09 58 09 65 6c 73 | 65 0a 09 58 09 20 20 20 |}..X.els|e..X. |
|00004b00| 20 7b 0a 09 58 09 20 20 | 20 20 2f 2a 20 70 72 69 | {..X. | /* pri|
|00004b10| 6e 74 66 28 22 25 63 25 | 63 22 2c 20 64 65 6c 69 |ntf("%c%|c", deli|
|00004b20| 6d 69 74 65 72 2c 20 42 | 45 4c 4c 29 3b 20 2a 2f |miter, B|ELL); */|
|00004b30| 0a 09 58 09 20 20 20 20 | 7d 0a 09 58 09 62 75 66 |..X. |}..X.buf|
|00004b40| 66 65 72 5b 4c 49 4e 45 | 4c 45 4e 2b 31 5d 3d 27 |fer[LINE|LEN+1]='|
|00004b50| 5c 6e 27 3b 0a 09 58 09 | 62 75 66 66 65 72 5b 4c |\n';..X.|buffer[L|
|00004b60| 49 4e 45 4c 45 4e 2b 32 | 5d 3d 27 5c 30 27 3b 0a |INELEN+2|]='\0';.|
|00004b70| 09 58 09 7d 0a 09 58 20 | 20 20 20 66 66 6c 75 73 |.X.}..X | fflus|
|00004b80| 68 28 73 74 64 6f 75 74 | 29 3b 0a 09 58 20 20 20 |h(stdout|);..X |
|00004b90| 20 2f 2a 20 69 66 20 28 | 74 65 78 74 5f 65 6e 74 | /* if (|text_ent|
|00004ba0| 65 72 65 64 20 3d 3d 20 | 46 41 4c 53 45 29 20 2a |ered == |FALSE) *|
|00004bb0| 2f 0a 09 58 20 20 20 20 | 69 66 20 28 20 73 74 72 |/..X |if ( str|
|00004bc0| 6c 65 6e 28 62 75 66 66 | 65 72 29 20 3d 3d 20 31 |len(buff|er) == 1|
|00004bd0| 29 20 2f 2a 20 61 20 73 | 69 6e 67 6c 65 20 27 5c |) /* a s|ingle '\|
|00004be0| 6e 27 20 77 61 73 20 65 | 6e 74 65 72 65 64 20 2a |n' was e|ntered *|
|00004bf0| 2f 0a 09 58 09 7b 0a 09 | 58 09 2f 2a 20 73 65 74 |/..X.{..|X./* set|
|00004c00| 75 70 20 74 6f 20 69 6e | 73 65 72 74 20 61 74 20 |up to in|sert at |
|00004c10| 74 68 65 20 62 65 67 69 | 6e 69 6e 67 20 6f 66 20 |the begi|ning of |
|00004c20| 74 68 65 20 6c 69 6e 65 | 20 2a 2f 0a 09 58 09 6f |the line| */..X.o|
|00004c30| 6c 64 6c 65 6e 3d 30 3b | 0a 09 58 09 62 72 65 61 |ldlen=0;|..X.brea|
|00004c40| 6b 3b 0a 09 58 09 7d 0a | 09 58 20 20 20 20 65 6c |k;..X.}.|.X el|
|00004c50| 73 65 0a 09 58 09 7b 0a | 09 58 09 62 75 66 66 65 |se..X.{.|.X.buffe|
|00004c60| 72 5b 73 74 72 6c 65 6e | 28 62 75 66 66 65 72 29 |r[strlen|(buffer)|
|00004c70| 2d 31 5d 3d 27 5c 30 27 | 3b 0a 09 58 09 6f 6c 64 |-1]='\0'|;..X.old|
|00004c80| 74 65 78 74 3d 73 74 72 | 64 75 70 28 62 75 66 66 |text=str|dup(buff|
|00004c90| 65 72 29 3b 0a 09 58 09 | 6f 6c 64 6c 65 6e 3d 73 |er);..X.|oldlen=s|
|00004ca0| 74 72 6c 65 6e 28 6f 6c | 64 74 65 78 74 29 3b 0a |trlen(ol|dtext);.|
|00004cb0| 09 58 09 69 66 28 20 28 | 70 6f 69 6e 74 3d 70 6f |.X.if( (|point=po|
|00004cc0| 73 69 74 69 6f 6e 28 6f | 6c 64 74 65 78 74 2c 20 |sition(o|ldtext, |
|00004cd0| 74 65 78 74 5b 6c 69 6e | 65 6e 75 6d 2d 31 5d 29 |text[lin|enum-1])|
|00004ce0| 29 20 3d 3d 20 2d 31 29 | 0a 09 58 09 20 20 20 20 |) == -1)|..X. |
|00004cf0| 7b 0a 09 58 09 20 20 20 | 20 70 72 69 6e 74 66 28 |{..X. | printf(|
|00004d00| 22 5c 6e 73 74 72 69 6e | 67 3a 20 25 73 2c 20 6e |"\nstrin|g: %s, n|
|00004d10| 6f 74 20 66 6f 75 6e 64 | 20 69 6e 20 6c 69 6e 65 |ot found| in line|
|00004d20| 20 25 64 5c 6e 22 2c 20 | 6f 6c 64 74 65 78 74 2c | %d\n", |oldtext,|
|00004d30| 20 6c 69 6e 65 6e 75 6d | 29 3b 0a 09 58 09 20 20 | linenum|);..X. |
|00004d40| 20 20 64 65 6c 69 6d 69 | 74 65 72 3d 27 5c 30 27 | delimi|ter='\0'|
|00004d50| 3b 0a 09 58 09 20 20 20 | 20 7d 0a 09 58 09 65 6c |;..X. | }..X.el|
|00004d60| 73 65 0a 09 58 09 20 20 | 20 20 7b 0a 09 58 09 20 |se..X. | {..X. |
|00004d70| 20 20 20 62 72 65 61 6b | 3b 0a 09 58 09 20 20 20 | break|;..X. |
|00004d80| 20 7d 0a 09 58 09 7d 0a | 09 58 20 20 20 20 7d 0a | }..X.}.|.X }.|
|00004d90| 09 58 69 66 20 28 20 21 | 20 64 65 6c 69 6d 69 74 |.Xif ( !| delimit|
|00004da0| 65 72 20 29 0a 09 58 20 | 20 20 20 7b 0a 09 58 20 |er )..X | {..X |
|00004db0| 20 20 20 66 70 75 74 73 | 28 22 4e 65 77 20 74 65 | fputs|("New te|
|00004dc0| 78 74 3a 20 22 2c 20 73 | 74 64 6f 75 74 29 3b 0a |xt: ", s|tdout);.|
|00004dd0| 09 58 20 20 20 20 66 66 | 6c 75 73 68 28 73 74 64 |.X ff|lush(std|
|00004de0| 6f 75 74 29 3b 0a 09 58 | 20 20 20 20 7d 0a 09 58 |out);..X| }..X|
|00004df0| 69 66 28 67 65 74 6c 69 | 6e 65 28 62 75 66 66 65 |if(getli|ne(buffe|
|00004e00| 72 2c 20 26 74 65 78 74 | 5f 65 6e 74 65 72 65 64 |r, &text|_entered|
|00004e10| 2c 20 73 74 64 69 6e 2c | 20 64 65 6c 69 6d 69 74 |, stdin,| delimit|
|00004e20| 65 72 2c 20 54 52 55 45 | 29 29 0a 09 58 20 20 20 |er, TRUE|))..X |
|00004e30| 20 7b 0a 09 58 20 20 20 | 20 69 66 20 28 20 21 20 | {..X | if ( ! |
|00004e40| 64 65 6c 69 6d 69 74 65 | 72 20 29 0a 09 58 09 20 |delimite|r )..X. |
|00004e50| 20 20 20 7b 0a 09 58 09 | 20 20 20 20 70 72 69 6e | {..X.| prin|
|00004e60| 74 66 28 22 4d 61 78 20 | 6c 69 6e 65 20 69 73 20 |tf("Max |line is |
|00004e70| 25 64 20 63 68 61 72 61 | 63 74 65 72 73 2c 20 63 |%d chara|cters, c|
|00004e80| 6f 6e 74 69 6e 75 69 6e | 67 2e 2e 2e 5c 6e 22 2c |ontinuin|g...\n",|
|00004e90| 20 4c 49 4e 45 4c 45 4e | 29 3b 0a 09 58 09 20 20 | LINELEN|);..X. |
|00004ea0| 20 20 7d 0a 09 58 09 65 | 6c 73 65 0a 09 58 09 20 | }..X.e|lse..X. |
|00004eb0| 20 20 20 7b 0a 09 58 09 | 20 20 20 20 2f 2a 20 70 | {..X.| /* p|
|00004ec0| 72 69 6e 74 66 28 22 25 | 63 25 63 22 2c 20 64 65 |rintf("%|c%c", de|
|00004ed0| 6c 69 6d 69 74 65 72 2c | 20 42 45 4c 4c 29 3b 20 |limiter,| BELL); |
|00004ee0| 2a 2f 0a 09 58 09 20 20 | 20 20 66 66 6c 75 73 68 |*/..X. | fflush|
|00004ef0| 28 73 74 64 6f 75 74 29 | 3b 0a 09 58 09 20 20 20 |(stdout)|;..X. |
|00004f00| 20 7d 0a 09 58 20 20 20 | 20 62 75 66 66 65 72 5b | }..X | buffer[|
|00004f10| 4c 49 4e 45 4c 45 4e 2b | 31 5d 3d 27 5c 6e 27 3b |LINELEN+|1]='\n';|
|00004f20| 0a 09 58 20 20 20 20 62 | 75 66 66 65 72 5b 4c 49 |..X b|uffer[LI|
|00004f30| 4e 45 4c 45 4e 2b 32 5d | 3d 27 5c 30 27 3b 0a 09 |NELEN+2]|='\0';..|
|00004f40| 58 20 20 20 20 7d 0a 09 | 58 2f 2a 20 69 66 20 28 |X }..|X/* if (|
|00004f50| 74 65 78 74 5f 65 6e 74 | 65 72 65 64 20 3d 3d 20 |text_ent|ered == |
|00004f60| 46 41 4c 53 45 20 26 26 | 20 6f 6c 64 6c 65 6e 20 |FALSE &&| oldlen |
|00004f70| 3d 3d 20 30 29 20 2a 2f | 0a 09 58 69 66 20 28 73 |== 0) */|..Xif (s|
|00004f80| 74 72 6c 65 6e 28 62 75 | 66 66 65 72 29 20 3d 3d |trlen(bu|ffer) ==|
|00004f90| 20 31 20 26 26 20 6f 6c | 64 6c 65 6e 20 3d 3d 20 | 1 && ol|dlen == |
|00004fa0| 30 29 20 2f 2a 20 61 20 | 73 69 6e 67 61 6c 20 27 |0) /* a |singal '|
|00004fb0| 5c 6e 27 20 77 61 73 20 | 65 6e 74 65 72 65 64 20 |\n' was |entered |
|00004fc0| 2a 2f 0a 09 58 20 20 20 | 20 7b 0a 09 58 20 20 20 |*/..X | {..X |
|00004fd0| 20 2f 2a 20 6e 6f 74 68 | 69 6e 67 20 65 6e 74 65 | /* noth|ing ente|
|00004fe0| 72 65 64 2c 20 65 78 69 | 74 20 2a 2f 0a 09 58 20 |red, exi|t */..X |
|00004ff0| 20 20 20 70 75 74 73 28 | 22 5c 6e 4e 6f 20 63 68 | puts(|"\nNo ch|
|00005000| 61 6e 67 65 2e 2e 2e 22 | 29 3b 0a 09 58 20 20 20 |ange..."|);..X |
|00005010| 20 72 65 74 75 72 6e 28 | 74 65 78 74 29 3b 0a 09 | return(|text);..|
|00005020| 58 20 20 20 20 7d 0a 09 | 58 69 66 20 28 74 65 78 |X }..|Xif (tex|
|00005030| 74 5f 65 6e 74 65 72 65 | 64 20 3d 3d 20 46 41 4c |t_entere|d == FAL|
|00005040| 53 45 29 0a 09 58 20 20 | 20 20 7b 0a 09 58 20 20 |SE)..X | {..X |
|00005050| 20 20 62 75 66 66 65 72 | 5b 30 5d 3d 27 5c 30 27 | buffer|[0]='\0'|
|00005060| 3b 0a 09 58 20 20 20 20 | 7d 0a 09 58 65 6c 73 65 |;..X |}..Xelse|
|00005070| 0a 09 58 20 20 20 20 7b | 0a 09 58 20 20 20 20 62 |..X {|..X b|
|00005080| 75 66 66 65 72 5b 73 74 | 72 6c 65 6e 28 62 75 66 |uffer[st|rlen(buf|
|00005090| 66 65 72 29 2d 31 5d 3d | 27 5c 30 27 3b 0a 09 58 |fer)-1]=|'\0';..X|
|000050a0| 20 20 20 20 7d 0a 09 58 | 6e 65 77 74 65 78 74 3d | }..X|newtext=|
|000050b0| 73 74 72 64 75 70 28 62 | 75 66 66 65 72 29 3b 0a |strdup(b|uffer);.|
|000050c0| 09 58 6e 65 77 6c 65 6e | 3d 73 74 72 6c 65 6e 28 |.Xnewlen|=strlen(|
|000050d0| 6e 65 77 74 65 78 74 29 | 3b 0a 09 58 2f 2a 20 43 |newtext)|;..X/* C|
|000050e0| 6f 6e 64 69 74 69 6f 6e | 73 20 74 6f 20 68 61 6e |ondition|s to han|
|000050f0| 64 6c 65 0a 09 58 20 2a | 0a 09 58 20 2a 09 09 09 |dle..X *|..X *...|
|00005100| 09 2a 20 6e 6f 20 72 65 | 61 6c 6c 6f 63 0a 09 58 |.* no re|alloc..X|
|00005110| 20 2a 20 31 29 20 6f 6c | 64 6c 65 6e 20 3d 3d 20 | * 1) ol|dlen == |
|00005120| 6e 65 77 6c 65 6e 09 09 | 2d 20 73 74 72 69 6e 67 |newlen..|- string|
|00005130| 73 20 61 72 65 20 73 61 | 6d 65 20 6c 65 6e 67 74 |s are sa|me lengt|
|00005140| 68 0a 09 58 20 2a 09 09 | 09 09 2a 20 72 65 6c 6c |h..X *..|..* rell|
|00005150| 6f 63 20 61 66 74 65 72 | 20 63 68 61 6e 67 65 20 |oc after| change |
|00005160| 73 6f 20 6e 6f 20 74 65 | 78 74 20 69 73 20 6c 6f |so no te|xt is lo|
|00005170| 73 74 0a 09 58 20 2a 20 | 32 29 20 6e 65 77 6c 65 |st..X * |2) newle|
|00005180| 6e 20 3d 3d 20 30 20 26 | 20 6f 6c 64 6c 65 6e 20 |n == 0 &| oldlen |
|00005190| 3e 20 31 09 2d 20 72 65 | 6d 6f 76 65 20 73 6f 6d |> 1.- re|move som|
|000051a0| 65 20 74 65 78 74 0a 09 | 58 20 2a 20 33 29 20 6e |e text..|X * 3) n|
|000051b0| 65 77 6c 65 6e 20 3c 20 | 20 6f 6c 64 6c 65 6e 09 |ewlen < | oldlen.|
|000051c0| 09 2d 20 64 6f 77 6e 73 | 69 7a 65 20 74 65 78 74 |.- downs|ize text|
|000051d0| 5b 5d 0a 09 58 20 2a 09 | 09 09 09 2a 20 72 65 61 |[]..X *.|...* rea|
|000051e0| 6c 6c 6f 63 20 62 65 66 | 6f 72 65 20 63 68 61 6e |lloc bef|ore chan|
|000051f0| 67 65 20 73 6f 20 74 68 | 65 72 65 20 69 73 0a 09 |ge so th|ere is..|
|00005200| 58 20 2a 09 09 09 09 20 | 20 72 6f 6f 6d 20 66 6f |X *.... | room fo|
|00005210| 72 20 6d 6f 72 65 20 63 | 68 61 72 61 63 74 65 72 |r more c|haracter|
|00005220| 73 0a 09 58 20 2a 20 34 | 29 20 6f 6c 64 6c 65 6e |s..X * 4|) oldlen|
|00005230| 20 3d 3d 20 30 20 26 20 | 6e 65 77 6c 65 6e 20 3e | == 0 & |newlen >|
|00005240| 20 31 09 2d 20 69 6e 73 | 65 72 74 20 61 74 20 62 | 1.- ins|ert at b|
|00005250| 65 67 69 6e 6e 69 6e 67 | 20 6f 66 20 6c 69 6e 65 |eginning| of line|
|00005260| 0a 09 58 20 2a 20 35 29 | 20 6e 65 77 6c 65 6e 20 |..X * 5)| newlen |
|00005270| 3e 20 20 6f 6c 64 6c 65 | 6e 09 09 2d 20 69 6e 63 |> oldle|n..- inc|
|00005280| 72 65 61 73 65 20 73 69 | 7a 65 2d 6f 66 20 74 65 |rease si|ze-of te|
|00005290| 78 74 5b 5d 0a 09 58 20 | 2a 2f 0a 09 58 69 66 20 |xt[]..X |*/..Xif |
|000052a0| 28 6e 65 77 6c 65 6e 20 | 3d 3d 20 6f 6c 64 6c 65 |(newlen |== oldle|
|000052b0| 6e 29 20 2f 2a 20 63 61 | 73 65 20 31 2c 20 73 61 |n) /* ca|se 1, sa|
|000052c0| 6d 65 20 6c 65 6e 67 74 | 68 20 2a 2f 0a 09 58 20 |me lengt|h */..X |
|000052d0| 20 20 20 7b 0a 09 58 20 | 20 20 20 66 6f 72 20 28 | {..X | for (|
|000052e0| 74 65 78 74 69 6e 78 3d | 70 6f 69 6e 74 3b 20 74 |textinx=|point; t|
|000052f0| 65 78 74 69 6e 78 20 3c | 20 70 6f 69 6e 74 2b 6e |extinx <| point+n|
|00005300| 65 77 6c 65 6e 3b 20 2b | 2b 74 65 78 74 69 6e 78 |ewlen; +|+textinx|
|00005310| 29 0a 09 58 09 7b 0a 09 | 58 09 74 65 78 74 5b 6c |)..X.{..|X.text[l|
|00005320| 69 6e 65 6e 75 6d 2d 31 | 5d 5b 74 65 78 74 69 6e |inenum-1|][textin|
|00005330| 78 5d 20 3d 20 6e 65 77 | 74 65 78 74 5b 74 65 78 |x] = new|text[tex|
|00005340| 74 69 6e 78 2d 70 6f 69 | 6e 74 5d 3b 0a 09 58 09 |tinx-poi|nt];..X.|
|00005350| 7d 0a 09 58 20 20 20 20 | 7d 0a 09 58 65 6c 73 65 |}..X |}..Xelse|
|00005360| 0a 09 58 20 20 20 20 7b | 0a 09 58 20 20 20 20 69 |..X {|..X i|
|00005370| 66 20 28 6e 65 77 6c 65 | 6e 20 3c 20 6f 6c 64 6c |f (newle|n < oldl|
|00005380| 65 6e 29 20 2f 2a 20 63 | 61 73 65 20 32 20 26 20 |en) /* c|ase 2 & |
|00005390| 33 20 2d 20 68 61 76 65 | 20 65 78 74 72 61 20 73 |3 - have| extra s|
|000053a0| 70 61 63 65 20 2a 2f 0a | 09 58 09 7b 0a 09 58 09 |pace */.|.X.{..X.|
|000053b0| 2f 2a 20 63 6f 70 79 20 | 6f 76 65 72 20 6f 6c 64 |/* copy |over old|
|000053c0| 20 74 65 78 74 20 2d 20 | 6e 6f 6e 2d 6f 70 20 69 | text - |non-op i|
|000053d0| 66 20 6e 65 77 3d 30 20 | 2a 2f 0a 09 58 09 66 6f |f new=0 |*/..X.fo|
|000053e0| 72 20 28 74 65 78 74 69 | 6e 78 3d 70 6f 69 6e 74 |r (texti|nx=point|
|000053f0| 3b 20 74 65 78 74 69 6e | 78 20 3c 20 70 6f 69 6e |; textin|x < poin|
|00005400| 74 2b 6e 65 77 6c 65 6e | 3b 20 2b 2b 74 65 78 74 |t+newlen|; ++text|
|00005410| 69 6e 78 29 0a 09 58 09 | 20 20 20 20 7b 0a 09 58 |inx)..X.| {..X|
|00005420| 09 20 20 20 20 74 65 78 | 74 5b 6c 69 6e 65 6e 75 |. tex|t[linenu|
|00005430| 6d 2d 31 5d 5b 74 65 78 | 74 69 6e 78 5d 20 3d 20 |m-1][tex|tinx] = |
|00005440| 6e 65 77 74 65 78 74 5b | 74 65 78 74 69 6e 78 2d |newtext[|textinx-|
|00005450| 70 6f 69 6e 74 5d 3b 0a | 09 58 09 20 20 20 20 7d |point];.|.X. }|
|00005460| 0a 09 58 09 2f 2a 20 72 | 6f 6c 6c 20 72 65 6d 61 |..X./* r|oll rema|
|00005470| 69 6e 69 6e 67 20 74 65 | 78 74 20 62 61 63 6b 20 |ining te|xt back |
|00005480| 6f 76 65 72 20 74 68 65 | 20 6f 6c 64 74 65 78 74 |over the| oldtext|
|00005490| 20 2a 2f 0a 09 58 09 70 | 6f 69 6e 74 3d 74 65 78 | */..X.p|oint=tex|
|000054a0| 74 69 6e 78 3b 0a 09 58 | 09 66 6f 72 20 28 74 65 |tinx;..X|.for (te|
|000054b0| 78 74 69 6e 78 3d 70 6f | 69 6e 74 3b 20 74 65 78 |xtinx=po|int; tex|
|000054c0| 74 69 6e 78 20 3c 20 74 | 65 78 74 6c 65 6e 3b 20 |tinx < t|extlen; |
|000054d0| 2b 2b 74 65 78 74 69 6e | 78 29 0a 09 58 09 20 20 |++textin|x)..X. |
|000054e0| 20 20 7b 0a 09 58 09 20 | 20 20 20 74 65 78 74 5b | {..X. | text[|
|000054f0| 6c 69 6e 65 6e 75 6d 2d | 31 5d 5b 74 65 78 74 69 |linenum-|1][texti|
|00005500| 6e 78 5d 3d 74 65 78 74 | 5b 6c 69 6e 65 6e 75 6d |nx]=text|[linenum|
|00005510| 2d 31 5d 5b 74 65 78 74 | 69 6e 78 2b 6f 6c 64 6c |-1][text|inx+oldl|
|00005520| 65 6e 2d 6e 65 77 6c 65 | 6e 5d 3b 0a 09 58 09 20 |en-newle|n];..X. |
|00005530| 20 20 20 7d 0a 09 58 09 | 74 65 78 74 5b 6c 69 6e | }..X.|text[lin|
|00005540| 65 6e 75 6d 2d 31 5d 5b | 74 65 78 74 6c 65 6e 2b |enum-1][|textlen+|
|00005550| 6e 65 77 6c 65 6e 2d 6f | 6c 64 6c 65 6e 5d 3d 27 |newlen-o|ldlen]='|
|00005560| 5c 30 27 3b 0a 09 58 09 | 69 66 28 28 74 65 78 74 |\0';..X.|if((text|
|00005570| 5b 6c 69 6e 65 6e 75 6d | 2d 31 5d 3d 72 65 61 6c |[linenum|-1]=real|
|00005580| 6c 6f 63 28 74 65 78 74 | 5b 6c 69 6e 65 6e 75 6d |loc(text|[linenum|
|00005590| 2d 31 5d 2c 0a 09 58 09 | 20 20 20 20 28 75 6e 73 |-1],..X.| (uns|
|000055a0| 69 67 6e 65 64 20 69 6e | 74 29 28 74 65 78 74 69 |igned in|t)(texti|
|000055b0| 6e 78 2b 46 55 44 47 45 | 29 29 29 3d 3d 4e 55 4c |nx+FUDGE|)))==NUL|
|000055c0| 4c 29 0a 09 58 09 20 20 | 20 20 7b 0a 09 58 09 20 |L)..X. | {..X. |
|000055d0| 20 20 20 66 70 72 69 6e | 74 66 28 73 74 64 65 72 | fprin|tf(stder|
|000055e0| 72 2c 20 22 72 65 61 6c | 6c 6f 63 3a 20 65 72 72 |r, "real|loc: err|
|000055f0| 6f 72 3d 25 64 5c 6e 22 | 2c 20 65 72 72 6e 6f 29 |or=%d\n"|, errno)|
|00005600| 3b 0a 09 58 09 20 20 20 | 20 63 6c 65 61 6e 75 70 |;..X. | cleanup|
|00005610| 28 32 29 3b 0a 09 58 09 | 20 20 20 20 7d 0a 09 58 |(2);..X.| }..X|
|00005620| 09 7d 0a 09 58 20 20 20 | 20 65 6c 73 65 20 2f 2a |.}..X | else /*|
|00005630| 20 63 61 73 65 20 34 20 | 26 20 35 20 2d 20 6d 6f | case 4 |& 5 - mo|
|00005640| 72 65 20 73 70 61 63 65 | 20 69 73 20 6e 65 65 64 |re space| is need|
|00005650| 65 64 20 2a 2f 0a 09 58 | 09 7b 0a 09 58 09 69 66 |ed */..X|.{..X.if|
|00005660| 28 28 74 65 78 74 5b 6c | 69 6e 65 6e 75 6d 2d 31 |((text[l|inenum-1|
|00005670| 5d 3d 72 65 61 6c 6c 6f | 63 28 74 65 78 74 5b 6c |]=reallo|c(text[l|
|00005680| 69 6e 65 6e 75 6d 2d 31 | 5d 2c 0a 09 58 09 09 28 |inenum-1|],..X..(|
|00005690| 75 6e 73 69 67 6e 65 64 | 20 69 6e 74 29 28 74 65 |unsigned| int)(te|
|000056a0| 78 74 6c 65 6e 2b 6e 65 | 77 6c 65 6e 2d 6f 6c 64 |xtlen+ne|wlen-old|
|000056b0| 6c 65 6e 2b 46 55 44 47 | 45 29 29 29 3d 3d 4e 55 |len+FUDG|E)))==NU|
|000056c0| 4c 4c 29 0a 09 58 09 20 | 20 20 20 7b 0a 09 58 09 |LL)..X. | {..X.|
|000056d0| 20 20 20 20 66 70 72 69 | 6e 74 66 28 73 74 64 65 | fpri|ntf(stde|
|000056e0| 72 72 2c 20 22 72 65 61 | 6c 6c 6f 63 3a 20 65 72 |rr, "rea|lloc: er|
|000056f0| 72 6f 72 3d 25 64 5c 6e | 22 2c 20 65 72 72 6e 6f |ror=%d\n|", errno|
|00005700| 29 3b 0a 09 58 09 20 20 | 20 20 63 6c 65 61 6e 75 |);..X. | cleanu|
|00005710| 70 28 32 29 3b 0a 09 58 | 09 20 20 20 20 7d 0a 09 |p(2);..X|. }..|
|00005720| 58 09 2f 2a 20 72 6f 6c | 6c 20 6f 75 74 20 63 68 |X./* rol|l out ch|
|00005730| 61 72 20 74 6f 20 6d 61 | 6b 65 20 72 6f 6f 6d 20 |ar to ma|ke room |
|00005740| 66 6f 72 20 69 6e 73 65 | 72 74 20 2a 2f 0a 09 58 |for inse|rt */..X|
|00005750| 09 0a 09 58 09 66 6f 72 | 20 28 74 65 78 74 69 6e |...X.for| (textin|
|00005760| 78 3d 74 65 78 74 6c 65 | 6e 2b 6e 65 77 6c 65 6e |x=textle|n+newlen|
|00005770| 2d 6f 6c 64 6c 65 6e 3b | 0a 09 58 09 20 20 20 20 |-oldlen;|..X. |
|00005780| 74 65 78 74 69 6e 78 20 | 3e 3d 20 70 6f 69 6e 74 |textinx |>= point|
|00005790| 2b 6e 65 77 6c 65 6e 2d | 6f 6c 64 6c 65 6e 3b 20 |+newlen-|oldlen; |
|000057a0| 2d 2d 74 65 78 74 69 6e | 78 29 0a 09 58 09 20 20 |--textin|x)..X. |
|000057b0| 20 20 7b 0a 09 58 09 20 | 20 20 20 74 65 78 74 5b | {..X. | text[|
|000057c0| 6c 69 6e 65 6e 75 6d 2d | 31 5d 5b 74 65 78 74 69 |linenum-|1][texti|
|000057d0| 6e 78 5d 3d 74 65 78 74 | 5b 6c 69 6e 65 6e 75 6d |nx]=text|[linenum|
|000057e0| 2d 31 5d 5b 74 65 78 74 | 69 6e 78 2d 6e 65 77 6c |-1][text|inx-newl|
|000057f0| 65 6e 2b 6f 6c 64 6c 65 | 6e 5d 3b 0a 09 58 09 20 |en+oldle|n];..X. |
|00005800| 20 20 20 7d 0a 09 58 09 | 2f 2a 20 70 6c 61 63 65 | }..X.|/* place|
|00005810| 20 6e 65 77 74 65 78 74 | 20 69 6e 20 74 68 65 20 | newtext| in the |
|00005820| 74 65 78 74 20 61 72 65 | 61 20 2a 2f 0a 09 58 09 |text are|a */..X.|
|00005830| 66 6f 72 20 28 74 65 78 | 74 69 6e 78 3d 70 6f 69 |for (tex|tinx=poi|
|00005840| 6e 74 3b 20 74 65 78 74 | 69 6e 78 20 3c 20 70 6f |nt; text|inx < po|
|00005850| 69 6e 74 2b 6e 65 77 6c | 65 6e 3b 20 2b 2b 74 65 |int+newl|en; ++te|
|00005860| 78 74 69 6e 78 29 0a 09 | 58 09 20 20 20 20 7b 0a |xtinx)..|X. {.|
|00005870| 09 58 09 20 20 20 20 74 | 65 78 74 5b 6c 69 6e 65 |.X. t|ext[line|
|00005880| 6e 75 6d 2d 31 5d 5b 74 | 65 78 74 69 6e 78 5d 20 |num-1][t|extinx] |
|00005890| 3d 20 6e 65 77 74 65 78 | 74 5b 74 65 78 74 69 6e |= newtex|t[textin|
|000058a0| 78 2d 70 6f 69 6e 74 5d | 3b 0a 09 58 09 20 20 20 |x-point]|;..X. |
|000058b0| 20 7d 0a 09 58 09 74 65 | 78 74 5b 6c 69 6e 65 6e | }..X.te|xt[linen|
|000058c0| 75 6d 2d 31 5d 5b 74 65 | 78 74 6c 65 6e 2b 6e 65 |um-1][te|xtlen+ne|
|000058d0| 77 6c 65 6e 2d 6f 6c 64 | 6c 65 6e 2d 31 5d 3d 27 |wlen-old|len-1]='|
|000058e0| 5c 6e 27 3b 0a 09 58 09 | 74 65 78 74 5b 6c 69 6e |\n';..X.|text[lin|
|000058f0| 65 6e 75 6d 2d 31 5d 5b | 74 65 78 74 6c 65 6e 2b |enum-1][|textlen+|
|00005900| 6e 65 77 6c 65 6e 2d 6f | 6c 64 6c 65 6e 5d 3d 27 |newlen-o|ldlen]='|
|00005910| 5c 30 27 3b 0a 09 58 09 | 7d 0a 09 58 20 20 20 20 |\0';..X.|}..X |
|00005920| 7d 0a 09 58 70 72 69 6e | 74 66 28 22 5c 6e 25 33 |}..Xprin|tf("\n%3|
|00005930| 64 3e 20 22 2c 20 6c 69 | 6e 65 6e 75 6d 29 3b 0a |d> ", li|nenum);.|
|00005940| 09 58 66 70 75 74 73 28 | 74 65 78 74 5b 6c 69 6e |.Xfputs(|text[lin|
|00005950| 65 6e 75 6d 2d 31 5d 2c | 20 73 74 64 6f 75 74 29 |enum-1],| stdout)|
|00005960| 3b 0a 09 58 72 65 74 75 | 72 6e 28 74 65 78 74 29 |;..Xretu|rn(text)|
|00005970| 3b 0a 09 58 7d 0a 53 48 | 41 52 5f 45 4f 46 0a 69 |;..X}.SH|AR_EOF.i|
|00005980| 66 20 74 65 73 74 20 34 | 36 34 31 20 2d 6e 65 20 |f test 4|641 -ne |
|00005990| 22 60 77 63 20 2d 63 20 | 3c 20 27 65 64 69 74 6c |"`wc -c |< 'editl|
|000059a0| 69 6e 65 2e 63 27 60 22 | 0a 74 68 65 6e 0a 09 65 |ine.c'`"|.then..e|
|000059b0| 63 68 6f 20 73 68 61 72 | 3a 20 22 65 72 72 6f 72 |cho shar|: "error|
|000059c0| 20 74 72 61 6e 73 6d 69 | 74 74 69 6e 67 20 27 65 | transmi|tting 'e|
|000059d0| 64 69 74 6c 69 6e 65 2e | 63 27 22 20 27 28 73 68 |ditline.|c'" '(sh|
|000059e0| 6f 75 6c 64 20 68 61 76 | 65 20 62 65 65 6e 20 34 |ould hav|e been 4|
|000059f0| 36 34 31 20 63 68 61 72 | 61 63 74 65 72 73 29 27 |641 char|acters)'|
|00005a00| 0a 66 69 0a 66 69 0a 65 | 63 68 6f 20 73 68 61 72 |.fi.fi.e|cho shar|
|00005a10| 3a 20 22 65 78 74 72 61 | 63 74 69 6e 67 20 27 67 |: "extra|cting 'g|
|00005a20| 65 74 6c 69 6e 65 2e 63 | 27 22 20 27 28 33 35 35 |etline.c|'" '(355|
|00005a30| 34 20 63 68 61 72 61 63 | 74 65 72 73 29 27 0a 69 |4 charac|ters)'.i|
|00005a40| 66 20 74 65 73 74 20 2d | 66 20 27 67 65 74 6c 69 |f test -|f 'getli|
|00005a50| 6e 65 2e 63 27 0a 74 68 | 65 6e 0a 09 65 63 68 6f |ne.c'.th|en..echo|
|00005a60| 20 73 68 61 72 3a 20 22 | 77 69 6c 6c 20 6e 6f 74 | shar: "|will not|
|00005a70| 20 6f 76 65 72 2d 77 72 | 69 74 65 20 65 78 69 73 | over-wr|ite exis|
|00005a80| 74 69 6e 67 20 66 69 6c | 65 20 27 67 65 74 6c 69 |ting fil|e 'getli|
|00005a90| 6e 65 2e 63 27 22 0a 65 | 6c 73 65 0a 73 65 64 20 |ne.c'".e|lse.sed |
|00005aa0| 27 73 2f 5e 09 58 2f 2f | 27 20 3c 3c 20 5c 53 48 |'s/^.X//|' << \SH|
|00005ab0| 41 52 5f 45 4f 46 20 3e | 20 27 67 65 74 6c 69 6e |AR_EOF >| 'getlin|
|00005ac0| 65 2e 63 27 0a 09 58 0a | 09 58 2f 2a 0a 09 58 20 |e.c'..X.|.X/*..X |
|00005ad0| 2a 20 43 6f 70 79 72 69 | 67 68 74 20 28 43 29 20 |* Copyri|ght (C) |
|00005ae0| 31 39 39 30 20 4a 61 79 | 20 4b 6f 6e 69 67 73 62 |1990 Jay| Konigsb|
|00005af0| 65 72 67 20 2d 20 73 65 | 65 20 4d 61 6b 65 66 69 |erg - se|e Makefi|
|00005b00| 6c 65 20 66 6f 72 20 64 | 65 74 61 69 6c 73 0a 09 |le for d|etails..|
|00005b10| 58 20 2a 20 54 68 69 73 | 20 69 73 20 46 72 65 65 |X * This| is Free|
|00005b20| 20 53 6f 66 74 77 61 72 | 65 2c 20 64 69 73 74 72 | Softwar|e, distr|
|00005b30| 75 62 69 74 65 64 20 75 | 6e 64 65 72 20 74 68 65 |ubited u|nder the|
|00005b40| 20 47 4e 55 20 53 6f 66 | 74 77 61 72 65 20 41 67 | GNU Sof|tware Ag|
|00005b50| 67 72 65 6d 65 6e 74 2e | 0a 09 58 20 2a 2f 0a 09 |grement.|..X */..|
|00005b60| 58 0a 09 58 2f 2a 0a 09 | 58 20 2a 20 67 65 74 6c |X..X/*..|X * getl|
|00005b70| 69 6e 65 20 2d 20 67 65 | 74 73 20 61 20 6c 69 6e |ine - ge|ts a lin|
|00005b80| 65 20 6f 66 20 74 65 78 | 74 20 66 72 6f 6d 20 74 |e of tex|t from t|
|00005b90| 68 65 20 66 64 3a 20 69 | 6e 5f 66 69 6c 65 2e 20 |he fd: i|n_file. |
|00005ba0| 49 66 20 74 68 65 20 6c | 69 6e 65 20 6f 66 0a 09 |If the l|ine of..|
|00005bb0| 58 20 2a 20 74 65 78 74 | 20 69 73 20 6c 6f 6e 67 |X * text| is long|
|00005bc0| 65 72 20 74 68 61 6e 20 | 74 68 65 20 61 6c 6c 6f |er than |the allo|
|00005bd0| 77 65 64 20 6c 65 6e 67 | 74 68 20 28 4c 49 4e 45 |wed leng|th (LINE|
|00005be0| 4c 45 4e 29 20 69 74 20 | 73 74 72 69 70 73 20 6f |LEN) it |strips o|
|00005bf0| 66 66 20 74 68 65 0a 09 | 58 20 2a 20 6c 61 73 74 |ff the..|X * last|
|00005c00| 20 77 6f 72 64 20 69 66 | 20 74 68 65 72 65 20 69 | word if| there i|
|00005c10| 73 20 77 68 69 74 65 73 | 70 61 63 65 2c 20 6f 72 |s whites|pace, or|
|00005c20| 20 74 68 65 20 6c 61 73 | 74 20 63 68 61 72 20 69 | the las|t char i|
|00005c30| 66 20 6e 6f 74 2e 20 54 | 68 65 0a 09 58 20 2a 20 |f not. T|he..X * |
|00005c40| 6f 76 65 72 66 6c 6f 77 | 20 69 73 20 73 61 76 65 |overflow| is save|
|00005c50| 64 2c 20 75 6e 6c 65 73 | 73 20 74 68 65 20 64 75 |d, unles|s the du|
|00005c60| 6d 70 6f 76 65 72 66 6c | 6f 77 20 66 6c 61 67 20 |mpoverfl|ow flag |
|00005c70| 69 73 20 73 65 74 2e 0a | 09 58 20 2a 0a 09 58 20 |is set..|.X *..X |
|00005c80| 2a 20 54 68 65 20 6f 76 | 65 72 66 6c 6f 77 20 69 |* The ov|erflow i|
|00005c90| 73 20 72 65 74 75 72 6e | 65 64 20 74 6f 20 74 68 |s return|ed to th|
|00005ca0| 65 20 63 61 6c 6c 65 72 | 20 61 6e 64 20 6d 61 69 |e caller| and mai|
|00005cb0| 6e 74 61 69 6e 65 64 20 | 69 6e 20 73 74 61 74 69 |ntained |in stati|
|00005cc0| 63 0a 09 58 20 2a 20 73 | 70 61 63 65 2e 0a 09 58 |c..X * s|pace...X|
|00005cd0| 20 2a 2f 0a 09 58 0a 09 | 58 23 69 6e 63 6c 75 64 | */..X..|X#includ|
|00005ce0| 65 20 22 73 69 6d 70 65 | 64 2e 68 22 0a 09 58 0a |e "simpe|d.h"..X.|
|00005cf0| 09 58 63 68 61 72 20 2a | 67 65 74 6c 69 6e 65 28 |.Xchar *|getline(|
|00005d00| 62 75 66 66 65 72 2c 20 | 74 65 78 74 5f 65 6e 74 |buffer, |text_ent|
|00005d10| 65 72 65 64 2c 20 69 6e | 5f 66 69 6c 65 2c 20 64 |ered, in|_file, d|
|00005d20| 65 6c 69 6d 69 74 65 72 | 2c 20 64 75 6d 70 6f 76 |elimiter|, dumpov|
|00005d30| 65 72 66 6c 6f 77 29 0a | 09 58 63 68 61 72 20 62 |erflow).|.Xchar b|
|00005d40| 75 66 66 65 72 5b 5d 3b | 09 09 2f 2a 20 69 6e 70 |uffer[];|../* inp|
|00005d50| 75 74 20 62 75 66 66 65 | 72 20 74 6f 20 62 65 20 |ut buffe|r to be |
|00005d60| 70 61 73 73 65 64 20 6f | 75 74 20 2a 2f 0a 09 58 |passed o|ut */..X|
|00005d70| 69 6e 74 20 20 2a 74 65 | 78 74 5f 65 6e 74 65 72 |int *te|xt_enter|
|00005d80| 65 64 3b 09 2f 2a 20 66 | 6c 61 67 20 74 68 61 74 |ed;./* f|lag that|
|00005d90| 20 73 6f 6d 65 74 68 69 | 6e 67 20 77 61 73 20 65 | somethi|ng was e|
|00005da0| 6e 74 65 72 65 64 20 2a | 2f 0a 09 58 46 49 4c 45 |ntered *|/..XFILE|
|00005db0| 20 2a 69 6e 5f 66 69 6c | 65 3b 09 09 2f 2a 20 73 | *in_fil|e;../* s|
|00005dc0| 74 64 69 6e 2c 20 6f 72 | 20 74 68 65 20 66 64 20 |tdin, or| the fd |
|00005dd0| 6f 66 20 61 20 66 69 6c | 65 20 2a 2f 0a 09 58 63 |of a fil|e */..Xc|
|00005de0| 68 61 72 20 64 65 6c 69 | 6d 69 74 65 72 3b 09 09 |har deli|miter;..|
|00005df0| 2f 2a 20 69 66 20 73 65 | 74 2c 20 77 69 6c 6c 20 |/* if se|t, will |
|00005e00| 72 65 74 75 72 6e 20 6c | 69 6b 65 20 61 20 72 65 |return l|ike a re|
|00005e10| 74 75 72 6e 20 77 69 6c | 6c 20 2a 2f 0a 09 58 69 |turn wil|l */..Xi|
|00005e20| 6e 74 20 20 64 75 6d 70 | 6f 76 65 72 66 6c 6f 77 |nt dump|overflow|
|00005e30| 3b 09 2f 2a 20 62 6f 6f | 6c 65 61 6e 20 2a 2f 0a |;./* boo|lean */.|
|00005e40| 09 58 7b 0a 09 58 69 6e | 74 09 66 66 6c 75 73 68 |.X{..Xin|t.fflush|
|00005e50| 28 29 2c 0a 09 58 09 66 | 70 75 74 73 28 29 2c 0a |(),..X.f|puts(),.|
|00005e60| 09 58 09 70 75 74 73 28 | 29 3b 0a 09 58 0a 09 58 |.X.puts(|);..X..X|
|00005e70| 73 74 61 74 69 63 09 63 | 68 61 72 20 2a 6f 76 65 |static.c|har *ove|
|00005e80| 72 66 6c 6f 77 3b 0a 09 | 58 73 74 61 74 69 63 09 |rflow;..|Xstatic.|
|00005e90| 63 68 61 72 20 65 78 74 | 72 61 63 68 61 72 20 3d |char ext|rachar =|
|00005ea0| 20 27 5c 30 27 3b 09 2f | 2a 20 61 75 74 6f 77 72 | '\0';./|* autowr|
|00005eb0| 61 70 20 63 68 61 72 20 | 77 68 65 6e 20 74 68 65 |ap char |when the|
|00005ec0| 72 65 20 69 73 20 6e 6f | 20 77 68 69 74 65 73 70 |re is no| whitesp|
|00005ed0| 61 63 65 20 2a 2f 0a 09 | 58 0a 09 58 0a 09 58 69 |ace */..|X..X..Xi|
|00005ee0| 6e 74 09 62 6c 61 6e 6b | 63 68 61 72 2c 09 09 2f |nt.blank|char,../|
|00005ef0| 2a 20 6c 6f 63 61 74 69 | 6f 6e 20 6f 66 20 62 6c |* locati|on of bl|
|00005f00| 61 6e 6b 69 6e 67 20 64 | 75 72 69 6e 67 20 61 75 |anking d|uring au|
|00005f10| 74 6f 77 72 61 70 20 2a | 2f 0a 09 58 09 69 6e 70 |towrap *|/..X.inp|
|00005f20| 63 68 61 72 2c 09 09 2f | 2a 20 63 68 61 72 20 72 |char,../|* char r|
|00005f30| 65 61 64 20 69 6e 20 66 | 6f 72 20 70 72 6f 63 65 |ead in f|or proce|
|00005f40| 73 69 6e 67 20 69 6e 74 | 6f 20 62 75 66 66 65 72 |sing int|o buffer|
|00005f50| 20 2a 2f 0a 09 58 09 63 | 75 72 63 68 61 72 3d 30 | */..X.c|urchar=0|
|00005f60| 2c 09 09 2f 2a 20 69 6e | 70 75 74 20 62 75 66 66 |,../* in|put buff|
|00005f70| 65 72 20 70 6f 69 6e 74 | 65 72 20 2a 2f 0a 09 58 |er point|er */..X|
|00005f80| 09 77 68 69 74 65 73 70 | 61 63 65 2c 09 09 2f 2a |.whitesp|ace,../*|
|00005f90| 20 6c 6f 63 61 74 69 6f | 6e 20 6f 66 20 61 75 74 | locatio|n of aut|
|00005fa0| 6f 77 72 61 70 20 63 75 | 74 20 2a 2f 0a 09 58 09 |owrap cu|t */..X.|
|00005fb0| 68 61 76 65 5f 6e 6c 3d | 46 41 4c 53 45 3b 09 09 |have_nl=|FALSE;..|
|00005fc0| 2f 2a 20 6e 65 77 6c 69 | 6e 65 20 66 6c 61 67 20 |/* newli|ne flag |
|00005fd0| 2a 2f 0a 09 58 0a 09 58 | 2a 74 65 78 74 5f 65 6e |*/..X..X|*text_en|
|00005fe0| 74 65 72 65 64 20 3d 20 | 46 41 4c 53 45 3b 0a 09 |tered = |FALSE;..|
|00005ff0| 58 68 61 76 65 5f 6e 6c | 20 3d 20 46 41 4c 53 45 |Xhave_nl| = FALSE|
|00006000| 3b 0a 09 58 66 66 6c 75 | 73 68 28 73 74 64 6f 75 |;..Xfflu|sh(stdou|
|00006010| 74 29 3b 0a 09 58 0a 09 | 58 66 6f 72 20 28 63 75 |t);..X..|Xfor (cu|
|00006020| 72 63 68 61 72 3d 30 3b | 20 28 63 75 72 63 68 61 |rchar=0;| (curcha|
|00006030| 72 3c 3d 4c 49 4e 45 4c | 45 4e 20 26 26 20 28 21 |r<=LINEL|EN && (!|
|00006040| 20 68 61 76 65 5f 6e 6c | 29 29 3b 20 2b 2b 63 75 | have_nl|)); ++cu|
|00006050| 72 63 68 61 72 29 0a 09 | 58 20 20 20 20 7b 0a 09 |rchar)..|X {..|
|00006060| 58 20 20 20 20 69 66 20 | 28 6f 76 65 72 66 6c 6f |X if |(overflo|
|00006070| 77 29 0a 09 58 09 7b 0a | 09 58 09 63 75 72 63 68 |w)..X.{.|.X.curch|
|00006080| 61 72 20 3d 20 73 74 72 | 6c 65 6e 28 6f 76 65 72 |ar = str|len(over|
|00006090| 66 6c 6f 77 29 3b 0a 09 | 58 09 69 66 20 28 69 6e |flow);..|X.if (in|
|000060a0| 5f 66 69 6c 65 20 3d 3d | 20 73 74 64 69 6e 29 0a |_file ==| stdin).|
|000060b0| 09 58 09 20 20 20 20 7b | 0a 09 58 09 20 20 20 20 |.X. {|..X. |
|000060c0| 66 70 75 74 73 28 6f 76 | 65 72 66 6c 6f 77 2c 20 |fputs(ov|erflow, |
|000060d0| 73 74 64 6f 75 74 29 3b | 0a 09 58 09 20 20 20 20 |stdout);|..X. |
|000060e0| 66 66 6c 75 73 68 28 73 | 74 64 6f 75 74 29 3b 0a |fflush(s|tdout);.|
|000060f0| 09 58 09 20 20 20 20 7d | 0a 09 58 09 62 75 66 66 |.X. }|..X.buff|
|00006100| 65 72 5b 30 5d 3d 27 5c | 30 27 3b 0a 09 58 09 73 |er[0]='\|0';..X.s|
|00006110| 74 72 63 61 74 28 62 75 | 66 66 65 72 2c 20 6f 76 |trcat(bu|ffer, ov|
|00006120| 65 72 66 6c 6f 77 29 3b | 0a 09 58 09 6f 76 65 72 |erflow);|..X.over|
|00006130| 66 6c 6f 77 20 3d 20 4e | 55 4c 4c 3b 0a 09 58 09 |flow = N|ULL;..X.|
|00006140| 7d 0a 09 58 20 20 20 20 | 65 6c 73 65 0a 09 58 09 |}..X |else..X.|
|00006150| 7b 0a 09 58 09 69 66 20 | 28 65 78 74 72 61 63 68 |{..X.if |(extrach|
|00006160| 61 72 29 0a 09 58 09 20 | 20 20 20 7b 0a 09 58 09 |ar)..X. | {..X.|
|00006170| 20 20 20 20 63 75 72 63 | 68 61 72 20 3d 20 31 3b | curc|har = 1;|
|00006180| 0a 09 58 09 20 20 20 20 | 69 66 20 28 69 6e 5f 66 |..X. |if (in_f|
|00006190| 69 6c 65 20 3d 3d 20 73 | 74 64 69 6e 29 0a 09 58 |ile == s|tdin)..X|
|000061a0| 09 09 7b 0a 09 58 09 09 | 70 75 74 63 68 61 72 28 |..{..X..|putchar(|
|000061b0| 65 78 74 72 61 63 68 61 | 72 29 3b 0a 09 58 09 09 |extracha|r);..X..|
|000061c0| 7d 0a 09 58 09 20 20 20 | 20 62 75 66 66 65 72 5b |}..X. | buffer[|
|000061d0| 30 5d 3d 65 78 74 72 61 | 63 68 61 72 3b 0a 09 58 |0]=extra|char;..X|
|000061e0| 09 20 20 20 20 62 75 66 | 66 65 72 5b 31 5d 3d 65 |. buf|fer[1]=e|
|000061f0| 78 74 72 61 63 68 61 72 | 3d 27 5c 30 27 3b 0a 09 |xtrachar|='\0';..|
|00006200| 58 09 20 20 20 20 7d 0a | 09 58 09 7d 0a 09 58 20 |X. }.|.X.}..X |
|00006210| 20 20 20 69 6e 70 63 68 | 61 72 20 3d 20 67 65 74 | inpch|ar = get|
|00006220| 63 28 69 6e 5f 66 69 6c | 65 29 3b 0a 09 58 20 20 |c(in_fil|e);..X |
|00006230| 20 20 69 66 20 28 69 6e | 70 63 68 61 72 20 3d 3d | if (in|pchar ==|
|00006240| 20 45 4f 46 29 0a 09 58 | 09 7b 0a 09 58 09 2a 74 | EOF)..X|.{..X.*t|
|00006250| 65 78 74 5f 65 6e 74 65 | 72 65 64 20 3d 20 45 4f |ext_ente|red = EO|
|00006260| 46 3b 0a 09 58 09 62 72 | 65 61 6b 3b 0a 09 58 09 |F;..X.br|eak;..X.|
|00006270| 7d 0a 09 58 20 20 20 20 | 69 66 28 20 69 6e 70 63 |}..X |if( inpc|
|00006280| 68 61 72 20 3d 3d 20 27 | 5c 62 27 20 29 0a 09 58 |har == '|\b' )..X|
|00006290| 09 7b 0a 09 58 09 69 66 | 20 28 20 63 75 72 63 68 |.{..X.if| ( curch|
|000062a0| 61 72 20 3e 20 30 29 0a | 09 58 09 20 20 20 20 7b |ar > 0).|.X. {|
|000062b0| 0a 09 58 09 20 20 20 20 | 69 66 20 28 69 6e 5f 66 |..X. |if (in_f|
|000062c0| 69 6c 65 20 3d 3d 20 73 | 74 64 69 6e 29 0a 09 58 |ile == s|tdin)..X|
|000062d0| 09 09 7b 0a 09 58 09 09 | 66 70 75 74 73 28 22 5c |..{..X..|fputs("\|
|000062e0| 62 20 5c 62 22 2c 20 73 | 74 64 6f 75 74 29 3b 0a |b \b", s|tdout);.|
|000062f0| 09 58 09 09 7d 0a 09 58 | 09 20 20 20 20 63 75 72 |.X..}..X|. cur|
|00006300| 63 68 61 72 20 2d 3d 20 | 32 3b 20 2f 2a 20 6f 6e |char -= |2; /* on|
|00006310| 65 20 77 69 6c 6c 20 62 | 65 20 61 64 64 65 64 20 |e will b|e added |
|00006320| 62 61 63 6b 20 69 6e 20 | 74 68 65 20 66 6f 72 20 |back in |the for |
|00006330| 6c 6f 6f 70 20 2a 2f 0a | 09 58 09 20 20 20 20 7d |loop */.|.X. }|
|00006340| 0a 09 58 09 65 6c 73 65 | 0a 09 58 09 20 20 20 20 |..X.else|..X. |
|00006350| 7b 0a 09 58 09 20 20 20 | 20 70 75 74 63 68 61 72 |{..X. | putchar|
|00006360| 28 42 45 4c 4c 29 3b 0a | 09 58 09 20 20 20 20 63 |(BELL);.|.X. c|
|00006370| 75 72 63 68 61 72 2d 2d | 3b 0a 09 58 09 20 20 20 |urchar--|;..X. |
|00006380| 20 7d 0a 09 58 09 62 75 | 66 66 65 72 5b 63 75 72 | }..X.bu|ffer[cur|
|00006390| 63 68 61 72 2b 31 5d 3d | 27 5c 30 27 3b 0a 09 58 |char+1]=|'\0';..X|
|000063a0| 09 7d 0a 09 58 20 20 20 | 20 65 6c 73 65 20 0a 09 |.}..X | else ..|
|000063b0| 58 09 7b 0a 09 58 09 69 | 66 20 28 20 69 6e 70 63 |X.{..X.i|f ( inpc|
|000063c0| 68 61 72 20 3d 3d 20 27 | 5c 74 27 20 29 0a 09 58 |har == '|\t' )..X|
|000063d0| 09 20 20 20 20 7b 0a 09 | 58 09 20 20 20 20 69 6e |. {..|X. in|
|000063e0| 70 63 68 61 72 20 3d 20 | 27 20 27 3b 0a 09 58 09 |pchar = |' ';..X.|
|000063f0| 20 20 20 20 7d 0a 09 58 | 09 65 6c 73 65 0a 09 58 | }..X|.else..X|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
