/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume4 / se / part2

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 3a 20 4a 65 | 66 66 20 4c 65 65 20 3c |From: Je|ff Lee <|
|00000010| 74 61 6c 63 6f 74 74 21 | 73 65 69 73 6d 6f 21 67 |talcott!|seismo!g|
|00000020| 61 74 65 63 68 21 6a 65 | 66 66 3e 0a 53 75 62 6a |atech!je|ff>.Subj|
|00000030| 65 63 74 3a 20 47 65 6f | 72 67 69 61 20 54 65 63 |ect: Geo|rgia Tec|
|00000040| 68 20 27 73 65 27 20 73 | 63 72 65 65 6e 20 65 64 |h 'se' s|creen ed|
|00000050| 69 74 6f 72 20 28 50 61 | 72 74 20 32 20 6f 66 20 |itor (Pa|rt 2 of |
|00000060| 38 29 0a 4b 65 79 77 6f | 72 64 73 3a 20 53 6f 66 |8).Keywo|rds: Sof|
|00000070| 74 77 61 72 65 20 54 6f | 6f 6c 73 2c 20 59 65 74 |tware To|ols, Yet|
|00000080| 20 41 6e 6f 74 68 65 72 | 20 53 63 72 65 65 6e 20 | Another| Screen |
|00000090| 45 64 69 74 6f 72 2c 20 | 42 6f 74 68 20 42 53 44 |Editor, |Both BSD|
|000000a0| 20 61 6e 64 20 55 53 47 | 0a 4e 65 77 73 67 72 6f | and USG|.Newsgro|
|000000b0| 75 70 73 3a 20 6d 6f 64 | 2e 73 6f 75 72 63 65 73 |ups: mod|.sources|
|000000c0| 0a 41 70 70 72 6f 76 65 | 64 3a 20 6a 70 6e 40 70 |.Approve|d: jpn@p|
|000000d0| 61 6e 64 61 2e 55 55 43 | 50 0a 0a 4d 6f 64 2e 73 |anda.UUC|P..Mod.s|
|000000e0| 6f 75 72 63 65 73 3a 20 | 20 56 6f 6c 75 6d 65 20 |ources: | Volume |
|000000f0| 34 2c 20 49 73 73 75 65 | 20 38 33 0a 53 75 62 6d |4, Issue| 83.Subm|
|00000100| 69 74 74 65 64 20 62 79 | 3a 20 4a 65 66 66 20 4c |itted by|: Jeff L|
|00000110| 65 65 20 3c 73 65 69 73 | 6d 6f 21 67 61 74 65 63 |ee <seis|mo!gatec|
|00000120| 68 21 6a 65 66 66 3e 0a | 0a 23 21 20 2f 62 69 6e |h!jeff>.|.#! /bin|
|00000130| 2f 73 68 0a 23 20 54 68 | 69 73 20 69 73 20 61 20 |/sh.# Th|is is a |
|00000140| 73 68 65 6c 6c 20 61 72 | 63 68 69 76 65 2c 20 6d |shell ar|chive, m|
|00000150| 65 61 6e 69 6e 67 3a 0a | 23 20 31 2e 20 52 65 6d |eaning:.|# 1. Rem|
|00000160| 6f 76 65 20 65 76 65 72 | 79 74 68 69 6e 67 20 61 |ove ever|ything a|
|00000170| 62 6f 76 65 20 74 68 65 | 20 23 21 20 2f 62 69 6e |bove the| #! /bin|
|00000180| 2f 73 68 20 6c 69 6e 65 | 2e 0a 23 20 32 2e 20 53 |/sh line|..# 2. S|
|00000190| 61 76 65 20 74 68 65 20 | 72 65 73 75 6c 74 69 6e |ave the |resultin|
|000001a0| 67 20 74 65 78 74 20 69 | 6e 20 61 20 66 69 6c 65 |g text i|n a file|
|000001b0| 2e 0a 23 20 33 2e 20 45 | 78 65 63 75 74 65 20 74 |..# 3. E|xecute t|
|000001c0| 68 65 20 66 69 6c 65 20 | 77 69 74 68 20 2f 62 69 |he file |with /bi|
|000001d0| 6e 2f 73 68 20 28 6e 6f | 74 20 63 73 68 29 20 74 |n/sh (no|t csh) t|
|000001e0| 6f 20 63 72 65 61 74 65 | 3a 0a 23 09 6d 61 69 6e |o create|:.#.main|
|000001f0| 2e 63 0a 23 09 65 64 69 | 74 2e 63 0a 23 09 73 63 |.c.#.edi|t.c.#.sc|
|00000200| 72 61 74 63 68 2e 63 0a | 23 20 54 68 69 73 20 61 |ratch.c.|# This a|
|00000210| 72 63 68 69 76 65 20 63 | 72 65 61 74 65 64 3a 20 |rchive c|reated: |
|00000220| 54 75 65 20 41 70 72 20 | 32 39 20 31 31 3a 30 31 |Tue Apr |29 11:01|
|00000230| 3a 33 33 20 31 39 38 36 | 0a 65 78 70 6f 72 74 20 |:33 1986|.export |
|00000240| 50 41 54 48 3b 20 50 41 | 54 48 3d 2f 62 69 6e 3a |PATH; PA|TH=/bin:|
|00000250| 2f 75 73 72 2f 62 69 6e | 3a 24 50 41 54 48 0a 65 |/usr/bin|:$PATH.e|
|00000260| 63 68 6f 20 73 68 61 72 | 3a 20 22 65 78 74 72 61 |cho shar|: "extra|
|00000270| 63 74 69 6e 67 20 27 6d | 61 69 6e 2e 63 27 22 20 |cting 'm|ain.c'" |
|00000280| 27 28 31 34 38 35 33 20 | 63 68 61 72 61 63 74 65 |'(14853 |characte|
|00000290| 72 73 29 27 0a 69 66 20 | 74 65 73 74 20 2d 66 20 |rs)'.if |test -f |
|000002a0| 27 6d 61 69 6e 2e 63 27 | 0a 74 68 65 6e 0a 09 65 |'main.c'|.then..e|
|000002b0| 63 68 6f 20 73 68 61 72 | 3a 20 22 77 69 6c 6c 20 |cho shar|: "will |
|000002c0| 6e 6f 74 20 6f 76 65 72 | 2d 77 72 69 74 65 20 65 |not over|-write e|
|000002d0| 78 69 73 74 69 6e 67 20 | 66 69 6c 65 20 27 6d 61 |xisting |file 'ma|
|000002e0| 69 6e 2e 63 27 22 0a 65 | 6c 73 65 0a 63 61 74 20 |in.c'".e|lse.cat |
|000002f0| 3c 3c 20 5c 53 48 41 52 | 5f 45 4f 46 20 3e 20 27 |<< \SHAR|_EOF > '|
|00000300| 6d 61 69 6e 2e 63 27 0a | 2f 2a 0a 2a 2a 20 6d 61 |main.c'.|/*.** ma|
|00000310| 69 6e 2e 63 0a 2a 2a 0a | 2a 2a 20 6d 61 69 6e 20 |in.c.**.|** main |
|00000320| 70 72 6f 67 72 61 6d 20 | 61 6e 64 20 6c 6f 74 73 |program |and lots|
|00000330| 20 6f 66 20 6f 74 68 65 | 72 20 72 6f 75 74 69 6e | of othe|r routin|
|00000340| 65 73 0a 2a 2a 20 66 6f | 72 20 74 68 65 20 73 65 |es.** fo|r the se|
|00000350| 20 73 63 72 65 65 6e 20 | 65 64 69 74 6f 72 2e 0a | screen |editor..|
|00000360| 2a 2f 0a 0a 23 69 6e 63 | 6c 75 64 65 20 22 73 65 |*/..#inc|lude "se|
|00000370| 2e 68 22 0a 0a 2f 2a 20 | 64 65 63 6c 61 72 65 20 |.h"../* |declare |
|00000380| 67 6c 6f 62 61 6c 20 76 | 61 72 69 61 62 6c 65 73 |global v|ariables|
|00000390| 20 2a 2f 0a 0a 2f 2a 20 | 43 6f 6e 63 65 72 6e 69 | */../* |Concerni|
|000003a0| 6e 67 20 6c 69 6e 65 20 | 6e 75 6d 62 65 72 73 3a |ng line |numbers:|
|000003b0| 20 2a 2f 0a 69 6e 74 20 | 4c 69 6e 65 31 3b 09 09 | */.int |Line1;..|
|000003c0| 2f 2a 20 66 69 72 73 74 | 20 6c 69 6e 65 20 6e 75 |/* first| line nu|
|000003d0| 6d 62 65 72 20 6f 6e 20 | 63 6f 6d 6d 61 6e 64 20 |mber on |command |
|000003e0| 2a 2f 0a 69 6e 74 20 4c | 69 6e 65 32 3b 09 09 2f |*/.int L|ine2;../|
|000003f0| 2a 20 73 65 63 6f 6e 64 | 20 6c 69 6e 65 20 6e 75 |* second| line nu|
|00000400| 6d 62 65 72 20 6f 6e 20 | 63 6f 6d 6d 61 6e 64 20 |mber on |command |
|00000410| 2a 2f 0a 69 6e 74 20 4e | 6c 69 6e 65 73 3b 09 09 |*/.int N|lines;..|
|00000420| 2f 2a 20 6e 75 6d 62 65 | 72 20 6f 66 20 6c 69 6e |/* numbe|r of lin|
|00000430| 65 20 6e 75 6d 62 65 72 | 73 20 73 70 65 63 69 66 |e number|s specif|
|00000440| 69 65 64 20 2a 2f 0a 69 | 6e 74 20 43 75 72 6c 6e |ied */.i|nt Curln|
|00000450| 3b 09 09 2f 2a 20 63 75 | 72 72 65 6e 74 20 6c 69 |;../* cu|rrent li|
|00000460| 6e 65 3b 20 76 61 6c 75 | 65 20 6f 66 20 64 6f 74 |ne; valu|e of dot|
|00000470| 20 2a 2f 0a 69 6e 74 20 | 4c 61 73 74 6c 6e 3b 09 | */.int |Lastln;.|
|00000480| 09 2f 2a 20 6c 61 73 74 | 20 6c 69 6e 65 3b 20 76 |./* last| line; v|
|00000490| 61 6c 75 65 20 6f 66 20 | 64 6f 6c 6c 61 72 20 2a |alue of |dollar *|
|000004a0| 2f 0a 0a 0a 2f 2a 20 43 | 6f 6e 63 65 72 6e 69 6e |/.../* C|oncernin|
|000004b0| 67 20 70 61 74 74 65 72 | 6e 73 3a 20 2a 2f 0a 63 |g patter|ns: */.c|
|000004c0| 68 61 72 20 50 61 74 5b | 4d 41 58 50 41 54 5d 20 |har Pat[|MAXPAT] |
|000004d0| 3d 20 22 22 3b 09 2f 2a | 20 73 61 76 65 64 20 70 |= "";./*| saved p|
|000004e0| 61 74 74 65 72 6e 20 2a | 2f 0a 0a 0a 2f 2a 20 43 |attern *|/.../* C|
|000004f0| 6f 6e 63 65 72 6e 69 6e | 67 20 74 68 65 20 74 65 |oncernin|g the te|
|00000500| 78 74 20 6f 66 20 6c 69 | 6e 65 73 3a 20 2a 2f 0a |xt of li|nes: */.|
|00000510| 63 68 61 72 20 54 78 74 | 5b 4d 41 58 4c 49 4e 45 |char Txt|[MAXLINE|
|00000520| 5d 3b 09 2f 2a 20 74 65 | 78 74 20 6f 66 20 63 75 |];./* te|xt of cu|
|00000530| 72 72 65 6e 74 20 6c 69 | 6e 65 20 2a 2f 0a 0a 0a |rrent li|ne */...|
|00000540| 2f 2a 20 43 6f 6e 63 65 | 72 6e 69 6e 67 20 66 69 |/* Conce|rning fi|
|00000550| 6c 65 20 6e 61 6d 65 73 | 3a 20 2a 2f 0a 63 68 61 |le names|: */.cha|
|00000560| 72 20 53 61 76 66 69 6c | 5b 4d 41 58 4c 49 4e 45 |r Savfil|[MAXLINE|
|00000570| 5d 20 3d 20 22 22 3b 09 | 2f 2a 20 72 65 6d 65 6d |] = "";.|/* remem|
|00000580| 62 65 72 65 64 20 66 69 | 6c 65 20 6e 61 6d 65 20 |bered fi|le name |
|00000590| 2a 2f 0a 0a 0a 2f 2a 20 | 43 6f 6e 63 65 72 6e 69 |*/.../* |Concerni|
|000005a0| 6e 67 20 6c 69 6e 65 20 | 64 65 73 63 72 69 70 74 |ng line |descript|
|000005b0| 6f 72 73 3a 20 2a 2f 0a | 4c 49 4e 45 44 45 53 43 |ors: */.|LINEDESC|
|000005c0| 20 42 75 66 5b 4d 41 58 | 42 55 46 5d 3b 0a 23 69 | Buf[MAX|BUF];.#i|
|000005d0| 66 64 65 66 20 4f 4c 44 | 5f 53 43 52 41 54 43 48 |fdef OLD|_SCRATCH|
|000005e0| 0a 4c 49 4e 45 44 45 53 | 43 20 2a 4c 61 73 74 62 |.LINEDES|C *Lastb|
|000005f0| 66 3b 09 2f 2a 20 6c 61 | 73 74 20 70 6f 69 6e 74 |f;./* la|st point|
|00000600| 65 72 20 75 73 65 64 20 | 69 6e 20 42 75 66 20 2a |er used |in Buf *|
|00000610| 2f 0a 4c 49 4e 45 44 45 | 53 43 20 2a 46 72 65 65 |/.LINEDE|SC *Free|
|00000620| 3b 09 09 2f 2a 20 68 65 | 61 64 20 6f 66 20 66 72 |;../* he|ad of fr|
|00000630| 65 65 20 6c 69 73 74 20 | 2a 2f 0a 23 65 6e 64 69 |ee list |*/.#endi|
|00000640| 66 0a 4c 49 4e 45 44 45 | 53 43 20 2a 4c 69 6e 65 |f.LINEDE|SC *Line|
|00000650| 30 3b 09 2f 2a 20 68 65 | 61 64 20 6f 66 20 6c 69 |0;./* he|ad of li|
|00000660| 73 74 20 6f 66 20 6c 69 | 6e 65 20 64 65 73 63 72 |st of li|ne descr|
|00000670| 69 70 74 6f 72 73 20 2a | 2f 0a 0a 0a 2f 2a 20 43 |iptors *|/.../* C|
|00000680| 6f 6e 63 65 72 6e 69 6e | 67 20 74 68 65 20 27 75 |oncernin|g the 'u|
|00000690| 6e 64 6f 27 20 63 6f 6d | 6d 61 6e 64 3a 20 2a 2f |ndo' com|mand: */|
|000006a0| 0a 4c 49 4e 45 44 45 53 | 43 20 2a 4c 69 6d 62 6f |.LINEDES|C *Limbo|
|000006b0| 3b 09 2f 2a 20 68 65 61 | 64 20 6f 66 20 6c 69 6d |;./* hea|d of lim|
|000006c0| 62 6f 20 6c 69 73 74 20 | 66 6f 72 20 75 6e 64 6f |bo list |for undo|
|000006d0| 20 2a 2f 0a 69 6e 74 20 | 4c 69 6d 63 6e 74 3b 09 | */.int |Limcnt;.|
|000006e0| 09 2f 2a 20 6e 75 6d 62 | 65 72 20 6f 66 20 6c 69 |./* numb|er of li|
|000006f0| 6e 65 73 20 69 6e 20 6c | 69 6d 62 6f 20 6c 69 73 |nes in l|imbo lis|
|00000700| 74 20 2a 2f 0a 0a 0a 2f | 2a 20 43 6f 6e 63 65 72 |t */.../|* Concer|
|00000710| 6e 69 6e 67 20 74 68 65 | 20 73 63 72 61 74 63 68 |ning the| scratch|
|00000720| 20 66 69 6c 65 3a 20 2a | 2f 0a 66 69 6c 65 64 65 | file: *|/.filede|
|00000730| 73 20 53 63 72 3b 09 09 | 2f 2a 20 73 63 72 61 74 |s Scr;..|/* scrat|
|00000740| 63 68 20 66 69 6c 65 20 | 64 65 73 63 72 69 70 74 |ch file |descript|
|00000750| 6f 72 20 2a 2f 0a 75 6e | 73 69 67 6e 65 64 20 53 |or */.un|signed S|
|00000760| 63 72 65 6e 64 3b 09 2f | 2a 20 65 6e 64 20 6f 66 |crend;./|* end of|
|00000770| 20 69 6e 66 6f 20 6f 6e | 20 73 63 72 61 74 63 68 | info on| scratch|
|00000780| 20 66 69 6c 65 20 2a 2f | 0a 63 68 61 72 20 53 63 | file */|.char Sc|
|00000790| 72 6e 61 6d 65 5b 4d 41 | 58 4c 49 4e 45 5d 3b 09 |rname[MA|XLINE];.|
|000007a0| 2f 2a 20 6e 61 6d 65 20 | 6f 66 20 73 63 72 61 74 |/* name |of scrat|
|000007b0| 63 68 20 66 69 6c 65 20 | 2a 2f 0a 69 6e 74 20 4c |ch file |*/.int L|
|000007c0| 6f 73 74 5f 6c 69 6e 65 | 73 3b 09 09 2f 2a 20 6e |ost_line|s;../* n|
|000007d0| 75 6d 62 65 72 20 6f 66 | 20 67 61 72 62 61 67 65 |umber of| garbage|
|000007e0| 20 6c 69 6e 65 73 20 69 | 6e 20 73 63 72 61 74 63 | lines i|n scratc|
|000007f0| 68 20 66 69 6c 65 20 2a | 2f 0a 0a 0a 2f 2a 20 43 |h file *|/.../* C|
|00000800| 6f 6e 63 65 72 6e 69 6e | 67 20 6d 69 73 63 65 6c |oncernin|g miscel|
|00000810| 6c 61 6e 65 6f 75 73 20 | 76 61 72 69 61 62 6c 65 |laneous |variable|
|00000820| 73 20 2a 2f 0a 69 6e 74 | 20 42 75 66 66 65 72 5f |s */.int| Buffer_|
|00000830| 63 68 61 6e 67 65 64 20 | 3d 20 4e 4f 3b 2f 2a 20 |changed |= NO;/* |
|00000840| 59 45 53 20 69 66 20 62 | 75 66 66 65 72 20 63 68 |YES if b|uffer ch|
|00000850| 61 6e 67 65 64 20 73 69 | 6e 63 65 20 6c 61 73 74 |anged si|nce last|
|00000860| 20 77 72 69 74 65 20 2a | 2f 0a 69 6e 74 20 45 72 | write *|/.int Er|
|00000870| 72 63 6f 64 65 20 3d 20 | 45 4e 4f 45 52 52 3b 09 |rcode = |ENOERR;.|
|00000880| 2f 2a 20 63 61 75 73 65 | 20 6f 66 20 6d 6f 73 74 |/* cause| of most|
|00000890| 20 72 65 63 65 6e 74 20 | 65 72 72 6f 72 20 2a 2f | recent |error */|
|000008a0| 0a 69 6e 74 20 53 61 76 | 65 72 72 63 6f 64 65 20 |.int Sav|errcode |
|000008b0| 3d 20 45 4e 4f 45 52 52 | 3b 2f 2a 20 63 61 75 73 |= ENOERR|;/* caus|
|000008c0| 65 20 6f 66 20 70 72 65 | 76 69 6f 75 73 20 65 72 |e of pre|vious er|
|000008d0| 72 6f 72 20 2a 2f 0a 69 | 6e 74 20 50 72 6f 62 61 |ror */.i|nt Proba|
|000008e0| 74 69 6f 6e 20 3d 20 4e | 4f 3b 09 2f 2a 20 59 45 |tion = N|O;./* YE|
|000008f0| 53 20 69 66 20 75 6e 73 | 61 76 65 64 20 62 75 66 |S if uns|aved buf|
|00000900| 66 65 72 20 63 61 6e 20 | 62 65 20 64 65 73 74 72 |fer can |be destr|
|00000910| 6f 79 65 64 20 2a 2f 0a | 69 6e 74 20 41 72 67 6e |oyed */.|int Argn|
|00000920| 6f 3b 09 09 2f 2a 20 63 | 6f 6d 6d 61 6e 64 20 6c |o;../* c|ommand l|
|00000930| 69 6e 65 20 61 72 67 75 | 6d 65 6e 74 20 70 6f 69 |ine argu|ment poi|
|00000940| 6e 74 65 72 20 2a 2f 0a | 63 68 61 72 20 4c 61 73 |nter */.|char Las|
|00000950| 74 5f 63 68 61 72 5f 73 | 63 61 6e 6e 65 64 20 3d |t_char_s|canned =|
|00000960| 20 30 3b 09 2f 2a 20 6c | 61 73 74 20 63 68 61 72 | 0;./* l|ast char|
|00000970| 20 73 63 61 6e 6e 65 64 | 20 77 2f 63 74 6c 2d 5b | scanned| w/ctl-[|
|00000980| 73 6c 5d 2c 20 69 6e 69 | 74 20 69 6c 6c 65 67 61 |sl], ini|t illega|
|00000990| 6c 20 20 2a 2f 0a 23 69 | 66 64 65 66 20 48 41 52 |l  */.#i|fdef HAR|
|000009a0| 44 5f 54 45 52 4d 53 0a | 69 6e 74 20 54 73 70 65 |D_TERMS.|int Tspe|
|000009b0| 65 64 3b 09 09 2f 2a 20 | 74 65 72 6d 69 6e 61 6c |ed;../* |terminal|
|000009c0| 20 73 70 65 65 64 20 69 | 6e 20 63 68 61 72 61 63 | speed i|n charac|
|000009d0| 74 65 72 73 2f 73 65 63 | 6f 6e 64 20 2a 2f 0a 23 |ters/sec|ond */.#|
|000009e0| 65 6e 64 69 66 0a 63 68 | 61 72 20 50 65 65 6b 63 |endif.ch|ar Peekc|
|000009f0| 20 3d 20 45 4f 53 3b 09 | 2f 2a 20 70 75 73 68 20 | = EOS;.|/* push |
|00000a00| 61 20 53 4b 49 50 5f 52 | 49 47 48 54 20 69 66 20 |a SKIP_R|IGHT if |
|00000a10| 61 64 64 69 6e 67 20 64 | 65 6c 69 6d 69 74 65 72 |adding d|elimiter|
|00000a20| 73 20 2a 2f 0a 23 69 66 | 64 65 66 20 42 53 44 34 |s */.#if|def BSD4|
|00000a30| 5f 32 0a 69 6e 74 20 52 | 65 61 64 69 6e 67 20 3d |_2.int R|eading =|
|00000a40| 20 4e 4f 3b 09 2f 2a 20 | 61 72 65 20 77 65 20 64 | NO;./* |are we d|
|00000a50| 6f 69 6e 67 20 74 65 72 | 6d 69 6e 61 6c 20 69 6e |oing ter|minal in|
|00000a60| 70 75 74 3f 20 2a 2f 0a | 23 65 6e 64 69 66 0a 0a |put? */.|#endif..|
|00000a70| 0a 2f 2a 20 43 6f 6e 63 | 65 72 6e 69 6e 67 20 6f |./* Conc|erning o|
|00000a80| 70 74 69 6f 6e 73 3a 20 | 2a 2f 0a 69 6e 74 20 54 |ptions: |*/.int T|
|00000a90| 61 62 73 74 6f 70 73 5b | 4d 41 58 4c 49 4e 45 5d |abstops[|MAXLINE]|
|00000aa0| 3b 09 2f 2a 20 61 72 72 | 61 79 20 6f 66 20 74 61 |;./* arr|ay of ta|
|00000ab0| 62 20 73 74 6f 70 73 20 | 2a 2f 0a 63 68 61 72 20 |b stops |*/.char |
|00000ac0| 55 6e 70 72 69 6e 74 61 | 62 6c 65 20 3d 20 27 20 |Unprinta|ble = ' |
|00000ad0| 27 3b 09 2f 2a 20 63 68 | 61 72 20 74 6f 20 70 72 |';./* ch|ar to pr|
|00000ae0| 69 6e 74 20 66 6f 72 20 | 75 6e 70 72 69 6e 74 61 |int for |unprinta|
|00000af0| 62 6c 65 20 63 68 61 72 | 73 20 2a 2f 0a 69 6e 74 |ble char|s */.int|
|00000b00| 20 41 62 73 6e 6f 73 20 | 3d 20 4e 4f 3b 09 2f 2a | Absnos |= NO;./*|
|00000b10| 20 75 73 65 20 61 62 73 | 6f 6c 75 74 65 20 6e 75 | use abs|olute nu|
|00000b20| 6d 62 65 72 73 20 69 6e | 20 6d 61 72 67 69 6e 20 |mbers in| margin |
|00000b30| 2a 2f 0a 69 6e 74 20 4e | 63 68 6f 69 73 65 20 3d |*/.int N|choise =|
|00000b40| 20 45 4f 53 3b 09 2f 2a | 20 63 68 6f 69 63 65 20 | EOS;./*| choice |
|00000b50| 6f 66 20 6c 69 6e 65 20 | 6e 75 6d 62 65 72 20 66 |of line |number f|
|00000b60| 6f 72 20 63 6f 6e 74 2e | 20 64 69 73 70 6c 61 79 |or cont.| display|
|00000b70| 20 2a 2f 0a 69 6e 74 20 | 4f 76 65 72 6c 61 79 5f | */.int |Overlay_|
|00000b80| 63 6f 6c 20 3d 20 30 3b | 09 2f 2a 20 69 6e 69 74 |col = 0;|./* init|
|00000b90| 69 61 6c 20 63 75 72 73 | 6f 72 20 63 6f 6c 75 6d |ial curs|or colum|
|00000ba0| 6e 20 66 6f 72 20 27 76 | 27 20 63 6f 6d 6d 61 6e |n for 'v|' comman|
|00000bb0| 64 20 2a 2f 0a 69 6e 74 | 20 57 61 72 6e 63 6f 6c |d */.int| Warncol|
|00000bc0| 3b 09 09 2f 2a 20 77 68 | 65 72 65 20 74 6f 20 74 |;../* wh|ere to t|
|00000bd0| 75 72 6e 20 6f 6e 20 63 | 6f 6c 75 6d 6e 20 77 61 |urn on c|olumn wa|
|00000be0| 72 6e 69 6e 67 2c 20 73 | 65 74 20 69 6e 20 64 6f |rning, s|et in do|
|00000bf0| 73 6f 70 74 28 29 20 2a | 2f 0a 69 6e 74 20 46 69 |sopt() *|/.int Fi|
|00000c00| 72 73 74 63 6f 6c 20 3d | 20 30 3b 09 2f 2a 20 6c |rstcol =| 0;./* l|
|00000c10| 65 66 74 6d 6f 73 74 20 | 63 6f 6c 75 6d 6e 20 74 |eftmost |column t|
|00000c20| 6f 20 64 69 73 70 6c 61 | 79 20 2a 2f 0a 69 6e 74 |o displa|y */.int|
|00000c30| 20 49 6e 64 65 6e 74 20 | 3d 20 31 3b 09 09 2f 2a | Indent |= 1;../*|
|00000c40| 20 69 6e 64 65 6e 74 20 | 63 6f 6c 3b 20 30 3d 73 | indent |col; 0=s|
|00000c50| 61 6d 65 20 61 73 20 70 | 72 65 76 69 6f 75 73 20 |ame as p|revious |
|00000c60| 6c 69 6e 65 20 2a 2f 0a | 69 6e 74 20 4e 6f 74 69 |line */.|int Noti|
|00000c70| 66 79 20 3d 20 59 45 53 | 3b 09 2f 2a 20 6e 6f 74 |fy = YES|;./* not|
|00000c80| 69 66 79 20 75 73 65 72 | 20 69 66 20 68 65 20 68 |ify user| if he h|
|00000c90| 61 73 20 6d 61 69 6c 20 | 69 6e 20 6d 61 69 6c 20 |as mail |in mail |
|00000ca0| 66 69 6c 65 20 2a 2f 0a | 69 6e 74 20 47 6c 6f 62 |file */.|int Glob|
|00000cb0| 61 6c 73 20 3d 20 4e 4f | 3b 09 2f 2a 20 73 75 62 |als = NO|;./* sub|
|00000cc0| 73 74 69 74 75 74 65 73 | 20 69 6e 20 61 20 67 6c |stitutes| in a gl|
|00000cd0| 6f 62 61 6c 20 64 6f 6e | 27 74 20 66 61 69 6c 20 |obal don|'t fail |
|00000ce0| 2a 2f 0a 69 6e 74 20 4e | 6f 5f 68 61 72 64 77 61 |*/.int N|o_hardwa|
|00000cf0| 72 65 3b 09 2f 2a 20 6e | 65 76 65 72 20 75 73 65 |re;./* n|ever use|
|00000d00| 20 68 61 72 64 77 61 72 | 65 20 69 6e 73 65 72 74 | hardwar|e insert|
|00000d10| 2f 64 65 6c 65 74 65 20 | 2a 2f 0a 0a 0a 23 69 66 |/delete |*/...#if|
|00000d20| 64 65 66 20 48 41 52 44 | 5f 54 45 52 4d 53 0a 2f |def HARD|_TERMS./|
|00000d30| 2a 20 43 6f 6e 63 65 72 | 6e 69 6e 67 20 74 68 65 |* Concer|ning the|
|00000d40| 20 74 65 72 6d 69 6e 61 | 6c 20 74 79 70 65 20 2a | termina|l type *|
|00000d50| 2f 0a 69 6e 74 20 54 65 | 72 6d 5f 74 79 70 65 3b |/.int Te|rm_type;|
|00000d60| 09 09 2f 2a 20 74 65 72 | 6d 69 6e 61 6c 20 74 79 |../* ter|minal ty|
|00000d70| 70 65 20 2a 2f 0a 23 65 | 6e 64 69 66 0a 0a 0a 2f |pe */.#e|ndif.../|
|00000d80| 2a 20 43 6f 6e 63 65 72 | 6e 69 6e 67 20 74 68 65 |* Concer|ning the|
|00000d90| 20 73 63 72 65 65 6e 20 | 66 6f 72 6d 61 74 3a 20 | screen |format: |
|00000da0| 2a 2f 0a 63 68 61 72 20 | 53 63 72 65 65 6e 5f 69 |*/.char |Screen_i|
|00000db0| 6d 61 67 65 5b 4d 41 58 | 52 4f 57 53 5d 5b 4d 41 |mage[MAX|ROWS][MA|
|00000dc0| 58 43 4f 4c 53 5d 3b 0a | 63 68 61 72 20 4d 73 67 |XCOLS];.|char Msg|
|00000dd0| 61 6c 6c 6f 63 5b 4d 41 | 58 43 4f 4c 53 5d 3b 09 |alloc[MA|XCOLS];.|
|00000de0| 2f 2a 20 63 6f 6c 75 6d | 6e 20 61 6c 6c 6f 63 61 |/* colum|n alloca|
|00000df0| 74 69 6f 6e 20 6f 66 20 | 73 74 61 74 75 73 20 6c |tion of |status l|
|00000e00| 69 6e 65 20 2a 2f 0a 69 | 6e 74 20 4e 72 6f 77 73 |ine */.i|nt Nrows|
|00000e10| 3b 09 09 2f 2a 20 6e 75 | 6d 62 65 72 20 6f 66 20 |;../* nu|mber of |
|00000e20| 72 6f 77 73 20 6f 6e 20 | 73 63 72 65 65 6e 20 2a |rows on |screen *|
|00000e30| 2f 0a 69 6e 74 20 4e 63 | 6f 6c 73 3b 09 09 2f 2a |/.int Nc|ols;../*|
|00000e40| 20 6e 75 6d 62 65 72 20 | 6f 66 20 63 6f 6c 75 6d | number |of colum|
|00000e50| 6e 73 20 6f 6e 20 73 63 | 72 65 65 6e 20 2a 2f 0a |ns on sc|reen */.|
|00000e60| 69 6e 74 20 43 75 72 72 | 6f 77 3b 09 09 2f 2a 20 |int Curr|ow;../* |
|00000e70| 76 65 72 74 69 63 61 6c | 20 63 75 72 73 6f 72 20 |vertical| cursor |
|00000e80| 63 6f 6f 72 64 69 6e 61 | 74 65 20 2a 2f 0a 69 6e |coordina|te */.in|
|00000e90| 74 20 43 75 72 63 6f 6c | 3b 09 09 2f 2a 20 68 6f |t Curcol|;../* ho|
|00000ea0| 72 69 7a 6f 6e 74 61 6c | 20 63 75 72 73 6f 72 20 |rizontal| cursor |
|00000eb0| 63 6f 6f 72 64 69 6e 61 | 74 65 20 2a 2f 0a 69 6e |coordina|te */.in|
|00000ec0| 74 20 54 6f 70 72 6f 77 | 3b 09 09 2f 2a 20 74 6f |t Toprow|;../* to|
|00000ed0| 70 20 72 6f 77 20 6f 66 | 20 77 69 6e 64 6f 77 20 |p row of| window |
|00000ee0| 66 69 65 6c 64 20 6f 6e | 20 73 63 72 65 65 6e 20 |field on| screen |
|00000ef0| 2a 2f 0a 69 6e 74 20 42 | 6f 74 72 6f 77 3b 09 09 |*/.int B|otrow;..|
|00000f00| 2f 2a 20 62 6f 74 74 6f | 6d 20 72 6f 77 20 6f 66 |/* botto|m row of|
|00000f10| 20 77 69 6e 64 6f 77 20 | 66 69 65 6c 64 20 6f 6e | window |field on|
|00000f20| 20 73 63 72 65 65 6e 20 | 2a 2f 0a 69 6e 74 20 43 | screen |*/.int C|
|00000f30| 6d 64 72 6f 77 3b 09 09 | 2f 2a 20 72 6f 77 20 6e |mdrow;..|/* row n|
|00000f40| 75 6d 62 65 72 20 6f 66 | 20 63 6f 6d 6d 61 6e 64 |umber of| command|
|00000f50| 20 6c 69 6e 65 20 2a 2f | 0a 69 6e 74 20 54 6f 70 | line */|.int Top|
|00000f60| 6c 6e 3b 09 09 2f 2a 20 | 6c 69 6e 65 20 6e 75 6d |ln;../* |line num|
|00000f70| 62 65 72 20 6f 66 20 66 | 69 72 73 74 20 6c 69 6e |ber of f|irst lin|
|00000f80| 65 20 6f 6e 20 73 63 72 | 65 65 6e 20 2a 2f 0a 69 |e on scr|een */.i|
|00000f90| 6e 74 20 49 6e 73 65 72 | 74 5f 6d 6f 64 65 3b 09 |nt Inser|t_mode;.|
|00000fa0| 2f 2a 20 66 6c 61 67 20 | 74 6f 20 73 70 65 63 69 |/* flag |to speci|
|00000fb0| 66 79 20 63 68 61 72 61 | 63 74 65 72 20 69 6e 73 |fy chara|cter ins|
|00000fc0| 65 72 74 69 6f 6e 20 2a | 2f 0a 69 6e 74 20 49 6e |ertion *|/.int In|
|00000fd0| 76 65 72 74 5f 63 61 73 | 65 3b 09 2f 2a 20 66 6c |vert_cas|e;./* fl|
|00000fe0| 61 67 20 74 6f 20 73 70 | 65 63 69 66 79 20 63 61 |ag to sp|ecify ca|
|00000ff0| 73 65 20 6d 61 70 70 69 | 6e 67 20 6f 6e 20 69 6e |se mappi|ng on in|
|00001000| 70 75 74 20 2a 2f 0a 69 | 6e 74 20 46 69 72 73 74 |put */.i|nt First|
|00001010| 5f 61 66 66 65 63 74 65 | 64 3b 09 2f 2a 20 6e 75 |_affecte|d;./* nu|
|00001020| 6d 62 65 72 20 6f 66 20 | 66 69 72 73 74 20 6c 69 |mber of |first li|
|00001030| 6e 65 20 61 66 66 65 63 | 74 65 64 20 62 79 20 63 |ne affec|ted by c|
|00001040| 6d 64 20 2a 2f 0a 69 6e | 74 20 52 65 6c 5f 61 3b |md */.in|t Rel_a;|
|00001050| 09 09 2f 2a 20 63 68 61 | 72 20 74 6f 20 75 73 65 |../* cha|r to use|
|00001060| 20 66 6f 72 20 66 69 72 | 73 74 20 61 6c 70 68 61 | for fir|st alpha|
|00001070| 20 6c 69 6e 65 20 6e 75 | 6d 62 65 72 20 2a 2f 0a | line nu|mber */.|
|00001080| 69 6e 74 20 52 65 6c 5f | 7a 3b 09 09 2f 2a 20 63 |int Rel_|z;../* c|
|00001090| 68 61 72 20 74 6f 20 75 | 73 65 20 66 6f 72 20 6c |har to u|se for l|
|000010a0| 61 73 74 20 61 6c 70 68 | 61 20 6c 69 6e 65 20 6e |ast alph|a line n|
|000010b0| 75 6d 62 65 72 20 2a 2f | 0a 69 6e 74 20 53 63 6c |umber */|.int Scl|
|000010c0| 69 6e 65 5b 4d 41 58 52 | 4f 57 53 5d 3b 09 2f 2a |ine[MAXR|OWS];./*|
|000010d0| 20 6c 69 6e 65 73 20 63 | 75 72 72 65 6e 74 6c 79 | lines c|urrently|
|000010e0| 20 6f 6e 20 73 63 72 65 | 65 6e 20 28 72 65 6c 20 | on scre|en (rel |
|000010f0| 74 6f 20 53 63 74 6f 70 | 29 20 2a 2f 0a 69 6e 74 |to Sctop|) */.int|
|00001100| 20 53 63 74 6f 70 3b 09 | 09 2f 2a 20 66 69 72 73 | Sctop;.|./* firs|
|00001110| 74 20 6c 69 6e 65 20 63 | 75 72 72 65 6e 74 6c 79 |t line c|urrently|
|00001120| 20 6f 6e 20 73 63 72 65 | 65 6e 20 2a 2f 0a 69 6e | on scre|en */.in|
|00001130| 74 20 53 63 6c 65 6e 3b | 09 09 2f 2a 20 6e 75 6d |t Sclen;|../* num|
|00001140| 62 65 72 20 6f 66 20 6c | 69 6e 65 73 20 63 75 72 |ber of l|ines cur|
|00001150| 72 65 6e 74 6c 79 20 6f | 6e 20 73 63 72 65 65 6e |rently o|n screen|
|00001160| 20 2a 2f 0a 63 68 61 72 | 20 42 6c 61 6e 6b 73 5b | */.char| Blanks[|
|00001170| 4d 41 58 43 4f 4c 53 5d | 3b 09 2f 2a 20 61 6c 6c |MAXCOLS]|;./* all|
|00001180| 20 62 6c 61 6e 6b 73 20 | 66 6f 72 20 66 69 6c 6c | blanks |for fill|
|00001190| 69 6e 67 20 69 6e 20 6c | 69 6e 65 73 20 6f 6e 20 |ing in l|ines on |
|000011a0| 73 63 72 65 65 6e 20 2a | 2f 0a 63 68 61 72 20 54 |screen *|/.char T|
|000011b0| 6f 62 75 66 5b 4d 41 58 | 54 4f 42 55 46 5d 3b 09 |obuf[MAX|TOBUF];.|
|000011c0| 2f 2a 20 62 75 66 66 65 | 72 20 66 6f 72 20 63 6f |/* buffe|r for co|
|000011d0| 6c 6c 65 63 74 69 6e 67 | 20 74 65 72 6d 69 6e 61 |llecting| termina|
|000011e0| 6c 20 6f 75 74 70 75 74 | 20 2a 2f 0a 63 68 61 72 |l output| */.char|
|000011f0| 20 2a 54 6f 62 70 20 3d | 20 54 6f 62 75 66 20 2d | *Tobp =| Tobuf -|
|00001200| 20 31 3b 09 2f 2a 20 70 | 6f 69 6e 74 65 72 20 74 | 1;./* p|ointer t|
|00001210| 6f 20 6c 61 73 74 20 75 | 73 65 64 20 70 61 72 74 |o last u|sed part|
|00001220| 20 6f 66 20 54 6f 62 75 | 66 20 2a 2f 0a 0a 0a 2f | of Tobu|f */.../|
|00001230| 2a 20 43 6f 6e 63 65 72 | 6e 69 6e 67 20 69 6e 74 |* Concer|ning int|
|00001240| 65 72 72 75 70 74 73 3a | 20 2a 2f 0a 69 6e 74 20 |errupts:| */.int |
|00001250| 49 6e 74 5f 63 61 75 67 | 68 74 20 3d 20 30 3b 09 |Int_caug|ht = 0;.|
|00001260| 2f 2a 20 63 61 75 67 68 | 74 20 61 20 53 49 47 49 |/* caugh|t a SIGI|
|00001270| 4e 54 20 66 72 6f 6d 20 | 75 73 65 72 20 2a 2f 0a |NT from |user */.|
|00001280| 69 6e 74 20 48 75 70 5f | 63 61 75 67 68 74 20 3d |int Hup_|caught =|
|00001290| 20 30 3b 09 2f 2a 20 63 | 61 75 67 68 74 20 61 20 | 0;./* c|aught a |
|000012a0| 53 49 47 48 55 50 20 77 | 68 65 6e 20 70 68 6f 6e |SIGHUP w|hen phon|
|000012b0| 65 20 6c 69 6e 65 20 64 | 72 6f 70 70 65 64 20 2a |e line d|ropped *|
|000012c0| 2f 0a 23 69 66 64 65 66 | 20 42 53 44 0a 69 6e 74 |/.#ifdef| BSD.int|
|000012d0| 20 43 61 74 63 68 69 6e | 67 5f 73 74 6f 70 73 3b | Catchin|g_stops;|
|000012e0| 09 2f 2a 20 63 61 74 63 | 68 69 6e 67 20 6f 72 20 |./* catc|hing or |
|000012f0| 69 67 6e 6f 72 69 6e 67 | 20 53 49 47 54 53 54 50 |ignoring| SIGTSTP|
|00001300| 27 73 3f 20 2a 2f 0a 23 | 65 6e 64 69 66 0a 0a 2f |'s? */.#|endif../|
|00001310| 2a 20 43 6f 6e 63 65 72 | 6e 69 6e 67 20 55 6e 69 |* Concer|ning Uni|
|00001320| 78 20 61 6e 64 20 53 57 | 54 20 63 6f 6d 70 61 74 |x and SW|T compat|
|00001330| 69 62 6c 69 74 79 3a 20 | 2a 2f 0a 69 6e 74 20 55 |iblity: |*/.int U|
|00001340| 6e 69 78 5f 6d 6f 64 65 | 20 3d 20 59 45 53 3b 09 |nix_mode| = YES;.|
|00001350| 2f 2a 20 62 65 68 61 76 | 69 6e 67 20 6c 69 6b 65 |/* behav|ing like|
|00001360| 20 55 6e 69 78 20 65 64 | 69 74 6f 72 73 3f 20 2a | Unix ed|itors? *|
|00001370| 2f 0a 63 68 61 72 20 42 | 41 43 4b 53 43 41 4e 20 |/.char B|ACKSCAN |
|00001380| 3d 20 27 3f 27 3b 09 2f | 2a 20 62 61 63 6b 20 73 |= '?';./|* back s|
|00001390| 63 61 6e 20 63 68 61 72 | 61 63 74 65 72 20 2a 2f |can char|acter */|
|000013a0| 0a 63 68 61 72 20 4e 4f | 54 49 4e 43 43 4c 20 3d |.char NO|TINCCL =|
|000013b0| 20 27 5e 27 3b 09 2f 2a | 20 63 6c 61 73 73 20 6e | '^';./*| class n|
|000013c0| 65 67 61 74 69 6f 6e 20 | 63 68 61 72 61 63 74 65 |egation |characte|
|000013d0| 72 20 2a 2f 0a 63 68 61 | 72 20 58 4d 41 52 4b 20 |r */.cha|r XMARK |
|000013e0| 3d 20 27 7e 27 3b 09 2f | 2a 20 67 6c 6f 62 61 6c |= '~';./|* global|
|000013f0| 20 65 78 63 6c 75 64 65 | 20 6f 6e 20 6d 61 72 6b | exclude| on mark|
|00001400| 20 6e 61 6d 65 20 2a 2f | 0a 63 68 61 72 20 45 53 | name */|.char ES|
|00001410| 43 41 50 45 20 3d 20 27 | 5c 5c 27 3b 09 2f 2a 20 |CAPE = '|\\';./* |
|00001420| 65 73 63 61 70 65 20 63 | 68 61 72 61 63 74 65 72 |escape c|haracter|
|00001430| 20 2a 2f 0a 0a 2f 2a 20 | 43 6f 6e 63 65 72 69 6e | */../* |Concerin|
|00001440| 67 20 47 65 6f 72 67 69 | 61 20 54 65 63 68 20 73 |g Georgi|a Tech s|
|00001450| 70 65 63 69 66 69 63 20 | 63 6f 64 65 3a 20 2a 2f |pecific |code: */|
|00001460| 0a 69 6e 74 20 41 74 5f | 67 74 69 63 73 20 3d 20 |.int At_|gtics = |
|00001470| 4e 4f 3b 09 2f 2a 20 61 | 72 65 20 77 65 20 72 75 |NO;./* a|re we ru|
|00001480| 6e 6e 69 6e 67 20 61 74 | 20 47 65 6f 72 67 69 61 |nning at| Georgia|
|00001490| 20 54 65 63 68 20 49 43 | 53 3f 20 2a 2f 0a 0a 2f | Tech IC|S? */../|
|000014a0| 2a 20 43 6f 6e 63 65 72 | 6e 69 6e 67 20 66 69 6c |* Concer|ning fil|
|000014b0| 65 20 65 6e 63 72 79 70 | 74 69 6f 6e 3a 20 2a 2f |e encryp|tion: */|
|000014c0| 0a 69 6e 74 20 43 72 79 | 70 74 69 6e 67 20 3d 20 |.int Cry|pting = |
|000014d0| 4e 4f 3b 09 2f 2a 20 64 | 6f 69 6e 67 20 66 69 6c |NO;./* d|oing fil|
|000014e0| 65 20 65 6e 63 72 79 70 | 74 69 6f 6e 3f 20 2a 2f |e encryp|tion? */|
|000014f0| 0a 63 68 61 72 20 4b 65 | 79 5b 4b 45 59 53 49 5a |.char Ke|y[KEYSIZ|
|00001500| 45 5d 20 3d 20 22 22 3b | 09 2f 2a 20 73 61 76 65 |E] = "";|./* save|
|00001510| 64 20 65 6e 63 72 79 70 | 74 69 6f 6e 20 6b 65 79 |d encryp|tion key|
|00001520| 20 2a 2f 0a 0a 0a 2f 2a | 20 6d 61 69 6e 20 2d 2d | */.../*| main --|
|00001530| 2d 20 6d 61 69 6e 20 70 | 72 6f 67 72 61 6d 20 66 |- main p|rogram f|
|00001540| 6f 72 20 73 63 72 65 65 | 6e 20 65 64 69 74 6f 72 |or scree|n editor|
|00001550| 20 2a 2f 0a 0a 6d 61 69 | 6e 20 28 61 72 67 63 2c | */..mai|n (argc,|
|00001560| 20 61 72 67 76 29 0a 69 | 6e 74 20 61 72 67 63 3b | argv).i|nt argc;|
|00001570| 0a 63 68 61 72 20 2a 61 | 72 67 76 5b 5d 3b 0a 7b |.char *a|rgv[];.{|
|00001580| 0a 09 63 68 61 72 20 2a | 62 61 73 65 6e 61 6d 65 |..char *|basename|
|00001590| 20 28 29 3b 0a 09 69 6e | 74 20 69 6e 74 5f 68 64 | ();..in|t int_hd|
|000015a0| 6c 72 20 28 29 2c 20 68 | 75 70 5f 68 64 6c 72 20 |lr (), h|up_hdlr |
|000015b0| 28 29 3b 0a 09 69 6e 74 | 20 28 2a 6f 6c 64 5f 69 |();..int| (*old_i|
|000015c0| 6e 74 29 28 29 2c 20 28 | 2a 6f 6c 64 5f 71 75 69 |nt)(), (|*old_qui|
|000015d0| 74 29 28 29 3b 0a 23 69 | 66 64 65 66 20 42 53 44 |t)();.#i|fdef BSD|
|000015e0| 0a 09 69 6e 74 20 73 74 | 6f 70 5f 68 64 6c 72 20 |..int st|op_hdlr |
|000015f0| 28 29 2c 20 28 2a 6f 6c | 64 5f 73 74 6f 70 29 28 |(), (*ol|d_stop)(|
|00001600| 29 3b 0a 23 65 6e 64 69 | 66 0a 09 2f 2a 20 63 61 |);.#endi|f../* ca|
|00001610| 74 63 68 20 71 75 69 74 | 20 61 6e 64 20 68 61 6e |tch quit| and han|
|00001620| 67 75 70 20 73 69 67 6e | 61 6c 73 20 2a 2f 0a 09 |gup sign|als */..|
|00001630| 2f 2a 0a 09 20 2a 20 49 | 6e 20 74 68 65 20 74 65 |/*.. * I|n the te|
|00001640| 72 6d 69 6e 61 6c 20 64 | 72 69 76 65 72 20 6d 75 |rminal d|river mu|
|00001650| 6e 67 69 6e 67 20 72 6f | 75 74 69 6e 65 73 2c 20 |nging ro|utines, |
|00001660| 77 65 20 73 65 74 20 43 | 6f 6e 74 72 6f 6c 2d 50 |we set C|ontrol-P|
|00001670| 0a 09 20 2a 20 74 6f 20 | 67 65 6e 65 72 61 74 65 |.. * to |generate|
|00001680| 20 61 6e 20 69 6e 74 65 | 72 72 75 70 74 2c 20 61 | an inte|rrupt, a|
|00001690| 6e 64 20 74 75 72 6e 20 | 6f 66 66 20 67 65 6e 65 |nd turn |off gene|
|000016a0| 72 61 74 69 6e 67 20 51 | 75 69 74 73 20 66 72 6f |rating Q|uits fro|
|000016b0| 6d 0a 09 20 2a 20 74 68 | 65 20 74 65 72 6d 69 6e |m.. * th|e termin|
|000016c0| 61 6c 2e 20 20 4e 6f 77 | 20 77 65 20 6a 75 73 74 |al.  Now| we just|
|000016d0| 20 69 67 6e 6f 72 65 20 | 74 68 65 6d 20 69 66 20 | ignore |them if |
|000016e0| 73 65 6e 74 20 66 72 6f | 6d 20 65 6c 73 65 77 68 |sent fro|m elsewh|
|000016f0| 65 72 65 2e 0a 09 20 2a | 2f 0a 0a 09 73 69 67 6e |ere... *|/...sign|
|00001700| 61 6c 20 28 53 49 47 48 | 55 50 2c 20 68 75 70 5f |al (SIGH|UP, hup_|
|00001710| 68 64 6c 72 29 3b 0a 0a | 09 6f 6c 64 5f 69 6e 74 |hdlr);..|.old_int|
|00001720| 20 3d 20 73 69 67 6e 61 | 6c 20 28 53 49 47 49 4e | = signa|l (SIGIN|
|00001730| 54 2c 20 69 6e 74 5f 68 | 64 6c 72 29 3b 0a 09 6f |T, int_h|dlr);..o|
|00001740| 6c 64 5f 71 75 69 74 20 | 3d 20 73 69 67 6e 61 6c |ld_quit |= signal|
|00001750| 20 28 53 49 47 51 55 49 | 54 2c 20 53 49 47 5f 49 | (SIGQUI|T, SIG_I|
|00001760| 47 4e 29 3b 0a 0a 23 69 | 66 64 65 66 20 6e 6f 74 |GN);..#i|fdef not|
|00001770| 64 65 66 0a 2f 2a 0a 20 | 2a 20 54 68 69 73 20 69 |def./*. |* This i|
|00001780| 73 20 63 6f 6d 6d 65 6e | 74 65 64 20 6f 75 74 20 |s commen|ted out |
|00001790| 73 6f 20 74 68 61 74 20 | 73 65 20 63 61 6e 20 62 |so that |se can b|
|000017a0| 65 20 72 75 6e 20 66 72 | 6f 6d 20 74 68 65 20 6e |e run fr|om the n|
|000017b0| 65 77 73 0a 20 2a 20 73 | 6f 66 74 77 61 72 65 2e |ews. * s|oftware.|
|000017c0| 20 20 43 6f 6d 6d 65 6e | 74 69 6e 67 20 69 74 20 |  Commen|ting it |
|000017d0| 6f 75 74 20 77 69 6c 6c | 20 61 6c 73 6f 20 61 6c |out will| also al|
|000017e0| 6c 6f 77 20 79 6f 75 20 | 74 6f 20 70 75 74 20 69 |low you |to put i|
|000017f0| 74 0a 20 2a 20 69 6e 20 | 74 68 65 20 62 61 63 6b |t. * in |the back|
|00001800| 67 72 6f 75 6e 64 2c 20 | 77 68 69 63 68 20 63 6f |ground, |which co|
|00001810| 75 6c 64 20 67 69 76 65 | 20 79 6f 75 20 74 72 6f |uld give| you tro|
|00001820| 75 62 6c 65 2e 20 53 6f | 20 62 65 77 61 72 65 2e |uble. So| beware.|
|00001830| 0a 20 2a 2f 0a 0a 09 69 | 66 20 28 6f 6c 64 5f 69 |. */...i|f (old_i|
|00001840| 6e 74 20 3d 3d 20 53 49 | 47 5f 49 47 4e 20 7c 7c |nt == SI|G_IGN |||
|00001850| 20 6f 6c 64 5f 71 75 69 | 74 20 3d 3d 20 53 49 47 | old_qui|t == SIG|
|00001860| 5f 49 47 4e 29 0a 09 7b | 0a 09 09 2f 2a 20 66 69 |_IGN)..{|.../* fi|
|00001870| 72 65 64 20 6f 66 66 20 | 69 6e 74 6f 20 74 68 65 |red off |into the|
|00001880| 20 62 61 63 6b 67 72 6f | 75 6e 64 2c 20 72 65 66 | backgro|und, ref|
|00001890| 75 73 65 20 74 6f 20 72 | 75 6e 20 2a 2f 0a 09 09 |use to r|un */...|
|000018a0| 69 66 20 28 69 73 61 74 | 74 79 20 28 66 69 6c 65 |if (isat|ty (file|
|000018b0| 6e 6f 20 28 73 74 64 69 | 6e 29 29 29 0a 09 09 7b |no (stdi|n)))...{|
|000018c0| 0a 09 09 09 66 70 72 69 | 6e 74 66 20 28 73 74 64 |....fpri|ntf (std|
|000018d0| 65 72 72 2c 20 22 25 73 | 3a 20 49 20 72 65 66 75 |err, "%s|: I refu|
|000018e0| 73 65 20 74 6f 20 72 75 | 6e 20 69 6e 20 74 68 65 |se to ru|n in the|
|000018f0| 20 62 61 63 6b 67 72 6f | 75 6e 64 2e 5c 6e 22 2c | backgro|und.\n",|
|00001900| 0a 09 09 09 09 62 61 73 | 65 6e 61 6d 65 20 28 61 |.....bas|ename (a|
|00001910| 72 67 76 5b 30 5d 29 29 | 3b 0a 09 09 09 65 78 69 |rgv[0]))|;....exi|
|00001920| 74 20 28 32 29 3b 0a 09 | 09 7d 0a 09 09 2f 2a 20 |t (2);..|.}.../* |
|00001930| 65 6c 73 65 0a 09 09 09 | 61 73 73 75 6d 65 20 69 |else....|assume i|
|00001940| 6e 70 75 74 20 69 73 20 | 61 20 73 63 72 69 70 74 |nput is |a script|
|00001950| 20 2a 2f 0a 09 7d 0a 23 | 65 6e 64 69 66 0a 0a 23 | */..}.#|endif..#|
|00001960| 69 66 64 65 66 20 42 53 | 44 0a 09 6f 6c 64 5f 73 |ifdef BS|D..old_s|
|00001970| 74 6f 70 20 3d 20 73 69 | 67 6e 61 6c 20 28 53 49 |top = si|gnal (SI|
|00001980| 47 54 53 54 50 2c 20 73 | 74 6f 70 5f 68 64 6c 72 |GTSTP, s|top_hdlr|
|00001990| 29 3b 0a 0a 09 69 66 20 | 28 6f 6c 64 5f 73 74 6f |);...if |(old_sto|
|000019a0| 70 20 3d 3d 20 53 49 47 | 5f 49 47 4e 29 09 2f 2a |p == SIG|_IGN)./*|
|000019b0| 20 72 75 6e 6e 69 6e 67 | 20 62 6f 75 72 6e 65 20 | running| bourne |
|000019c0| 73 68 65 6c 6c 20 2a 2f | 0a 09 7b 0a 09 09 73 69 |shell */|..{...si|
|000019d0| 67 6e 61 6c 20 28 53 49 | 47 54 53 54 50 2c 20 53 |gnal (SI|GTSTP, S|
|000019e0| 49 47 5f 49 47 4e 29 3b | 09 2f 2a 20 72 65 73 74 |IG_IGN);|./* rest|
|000019f0| 6f 72 65 20 69 74 20 2a | 2f 0a 09 09 43 61 74 63 |ore it *|/...Catc|
|00001a00| 68 69 6e 67 5f 73 74 6f | 70 73 20 3d 20 4e 4f 3b |hing_sto|ps = NO;|
|00001a10| 0a 09 7d 0a 09 65 6c 73 | 65 0a 09 09 43 61 74 63 |..}..els|e...Catc|
|00001a20| 68 69 6e 67 5f 73 74 6f | 70 73 20 3d 20 59 45 53 |hing_sto|ps = YES|
|00001a30| 3b 0a 09 09 2f 2a 20 72 | 75 6e 6e 69 6e 67 20 43 |;.../* r|unning C|
|00001a40| 2d 73 68 65 6c 6c 20 6f | 72 20 42 52 4c 20 73 68 |-shell o|r BRL sh|
|00001a50| 2c 20 63 61 74 63 68 20 | 43 6f 6e 74 72 6f 6c 2d |, catch |Control-|
|00001a60| 5a 27 73 20 2a 2f 0a 23 | 65 6e 64 69 66 0a 0a 09 |Z's */.#|endif...|
|00001a70| 2f 2a 20 73 65 74 20 74 | 65 72 6d 69 6e 61 6c 20 |/* set t|erminal |
|00001a80| 74 6f 20 6e 6f 20 65 63 | 68 6f 2c 20 6e 6f 20 6f |to no ec|ho, no o|
|00001a90| 75 74 70 75 74 20 70 72 | 6f 63 65 73 73 69 6e 67 |utput pr|ocessing|
|00001aa0| 2c 20 62 72 65 61 6b 20 | 65 6e 61 62 6c 65 64 20 |, break |enabled |
|00001ab0| 2a 2f 0a 09 74 74 79 65 | 64 69 74 20 28 29 3b 0a |*/..ttye|dit ();.|
|00001ac0| 0a 23 69 66 64 65 66 20 | 48 41 52 44 5f 54 45 52 |.#ifdef |HARD_TER|
|00001ad0| 4d 53 0a 09 54 73 70 65 | 65 64 20 3d 20 67 65 74 |MS..Tspe|ed = get|
|00001ae0| 73 70 65 65 64 20 28 31 | 29 3b 09 09 2f 2a 20 73 |speed (1|);../* s|
|00001af0| 70 65 65 64 20 6f 66 20 | 73 74 64 6f 75 74 20 2a |peed of |stdout *|
|00001b00| 2f 0a 23 65 6e 64 69 66 | 0a 0a 09 69 6e 69 74 69 |/.#endif|...initi|
|00001b10| 61 6c 69 7a 65 20 28 61 | 72 67 63 2c 20 61 72 67 |alize (a|rgc, arg|
|00001b20| 76 29 3b 0a 0a 09 65 64 | 69 74 20 28 61 72 67 63 |v);...ed|it (argc|
|00001b30| 2c 20 61 72 67 76 29 3b | 0a 0a 23 69 66 6e 64 65 |, argv);|..#ifnde|
|00001b40| 66 20 48 41 52 44 5f 54 | 45 52 4d 53 0a 09 74 5f |f HARD_T|ERMS..t_|
|00001b50| 65 78 69 74 20 28 29 3b | 0a 23 65 6e 64 69 66 0a |exit ();|.#endif.|
|00001b60| 0a 09 2f 2a 20 72 65 73 | 65 74 20 74 68 65 20 74 |../* res|et the t|
|00001b70| 65 72 6d 69 6e 61 6c 20 | 6d 6f 64 65 20 2a 2f 0a |erminal |mode */.|
|00001b80| 09 74 74 79 6e 6f 72 6d | 61 6c 20 28 29 3b 0a 7d |.ttynorm|al ();.}|
|00001b90| 0a 0a 0a 23 69 66 64 65 | 66 20 48 41 52 44 5f 54 |...#ifde|f HARD_T|
|00001ba0| 45 52 4d 53 0a 2f 2a 20 | 64 65 63 6f 64 65 5f 6d |ERMS./* |decode_m|
|00001bb0| 6e 65 6d 6f 6e 69 63 20 | 2d 2d 2d 20 64 65 63 6f |nemonic |--- deco|
|00001bc0| 64 65 20 61 20 74 65 72 | 6d 69 6e 61 6c 20 74 79 |de a ter|minal ty|
|00001bd0| 70 65 20 6d 6e 65 6d 6f | 6e 69 63 20 2a 2f 0a 0a |pe mnemo|nic */..|
|00001be0| 69 6e 74 20 64 65 63 6f | 64 65 5f 6d 6e 65 6d 6f |int deco|de_mnemo|
|00001bf0| 6e 69 63 20 28 73 74 72 | 29 0a 63 68 61 72 20 73 |nic (str|).char s|
|00001c00| 74 72 5b 5d 3b 0a 7b 0a | 09 69 6e 74 20 69 3b 0a |tr[];.{.|.int i;.|
|00001c10| 09 69 6e 74 20 73 74 72 | 62 73 72 20 28 29 3b 0a |.int str|bsr ();.|
|00001c20| 0a 09 73 74 61 74 69 63 | 20 73 74 72 75 63 74 20 |..static| struct |
|00001c30| 7b 0a 09 09 63 68 61 72 | 20 2a 73 3b 0a 09 09 69 |{...char| *s;...i|
|00001c40| 6e 74 20 74 3b 0a 09 7d | 20 73 74 61 62 5b 5d 20 |nt t;..}| stab[] |
|00001c50| 3d 20 7b 0a 09 09 22 39 | 35 30 22 2c 20 20 20 20 |= {..."9|50",    |
|00001c60| 20 20 20 20 20 20 54 56 | 49 39 35 30 2c 0a 09 09 |      TV|I950,...|
|00001c70| 22 61 64 6d 33 31 22 2c | 20 20 20 20 20 20 20 20 |"adm31",|        |
|00001c80| 41 44 4d 33 31 2c 20 20 | 0a 09 09 22 61 64 6d 33 |ADM31,  |..."adm3|
|00001c90| 61 22 2c 20 20 20 20 20 | 20 20 20 41 44 4d 33 41 |a",     |   ADM3A|
|00001ca0| 2c 20 20 0a 09 09 22 61 | 6e 70 22 2c 20 20 20 20 |,  ..."a|np",    |
|00001cb0| 20 20 20 20 20 20 41 4e | 50 2c 20 20 20 20 0a 09 |      AN|P,    ..|
|00001cc0| 09 22 62 31 35 30 22 2c | 20 20 20 20 20 20 20 20 |."b150",|        |
|00001cd0| 20 42 45 45 31 35 30 2c | 20 20 20 0a 09 09 22 62 | BEE150,|   ..."b|
|00001ce0| 32 30 30 22 2c 20 20 20 | 20 20 20 20 20 20 42 45 |200",   |      BE|
|00001cf0| 45 32 30 30 2c 20 20 20 | 0a 09 09 22 63 67 22 2c |E200,   |..."cg",|
|00001d00| 20 20 20 20 20 20 20 20 | 20 20 20 43 47 2c 20 20 |        |   CG,  |
|00001d10| 20 20 20 0a 09 09 22 63 | 6f 6e 73 75 6c 22 2c 20 |   ..."c|onsul", |
|00001d20| 20 20 20 20 20 20 41 44 | 44 53 39 38 30 2c 0a 09 |      AD|DS980,..|
|00001d30| 09 22 65 73 70 72 69 74 | 22 2c 20 20 20 20 20 20 |."esprit|",      |
|00001d40| 20 45 53 50 52 49 54 2c | 0a 09 09 22 66 6f 78 22 | ESPRIT,|..."fox"|
|00001d50| 2c 20 20 20 20 20 20 20 | 20 20 20 46 4f 58 2c 20 |,       |   FOX, |
|00001d60| 20 20 20 0a 09 09 22 67 | 74 34 30 22 2c 20 20 20 |   ..."g|t40",   |
|00001d70| 20 20 20 20 20 20 47 54 | 34 30 2c 20 20 20 0a 09 |      GT|40,   ..|
|00001d80| 09 22 68 31 39 22 2c 20 | 20 20 20 20 20 20 20 20 |."h19", |        |
|00001d90| 20 48 31 39 2c 20 20 20 | 20 0a 09 09 22 68 61 7a | H19,   | ..."haz|
|00001da0| 22 2c 20 20 20 20 20 20 | 20 20 20 20 48 41 5a 31 |",      |    HAZ1|
|00001db0| 35 31 30 2c 0a 09 09 22 | 68 70 32 31 22 2c 20 20 |510,..."|hp21",  |
|00001dc0| 20 20 20 20 20 20 20 48 | 50 32 31 2c 20 20 20 0a |       H|P21,   .|
|00001dd0| 09 09 22 68 7a 31 35 31 | 30 22 2c 20 20 20 20 20 |.."hz151|0",     |
|00001de0| 20 20 48 41 5a 31 35 31 | 30 2c 0a 09 09 22 69 62 |  HAZ151|0,..."ib|
|00001df0| 6d 22 2c 20 20 20 20 20 | 20 20 20 20 20 49 42 4d |m",     |     IBM|
|00001e00| 2c 20 20 20 20 0a 09 09 | 22 69 73 63 22 2c 20 20 |,    ...|"isc",  |
|00001e10| 20 20 20 20 20 20 20 20 | 49 53 43 38 30 30 31 2c |        |ISC8001,|
|00001e20| 0a 09 09 22 6e 65 74 72 | 6f 6e 22 2c 20 20 20 20 |..."netr|on",    |
|00001e30| 20 20 20 4e 45 54 52 4f | 4e 2c 20 0a 09 09 22 72 |   NETRO|N, ..."r|
|00001e40| 65 67 65 6e 74 22 2c 20 | 20 20 20 20 20 20 41 44 |egent", |      AD|
|00001e50| 44 53 31 30 30 2c 0a 09 | 09 22 72 65 67 65 6e 74 |DS100,..|."regent|
|00001e60| 34 30 22 2c 20 20 20 20 | 20 41 44 44 53 31 30 30 |40",    | ADDS100|
|00001e70| 2c 09 2f 2a 20 6b 6c 75 | 64 67 65 20 2a 2f 0a 09 |,./* klu|dge */..|
|00001e80| 09 22 73 62 65 65 22 2c | 20 20 20 20 20 20 20 20 |."sbee",|        |
|00001e90| 20 53 42 45 45 2c 20 20 | 20 0a 09 09 22 73 6f 6c | SBEE,  | ..."sol|
|00001ea0| 22 2c 20 20 20 20 20 20 | 20 20 20 20 53 4f 4c 2c |",      |    SOL,|
|00001eb0| 20 20 20 20 0a 09 09 22 | 74 72 73 38 30 22 2c 20 |    ..."|trs80", |
|00001ec0| 20 20 20 20 20 20 20 54 | 52 53 38 30 2c 20 20 0a |       T|RS80,  .|
|00001ed0| 09 09 22 74 73 31 22 2c | 20 20 20 20 20 20 20 20 |.."ts1",|        |
|00001ee0| 20 20 54 53 31 2c 0a 09 | 09 22 74 76 74 22 2c 20 |  TS1,..|."tvt", |
|00001ef0| 20 20 20 20 20 20 20 20 | 20 54 56 54 2c 20 20 20 |        | TVT,   |
|00001f00| 20 0a 09 09 22 76 63 34 | 34 30 34 22 2c 20 20 20 | ..."vc4|404",   |
|00001f10| 20 20 20 20 56 43 34 34 | 30 34 2c 0a 09 09 22 76 |    VC44|04,..."v|
|00001f20| 69 32 30 30 22 2c 20 20 | 20 20 20 20 20 20 56 49 |i200",  |      VI|
|00001f30| 32 30 30 2c 0a 09 09 22 | 76 69 33 30 30 22 2c 09 |200,..."|vi300",.|
|00001f40| 56 49 33 30 30 2c 0a 09 | 09 22 76 69 35 30 22 2c |VI300,..|."vi50",|
|00001f50| 20 20 20 20 20 20 20 20 | 20 56 49 35 30 2c 0a 09 |        | VI50,..|
|00001f60| 7d 3b 0a 0a 09 69 20 3d | 20 73 74 72 62 73 72 20 |};...i =| strbsr |
|00001f70| 28 28 63 68 61 72 20 2a | 29 73 74 61 62 2c 20 73 |((char *|)stab, s|
|00001f80| 69 7a 65 6f 66 20 28 73 | 74 61 62 29 2c 20 73 69 |izeof (s|tab), si|
|00001f90| 7a 65 6f 66 20 28 73 74 | 61 62 5b 30 5d 29 2c 20 |zeof (st|ab[0]), |
|00001fa0| 73 74 72 29 3b 0a 09 69 | 66 20 28 69 20 3d 3d 20 |str);..i|f (i == |
|00001fb0| 45 4f 46 29 0a 09 09 72 | 65 74 75 72 6e 20 28 45 |EOF)...r|eturn (E|
|00001fc0| 52 52 29 3b 0a 09 65 6c | 73 65 0a 09 09 72 65 74 |RR);..el|se...ret|
|00001fd0| 75 72 6e 20 28 73 74 61 | 62 5b 69 5d 2e 74 29 3b |urn (sta|b[i].t);|
|00001fe0| 0a 7d 0a 23 65 6e 64 69 | 66 0a 0a 0a 0a 2f 2a 20 |.}.#endi|f..../* |
|00001ff0| 65 72 72 6f 72 20 2d 2d | 2d 20 70 72 69 6e 74 20 |error --|- print |
|00002000| 65 72 72 6f 72 20 6d 65 | 73 73 61 67 65 20 61 6e |error me|ssage an|
|00002010| 64 20 64 69 65 20 73 65 | 6d 69 2d 67 72 61 63 65 |d die se|mi-grace|
|00002020| 66 75 6c 6c 79 20 2a 2f | 0a 0a 65 72 72 6f 72 20 |fully */|..error |
|00002030| 28 6d 73 67 29 0a 63 68 | 61 72 20 2a 6d 73 67 3b |(msg).ch|ar *msg;|
|00002040| 0a 7b 0a 09 2f 2a 0a 09 | 20 2a 20 59 6f 75 20 6d |.{../*..| * You m|
|00002050| 69 67 68 74 20 74 68 69 | 6e 6b 20 77 65 20 77 61 |ight thi|nk we wa|
|00002060| 6e 74 20 74 6f 20 74 72 | 79 20 61 6e 64 20 73 61 |nt to tr|y and sa|
|00002070| 76 65 20 74 68 65 20 62 | 75 66 66 65 72 2c 0a 09 |ve the b|uffer,..|
|00002080| 20 2a 20 42 55 54 2c 20 | 66 61 74 61 6c 20 65 72 | * BUT, |fatal er|
|00002090| 72 6f 72 73 20 63 61 6e | 20 62 65 20 63 61 75 73 |rors can| be caus|
|000020a0| 65 64 20 62 79 20 62 75 | 66 66 65 72 20 70 72 6f |ed by bu|ffer pro|
|000020b0| 62 6c 65 6d 73 2c 0a 09 | 20 2a 20 77 68 69 63 68 |blems,..| * which|
|000020c0| 20 77 6f 75 6c 64 20 65 | 6e 64 20 75 70 20 70 75 | would e|nd up pu|
|000020d0| 74 74 69 6e 67 20 75 73 | 20 69 6e 74 6f 20 61 20 |tting us| into a |
|000020e0| 6e 6f 6e 2d 65 6e 64 69 | 6e 67 20 72 65 63 75 72 |non-endi|ng recur|
|000020f0| 73 69 6f 6e 2e 0a 09 20 | 2a 2f 0a 0a 09 74 74 79 |sion... |*/...tty|
|00002100| 6e 6f 72 6d 61 6c 20 28 | 29 3b 0a 09 66 70 72 69 |normal (|);..fpri|
|00002110| 6e 74 66 20 28 73 74 64 | 65 72 72 2c 20 22 25 73 |ntf (std|err, "%s|
|00002120| 5c 6e 22 2c 20 6d 73 67 | 29 3b 0a 09 73 69 67 6e |\n", msg|);..sign|
|00002130| 61 6c 20 28 53 49 47 51 | 55 49 54 2c 20 53 49 47 |al (SIGQ|UIT, SIG|
|00002140| 5f 44 46 4c 29 3b 09 2f | 2a 20 72 65 73 74 6f 72 |_DFL);./|* restor|
|00002150| 65 20 6e 6f 72 6d 61 6c | 20 71 75 69 74 20 68 61 |e normal| quit ha|
|00002160| 6e 64 6c 69 6e 67 20 2a | 2f 0a 09 6b 69 6c 6c 20 |ndling *|/..kill |
|00002170| 28 67 65 74 70 69 64 28 | 29 2c 20 53 49 47 51 55 |(getpid(|), SIGQU|
|00002180| 49 54 29 3b 09 2f 2a 20 | 64 75 6d 70 20 6d 65 6d |IT);./* |dump mem|
|00002190| 6f 72 79 20 2a 2f 0a 7d | 0a 0a 0a 2f 2a 20 67 65 |ory */.}|.../* ge|
|000021a0| 74 5f 74 65 72 6d 5f 74 | 79 70 65 20 2d 2d 2d 20 |t_term_t|ype --- |
|000021b0| 66 6f 72 63 65 20 75 73 | 65 72 20 74 6f 20 64 69 |force us|er to di|
|000021c0| 76 75 6c 67 65 20 74 65 | 72 6d 69 6e 61 6c 20 74 |vulge te|rminal t|
|000021d0| 79 70 65 20 2a 2f 0a 0a | 23 69 66 6e 64 65 66 20 |ype */..|#ifndef |
|000021e0| 48 41 52 44 5f 54 45 52 | 4d 53 0a 67 65 74 5f 74 |HARD_TER|MS.get_t|
|000021f0| 65 72 6d 5f 74 79 70 65 | 20 28 29 0a 7b 0a 09 69 |erm_type| ().{..i|
|00002200| 6e 74 20 73 65 74 63 61 | 70 73 20 28 29 3b 0a 23 |nt setca|ps ();.#|
|00002210| 65 6c 73 65 0a 67 65 74 | 5f 74 65 72 6d 5f 74 79 |else.get|_term_ty|
|00002220| 70 65 20 28 74 65 72 6d | 5f 74 79 70 65 29 0a 69 |pe (term|_type).i|
|00002230| 6e 74 20 2a 74 65 72 6d | 5f 74 79 70 65 3b 0a 7b |nt *term|_type;.{|
|00002240| 0a 09 69 6e 74 20 64 65 | 63 6f 64 65 5f 6d 6e 65 |..int de|code_mne|
|00002250| 6d 6f 6e 69 63 20 28 29 | 3b 0a 23 65 6e 64 69 66 |monic ()|;.#endif|
|00002260| 0a 0a 09 63 68 61 72 20 | 2a 70 3b 0a 09 63 68 61 |...char |*p;..cha|
|00002270| 72 20 2a 67 65 74 65 6e | 76 20 28 29 3b 0a 0a 09 |r *geten|v ();...|
|00002280| 69 66 20 28 28 70 20 3d | 20 67 65 74 65 6e 76 20 |if ((p =| getenv |
|00002290| 28 22 54 45 52 4d 22 29 | 29 20 3d 3d 20 4e 55 4c |("TERM")|) == NUL|
|000022a0| 4c 29 0a 09 7b 0a 09 09 | 74 74 79 6e 6f 72 6d 61 |L)..{...|ttynorma|
|000022b0| 6c 20 28 29 3b 0a 09 09 | 66 70 72 69 6e 74 66 20 |l ();...|fprintf |
|000022c0| 28 73 74 64 65 72 72 2c | 20 22 59 6f 75 20 6d 75 |(stderr,| "You mu|
|000022d0| 73 74 20 73 65 74 20 79 | 6f 75 72 20 74 65 72 6d |st set y|our term|
|000022e0| 69 6e 61 6c 20 74 79 70 | 65 20 77 69 74 68 20 27 |inal typ|e with '|
|000022f0| 54 45 52 4d 3d 3c 74 79 | 70 65 3e 27 5c 6e 22 29 |TERM=<ty|pe>'\n")|
|00002300| 3b 0a 09 09 65 78 69 74 | 20 28 31 29 3b 0a 09 7d |;...exit| (1);..}|
|00002310| 0a 0a 23 69 66 64 65 66 | 20 48 41 52 44 5f 54 45 |..#ifdef| HARD_TE|
|00002320| 52 4d 53 0a 09 69 66 20 | 28 28 2a 74 65 72 6d 5f |RMS..if |((*term_|
|00002330| 74 79 70 65 20 3d 20 20 | 64 65 63 6f 64 65 5f 6d |type =  |decode_m|
|00002340| 6e 65 6d 6f 6e 69 63 28 | 29 29 20 3d 3d 20 45 52 |nemonic(|)) == ER|
|00002350| 52 29 0a 23 65 6c 73 65 | 0a 09 69 66 20 28 73 65 |R).#else|..if (se|
|00002360| 74 63 61 70 73 20 28 70 | 29 20 3d 3d 20 45 52 52 |tcaps (p|) == ERR|
|00002370| 29 0a 23 65 6e 64 69 66 | 0a 09 7b 0a 09 09 74 74 |).#endif|..{...tt|
|00002380| 79 6e 6f 72 6d 61 6c 20 | 28 29 3b 0a 09 09 66 70 |ynormal |();...fp|
|00002390| 72 69 6e 74 66 20 28 73 | 74 64 65 72 72 2c 20 22 |rintf (s|tderr, "|
|000023a0| 49 27 6d 20 73 6f 72 72 | 79 2c 20 62 75 74 20 49 |I'm sorr|y, but I|
|000023b0| 20 63 61 6e 27 74 20 73 | 75 70 70 6f 72 74 20 25 | can't s|upport %|
|000023c0| 73 20 74 65 72 6d 69 6e | 61 6c 73 2e 5c 6e 22 2c |s termin|als.\n",|
|000023d0| 20 70 29 3b 0a 09 09 65 | 78 69 74 20 28 31 29 3b | p);...e|xit (1);|
|000023e0| 0a 09 7d 0a 7d 0a 0a 0a | 2f 2a 20 69 6e 69 74 69 |..}.}...|/* initi|
|000023f0| 61 6c 69 7a 65 20 2d 2d | 2d 20 73 65 74 20 75 70 |alize --|- set up|
|00002400| 20 67 6c 6f 62 61 6c 20 | 64 61 74 61 20 61 72 65 | global |data are|
|00002410| 61 73 2c 20 67 65 74 20 | 74 65 72 6d 69 6e 61 6c |as, get |terminal|
|00002420| 20 74 79 70 65 20 2a 2f | 0a 0a 69 6e 69 74 69 61 | type */|..initia|
|00002430| 6c 69 7a 65 20 28 61 72 | 67 63 2c 20 61 72 67 76 |lize (ar|gc, argv|
|00002440| 29 0a 69 6e 74 20 61 72 | 67 63 3b 0a 63 68 61 72 |).int ar|gc;.char|
|00002450| 20 2a 61 72 67 76 5b 5d | 3b 0a 7b 0a 09 69 6e 74 | *argv[]|;.{..int|
|00002460| 20 69 2c 20 64 6f 73 6f | 70 74 20 28 29 3b 0a 0a | i, doso|pt ();..|
|00002470| 23 69 66 64 65 66 20 48 | 41 52 44 5f 54 45 52 4d |#ifdef H|ARD_TERM|
|00002480| 53 0a 09 69 6e 74 20 73 | 74 72 63 6d 70 20 28 29 |S..int s|trcmp ()|
|00002490| 3b 0a 09 69 6e 74 20 64 | 65 63 6f 64 65 5f 6d 6e |;..int d|ecode_mn|
|000024a0| 65 6d 6f 6e 69 63 20 28 | 29 3b 0a 09 63 68 61 72 |emonic (|);..char|
|000024b0| 20 6c 69 6e 5b 4d 41 58 | 4c 49 4e 45 5d 3b 0a 0a | lin[MAX|LINE];..|
|000024c0| 09 2f 2a 20 44 65 74 65 | 72 6d 69 6e 65 20 77 68 |./* Dete|rmine wh|
|000024d0| 61 74 20 74 79 70 65 20 | 6f 66 20 74 65 72 6d 69 |at type |of termi|
|000024e0| 6e 61 6c 20 77 65 27 72 | 65 20 6f 6e 20 2a 2f 0a |nal we'r|e on */.|
|000024f0| 09 41 72 67 6e 6f 20 3d | 20 31 3b 0a 09 73 74 72 |.Argno =| 1;..str|
|00002500| 63 70 79 20 28 6c 69 6e | 2c 20 26 61 72 67 76 5b |cpy (lin|, &argv[|
|00002510| 41 72 67 6e 6f 5d 5b 30 | 5d 29 3b 0a 09 69 66 20 |Argno][0|]);..if |
|00002520| 28 41 72 67 6e 6f 20 3c | 20 61 72 67 63 20 26 26 |(Argno <| argc &&|
|00002530| 20 6c 69 6e 5b 30 5d 20 | 3d 3d 20 27 2d 27 20 26 | lin[0] |== '-' &|
|00002540| 26 20 6c 69 6e 5b 32 5d | 20 3d 3d 20 45 4f 53 0a |& lin[2]| == EOS.|
|00002550| 09 20 20 20 20 26 26 20 | 28 6c 69 6e 5b 31 5d 20 |.    && |(lin[1] |
|00002560| 3d 3d 20 27 74 27 20 7c | 7c 20 6c 69 6e 5b 31 5d |== 't' ||| lin[1]|
|00002570| 20 3d 3d 20 27 54 27 29 | 29 0a 09 7b 0a 09 09 41 | == 'T')|)..{...A|
|00002580| 72 67 6e 6f 20 3d 20 32 | 3b 0a 09 09 69 66 20 28 |rgno = 2|;...if (|
|00002590| 41 72 67 6e 6f 20 3c 20 | 61 72 67 63 29 0a 09 09 |Argno < |argc)...|
|000025a0| 7b 0a 09 09 09 73 74 72 | 63 70 79 20 28 6c 69 6e |{....str|cpy (lin|
|000025b0| 2c 20 61 72 67 76 5b 41 | 72 67 6e 6f 5d 29 3b 0a |, argv[A|rgno]);.|
|000025c0| 09 09 09 73 74 72 6d 61 | 70 20 28 6c 69 6e 2c 20 |...strma|p (lin, |
|000025d0| 27 6c 27 29 3b 0a 09 09 | 09 54 65 72 6d 5f 74 79 |'l');...|.Term_ty|
|000025e0| 70 65 20 3d 20 64 65 63 | 6f 64 65 5f 6d 6e 65 6d |pe = dec|ode_mnem|
|000025f0| 6f 6e 69 63 20 28 6c 69 | 6e 29 3b 0a 09 09 09 69 |onic (li|n);....i|
|00002600| 66 20 28 54 65 72 6d 5f | 74 79 70 65 20 3d 3d 20 |f (Term_|type == |
|00002610| 45 52 52 29 0a 09 09 09 | 09 75 73 61 67 65 20 28 |ERR)....|.usage (|
|00002620| 29 3b 0a 09 09 09 65 6c | 73 65 0a 09 09 09 09 41 |);....el|se.....A|
|00002630| 72 67 6e 6f 2b 2b 3b 0a | 09 09 7d 0a 09 09 65 6c |rgno++;.|..}...el|
|00002640| 73 65 0a 09 09 09 75 73 | 61 67 65 20 28 29 3b 0a |se....us|age ();.|
|00002650| 09 7d 0a 09 65 6c 73 65 | 0a 09 09 67 65 74 5f 74 |.}..else|...get_t|
|00002660| 65 72 6d 5f 74 79 70 65 | 20 28 26 54 65 72 6d 5f |erm_type| (&Term_|
|00002670| 74 79 70 65 29 3b 0a 23 | 65 6c 73 65 0a 09 41 72 |type);.#|else..Ar|
|00002680| 67 6e 6f 20 3d 20 31 3b | 0a 09 67 65 74 5f 74 65 |gno = 1;|..get_te|
|00002690| 72 6d 5f 74 79 70 65 20 | 28 29 3b 0a 23 65 6e 64 |rm_type |();.#end|
|000026a0| 69 66 0a 0a 09 2f 2a 20 | 49 6e 69 74 69 61 6c 69 |if.../* |Initiali|
|000026b0| 7a 65 20 74 68 65 20 73 | 63 72 61 74 63 68 20 66 |ze the s|cratch f|
|000026c0| 69 6c 65 3a 20 2a 2f 0a | 09 6d 6b 62 75 66 20 28 |ile: */.|.mkbuf (|
|000026d0| 29 3b 0a 0a 09 2f 2a 20 | 49 6e 69 74 69 61 6c 69 |);.../* |Initiali|
|000026e0| 7a 65 20 73 63 72 65 65 | 6e 20 66 6f 72 6d 61 74 |ze scree|n format|
|000026f0| 20 70 61 72 61 6d 65 74 | 65 72 73 3a 20 2a 2f 0a | paramet|ers: */.|
|00002700| 09 73 65 74 73 63 72 65 | 65 6e 20 28 29 3b 0a 0a |.setscre|en ();..|
|00002710| 09 2f 2a 20 49 6e 69 74 | 69 61 6c 69 7a 65 20 74 |./* Init|ialize t|
|00002720| 68 65 20 61 72 72 61 79 | 20 6f 66 20 62 6c 61 6e |he array| of blan|
|00002730| 6b 73 20 74 6f 20 62 6c | 61 6e 6b 73 20 2a 2f 0a |ks to bl|anks */.|
|00002740| 09 66 6f 72 20 28 69 20 | 3d 20 30 3b 20 69 20 3c |.for (i |= 0; i <|
|00002750| 20 4e 63 6f 6c 73 3b 20 | 69 2b 2b 29 0a 09 09 42 | Ncols; |i++)...B|
|00002760| 6c 61 6e 6b 73 5b 69 5d | 20 3d 20 27 20 27 3b 0a |lanks[i]| = ' ';.|
|00002770| 09 42 6c 61 6e 6b 73 5b | 69 5d 20 3d 20 27 5c 30 |.Blanks[|i] = '\0|
|00002780| 27 3b 0a 0a 09 69 66 20 | 28 64 6f 73 6f 70 74 20 |';...if |(dosopt |
|00002790| 28 22 22 29 20 3d 3d 20 | 45 52 52 29 0a 09 09 65 |("") == |ERR)...e|
|000027a0| 72 72 6f 72 20 28 22 69 | 6e 20 69 6e 69 74 69 61 |rror ("i|n initia|
|000027b0| 6c 69 7a 65 3a 20 63 61 | 6e 27 74 20 68 61 70 70 |lize: ca|n't happ|
|000027c0| 65 6e 22 29 3b 0a 0a 09 | 72 65 74 75 72 6e 3b 0a |en");...|return;.|
|000027d0| 7d 0a 0a 0a 0a 0a 2f 2a | 20 69 6e 74 72 70 74 20 |}...../*| intrpt |
|000027e0| 2d 2d 2d 20 73 65 65 20 | 69 66 20 74 68 65 72 65 |--- see |if there|
|000027f0| 20 68 61 73 20 62 65 65 | 6e 20 61 6e 20 69 6e 74 | has bee|n an int|
|00002800| 65 72 72 75 70 74 20 6f | 72 20 68 61 6e 67 75 70 |errupt o|r hangup|
|00002810| 20 2a 2f 0a 0a 69 6e 74 | 20 69 6e 74 72 70 74 20 | */..int| intrpt |
|00002820| 28 29 0a 7b 0a 09 69 66 | 20 28 49 6e 74 5f 63 61 |().{..if| (Int_ca|
|00002830| 75 67 68 74 29 0a 09 7b | 0a 09 09 45 72 72 63 6f |ught)..{|...Errco|
|00002840| 64 65 20 3d 20 45 42 52 | 45 41 4b 3b 0a 09 09 49 |de = EBR|EAK;...I|
|00002850| 6e 74 5f 63 61 75 67 68 | 74 20 3d 20 30 3b 0a 09 |nt_caugh|t = 0;..|
|00002860| 09 72 65 74 75 72 6e 20 | 28 31 29 3b 0a 09 7d 0a |.return |(1);..}.|
|00002870| 09 65 6c 73 65 20 69 66 | 20 28 48 75 70 5f 63 61 |.else if| (Hup_ca|
|00002880| 75 67 68 74 29 0a 09 7b | 0a 09 09 45 72 72 63 6f |ught)..{|...Errco|
|00002890| 64 65 20 3d 20 45 48 41 | 4e 47 55 50 3b 0a 09 09 |de = EHA|NGUP;...|
|000028a0| 48 75 70 5f 63 61 75 67 | 68 74 20 3d 20 30 3b 0a |Hup_caug|ht = 0;.|
|000028b0| 09 09 72 65 74 75 72 6e | 20 31 3b 0a 09 7d 0a 09 |..return| 1;..}..|
|000028c0| 72 65 74 75 72 6e 20 28 | 30 29 3b 0a 7d 0a 0a 0a |return (|0);.}...|
|000028d0| 2f 2a 20 69 6e 74 5f 68 | 64 6c 72 20 2d 2d 2d 20 |/* int_h|dlr --- |
|000028e0| 68 61 6e 64 6c 65 20 61 | 6e 20 69 6e 74 65 72 72 |handle a|n interr|
|000028f0| 75 70 74 20 73 69 67 6e | 61 6c 20 2a 2f 0a 0a 69 |upt sign|al */..i|
|00002900| 6e 74 5f 68 64 6c 72 20 | 28 29 0a 7b 0a 23 69 66 |nt_hdlr |().{.#if|
|00002910| 6e 64 65 66 20 42 53 44 | 34 5f 32 0a 09 73 69 67 |ndef BSD|4_2..sig|
|00002920| 6e 61 6c 20 28 53 49 47 | 49 4e 54 2c 20 69 6e 74 |nal (SIG|INT, int|
|00002930| 5f 68 64 6c 72 29 3b 0a | 23 65 6e 64 69 66 0a 09 |_hdlr);.|#endif..|
|00002940| 49 6e 74 5f 63 61 75 67 | 68 74 20 3d 20 31 3b 0a |Int_caug|ht = 1;.|
|00002950| 7d 0a 0a 2f 2a 20 68 75 | 70 5f 68 64 6c 72 20 2d |}../* hu|p_hdlr -|
|00002960| 2d 2d 20 68 61 6e 64 6c | 65 20 61 20 68 61 6e 67 |-- handl|e a hang|
|00002970| 75 70 20 73 69 67 6e 61 | 6c 20 2a 2f 0a 0a 68 75 |up signa|l */..hu|
|00002980| 70 5f 68 64 6c 72 20 28 | 29 0a 7b 0a 23 69 66 6e |p_hdlr (|).{.#ifn|
|00002990| 64 65 66 20 42 53 44 34 | 5f 32 0a 09 73 69 67 6e |def BSD4|_2..sign|
|000029a0| 61 6c 20 28 53 49 47 48 | 55 50 2c 20 68 75 70 5f |al (SIGH|UP, hup_|
|000029b0| 68 64 6c 72 29 3b 0a 09 | 48 75 70 5f 63 61 75 67 |hdlr);..|Hup_caug|
|000029c0| 68 74 20 3d 20 31 3b 0a | 23 65 6c 73 65 0a 09 2f |ht = 1;.|#else../|
|000029d0| 2a 20 64 6f 20 74 68 69 | 6e 67 73 20 64 69 66 66 |* do thi|ngs diff|
|000029e0| 65 72 65 6e 74 20 63 61 | 75 73 65 20 6f 66 20 34 |erent ca|use of 4|
|000029f0| 2e 32 20 28 73 69 67 68 | 29 20 2a 2f 0a 09 48 75 |.2 (sigh|) */..Hu|
|00002a00| 70 5f 63 61 75 67 68 74 | 20 3d 20 31 3b 0a 09 69 |p_caught| = 1;..i|
|00002a10| 66 20 28 52 65 61 64 69 | 6e 67 29 09 2f 2a 20 64 |f (Readi|ng)./* d|
|00002a20| 6f 69 6e 67 20 74 74 79 | 20 69 2f 6f 2c 20 61 6e |oing tty| i/o, an|
|00002a30| 64 20 74 68 61 74 20 69 | 73 20 77 68 65 72 65 20 |d that i|s where |
|00002a40| 68 75 70 20 63 61 6d 65 | 20 66 72 6f 6d 20 2a 2f |hup came| from */|
|00002a50| 0a 09 09 68 61 6e 67 75 | 70 20 28 29 3b 0a 23 65 |...hangu|p ();.#e|
|00002a60| 6e 64 69 66 0a 7d 0a 0a | 23 69 66 64 65 66 20 42 |ndif.}..|#ifdef B|
|00002a70| 53 44 0a 2f 2a 20 73 74 | 6f 70 5f 68 64 6c 72 20 |SD./* st|op_hdlr |
|00002a80| 2d 2d 2d 20 68 61 6e 64 | 6c 65 20 74 68 65 20 62 |--- hand|le the b|
|00002a90| 65 72 6b 65 6c 65 79 20 | 73 74 6f 70 2f 73 75 73 |erkeley |stop/sus|
|00002aa0| 70 65 6e 64 20 73 69 67 | 6e 61 6c 20 2a 2f 0a 0a |pend sig|nal */..|
|00002ab0| 69 6e 74 20 73 74 6f 70 | 5f 68 64 6c 72 20 28 29 |int stop|_hdlr ()|
|00002ac0| 0a 7b 0a 09 63 6c 72 73 | 63 72 65 65 6e 20 28 29 |.{..clrs|creen ()|
|00002ad0| 3b 0a 09 74 66 6c 75 73 | 68 20 28 29 3b 0a 09 74 |;..tflus|h ();..t|
|00002ae0| 74 79 6e 6f 72 6d 61 6c | 20 28 29 3b 0a 23 69 66 |tynormal| ();.#if|
|00002af0| 64 65 66 20 42 53 44 34 | 5f 32 0a 09 2f 2a 20 74 |def BSD4|_2../* t|
|00002b00| 68 69 73 20 68 61 6e 64 | 6c 65 72 20 72 65 6d 61 |his hand|ler rema|
|00002b10| 69 6e 73 20 69 6e 20 65 | 66 66 65 63 74 2c 20 75 |ins in e|ffect, u|
|00002b20| 73 65 20 75 6e 63 61 74 | 63 68 61 62 6c 65 20 73 |se uncat|chable s|
|00002b30| 69 67 6e 61 6c 20 2a 2f | 0a 09 6b 69 6c 6c 20 28 |ignal */|..kill (|
|00002b40| 67 65 74 70 69 64 28 29 | 2c 20 53 49 47 53 54 4f |getpid()|, SIGSTO|
|00002b50| 50 29 3b 0a 23 65 6c 73 | 65 0a 09 2f 2a 20 61 63 |P);.#els|e../* ac|
|00002b60| 74 69 6f 6e 20 77 61 73 | 20 72 65 73 65 74 20 74 |tion was| reset t|
|00002b70| 6f 20 64 65 66 61 75 6c | 74 20 77 68 65 6e 20 77 |o defaul|t when w|
|00002b80| 65 20 63 61 75 67 68 74 | 20 69 74 20 2a 2f 0a 09 |e caught| it */..|
|00002b90| 6b 69 6c 6c 20 28 67 65 | 74 70 69 64 28 29 2c 20 |kill (ge|tpid(), |
|00002ba0| 53 49 47 54 53 54 50 29 | 3b 0a 23 65 6e 64 69 66 |SIGTSTP)|;.#endif|
|00002bb0| 0a 09 2f 2a 0a 09 20 2a | 20 75 73 65 72 20 64 6f |../*.. *| user do|
|00002bc0| 65 73 20 61 20 22 66 67 | 22 0a 09 20 2a 2f 0a 23 |es a "fg|".. */.#|
|00002bd0| 69 66 6e 64 65 66 20 42 | 53 44 34 5f 32 0a 09 73 |ifndef B|SD4_2..s|
|00002be0| 69 67 6e 61 6c 20 28 53 | 49 47 54 53 54 50 2c 20 |ignal (S|IGTSTP, |
|00002bf0| 73 74 6f 70 5f 68 64 6c | 72 29 3b 09 2f 2a 20 72 |stop_hdl|r);./* r|
|00002c00| 65 73 65 74 20 73 74 6f | 70 20 63 61 74 63 68 69 |eset sto|p catchi|
|00002c10| 6e 67 20 2a 2f 0a 23 65 | 6e 64 69 66 0a 09 74 74 |ng */.#e|ndif..tt|
|00002c20| 79 65 64 69 74 20 28 29 | 3b 0a 09 72 65 73 74 6f |yedit ()|;..resto|
|00002c30| 72 65 5f 73 63 72 65 65 | 6e 20 28 29 3b 0a 7d 0a |re_scree|n ();.}.|
|00002c40| 23 65 6e 64 69 66 0a 0a | 0a 2f 2a 20 68 61 6e 67 |#endif..|./* hang|
|00002c50| 75 70 20 2d 2d 2d 20 64 | 75 6d 70 20 63 6f 6e 74 |up --- d|ump cont|
|00002c60| 65 6e 74 73 20 6f 66 20 | 65 64 69 74 20 62 75 66 |ents of |edit buf|
|00002c70| 66 65 72 20 69 66 20 53 | 49 47 48 55 50 20 6f 63 |fer if S|IGHUP oc|
|00002c80| 63 75 72 73 20 2a 2f 0a | 0a 68 61 6e 67 75 70 20 |curs */.|.hangup |
|00002c90| 28 29 0a 7b 0a 09 2f 2a | 20 63 6c 6f 73 65 20 74 |().{../*| close t|
|00002ca0| 65 72 6d 69 6e 61 6c 20 | 74 6f 20 61 76 6f 69 64 |erminal |to avoid|
|00002cb0| 20 68 61 6e 67 69 6e 67 | 20 6f 6e 20 61 6e 79 20 | hanging| on any |
|00002cc0| 61 63 63 69 64 65 6e 74 | 61 6c 20 49 2f 4f 3a 20 |accident|al I/O: |
|00002cd0| 2a 2f 0a 09 63 6c 6f 73 | 65 20 28 30 29 3b 0a 09 |*/..clos|e (0);..|
|00002ce0| 63 6c 6f 73 65 20 28 31 | 29 3b 0a 09 63 6c 6f 73 |close (1|);..clos|
|00002cf0| 65 20 28 32 29 3b 0a 0a | 09 73 69 67 6e 61 6c 20 |e (2);..|.signal |
|00002d00| 28 53 49 47 48 55 50 2c | 20 53 49 47 5f 49 47 4e |(SIGHUP,| SIG_IGN|
|00002d10| 29 3b 0a 09 73 69 67 6e | 61 6c 20 28 53 49 47 49 |);..sign|al (SIGI|
|00002d20| 4e 54 2c 20 53 49 47 5f | 49 47 4e 29 3b 0a 09 73 |NT, SIG_|IGN);..s|
|00002d30| 69 67 6e 61 6c 20 28 53 | 49 47 51 55 49 54 2c 20 |ignal (S|IGQUIT, |
|00002d40| 53 49 47 5f 49 47 4e 29 | 3b 0a 09 48 75 70 5f 63 |SIG_IGN)|;..Hup_c|
|00002d50| 61 75 67 68 74 20 3d 20 | 30 3b 0a 09 43 72 79 70 |aught = |0;..Cryp|
|00002d60| 74 69 6e 67 20 3d 20 4e | 4f 3b 09 09 2f 2a 20 66 |ting = N|O;../* f|
|00002d70| 6f 72 63 65 20 62 75 66 | 66 65 72 20 74 6f 20 62 |orce buf|fer to b|
|00002d80| 65 20 63 6c 65 61 72 20 | 74 65 78 74 20 2a 2f 0a |e clear |text */.|
|00002d90| 09 64 6f 77 72 69 74 20 | 28 31 2c 20 4c 61 73 74 |.dowrit |(1, Last|
|00002da0| 6c 6e 2c 20 22 73 65 2e | 68 61 6e 67 75 70 22 2c |ln, "se.|hangup",|
|00002db0| 20 4e 4f 2c 20 59 45 53 | 2c 20 4e 4f 29 3b 0a 09 | NO, YES|, NO);..|
|00002dc0| 63 6c 72 62 75 66 20 28 | 29 3b 0a 09 65 78 69 74 |clrbuf (|);..exit|
|00002dd0| 20 28 31 29 3b 0a 7d 0a | 0a 0a 2f 2a 20 6d 73 77 | (1);.}.|../* msw|
|00002de0| 61 69 74 20 2d 2d 2d 20 | 6d 65 73 73 61 67 65 20 |ait --- |message |
|00002df0| 77 61 69 74 69 6e 67 20 | 73 75 62 72 6f 75 74 69 |waiting |subrouti|
|00002e00| 6e 65 20 2a 2f 0a 0a 2f | 2a 20 69 66 20 74 68 65 |ne */../|* if the|
|00002e10| 20 75 73 65 72 20 77 61 | 6e 74 73 20 74 6f 20 62 | user wa|nts to b|
|00002e20| 65 20 6e 6f 74 69 66 69 | 65 64 2c 20 61 6e 64 20 |e notifi|ed, and |
|00002e30| 74 68 65 20 6d 61 69 6c | 20 66 69 6c 65 20 69 73 |the mail| file is|
|00002e40| 20 72 65 61 64 61 62 6c | 65 2c 20 2a 2f 0a 2f 2a | readabl|e, */./*|
|00002e50| 20 61 6e 64 20 74 68 65 | 72 65 20 69 73 20 73 6f | and the|re is so|
|00002e60| 6d 65 74 68 69 6e 67 20 | 69 6e 20 69 74 2c 20 74 |mething |in it, t|
|00002e70| 68 65 6e 20 68 65 20 69 | 73 20 67 69 76 65 6e 20 |hen he i|s given |
|00002e80| 74 68 65 20 6d 65 73 73 | 61 67 65 2e 20 2a 2f 0a |the mess|age. */.|
|00002e90| 2f 2a 20 74 68 65 20 6f | 6d 20 63 6f 6d 6d 61 6e |/* the o|m comman|
|00002ea0| 64 20 74 6f 67 67 6c 65 | 73 20 4e 6f 74 69 66 79 |d toggle|s Notify|
|00002eb0| 2c 20 63 6f 6e 74 72 6f | 6c 6c 69 6e 67 20 6e 6f |, contro|lling no|
|00002ec0| 74 69 66 69 63 61 74 69 | 6f 6e 2e 20 2a 2f 0a 0a |tificati|on. */..|
|00002ed0| 23 69 6e 63 6c 75 64 65 | 20 3c 73 79 73 2f 74 79 |#include| <sys/ty|
|00002ee0| 70 65 73 2e 68 3e 0a 23 | 69 6e 63 6c 75 64 65 20 |pes.h>.#|include |
|00002ef0| 3c 73 79 73 2f 73 74 61 | 74 2e 68 3e 0a 0a 6d 73 |<sys/sta|t.h>..ms|
|00002f00| 77 61 69 74 20 28 29 0a | 7b 0a 09 69 6e 74 20 61 |wait ().|{..int a|
|00002f10| 63 63 65 73 73 20 28 29 | 3b 0a 09 63 68 61 72 20 |ccess ()|;..char |
|00002f20| 2a 67 65 74 65 6e 76 20 | 28 29 3b 0a 09 73 74 72 |*getenv |();..str|
|00002f30| 75 63 74 20 73 74 61 74 | 20 62 75 66 3b 0a 09 73 |uct stat| buf;..s|
|00002f40| 74 61 74 69 63 20 63 68 | 61 72 20 2a 6d 62 6f 78 |tatic ch|ar *mbox|
|00002f50| 20 3d 20 4e 55 4c 4c 3b | 0a 09 73 74 61 74 69 63 | = NULL;|..static|
|00002f60| 20 69 6e 74 20 66 69 72 | 73 74 20 3d 20 59 45 53 | int fir|st = YES|
|00002f70| 3b 0a 09 73 74 61 74 69 | 63 20 75 6e 73 69 67 6e |;..stati|c unsign|
|00002f80| 65 64 20 6c 6f 6e 67 20 | 6d 74 69 6d 65 20 3d 20 |ed long |mtime = |
|00002f90| 30 4c 3b 0a 0a 09 69 66 | 20 28 21 20 4e 6f 74 69 |0L;...if| (! Noti|
|00002fa0| 66 79 29 0a 09 09 72 65 | 74 75 72 6e 3b 0a 0a 09 |fy)...re|turn;...|
|00002fb0| 69 66 20 28 66 69 72 73 | 74 29 20 0a 09 7b 0a 09 |if (firs|t) ..{..|
|00002fc0| 09 66 69 72 73 74 20 3d | 20 4e 4f 3b 0a 09 09 69 |.first =| NO;...i|
|00002fd0| 66 20 28 28 6d 62 6f 78 | 20 3d 20 67 65 74 65 6e |f ((mbox| = geten|
|00002fe0| 76 20 28 22 4d 41 49 4c | 22 29 29 20 21 3d 20 4e |v ("MAIL|")) != N|
|00002ff0| 55 4c 4c 20 26 26 20 61 | 63 63 65 73 73 20 28 6d |ULL && a|ccess (m|
|00003000| 62 6f 78 2c 20 34 29 20 | 3d 3d 20 30 29 0a 09 09 |box, 4) |== 0)...|
|00003010| 7b 0a 09 09 09 69 66 20 | 28 73 74 61 74 20 28 6d |{....if |(stat (m|
|00003020| 62 6f 78 2c 20 26 62 75 | 66 29 20 3e 3d 20 30 29 |box, &bu|f) >= 0)|
|00003030| 0a 09 09 09 7b 0a 09 09 | 09 09 6d 74 69 6d 65 20 |....{...|..mtime |
|00003040| 3d 20 62 75 66 2e 73 74 | 5f 6d 74 69 6d 65 3b 0a |= buf.st|_mtime;.|
|00003050| 09 09 09 09 69 66 20 28 | 62 75 66 2e 73 74 5f 73 |....if (|buf.st_s|
|00003060| 69 7a 65 20 3e 20 30 29 | 0a 09 09 09 09 09 72 65 |ize > 0)|......re|
|00003070| 6d 61 72 6b 20 28 22 59 | 6f 75 20 68 61 76 65 20 |mark ("Y|ou have |
|00003080| 6d 61 69 6c 22 29 3b 0a | 09 09 09 7d 0a 09 09 7d |mail");.|...}...}|
|00003090| 0a 09 7d 0a 09 65 6c 73 | 65 20 69 66 20 28 6d 62 |..}..els|e if (mb|
|000030a0| 6f 78 20 26 26 20 73 74 | 61 74 20 28 6d 62 6f 78 |ox && st|at (mbox|
|000030b0| 2c 20 26 62 75 66 29 20 | 3e 3d 20 30 20 26 26 20 |, &buf) |>= 0 && |
|000030c0| 62 75 66 2e 73 74 5f 6d | 74 69 6d 65 20 3e 20 6d |buf.st_m|time > m|
|000030d0| 74 69 6d 65 29 0a 09 7b | 0a 09 09 6d 74 69 6d 65 |time)..{|...mtime|
|000030e0| 20 3d 20 62 75 66 2e 73 | 74 5f 6d 74 69 6d 65 3b | = buf.s|t_mtime;|
|000030f0| 0a 09 09 72 65 6d 61 72 | 6b 20 28 22 59 6f 75 20 |...remar|k ("You |
|00003100| 68 61 76 65 20 6e 65 77 | 20 6d 61 69 6c 22 29 3b |have new| mail");|
|00003110| 0a 09 09 74 77 72 69 74 | 65 20 28 31 2c 20 22 5c |...twrit|e (1, "\|
|00003120| 30 30 37 22 2c 20 31 29 | 3b 09 2f 2a 20 42 65 6c |007", 1)|;./* Bel|
|00003130| 6c 20 2a 2f 0a 09 7d 0a | 7d 0a 0a 0a 2f 2a 20 70 |l */..}.|}.../* p|
|00003140| 72 69 6e 74 76 65 72 62 | 6f 73 65 65 72 72 6f 72 |rintverb|oseerror|
|00003150| 6d 65 73 73 61 67 65 20 | 2d 2d 2d 20 70 72 69 6e |message |--- prin|
|00003160| 74 20 76 65 72 62 6f 73 | 65 20 65 72 72 6f 72 20 |t verbos|e error |
|00003170| 6d 65 73 73 61 67 65 20 | 2a 2f 0a 0a 70 72 69 6e |message |*/..prin|
|00003180| 74 76 65 72 62 6f 73 65 | 65 72 72 6f 72 6d 65 73 |tverbose|errormes|
|00003190| 73 61 67 65 20 28 29 0a | 7b 0a 09 73 77 69 74 63 |sage ().|{..switc|
|000031a0| 68 20 28 45 72 72 63 6f | 64 65 29 20 7b 0a 09 63 |h (Errco|de) {..c|
|000031b0| 61 73 65 20 45 42 41 43 | 4b 57 41 52 44 3a 0a 09 |ase EBAC|KWARD:..|
|000031c0| 09 72 65 6d 61 72 6b 20 | 28 22 4c 69 6e 65 20 6e |.remark |("Line n|
|000031d0| 75 6d 62 65 72 73 20 69 | 6e 20 62 61 63 6b 77 61 |umbers i|n backwa|
|000031e0| 72 64 20 6f 72 64 65 72 | 22 29 3b 20 0a 09 09 62 |rd order|"); ...b|
|000031f0| 72 65 61 6b 3b 0a 09 63 | 61 73 65 20 45 4e 4f 50 |reak;..c|ase ENOP|
|00003200| 41 54 3a 0a 09 09 72 65 | 6d 61 72 6b 20 28 22 4e |AT:...re|mark ("N|
|00003210| 6f 20 73 61 76 65 64 20 | 70 61 74 74 65 72 6e 20 |o saved |pattern |
|00003220| 2d 2d 20 73 6f 72 72 79 | 22 29 3b 20 0a 09 09 62 |-- sorry|"); ...b|
|00003230| 72 65 61 6b 3b 0a 09 63 | 61 73 65 20 45 42 41 44 |reak;..c|ase EBAD|
|00003240| 50 41 54 3a 0a 09 09 72 | 65 6d 61 72 6b 20 28 22 |PAT:...r|emark ("|
|00003250| 42 61 64 20 73 79 6e 74 | 61 78 20 69 6e 20 70 61 |Bad synt|ax in pa|
|00003260| 74 74 65 72 6e 22 29 3b | 20 0a 09 09 62 72 65 61 |ttern");| ...brea|
|00003270| 6b 3b 0a 09 63 61 73 65 | 20 45 42 41 44 53 54 52 |k;..case| EBADSTR|
|00003280| 3a 0a 09 09 72 65 6d 61 | 72 6b 20 28 22 42 61 64 |:...rema|rk ("Bad|
|00003290| 20 73 79 6e 74 61 78 20 | 69 6e 20 73 74 72 69 6e | syntax |in strin|
|000032a0| 67 20 70 61 72 61 6d 65 | 74 65 72 22 29 3b 20 0a |g parame|ter"); .|
|000032b0| 09 09 62 72 65 61 6b 3b | 0a 09 63 61 73 65 20 45 |..break;|..case E|
|000032c0| 42 41 44 53 55 42 3a 0a | 09 09 72 65 6d 61 72 6b |BADSUB:.|..remark|
|000032d0| 20 28 22 42 61 64 20 73 | 79 6e 74 61 78 20 69 6e | ("Bad s|yntax in|
|000032e0| 20 73 75 62 73 74 69 74 | 75 74 69 6f 6e 20 73 74 | substit|ution st|
|000032f0| 72 69 6e 67 22 29 3b 20 | 0a 09 09 62 72 65 61 6b |ring"); |...break|
|00003300| 3b 0a 09 63 61 73 65 20 | 45 43 41 4e 54 52 45 41 |;..case |ECANTREA|
|00003310| 44 3a 0a 09 09 72 65 6d | 61 72 6b 20 28 22 46 69 |D:...rem|ark ("Fi|
|00003320| 6c 65 20 69 73 20 6e 6f | 74 20 72 65 61 64 61 62 |le is no|t readab|
|00003330| 6c 65 22 29 3b 20 0a 09 | 09 62 72 65 61 6b 3b 0a |le"); ..|.break;.|
|00003340| 09 63 61 73 65 20 45 45 | 47 41 52 42 3a 0a 09 09 |.case EE|GARB:...|
|00003350| 72 65 6d 61 72 6b 20 28 | 22 47 61 72 62 61 67 65 |remark (|"Garbage|
|00003360| 20 61 66 74 65 72 20 79 | 6f 75 72 20 63 6f 6d 6d | after y|our comm|
|00003370| 61 6e 64 22 29 3b 20 0a | 09 09 62 72 65 61 6b 3b |and"); .|..break;|
|00003380| 0a 09 63 61 73 65 20 45 | 46 49 4c 45 4e 3a 0a 09 |..case E|FILEN:..|
|00003390| 09 72 65 6d 61 72 6b 20 | 28 22 42 61 64 20 73 79 |.remark |("Bad sy|
|000033a0| 6e 74 61 78 20 69 6e 20 | 66 69 6c 65 20 6e 61 6d |ntax in |file nam|
|000033b0| 65 22 29 3b 20 0a 09 09 | 62 72 65 61 6b 3b 0a 09 |e"); ...|break;..|
|000033c0| 63 61 73 65 20 45 42 41 | 44 54 41 42 53 3a 0a 09 |case EBA|DTABS:..|
|000033d0| 09 72 65 6d 61 72 6b 20 | 28 22 42 61 64 20 74 61 |.remark |("Bad ta|
|000033e0| 62 73 74 6f 70 20 73 79 | 6e 74 61 78 22 29 3b 20 |bstop sy|ntax"); |
|000033f0| 0a 09 09 62 72 65 61 6b | 3b 0a 09 63 61 73 65 20 |...break|;..case |
|00003400| 45 49 4e 53 49 44 45 4f | 55 54 3a 0a 09 09 72 65 |EINSIDEO|UT:...re|
|00003410| 6d 61 72 6b 20 28 22 43 | 61 6e 27 74 20 6d 6f 76 |mark ("C|an't mov|
|00003420| 65 20 61 20 67 72 6f 75 | 70 20 69 6e 74 6f 20 69 |e a grou|p into i|
|00003430| 74 73 65 6c 66 22 29 3b | 20 0a 09 09 62 72 65 61 |tself");| ...brea|
|00003440| 6b 3b 0a 09 63 61 73 65 | 20 45 4b 4e 4f 54 46 4e |k;..case| EKNOTFN|
|00003450| 44 3a 0a 09 09 72 65 6d | 61 72 6b 20 28 22 4e 6f |D:...rem|ark ("No|
|00003460| 20 6c 69 6e 65 20 68 61 | 73 20 74 68 61 74 20 6d | line ha|s that m|
|00003470| 61 72 6b 20 6e 61 6d 65 | 22 29 3b 20 0a 09 09 62 |ark name|"); ...b|
|00003480| 72 65 61 6b 3b 0a 09 63 | 61 73 65 20 45 4c 49 4e |reak;..c|ase ELIN|
|00003490| 45 31 3a 0a 09 09 72 65 | 6d 61 72 6b 20 28 22 22 |E1:...re|mark (""|
|000034a0| 29 3b 20 0a 09 09 62 72 | 65 61 6b 3b 0a 09 63 61 |); ...br|eak;..ca|
|000034b0| 73 65 20 45 32 4c 4f 4e | 47 3a 0a 09 09 72 65 6d |se E2LON|G:...rem|
|000034c0| 61 72 6b 20 28 22 52 65 | 73 75 6c 74 61 6e 74 20 |ark ("Re|sultant |
|000034d0| 6c 69 6e 65 20 74 6f 6f | 20 6c 6f 6e 67 20 74 6f |line too| long to|
|000034e0| 20 68 61 6e 64 6c 65 22 | 29 3b 20 0a 09 09 62 72 | handle"|); ...br|
|000034f0| 65 61 6b 3b 0a 09 63 61 | 73 65 20 45 4e 4f 45 52 |eak;..ca|se ENOER|
|00003500| 52 3a 0a 09 09 72 65 6d | 61 72 6b 20 28 22 4e 6f |R:...rem|ark ("No|
|00003510| 20 65 72 72 6f 72 20 74 | 6f 20 72 65 70 6f 72 74 | error t|o report|
|00003520| 22 29 3b 20 0a 09 09 62 | 72 65 61 6b 3b 0a 09 63 |"); ...b|reak;..c|
|00003530| 61 73 65 20 45 4e 4f 4c | 49 4d 42 4f 3a 0a 09 09 |ase ENOL|IMBO:...|
|00003540| 72 65 6d 61 72 6b 20 28 | 22 4e 6f 20 6c 69 6e 65 |remark (|"No line|
|00003550| 73 20 69 6e 20 6c 69 6d | 62 6f 22 29 3b 20 0a 09 |s in lim|bo"); ..|
|00003560| 09 62 72 65 61 6b 3b 0a | 09 63 61 73 65 20 45 4f |.break;.|.case EO|
|00003570| 44 4c 53 53 47 54 52 3a | 0a 09 09 72 65 6d 61 72 |DLSSGTR:|...remar|
|00003580| 6b 20 28 22 45 78 70 65 | 63 74 65 64 20 27 3c 27 |k ("Expe|cted '<'|
|00003590| 2c 20 27 3e 27 2c 20 6f | 72 20 6e 6f 74 68 69 6e |, '>', o|r nothin|
|000035a0| 67 20 61 66 74 65 72 20 | 27 6f 64 27 22 29 3b 20 |g after |'od'"); |
|000035b0| 0a 09 09 62 72 65 61 6b | 3b 0a 09 63 61 73 65 20 |...break|;..case |
|000035c0| 45 4f 52 41 4e 47 45 3a | 0a 09 09 72 65 6d 61 72 |EORANGE:|...remar|
|000035d0| 6b 20 28 22 4c 69 6e 65 | 20 6e 75 6d 62 65 72 20 |k ("Line| number |
|000035e0| 6f 75 74 20 6f 66 20 72 | 61 6e 67 65 22 29 3b 20 |out of r|ange"); |
|000035f0| 0a 09 09 62 72 65 61 6b | 3b 0a 09 63 61 73 65 20 |...break|;..case |
|00003600| 45 4f 57 48 41 54 3a 0a | 09 09 72 65 6d 61 72 6b |EOWHAT:.|..remark|
|00003610| 20 28 22 43 61 6e 27 74 | 20 72 65 63 6f 67 6e 69 | ("Can't| recogni|
|00003620| 7a 65 20 6f 70 74 69 6f | 6e 22 29 3b 20 0a 09 09 |ze optio|n"); ...|
|00003630| 62 72 65 61 6b 3b 0a 09 | 63 61 73 65 20 45 50 4e |break;..|case EPN|
|00003640| 4f 54 46 4e 44 3a 0a 09 | 09 72 65 6d 61 72 6b 20 |OTFND:..|.remark |
|00003650| 28 22 4e 6f 20 6c 69 6e | 65 20 63 6f 6e 74 61 69 |("No lin|e contai|
|00003660| 6e 73 20 74 68 61 74 20 | 70 61 74 74 65 72 6e 22 |ns that |pattern"|
|00003670| 29 3b 20 0a 09 09 62 72 | 65 61 6b 3b 0a 09 63 61 |); ...br|eak;..ca|
|00003680| 73 65 20 45 53 54 55 50 | 49 44 3a 0a 09 09 72 65 |se ESTUP|ID:...re|
|00003690| 6d 61 72 6b 20 28 22 42 | 75 66 66 65 72 20 68 61 |mark ("B|uffer ha|
|000036a0| 73 6e 27 74 20 62 65 65 | 6e 20 73 61 76 65 64 22 |sn't bee|n saved"|
|000036b0| 29 3b 20 0a 09 09 62 72 | 65 61 6b 3b 0a 09 63 61 |); ...br|eak;..ca|
|000036c0| 73 65 20 45 57 48 41 54 | 5a 41 54 3a 0a 09 09 72 |se EWHAT|ZAT:...r|
|000036d0| 65 6d 61 72 6b 20 28 22 | 4e 6f 20 63 6f 6d 6d 61 |emark ("|No comma|
|000036e0| 6e 64 20 72 65 63 6f 67 | 6e 69 7a 65 64 22 29 3b |nd recog|nized");|
|000036f0| 20 0a 09 09 62 72 65 61 | 6b 3b 0a 09 63 61 73 65 | ...brea|k;..case|
|00003700| 20 45 42 52 45 41 4b 3a | 0a 09 09 72 65 6d 61 72 | EBREAK:|...remar|
|00003710| 6b 20 28 22 59 6f 75 20 | 69 6e 74 65 72 72 75 70 |k ("You |interrup|
|00003720| 74 65 64 20 6d 65 22 29 | 3b 20 0a 09 09 62 72 65 |ted me")|; ...bre|
|00003730| 61 6b 3b 0a 09 63 61 73 | 65 20 45 4c 49 4e 45 32 |ak;..cas|e ELINE2|
|00003740| 3a 0a 09 09 72 65 6d 61 | 72 6b 20 28 22 4c 61 73 |:...rema|rk ("Las|
|00003750| 74 20 6c 69 6e 65 20 6e | 75 6d 62 65 72 20 62 65 |t line n|umber be|
|00003760| 79 6f 6e 64 20 65 6e 64 | 20 6f 66 20 66 69 6c 65 |yond end| of file|
|00003770| 22 29 3b 20 0a 09 09 62 | 72 65 61 6b 3b 0a 09 63 |"); ...b|reak;..c|
|00003780| 61 73 65 20 45 43 41 4e | 54 57 52 49 54 45 3a 0a |ase ECAN|TWRITE:.|
|00003790| 09 09 72 65 6d 61 72 6b | 20 28 22 46 69 6c 65 20 |..remark| ("File |
|000037a0| 69 73 20 6e 6f 74 20 77 | 72 69 74 65 61 62 6c 65 |is not w|riteable|
|000037b0| 22 29 3b 20 0a 09 09 62 | 72 65 61 6b 3b 0a 09 63 |"); ...b|reak;..c|
|000037c0| 61 73 65 20 45 43 41 4e | 54 49 4e 4a 45 43 54 3a |ase ECAN|TINJECT:|
|000037d0| 0a 09 09 72 65 6d 61 72 | 6b 20 28 22 4e 6f 20 72 |...remar|k ("No r|
|000037e0| 6f 6f 6d 20 66 6f 72 20 | 61 6e 79 20 6d 6f 72 65 |oom for |any more|
|000037f0| 20 6c 69 6e 65 73 21 22 | 29 3b 20 0a 09 09 62 72 | lines!"|); ...br|
|00003800| 65 61 6b 3b 0a 09 63 61 | 73 65 20 45 4e 4f 4d 41 |eak;..ca|se ENOMA|
|00003810| 54 43 48 3a 0a 09 09 72 | 65 6d 61 72 6b 20 28 22 |TCH:...r|emark ("|
|00003820| 4e 6f 20 6d 61 74 63 68 | 20 66 6f 72 20 70 61 74 |No match| for pat|
|00003830| 74 65 72 6e 22 29 3b 20 | 0a 09 09 62 72 65 61 6b |tern"); |...break|
|00003840| 3b 0a 09 63 61 73 65 20 | 45 4e 4f 46 4e 3a 0a 09 |;..case |ENOFN:..|
|00003850| 09 72 65 6d 61 72 6b 20 | 28 22 4e 6f 20 73 61 76 |.remark |("No sav|
|00003860| 65 64 20 66 69 6c 65 6e | 61 6d 65 22 29 3b 20 0a |ed filen|ame"); .|
|00003870| 09 09 62 72 65 61 6b 3b | 0a 09 63 61 73 65 20 45 |..break;|..case E|
|00003880| 42 41 44 4c 49 53 54 3a | 0a 09 09 72 65 6d 61 72 |BADLIST:|...remar|
|00003890| 6b 20 28 22 42 61 64 20 | 73 79 6e 74 61 78 20 69 |k ("Bad |syntax i|
|000038a0| 6e 20 63 68 61 72 61 63 | 74 65 72 20 6c 69 73 74 |n charac|ter list|
|000038b0| 22 29 3b 20 0a 09 09 62 | 72 65 61 6b 3b 0a 09 63 |"); ...b|reak;..c|
|000038c0| 61 73 65 20 45 4e 4f 4c | 49 53 54 3a 0a 09 09 72 |ase ENOL|IST:...r|
|000038d0| 65 6d 61 72 6b 20 28 22 | 4e 6f 20 73 61 76 65 64 |emark ("|No saved|
|000038e0| 20 63 68 61 72 61 63 74 | 65 72 20 6c 69 73 74 20 | charact|er list |
|000038f0| 2d 2d 20 73 6f 72 72 79 | 22 29 3b 20 0a 09 09 62 |-- sorry|"); ...b|
|00003900| 72 65 61 6b 3b 0a 09 63 | 61 73 65 20 45 4e 4f 4e |reak;..c|ase ENON|
|00003910| 53 45 4e 53 45 3a 0a 09 | 09 72 65 6d 61 72 6b 20 |SENSE:..|.remark |
|00003920| 28 22 55 6e 72 65 61 73 | 6f 6e 61 62 6c 65 20 76 |("Unreas|onable v|
|00003930| 61 6c 75 65 22 29 3b 20 | 0a 09 09 62 72 65 61 6b |alue"); |...break|
|00003940| 3b 0a 09 63 61 73 65 20 | 45 4e 4f 48 45 4c 50 3a |;..case |ENOHELP:|
|00003950| 0a 09 09 72 65 6d 61 72 | 6b 20 28 22 4e 6f 20 68 |...remar|k ("No h|
|00003960| 65 6c 70 20 61 76 61 69 | 6c 61 62 6c 65 22 29 3b |elp avai|lable");|
|00003970| 20 0a 09 09 62 72 65 61 | 6b 3b 0a 09 63 61 73 65 | ...brea|k;..case|
|00003980| 20 45 42 41 44 4c 4e 52 | 3a 0a 09 09 72 65 6d 61 | EBADLNR|:...rema|
|00003990| 72 6b 20 28 22 4c 69 6e | 65 20 6e 75 6d 62 65 72 |rk ("Lin|e number|
|000039a0| 73 20 6e 6f 74 20 61 6c | 6c 6f 77 65 64 22 29 3b |s not al|lowed");|
|000039b0| 20 0a 09 09 62 72 65 61 | 6b 3b 0a 09 63 61 73 65 | ...brea|k;..case|
|000039c0| 20 45 46 45 58 49 53 54 | 53 3a 0a 09 09 72 65 6d | EFEXIST|S:...rem|
|000039d0| 61 72 6b 20 28 22 46 69 | 6c 65 20 61 6c 72 65 61 |ark ("Fi|le alrea|
|000039e0| 64 79 20 65 78 69 73 74 | 73 22 29 3b 20 0a 09 09 |dy exist|s"); ...|
|000039f0| 62 72 65 61 6b 3b 0a 09 | 63 61 73 65 20 45 42 41 |break;..|case EBA|
|00003a00| 44 43 4f 4c 3a 0a 09 09 | 72 65 6d 61 72 6b 20 28 |DCOL:...|remark (|
|00003a10| 22 49 6d 70 72 6f 70 65 | 72 20 63 6f 6c 75 6d 6e |"Imprope|r column|
|00003a20| 20 6e 75 6d 62 65 72 20 | 73 70 65 63 69 66 69 63 | number |specific|
|00003a30| 61 74 69 6f 6e 22 29 3b | 20 0a 09 09 62 72 65 61 |ation");| ...brea|
|00003a40| 6b 3b 0a 09 63 61 73 65 | 20 45 4e 4f 4c 41 4e 47 |k;..case| ENOLANG|
|00003a50| 3a 0a 09 09 72 65 6d 61 | 72 6b 20 28 22 55 6e 6b |:...rema|rk ("Unk|
|00003a60| 6e 6f 77 6e 20 73 6f 75 | 72 63 65 20 6c 61 6e 67 |nown sou|rce lang|
|00003a70| 75 61 67 65 22 29 3b 20 | 0a 09 09 62 72 65 61 6b |uage"); |...break|
|00003a80| 3b 0a 09 63 61 73 65 20 | 45 54 52 55 4e 43 3a 0a |;..case |ETRUNC:.|
|00003a90| 09 09 72 65 6d 61 72 6b | 20 28 22 4c 69 6e 65 73 |..remark| ("Lines|
|00003aa0| 20 77 65 72 65 20 74 72 | 75 6e 63 61 74 65 64 22 | were tr|uncated"|
|00003ab0| 29 3b 20 0a 09 09 62 72 | 65 61 6b 3b 0a 09 63 61 |); ...br|eak;..ca|
|00003ac0| 73 65 20 45 4e 4f 53 48 | 45 4c 4c 3a 0a 09 09 72 |se ENOSH|ELL:...r|
|00003ad0| 65 6d 61 72 6b 20 28 22 | 54 79 70 65 20 63 6f 6e |emark ("|Type con|
|00003ae0| 74 72 6f 6c 2d 71 20 74 | 6f 20 72 65 62 75 69 6c |trol-q t|o rebuil|
|00003af0| 64 20 73 63 72 65 65 6e | 22 29 3b 20 0a 09 09 62 |d screen|"); ...b|
|00003b00| 72 65 61 6b 3b 0a 09 63 | 61 73 65 20 45 43 41 4e |reak;..c|ase ECAN|
|00003b10| 54 46 4f 52 4b 3a 0a 09 | 09 72 65 6d 61 72 6b 20 |TFORK:..|.remark |
|00003b20| 28 22 43 61 6e 27 74 20 | 66 6f 72 6b 20 2d 2d 2d |("Can't |fork ---|
|00003b30| 20 67 65 74 20 68 65 6c | 70 21 22 29 3b 20 0a 09 | get hel|p!"); ..|
|00003b40| 09 62 72 65 61 6b 3b 0a | 09 63 61 73 65 20 45 4e |.break;.|.case EN|
|00003b50| 4f 53 55 42 3a 0a 09 09 | 72 65 6d 61 72 6b 20 28 |OSUB:...|remark (|
|00003b60| 22 4e 6f 20 73 61 76 65 | 64 20 72 65 70 6c 61 63 |"No save|d replac|
|00003b70| 65 6d 65 6e 74 20 2d 2d | 2d 20 73 6f 72 72 79 22 |ement --|- sorry"|
|00003b80| 29 3b 20 0a 09 09 62 72 | 65 61 6b 3b 0a 09 63 61 |); ...br|eak;..ca|
|00003b90| 73 65 20 45 4e 4f 43 4d | 44 3a 0a 09 09 72 65 6d |se ENOCM|D:...rem|
|00003ba0| 61 72 6b 20 28 22 4e 6f | 20 73 61 76 65 64 20 73 |ark ("No| saved s|
|00003bb0| 68 65 6c 6c 20 63 6f 6d | 6d 61 6e 64 20 2d 2d 2d |hell com|mand ---|
|00003bc0| 20 73 6f 72 72 79 22 29 | 3b 0a 09 09 62 72 65 61 | sorry")|;...brea|
|00003bd0| 6b 3b 0a 09 64 65 66 61 | 75 6c 74 3a 0a 09 09 72 |k;..defa|ult:...r|
|00003be0| 65 6d 61 72 6b 20 28 22 | 3f 22 29 3b 20 0a 09 09 |emark ("|?"); ...|
|00003bf0| 62 72 65 61 6b 3b 0a 09 | 7d 0a 09 45 72 72 63 6f |break;..|}..Errco|
|00003c00| 64 65 20 3d 20 45 4e 4f | 45 52 52 3b 0a 7d 0a 0a |de = ENO|ERR;.}..|
|00003c10| 0a 2f 2a 20 75 73 61 67 | 65 20 2d 2d 2d 20 70 72 |./* usag|e --- pr|
|00003c20| 69 6e 74 20 75 73 61 67 | 65 20 64 69 61 67 6e 6f |int usag|e diagno|
|00003c30| 73 74 69 63 20 61 6e 64 | 20 64 69 65 20 2a 2f 0a |stic and| die */.|
|00003c40| 0a 75 73 61 67 65 20 28 | 29 0a 7b 0a 09 74 74 79 |.usage (|).{..tty|
|00003c50| 6e 6f 72 6d 61 6c 20 28 | 29 3b 0a 23 69 66 64 65 |normal (|);.#ifde|
|00003c60| 66 20 48 41 52 44 5f 54 | 45 52 4d 53 0a 09 66 70 |f HARD_T|ERMS..fp|
|00003c70| 72 69 6e 74 66 20 28 73 | 74 64 65 72 72 2c 20 22 |rintf (s|tderr, "|
|00003c80| 55 73 61 67 65 3a 20 73 | 65 20 5b 2d 74 20 3c 74 |Usage: s|e [-t <t|
|00003c90| 65 72 6d 69 6e 61 6c 3e | 5d 20 7b 20 3c 70 61 74 |erminal>|] { <pat|
|00003ca0| 68 6e 61 6d 65 20 7c 20 | 2d 3c 6f 70 74 3e 20 7d |hname | |-<opt> }|
|00003cb0| 5c 6e 22 29 3b 0a 23 65 | 6c 73 65 0a 09 66 70 72 |\n");.#e|lse..fpr|
|00003cc0| 69 6e 74 66 20 28 73 74 | 64 65 72 72 2c 20 22 55 |intf (st|derr, "U|
|00003cd0| 73 61 67 65 3a 20 73 65 | 20 7b 20 3c 70 61 74 68 |sage: se| { <path|
|00003ce0| 6e 61 6d 65 3e 20 7c 20 | 2d 3c 6f 70 74 69 6f 6e |name> | |-<option|
|00003cf0| 3e 20 7d 5c 6e 22 29 3b | 0a 23 65 6e 64 69 66 0a |> }\n");|.#endif.|
|00003d00| 09 65 78 69 74 20 28 31 | 29 3b 0a 7d 0a 53 48 41 |.exit (1|);.}.SHA|
|00003d10| 52 5f 45 4f 46 0a 66 69 | 0a 65 63 68 6f 20 73 68 |R_EOF.fi|.echo sh|
|00003d20| 61 72 3a 20 22 65 78 74 | 72 61 63 74 69 6e 67 20 |ar: "ext|racting |
|00003d30| 27 65 64 69 74 2e 63 27 | 22 20 27 28 32 37 31 36 |'edit.c'|" '(2716|
|00003d40| 33 20 63 68 61 72 61 63 | 74 65 72 73 29 27 0a 69 |3 charac|ters)'.i|
|00003d50| 66 20 74 65 73 74 20 2d | 66 20 27 65 64 69 74 2e |f test -|f 'edit.|
|00003d60| 63 27 0a 74 68 65 6e 0a | 09 65 63 68 6f 20 73 68 |c'.then.|.echo sh|
|00003d70| 61 72 3a 20 22 77 69 6c | 6c 20 6e 6f 74 20 6f 76 |ar: "wil|l not ov|
|00003d80| 65 72 2d 77 72 69 74 65 | 20 65 78 69 73 74 69 6e |er-write| existin|
|00003d90| 67 20 66 69 6c 65 20 27 | 65 64 69 74 2e 63 27 22 |g file '|edit.c'"|
|00003da0| 0a 65 6c 73 65 0a 63 61 | 74 20 3c 3c 20 5c 53 48 |.else.ca|t << \SH|
|00003db0| 41 52 5f 45 4f 46 20 3e | 20 27 65 64 69 74 2e 63 |AR_EOF >| 'edit.c|
|00003dc0| 27 0a 2f 2a 0a 2a 2a 20 | 65 64 69 74 2e 63 0a 2a |'./*.** |edit.c.*|
|00003dd0| 2a 0a 2a 2a 20 65 64 69 | 74 6f 72 20 6d 61 69 6e |*.** edi|tor main|
|00003de0| 20 72 6f 75 74 69 6e 65 | 2c 20 70 6c 75 73 20 6f | routine|, plus o|
|00003df0| 74 68 65 72 20 72 6f 75 | 74 69 6e 65 73 20 75 73 |ther rou|tines us|
|00003e00| 65 64 20 61 20 6c 6f 74 | 2e 0a 2a 2f 0a 0a 23 69 |ed a lot|..*/..#i|
|00003e10| 6e 63 6c 75 64 65 20 22 | 73 65 2e 68 22 0a 23 69 |nclude "|se.h".#i|
|00003e20| 6e 63 6c 75 64 65 20 22 | 65 78 74 65 72 6e 2e 68 |nclude "|extern.h|
|00003e30| 22 0a 0a 73 74 61 74 69 | 63 20 63 68 61 72 20 53 |"..stati|c char S|
|00003e40| 61 76 6b 6e 6d 20 3d 20 | 44 45 46 41 55 4c 54 4e |avknm = |DEFAULTN|
|00003e50| 41 4d 45 3b 09 2f 2a 20 | 73 61 76 65 64 20 6d 61 |AME;./* |saved ma|
|00003e60| 72 6b 20 6e 61 6d 65 20 | 66 6f 72 20 3c 20 61 6e |rk name |for < an|
|00003e70| 64 20 3e 20 2a 2f 0a 0a | 2f 2a 20 65 64 69 74 20 |d > */..|/* edit |
|00003e80| 2d 2d 2d 20 6d 61 69 6e | 20 72 6f 75 74 69 6e 65 |--- main| routine|
|00003e90| 20 66 6f 72 20 73 63 72 | 65 65 6e 20 65 64 69 74 | for scr|een edit|
|00003ea0| 6f 72 20 2a 2f 0a 0a 65 | 64 69 74 20 28 61 72 67 |or */..e|dit (arg|
|00003eb0| 63 2c 20 61 72 67 76 29 | 0a 69 6e 74 20 61 72 67 |c, argv)|.int arg|
|00003ec0| 63 3b 0a 63 68 61 72 20 | 2a 61 72 67 76 5b 5d 3b |c;.char |*argv[];|
|00003ed0| 0a 7b 0a 09 69 6e 74 20 | 63 75 72 73 61 76 2c 20 |.{..int |cursav, |
|00003ee0| 73 74 61 74 75 73 2c 20 | 6c 65 6e 2c 20 63 75 72 |status, |len, cur|
|00003ef0| 73 6f 72 3b 0a 09 69 6e | 74 20 63 6b 67 6c 6f 62 |sor;..in|t ckglob|
|00003f00| 20 28 29 2c 20 64 6f 63 | 6d 64 20 28 29 2c 20 64 | (), doc|md (), d|
|00003f10| 6f 67 6c 6f 62 20 28 29 | 2c 20 64 6f 72 65 61 64 |oglob ()|, doread|
|00003f20| 20 28 29 3b 0a 09 69 6e | 74 20 67 65 74 6c 73 74 | ();..in|t getlst|
|00003f30| 20 28 29 2c 20 6e 65 78 | 74 6c 6e 20 28 29 2c 20 | (), nex|tln (), |
|00003f40| 70 72 65 76 6c 6e 20 28 | 29 3b 0a 09 63 68 61 72 |prevln (|);..char|
|00003f50| 20 6c 69 6e 5b 4d 41 58 | 4c 49 4e 45 5d 2c 20 74 | lin[MAX|LINE], t|
|00003f60| 65 72 6d 3b 0a 0a 09 77 | 61 74 63 68 20 28 29 3b |erm;...w|atch ();|
|00003f70| 20 20 20 20 20 20 20 2f | 2a 20 64 69 73 70 6c 61 |       /|* displa|
|00003f80| 79 20 74 69 6d 65 20 6f | 66 20 64 61 79 20 2a 2f |y time o|f day */|
|00003f90| 0a 0a 09 67 61 74 65 63 | 68 20 28 29 3b 09 2f 2a |...gatec|h ();./*|
|00003fa0| 20 63 68 65 63 6b 20 69 | 66 20 72 75 6e 6e 69 6e | check i|f runnin|
|00003fb0| 67 20 61 74 20 47 61 74 | 65 63 68 2e 20 64 6f 20 |g at Gat|ech. do |
|00003fc0| 6d 61 67 69 63 20 73 74 | 75 66 66 20 69 66 20 79 |magic st|uff if y|
|00003fd0| 65 73 20 2a 2f 0a 0a 09 | 73 65 72 63 20 28 29 3b |es */...|serc ();|
|00003fe0| 09 2f 2a 20 65 78 65 63 | 75 74 65 20 63 6f 6d 6d |./* exec|ute comm|
|00003ff0| 61 6e 64 73 20 69 6e 20 | 24 48 4f 4d 45 2f 2e 73 |ands in |$HOME/.s|
|00004000| 65 72 63 20 66 69 6c 65 | 2c 20 69 66 20 70 6f 73 |erc file|, if pos|
|00004010| 73 69 62 6c 65 20 2a 2f | 0a 0a 09 73 74 61 74 75 |sible */|...statu|
|00004020| 73 20 3d 20 4f 4b 3b 0a | 0a 09 77 68 69 6c 65 20 |s = OK;.|..while |
|00004030| 28 73 74 61 74 75 73 20 | 3d 3d 20 4f 4b 20 26 26 |(status |== OK &&|
|00004040| 20 41 72 67 6e 6f 20 3c | 20 61 72 67 63 29 0a 09 | Argno <| argc)..|
|00004050| 7b 0a 09 09 73 74 72 63 | 70 79 20 28 6c 69 6e 2c |{...strc|py (lin,|
|00004060| 20 61 72 67 76 5b 41 72 | 67 6e 6f 5d 29 3b 0a 09 | argv[Ar|gno]);..|
|00004070| 09 6c 6f 61 64 73 74 72 | 20 28 6c 69 6e 2c 20 41 |.loadstr| (lin, A|
|00004080| 72 67 6e 6f 2c 20 50 4f | 4f 50 43 4f 4c 2c 20 4e |rgno, PO|OPCOL, N|
|00004090| 63 6f 6c 73 29 3b 0a 09 | 09 69 66 20 28 6c 69 6e |cols);..|.if (lin|
|000040a0| 5b 30 5d 20 3d 3d 20 27 | 2d 27 29 0a 09 09 7b 0a |[0] == '|-')...{.|
|000040b0| 09 09 09 6c 65 6e 20 3d | 20 73 74 72 6c 65 6e 20 |...len =| strlen |
|000040c0| 28 6c 69 6e 29 20 2b 20 | 31 3b 0a 09 09 09 6c 69 |(lin) + |1;....li|
|000040d0| 6e 5b 6c 65 6e 20 2d 20 | 31 5d 20 3d 20 27 5c 6e |n[len - |1] = '\n|
|000040e0| 27 3b 0a 09 09 09 6c 69 | 6e 5b 6c 65 6e 5d 20 3d |';....li|n[len] =|
|000040f0| 20 45 4f 53 3b 0a 09 09 | 09 6c 65 6e 20 3d 20 30 | EOS;...|.len = 0|
|00004100| 3b 0a 09 09 09 73 74 61 | 74 75 73 20 3d 20 64 6f |;....sta|tus = do|
|00004110| 6f 70 74 20 28 6c 69 6e | 2c 20 26 6c 65 6e 29 3b |opt (lin|, &len);|
|00004120| 0a 09 09 7d 0a 09 09 65 | 6c 73 65 0a 09 09 7b 0a |...}...e|lse...{.|
|00004130| 09 09 09 64 66 6c 74 73 | 6f 70 74 20 28 6c 69 6e |...dflts|opt (lin|
|00004140| 29 3b 0a 09 09 09 73 74 | 61 74 75 73 20 3d 20 64 |);....st|atus = d|
|00004150| 6f 72 65 61 64 20 28 4c | 61 73 74 6c 6e 2c 20 6c |oread (L|astln, l|
|00004160| 69 6e 2c 20 4e 4f 29 3b | 0a 09 09 7d 0a 09 09 41 |in, NO);|...}...A|
|00004170| 72 67 6e 6f 2b 2b 3b 0a | 09 7d 0a 0a 09 69 66 20 |rgno++;.|.}...if |
|00004180| 28 73 74 61 74 75 73 20 | 3d 3d 20 45 52 52 29 0a |(status |== ERR).|
|00004190| 09 7b 0a 09 09 69 66 20 | 28 45 72 72 63 6f 64 65 |.{...if |(Errcode|
|000041a0| 20 3d 3d 20 45 48 41 4e | 47 55 50 29 0a 09 09 09 | == EHAN|GUP)....|
|000041b0| 68 61 6e 67 75 70 20 28 | 29 3b 0a 09 09 70 72 69 |hangup (|);...pri|
|000041c0| 6e 74 76 65 72 62 6f 73 | 65 65 72 72 6f 72 6d 65 |ntverbos|eerrorme|
|000041d0| 73 73 61 67 65 20 28 29 | 3b 0a 09 7d 0a 09 65 6c |ssage ()|;..}..el|
|000041e0| 73 65 0a 09 09 43 75 72 | 6c 6e 20 3d 20 6d 69 6e |se...Cur|ln = min|
|000041f0| 20 28 31 2c 20 4c 61 73 | 74 6c 6e 29 3b 0a 0a 09 | (1, Las|tln);...|
|00004200| 42 75 66 66 65 72 5f 63 | 68 61 6e 67 65 64 20 3d |Buffer_c|hanged =|
|00004210| 20 4e 4f 3b 0a 09 46 69 | 72 73 74 5f 61 66 66 65 | NO;..Fi|rst_affe|
|00004220| 63 74 65 64 20 3d 20 31 | 3b 20 20 20 20 20 2f 2a |cted = 1|;     /*|
|00004230| 20 6d 61 69 6e 74 61 69 | 6e 65 64 20 62 79 20 75 | maintai|ned by u|
|00004240| 70 64 73 63 72 65 65 6e | 20 26 20 63 6f 6d 6d 61 |pdscreen| & comma|
|00004250| 6e 64 73 20 2a 2f 0a 09 | 75 70 64 73 63 72 65 65 |nds */..|updscree|
|00004260| 6e 20 28 29 3b 0a 0a 09 | 69 66 20 28 73 74 61 74 |n ();...|if (stat|
|00004270| 75 73 20 21 3d 20 45 52 | 52 29 09 2f 2a 20 6c 65 |us != ER|R)./* le|
|00004280| 61 76 65 20 6f 66 66 65 | 6e 64 69 6e 67 20 66 69 |ave offe|nding fi|
|00004290| 6c 65 20 6e 61 6d 65 20 | 6f 72 20 6f 70 74 69 6f |le name |or optio|
|000042a0| 6e 20 2a 2f 0a 09 09 6c | 69 6e 5b 30 5d 20 3d 20 |n */...l|in[0] = |
|000042b0| 45 4f 53 3b 0a 09 63 75 | 72 73 6f 72 20 3d 20 30 |EOS;..cu|rsor = 0|
|000042c0| 3b 0a 0a 09 2f 2a 20 6d | 61 69 6e 20 63 6f 6d 6d |;.../* m|ain comm|
|000042d0| 61 6e 64 20 6c 6f 6f 70 | 20 2a 2f 0a 09 64 6f 20 |and loop| */..do |
|000042e0| 7b 0a 09 09 69 6e 74 72 | 70 74 20 28 29 3b 09 2f |{...intr|pt ();./|
|000042f0| 2a 20 64 69 73 63 61 72 | 64 20 70 65 6e 64 69 6e |* discar|d pendin|
|00004300| 67 20 62 72 65 61 6b 73 | 20 28 69 6e 74 65 72 72 |g breaks| (interr|
|00004310| 75 70 74 73 29 20 2a 2f | 0a 09 09 69 66 20 28 4c |upts) */|...if (L|
|00004320| 6f 73 74 5f 6c 69 6e 65 | 73 20 3e 20 47 41 52 42 |ost_line|s > GARB|
|00004330| 5f 54 48 52 45 53 48 4f | 4c 44 0a 09 09 20 20 20 |_THRESHO|LD...   |
|00004340| 20 26 26 20 28 4c 61 73 | 74 6c 6e 20 2b 20 4c 69 | && (Las|tln + Li|
|00004350| 6d 63 6e 74 29 20 2f 20 | 4c 6f 73 74 5f 6c 69 6e |mcnt) / |Lost_lin|
|00004360| 65 73 20 3c 3d 20 47 41 | 52 42 5f 46 41 43 54 4f |es <= GA|RB_FACTO|
|00004370| 52 29 0a 09 09 09 67 61 | 72 62 61 67 65 5f 63 6f |R)....ga|rbage_co|
|00004380| 6c 6c 65 63 74 20 28 29 | 3b 0a 0a 09 09 6d 73 77 |llect ()|;....msw|
|00004390| 61 69 74 20 28 29 3b 09 | 2f 2a 20 63 68 65 63 6b |ait ();.|/* check|
|000043a0| 20 66 6f 72 20 70 65 6e | 64 69 6e 67 20 6d 65 73 | for pen|ding mes|
|000043b0| 73 61 67 65 73 20 2a 2f | 0a 09 09 43 6d 64 72 6f |sages */|...Cmdro|
|000043c0| 77 20 3d 20 42 6f 74 72 | 6f 77 20 2b 20 31 3b 20 |w = Botr|ow + 1; |
|000043d0| 20 20 20 2f 2a 20 72 65 | 73 65 74 20 74 68 65 20 |   /* re|set the |
|000043e0| 63 6f 6d 6d 61 6e 64 20 | 6c 69 6e 65 20 6c 6f 63 |command |line loc|
|000043f0| 61 74 69 6f 6e 20 2a 2f | 0a 09 09 70 72 6f 6d 70 |ation */|...promp|
|00004400| 74 20 28 22 63 6d 64 3e | 22 29 3b 0a 09 09 67 65 |t ("cmd>|");...ge|
|00004410| 74 63 6d 64 20 28 6c 69 | 6e 2c 20 30 2c 20 26 63 |tcmd (li|n, 0, &c|
|00004420| 75 72 73 6f 72 2c 20 26 | 74 65 72 6d 29 3b 0a 09 |ursor, &|term);..|
|00004430| 09 72 65 6d 61 72 6b 20 | 28 22 22 29 3b 09 2f 2a |.remark |("");./*|
|00004440| 20 63 6c 65 61 72 20 6f | 75 74 20 61 6e 79 20 65 | clear o|ut any e|
|00004450| 72 72 6f 72 20 6d 65 73 | 73 61 67 65 73 20 2a 2f |rror mes|sages */|
|00004460| 0a 0a 09 09 77 68 69 6c | 65 20 28 74 65 72 6d 20 |....whil|e (term |
|00004470| 3d 3d 20 43 55 52 53 4f | 52 5f 55 50 20 7c 7c 20 |== CURSO|R_UP || |
|00004480| 74 65 72 6d 20 3d 3d 20 | 43 55 52 53 4f 52 5f 44 |term == |CURSOR_D|
|00004490| 4f 57 4e 0a 09 09 20 20 | 20 20 7c 7c 20 74 65 72 |OWN...  |  || ter|
|000044a0| 6d 20 3d 3d 20 43 55 52 | 53 4f 52 5f 53 41 4d 45 |m == CUR|SOR_SAME|
|000044b0| 29 0a 09 09 7b 0a 09 09 | 09 73 77 69 74 63 68 20 |)...{...|.switch |
|000044c0| 28 74 65 72 6d 29 20 7b | 0a 09 09 09 63 61 73 65 |(term) {|....case|
|000044d0| 20 43 55 52 53 4f 52 5f | 55 50 3a 0a 09 09 09 09 | CURSOR_|UP:.....|
|000044e0| 69 66 20 28 43 75 72 6c | 6e 20 3e 20 31 29 0a 09 |if (Curl|n > 1)..|
|000044f0| 09 09 09 09 43 75 72 6c | 6e 2d 2d 3b 0a 09 09 09 |....Curl|n--;....|
|00004500| 09 65 6c 73 65 0a 09 09 | 09 09 09 43 75 72 6c 6e |.else...|...Curln|
|00004510| 20 3d 20 4c 61 73 74 6c | 6e 3b 0a 09 09 09 09 62 | = Lastl|n;.....b|
|00004520| 72 65 61 6b 3b 0a 0a 09 | 09 09 63 61 73 65 20 43 |reak;...|..case C|
|00004530| 55 52 53 4f 52 5f 44 4f | 57 4e 3a 0a 09 09 09 09 |URSOR_DO|WN:.....|
|00004540| 69 66 20 28 43 75 72 6c | 6e 20 3c 20 4c 61 73 74 |if (Curl|n < Last|
|00004550| 6c 6e 29 0a 09 09 09 09 | 09 43 75 72 6c 6e 2b 2b |ln).....|.Curln++|
|00004560| 3b 0a 09 09 09 09 65 6c | 73 65 0a 09 09 09 09 09 |;.....el|se......|
|00004570| 43 75 72 6c 6e 20 3d 20 | 6d 69 6e 20 28 31 2c 20 |Curln = |min (1, |
|00004580| 4c 61 73 74 6c 6e 29 3b | 0a 09 09 09 09 62 72 65 |Lastln);|.....bre|
|00004590| 61 6b 3b 0a 09 09 09 7d | 0a 09 09 09 61 64 6a 75 |ak;....}|....adju|
|000045a0| 73 74 5f 77 69 6e 64 6f | 77 20 28 43 75 72 6c 6e |st_windo|w (Curln|
|000045b0| 2c 20 43 75 72 6c 6e 29 | 3b 0a 09 09 09 75 70 64 |, Curln)|;....upd|
|000045c0| 73 63 72 65 65 6e 20 28 | 29 3b 0a 09 09 09 67 65 |screen (|);....ge|
|000045d0| 74 63 6d 64 20 28 6c 69 | 6e 2c 20 30 2c 20 26 63 |tcmd (li|n, 0, &c|
|000045e0| 75 72 73 6f 72 2c 20 26 | 74 65 72 6d 29 3b 0a 09 |ursor, &|term);..|
|000045f0| 09 7d 0a 0a 09 09 70 72 | 6f 6d 70 74 20 28 22 22 |.}....pr|ompt (""|
|00004600| 29 3b 09 2f 2a 20 72 65 | 6d 6f 76 65 20 70 72 6f |);./* re|move pro|
|00004610| 6d 70 74 20 2a 2f 0a 0a | 09 09 63 75 72 73 61 76 |mpt */..|..cursav|
|00004620| 20 3d 20 43 75 72 6c 6e | 3b 09 09 2f 2a 20 72 65 | = Curln|;../* re|
|00004630| 6d 65 6d 62 65 72 20 69 | 74 20 69 6e 20 63 61 73 |member i|t in cas|
|00004640| 65 20 6f 66 20 61 6e 20 | 65 72 72 6f 72 20 2a 2f |e of an |error */|
|00004650| 0a 09 09 45 72 72 63 6f | 64 65 20 3d 20 45 45 47 |...Errco|de = EEG|
|00004660| 41 52 42 3b 09 2f 2a 20 | 64 65 66 61 75 6c 74 20 |ARB;./* |default |
|00004670| 65 72 72 6f 72 20 63 6f | 64 65 20 66 6f 72 20 67 |error co|de for g|
|00004680| 61 72 62 61 67 65 20 61 | 74 20 65 6e 64 20 2a 2f |arbage a|t end */|
|00004690| 0a 0a 09 09 6c 65 6e 20 | 3d 20 30 3b 0a 09 09 69 |....len |= 0;...i|
|000046a0| 66 20 28 67 65 74 6c 73 | 74 20 28 6c 69 6e 2c 20 |f (getls|t (lin, |
|000046b0| 26 6c 65 6e 2c 20 26 73 | 74 61 74 75 73 29 20 3d |&len, &s|tatus) =|
|000046c0| 3d 20 4f 4b 29 0a 09 09 | 7b 0a 09 09 09 69 66 20 |= OK)...|{....if |
|000046d0| 28 63 6b 67 6c 6f 62 20 | 28 6c 69 6e 2c 20 26 6c |(ckglob |(lin, &l|
|000046e0| 65 6e 2c 20 26 73 74 61 | 74 75 73 29 20 3d 3d 20 |en, &sta|tus) == |
|000046f0| 4f 4b 29 0a 09 09 09 09 | 64 6f 67 6c 6f 62 20 28 |OK).....|doglob (|
|00004700| 6c 69 6e 2c 20 26 6c 65 | 6e 2c 20 26 63 75 72 73 |lin, &le|n, &curs|
|00004710| 61 76 2c 20 26 73 74 61 | 74 75 73 29 3b 0a 09 09 |av, &sta|tus);...|
|00004720| 09 65 6c 73 65 20 69 66 | 20 28 73 74 61 74 75 73 |.else if| (status|
|00004730| 20 21 3d 20 45 52 52 29 | 0a 09 09 09 09 64 6f 63 | != ERR)|.....doc|
|00004740| 6d 64 20 28 6c 69 6e 2c | 20 6c 65 6e 2c 20 4e 4f |md (lin,| len, NO|
|00004750| 2c 20 26 73 74 61 74 75 | 73 29 3b 0a 09 09 7d 0a |, &statu|s);...}.|
|00004760| 09 09 69 66 20 28 73 74 | 61 74 75 73 20 3d 3d 20 |..if (st|atus == |
|00004770| 45 52 52 29 0a 09 09 7b | 0a 09 09 09 69 66 20 28 |ERR)...{|....if (|
|00004780| 45 72 72 63 6f 64 65 20 | 3d 3d 20 45 48 41 4e 47 |Errcode |== EHANG|
|00004790| 55 50 29 0a 09 09 09 09 | 68 61 6e 67 75 70 20 28 |UP).....|hangup (|
|000047a0| 29 3b 0a 09 09 09 70 72 | 69 6e 74 76 65 72 62 6f |);....pr|intverbo|
|000047b0| 73 65 65 72 72 6f 72 6d | 65 73 73 61 67 65 20 28 |seerrorm|essage (|
|000047c0| 29 3b 0a 09 09 09 43 75 | 72 6c 6e 20 3d 20 6d 69 |);....Cu|rln = mi|
|000047d0| 6e 20 28 63 75 72 73 61 | 76 2c 20 4c 61 73 74 6c |n (cursa|v, Lastl|
|000047e0| 6e 29 3b 0a 09 09 7d 0a | 09 09 65 6c 73 65 20 69 |n);...}.|..else i|
|000047f0| 66 20 28 74 65 72 6d 20 | 21 3d 20 46 55 4e 4e 59 |f (term |!= FUNNY|
|00004800| 29 0a 09 09 7b 0a 09 09 | 09 63 75 72 73 6f 72 20 |)...{...|.cursor |
|00004810| 3d 20 30 3b 0a 09 09 09 | 6c 69 6e 5b 30 5d 20 3d |= 0;....|lin[0] =|
|00004820| 20 45 4f 53 3b 0a 09 09 | 7d 0a 0a 09 09 61 64 6a | EOS;...|}....adj|
|00004830| 75 73 74 5f 77 69 6e 64 | 6f 77 20 28 43 75 72 6c |ust_wind|ow (Curl|
|00004840| 6e 2c 20 43 75 72 6c 6e | 29 3b 0a 09 09 75 70 64 |n, Curln|);...upd|
|00004850| 73 63 72 65 65 6e 20 28 | 29 3b 0a 0a 09 7d 20 77 |screen (|);...} w|
|00004860| 68 69 6c 65 20 28 73 74 | 61 74 75 73 20 21 3d 20 |hile (st|atus != |
|00004870| 45 4f 46 29 3b 0a 0a 09 | 63 6c 72 73 63 72 65 65 |EOF);...|clrscree|
|00004880| 6e 20 28 29 3b 0a 09 63 | 6c 72 62 75 66 20 28 29 |n ();..c|lrbuf ()|
|00004890| 3b 0a 09 74 66 6c 75 73 | 68 20 28 29 3b 0a 0a 09 |;..tflus|h ();...|
|000048a0| 72 65 74 75 72 6e 3b 0a | 7d 0a 0a 0a 2f 2a 20 67 |return;.|}.../* g|
|000048b0| 65 74 6c 73 74 20 2d 2d | 2d 20 63 6f 6c 6c 65 63 |etlst --|- collec|
|000048c0| 74 20 6c 69 6e 65 20 6e | 75 6d 62 65 72 73 20 28 |t line n|umbers (|
|000048d0| 69 66 20 61 6e 79 29 20 | 61 74 20 6c 69 6e 5b 2a |if any) |at lin[*|
|000048e0| 69 5d 2c 20 69 6e 63 72 | 65 6d 65 6e 74 20 69 20 |i], incr|ement i |
|000048f0| 2a 2f 0a 0a 69 6e 74 20 | 67 65 74 6c 73 74 20 28 |*/..int |getlst (|
|00004900| 6c 69 6e 2c 20 69 2c 20 | 73 74 61 74 75 73 29 0a |lin, i, |status).|
|00004910| 63 68 61 72 20 6c 69 6e | 5b 5d 3b 0a 69 6e 74 20 |char lin|[];.int |
|00004920| 2a 69 2c 20 2a 73 74 61 | 74 75 73 3b 0a 7b 0a 09 |*i, *sta|tus;.{..|
|00004930| 69 6e 74 20 6e 75 6d 3b | 0a 09 69 6e 74 20 67 65 |int num;|..int ge|
|00004940| 74 6f 6e 65 20 28 29 3b | 0a 0a 09 4c 69 6e 65 32 |tone ();|...Line2|
|00004950| 20 3d 20 30 3b 0a 09 66 | 6f 72 20 28 4e 6c 69 6e | = 0;..f|or (Nlin|
|00004960| 65 73 20 3d 20 30 3b 20 | 67 65 74 6f 6e 65 20 28 |es = 0; |getone (|
|00004970| 6c 69 6e 2c 20 69 2c 20 | 26 6e 75 6d 2c 20 73 74 |lin, i, |&num, st|
|00004980| 61 74 75 73 29 20 3d 3d | 20 4f 4b 3b 20 29 0a 09 |atus) ==| OK; )..|
|00004990| 7b 0a 09 09 4c 69 6e 65 | 31 20 3d 20 4c 69 6e 65 |{...Line|1 = Line|
|000049a0| 32 3b 0a 09 09 4c 69 6e | 65 32 20 3d 20 6e 75 6d |2;...Lin|e2 = num|
|000049b0| 3b 0a 09 09 4e 6c 69 6e | 65 73 2b 2b 3b 0a 09 09 |;...Nlin|es++;...|
|000049c0| 69 66 20 28 6c 69 6e 5b | 2a 69 5d 20 21 3d 20 27 |if (lin[|*i] != '|
|000049d0| 2c 27 20 26 26 20 6c 69 | 6e 5b 2a 69 5d 20 21 3d |,' && li|n[*i] !=|
|000049e0| 20 27 3b 27 29 0a 09 09 | 09 62 72 65 61 6b 3b 0a | ';')...|.break;.|
|000049f0| 09 09 69 66 20 28 6c 69 | 6e 5b 2a 69 5d 20 3d 3d |..if (li|n[*i] ==|
|00004a00| 20 27 3b 27 29 0a 09 09 | 09 43 75 72 6c 6e 20 3d | ';')...|.Curln =|
|00004a10| 20 6e 75 6d 3b 0a 09 09 | 28 2a 69 29 2b 2b 3b 0a | num;...|(*i)++;.|
|00004a20| 09 7d 0a 0a 09 69 66 20 | 28 4e 6c 69 6e 65 73 20 |.}...if |(Nlines |
|00004a30| 3e 20 32 29 0a 09 09 4e | 6c 69 6e 65 73 20 3d 20 |> 2)...N|lines = |
|00004a40| 32 3b 0a 0a 09 69 66 20 | 28 4e 6c 69 6e 65 73 20 |2;...if |(Nlines |
|00004a50| 3c 3d 20 31 29 0a 09 09 | 4c 69 6e 65 31 20 3d 20 |<= 1)...|Line1 = |
|00004a60| 4c 69 6e 65 32 3b 0a 0a | 09 69 66 20 28 4c 69 6e |Line2;..|.if (Lin|
|00004a70| 65 31 20 3e 20 4c 69 6e | 65 32 29 0a 09 7b 0a 09 |e1 > Lin|e2)..{..|
|00004a80| 09 2a 73 74 61 74 75 73 | 20 3d 20 45 52 52 3b 0a |.*status| = ERR;.|
|00004a90| 09 09 45 72 72 63 6f 64 | 65 20 3d 20 45 42 41 43 |..Errcod|e = EBAC|
|00004aa0| 4b 57 41 52 44 3b 0a 09 | 7d 0a 0a 09 69 66 20 28 |KWARD;..|}...if (|
|00004ab0| 2a 73 74 61 74 75 73 20 | 21 3d 20 45 52 52 29 0a |*status |!= ERR).|
|00004ac0| 09 09 2a 73 74 61 74 75 | 73 20 3d 20 4f 4b 3b 0a |..*statu|s = OK;.|
|00004ad0| 0a 09 72 65 74 75 72 6e | 20 28 2a 73 74 61 74 75 |..return| (*statu|
|00004ae0| 73 29 3b 0a 7d 0a 0a 0a | 2f 2a 20 67 65 74 6e 75 |s);.}...|/* getnu|
|00004af0| 6d 20 2d 2d 2d 20 63 6f | 6e 76 65 72 74 20 6f 6e |m --- co|nvert on|
|00004b00| 65 20 74 65 72 6d 20 74 | 6f 20 6c 69 6e 65 20 6e |e term t|o line n|
|00004b10| 75 6d 62 65 72 20 2a 2f | 0a 0a 69 6e 74 20 67 65 |umber */|..int ge|
|00004b20| 74 6e 75 6d 20 28 6c 69 | 6e 2c 20 69 2c 20 70 6e |tnum (li|n, i, pn|
|00004b30| 75 6d 2c 20 73 74 61 74 | 75 73 29 0a 63 68 61 72 |um, stat|us).char|
|00004b40| 20 6c 69 6e 5b 5d 3b 0a | 72 65 67 69 73 74 65 72 | lin[];.|register|
|00004b50| 20 69 6e 74 20 2a 69 2c | 20 2a 70 6e 75 6d 2c 20 | int *i,| *pnum, |
|00004b60| 2a 73 74 61 74 75 73 3b | 0a 7b 0a 09 69 6e 74 20 |*status;|.{..int |
|00004b70| 6a 2c 20 72 65 74 3b 0a | 09 69 6e 74 20 63 74 6f |j, ret;.|.int cto|
|00004b80| 69 20 28 29 2c 20 6f 70 | 74 70 61 74 20 28 29 2c |i (), op|tpat (),|
|00004b90| 20 70 74 73 63 61 6e 20 | 28 29 2c 20 6b 6e 73 63 | ptscan |(), knsc|
|00004ba0| 61 6e 20 28 29 2c 20 67 | 65 74 6b 6e 20 28 29 3b |an (), g|etkn ();|
|00004bb0| 0a 09 69 6e 74 20 6b 3b | 0a 0a 09 72 65 74 20 3d |..int k;|...ret =|
|00004bc0| 20 4f 4b 3b 0a 09 53 4b | 49 50 42 4c 20 28 6c 69 | OK;..SK|IPBL (li|
|00004bd0| 6e 2c 20 2a 69 29 3b 0a | 09 69 66 20 28 6c 69 6e |n, *i);.|.if (lin|
|00004be0| 5b 2a 69 5d 20 3e 3d 20 | 52 65 6c 5f 61 20 26 26 |[*i] >= |Rel_a &&|
|00004bf0| 20 6c 69 6e 5b 2a 69 5d | 20 3c 3d 20 52 65 6c 5f | lin[*i]| <= Rel_|
|00004c00| 7a 20 26 26 20 41 62 73 | 6e 6f 73 20 3d 3d 20 4e |z && Abs|nos == N|
|00004c10| 4f 29 0a 09 09 2a 70 6e | 75 6d 20 3d 20 54 6f 70 |O)...*pn|um = Top|
|00004c20| 6c 6e 20 2d 20 54 6f 70 | 72 6f 77 20 2b 20 6c 69 |ln - Top|row + li|
|00004c30| 6e 5b 2a 69 5d 20 2d 20 | 52 65 6c 5f 61 3b 0a 09 |n[*i] - |Rel_a;..|
|00004c40| 65 6c 73 65 20 69 66 20 | 28 6c 69 6e 5b 2a 69 5d |else if |(lin[*i]|
|00004c50| 20 3d 3d 20 43 55 52 4c | 49 4e 45 29 0a 09 09 2a | == CURL|INE)...*|
|00004c60| 70 6e 75 6d 20 3d 20 43 | 75 72 6c 6e 3b 0a 09 65 |pnum = C|urln;..e|
|00004c70| 6c 73 65 20 69 66 20 28 | 6c 69 6e 5b 2a 69 5d 20 |lse if (|lin[*i] |
|00004c80| 3d 3d 20 50 52 45 56 4c | 49 4e 45 20 7c 7c 20 6c |== PREVL|INE || l|
|00004c90| 69 6e 5b 2a 69 5d 20 3d | 3d 20 50 52 45 56 4c 49 |in[*i] =|= PREVLI|
|00004ca0| 4e 45 32 29 0a 09 09 2a | 70 6e 75 6d 20 3d 20 43 |NE2)...*|pnum = C|
|00004cb0| 75 72 6c 6e 20 2d 20 31 | 3b 0a 09 65 6c 73 65 20 |urln - 1|;..else |
|00004cc0| 69 66 20 28 6c 69 6e 5b | 2a 69 5d 20 3d 3d 20 4c |if (lin[|*i] == L|
|00004cd0| 41 53 54 4c 49 4e 45 29 | 0a 09 09 2a 70 6e 75 6d |ASTLINE)|...*pnum|
|00004ce0| 20 3d 20 4c 61 73 74 6c | 6e 3b 0a 09 65 6c 73 65 | = Lastl|n;..else|
|00004cf0| 20 69 66 20 28 6c 69 6e | 5b 2a 69 5d 20 3d 3d 20 | if (lin|[*i] == |
|00004d00| 53 43 41 4e 20 7c 7c 20 | 6c 69 6e 5b 2a 69 5d 20 |SCAN || |lin[*i] |
|00004d10| 3d 3d 20 42 41 43 4b 53 | 43 41 4e 29 0a 09 7b 0a |== BACKS|CAN)..{.|
|00004d20| 09 09 69 6e 74 20 6d 69 | 73 73 69 6e 67 5f 64 65 |..int mi|ssing_de|
|00004d30| 6c 69 6d 20 3d 20 59 45 | 53 3b 0a 0a 09 09 2f 2a |lim = YE|S;..../*|
|00004d40| 20 73 65 65 20 69 66 20 | 74 72 61 69 6c 69 6e 67 | see if |trailing|
|00004d50| 20 64 65 6c 69 6d 20 73 | 75 70 70 6c 69 65 64 2c | delim s|upplied,|
|00004d60| 20 73 69 6e 63 65 20 63 | 6f 6d 6d 61 6e 64 20 63 | since c|ommand c|
|00004d70| 61 6e 20 66 6f 6c 6c 6f | 77 20 70 61 74 74 65 72 |an follo|w patter|
|00004d80| 6e 20 2a 2f 0a 09 09 66 | 6f 72 20 28 6b 20 3d 20 |n */...f|or (k = |
|00004d90| 2a 69 20 2b 20 31 3b 20 | 6c 69 6e 5b 6b 5d 20 21 |*i + 1; |lin[k] !|
|00004da0| 3d 20 45 4f 53 3b 20 6b | 2b 2b 29 0a 09 09 09 69 |= EOS; k|++)....i|
|00004db0| 66 20 28 6c 69 6e 5b 6b | 5d 20 3d 3d 20 45 53 43 |f (lin[k|] == ESC|
|00004dc0| 41 50 45 29 0a 09 09 09 | 09 6b 2b 2b 3b 09 2f 2a |APE)....|.k++;./*|
|00004dd0| 20 73 6b 69 70 20 65 73 | 63 2c 20 6c 6f 6f 70 20 | skip es|c, loop |
|00004de0| 77 69 6c 6c 20 73 6b 69 | 70 20 65 73 63 61 70 65 |will ski|p escape|
|00004df0| 64 20 63 68 61 72 20 2a | 2f 0a 09 09 09 65 6c 73 |d char *|/....els|
|00004e00| 65 20 69 66 20 28 6c 69 | 6e 5b 6b 5d 20 3d 3d 20 |e if (li|n[k] == |
|00004e10| 6c 69 6e 5b 2a 69 5d 29 | 0a 09 09 09 7b 0a 09 09 |lin[*i])|....{...|
|00004e20| 09 09 6d 69 73 73 69 6e | 67 5f 64 65 6c 69 6d 20 |..missin|g_delim |
|00004e30| 3d 20 4e 4f 3b 0a 09 09 | 09 09 62 72 65 61 6b 3b |= NO;...|..break;|
|00004e40| 0a 09 09 09 7d 0a 09 09 | 09 2f 2a 20 65 6c 73 65 |....}...|./* else|
|00004e50| 0a 09 09 09 09 63 6f 6e | 74 69 6e 75 65 20 2a 2f |.....con|tinue */|
|00004e60| 0a 09 09 0a 09 09 69 66 | 20 28 6d 69 73 73 69 6e |......if| (missin|
|00004e70| 67 5f 64 65 6c 69 6d 20 | 3d 3d 20 59 45 53 29 0a |g_delim |== YES).|
|00004e80| 09 09 7b 0a 09 09 09 66 | 6f 72 20 28 3b 20 6c 69 |..{....f|or (; li|
|00004e90| 6e 5b 6b 5d 20 21 3d 20 | 45 4f 53 3b 20 6b 2b 2b |n[k] != |EOS; k++|
|00004ea0| 29 0a 09 09 09 09 3b 0a | 09 09 09 6b 2d 2d 3b 09 |).....;.|...k--;.|
|00004eb0| 09 2f 2a 20 6b 20 6e 6f | 77 20 61 74 20 6e 65 77 |./* k no|w at new|
|00004ec0| 6c 69 6e 65 20 2a 2f 0a | 0a 09 09 09 2f 2a 20 73 |line */.|..../* s|
|00004ed0| 75 70 70 6c 79 20 74 72 | 61 69 6c 69 6e 67 20 64 |upply tr|ailing d|
|00004ee0| 65 6c 69 6d 20 2a 2f 0a | 09 09 09 6c 69 6e 5b 6b |elim */.|...lin[k|
|00004ef0| 5d 20 3d 20 6c 69 6e 5b | 2a 69 5d 3b 0a 09 09 09 |] = lin[|*i];....|
|00004f00| 6c 69 6e 5b 2b 2b 6b 5d | 20 3d 20 27 5c 6e 27 3b |lin[++k]| = '\n';|
|00004f10| 0a 09 09 09 6c 69 6e 5b | 2b 2b 6b 5d 20 3d 20 45 |....lin[|++k] = E|
|00004f20| 4f 53 3b 0a 09 09 09 50 | 65 65 6b 63 20 3d 20 53 |OS;....P|eekc = S|
|00004f30| 4b 49 50 5f 52 49 47 48 | 54 3b 0a 09 09 7d 0a 0a |KIP_RIGH|T;...}..|
|00004f40| 09 09 69 66 20 28 6f 70 | 74 70 61 74 20 28 6c 69 |..if (op|tpat (li|
|00004f50| 6e 2c 20 69 29 20 3d 3d | 20 45 52 52 29 0a 09 09 |n, i) ==| ERR)...|
|00004f60| 09 72 65 74 20 3d 20 45 | 52 52 3b 0a 09 09 65 6c |.ret = E|RR;...el|
|00004f70| 73 65 20 69 66 20 28 6c | 69 6e 5b 2a 69 5d 20 3d |se if (l|in[*i] =|
|00004f80| 3d 20 53 43 41 4e 29 0a | 09 09 09 72 65 74 20 3d |= SCAN).|...ret =|
|00004f90| 20 70 74 73 63 61 6e 20 | 28 46 4f 52 57 41 52 44 | ptscan |(FORWARD|
|00004fa0| 2c 20 70 6e 75 6d 29 3b | 0a 09 09 65 6c 73 65 20 |, pnum);|...else |
|00004fb0| 0a 09 09 09 72 65 74 20 | 3d 20 70 74 73 63 61 6e |....ret |= ptscan|
|00004fc0| 20 28 42 41 43 4b 57 41 | 52 44 2c 20 70 6e 75 6d | (BACKWA|RD, pnum|
|00004fd0| 29 3b 0a 09 7d 0a 09 65 | 6c 73 65 20 69 66 20 28 |);..}..e|lse if (|
|00004fe0| 6c 69 6e 5b 2a 69 5d 20 | 3d 3d 20 53 45 41 52 43 |lin[*i] |== SEARC|
|00004ff0| 48 20 7c 7c 20 6c 69 6e | 5b 2a 69 5d 20 3d 3d 20 |H || lin|[*i] == |
|00005000| 42 41 43 4b 53 45 41 52 | 43 48 29 0a 09 7b 0a 09 |BACKSEAR|CH)..{..|
|00005010| 09 6a 20 3d 20 2a 69 3b | 0a 09 09 28 2a 69 29 2b |.j = *i;|...(*i)+|
|00005020| 2b 3b 0a 09 09 69 66 20 | 28 67 65 74 6b 6e 20 28 |+;...if |(getkn (|
|00005030| 6c 69 6e 2c 20 69 2c 20 | 26 53 61 76 6b 6e 6d 2c |lin, i, |&Savknm,|
|00005040| 20 53 61 76 6b 6e 6d 29 | 20 3d 3d 20 45 52 52 29 | Savknm)| == ERR)|
|00005050| 0a 09 09 09 72 65 74 20 | 3d 20 45 52 52 3b 0a 09 |....ret |= ERR;..|
|00005060| 09 65 6c 73 65 20 69 66 | 20 28 6c 69 6e 5b 6a 5d |.else if| (lin[j]|
|00005070| 20 3d 3d 20 53 45 41 52 | 43 48 29 0a 09 09 09 72 | == SEAR|CH)....r|
|00005080| 65 74 20 3d 20 6b 6e 73 | 63 61 6e 20 28 46 4f 52 |et = kns|can (FOR|
|00005090| 57 41 52 44 2c 20 70 6e | 75 6d 29 3b 0a 09 09 65 |WARD, pn|um);...e|
|000050a0| 6c 73 65 0a 09 09 09 72 | 65 74 20 3d 20 6b 6e 73 |lse....r|et = kns|
|000050b0| 63 61 6e 20 28 42 41 43 | 4b 57 41 52 44 2c 20 70 |can (BAC|KWARD, p|
|000050c0| 6e 75 6d 29 3b 0a 09 09 | 28 2a 69 29 2d 2d 3b 0a |num);...|(*i)--;.|
|000050d0| 09 7d 0a 09 65 6c 73 65 | 20 69 66 20 28 69 73 64 |.}..else| if (isd|
|000050e0| 69 67 69 74 20 28 6c 69 | 6e 5b 2a 69 5d 29 29 0a |igit (li|n[*i])).|
|000050f0| 09 7b 0a 09 09 2a 70 6e | 75 6d 20 3d 20 63 74 6f |.{...*pn|um = cto|
|00005100| 69 20 28 6c 69 6e 2c 20 | 69 29 3b 0a 09 09 28 2a |i (lin, |i);...(*|
|00005110| 69 29 2d 2d 3b 0a 09 7d | 0a 09 65 6c 73 65 20 69 |i)--;..}|..else i|
|00005120| 66 20 28 6c 69 6e 5b 2a | 69 5d 20 3d 3d 20 54 4f |f (lin[*|i] == TO|
|00005130| 50 4c 49 4e 45 29 0a 09 | 09 2a 70 6e 75 6d 20 3d |PLINE)..|.*pnum =|
|00005140| 20 54 6f 70 6c 6e 3b 0a | 09 65 6c 73 65 0a 09 09 | Topln;.|.else...|
|00005150| 72 65 74 20 3d 20 45 4f | 46 3b 0a 0a 09 69 66 20 |ret = EO|F;...if |
|00005160| 28 72 65 74 20 3d 3d 20 | 4f 4b 29 0a 09 09 28 2a |(ret == |OK)...(*|
|00005170| 69 29 2b 2b 3b 0a 09 2a | 73 74 61 74 75 73 20 3d |i)++;..*|status =|
|00005180| 20 72 65 74 3b 0a 09 72 | 65 74 75 72 6e 20 28 72 | ret;..r|eturn (r|
|00005190| 65 74 29 3b 0a 7d 0a 0a | 0a 2f 2a 20 67 65 74 6f |et);.}..|./* geto|
|000051a0| 6e 65 20 2d 2d 2d 20 65 | 76 61 6c 75 61 74 65 20 |ne --- e|valuate |
|000051b0| 6f 6e 65 20 6c 69 6e 65 | 20 6e 75 6d 62 65 72 20 |one line| number |
|000051c0| 65 78 70 72 65 73 73 69 | 6f 6e 20 2a 2f 0a 0a 69 |expressi|on */..i|
|000051d0| 6e 74 20 67 65 74 6f 6e | 65 20 28 6c 69 6e 2c 20 |nt geton|e (lin, |
|000051e0| 69 2c 20 6e 75 6d 2c 20 | 73 74 61 74 75 73 29 0a |i, num, |status).|
|000051f0| 63 68 61 72 20 6c 69 6e | 5b 5d 3b 0a 72 65 67 69 |char lin|[];.regi|
|00005200| 73 74 65 72 20 69 6e 74 | 20 2a 69 2c 20 2a 6e 75 |ster int| *i, *nu|
|00005210| 6d 2c 20 2a 73 74 61 74 | 75 73 3b 0a 7b 0a 09 69 |m, *stat|us;.{..i|
|00005220| 6e 74 20 70 6e 75 6d 2c | 20 72 65 74 3b 0a 09 69 |nt pnum,| ret;..i|
|00005230| 6e 74 20 67 65 74 6e 75 | 6d 20 28 29 3b 0a 09 63 |nt getnu|m ();..c|
|00005240| 68 61 72 20 70 6f 72 6d | 3b 09 2f 2a 20 22 70 6c |har porm|;./* "pl|
|00005250| 75 73 20 6f 72 20 6d 69 | 6e 75 73 22 20 28 73 69 |us or mi|nus" (si|
|00005260| 63 29 20 2a 2f 0a 0a 09 | 72 65 74 20 3d 20 45 4f |c) */...|ret = EO|
|00005270| 46 3b 09 2f 2a 20 61 73 | 73 75 6d 65 20 77 65 20 |F;./* as|sume we |
|00005280| 77 6f 6e 27 74 20 66 69 | 6e 64 20 61 6e 79 74 68 |won't fi|nd anyth|
|00005290| 69 6e 67 20 66 6f 72 20 | 6e 6f 77 20 2a 2f 0a 09 |ing for |now */..|
|000052a0| 2a 6e 75 6d 20 3d 20 30 | 3b 0a 0a 09 69 66 20 28 |*num = 0|;...if (|
|000052b0| 67 65 74 6e 75 6d 20 28 | 6c 69 6e 2c 20 69 2c 20 |getnum (|lin, i, |
|000052c0| 6e 75 6d 2c 20 73 74 61 | 74 75 73 29 20 3d 3d 20 |num, sta|tus) == |
|000052d0| 4f 4b 29 09 09 2f 2a 20 | 66 69 72 73 74 20 74 65 |OK)../* |first te|
|000052e0| 72 6d 20 2a 2f 0a 09 7b | 0a 09 09 72 65 74 20 3d |rm */..{|...ret =|
|000052f0| 20 4f 4b 3b 09 2f 2a 20 | 74 6f 20 69 6e 64 69 63 | OK;./* |to indic|
|00005300| 61 74 65 20 77 65 27 76 | 65 20 73 65 65 6e 20 73 |ate we'v|e seen s|
|00005310| 6f 6d 65 74 68 69 6e 67 | 20 2a 2f 0a 09 09 64 6f |omething| */...do|
|00005320| 20 7b 09 09 09 2f 2a 20 | 2b 20 6f 72 20 2d 20 74 | {.../* |+ or - t|
|00005330| 65 72 6d 73 20 2a 2f 0a | 09 09 09 70 6f 72 6d 20 |erms */.|...porm |
|00005340| 3d 20 45 4f 53 3b 0a 09 | 09 09 53 4b 49 50 42 4c |= EOS;..|..SKIPBL|
|00005350| 20 28 6c 69 6e 2c 20 2a | 69 29 3b 0a 09 09 09 69 | (lin, *|i);....i|
|00005360| 66 20 28 6c 69 6e 5b 2a | 69 5d 20 3d 3d 20 27 2d |f (lin[*|i] == '-|
|00005370| 27 20 7c 7c 20 6c 69 6e | 5b 2a 69 5d 20 3d 3d 20 |' || lin|[*i] == |
|00005380| 27 2b 27 29 0a 09 09 09 | 7b 0a 09 09 09 09 70 6f |'+')....|{.....po|
|00005390| 72 6d 20 3d 20 6c 69 6e | 5b 2a 69 5d 3b 0a 09 09 |rm = lin|[*i];...|
|000053a0| 09 09 28 2a 69 29 2b 2b | 3b 0a 09 09 09 7d 0a 09 |..(*i)++|;....}..|
|000053b0| 09 09 69 66 20 28 67 65 | 74 6e 75 6d 20 28 6c 69 |..if (ge|tnum (li|
|000053c0| 6e 2c 20 69 2c 20 26 70 | 6e 75 6d 2c 20 73 74 61 |n, i, &p|num, sta|
|000053d0| 74 75 73 29 20 3d 3d 20 | 4f 4b 29 0a 09 09 09 09 |tus) == |OK).....|
|000053e0| 69 66 20 28 70 6f 72 6d | 20 3d 3d 20 27 2d 27 29 |if (porm| == '-')|
|000053f0| 0a 09 09 09 09 09 2a 6e | 75 6d 20 2d 3d 20 70 6e |......*n|um -= pn|
|00005400| 75 6d 3b 0a 09 09 09 09 | 65 6c 73 65 0a 09 09 09 |um;.....|else....|
|00005410| 09 09 2a 6e 75 6d 20 2b | 3d 20 70 6e 75 6d 3b 0a |..*num +|= pnum;.|
|00005420| 09 09 09 69 66 20 28 2a | 73 74 61 74 75 73 20 3d |...if (*|status =|
|00005430| 3d 20 45 4f 46 20 26 26 | 20 70 6f 72 6d 20 21 3d |= EOF &&| porm !=|
|00005440| 20 45 4f 53 29 09 2f 2a | 20 74 72 61 69 6c 69 6e | EOS)./*| trailin|
|00005450| 67 20 2b 20 6f 72 20 2d | 20 2a 2f 0a 09 09 09 09 |g + or -| */.....|
|00005460| 2a 73 74 61 74 75 73 20 | 3d 20 45 52 52 3b 0a 09 |*status |= ERR;..|
|00005470| 09 7d 20 77 68 69 6c 65 | 20 28 2a 73 74 61 74 75 |.} while| (*statu|
|00005480| 73 20 3d 3d 20 4f 4b 29 | 3b 0a 09 7d 0a 0a 09 69 |s == OK)|;..}...i|
|00005490| 66 20 28 2a 6e 75 6d 20 | 3c 20 30 20 7c 7c 20 2a |f (*num |< 0 || *|
|000054a0| 6e 75 6d 20 3e 20 4c 61 | 73 74 6c 6e 29 09 2f 2a |num > La|stln)./*|
|000054b0| 20 6d 61 6b 65 20 73 75 | 72 65 20 6e 75 6d 62 65 | make su|re numbe|
|000054c0| 72 20 69 73 20 69 6e 20 | 72 61 6e 67 65 20 2a 2f |r is in |range */|
|000054d0| 0a 09 7b 0a 09 09 2a 73 | 74 61 74 75 73 20 3d 20 |..{...*s|tatus = |
|000054e0| 45 52 52 3b 0a 09 09 45 | 72 72 63 6f 64 65 20 3d |ERR;...E|rrcode =|
|000054f0| 20 45 4f 52 41 4e 47 45 | 3b 0a 09 7d 0a 0a 09 69 | EORANGE|;..}...i|
|00005500| 66 20 28 2a 73 74 61 74 | 75 73 20 3d 3d 20 45 52 |f (*stat|us == ER|
|00005510| 52 29 0a 09 09 72 65 74 | 20 3d 20 45 52 52 3b 0a |R)...ret| = ERR;.|
|00005520| 09 65 6c 73 65 0a 09 09 | 2a 73 74 61 74 75 73 20 |.else...|*status |
|00005530| 3d 20 72 65 74 3b 0a 0a | 09 72 65 74 75 72 6e 20 |= ret;..|.return |
|00005540| 28 72 65 74 29 3b 0a 7d | 0a 0a 0a 23 69 66 6e 64 |(ret);.}|...#ifnd|
|00005550| 65 66 20 4f 4c 44 5f 53 | 43 52 41 54 43 48 0a 23 |ef OLD_S|CRATCH.#|
|00005560| 69 66 6e 64 65 66 20 4f | 4c 44 5f 47 4c 4f 42 0a |ifndef O|LD_GLOB.|
|00005570| 73 74 61 74 69 63 20 69 | 6e 74 20 73 70 65 63 69 |static i|nt speci|
|00005580| 61 6c 5f 63 61 73 69 6e | 67 20 3d 20 4e 4f 3b 0a |al_casin|g = NO;.|
|00005590| 23 65 6e 64 69 66 0a 23 | 65 6e 64 69 66 0a 0a 2f |#endif.#|endif../|
|000055a0| 2a 20 63 6b 67 6c 6f 62 | 20 2d 2d 2d 20 69 66 20 |* ckglob| --- if |
|000055b0| 67 6c 6f 62 61 6c 20 70 | 72 65 66 69 78 2c 20 6d |global p|refix, m|
|000055c0| 61 72 6b 20 6c 69 6e 65 | 73 20 74 6f 20 62 65 20 |ark line|s to be |
|000055d0| 61 66 66 65 63 74 65 64 | 20 2a 2f 0a 0a 69 6e 74 |affected| */..int|
|000055e0| 20 63 6b 67 6c 6f 62 20 | 28 6c 69 6e 2c 20 69 2c | ckglob |(lin, i,|
|000055f0| 20 73 74 61 74 75 73 29 | 0a 63 68 61 72 20 6c 69 | status)|.char li|
|00005600| 6e 5b 5d 3b 0a 69 6e 74 | 20 2a 69 2c 20 2a 73 74 |n[];.int| *i, *st|
|00005610| 61 74 75 73 3b 0a 7b 0a | 09 72 65 67 69 73 74 65 |atus;.{.|.registe|
|00005620| 72 20 69 6e 74 20 6c 69 | 6e 65 2c 20 74 6d 70 3b |r int li|ne, tmp;|
|00005630| 0a 09 69 6e 74 20 75 73 | 65 70 61 74 2c 20 75 73 |..int us|epat, us|
|00005640| 65 6d 61 72 6b 3b 0a 09 | 69 6e 74 20 64 65 66 61 |emark;..|int defa|
|00005650| 6c 74 20 28 29 2c 20 6d | 61 74 63 68 20 28 29 2c |lt (), m|atch (),|
|00005660| 20 6f 70 74 70 61 74 20 | 28 29 2c 20 67 65 74 6b | optpat |(), getk|
|00005670| 6e 20 28 29 3b 0a 09 72 | 65 67 69 73 74 65 72 20 |n ();..r|egister |
|00005680| 4c 49 4e 45 44 45 53 43 | 20 2a 6b 3b 0a 09 4c 49 |LINEDESC| *k;..LI|
|00005690| 4e 45 44 45 53 43 20 2a | 67 65 74 74 78 74 20 28 |NEDESC *|gettxt (|
|000056a0| 29 2c 20 2a 67 65 74 69 | 6e 64 20 28 29 3b 0a 23 |), *geti|nd ();.#|
|000056b0| 69 66 6e 64 65 66 20 4f | 4c 44 5f 53 43 52 41 54 |ifndef O|LD_SCRAT|
|000056c0| 43 48 0a 23 69 66 6e 64 | 65 66 20 4f 4c 44 5f 47 |CH.#ifnd|ef OLD_G|
|000056d0| 4c 4f 42 0a 09 63 68 61 | 72 20 73 74 61 72 74 5f |LOB..cha|r start_|
|000056e0| 6c 69 6e 65 20 3d 20 55 | 6e 69 78 5f 6d 6f 64 65 |line = U|nix_mode|
|000056f0| 20 3f 20 27 5e 27 20 3a | 20 27 25 27 3b 0a 23 65 | ? '^' :| '%';.#e|
|00005700| 6e 64 69 66 0a 23 65 6e | 64 69 66 0a 0a 09 2a 73 |ndif.#en|dif...*s|
|00005710| 74 61 74 75 73 20 3d 20 | 4f 4b 3b 0a 09 75 73 65 |tatus = |OK;..use|
|00005720| 70 61 74 20 3d 20 45 4f | 46 3b 0a 09 75 73 65 6d |pat = EO|F;..usem|
|00005730| 61 72 6b 20 3d 20 45 4f | 46 3b 0a 0a 23 69 66 6e |ark = EO|F;..#ifn|
|00005740| 64 65 66 20 4f 4c 44 5f | 53 43 52 41 54 43 48 0a |def OLD_|SCRATCH.|
|00005750| 23 69 66 6e 64 65 66 20 | 4f 4c 44 5f 47 4c 4f 42 |#ifndef |OLD_GLOB|
|00005760| 0a 09 69 66 20 28 09 2f | 2a 20 67 2f 5e 2f 6d 30 |..if (./|* g/^/m0|
|00005770| 20 20 6f 72 20 67 2f 24 | 2f 6d 30 20 2d 2d 20 73 |  or g/$|/m0 -- s|
|00005780| 70 65 63 69 61 6c 20 63 | 61 73 65 20 74 68 65 20 |pecial c|ase the |
|00005790| 70 61 74 68 6f 6c 6f 67 | 69 63 61 6c 20 2a 2f 0a |patholog|ical */.|
|000057a0| 09 09 2f 2a 20 63 61 73 | 65 73 20 69 6e 20 6f 72 |../* cas|es in or|
|000057b0| 64 65 72 20 74 6f 20 73 | 61 76 65 20 74 69 6d 65 |der to s|ave time|
|000057c0| 20 2a 2f 0a 09 09 28 6c | 69 6e 5b 2a 69 5d 20 3d | */...(l|in[*i] =|
|000057d0| 3d 20 47 4c 4f 42 41 4c | 20 7c 7c 20 6c 69 6e 5b |= GLOBAL| || lin[|
|000057e0| 2a 69 5d 20 3d 3d 20 55 | 43 47 4c 4f 42 41 4c 29 |*i] == U|CGLOBAL)|
|000057f0| 0a 09 09 26 26 20 28 6c | 69 6e 5b 2a 69 20 2b 20 |...&& (l|in[*i + |
|00005800| 31 5d 20 3d 3d 20 6c 69 | 6e 5b 2a 69 20 2b 20 33 |1] == li|n[*i + 3|
|00005810| 5d 29 0a 09 09 26 26 20 | 28 6c 69 6e 5b 2a 69 20 |])...&& |(lin[*i |
|00005820| 2b 20 32 5d 20 3d 3d 20 | 73 74 61 72 74 5f 6c 69 |+ 2] == |start_li|
|00005830| 6e 65 20 7c 7c 20 6c 69 | 6e 5b 2a 69 20 2b 20 32 |ne || li|n[*i + 2|
|00005840| 5d 20 3d 3d 20 27 24 27 | 29 0a 09 09 26 26 20 28 |] == '$'|)...&& (|
|00005850| 6c 69 6e 5b 2a 69 20 2b | 20 34 5d 20 3d 3d 20 4d |lin[*i +| 4] == M|
|00005860| 4f 56 45 43 4f 4d 20 7c | 7c 20 6c 69 6e 5b 2a 69 |OVECOM ||| lin[*i|
|00005870| 20 2b 20 34 5d 20 3d 3d | 20 55 43 4d 4f 56 45 43 | + 4] ==| UCMOVEC|
|00005880| 4f 4d 29 0a 09 09 26 26 | 20 28 6c 69 6e 5b 2a 69 |OM)...&&| (lin[*i|
|00005890| 20 2b 20 35 5d 20 3d 3d | 20 27 30 27 20 26 26 20 | + 5] ==| '0' && |
|000058a0| 6c 69 6e 5b 2a 69 20 2b | 20 36 5d 20 3d 3d 20 27 |lin[*i +| 6] == '|
|000058b0| 5c 6e 27 29 20 20 20 29 | 0a 09 7b 0a 09 09 73 70 |\n')   )|..{...sp|
|000058c0| 65 63 69 61 6c 5f 63 61 | 73 69 6e 67 20 3d 20 59 |ecial_ca|sing = Y|
|000058d0| 45 53 3b 0a 09 09 72 65 | 6d 61 72 6b 20 28 22 47 |ES;...re|mark ("G|
|000058e0| 4c 4f 42 22 29 3b 0a 09 | 09 72 65 74 75 72 6e 20 |LOB");..|.return |
|000058f0| 28 4f 4b 29 3b 0a 09 7d | 0a 23 65 6e 64 69 66 0a |(OK);..}|.#endif.|
|00005900| 23 65 6e 64 69 66 0a 09 | 69 66 20 28 6c 69 6e 5b |#endif..|if (lin[|
|00005910| 2a 69 5d 20 3d 3d 20 47 | 4d 41 52 4b 20 7c 7c 20 |*i] == G|MARK || |
|00005920| 6c 69 6e 5b 2a 69 5d 20 | 3d 3d 20 58 4d 41 52 4b |lin[*i] |== XMARK|
|00005930| 29 09 2f 2a 20 67 6c 6f | 62 61 6c 20 6d 61 72 6b |)./* glo|bal mark|
|00005940| 6e 61 6d 65 20 70 72 65 | 66 69 78 3f 20 2a 2f 0a |name pre|fix? */.|
|00005950| 09 7b 0a 09 09 69 66 20 | 28 6c 69 6e 5b 2a 69 5d |.{...if |(lin[*i]|
|00005960| 20 3d 3d 20 47 4d 41 52 | 4b 29 09 2f 2a 20 74 61 | == GMAR|K)./* ta|
|00005970| 67 20 6c 69 6e 65 73 20 | 77 69 74 68 20 74 68 65 |g lines |with the|
|00005980| 20 73 70 65 63 69 66 69 | 65 64 20 6d 61 72 6b 6e | specifi|ed markn|
|00005990| 61 6d 65 20 2a 2f 0a 09 | 09 09 75 73 65 6d 61 72 |ame */..|..usemar|
|000059a0| 6b 20 3d 20 59 45 53 3b | 0a 09 09 65 6c 73 65 09 |k = YES;|...else.|
|000059b0| 09 09 2f 2a 20 74 61 67 | 20 6c 69 6e 65 73 20 77 |../* tag| lines w|
|000059c0| 69 74 68 6f 75 74 20 74 | 68 65 20 73 70 65 63 69 |ithout t|he speci|
|000059d0| 66 69 65 64 20 6d 61 72 | 6b 6e 61 6d 65 20 2a 2f |fied mar|kname */|
|000059e0| 0a 09 09 09 75 73 65 6d | 61 72 6b 20 3d 20 4e 4f |....usem|ark = NO|
|000059f0| 3b 0a 09 09 28 2a 69 29 | 2b 2b 3b 0a 09 09 2a 73 |;...(*i)|++;...*s|
|00005a00| 74 61 74 75 73 20 3d 20 | 67 65 74 6b 6e 20 28 6c |tatus = |getkn (l|
|00005a10| 69 6e 2c 20 69 2c 20 26 | 53 61 76 6b 6e 6d 2c 20 |in, i, &|Savknm, |
|00005a20| 53 61 76 6b 6e 6d 29 3b | 0a 09 7d 0a 0a 09 69 66 |Savknm);|..}...if|
|00005a30| 20 28 2a 73 74 61 74 75 | 73 20 3d 3d 20 4f 4b 29 | (*statu|s == OK)|
|00005a40| 09 2f 2a 20 63 68 65 63 | 6b 20 66 6f 72 20 61 20 |./* chec|k for a |
|00005a50| 70 61 74 74 65 72 6e 20 | 70 72 65 66 69 78 20 74 |pattern |prefix t|
|00005a60| 6f 6f 20 2a 2f 0a 09 7b | 0a 09 09 69 66 20 28 6c |oo */..{|...if (l|
|00005a70| 69 6e 5b 2a 69 5d 20 3d | 3d 20 47 4c 4f 42 41 4c |in[*i] =|= GLOBAL|
|00005a80| 20 7c 7c 20 6c 69 6e 5b | 2a 69 5d 20 3d 3d 20 55 | || lin[|*i] == U|
|00005a90| 43 47 4c 4f 42 41 4c 29 | 0a 09 09 09 75 73 65 70 |CGLOBAL)|....usep|
|00005aa0| 61 74 20 3d 20 59 45 53 | 3b 0a 0a 09 09 69 66 20 |at = YES|;....if |
|00005ab0| 28 6c 69 6e 5b 2a 69 5d | 20 3d 3d 20 45 58 43 4c |(lin[*i]| == EXCL|
|00005ac0| 55 44 45 20 7c 7c 20 6c | 69 6e 5b 2a 69 5d 20 3d |UDE || l|in[*i] =|
|00005ad0| 3d 20 55 43 45 58 43 4c | 55 44 45 29 0a 09 09 09 |= UCEXCL|UDE)....|
|00005ae0| 75 73 65 70 61 74 20 3d | 20 4e 4f 3b 0a 0a 09 09 |usepat =| NO;....|
|00005af0| 69 66 20 28 75 73 65 70 | 61 74 20 21 3d 20 45 4f |if (usep|at != EO|
|00005b00| 46 29 0a 09 09 7b 0a 09 | 09 09 28 2a 69 29 2b 2b |F)...{..|..(*i)++|
|00005b10| 3b 0a 09 09 09 69 66 20 | 28 6f 70 74 70 61 74 20 |;....if |(optpat |
|00005b20| 28 6c 69 6e 2c 20 69 29 | 20 3d 3d 20 45 52 52 29 |(lin, i)| == ERR)|
|00005b30| 0a 09 09 09 09 2a 73 74 | 61 74 75 73 20 3d 20 45 |.....*st|atus = E|
|00005b40| 52 52 3b 0a 09 09 09 65 | 6c 73 65 0a 09 09 09 09 |RR;....e|lse.....|
|00005b50| 28 2a 69 29 2b 2b 3b 0a | 09 09 7d 0a 09 7d 0a 0a |(*i)++;.|..}..}..|
|00005b60| 09 69 66 20 28 2a 73 74 | 61 74 75 73 20 3d 3d 20 |.if (*st|atus == |
|00005b70| 4f 4b 20 26 26 20 75 73 | 65 70 61 74 20 3d 3d 20 |OK && us|epat == |
|00005b80| 45 4f 46 20 26 26 20 75 | 73 65 6d 61 72 6b 20 3d |EOF && u|semark =|
|00005b90| 3d 20 45 4f 46 29 0a 09 | 09 2a 73 74 61 74 75 73 |= EOF)..|.*status|
|00005ba0| 20 3d 20 45 4f 46 3b 0a | 09 65 6c 73 65 20 69 66 | = EOF;.|.else if|
|00005bb0| 20 28 2a 73 74 61 74 75 | 73 20 3d 3d 20 4f 4b 29 | (*statu|s == OK)|
|00005bc0| 0a 09 09 64 65 66 61 6c | 74 20 28 31 2c 20 4c 61 |...defal|t (1, La|
|00005bd0| 73 74 6c 6e 29 3b 0a 0a | 09 69 66 20 28 2a 73 74 |stln);..|.if (*st|
|00005be0| 61 74 75 73 20 3d 3d 20 | 4f 4b 29 09 2f 2a 20 6e |atus == |OK)./* n|
|00005bf0| 6f 20 65 72 72 6f 72 73 | 20 73 6f 20 66 61 72 2c |o errors| so far,|
|00005c00| 20 73 61 66 65 20 74 6f | 20 70 72 6f 63 65 65 64 | safe to| proceed|
|00005c10| 20 2a 2f 0a 09 7b 0a 09 | 09 72 65 6d 61 72 6b 20 | */..{..|.remark |
|00005c20| 28 22 47 4c 4f 42 22 29 | 3b 0a 0a 09 09 6b 20 3d |("GLOB")|;....k =|
|00005c30| 20 4c 69 6e 65 30 3b 20 | 20 20 20 20 20 2f 2a 20 | Line0; |     /* |
|00005c40| 75 6e 6d 61 72 6b 20 61 | 6c 6c 20 6c 69 6e 65 73 |unmark a|ll lines|
|00005c50| 20 70 72 65 63 65 65 64 | 69 6e 67 20 72 61 6e 67 | preceed|ing rang|
|00005c60| 65 20 2a 2f 0a 09 09 66 | 6f 72 20 28 6c 69 6e 65 |e */...f|or (line|
|00005c70| 20 3d 20 30 3b 20 6c 69 | 6e 65 20 3c 20 4c 69 6e | = 0; li|ne < Lin|
|00005c80| 65 31 3b 20 6c 69 6e 65 | 2b 2b 29 0a 09 09 7b 0a |e1; line|++)...{.|
|00005c90| 09 09 09 6b 20 2d 3e 20 | 47 6c 6f 62 6d 61 72 6b |...k -> |Globmark|
|00005ca0| 20 3d 20 4e 4f 3b 0a 09 | 09 09 6b 20 3d 20 4e 45 | = NO;..|..k = NE|
|00005cb0| 58 54 4c 49 4e 45 28 6b | 29 3b 0a 09 09 7d 0a 0a |XTLINE(k|);...}..|
|00005cc0| 09 09 66 6f 72 20 28 3b | 20 6c 69 6e 65 20 3c 3d |..for (;| line <=|
|00005cd0| 20 4c 69 6e 65 32 3b 20 | 6c 69 6e 65 2b 2b 29 09 | Line2; |line++).|
|00005ce0| 2f 2a 20 6d 61 72 6b 20 | 6c 69 6e 65 73 20 69 6e |/* mark |lines in|
|00005cf0| 20 72 61 6e 67 65 20 2a | 2f 0a 09 09 7b 0a 09 09 | range *|/...{...|
|00005d00| 09 69 66 20 28 69 6e 74 | 72 70 74 20 28 29 29 0a |.if (int|rpt ()).|
|00005d10| 09 09 09 7b 0a 09 09 09 | 09 2a 73 74 61 74 75 73 |...{....|.*status|
|00005d20| 20 3d 20 45 52 52 3b 0a | 09 09 09 09 72 65 74 75 | = ERR;.|....retu|
|00005d30| 72 6e 20 28 2a 73 74 61 | 74 75 73 29 3b 0a 09 09 |rn (*sta|tus);...|
|00005d40| 09 7d 0a 09 09 09 74 6d | 70 20 3d 20 4e 4f 3b 0a |.}....tm|p = NO;.|
|00005d50| 09 09 09 69 66 20 28 75 | 73 65 6d 61 72 6b 20 3d |...if (u|semark =|
|00005d60| 3d 20 45 4f 46 0a 09 09 | 09 20 20 20 20 7c 7c 20 |= EOF...|.    || |
|00005d70| 75 73 65 6d 61 72 6b 20 | 3d 3d 20 59 45 53 20 26 |usemark |== YES &|
|00005d80| 26 20 6b 20 2d 3e 20 4d | 61 72 6b 6e 61 6d 65 20 |& k -> M|arkname |
|00005d90| 3d 3d 20 53 61 76 6b 6e | 6d 0a 09 09 09 20 20 20 |== Savkn|m....   |
|00005da0| 20 7c 7c 20 75 73 65 6d | 61 72 6b 20 3d 3d 20 4e | || usem|ark == N|
|00005db0| 4f 20 26 26 20 6b 20 2d | 3e 20 4d 61 72 6b 6e 61 |O && k -|> Markna|
|00005dc0| 6d 65 20 21 3d 20 53 61 | 76 6b 6e 6d 29 0a 09 09 |me != Sa|vknm)...|
|00005dd0| 09 7b 0a 09 09 09 09 69 | 66 20 28 75 73 65 70 61 |.{.....i|f (usepa|
|00005de0| 74 20 3d 3d 20 45 4f 46 | 29 09 2f 2a 20 6e 6f 20 |t == EOF|)./* no |
|00005df0| 67 6c 6f 62 61 6c 20 70 | 61 74 74 65 72 6e 20 74 |global p|attern t|
|00005e00| 6f 20 6c 6f 6f 6b 20 66 | 6f 72 20 2a 2f 0a 09 09 |o look f|or */...|
|00005e10| 09 09 09 74 6d 70 20 3d | 20 59 45 53 3b 0a 09 09 |...tmp =| YES;...|
|00005e20| 09 09 65 6c 73 65 09 2f | 2a 20 74 68 65 72 65 20 |..else./|* there |
|00005e30| 69 73 20 61 6c 73 6f 20 | 61 20 70 61 74 74 65 72 |is also |a patter|
|00005e40| 6e 20 74 6f 20 6c 6f 6f | 6b 20 66 6f 72 20 2a 2f |n to loo|k for */|
|00005e50| 0a 09 09 09 09 7b 0a 09 | 09 09 09 09 67 74 78 74 |.....{..|....gtxt|
|00005e60| 20 28 6b 29 3b 0a 09 09 | 09 09 09 69 66 20 28 6d | (k);...|...if (m|
|00005e70| 61 74 63 68 20 28 54 78 | 74 2c 20 50 61 74 29 20 |atch (Tx|t, Pat) |
|00005e80| 3d 3d 20 75 73 65 70 61 | 74 29 0a 09 09 09 09 09 |== usepa|t)......|
|00005e90| 09 74 6d 70 20 3d 20 59 | 45 53 3b 0a 09 09 09 09 |.tmp = Y|ES;.....|
|00005ea0| 7d 0a 09 09 09 7d 0a 0a | 09 09 09 6b 20 2d 3e 20 |}....}..|...k -> |
|00005eb0| 47 6c 6f 62 6d 61 72 6b | 20 3d 20 74 6d 70 3b 0a |Globmark| = tmp;.|
|00005ec0| 0a 09 09 09 6b 20 3d 20 | 4e 45 58 54 4c 49 4e 45 |....k = |NEXTLINE|
|00005ed0| 28 6b 29 3b 0a 09 09 7d | 0a 0a 23 69 66 64 65 66 |(k);...}|..#ifdef|
|00005ee0| 20 4f 4c 44 5f 53 43 52 | 41 54 43 48 0a 09 09 2f | OLD_SCR|ATCH.../|
|00005ef0| 2a 20 6d 61 72 6b 20 72 | 65 6d 61 69 6e 69 6e 67 |* mark r|emaining|
|00005f00| 20 6c 69 6e 65 73 20 2a | 2f 0a 09 09 66 6f 72 20 | lines *|/...for |
|00005f10| 28 3b 20 6b 20 21 3d 20 | 4c 69 6e 65 30 3b 20 6b |(; k != |Line0; k|
|00005f20| 20 3d 20 6b 20 2d 3e 20 | 4e 65 78 74 6c 69 6e 65 | = k -> |Nextline|
|00005f30| 29 0a 09 09 09 6b 20 2d | 3e 20 47 6c 6f 62 6d 61 |)....k -|> Globma|
|00005f40| 72 6b 20 3d 20 4e 4f 3b | 0a 23 65 6c 73 65 0a 09 |rk = NO;|.#else..|
|00005f50| 09 2f 2a 20 6d 61 72 6b | 20 72 65 6d 61 69 6e 69 |./* mark| remaini|
|00005f60| 6e 67 20 6c 69 6e 65 73 | 20 2a 2f 0a 09 09 66 6f |ng lines| */...fo|
|00005f70| 72 20 28 3b 20 6c 69 6e | 65 20 3c 3d 20 4c 61 73 |r (; lin|e <= Las|
|00005f80| 74 6c 6e 3b 20 6c 69 6e | 65 2b 2b 29 0a 09 09 7b |tln; lin|e++)...{|
|00005f90| 0a 09 09 09 6b 20 2d 3e | 20 47 6c 6f 62 6d 61 72 |....k ->| Globmar|
|00005fa0| 6b 20 3d 20 4e 4f 3b 0a | 09 09 09 6b 20 3d 20 4e |k = NO;.|...k = N|
|00005fb0| 45 58 54 4c 49 4e 45 20 | 28 6b 29 3b 0a 09 09 7d |EXTLINE |(k);...}|
|00005fc0| 0a 23 65 6e 64 69 66 0a | 0a 09 09 72 65 6d 61 72 |.#endif.|...remar|
|00005fd0| 6b 20 28 22 22 29 3b 0a | 09 7d 0a 0a 09 72 65 74 |k ("");.|.}...ret|
|00005fe0| 75 72 6e 20 28 2a 73 74 | 61 74 75 73 29 3b 0a 7d |urn (*st|atus);.}|
|00005ff0| 0a 0a 0a 2f 2a 20 64 6f | 67 6c 6f 62 20 2d 2d 2d |.../* do|glob ---|
|00006000| 20 64 6f 20 63 6f 6d 6d | 61 6e 64 20 61 74 20 6c | do comm|and at l|
|00006010| 69 6e 5b 69 5d 20 6f 6e | 20 61 6c 6c 20 6d 61 72 |in[i] on| all mar|
|00006020| 6b 65 64 20 6c 69 6e 65 | 73 20 2a 2f 0a 0a 69 6e |ked line|s */..in|
|00006030| 74 20 64 6f 67 6c 6f 62 | 20 28 6c 69 6e 2c 20 69 |t doglob| (lin, i|
|00006040| 2c 20 63 75 72 73 61 76 | 2c 20 73 74 61 74 75 73 |, cursav|, status|
|00006050| 29 0a 63 68 61 72 20 6c | 69 6e 5b 5d 3b 0a 69 6e |).char l|in[];.in|
|00006060| 74 20 2a 69 2c 20 2a 63 | 75 72 73 61 76 2c 20 2a |t *i, *c|ursav, *|
|00006070| 73 74 61 74 75 73 3b 0a | 7b 0a 09 72 65 67 69 73 |status;.|{..regis|
|00006080| 74 65 72 20 69 6e 74 20 | 69 73 74 61 72 74 2c 20 |ter int |istart, |
|00006090| 6c 69 6e 65 3b 0a 09 69 | 6e 74 20 64 6f 63 6d 64 |line;..i|nt docmd|
|000060a0| 20 28 29 2c 20 67 65 74 | 6c 73 74 20 28 29 2c 20 | (), get|lst (), |
|000060b0| 6e 65 78 74 6c 6e 20 28 | 29 3b 0a 09 72 65 67 69 |nextln (|);..regi|
|000060c0| 73 74 65 72 20 4c 49 4e | 45 44 45 53 43 20 2a 6b |ster LIN|EDESC *k|
|000060d0| 3b 0a 09 4c 49 4e 45 44 | 45 53 43 20 2a 67 65 74 |;..LINED|ESC *get|
|000060e0| 69 6e 64 20 28 29 3b 0a | 0a 23 69 66 6e 64 65 66 |ind ();.|.#ifndef|
|000060f0| 20 4f 4c 44 5f 53 43 52 | 41 54 43 48 0a 23 69 66 | OLD_SCR|ATCH.#if|
|00006100| 6e 64 65 66 20 4f 4c 44 | 5f 47 4c 4f 42 0a 09 69 |ndef OLD|_GLOB..i|
|00006110| 66 20 28 73 70 65 63 69 | 61 6c 5f 63 61 73 69 6e |f (speci|al_casin|
|00006120| 67 29 0a 09 7b 0a 09 09 | 2f 2a 0a 09 09 72 65 6d |g)..{...|/*...rem|
|00006130| 61 72 6b 20 28 22 57 61 | 72 70 20 37 2c 20 43 61 |ark ("Wa|rp 7, Ca|
|00006140| 70 74 61 69 6e 21 22 29 | 3b 0a 09 09 2a 2f 0a 09 |ptain!")|;...*/..|
|00006150| 09 2f 2a 20 6e 6f 74 20 | 6f 6e 20 74 68 65 20 73 |./* not |on the s|
|00006160| 63 72 65 65 6e 20 74 6f | 6f 20 6c 6f 6e 67 20 61 |creen to|o long a|
|00006170| 6e 79 77 61 79 20 2a 2f | 0a 09 09 72 65 76 65 72 |nyway */|...rever|
|00006180| 73 65 20 28 31 2c 20 4c | 61 73 74 6c 6e 29 3b 0a |se (1, L|astln);.|
|00006190| 09 09 43 75 72 6c 6e 20 | 3d 20 4c 61 73 74 6c 6e |..Curln |= Lastln|
|000061a0| 3b 0a 09 09 73 70 65 63 | 69 61 6c 5f 63 61 73 69 |;...spec|ial_casi|
|000061b0| 6e 67 20 3d 20 4e 4f 3b | 0a 09 09 42 75 66 66 65 |ng = NO;|...Buffe|
|000061c0| 72 5f 63 68 61 6e 67 65 | 64 20 3d 20 59 45 53 3b |r_change|d = YES;|
|000061d0| 0a 09 09 46 69 72 73 74 | 5f 61 66 66 65 63 74 65 |...First|_affecte|
|000061e0| 64 20 3d 20 6d 69 6e 20 | 28 31 2c 20 46 69 72 73 |d = min |(1, Firs|
|000061f0| 74 5f 61 66 66 65 63 74 | 65 64 29 3b 0a 09 09 72 |t_affect|ed);...r|
|00006200| 65 6d 61 72 6b 20 28 22 | 22 29 3b 0a 09 09 61 64 |emark ("|");...ad|
|00006210| 6a 75 73 74 5f 77 69 6e | 64 6f 77 20 28 43 75 72 |just_win|dow (Cur|
|00006220| 6c 6e 2c 20 43 75 72 6c | 6e 29 3b 0a 09 09 75 70 |ln, Curl|n);...up|
|00006230| 64 73 63 72 65 65 6e 20 | 28 29 3b 0a 09 09 72 65 |dscreen |();...re|
|00006240| 74 75 72 6e 20 28 4f 4b | 29 3b 0a 09 7d 0a 23 65 |turn (OK|);..}.#e|
|00006250| 6e 64 69 66 0a 23 65 6e | 64 69 66 0a 09 2a 73 74 |ndif.#en|dif..*st|
|00006260| 61 74 75 73 20 3d 20 4f | 4b 3b 0a 09 69 73 74 61 |atus = O|K;..ista|
|00006270| 72 74 20 3d 20 2a 69 3b | 0a 09 6b 20 3d 20 4c 69 |rt = *i;|..k = Li|
|00006280| 6e 65 30 3b 0a 09 6c 69 | 6e 65 20 3d 20 30 3b 0a |ne0;..li|ne = 0;.|
|00006290| 0a 09 64 6f 20 7b 0a 09 | 09 6c 69 6e 65 2b 2b 3b |..do {..|.line++;|
|000062a0| 0a 09 09 6b 20 3d 20 4e | 45 58 54 4c 49 4e 45 28 |...k = N|EXTLINE(|
|000062b0| 6b 29 3b 0a 09 09 69 66 | 20 28 6b 20 2d 3e 20 47 |k);...if| (k -> G|
|000062c0| 6c 6f 62 6d 61 72 6b 20 | 3d 3d 20 59 45 53 29 09 |lobmark |== YES).|
|000062d0| 2f 2a 20 6c 69 6e 65 20 | 69 73 20 6d 61 72 6b 65 |/* line |is marke|
|000062e0| 64 20 2a 2f 0a 09 09 7b | 0a 09 09 09 6b 20 2d 3e |d */...{|....k ->|
|000062f0| 20 47 6c 6f 62 6d 61 72 | 6b 20 3d 20 4e 4f 3b 09 | Globmar|k = NO;.|
|00006300| 2f 2a 20 75 6e 6d 61 72 | 6b 20 74 68 65 20 6c 69 |/* unmar|k the li|
|00006310| 6e 65 20 2a 2f 0a 09 09 | 09 43 75 72 6c 6e 20 3d |ne */...|.Curln =|
|00006320| 20 6c 69 6e 65 3b 0a 09 | 09 09 2a 63 75 72 73 61 | line;..|..*cursa|
|00006330| 76 20 3d 20 43 75 72 6c | 6e 3b 09 2f 2a 20 72 65 |v = Curl|n;./* re|
|00006340| 6d 65 6d 62 65 72 20 77 | 68 65 72 65 20 77 65 20 |member w|here we |
|00006350| 61 72 65 20 2a 2f 0a 09 | 09 09 2a 69 20 3d 20 69 |are */..|..*i = i|
|00006360| 73 74 61 72 74 3b 0a 09 | 09 09 69 66 20 28 67 65 |start;..|..if (ge|
|00006370| 74 6c 73 74 20 28 6c 69 | 6e 2c 20 69 2c 20 73 74 |tlst (li|n, i, st|
|00006380| 61 74 75 73 29 20 3d 3d | 20 4f 4b 29 0a 09 09 09 |atus) ==| OK)....|
|00006390| 09 64 6f 63 6d 64 20 28 | 6c 69 6e 2c 20 2a 69 2c |.docmd (|lin, *i,|
|000063a0| 20 59 45 53 2c 20 73 74 | 61 74 75 73 29 3b 0a 09 | YES, st|atus);..|
|000063b0| 09 09 6c 69 6e 65 20 3d | 20 30 3b 09 09 2f 2a 20 |..line =| 0;../* |
|000063c0| 6c 69 6e 65 73 20 6d 61 | 79 20 68 61 76 65 20 62 |lines ma|y have b|
|000063d0| 65 65 6e 20 6d 6f 76 65 | 64 20 2a 2f 0a 09 09 09 |een move|d */....|
|000063e0| 6b 20 3d 20 4c 69 6e 65 | 30 3b 0a 09 09 7d 0a 09 |k = Line|0;...}..|
|000063f0| 09 69 66 20 28 69 6e 74 | 72 70 74 20 28 29 29 0a |.if (int|rpt ()).|
+--------+-------------------------+-------------------------+--------+--------+