/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / unix_c / database / unifyacl.tar

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 75 6e 69 66 79 2d 61 63 | 63 65 6c 6c 2f 00 00 00 |unify-ac|cell/...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 20 20 20 37 | 35 35 20 00 20 20 20 32 |....   7|55 .   2|
|00000070| 34 33 20 00 20 20 20 20 | 31 32 20 00 20 20 20 20 |43 .    |12 .    |
|00000080| 20 20 20 20 20 20 30 20 | 20 34 34 30 32 30 36 32 |      0 | 4402062|
|00000090| 32 30 34 20 20 20 36 33 | 36 30 00 20 00 00 00 00 |204   63|60. ....|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 75 6e 69 66 79 2d 61 63 | 63 65 6c 6c 2f 53 48 41 |unify-ac|cell/SHA|
|00000210| 52 2e 48 45 41 44 45 52 | 00 00 00 00 00 00 00 00 |R.HEADER|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 20 20 20 36 | 34 34 20 00 20 20 20 32 |....   6|44 .   2|
|00000270| 34 33 20 00 20 20 20 20 | 31 32 20 00 20 20 20 20 |43 .    |12 .    |
|00000280| 20 20 20 32 30 32 37 20 | 20 34 34 30 32 30 36 32 |   2027 | 4402062|
|00000290| 30 31 32 20 20 31 30 30 | 35 32 00 20 00 00 00 00 |012  100|52. ....|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000400| 0a 09 54 68 65 20 66 6f | 6c 6c 6f 77 69 6e 67 20 |..The fo|llowing |
|00000410| 63 6f 6c 6c 65 63 74 69 | 6f 6e 20 6f 66 20 73 74 |collecti|on of st|
|00000420| 75 66 66 20 61 6c 6c 6f | 77 73 20 79 6f 75 20 74 |uff allo|ws you t|
|00000430| 6f 20 61 63 63 65 73 73 | 0a 09 61 6e 64 20 75 73 |o access|..and us|
|00000440| 65 20 55 4e 49 46 59 20 | 54 65 78 74 20 28 61 6e |e UNIFY |Text (an|
|00000450| 64 20 62 79 20 65 78 74 | 65 6e 73 69 6f 6e 2c 20 |d by ext|ension, |
|00000460| 42 69 6e 61 72 79 29 20 | 20 66 69 65 6c 64 73 0a |Binary) | fields.|
|00000470| 09 66 72 6f 6d 20 77 69 | 74 68 69 6e 20 74 68 65 |.from wi|thin the|
|00000480| 20 41 63 63 65 6c 6c 20 | 65 6e 76 69 72 6f 6e 6d | Accell |environm|
|00000490| 65 6e 74 2e 20 20 41 6c | 73 6f 20 69 6e 63 6c 75 |ent.  Al|so inclu|
|000004a0| 64 65 64 20 69 73 0a 09 | 61 20 64 65 6c 69 62 65 |ded is..|a delibe|
|000004b0| 72 61 74 65 6c 79 20 63 | 72 69 70 70 6c 65 64 20 |rately c|rippled |
|000004c0| 76 65 72 73 69 6f 6e 20 | 6f 66 20 6d 69 63 72 6f |version |of micro|
|000004d0| 2d 67 6e 75 20 65 6d 61 | 63 73 20 74 68 61 74 0a |-gnu ema|cs that.|
|000004e0| 09 68 61 73 20 62 65 65 | 6e 20 6d 61 6e 67 6c 65 |.has bee|n mangle|
|000004f0| 64 20 69 6e 74 6f 20 70 | 72 65 73 65 6e 74 69 6e |d into p|resentin|
|00000500| 67 20 61 20 76 65 72 79 | 20 41 63 63 65 6c 6c 2d |g a very| Accell-|
|00000510| 6c 69 6b 65 0a 09 22 6c | 6f 6f 6b 20 61 6e 64 20 |like.."l|ook and |
|00000520| 66 65 65 6c 22 20 74 6f | 20 74 68 65 20 75 73 65 |feel" to| the use|
|00000530| 72 2e 20 20 4f 6e 20 61 | 6e 20 4e 43 52 20 54 6f |r.  On a|n NCR To|
|00000540| 77 65 72 2c 20 74 68 65 | 20 72 65 73 75 6c 74 69 |wer, the| resulti|
|00000550| 6e 67 0a 09 65 78 65 63 | 75 74 61 62 6c 65 20 69 |ng..exec|utable i|
|00000560| 73 20 6f 6e 6c 79 20 61 | 62 6f 75 74 20 35 35 4b |s only a|bout 55K|
|00000570| 2e 20 20 46 6f 72 20 63 | 61 73 75 61 6c 20 75 73 |.  For c|asual us|
|00000580| 65 72 73 2c 20 74 68 69 | 73 0a 09 68 61 73 20 74 |ers, thi|s..has t|
|00000590| 75 72 6e 65 64 20 6f 75 | 74 20 74 6f 20 62 65 20 |urned ou|t to be |
|000005a0| 61 20 62 65 74 74 65 72 | 20 65 64 69 74 6f 72 20 |a better| editor |
|000005b0| 74 68 61 6e 20 73 61 79 | 2c 20 76 69 20 6f 72 0a |than say|, vi or.|
|000005c0| 09 65 64 20 3a 2d 29 20 | 20 41 73 20 77 69 74 68 |.ed :-) | As with|
|000005d0| 20 55 4e 49 46 59 2c 20 | 79 6f 75 72 20 63 68 6f | UNIFY, |your cho|
|000005e0| 69 63 65 20 6f 66 20 65 | 64 69 74 6f 72 73 20 69 |ice of e|ditors i|
|000005f0| 73 20 0a 09 61 76 61 69 | 6c 61 62 6c 65 20 76 69 |s ..avai|lable vi|
|00000600| 61 20 74 68 65 20 45 44 | 49 54 20 65 6e 76 69 72 |a the ED|IT envir|
|00000610| 6f 6e 6d 65 6e 74 20 76 | 61 72 69 61 62 6c 65 2e |onment v|ariable.|
|00000620| 0a 0a 09 54 68 65 20 43 | 2d 68 6f 6f 6b 73 20 77 |...The C|-hooks w|
|00000630| 68 69 63 68 20 77 72 69 | 74 65 20 74 68 65 20 74 |hich wri|te the t|
|00000640| 65 78 74 20 6f 75 74 20 | 74 6f 20 74 68 65 20 64 |ext out |to the d|
|00000650| 61 74 61 62 61 73 65 20 | 0a 09 48 41 56 45 20 62 |atabase |..HAVE b|
|00000660| 65 65 6e 20 6d 6f 64 69 | 66 69 65 64 20 74 6f 20 |een modi|fied to |
|00000670| 77 6f 72 6b 20 61 72 6f | 75 6e 64 20 74 68 65 20 |work aro|und the |
|00000680| 72 65 63 65 6e 74 6c 79 | 20 64 69 73 63 6f 76 65 |recently| discove|
|00000690| 72 65 64 0a 09 28 61 6e | 64 20 72 61 74 68 65 72 |red..(an|d rather|
|000006a0| 20 67 72 75 65 73 6f 6d | 65 29 20 55 4e 49 46 59 | gruesom|e) UNIFY|
|000006b0| 20 62 75 67 20 77 68 69 | 63 68 20 66 72 65 71 75 | bug whi|ch frequ|
|000006c0| 65 6e 74 6c 79 20 6c 65 | 64 20 74 6f 0a 09 63 6f |ently le|d to..co|
|000006d0| 72 72 75 70 74 69 6f 6e | 20 6f 66 20 66 69 6c 65 |rruption| of file|
|000006e0| 2e 64 62 76 2e 20 20 52 | 65 6d 65 6d 62 65 72 20 |.dbv.  R|emember |
|000006f0| 74 68 61 74 20 75 73 69 | 6e 67 20 45 4e 54 45 52 |that usi|ng ENTER|
|00000700| 20 74 6f 20 0a 09 65 64 | 69 74 20 61 20 74 65 78 | to ..ed|it a tex|
|00000710| 74 20 66 69 65 6c 64 20 | 57 49 4c 4c 20 53 54 49 |t field |WILL STI|
|00000720| 4c 4c 20 43 41 55 53 45 | 20 43 4f 52 52 55 50 54 |LL CAUSE| CORRUPT|
|00000730| 49 4f 4e 20 4f 46 20 46 | 49 4c 45 2e 44 42 56 2e |ION OF F|ILE.DBV.|
|00000740| 0a 0a 09 5b 49 66 20 79 | 6f 75 20 64 6f 6e 27 74 |...[If y|ou don't|
|00000750| 20 6b 6e 6f 77 20 61 62 | 6f 75 74 20 74 68 69 73 | know ab|out this|
|00000760| 20 62 75 67 20 61 6e 64 | 20 79 6f 75 20 61 72 65 | bug and| you are|
|00000770| 20 75 73 69 6e 67 20 74 | 65 78 74 0a 09 20 66 69 | using t|ext.. fi|
|00000780| 65 6c 64 73 20 66 72 6f | 6d 20 65 69 74 68 65 72 |elds fro|m either|
|00000790| 20 43 20 6f 72 20 76 69 | 61 20 45 4e 54 45 52 20 | C or vi|a ENTER |
|000007a0| 2d 2d 20 63 61 6c 6c 20 | 55 6e 69 66 79 20 54 53 |-- call |Unify TS|
|000007b0| 20 54 4f 44 41 59 0a 09 | 20 61 6e 64 20 67 65 74 | TODAY..| and get|
|000007c0| 20 61 20 64 65 73 63 72 | 69 70 74 69 6f 6e 20 6f | a descr|iption o|
|000007d0| 66 20 74 68 65 20 70 72 | 6f 62 6c 65 6d 20 5d 0a |f the pr|oblem ].|
|000007e0| 0a 09 42 75 67 20 72 65 | 70 6f 72 74 73 20 77 6f |..Bug re|ports wo|
|000007f0| 75 6c 64 20 62 65 20 61 | 70 70 72 65 63 69 61 74 |uld be a|ppreciat|
|00000800| 65 64 2e 0a 09 0a 09 09 | 2d 4d 61 72 6b 20 48 61 |ed......|-Mark Ha|
|00000810| 72 67 72 6f 76 65 0a 00 | 00 00 00 00 00 00 00 00 |rgrove..|........|
|00000820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000880| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000890| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000900| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000910| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000980| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a00| 75 6e 69 66 79 2d 61 63 | 63 65 6c 6c 2f 72 65 67 |unify-ac|cell/reg|
|00000a10| 69 6f 6e 2e 63 00 00 00 | 00 00 00 00 00 00 00 00 |ion.c...|........|
|00000a20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a60| 00 00 00 00 20 20 20 36 | 34 34 20 00 20 20 20 32 |....   6|44 .   2|
|00000a70| 34 33 20 00 20 20 20 20 | 31 32 20 00 20 20 20 20 |43 .    |12 .    |
|00000a80| 20 20 31 31 35 32 34 20 | 20 34 34 30 32 30 36 32 |  11524 | 4402062|
|00000a90| 30 31 34 20 20 31 30 31 | 31 36 00 20 00 00 00 00 |014  101|16. ....|
|00000aa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ab0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c00| 2f 2a 0a 20 2a 09 09 52 | 65 67 69 6f 6e 20 62 61 |/*. *..R|egion ba|
|00000c10| 73 65 64 20 63 6f 6d 6d | 61 6e 64 73 2e 0a 20 2a |sed comm|ands.. *|
|00000c20| 20 54 68 65 20 72 6f 75 | 74 69 6e 65 73 20 69 6e | The rou|tines in|
|00000c30| 20 74 68 69 73 20 66 69 | 6c 65 0a 20 2a 20 64 65 | this fi|le. * de|
|00000c40| 61 6c 20 77 69 74 68 20 | 74 68 65 20 72 65 67 69 |al with |the regi|
|00000c50| 6f 6e 2c 20 74 68 61 74 | 20 6d 61 67 69 63 20 73 |on, that| magic s|
|00000c60| 70 61 63 65 0a 20 2a 20 | 62 65 74 77 65 65 6e 20 |pace. * |between |
|00000c70| 22 2e 22 20 61 6e 64 20 | 6d 61 72 6b 2e 20 53 6f |"." and |mark. So|
|00000c80| 6d 65 20 66 75 6e 63 74 | 69 6f 6e 73 20 61 72 65 |me funct|ions are|
|00000c90| 0a 20 2a 20 63 6f 6d 6d | 61 6e 64 73 2e 20 53 6f |. * comm|ands. So|
|00000ca0| 6d 65 20 66 75 6e 63 74 | 69 6f 6e 73 20 61 72 65 |me funct|ions are|
|00000cb0| 20 6a 75 73 74 20 66 6f | 72 0a 20 2a 20 69 6e 74 | just fo|r. * int|
|00000cc0| 65 72 6e 61 6c 20 75 73 | 65 2e 0a 20 2a 2f 0a 23 |ernal us|e.. */.#|
|00000cd0| 69 6e 63 6c 75 64 65 09 | 22 64 65 66 2e 68 22 0a |include.|"def.h".|
|00000ce0| 0a 2f 2a 0a 20 2a 20 4b | 69 6c 6c 20 74 68 65 20 |./*. * K|ill the |
|00000cf0| 72 65 67 69 6f 6e 2e 20 | 41 73 6b 20 22 67 65 74 |region. |Ask "get|
|00000d00| 72 65 67 69 6f 6e 22 0a | 20 2a 20 74 6f 20 66 69 |region".| * to fi|
|00000d10| 67 75 72 65 20 6f 75 74 | 20 74 68 65 20 62 6f 75 |gure out| the bou|
|00000d20| 6e 64 73 20 6f 66 20 74 | 68 65 20 72 65 67 69 6f |nds of t|he regio|
|00000d30| 6e 2e 0a 20 2a 20 4d 6f | 76 65 20 22 2e 22 20 74 |n.. * Mo|ve "." t|
|00000d40| 6f 20 74 68 65 20 73 74 | 61 72 74 2c 20 61 6e 64 |o the st|art, and|
|00000d50| 20 6b 69 6c 6c 20 74 68 | 65 20 63 68 61 72 61 63 | kill th|e charac|
|00000d60| 74 65 72 73 2e 0a 20 2a | 2f 0a 2f 2a 41 52 47 53 |ters.. *|/./*ARGS|
|00000d70| 55 53 45 44 2a 2f 0a 6b | 69 6c 6c 72 65 67 69 6f |USED*/.k|illregio|
|00000d80| 6e 28 66 2c 20 6e 2c 20 | 6b 29 0a 7b 0a 09 72 65 |n(f, n, |k).{..re|
|00000d90| 67 69 73 74 65 72 20 69 | 6e 74 09 73 3b 0a 09 52 |gister i|nt.s;..R|
|00000da0| 45 47 49 4f 4e 09 09 72 | 65 67 69 6f 6e 3b 0a 0a |EGION..r|egion;..|
|00000db0| 09 69 66 20 28 28 73 3d | 67 65 74 72 65 67 69 6f |.if ((s=|getregio|
|00000dc0| 6e 28 26 72 65 67 69 6f | 6e 29 29 20 21 3d 20 54 |n(&regio|n)) != T|
|00000dd0| 52 55 45 29 0a 09 09 72 | 65 74 75 72 6e 20 28 73 |RUE)...r|eturn (s|
|00000de0| 29 3b 0a 09 69 66 20 28 | 28 6c 61 73 74 66 6c 61 |);..if (|(lastfla|
|00000df0| 67 26 43 46 4b 49 4c 4c | 29 20 3d 3d 20 30 29 09 |g&CFKILL|) == 0).|
|00000e00| 09 2f 2a 20 54 68 69 73 | 20 69 73 20 61 20 6b 69 |./* This| is a ki|
|00000e10| 6c 6c 20 74 79 70 65 09 | 2a 2f 0a 09 09 6b 64 65 |ll type.|*/...kde|
|00000e20| 6c 65 74 65 28 29 3b 09 | 09 09 2f 2a 20 63 6f 6d |lete();.|../* com|
|00000e30| 6d 61 6e 64 2c 20 73 6f | 20 64 6f 20 6d 61 67 69 |mand, so| do magi|
|00000e40| 63 09 2a 2f 0a 09 74 68 | 69 73 66 6c 61 67 20 7c |c.*/..th|isflag ||
|00000e50| 3d 20 43 46 4b 49 4c 4c | 3b 09 09 09 2f 2a 20 6b |= CFKILL|;.../* k|
|00000e60| 69 6c 6c 20 62 75 66 66 | 65 72 20 73 74 75 66 66 |ill buff|er stuff|
|00000e70| 2e 09 2a 2f 0a 09 63 75 | 72 77 70 2d 3e 77 5f 64 |..*/..cu|rwp->w_d|
|00000e80| 6f 74 70 20 3d 20 72 65 | 67 69 6f 6e 2e 72 5f 6c |otp = re|gion.r_l|
|00000e90| 69 6e 65 70 3b 0a 09 63 | 75 72 77 70 2d 3e 77 5f |inep;..c|urwp->w_|
|00000ea0| 64 6f 74 6f 20 3d 20 72 | 65 67 69 6f 6e 2e 72 5f |doto = r|egion.r_|
|00000eb0| 6f 66 66 73 65 74 3b 0a | 09 72 65 74 75 72 6e 20 |offset;.|.return |
|00000ec0| 28 6c 64 65 6c 65 74 65 | 28 72 65 67 69 6f 6e 2e |(ldelete|(region.|
|00000ed0| 72 5f 73 69 7a 65 2c 20 | 4b 46 4f 52 57 29 29 3b |r_size, |KFORW));|
|00000ee0| 0a 7d 0a 0a 0a 2f 2a 0a | 20 2a 20 54 68 69 73 20 |.}.../*.| * This |
|00000ef0| 72 6f 75 74 69 6e 65 20 | 66 69 67 75 72 65 73 20 |routine |figures |
|00000f00| 6f 75 74 20 74 68 65 20 | 62 6f 75 6e 64 20 6f 66 |out the |bound of|
|00000f10| 20 74 68 65 20 72 65 67 | 69 6f 6e 0a 20 2a 20 69 | the reg|ion. * i|
|00000f20| 6e 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 77 69 |n the cu|rrent wi|
|00000f30| 6e 64 6f 77 2c 20 61 6e | 64 20 73 74 6f 72 65 73 |ndow, an|d stores|
|00000f40| 20 74 68 65 20 72 65 73 | 75 6c 74 73 20 69 6e 74 | the res|ults int|
|00000f50| 6f 20 74 68 65 20 66 69 | 65 6c 64 73 0a 20 2a 20 |o the fi|elds. * |
|00000f60| 6f 66 20 74 68 65 20 52 | 45 47 49 4f 4e 20 73 74 |of the R|EGION st|
|00000f70| 72 75 63 74 75 72 65 2e | 20 44 6f 74 20 61 6e 64 |ructure.| Dot and|
|00000f80| 20 6d 61 72 6b 20 61 72 | 65 20 75 73 75 61 6c 6c | mark ar|e usuall|
|00000f90| 79 20 63 6c 6f 73 65 20 | 74 6f 67 65 74 68 65 72 |y close |together|
|00000fa0| 2c 0a 20 2a 20 62 75 74 | 20 49 20 64 6f 6e 27 74 |,. * but| I don't|
|00000fb0| 20 6b 6e 6f 77 20 74 68 | 65 20 6f 72 64 65 72 2c | know th|e order,|
|00000fc0| 20 73 6f 20 49 20 73 63 | 61 6e 20 6f 75 74 77 61 | so I sc|an outwa|
|00000fd0| 72 64 20 66 72 6f 6d 20 | 64 6f 74 2c 20 69 6e 20 |rd from |dot, in |
|00000fe0| 62 6f 74 68 0a 20 2a 20 | 64 69 72 65 63 74 69 6f |both. * |directio|
|00000ff0| 6e 73 2c 20 6c 6f 6f 6b | 69 6e 67 20 66 6f 72 20 |ns, look|ing for |
|00001000| 6d 61 72 6b 2e 20 54 68 | 65 20 73 69 7a 65 20 69 |mark. Th|e size i|
|00001010| 73 20 6b 65 70 74 20 69 | 6e 20 61 20 6c 6f 6e 67 |s kept i|n a long|
|00001020| 2e 20 41 74 20 74 68 65 | 0a 20 2a 20 65 6e 64 2c |. At the|. * end,|
|00001030| 20 61 66 74 65 72 20 74 | 68 65 20 73 69 7a 65 20 | after t|he size |
|00001040| 69 73 20 66 69 67 75 72 | 65 64 20 6f 75 74 2c 20 |is figur|ed out, |
|00001050| 69 74 20 69 73 20 61 73 | 73 69 67 6e 65 64 20 74 |it is as|signed t|
|00001060| 6f 20 74 68 65 20 73 69 | 7a 65 0a 20 2a 20 66 69 |o the si|ze. * fi|
|00001070| 65 6c 64 20 6f 66 20 74 | 68 65 20 72 65 67 69 6f |eld of t|he regio|
|00001080| 6e 20 73 74 72 75 63 74 | 75 72 65 2e 20 49 66 20 |n struct|ure. If |
|00001090| 74 68 69 73 20 61 73 73 | 69 67 6e 6d 65 6e 74 20 |this ass|ignment |
|000010a0| 6c 6f 73 65 73 20 61 6e | 79 20 62 69 74 73 2c 0a |loses an|y bits,.|
|000010b0| 20 2a 20 74 68 65 6e 20 | 77 65 20 70 72 69 6e 74 | * then |we print|
|000010c0| 20 61 6e 20 65 72 72 6f | 72 2e 20 54 68 69 73 20 | an erro|r. This |
|000010d0| 69 73 20 22 74 79 70 65 | 20 69 6e 64 65 70 65 6e |is "type| indepen|
|000010e0| 64 65 6e 74 22 20 6f 76 | 65 72 66 6c 6f 77 0a 20 |dent" ov|erflow. |
|000010f0| 2a 20 63 68 65 63 6b 69 | 6e 67 2e 20 41 6c 6c 20 |* checki|ng. All |
|00001100| 6f 66 20 74 68 65 20 63 | 61 6c 6c 65 72 73 20 6f |of the c|allers o|
|00001110| 66 20 74 68 69 73 20 72 | 6f 75 74 69 6e 65 20 73 |f this r|outine s|
|00001120| 68 6f 75 6c 64 20 62 65 | 20 72 65 61 64 79 20 74 |hould be| ready t|
|00001130| 6f 0a 20 2a 20 67 65 74 | 20 61 6e 20 41 42 4f 52 |o. * get| an ABOR|
|00001140| 54 20 73 74 61 74 75 73 | 2c 20 62 65 63 61 75 73 |T status|, becaus|
|00001150| 65 20 49 20 6d 69 67 68 | 74 20 61 64 64 20 61 20 |e I migh|t add a |
|00001160| 22 69 66 20 72 65 67 69 | 6f 6e 73 20 69 73 20 62 |"if regi|ons is b|
|00001170| 69 67 2c 0a 20 2a 20 61 | 73 6b 20 62 65 66 6f 72 |ig,. * a|sk befor|
|00001180| 65 20 63 6c 6f 62 62 65 | 72 72 69 6e 67 22 20 66 |e clobbe|rring" f|
|00001190| 6c 61 67 2e 0a 20 2a 2f | 0a 67 65 74 72 65 67 69 |lag.. */|.getregi|
|000011a0| 6f 6e 28 72 70 29 20 72 | 65 67 69 73 74 65 72 20 |on(rp) r|egister |
|000011b0| 52 45 47 49 4f 4e 20 2a | 72 70 3b 0a 7b 0a 09 72 |REGION *|rp;.{..r|
|000011c0| 65 67 69 73 74 65 72 20 | 4c 49 4e 45 09 2a 66 6c |egister |LINE.*fl|
|000011d0| 70 3b 0a 09 72 65 67 69 | 73 74 65 72 20 4c 49 4e |p;..regi|ster LIN|
|000011e0| 45 09 2a 62 6c 70 3b 0a | 09 72 65 67 69 73 74 65 |E.*blp;.|.registe|
|000011f0| 72 20 6c 6f 6e 67 09 66 | 73 69 7a 65 3b 09 09 09 |r long.f|size;...|
|00001200| 2f 2a 20 4c 6f 6e 67 20 | 6e 6f 77 2e 09 09 2a 2f |/* Long |now...*/|
|00001210| 0a 09 72 65 67 69 73 74 | 65 72 20 6c 6f 6e 67 09 |..regist|er long.|
|00001220| 62 73 69 7a 65 3b 0a 0a | 09 69 66 20 28 63 75 72 |bsize;..|.if (cur|
|00001230| 77 70 2d 3e 77 5f 6d 61 | 72 6b 70 20 3d 3d 20 4e |wp->w_ma|rkp == N|
|00001240| 55 4c 4c 29 0a 09 7b 0a | 09 09 65 77 70 72 69 6e |ULL)..{.|..ewprin|
|00001250| 74 66 28 22 4e 6f 20 6d | 61 72 6b 20 73 65 74 20 |tf("No m|ark set |
|00001260| 69 6e 20 74 68 69 73 20 | 77 69 6e 64 6f 77 22 29 |in this |window")|
|00001270| 3b 0a 09 09 72 65 74 75 | 72 6e 20 28 46 41 4c 53 |;...retu|rn (FALS|
|00001280| 45 29 3b 0a 09 7d 0a 09 | 69 66 20 28 63 75 72 77 |E);..}..|if (curw|
|00001290| 70 2d 3e 77 5f 64 6f 74 | 70 20 3d 3d 20 63 75 72 |p->w_dot|p == cur|
|000012a0| 77 70 2d 3e 77 5f 6d 61 | 72 6b 70 29 0a 09 7b 09 |wp->w_ma|rkp)..{.|
|000012b0| 2f 2a 20 22 72 5f 73 69 | 7a 65 22 20 61 6c 77 61 |/* "r_si|ze" alwa|
|000012c0| 79 73 20 6f 6b 2e 09 2a | 2f 0a 09 09 72 70 2d 3e |ys ok..*|/...rp->|
|000012d0| 72 5f 6c 69 6e 65 70 20 | 3d 20 63 75 72 77 70 2d |r_linep |= curwp-|
|000012e0| 3e 77 5f 64 6f 74 70 3b | 0a 09 09 69 66 20 28 63 |>w_dotp;|...if (c|
|000012f0| 75 72 77 70 2d 3e 77 5f | 64 6f 74 6f 20 3c 20 63 |urwp->w_|doto < c|
|00001300| 75 72 77 70 2d 3e 77 5f | 6d 61 72 6b 6f 29 0a 09 |urwp->w_|marko)..|
|00001310| 09 7b 0a 09 09 09 72 70 | 2d 3e 72 5f 6f 66 66 73 |.{....rp|->r_offs|
|00001320| 65 74 20 3d 20 63 75 72 | 77 70 2d 3e 77 5f 64 6f |et = cur|wp->w_do|
|00001330| 74 6f 3b 0a 09 09 09 72 | 70 2d 3e 72 5f 73 69 7a |to;....r|p->r_siz|
|00001340| 65 20 3d 20 28 52 53 49 | 5a 45 29 20 28 63 75 72 |e = (RSI|ZE) (cur|
|00001350| 77 70 2d 3e 77 5f 6d 61 | 72 6b 6f 2d 63 75 72 77 |wp->w_ma|rko-curw|
|00001360| 70 2d 3e 77 5f 64 6f 74 | 6f 29 3b 0a 09 09 7d 0a |p->w_dot|o);...}.|
|00001370| 09 09 65 6c 73 65 0a 09 | 09 7b 0a 09 09 09 72 70 |..else..|.{....rp|
|00001380| 2d 3e 72 5f 6f 66 66 73 | 65 74 20 3d 20 63 75 72 |->r_offs|et = cur|
|00001390| 77 70 2d 3e 77 5f 6d 61 | 72 6b 6f 3b 0a 09 09 09 |wp->w_ma|rko;....|
|000013a0| 72 70 2d 3e 72 5f 73 69 | 7a 65 20 3d 20 28 52 53 |rp->r_si|ze = (RS|
|000013b0| 49 5a 45 29 20 28 63 75 | 72 77 70 2d 3e 77 5f 64 |IZE) (cu|rwp->w_d|
|000013c0| 6f 74 6f 2d 63 75 72 77 | 70 2d 3e 77 5f 6d 61 72 |oto-curw|p->w_mar|
|000013d0| 6b 6f 29 3b 0a 09 09 7d | 0a 09 09 72 65 74 75 72 |ko);...}|...retur|
|000013e0| 6e 20 28 54 52 55 45 29 | 3b 0a 09 7d 0a 09 62 6c |n (TRUE)|;..}..bl|
|000013f0| 70 20 3d 20 63 75 72 77 | 70 2d 3e 77 5f 64 6f 74 |p = curw|p->w_dot|
|00001400| 70 3b 09 09 09 2f 2a 20 | 47 65 74 20 72 65 67 69 |p;.../* |Get regi|
|00001410| 6f 6e 20 73 69 7a 65 2e | 09 2a 2f 0a 09 66 6c 70 |on size.|.*/..flp|
|00001420| 20 3d 20 63 75 72 77 70 | 2d 3e 77 5f 64 6f 74 70 | = curwp|->w_dotp|
|00001430| 3b 0a 09 62 73 69 7a 65 | 20 3d 20 63 75 72 77 70 |;..bsize| = curwp|
|00001440| 2d 3e 77 5f 64 6f 74 6f | 3b 0a 09 66 73 69 7a 65 |->w_doto|;..fsize|
|00001450| 20 3d 20 6c 6c 65 6e 67 | 74 68 28 66 6c 70 29 2d | = lleng|th(flp)-|
|00001460| 63 75 72 77 70 2d 3e 77 | 5f 64 6f 74 6f 2b 31 3b |curwp->w|_doto+1;|
|00001470| 0a 09 77 68 69 6c 65 20 | 28 66 6c 70 21 3d 63 75 |..while |(flp!=cu|
|00001480| 72 62 70 2d 3e 62 5f 6c | 69 6e 65 70 20 7c 7c 20 |rbp->b_l|inep || |
|00001490| 6c 62 61 63 6b 28 62 6c | 70 29 21 3d 63 75 72 62 |lback(bl|p)!=curb|
|000014a0| 70 2d 3e 62 5f 6c 69 6e | 65 70 29 0a 09 7b 0a 09 |p->b_lin|ep)..{..|
|000014b0| 09 69 66 20 28 66 6c 70 | 20 21 3d 20 63 75 72 62 |.if (flp| != curb|
|000014c0| 70 2d 3e 62 5f 6c 69 6e | 65 70 29 0a 09 09 7b 0a |p->b_lin|ep)...{.|
|000014d0| 09 09 09 66 6c 70 20 3d | 20 6c 66 6f 72 77 28 66 |...flp =| lforw(f|
|000014e0| 6c 70 29 3b 0a 09 09 09 | 69 66 20 28 66 6c 70 20 |lp);....|if (flp |
|000014f0| 3d 3d 20 63 75 72 77 70 | 2d 3e 77 5f 6d 61 72 6b |== curwp|->w_mark|
|00001500| 70 29 0a 09 09 09 7b 0a | 09 09 09 09 72 70 2d 3e |p)....{.|....rp->|
|00001510| 72 5f 6c 69 6e 65 70 20 | 3d 20 63 75 72 77 70 2d |r_linep |= curwp-|
|00001520| 3e 77 5f 64 6f 74 70 3b | 0a 09 09 09 09 72 70 2d |>w_dotp;|.....rp-|
|00001530| 3e 72 5f 6f 66 66 73 65 | 74 20 3d 20 63 75 72 77 |>r_offse|t = curw|
|00001540| 70 2d 3e 77 5f 64 6f 74 | 6f 3b 0a 09 09 09 09 72 |p->w_dot|o;.....r|
|00001550| 65 74 75 72 6e 20 28 73 | 65 74 73 69 7a 65 28 72 |eturn (s|etsize(r|
|00001560| 70 2c 0a 09 09 09 09 09 | 28 52 53 49 5a 45 29 20 |p,......|(RSIZE) |
|00001570| 28 66 73 69 7a 65 2b 63 | 75 72 77 70 2d 3e 77 5f |(fsize+c|urwp->w_|
|00001580| 6d 61 72 6b 6f 29 29 29 | 3b 0a 09 09 09 7d 0a 09 |marko)))|;....}..|
|00001590| 09 09 66 73 69 7a 65 20 | 2b 3d 20 6c 6c 65 6e 67 |..fsize |+= lleng|
|000015a0| 74 68 28 66 6c 70 29 2b | 31 3b 0a 09 09 7d 0a 09 |th(flp)+|1;...}..|
|000015b0| 09 69 66 20 28 6c 62 61 | 63 6b 28 62 6c 70 29 20 |.if (lba|ck(blp) |
|000015c0| 21 3d 20 63 75 72 62 70 | 2d 3e 62 5f 6c 69 6e 65 |!= curbp|->b_line|
|000015d0| 70 29 0a 09 09 7b 0a 09 | 09 09 62 6c 70 20 3d 20 |p)...{..|..blp = |
|000015e0| 6c 62 61 63 6b 28 62 6c | 70 29 3b 0a 09 09 09 62 |lback(bl|p);....b|
|000015f0| 73 69 7a 65 20 2b 3d 20 | 6c 6c 65 6e 67 74 68 28 |size += |llength(|
|00001600| 62 6c 70 29 2b 31 3b 0a | 09 09 09 69 66 20 28 62 |blp)+1;.|...if (b|
|00001610| 6c 70 20 3d 3d 20 63 75 | 72 77 70 2d 3e 77 5f 6d |lp == cu|rwp->w_m|
|00001620| 61 72 6b 70 29 0a 09 09 | 09 7b 0a 09 09 09 09 72 |arkp)...|.{.....r|
|00001630| 70 2d 3e 72 5f 6c 69 6e | 65 70 20 3d 20 62 6c 70 |p->r_lin|ep = blp|
|00001640| 3b 0a 09 09 09 09 72 70 | 2d 3e 72 5f 6f 66 66 73 |;.....rp|->r_offs|
|00001650| 65 74 20 3d 20 63 75 72 | 77 70 2d 3e 77 5f 6d 61 |et = cur|wp->w_ma|
|00001660| 72 6b 6f 3b 0a 09 09 09 | 09 72 65 74 75 72 6e 20 |rko;....|.return |
|00001670| 28 73 65 74 73 69 7a 65 | 28 72 70 2c 0a 09 09 09 |(setsize|(rp,....|
|00001680| 09 09 28 52 53 49 5a 45 | 29 20 28 62 73 69 7a 65 |..(RSIZE|) (bsize|
|00001690| 2d 63 75 72 77 70 2d 3e | 77 5f 6d 61 72 6b 6f 29 |-curwp->|w_marko)|
|000016a0| 29 29 3b 0a 09 09 09 7d | 0a 09 09 7d 0a 09 7d 0a |));....}|...}..}.|
|000016b0| 09 65 77 70 72 69 6e 74 | 66 28 22 42 75 67 3a 20 |.ewprint|f("Bug: |
|000016c0| 6c 6f 73 74 20 6d 61 72 | 6b 22 29 3b 09 09 2f 2a |lost mar|k");../*|
|000016d0| 20 47 61 6b 21 09 09 09 | 2a 2f 0a 09 72 65 74 75 | Gak!...|*/..retu|
|000016e0| 72 6e 20 28 46 41 4c 53 | 45 29 3b 0a 7d 0a 0a 2f |rn (FALS|E);.}../|
|000016f0| 2a 0a 20 2a 20 53 65 74 | 20 73 69 7a 65 2c 20 61 |*. * Set| size, a|
|00001700| 6e 64 20 63 68 65 63 6b | 20 66 6f 72 20 6f 76 65 |nd check| for ove|
|00001710| 72 66 6c 6f 77 2e 0a 20 | 2a 2f 0a 73 65 74 73 69 |rflow.. |*/.setsi|
|00001720| 7a 65 28 72 70 2c 20 73 | 69 7a 65 29 0a 20 20 20 |ze(rp, s|ize).   |
|00001730| 72 65 67 69 73 74 65 72 | 20 52 45 47 49 4f 4e 20 |register| REGION |
|00001740| 2a 72 70 3b 0a 20 20 20 | 72 65 67 69 73 74 65 72 |*rp;.   |register|
|00001750| 20 52 53 49 5a 45 20 73 | 69 7a 65 3b 0a 7b 0a 0a | RSIZE s|ize;.{..|
|00001760| 09 72 70 2d 3e 72 5f 73 | 69 7a 65 20 3d 20 73 69 |.rp->r_s|ize = si|
|00001770| 7a 65 3b 0a 09 69 66 20 | 28 72 70 2d 3e 72 5f 73 |ze;..if |(rp->r_s|
|00001780| 69 7a 65 20 21 3d 20 73 | 69 7a 65 29 0a 09 7b 0a |ize != s|ize)..{.|
|00001790| 09 09 65 77 70 72 69 6e | 74 66 28 22 52 65 67 69 |..ewprin|tf("Regi|
|000017a0| 6f 6e 20 69 73 20 74 6f | 6f 20 6c 61 72 67 65 22 |on is to|o large"|
|000017b0| 29 3b 0a 09 09 72 65 74 | 75 72 6e 20 28 46 41 4c |);...ret|urn (FAL|
|000017c0| 53 45 29 3b 0a 09 7d 0a | 09 72 65 74 75 72 6e 20 |SE);..}.|.return |
|000017d0| 28 54 52 55 45 29 3b 0a | 7d 0a 0a 23 69 66 64 65 |(TRUE);.|}..#ifde|
|000017e0| 66 09 50 52 45 46 49 58 | 52 45 47 49 4f 4e 0a 2f |f.PREFIX|REGION./|
|000017f0| 2a 0a 20 2a 20 49 6d 70 | 6c 65 6d 65 6e 74 73 20 |*. * Imp|lements |
|00001800| 6f 6e 65 20 6f 66 20 6d | 79 20 66 61 76 6f 72 69 |one of m|y favori|
|00001810| 74 65 20 6b 65 79 62 6f | 61 72 64 20 6d 61 63 72 |te keybo|ard macr|
|00001820| 6f 73 3b 20 70 75 74 20 | 61 20 73 74 72 69 6e 67 |os; put |a string|
|00001830| 20 61 74 20 74 68 65 0a | 20 2a 20 62 65 67 69 6e | at the.| * begin|
|00001840| 6e 69 6e 67 20 6f 66 20 | 61 20 6e 75 6d 62 65 72 |ning of |a number|
|00001850| 20 6f 66 20 6c 69 6e 65 | 73 20 69 6e 20 61 20 62 | of line|s in a b|
|00001860| 75 66 66 65 72 2e 20 20 | 54 68 65 20 71 75 6f 74 |uffer.  |The quot|
|00001870| 65 20 73 74 72 69 6e 67 | 20 69 73 0a 20 2a 20 73 |e string| is. * s|
|00001880| 65 74 74 61 62 6c 65 20 | 62 79 20 75 73 69 6e 67 |ettable |by using|
|00001890| 20 73 65 74 2d 70 72 65 | 66 69 78 2d 73 74 72 69 | set-pre|fix-stri|
|000018a0| 6e 67 2e 20 20 47 72 65 | 61 74 20 66 6f 72 20 71 |ng.  Gre|at for q|
|000018b0| 75 6f 74 69 6e 67 20 6d | 61 69 6c 2c 20 77 68 69 |uoting m|ail, whi|
|000018c0| 63 68 0a 20 2a 20 69 73 | 20 74 68 65 20 72 65 61 |ch. * is| the rea|
|000018d0| 6c 20 72 65 61 73 6f 6e | 20 49 20 77 72 6f 74 65 |l reason| I wrote|
|000018e0| 20 69 74 2c 20 62 75 74 | 20 61 6c 73 6f 20 68 61 | it, but| also ha|
|000018f0| 73 20 75 73 65 73 20 66 | 6f 72 20 63 72 65 61 74 |s uses f|or creat|
|00001900| 69 6e 67 20 62 61 72 0a | 20 2a 20 63 6f 6d 6d 65 |ing bar.| * comme|
|00001910| 6e 74 73 20 28 6c 69 6b | 65 20 74 68 65 20 6f 6e |nts (lik|e the on|
|00001920| 65 20 79 6f 75 27 72 65 | 20 72 65 61 64 69 6e 67 |e you're| reading|
|00001930| 29 20 69 6e 20 43 20 63 | 6f 64 65 2e 0a 20 2a 2f |) in C c|ode.. */|
|00001940| 0a 0a 23 64 65 66 69 6e | 65 20 50 52 45 46 49 58 |..#defin|e PREFIX|
|00001950| 4c 45 4e 47 54 48 20 34 | 30 0a 73 74 61 74 69 63 |LENGTH 4|0.static|
|00001960| 20 63 68 61 72 20 70 72 | 65 66 69 78 5f 73 74 72 | char pr|efix_str|
|00001970| 69 6e 67 5b 50 52 45 46 | 49 58 4c 45 4e 47 54 48 |ing[PREF|IXLENGTH|
|00001980| 5d 20 3d 20 7b 20 27 3e | 27 2c 20 27 5c 30 27 20 |] = { '>|', '\0' |
|00001990| 7d 3b 0a 0a 2f 2a 0a 20 | 2a 20 50 72 65 66 69 78 |};../*. |* Prefix|
|000019a0| 20 74 68 65 20 72 65 67 | 69 6f 6e 20 77 69 74 68 | the reg|ion with|
|000019b0| 20 77 68 61 74 65 76 65 | 72 20 69 73 20 69 6e 20 | whateve|r is in |
|000019c0| 70 72 65 66 69 78 5f 73 | 74 72 69 6e 67 2e 0a 20 |prefix_s|tring.. |
|000019d0| 2a 20 4c 65 61 76 65 73 | 20 64 6f 74 20 61 74 20 |* Leaves| dot at |
|000019e0| 74 68 65 20 62 65 67 69 | 6e 6e 69 6e 67 20 6f 66 |the begi|nning of|
|000019f0| 20 74 68 65 20 6c 69 6e | 65 20 61 66 74 65 72 20 | the lin|e after |
|00001a00| 74 68 65 20 65 6e 64 0a | 20 2a 20 6f 66 20 74 68 |the end.| * of th|
|00001a10| 65 20 72 65 67 69 6f 6e | 2e 20 20 49 66 20 61 6e |e region|.  If an|
|00001a20| 20 61 72 67 75 6d 65 6e | 74 20 69 73 20 67 69 76 | argumen|t is giv|
|00001a30| 65 6e 2c 20 70 72 6f 6d | 70 74 73 20 66 6f 72 20 |en, prom|pts for |
|00001a40| 74 68 65 0a 20 2a 20 6c | 69 6e 65 20 70 72 65 66 |the. * l|ine pref|
|00001a50| 69 78 20 73 74 72 69 6e | 67 2e 0a 20 2a 2f 0a 0a |ix strin|g.. */..|
|00001a60| 2f 2a 41 52 47 53 55 53 | 45 44 2a 2f 0a 70 72 65 |/*ARGSUS|ED*/.pre|
|00001a70| 66 69 78 72 65 67 69 6f | 6e 28 66 2c 20 6e 2c 20 |fixregio|n(f, n, |
|00001a80| 6b 29 0a 7b 0a 09 72 65 | 67 69 73 74 65 72 20 69 |k).{..re|gister i|
|00001a90| 6e 74 09 73 3b 0a 09 72 | 65 67 69 73 74 65 72 20 |nt.s;..r|egister |
|00001aa0| 4c 49 4e 45 09 2a 66 69 | 72 73 74 2c 20 2a 6c 61 |LINE.*fi|rst, *la|
|00001ab0| 73 74 3b 0a 09 72 65 67 | 69 73 74 65 72 20 69 6e |st;..reg|ister in|
|00001ac0| 74 09 6e 6c 69 6e 65 3b | 0a 09 52 45 47 49 4f 4e |t.nline;|..REGION|
|00001ad0| 09 09 72 65 67 69 6f 6e | 3b 0a 09 63 68 61 72 09 |..region|;..char.|
|00001ae0| 09 2a 70 72 65 66 69 78 | 20 3d 20 70 72 65 66 69 |.*prefix| = prefi|
|00001af0| 78 5f 73 74 72 69 6e 67 | 3b 0a 0a 09 69 66 20 28 |x_string|;...if (|
|00001b00| 28 66 20 3d 3d 20 54 52 | 55 45 29 20 26 26 20 28 |(f == TR|UE) && (|
|00001b10| 28 73 20 3d 20 73 65 74 | 70 72 65 66 69 78 28 46 |(s = set|prefix(F|
|00001b20| 41 4c 53 45 2c 20 31 2c | 20 4b 52 41 4e 44 4f 4d |ALSE, 1,| KRANDOM|
|00001b30| 29 29 20 21 3d 20 54 52 | 55 45 29 29 0a 09 09 72 |)) != TR|UE))...r|
|00001b40| 65 74 75 72 6e 20 28 73 | 29 3b 0a 0a 09 2f 2a 20 |eturn (s|);.../* |
|00001b50| 67 65 74 20 23 20 6f 66 | 20 6c 69 6e 65 73 20 74 |get # of| lines t|
|00001b60| 6f 20 61 66 66 65 63 74 | 20 2a 2f 0a 09 69 66 20 |o affect| */..if |
|00001b70| 28 28 73 20 3d 20 67 65 | 74 72 65 67 69 6f 6e 28 |((s = ge|tregion(|
|00001b80| 26 72 65 67 69 6f 6e 29 | 29 20 21 3d 20 54 52 55 |&region)|) != TRU|
|00001b90| 45 29 0a 09 09 72 65 74 | 75 72 6e 20 28 73 29 3b |E)...ret|urn (s);|
|00001ba0| 0a 09 66 69 72 73 74 20 | 3d 20 72 65 67 69 6f 6e |..first |= region|
|00001bb0| 2e 72 5f 6c 69 6e 65 70 | 3b 0a 09 6c 61 73 74 20 |.r_linep|;..last |
|00001bc0| 3d 20 28 66 69 72 73 74 | 20 3d 3d 20 63 75 72 77 |= (first| == curw|
|00001bd0| 70 2d 3e 77 5f 64 6f 74 | 70 29 20 3f 20 63 75 72 |p->w_dot|p) ? cur|
|00001be0| 77 70 2d 3e 77 5f 6d 61 | 72 6b 70 20 3a 20 63 75 |wp->w_ma|rkp : cu|
|00001bf0| 72 77 70 2d 3e 77 5f 64 | 6f 74 70 3b 0a 09 66 6f |rwp->w_d|otp;..fo|
|00001c00| 72 20 28 6e 6c 69 6e 65 | 20 3d 20 31 3b 20 66 69 |r (nline| = 1; fi|
|00001c10| 72 73 74 20 21 3d 20 6c | 61 73 74 3b 20 6e 6c 69 |rst != l|ast; nli|
|00001c20| 6e 65 2b 2b 29 0a 09 09 | 66 69 72 73 74 20 3d 20 |ne++)...|first = |
|00001c30| 6c 66 6f 72 77 28 66 69 | 72 73 74 29 3b 0a 0a 09 |lforw(fi|rst);...|
|00001c40| 2f 2a 6d 6f 76 65 20 74 | 6f 20 62 65 67 69 6e 6e |/*move t|o beginn|
|00001c50| 69 6e 67 20 6f 66 20 72 | 65 67 69 6f 6e 20 2a 2f |ing of r|egion */|
|00001c60| 0a 09 63 75 72 77 70 2d | 3e 77 5f 64 6f 74 70 20 |..curwp-|>w_dotp |
|00001c70| 3d 20 72 65 67 69 6f 6e | 2e 72 5f 6c 69 6e 65 70 |= region|.r_linep|
|00001c80| 3b 0a 09 63 75 72 77 70 | 2d 3e 77 5f 64 6f 74 6f |;..curwp|->w_doto|
|00001c90| 20 3d 20 72 65 67 69 6f | 6e 2e 72 5f 6f 66 66 73 | = regio|n.r_offs|
|00001ca0| 65 74 3b 0a 0a 09 2f 2a | 20 66 6f 72 20 65 61 63 |et;.../*| for eac|
|00001cb0| 68 20 6c 69 6e 65 2c 20 | 67 6f 20 74 6f 20 62 65 |h line, |go to be|
|00001cc0| 67 69 6e 6e 69 6e 67 20 | 61 6e 64 20 69 6e 73 65 |ginning |and inse|
|00001cd0| 72 74 20 74 68 65 20 70 | 72 65 66 69 78 20 73 74 |rt the p|refix st|
|00001ce0| 72 69 6e 67 20 2a 2f 0a | 09 77 68 69 6c 65 20 28 |ring */.|.while (|
|00001cf0| 6e 6c 69 6e 65 2d 2d 29 | 0a 09 7b 0a 09 09 67 6f |nline--)|..{...go|
|00001d00| 74 6f 62 6f 6c 28 29 3b | 0a 09 09 66 6f 72 20 28 |tobol();|...for (|
|00001d10| 70 72 65 66 69 78 20 3d | 20 70 72 65 66 69 78 5f |prefix =| prefix_|
|00001d20| 73 74 72 69 6e 67 3b 20 | 2a 70 72 65 66 69 78 3b |string; |*prefix;|
|00001d30| 20 70 72 65 66 69 78 2b | 2b 29 0a 09 09 09 28 56 | prefix+|+)....(V|
|00001d40| 4f 49 44 29 20 6c 69 6e | 73 65 72 74 28 28 52 53 |OID) lin|sert((RS|
|00001d50| 49 5a 45 29 20 31 2c 20 | 2a 70 72 65 66 69 78 29 |IZE) 1, |*prefix)|
|00001d60| 3b 0a 09 09 66 6f 72 77 | 6c 69 6e 65 28 46 41 4c |;...forw|line(FAL|
|00001d70| 53 45 2c 20 31 2c 20 4b | 52 41 4e 44 4f 4d 29 3b |SE, 1, K|RANDOM);|
|00001d80| 0a 09 7d 0a 09 67 6f 74 | 6f 62 6f 6c 28 29 3b 0a |..}..got|obol();.|
|00001d90| 09 72 65 74 75 72 6e 20 | 28 54 52 55 45 29 3b 0a |.return |(TRUE);.|
|00001da0| 7d 0a 0a 2f 2a 0a 20 2a | 20 53 65 74 20 70 72 65 |}../*. *| Set pre|
|00001db0| 66 69 78 20 73 74 72 69 | 6e 67 2e 0a 20 2a 2f 0a |fix stri|ng.. */.|
|00001dc0| 0a 2f 2a 41 52 47 53 55 | 53 45 44 2a 2f 0a 73 65 |./*ARGSU|SED*/.se|
|00001dd0| 74 70 72 65 66 69 78 28 | 66 2c 20 6e 2c 20 6b 29 |tprefix(|f, n, k)|
|00001de0| 0a 7b 0a 09 63 68 61 72 | 09 09 62 75 66 5b 50 52 |.{..char|..buf[PR|
|00001df0| 45 46 49 58 4c 45 4e 47 | 54 48 5d 3b 0a 09 72 65 |EFIXLENG|TH];..re|
|00001e00| 67 69 73 74 65 72 20 69 | 6e 74 09 73 3b 0a 0a 09 |gister i|nt.s;...|
|00001e10| 69 66 20 28 70 72 65 66 | 69 78 5f 73 74 72 69 6e |if (pref|ix_strin|
|00001e20| 67 5b 30 5d 20 3d 3d 20 | 27 5c 30 27 29 0a 09 09 |g[0] == |'\0')...|
|00001e30| 73 20 3d 20 65 72 65 70 | 6c 79 28 22 50 72 65 66 |s = erep|ly("Pref|
|00001e40| 69 78 20 73 74 72 69 6e | 67 3a 20 22 2c 62 75 66 |ix strin|g: ",buf|
|00001e50| 2c 73 69 7a 65 6f 66 20 | 62 75 66 29 3b 0a 09 65 |,sizeof |buf);..e|
|00001e60| 6c 73 65 0a 09 09 73 20 | 3d 20 65 72 65 70 6c 79 |lse...s |= ereply|
|00001e70| 28 22 50 72 65 66 69 78 | 20 73 74 72 69 6e 67 20 |("Prefix| string |
|00001e80| 28 64 65 66 61 75 6c 74 | 20 25 73 29 3a 20 22 2c |(default| %s): ",|
|00001e90| 0a 09 09 09 09 62 75 66 | 2c 73 69 7a 65 6f 66 20 |.....buf|,sizeof |
|00001ea0| 62 75 66 2c 70 72 65 66 | 69 78 5f 73 74 72 69 6e |buf,pref|ix_strin|
|00001eb0| 67 29 3b 0a 09 69 66 20 | 28 73 20 3d 3d 20 54 52 |g);..if |(s == TR|
|00001ec0| 55 45 29 0a 09 09 28 56 | 4f 49 44 29 20 73 74 72 |UE)...(V|OID) str|
|00001ed0| 63 70 79 28 70 72 65 66 | 69 78 5f 73 74 72 69 6e |cpy(pref|ix_strin|
|00001ee0| 67 2c 20 62 75 66 29 3b | 0a 09 69 66 20 28 28 73 |g, buf);|..if ((s|
|00001ef0| 20 3d 3d 20 46 41 4c 53 | 45 29 20 26 26 20 28 70 | == FALS|E) && (p|
|00001f00| 72 65 66 69 78 5f 73 74 | 72 69 6e 67 5b 30 5d 20 |refix_st|ring[0] |
|00001f10| 21 3d 20 27 5c 30 27 29 | 29 09 2f 2a 20 43 52 20 |!= '\0')|)./* CR |
|00001f20| 2d 2d 20 75 73 65 20 6f | 6c 64 20 6f 6e 65 20 2a |-- use o|ld one *|
|00001f30| 2f 0a 09 09 73 20 3d 20 | 54 52 55 45 3b 0a 09 72 |/...s = |TRUE;..r|
|00001f40| 65 74 75 72 6e 20 28 73 | 29 3b 0a 7d 0a 23 65 6e |eturn (s|);.}.#en|
|00001f50| 64 69 66 0a 00 00 00 00 | 00 00 00 00 00 00 00 00 |dif.....|........|
|00001f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002000| 75 6e 69 66 79 2d 61 63 | 63 65 6c 6c 2f 73 65 61 |unify-ac|cell/sea|
|00002010| 72 63 68 2e 63 00 00 00 | 00 00 00 00 00 00 00 00 |rch.c...|........|
|00002020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002060| 00 00 00 00 20 20 20 36 | 34 34 20 00 20 20 20 32 |....   6|44 .   2|
|00002070| 34 33 20 00 20 20 20 20 | 31 32 20 00 20 20 20 20 |43 .    |12 .    |
|00002080| 20 20 31 33 31 32 30 20 | 20 34 34 30 32 30 36 32 |  13120 | 4402062|
|00002090| 30 31 37 20 20 31 30 30 | 37 35 00 20 00 00 00 00 |017  100|75. ....|
|000020a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002200| 2f 2a 0a 20 2a 20 09 09 | 53 65 61 72 63 68 20 63 |/*. * ..|Search c|
|00002210| 6f 6d 6d 61 6e 64 73 2e | 0a 20 2a 20 54 68 65 20 |ommands.|. * The |
|00002220| 66 75 6e 63 74 69 6f 6e | 73 20 69 6e 20 74 68 69 |function|s in thi|
|00002230| 73 20 66 69 6c 65 20 69 | 6d 70 6c 65 6d 65 6e 74 |s file i|mplement|
|00002240| 20 74 68 65 0a 20 2a 20 | 73 65 61 72 63 68 20 63 | the. * |search c|
|00002250| 6f 6d 6d 61 6e 64 73 20 | 28 62 6f 74 68 20 70 6c |ommands |(both pl|
|00002260| 61 69 6e 20 61 6e 64 20 | 69 6e 63 72 65 6d 65 6e |ain and |incremen|
|00002270| 74 61 6c 20 73 65 61 72 | 63 68 65 73 0a 20 2a 20 |tal sear|ches. * |
|00002280| 61 72 65 20 73 75 70 70 | 6f 72 74 65 64 29 20 61 |are supp|orted) a|
|00002290| 6e 64 20 74 68 65 20 71 | 75 65 72 79 2d 72 65 70 |nd the q|uery-rep|
|000022a0| 6c 61 63 65 20 63 6f 6d | 6d 61 6e 64 2e 0a 20 2a |lace com|mand.. *|
|000022b0| 0a 20 2a 20 54 68 65 20 | 70 6c 61 69 6e 20 6f 6c |. * The |plain ol|
|000022c0| 64 20 73 65 61 72 63 68 | 20 63 6f 64 65 20 69 73 |d search| code is|
|000022d0| 20 70 61 72 74 20 6f 66 | 20 74 68 65 20 6f 72 69 | part of| the ori|
|000022e0| 67 69 6e 61 6c 0a 20 2a | 20 4d 69 63 72 6f 45 4d |ginal. *| MicroEM|
|000022f0| 41 43 53 20 22 64 69 73 | 74 72 69 62 75 74 69 6f |ACS "dis|tributio|
|00002300| 6e 22 2e 20 54 68 65 20 | 69 6e 63 72 65 6d 65 6e |n". The |incremen|
|00002310| 74 61 6c 20 73 65 61 72 | 63 68 20 63 6f 64 65 2c |tal sear|ch code,|
|00002320| 0a 20 2a 20 61 6e 64 20 | 74 68 65 20 71 75 65 72 |. * and |the quer|
|00002330| 79 2d 72 65 70 6c 61 63 | 65 20 63 6f 64 65 2c 20 |y-replac|e code, |
|00002340| 69 73 20 62 79 20 52 69 | 63 68 20 45 6c 6c 69 73 |is by Ri|ch Ellis|
|00002350| 6f 6e 2e 0a 20 2a 2f 0a | 23 69 6e 63 6c 75 64 65 |on.. */.|#include|
|00002360| 09 22 64 65 66 2e 68 22 | 0a 0a 23 64 65 66 69 6e |."def.h"|..#defin|
|00002370| 65 20 53 52 43 48 5f 42 | 45 47 49 4e 09 28 30 29 |e SRCH_B|EGIN.(0)|
|00002380| 09 09 09 2f 2a 20 53 65 | 61 72 63 68 20 73 75 62 |.../* Se|arch sub|
|00002390| 2d 63 6f 64 65 73 2e 09 | 2a 2f 0a 23 64 65 66 69 |-codes..|*/.#defi|
|000023a0| 6e 65 09 53 52 43 48 5f | 46 4f 52 57 09 28 2d 31 |ne.SRCH_|FORW.(-1|
|000023b0| 29 0a 23 64 65 66 69 6e | 65 20 53 52 43 48 5f 42 |).#defin|e SRCH_B|
|000023c0| 41 43 4b 09 28 2d 32 29 | 0a 23 64 65 66 69 6e 65 |ACK.(-2)|.#define|
|000023d0| 20 53 52 43 48 5f 4e 4f | 50 52 09 28 2d 33 29 0a | SRCH_NO|PR.(-3).|
|000023e0| 23 64 65 66 69 6e 65 20 | 53 52 43 48 5f 41 43 43 |#define |SRCH_ACC|
|000023f0| 4d 09 28 2d 34 29 0a 23 | 64 65 66 69 6e 65 09 53 |M.(-4).#|define.S|
|00002400| 52 43 48 5f 4d 41 52 4b | 09 28 2d 35 29 0a 0a 74 |RCH_MARK|.(-5)..t|
|00002410| 79 70 65 64 65 66 20 73 | 74 72 75 63 74 20 20 7b |ypedef s|truct  {|
|00002420| 0a 09 69 6e 74 09 73 5f | 63 6f 64 65 3b 0a 09 4c |..int.s_|code;..L|
|00002430| 49 4e 45 09 2a 73 5f 64 | 6f 74 70 3b 0a 09 69 6e |INE.*s_d|otp;..in|
|00002440| 74 09 73 5f 64 6f 74 6f | 3b 0a 7d 09 53 52 43 48 |t.s_doto|;.}.SRCH|
|00002450| 43 4f 4d 3b 0a 0a 73 74 | 61 74 69 63 09 53 52 43 |COM;..st|atic.SRC|
|00002460| 48 43 4f 4d 09 63 6d 64 | 73 5b 4e 53 52 43 48 5d |HCOM.cmd|s[NSRCH]|
|00002470| 3b 0a 73 74 61 74 69 63 | 09 69 6e 74 09 63 69 70 |;.static|.int.cip|
|00002480| 3b 0a 0a 69 6e 74 09 73 | 72 63 68 5f 6c 61 73 74 |;..int.s|rch_last|
|00002490| 64 69 72 20 3d 20 53 52 | 43 48 5f 4e 4f 50 52 3b |dir = SR|CH_NOPR;|
|000024a0| 09 09 2f 2a 20 4c 61 73 | 74 20 73 65 61 72 63 68 |../* Las|t search|
|000024b0| 20 66 6c 61 67 73 2e 09 | 2a 2f 0a 0a 56 4f 49 44 | flags..|*/..VOID|
|000024c0| 09 69 73 5f 63 70 75 73 | 68 28 29 3b 0a 56 4f 49 |.is_cpus|h();.VOI|
|000024d0| 44 09 69 73 5f 6c 70 75 | 73 68 28 29 3b 0a 56 4f |D.is_lpu|sh();.VO|
|000024e0| 49 44 09 69 73 5f 70 6f | 70 28 29 3b 0a 56 4f 49 |ID.is_po|p();.VOI|
|000024f0| 44 09 69 73 5f 70 72 6f | 6d 70 74 28 29 3b 0a 56 |D.is_pro|mpt();.V|
|00002500| 4f 49 44 09 69 73 5f 64 | 73 70 6c 28 29 3b 0a 0a |OID.is_d|spl();..|
|00002510| 2f 2a 0a 20 2a 20 53 65 | 61 72 63 68 20 66 6f 72 |/*. * Se|arch for|
|00002520| 77 61 72 64 2e 0a 20 2a | 20 47 65 74 20 61 20 73 |ward.. *| Get a s|
|00002530| 65 61 72 63 68 20 73 74 | 72 69 6e 67 20 66 72 6f |earch st|ring fro|
|00002540| 6d 20 74 68 65 20 75 73 | 65 72 2c 20 61 6e 64 20 |m the us|er, and |
|00002550| 73 65 61 72 63 68 20 66 | 6f 72 20 69 74 2c 0a 20 |search f|or it,. |
|00002560| 2a 20 73 74 61 72 74 69 | 6e 67 20 61 74 20 22 2e |* starti|ng at ".|
|00002570| 22 2e 20 49 66 20 66 6f | 75 6e 64 2c 20 22 2e 22 |". If fo|und, "."|
|00002580| 20 67 65 74 73 20 6d 6f | 76 65 64 20 74 6f 20 6a | gets mo|ved to j|
|00002590| 75 73 74 20 61 66 74 65 | 72 20 74 68 65 0a 20 2a |ust afte|r the. *|
|000025a0| 20 6d 61 74 63 68 65 64 | 20 63 68 61 72 61 63 74 | matched| charact|
|000025b0| 65 72 73 2c 20 61 6e 64 | 20 64 69 73 70 6c 61 79 |ers, and| display|
|000025c0| 20 64 6f 65 73 20 61 6c | 6c 20 74 68 65 20 68 61 | does al|l the ha|
|000025d0| 72 64 20 73 74 75 66 66 | 2e 0a 20 2a 20 49 66 20 |rd stuff|.. * If |
|000025e0| 6e 6f 74 20 66 6f 75 6e | 64 2c 20 69 74 20 6a 75 |not foun|d, it ju|
|000025f0| 73 74 20 70 72 69 6e 74 | 73 20 61 20 6d 65 73 73 |st print|s a mess|
|00002600| 61 67 65 2e 0a 20 2a 2f | 0a 2f 2a 41 52 47 53 55 |age.. */|./*ARGSU|
|00002610| 53 45 44 2a 2f 0a 66 6f | 72 77 73 65 61 72 63 68 |SED*/.fo|rwsearch|
|00002620| 28 66 2c 20 6e 2c 20 6b | 29 0a 7b 0a 09 72 65 67 |(f, n, k|).{..reg|
|00002630| 69 73 74 65 72 20 69 6e | 74 09 73 3b 0a 0a 09 69 |ister in|t.s;...i|
|00002640| 66 20 28 28 73 3d 72 65 | 61 64 70 61 74 74 65 72 |f ((s=re|adpatter|
|00002650| 6e 28 22 53 65 61 72 63 | 68 22 29 29 20 21 3d 20 |n("Searc|h")) != |
|00002660| 54 52 55 45 29 0a 09 09 | 72 65 74 75 72 6e 20 28 |TRUE)...|return (|
|00002670| 73 29 3b 0a 09 69 66 20 | 28 66 6f 72 77 73 72 63 |s);..if |(forwsrc|
|00002680| 68 28 29 20 3d 3d 20 46 | 41 4c 53 45 29 0a 09 7b |h() == F|ALSE)..{|
|00002690| 0a 09 09 65 77 70 72 69 | 6e 74 66 28 22 53 65 61 |...ewpri|ntf("Sea|
|000026a0| 72 63 68 20 66 61 69 6c | 65 64 3a 20 5c 22 25 73 |rch fail|ed: \"%s|
|000026b0| 5c 22 22 2c 20 70 61 74 | 29 3b 0a 09 09 72 65 74 |\"", pat|);...ret|
|000026c0| 75 72 6e 20 28 46 41 4c | 53 45 29 3b 0a 09 7d 0a |urn (FAL|SE);..}.|
|000026d0| 09 73 72 63 68 5f 6c 61 | 73 74 64 69 72 20 3d 20 |.srch_la|stdir = |
|000026e0| 53 52 43 48 5f 46 4f 52 | 57 3b 0a 09 72 65 74 75 |SRCH_FOR|W;..retu|
|000026f0| 72 6e 20 28 54 52 55 45 | 29 3b 0a 7d 0a 0a 2f 2a |rn (TRUE|);.}../*|
|00002700| 0a 20 2a 20 52 65 76 65 | 72 73 65 20 73 65 61 72 |. * Reve|rse sear|
|00002710| 63 68 2e 0a 20 2a 20 47 | 65 74 20 61 20 73 65 61 |ch.. * G|et a sea|
|00002720| 72 63 68 20 73 74 72 69 | 6e 67 20 66 72 6f 6d 20 |rch stri|ng from |
|00002730| 74 68 65 20 20 75 73 65 | 72 2c 20 61 6e 64 20 73 |the  use|r, and s|
|00002740| 65 61 72 63 68 2c 20 73 | 74 61 72 74 69 6e 67 20 |earch, s|tarting |
|00002750| 61 74 20 22 2e 22 0a 20 | 2a 20 61 6e 64 20 70 72 |at ".". |* and pr|
|00002760| 6f 63 65 65 64 69 6e 67 | 20 74 6f 77 61 72 64 20 |oceeding| toward |
|00002770| 74 68 65 20 66 72 6f 6e | 74 20 6f 66 20 74 68 65 |the fron|t of the|
|00002780| 20 62 75 66 66 65 72 2e | 20 49 66 20 66 6f 75 6e | buffer.| If foun|
|00002790| 64 20 22 2e 22 20 69 73 | 20 6c 65 66 74 0a 20 2a |d "." is| left. *|
|000027a0| 20 70 6f 69 6e 74 69 6e | 67 20 61 74 20 74 68 65 | pointin|g at the|
|000027b0| 20 66 69 72 73 74 20 63 | 68 61 72 61 63 74 65 72 | first c|haracter|
|000027c0| 20 6f 66 20 74 68 65 20 | 70 61 74 74 65 72 6e 20 | of the |pattern |
|000027d0| 5b 74 68 65 20 6c 61 73 | 74 20 63 68 61 72 61 63 |[the las|t charac|
|000027e0| 74 65 72 20 74 68 61 74 | 0a 20 2a 20 77 61 73 20 |ter that|. * was |
|000027f0| 6d 61 74 63 68 65 64 5d | 2e 0a 20 2a 2f 0a 2f 2a |matched]|.. */./*|
|00002800| 41 52 47 53 55 53 45 44 | 2a 2f 0a 62 61 63 6b 73 |ARGSUSED|*/.backs|
|00002810| 65 61 72 63 68 28 66 2c | 20 6e 2c 20 6b 29 0a 7b |earch(f,| n, k).{|
|00002820| 0a 09 72 65 67 69 73 74 | 65 72 20 69 6e 74 09 73 |..regist|er int.s|
|00002830| 3b 0a 0a 09 69 66 20 28 | 28 73 3d 72 65 61 64 70 |;...if (|(s=readp|
|00002840| 61 74 74 65 72 6e 28 22 | 53 65 61 72 63 68 20 62 |attern("|Search b|
|00002850| 61 63 6b 77 61 72 64 22 | 29 29 20 21 3d 20 54 52 |ackward"|)) != TR|
|00002860| 55 45 29 0a 09 09 72 65 | 74 75 72 6e 20 28 73 29 |UE)...re|turn (s)|
|00002870| 3b 0a 09 69 66 20 28 62 | 61 63 6b 73 72 63 68 28 |;..if (b|acksrch(|
|00002880| 29 20 3d 3d 20 46 41 4c | 53 45 29 0a 09 7b 0a 09 |) == FAL|SE)..{..|
|00002890| 09 65 77 70 72 69 6e 74 | 66 28 22 53 65 61 72 63 |.ewprint|f("Searc|
|000028a0| 68 20 66 61 69 6c 65 64 | 3a 20 5c 22 25 73 5c 22 |h failed|: \"%s\"|
|000028b0| 22 2c 20 70 61 74 29 3b | 0a 09 09 72 65 74 75 72 |", pat);|...retur|
|000028c0| 6e 20 28 46 41 4c 53 45 | 29 3b 0a 09 7d 0a 09 73 |n (FALSE|);..}..s|
|000028d0| 72 63 68 5f 6c 61 73 74 | 64 69 72 20 3d 20 53 52 |rch_last|dir = SR|
|000028e0| 43 48 5f 42 41 43 4b 3b | 0a 09 72 65 74 75 72 6e |CH_BACK;|..return|
|000028f0| 20 28 54 52 55 45 29 3b | 0a 7d 0a 0a 2f 2a 20 0a | (TRUE);|.}../* .|
|00002900| 20 2a 20 53 65 61 72 63 | 68 20 61 67 61 69 6e 2c | * Searc|h again,|
|00002910| 20 75 73 69 6e 67 20 74 | 68 65 20 73 61 6d 65 20 | using t|he same |
|00002920| 73 65 61 72 63 68 20 73 | 74 72 69 6e 67 0a 20 2a |search s|tring. *|
|00002930| 20 61 6e 64 20 64 69 72 | 65 63 74 69 6f 6e 20 61 | and dir|ection a|
|00002940| 73 20 74 68 65 20 6c 61 | 73 74 20 73 65 61 72 63 |s the la|st searc|
|00002950| 68 20 63 6f 6d 6d 61 6e | 64 2e 20 54 68 65 20 64 |h comman|d. The d|
|00002960| 69 72 65 63 74 69 6f 6e | 0a 20 2a 20 68 61 73 20 |irection|. * has |
|00002970| 62 65 65 6e 20 73 61 76 | 65 64 20 69 6e 20 22 73 |been sav|ed in "s|
|00002980| 72 63 68 5f 6c 61 73 74 | 64 69 72 22 2c 20 73 6f |rch_last|dir", so|
|00002990| 20 79 6f 75 20 6b 6e 6f | 77 20 77 68 69 63 68 20 | you kno|w which |
|000029a0| 77 61 79 0a 20 2a 20 74 | 6f 20 67 6f 2e 0a 20 2a |way. * t|o go.. *|
|000029b0| 2f 0a 2f 2a 41 52 47 53 | 55 53 45 44 2a 2f 0a 73 |/./*ARGS|USED*/.s|
|000029c0| 65 61 72 63 68 61 67 61 | 69 6e 28 66 2c 20 6e 2c |earchaga|in(f, n,|
|000029d0| 20 6b 29 0a 7b 0a 09 69 | 66 20 28 73 72 63 68 5f | k).{..i|f (srch_|
|000029e0| 6c 61 73 74 64 69 72 20 | 3d 3d 20 53 52 43 48 5f |lastdir |== SRCH_|
|000029f0| 46 4f 52 57 29 0a 09 7b | 0a 09 09 69 66 20 28 66 |FORW)..{|...if (f|
|00002a00| 6f 72 77 73 72 63 68 28 | 29 20 3d 3d 20 46 41 4c |orwsrch(|) == FAL|
|00002a10| 53 45 29 0a 09 09 7b 0a | 09 09 09 65 77 70 72 69 |SE)...{.|...ewpri|
|00002a20| 6e 74 66 28 22 53 65 61 | 72 63 68 20 66 61 69 6c |ntf("Sea|rch fail|
|00002a30| 65 64 3a 20 5c 22 25 73 | 5c 22 22 2c 20 70 61 74 |ed: \"%s|\"", pat|
|00002a40| 29 3b 0a 09 09 09 72 65 | 74 75 72 6e 20 28 46 41 |);....re|turn (FA|
|00002a50| 4c 53 45 29 3b 0a 09 09 | 7d 0a 09 09 72 65 74 75 |LSE);...|}...retu|
|00002a60| 72 6e 20 28 54 52 55 45 | 29 3b 0a 09 7d 0a 09 69 |rn (TRUE|);..}..i|
|00002a70| 66 20 28 73 72 63 68 5f | 6c 61 73 74 64 69 72 20 |f (srch_|lastdir |
|00002a80| 3d 3d 20 53 52 43 48 5f | 42 41 43 4b 29 0a 09 7b |== SRCH_|BACK)..{|
|00002a90| 0a 09 09 69 66 20 28 62 | 61 63 6b 73 72 63 68 28 |...if (b|acksrch(|
|00002aa0| 29 20 3d 3d 20 46 41 4c | 53 45 29 0a 09 09 7b 0a |) == FAL|SE)...{.|
|00002ab0| 09 09 09 65 77 70 72 69 | 6e 74 66 28 22 53 65 61 |...ewpri|ntf("Sea|
|00002ac0| 72 63 68 20 66 61 69 6c | 65 64 3a 20 5c 22 25 73 |rch fail|ed: \"%s|
|00002ad0| 5c 22 22 2c 20 70 61 74 | 29 3b 0a 09 09 09 72 65 |\"", pat|);....re|
|00002ae0| 74 75 72 6e 20 28 46 41 | 4c 53 45 29 3b 0a 09 09 |turn (FA|LSE);...|
|00002af0| 7d 0a 09 09 72 65 74 75 | 72 6e 20 28 54 52 55 45 |}...retu|rn (TRUE|
|00002b00| 29 3b 0a 09 7d 0a 09 65 | 77 70 72 69 6e 74 66 28 |);..}..e|wprintf(|
|00002b10| 22 4e 6f 20 6c 61 73 74 | 20 73 65 61 72 63 68 22 |"No last| search"|
|00002b20| 29 3b 0a 09 72 65 74 75 | 72 6e 20 28 46 41 4c 53 |);..retu|rn (FALS|
|00002b30| 45 29 3b 0a 7d 0a 0a 0a | 2f 2a 0a 20 2a 20 54 68 |E);.}...|/*. * Th|
|00002b40| 69 73 20 72 6f 75 74 69 | 6e 65 20 64 6f 65 73 20 |is routi|ne does |
|00002b50| 74 68 65 20 72 65 61 6c | 20 77 6f 72 6b 20 6f 66 |the real| work of|
|00002b60| 20 61 0a 20 2a 20 66 6f | 72 77 61 72 64 20 73 65 | a. * fo|rward se|
|00002b70| 61 72 63 68 2e 20 54 68 | 65 20 70 61 74 74 65 72 |arch. Th|e patter|
|00002b80| 6e 20 69 73 20 73 69 74 | 74 69 6e 67 20 69 6e 20 |n is sit|ting in |
|00002b90| 74 68 65 20 65 78 74 65 | 72 6e 61 6c 0a 20 2a 20 |the exte|rnal. * |
|00002ba0| 76 61 72 69 61 62 6c 65 | 20 22 70 61 74 22 2e 20 |variable| "pat". |
|00002bb0| 49 66 20 66 6f 75 6e 64 | 2c 20 64 6f 74 20 69 73 |If found|, dot is|
|00002bc0| 20 75 70 64 61 74 65 64 | 2c 20 74 68 65 20 77 69 | updated|, the wi|
|00002bd0| 6e 64 6f 77 20 73 79 73 | 74 65 6d 0a 20 2a 20 69 |ndow sys|tem. * i|
|00002be0| 73 20 6e 6f 74 69 66 69 | 65 64 20 6f 66 20 74 68 |s notifi|ed of th|
|00002bf0| 65 20 63 68 61 6e 67 65 | 2c 20 61 6e 64 20 54 52 |e change|, and TR|
|00002c00| 55 45 20 69 73 20 72 65 | 74 75 72 6e 65 64 2e 20 |UE is re|turned. |
|00002c10| 49 66 20 74 68 65 0a 20 | 2a 20 73 74 72 69 6e 67 |If the. |* string|
|00002c20| 20 69 73 6e 27 74 20 66 | 6f 75 6e 64 2c 20 46 41 | isn't f|ound, FA|
|00002c30| 4c 53 45 20 69 73 20 72 | 65 74 75 72 6e 65 64 2e |LSE is r|eturned.|
|00002c40| 0a 20 2a 2f 0a 66 6f 72 | 77 73 72 63 68 28 29 0a |. */.for|wsrch().|
|00002c50| 7b 0a 09 72 65 67 69 73 | 74 65 72 20 4c 49 4e 45 |{..regis|ter LINE|
|00002c60| 09 2a 63 6c 70 3b 0a 09 | 72 65 67 69 73 74 65 72 |.*clp;..|register|
|00002c70| 20 69 6e 74 09 63 62 6f | 3b 0a 09 72 65 67 69 73 | int.cbo|;..regis|
|00002c80| 74 65 72 20 4c 49 4e 45 | 09 2a 74 6c 70 3b 0a 09 |ter LINE|.*tlp;..|
|00002c90| 72 65 67 69 73 74 65 72 | 20 69 6e 74 09 74 62 6f |register| int.tbo|
|00002ca0| 3b 0a 09 72 65 67 69 73 | 74 65 72 20 63 68 61 72 |;..regis|ter char|
|00002cb0| 09 2a 70 70 3b 0a 09 72 | 65 67 69 73 74 65 72 20 |.*pp;..r|egister |
|00002cc0| 69 6e 74 09 63 3b 0a 0a | 09 63 6c 70 20 3d 20 63 |int.c;..|.clp = c|
|00002cd0| 75 72 77 70 2d 3e 77 5f | 64 6f 74 70 3b 0a 09 63 |urwp->w_|dotp;..c|
|00002ce0| 62 6f 20 3d 20 63 75 72 | 77 70 2d 3e 77 5f 64 6f |bo = cur|wp->w_do|
|00002cf0| 74 6f 3b 0a 09 77 68 69 | 6c 65 20 28 63 6c 70 20 |to;..whi|le (clp |
|00002d00| 21 3d 20 63 75 72 62 70 | 2d 3e 62 5f 6c 69 6e 65 |!= curbp|->b_line|
|00002d10| 70 29 0a 09 7b 0a 09 09 | 69 66 20 28 63 62 6f 20 |p)..{...|if (cbo |
|00002d20| 3d 3d 20 6c 6c 65 6e 67 | 74 68 28 63 6c 70 29 29 |== lleng|th(clp))|
|00002d30| 0a 09 09 7b 0a 09 09 09 | 63 6c 70 20 3d 20 6c 66 |...{....|clp = lf|
|00002d40| 6f 72 77 28 63 6c 70 29 | 3b 0a 09 09 09 63 62 6f |orw(clp)|;....cbo|
|00002d50| 20 3d 20 30 3b 0a 09 09 | 09 63 20 3d 20 53 45 4f | = 0;...|.c = SEO|
|00002d60| 4c 3b 0a 09 09 7d 20 65 | 6c 73 65 0a 09 09 09 63 |L;...} e|lse....c|
|00002d70| 20 3d 20 6c 67 65 74 63 | 28 63 6c 70 2c 20 63 62 | = lgetc|(clp, cb|
|00002d80| 6f 2b 2b 29 3b 0a 09 09 | 69 66 20 28 65 71 28 63 |o++);...|if (eq(c|
|00002d90| 2c 20 70 61 74 5b 30 5d | 29 20 21 3d 20 46 41 4c |, pat[0]|) != FAL|
|00002da0| 53 45 29 0a 09 09 7b 0a | 09 09 09 74 6c 70 20 3d |SE)...{.|...tlp =|
|00002db0| 20 63 6c 70 3b 0a 09 09 | 09 74 62 6f 20 3d 20 63 | clp;...|.tbo = c|
|00002dc0| 62 6f 3b 0a 09 09 09 70 | 70 20 20 3d 20 26 70 61 |bo;....p|p  = &pa|
|00002dd0| 74 5b 31 5d 3b 0a 09 09 | 09 77 68 69 6c 65 20 28 |t[1];...|.while (|
|00002de0| 2a 70 70 20 21 3d 20 30 | 29 0a 09 09 09 7b 0a 09 |*pp != 0|)....{..|
|00002df0| 09 09 09 69 66 20 28 74 | 6c 70 20 3d 3d 20 63 75 |...if (t|lp == cu|
|00002e00| 72 62 70 2d 3e 62 5f 6c | 69 6e 65 70 29 0a 09 09 |rbp->b_l|inep)...|
|00002e10| 09 09 09 67 6f 74 6f 20 | 66 61 69 6c 3b 0a 09 09 |...goto |fail;...|
|00002e20| 09 09 69 66 20 28 74 62 | 6f 20 3d 3d 20 6c 6c 65 |..if (tb|o == lle|
|00002e30| 6e 67 74 68 28 74 6c 70 | 29 29 0a 09 09 09 09 7b |ngth(tlp|)).....{|
|00002e40| 0a 09 09 09 09 09 74 6c | 70 20 3d 20 6c 66 6f 72 |......tl|p = lfor|
|00002e50| 77 28 74 6c 70 29 3b 0a | 09 09 09 09 09 69 66 20 |w(tlp);.|.....if |
|00002e60| 28 74 6c 70 20 3d 3d 20 | 63 75 72 62 70 2d 3e 62 |(tlp == |curbp->b|
|00002e70| 5f 6c 69 6e 65 70 29 0a | 09 09 09 09 09 09 67 6f |_linep).|......go|
|00002e80| 74 6f 20 66 61 69 6c 3b | 0a 09 09 09 09 09 74 62 |to fail;|......tb|
|00002e90| 6f 20 3d 20 30 3b 0a 09 | 09 09 09 09 63 20 3d 20 |o = 0;..|....c = |
|00002ea0| 53 45 4f 4c 3b 0a 09 09 | 09 09 7d 20 65 6c 73 65 |SEOL;...|..} else|
|00002eb0| 0a 09 09 09 09 09 63 20 | 3d 20 6c 67 65 74 63 28 |......c |= lgetc(|
|00002ec0| 74 6c 70 2c 20 74 62 6f | 2b 2b 29 3b 0a 09 09 09 |tlp, tbo|++);....|
|00002ed0| 09 69 66 20 28 65 71 28 | 63 2c 20 2a 70 70 2b 2b |.if (eq(|c, *pp++|
|00002ee0| 29 20 3d 3d 20 46 41 4c | 53 45 29 0a 09 09 09 09 |) == FAL|SE).....|
|00002ef0| 09 67 6f 74 6f 20 66 61 | 69 6c 3b 0a 09 09 09 7d |.goto fa|il;....}|
|00002f00| 0a 09 09 09 63 75 72 77 | 70 2d 3e 77 5f 64 6f 74 |....curw|p->w_dot|
|00002f10| 70 20 20 3d 20 74 6c 70 | 3b 0a 09 09 09 63 75 72 |p  = tlp|;....cur|
|00002f20| 77 70 2d 3e 77 5f 64 6f | 74 6f 20 20 3d 20 74 62 |wp->w_do|to  = tb|
|00002f30| 6f 3b 0a 09 09 09 63 75 | 72 77 70 2d 3e 77 5f 66 |o;....cu|rwp->w_f|
|00002f40| 6c 61 67 20 7c 3d 20 57 | 46 4d 4f 56 45 3b 0a 09 |lag |= W|FMOVE;..|
|00002f50| 09 09 72 65 74 75 72 6e | 20 28 54 52 55 45 29 3b |..return| (TRUE);|
|00002f60| 0a 09 09 7d 0a 09 66 61 | 69 6c 3a 09 3b 0a 09 7d |...}..fa|il:.;..}|
|00002f70| 0a 09 72 65 74 75 72 6e | 20 28 46 41 4c 53 45 29 |..return| (FALSE)|
|00002f80| 3b 0a 7d 0a 0a 2f 2a 0a | 20 2a 20 54 68 69 73 20 |;.}../*.| * This |
|00002f90| 72 6f 75 74 69 6e 65 20 | 64 6f 65 73 20 74 68 65 |routine |does the|
|00002fa0| 20 72 65 61 6c 20 77 6f | 72 6b 20 6f 66 20 61 0a | real wo|rk of a.|
|00002fb0| 20 2a 20 62 61 63 6b 77 | 61 72 64 20 73 65 61 72 | * backw|ard sear|
|00002fc0| 63 68 2e 20 54 68 65 20 | 70 61 74 74 65 72 6e 20 |ch. The |pattern |
|00002fd0| 69 73 20 73 69 74 74 69 | 6e 67 20 69 6e 20 74 68 |is sitti|ng in th|
|00002fe0| 65 20 65 78 74 65 72 6e | 61 6c 0a 20 2a 20 76 61 |e extern|al. * va|
|00002ff0| 72 69 61 62 6c 65 20 22 | 70 61 74 22 2e 20 49 66 |riable "|pat". If|
|00003000| 20 66 6f 75 6e 64 2c 20 | 64 6f 74 20 69 73 20 75 | found, |dot is u|
|00003010| 70 64 61 74 65 64 2c 20 | 74 68 65 20 77 69 6e 64 |pdated, |the wind|
|00003020| 6f 77 20 73 79 73 74 65 | 6d 0a 20 2a 20 69 73 20 |ow syste|m. * is |
|00003030| 6e 6f 74 69 66 69 65 64 | 20 6f 66 20 74 68 65 20 |notified| of the |
|00003040| 63 68 61 6e 67 65 2c 20 | 61 6e 64 20 54 52 55 45 |change, |and TRUE|
|00003050| 20 69 73 20 72 65 74 75 | 72 6e 65 64 2e 20 49 66 | is retu|rned. If|
|00003060| 20 74 68 65 0a 20 2a 20 | 73 74 72 69 6e 67 20 69 | the. * |string i|
|00003070| 73 6e 27 74 20 66 6f 75 | 6e 64 2c 20 46 41 4c 53 |sn't fou|nd, FALS|
|00003080| 45 20 69 73 20 72 65 74 | 75 72 6e 65 64 2e 0a 20 |E is ret|urned.. |
|00003090| 2a 2f 0a 62 61 63 6b 73 | 72 63 68 28 29 0a 7b 0a |*/.backs|rch().{.|
|000030a0| 09 72 65 67 69 73 74 65 | 72 20 4c 49 4e 45 09 2a |.registe|r LINE.*|
|000030b0| 63 6c 70 3b 0a 09 72 65 | 67 69 73 74 65 72 20 69 |clp;..re|gister i|
|000030c0| 6e 74 09 63 62 6f 3b 0a | 09 72 65 67 69 73 74 65 |nt.cbo;.|.registe|
|000030d0| 72 20 4c 49 4e 45 09 2a | 74 6c 70 3b 0a 09 72 65 |r LINE.*|tlp;..re|
|000030e0| 67 69 73 74 65 72 20 69 | 6e 74 09 74 62 6f 3b 0a |gister i|nt.tbo;.|
|000030f0| 09 72 65 67 69 73 74 65 | 72 20 69 6e 74 09 63 3b |.registe|r int.c;|
|00003100| 0a 09 72 65 67 69 73 74 | 65 72 20 63 68 61 72 09 |..regist|er char.|
|00003110| 2a 65 70 70 3b 0a 09 63 | 68 61 72 09 09 2a 70 70 |*epp;..c|har..*pp|
|00003120| 3b 0a 0a 09 66 6f 72 20 | 28 65 70 70 20 3d 20 26 |;...for |(epp = &|
|00003130| 70 61 74 5b 30 5d 3b 20 | 65 70 70 5b 31 5d 20 21 |pat[0]; |epp[1] !|
|00003140| 3d 20 30 3b 20 2b 2b 65 | 70 70 29 0a 09 09 3b 0a |= 0; ++e|pp)...;.|
|00003150| 09 63 6c 70 20 3d 20 63 | 75 72 77 70 2d 3e 77 5f |.clp = c|urwp->w_|
|00003160| 64 6f 74 70 3b 0a 09 63 | 62 6f 20 3d 20 63 75 72 |dotp;..c|bo = cur|
|00003170| 77 70 2d 3e 77 5f 64 6f | 74 6f 3b 0a 09 66 6f 72 |wp->w_do|to;..for|
|00003180| 20 28 3b 3b 29 0a 09 7b | 0a 09 09 69 66 20 28 63 | (;;)..{|...if (c|
|00003190| 62 6f 20 3d 3d 20 30 29 | 0a 09 09 7b 0a 09 09 09 |bo == 0)|...{....|
|000031a0| 63 6c 70 20 3d 20 6c 62 | 61 63 6b 28 63 6c 70 29 |clp = lb|ack(clp)|
|000031b0| 3b 0a 09 09 09 69 66 20 | 28 63 6c 70 20 3d 3d 20 |;....if |(clp == |
|000031c0| 63 75 72 62 70 2d 3e 62 | 5f 6c 69 6e 65 70 29 0a |curbp->b|_linep).|
|000031d0| 09 09 09 09 72 65 74 75 | 72 6e 20 28 46 41 4c 53 |....retu|rn (FALS|
|000031e0| 45 29 3b 0a 09 09 09 63 | 62 6f 20 3d 20 6c 6c 65 |E);....c|bo = lle|
|000031f0| 6e 67 74 68 28 63 6c 70 | 29 2b 31 3b 0a 09 09 7d |ngth(clp|)+1;...}|
|00003200| 0a 09 09 69 66 20 28 2d | 2d 63 62 6f 20 3d 3d 20 |...if (-|-cbo == |
|00003210| 6c 6c 65 6e 67 74 68 28 | 63 6c 70 29 29 0a 09 09 |llength(|clp))...|
|00003220| 09 63 20 3d 20 53 45 4f | 4c 3b 0a 09 09 65 6c 73 |.c = SEO|L;...els|
|00003230| 65 0a 09 09 09 63 20 3d | 20 6c 67 65 74 63 28 63 |e....c =| lgetc(c|
|00003240| 6c 70 2c 63 62 6f 29 3b | 0a 09 09 69 66 20 28 65 |lp,cbo);|...if (e|
|00003250| 71 28 63 2c 20 2a 65 70 | 70 29 20 21 3d 20 46 41 |q(c, *ep|p) != FA|
|00003260| 4c 53 45 29 0a 09 09 7b | 0a 09 09 09 74 6c 70 20 |LSE)...{|....tlp |
|00003270| 3d 20 63 6c 70 3b 0a 09 | 09 09 74 62 6f 20 3d 20 |= clp;..|..tbo = |
|00003280| 63 62 6f 3b 0a 09 09 09 | 70 70 20 20 3d 20 65 70 |cbo;....|pp  = ep|
|00003290| 70 3b 0a 09 09 09 77 68 | 69 6c 65 20 28 70 70 20 |p;....wh|ile (pp |
|000032a0| 21 3d 20 26 70 61 74 5b | 30 5d 29 0a 09 09 09 7b |!= &pat[|0])....{|
|000032b0| 0a 09 09 09 09 69 66 20 | 28 74 62 6f 20 3d 3d 20 |.....if |(tbo == |
|000032c0| 30 29 0a 09 09 09 09 7b | 0a 09 09 09 09 09 74 6c |0).....{|......tl|
|000032d0| 70 20 3d 20 6c 62 61 63 | 6b 28 74 6c 70 29 3b 0a |p = lbac|k(tlp);.|
|000032e0| 09 09 09 09 09 69 66 20 | 28 74 6c 70 20 3d 3d 20 |.....if |(tlp == |
|000032f0| 63 75 72 62 70 2d 3e 62 | 5f 6c 69 6e 65 70 29 0a |curbp->b|_linep).|
|00003300| 09 09 09 09 09 09 67 6f | 74 6f 20 66 61 69 6c 3b |......go|to fail;|
|00003310| 0a 09 09 09 09 09 74 62 | 6f 20 3d 20 6c 6c 65 6e |......tb|o = llen|
|00003320| 67 74 68 28 74 6c 70 29 | 2b 31 3b 0a 09 09 09 09 |gth(tlp)|+1;.....|
|00003330| 7d 0a 09 09 09 09 69 66 | 20 28 2d 2d 74 62 6f 20 |}.....if| (--tbo |
|00003340| 3d 3d 20 6c 6c 65 6e 67 | 74 68 28 74 6c 70 29 29 |== lleng|th(tlp))|
|00003350| 0a 09 09 09 09 09 63 20 | 3d 20 53 45 4f 4c 3b 0a |......c |= SEOL;.|
|00003360| 09 09 09 09 65 6c 73 65 | 0a 09 09 09 09 09 63 20 |....else|......c |
|00003370| 3d 20 6c 67 65 74 63 28 | 74 6c 70 2c 74 62 6f 29 |= lgetc(|tlp,tbo)|
|00003380| 3b 0a 09 09 09 09 69 66 | 20 28 65 71 28 63 2c 20 |;.....if| (eq(c, |
|00003390| 2a 2d 2d 70 70 29 20 3d | 3d 20 46 41 4c 53 45 29 |*--pp) =|= FALSE)|
|000033a0| 0a 09 09 09 09 09 67 6f | 74 6f 20 66 61 69 6c 3b |......go|to fail;|
|000033b0| 0a 09 09 09 7d 0a 09 09 | 09 63 75 72 77 70 2d 3e |....}...|.curwp->|
|000033c0| 77 5f 64 6f 74 70 20 20 | 3d 20 74 6c 70 3b 0a 09 |w_dotp  |= tlp;..|
|000033d0| 09 09 63 75 72 77 70 2d | 3e 77 5f 64 6f 74 6f 20 |..curwp-|>w_doto |
|000033e0| 20 3d 20 74 62 6f 3b 0a | 09 09 09 63 75 72 77 70 | = tbo;.|...curwp|
|000033f0| 2d 3e 77 5f 66 6c 61 67 | 20 7c 3d 20 57 46 4d 4f |->w_flag| |= WFMO|
|00003400| 56 45 3b 0a 09 09 09 72 | 65 74 75 72 6e 20 28 54 |VE;....r|eturn (T|
|00003410| 52 55 45 29 3b 0a 09 09 | 7d 0a 09 66 61 69 6c 3a |RUE);...|}..fail:|
|00003420| 09 3b 0a 09 7d 0a 09 2f | 2a 20 4e 4f 54 52 45 41 |.;..}../|* NOTREA|
|00003430| 43 48 45 44 2a 2f 0a 7d | 0a 0a 2f 2a 0a 20 2a 20 |CHED*/.}|../*. * |
|00003440| 43 6f 6d 70 61 72 65 20 | 74 77 6f 20 63 68 61 72 |Compare |two char|
|00003450| 61 63 74 65 72 73 2e 0a | 20 2a 20 54 68 65 20 22 |acters..| * The "|
|00003460| 62 63 22 20 63 6f 6d 65 | 73 20 66 72 6f 6d 20 74 |bc" come|s from t|
|00003470| 68 65 20 62 75 66 66 65 | 72 2e 0a 20 2a 20 49 74 |he buffe|r.. * It|
|00003480| 20 68 61 73 20 69 74 73 | 20 63 61 73 65 20 66 6f | has its| case fo|
|00003490| 6c 64 65 64 20 6f 75 74 | 2e 20 54 68 65 0a 20 2a |lded out|. The. *|
|000034a0| 20 22 70 63 22 20 69 73 | 20 66 72 6f 6d 20 74 68 | "pc" is| from th|
|000034b0| 65 20 70 61 74 74 65 72 | 6e 2e 0a 20 2a 2f 0a 65 |e patter|n.. */.e|
|000034c0| 71 28 62 63 2c 20 70 63 | 29 0a 7b 0a 09 72 65 67 |q(bc, pc|).{..reg|
|000034d0| 69 73 74 65 72 20 69 6e | 74 09 69 62 63 3b 0a 09 |ister in|t.ibc;..|
|000034e0| 72 65 67 69 73 74 65 72 | 20 69 6e 74 09 69 70 63 |register| int.ipc|
|000034f0| 3b 0a 0a 09 69 62 63 20 | 3d 20 62 63 20 26 20 30 |;...ibc |= bc & 0|
|00003500| 78 46 46 3b 0a 09 69 70 | 63 20 3d 20 70 63 20 26 |xFF;..ip|c = pc &|
|00003510| 20 30 78 46 46 3b 0a 09 | 69 66 20 28 49 53 4c 4f | 0xFF;..|if (ISLO|
|00003520| 57 45 52 28 69 62 63 29 | 20 21 3d 20 46 41 4c 53 |WER(ibc)| != FALS|
|00003530| 45 29 0a 09 09 69 62 63 | 20 3d 20 54 4f 55 50 50 |E)...ibc| = TOUPP|
|00003540| 45 52 28 69 62 63 29 3b | 0a 09 69 66 20 28 49 53 |ER(ibc);|..if (IS|
|00003550| 4c 4f 57 45 52 28 69 70 | 63 29 20 21 3d 20 46 41 |LOWER(ip|c) != FA|
|00003560| 4c 53 45 29 0a 09 09 69 | 70 63 20 3d 20 54 4f 55 |LSE)...i|pc = TOU|
|00003570| 50 50 45 52 28 69 70 63 | 29 3b 0a 09 69 66 20 28 |PPER(ipc|);..if (|
|00003580| 69 62 63 20 3d 3d 20 69 | 70 63 29 0a 09 09 72 65 |ibc == i|pc)...re|
|00003590| 74 75 72 6e 20 28 54 52 | 55 45 29 3b 0a 09 72 65 |turn (TR|UE);..re|
|000035a0| 74 75 72 6e 20 28 46 41 | 4c 53 45 29 3b 0a 7d 0a |turn (FA|LSE);.}.|
|000035b0| 0a 2f 2a 0a 20 2a 20 52 | 65 61 64 20 61 20 70 61 |./*. * R|ead a pa|
|000035c0| 74 74 65 72 6e 2e 0a 20 | 2a 20 53 74 61 73 68 20 |ttern.. |* Stash |
|000035d0| 69 74 20 69 6e 20 74 68 | 65 20 65 78 74 65 72 6e |it in th|e extern|
|000035e0| 61 6c 20 76 61 72 69 61 | 62 6c 65 20 22 70 61 74 |al varia|ble "pat|
|000035f0| 22 2e 20 54 68 65 20 22 | 70 61 74 22 20 69 73 0a |". The "|pat" is.|
|00003600| 20 2a 20 6e 6f 74 20 75 | 70 64 61 74 65 64 20 69 | * not u|pdated i|
|00003610| 66 20 74 68 65 20 75 73 | 65 72 20 74 79 70 65 73 |f the us|er types|
|00003620| 20 69 6e 20 61 6e 20 65 | 6d 70 74 79 20 6c 69 6e | in an e|mpty lin|
|00003630| 65 2e 20 49 66 20 74 68 | 65 20 75 73 65 72 20 74 |e. If th|e user t|
|00003640| 79 70 65 64 0a 20 2a 20 | 61 6e 20 65 6d 70 74 79 |yped. * |an empty|
|00003650| 20 6c 69 6e 65 2c 20 61 | 6e 64 20 74 68 65 72 65 | line, a|nd there|
|00003660| 20 69 73 20 6e 6f 20 6f | 6c 64 20 70 61 74 74 65 | is no o|ld patte|
|00003670| 72 6e 2c 20 69 74 20 69 | 73 20 61 6e 20 65 72 72 |rn, it i|s an err|
|00003680| 6f 72 2e 0a 20 2a 20 44 | 69 73 70 6c 61 79 20 74 |or.. * D|isplay t|
|00003690| 68 65 20 6f 6c 64 20 70 | 61 74 74 65 72 6e 2c 20 |he old p|attern, |
|000036a0| 69 6e 20 74 68 65 20 73 | 74 79 6c 65 20 6f 66 20 |in the s|tyle of |
|000036b0| 4a 65 66 66 20 4c 6f 6d | 69 63 6b 61 2e 20 54 68 |Jeff Lom|icka. Th|
|000036c0| 65 72 65 20 69 73 0a 20 | 2a 20 73 6f 6d 65 20 64 |ere is. |* some d|
|000036d0| 6f 2d 69 74 2d 79 6f 75 | 72 73 65 6c 66 20 63 6f |o-it-you|rself co|
|000036e0| 6e 74 72 6f 6c 20 65 78 | 70 61 6e 73 69 6f 6e 2e |ntrol ex|pansion.|
|000036f0| 0a 20 2a 2f 0a 72 65 61 | 64 70 61 74 74 65 72 6e |. */.rea|dpattern|
|00003700| 28 70 72 6f 6d 70 74 29 | 20 63 68 61 72 20 2a 70 |(prompt)| char *p|
|00003710| 72 6f 6d 70 74 3b 0a 7b | 0a 09 72 65 67 69 73 74 |rompt;.{|..regist|
|00003720| 65 72 20 69 6e 74 09 73 | 3b 0a 09 63 68 61 72 09 |er int.s|;..char.|
|00003730| 09 74 70 61 74 5b 4e 50 | 41 54 5d 3b 0a 0a 09 69 |.tpat[NP|AT];...i|
|00003740| 66 20 28 74 70 61 74 5b | 30 5d 20 3d 3d 20 27 5c |f (tpat[|0] == '\|
|00003750| 30 27 29 20 73 20 3d 20 | 65 72 65 70 6c 79 28 22 |0') s = |ereply("|
|00003760| 25 73 3a 20 22 2c 20 74 | 70 61 74 2c 20 4e 50 41 |%s: ", t|pat, NPA|
|00003770| 54 2c 20 70 72 6f 6d 70 | 74 29 3b 0a 09 65 6c 73 |T, promp|t);..els|
|00003780| 65 20 73 20 3d 20 65 72 | 65 70 6c 79 28 22 25 73 |e s = er|eply("%s|
|00003790| 3a 20 28 64 65 66 61 75 | 6c 74 20 25 73 29 20 22 |: (defau|lt %s) "|
|000037a0| 2c 20 74 70 61 74 2c 20 | 4e 50 41 54 2c 20 70 72 |, tpat, |NPAT, pr|
|000037b0| 6f 6d 70 74 2c 20 70 61 | 74 29 3b 0a 0a 09 69 66 |ompt, pa|t);...if|
|000037c0| 20 28 73 20 3d 3d 20 54 | 52 55 45 29 09 09 09 09 | (s == T|RUE)....|
|000037d0| 2f 2a 20 53 70 65 63 69 | 66 69 65 64 09 09 2a 2f |/* Speci|fied..*/|
|000037e0| 0a 09 09 28 56 4f 49 44 | 29 20 73 74 72 63 70 79 |...(VOID|) strcpy|
|000037f0| 28 70 61 74 2c 20 74 70 | 61 74 29 3b 0a 09 65 6c |(pat, tp|at);..el|
|00003800| 73 65 20 69 66 20 28 73 | 3d 3d 46 41 4c 53 45 20 |se if (s|==FALSE |
|00003810| 26 26 20 70 61 74 5b 30 | 5d 21 3d 30 29 09 09 2f |&& pat[0|]!=0)../|
|00003820| 2a 20 43 52 2c 20 62 75 | 74 20 6f 6c 64 20 6f 6e |* CR, bu|t old on|
|00003830| 65 09 2a 2f 0a 09 09 73 | 20 3d 20 54 52 55 45 3b |e.*/...s| = TRUE;|
|00003840| 0a 09 72 65 74 75 72 6e | 20 28 73 29 3b 0a 7d 0a |..return| (s);.}.|
|00003850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003880| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003890| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000038a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000038b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000038c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000038d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000038e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000038f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003900| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003910| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003980| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000039a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000039b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000039c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000039d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000039e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000039f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a00| 75 6e 69 66 79 2d 61 63 | 63 65 6c 6c 2f 73 70 61 |unify-ac|cell/spa|
|00003a10| 77 6e 2e 63 00 00 00 00 | 00 00 00 00 00 00 00 00 |wn.c....|........|
|00003a20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a60| 00 00 00 00 20 20 20 36 | 34 34 20 00 20 20 20 32 |....   6|44 .   2|
|00003a70| 34 33 20 00 20 20 20 20 | 31 32 20 00 20 20 20 20 |43 .    |12 .    |
|00003a80| 20 20 20 37 35 37 34 20 | 20 34 34 30 32 30 36 32 |   7574 | 4402062|
|00003a90| 30 32 31 20 20 20 37 37 | 35 33 00 20 00 00 00 00 |021   77|53. ....|
|00003aa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ab0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003bb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003bc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c00| 2f 2a 0a 20 2a 20 4e 61 | 6d 65 3a 09 4d 69 63 72 |/*. * Na|me:.Micr|
|00003c10| 6f 45 4d 41 43 53 0a 20 | 2a 09 09 53 70 61 77 6e |oEMACS. |*..Spawn|
|00003c20| 20 43 4c 49 20 66 6f 72 | 20 53 79 73 74 65 6d 20 | CLI for| System |
|00003c30| 56 2e 0a 20 2a 20 56 65 | 72 73 69 6f 6e 3a 09 30 |V.. * Ve|rsion:.0|
|00003c40| 0a 20 2a 20 4c 61 73 74 | 20 65 64 69 74 3a 09 31 |. * Last| edit:.1|
|00003c50| 37 2d 41 70 72 2d 38 36 | 0a 20 2a 20 42 79 3a 09 |7-Apr-86|. * By:.|
|00003c60| 09 67 6f 6e 7a 6f 21 64 | 61 76 65 62 0a 20 2a 09 |.gonzo!d|aveb. *.|
|00003c70| 09 7b 73 75 6e 2c 20 61 | 6d 64 61 68 6c 2c 20 6d |.{sun, a|mdahl, m|
|00003c80| 74 78 69 6e 75 7d 21 72 | 74 65 63 68 21 64 61 76 |txinu}!r|tech!dav|
|00003c90| 65 62 0a 20 2a 0a 20 2a | 20 53 70 61 77 6e 20 66 |eb. *. *| Spawn f|
|00003ca0| 6f 72 20 53 79 73 74 65 | 6d 20 56 2e 0a 20 2a 2f |or Syste|m V.. */|
|00003cb0| 0a 23 69 6e 63 6c 75 64 | 65 09 22 64 65 66 2e 68 |.#includ|e."def.h|
|00003cc0| 22 0a 0a 23 69 6e 63 6c | 75 64 65 09 3c 73 69 67 |"..#incl|ude.<sig|
|00003cd0| 6e 61 6c 2e 68 3e 0a 23 | 69 6e 63 6c 75 64 65 09 |nal.h>.#|include.|
|00003ce0| 3c 73 74 64 69 6f 2e 68 | 3e 0a 0a 65 78 74 65 72 |<stdio.h|>..exter|
|00003cf0| 6e 09 63 68 61 72 09 2a | 67 65 74 65 6e 76 28 29 |n.char.*|getenv()|
|00003d00| 3b 0a 0a 2f 2a 0a 20 2a | 20 45 78 65 63 75 74 65 |;../*. *| Execute|
|00003d10| 20 61 20 73 69 6e 67 6c | 65 20 63 6f 6d 6d 61 6e | a singl|e comman|
|00003d20| 64 20 75 73 69 6e 67 20 | 74 68 65 20 73 68 65 6c |d using |the shel|
|00003d30| 6c 2e 20 49 66 20 6e 6f | 20 61 72 67 75 6d 65 6e |l. If no| argumen|
|00003d40| 74 2c 0a 20 2a 20 74 68 | 65 6e 20 70 72 69 6e 74 |t,. * th|en print|
|00003d50| 20 74 68 65 20 66 69 6c | 65 20 69 6e 20 74 68 65 | the fil|e in the|
|00003d60| 20 74 6f 70 20 28 6f 6e | 6c 79 29 20 62 75 66 66 | top (on|ly) buff|
|00003d70| 65 72 2c 20 61 66 74 65 | 72 20 6d 61 6b 69 6e 67 |er, afte|r making|
|00003d80| 0a 20 2a 20 73 75 72 65 | 20 74 68 61 74 20 69 74 |. * sure| that it|
|00003d90| 20 68 61 73 20 62 65 65 | 6e 20 66 6c 75 73 68 65 | has bee|n flushe|
|00003da0| 64 20 74 6f 20 64 69 73 | 6b 2e 0a 20 2a 2f 0a 2f |d to dis|k.. */./|
|00003db0| 2a 41 52 47 53 55 53 45 | 44 2a 2f 0a 73 70 61 77 |*ARGSUSE|D*/.spaw|
|00003dc0| 6e 63 6d 64 28 20 66 2c | 20 6e 2c 20 6b 29 0a 20 |ncmd( f,| n, k). |
|00003dd0| 20 20 69 6e 74 20 66 2c | 20 6e 3b 0a 20 20 20 63 |  int f,| n;.   c|
|00003de0| 68 61 72 20 2a 2a 6b 3b | 0a 7b 0a 20 20 20 63 68 |har **k;|.{.   ch|
|00003df0| 61 72 20 63 6d 64 62 75 | 66 5b 38 30 5d 3b 0a 20 |ar cmdbu|f[80];. |
|00003e00| 20 20 65 78 74 65 72 6e | 20 63 68 61 72 20 2a 67 |  extern| char *g|
|00003e10| 65 74 65 6e 76 28 29 3b | 0a 20 20 20 72 65 67 69 |etenv();|.   regi|
|00003e20| 73 74 65 72 20 69 6e 74 | 20 20 20 70 69 64 3b 0a |ster int|   pid;.|
|00003e30| 20 20 20 72 65 67 69 73 | 74 65 72 20 69 6e 74 20 |   regis|ter int |
|00003e40| 20 20 77 70 69 64 3b 0a | 20 20 20 69 6e 74 20 20 |  wpid;.|   int  |
|00003e50| 20 28 2a 6f 71 73 69 67 | 29 28 29 3b 0a 20 20 20 | (*oqsig|)();.   |
|00003e60| 69 6e 74 20 20 20 28 2a | 6f 69 73 69 67 29 28 29 |int   (*|oisig)()|
|00003e70| 3b 0a 20 20 20 69 6e 74 | 20 20 20 20 20 20 73 74 |;.   int|      st|
|00003e80| 61 74 75 73 3b 0a 20 20 | 20 69 6e 74 20 20 20 20 |atus;.  | int    |
|00003e90| 20 20 65 72 72 70 20 3d | 20 46 41 4c 53 45 3b 0a |  errp =| FALSE;.|
|00003ea0| 0a 20 20 20 69 66 20 28 | 66 20 3d 3d 20 46 41 4c |.   if (|f == FAL|
|00003eb0| 53 45 29 20 20 20 20 20 | 20 2f 2a 20 6e 6f 20 63 |SE)     | /* no c|
|00003ec0| 6f 6d 6d 61 6e 64 20 70 | 72 6f 76 69 64 65 64 20 |ommand p|rovided |
|00003ed0| 2a 2f 0a 20 20 20 7b 0a | 20 20 20 20 20 20 63 68 |*/.   {.|      ch|
|00003ee0| 61 72 20 2a 70 72 69 6e | 74 63 6d 64 3b 0a 20 20 |ar *prin|tcmd;.  |
|00003ef0| 20 20 20 20 63 68 61 72 | 20 2a 61 72 67 76 5b 33 |    char| *argv[3|
|00003f00| 32 5d 3b 0a 20 20 20 20 | 20 20 63 68 61 72 20 61 |2];.    |  char a|
|00003f10| 72 67 62 75 66 5b 31 32 | 38 5d 3b 0a 20 20 20 20 |rgbuf[12|8];.    |
|00003f20| 20 20 63 68 61 72 20 2a | 70 74 72 3b 0a 20 20 20 |  char *|ptr;.   |
|00003f30| 20 20 20 69 6e 74 20 61 | 72 67 63 3b 0a 0a 20 20 |   int a|rgc;..  |
|00003f40| 20 20 20 20 28 76 6f 69 | 64 29 6d 65 6d 73 65 74 |    (voi|d)memset|
|00003f50| 28 61 72 67 62 75 66 2c | 20 30 2c 20 31 32 38 29 |(argbuf,| 0, 128)|
|00003f60| 3b 0a 20 20 20 20 20 20 | 69 66 20 28 28 70 72 69 |;.      |if ((pri|
|00003f70| 6e 74 63 6d 64 20 3d 20 | 67 65 74 65 6e 76 28 22 |ntcmd = |getenv("|
|00003f80| 53 50 4f 4f 4c 45 52 22 | 29 29 20 3d 3d 20 4e 55 |SPOOLER"|)) == NU|
|00003f90| 4c 4c 29 0a 20 20 20 20 | 20 20 20 20 20 70 72 69 |LL).    |     pri|
|00003fa0| 6e 74 63 6d 64 20 3d 20 | 22 6c 70 20 2d 73 22 3b |ntcmd = |"lp -s";|
|00003fb0| 0a 20 20 20 20 20 20 28 | 76 6f 69 64 29 73 74 72 |.      (|void)str|
|00003fc0| 63 70 79 28 20 61 72 67 | 62 75 66 2c 20 70 72 69 |cpy( arg|buf, pri|
|00003fd0| 6e 74 63 6d 64 29 3b 0a | 23 69 66 64 65 66 20 44 |ntcmd);.|#ifdef D|
|00003fe0| 45 42 55 47 0a 09 66 70 | 72 69 6e 74 66 28 73 74 |EBUG..fp|rintf(st|
|00003ff0| 64 65 72 72 2c 20 22 73 | 70 6f 6f 6c 65 72 3d 27 |derr, "s|pooler='|
|00004000| 25 73 27 5c 6e 22 2c 20 | 61 72 67 62 75 66 29 3b |%s'\n", |argbuf);|
|00004010| 0a 23 65 6e 64 69 66 0a | 20 20 20 20 20 20 66 6f |.#endif.|      fo|
|00004020| 72 20 28 61 72 67 63 3d | 30 2c 20 70 74 72 3d 61 |r (argc=|0, ptr=a|
|00004030| 72 67 62 75 66 3b 20 2a | 70 74 72 3b 20 29 0a 20 |rgbuf; *|ptr; ). |
|00004040| 20 20 20 20 20 7b 0a 20 | 20 20 20 20 20 20 20 20 |     {. |        |
|00004050| 77 68 69 6c 65 20 28 2a | 70 74 72 20 26 26 20 28 |while (*|ptr && (|
|00004060| 2a 70 74 72 20 3d 3d 20 | 27 20 27 20 7c 7c 20 2a |*ptr == |' ' || *|
|00004070| 70 74 72 20 3d 3d 20 27 | 5c 74 27 29 29 0a 09 20 |ptr == '|\t')).. |
|00004080| 20 20 7b 0a 09 20 20 20 | 20 20 2a 70 74 72 2b 2b |  {..   |  *ptr++|
|00004090| 20 3d 20 27 5c 30 27 3b | 0a 09 20 20 20 7d 0a 20 | = '\0';|..   }. |
|000040a0| 20 20 20 20 20 20 20 20 | 61 72 67 76 5b 61 72 67 |        |argv[arg|
|000040b0| 63 2b 2b 5d 20 3d 20 70 | 74 72 3b 0a 20 20 20 20 |c++] = p|tr;.    |
|000040c0| 20 20 20 20 20 77 68 69 | 6c 65 20 28 2a 70 74 72 |     whi|le (*ptr|
|000040d0| 20 26 26 20 2a 70 74 72 | 20 21 3d 20 27 20 27 20 | && *ptr| != ' ' |
|000040e0| 26 26 20 2a 70 74 72 20 | 21 3d 20 27 5c 74 27 29 |&& *ptr |!= '\t')|
|000040f0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 2b 2b 70 |.       |     ++p|
|00004100| 74 72 3b 0a 20 20 20 20 | 20 20 7d 0a 20 20 20 20 |tr;.    |  }.    |
|00004110| 20 20 69 66 20 28 61 72 | 67 76 5b 61 72 67 63 2d |  if (ar|gv[argc-|
|00004120| 31 5d 5b 30 5d 20 3d 3d | 20 27 5c 30 27 29 0a 20 |1][0] ==| '\0'). |
|00004130| 20 20 20 20 20 20 20 20 | 61 72 67 76 5b 61 72 67 |        |argv[arg|
|00004140| 63 2d 31 5d 20 3d 20 4e | 55 4c 4c 3b 0a 20 20 20 |c-1] = N|ULL;.   |
|00004150| 20 20 20 61 72 67 76 5b | 61 72 67 63 5d 20 3d 20 |   argv[|argc] = |
|00004160| 4e 55 4c 4c 3b 0a 23 69 | 66 64 65 66 20 44 45 42 |NULL;.#i|fdef DEB|
|00004170| 55 47 0a 09 7b 0a 09 69 | 6e 74 20 69 3b 0a 09 09 |UG..{..i|nt i;...|
|00004180| 66 70 72 69 6e 74 66 28 | 73 74 64 65 72 72 2c 20 |fprintf(|stderr, |
|00004190| 22 61 72 67 63 3d 25 64 | 2c 22 2c 20 61 72 67 63 |"argc=%d|,", argc|
|000041a0| 29 3b 0a 09 09 66 70 72 | 69 6e 74 66 28 73 74 64 |);...fpr|intf(std|
|000041b0| 65 72 72 2c 20 22 20 61 | 72 67 76 3d 27 25 73 27 |err, " a|rgv='%s'|
|000041c0| 22 2c 20 61 72 67 76 5b | 30 5d 29 3b 0a 09 09 66 |", argv[|0]);...f|
|000041d0| 6f 72 20 28 69 3d 31 3b | 20 69 3c 3d 61 72 67 63 |or (i=1;| i<=argc|
|000041e0| 3b 20 2b 2b 69 29 0a 09 | 09 20 20 20 66 70 72 69 |; ++i)..|.   fpri|
|000041f0| 6e 74 66 28 73 74 64 65 | 72 72 2c 20 22 2c 27 25 |ntf(stde|rr, ",'%|
|00004200| 73 27 22 2c 20 61 72 67 | 76 5b 69 5d 29 3b 0a 09 |s'", arg|v[i]);..|
|00004210| 09 66 70 72 69 6e 74 66 | 28 73 74 64 65 72 72 2c |.fprintf|(stderr,|
|00004220| 20 22 5c 6e 22 29 3b 0a | 09 7d 0a 23 65 6e 64 69 | "\n");.|.}.#endi|
|00004230| 66 0a 20 20 20 20 20 20 | 28 76 6f 69 64 29 73 74 |f.      |(void)st|
|00004240| 72 63 70 79 28 20 63 6d | 64 62 75 66 2c 20 77 68 |rcpy( cm|dbuf, wh|
|00004250| 65 61 64 70 2d 3e 77 5f | 62 75 66 70 2d 3e 62 5f |eadp->w_|bufp->b_|
|00004260| 66 6e 61 6d 65 29 3b 0a | 0a 20 20 20 20 20 20 65 |fname);.|.      e|
|00004270| 77 70 72 69 6e 74 66 28 | 22 50 6c 65 61 73 65 20 |wprintf(|"Please |
|00004280| 57 61 69 74 2e 2e 2e 22 | 29 3b 0a 20 20 20 20 20 |Wait..."|);.     |
|00004290| 20 6f 71 73 69 67 20 3d | 20 73 69 67 6e 61 6c 28 | oqsig =| signal(|
|000042a0| 53 49 47 51 55 49 54 2c | 20 53 49 47 5f 49 47 4e |SIGQUIT,| SIG_IGN|
|000042b0| 29 3b 0a 20 20 20 20 20 | 20 6f 69 73 69 67 20 3d |);.     | oisig =|
|000042c0| 20 73 69 67 6e 61 6c 28 | 53 49 47 49 4e 54 2c 20 | signal(|SIGINT, |
|000042d0| 20 53 49 47 5f 49 47 4e | 29 3b 0a 20 20 20 20 20 | SIG_IGN|);.     |
|000042e0| 20 69 66 20 28 28 70 69 | 64 3d 66 6f 72 6b 28 29 | if ((pi|d=fork()|
|000042f0| 29 20 3d 3d 20 30 29 0a | 20 20 20 20 20 20 7b 0a |) == 0).|      {.|
|00004300| 20 20 20 20 20 20 20 20 | 20 66 72 65 6f 70 65 6e |        | freopen|
|00004310| 28 20 63 6d 64 62 75 66 | 2c 20 22 72 22 2c 20 73 |( cmdbuf|, "r", s|
|00004320| 74 64 69 6e 29 3b 0a 20 | 20 20 20 20 20 20 20 20 |tdin);. |        |
|00004330| 65 78 65 63 76 70 28 20 | 61 72 67 76 5b 30 5d 2c |execvp( |argv[0],|
|00004340| 20 61 72 67 76 29 3b 0a | 20 20 20 20 20 20 20 20 | argv);.|        |
|00004350| 20 5f 65 78 69 74 28 31 | 29 3b 20 20 20 20 20 20 | _exit(1|);      |
|00004360| 20 20 20 2f 2a 20 53 68 | 6f 75 6c 64 20 64 6f 20 |   /* Sh|ould do |
|00004370| 62 65 74 74 65 72 21 20 | 20 20 2a 2f 0a 20 20 20 |better! |  */.   |
|00004380| 20 20 20 7d 0a 20 20 20 | 20 20 20 65 6c 73 65 20 |   }.   |   else |
|00004390| 69 66 20 28 70 69 64 20 | 3e 20 30 29 0a 20 20 20 |if (pid |> 0).   |
|000043a0| 20 20 20 7b 0a 20 20 20 | 20 20 20 20 20 20 77 68 |   {.   |      wh|
|000043b0| 69 6c 65 20 28 28 77 70 | 69 64 3d 77 61 69 74 28 |ile ((wp|id=wait(|
|000043c0| 26 73 74 61 74 75 73 29 | 29 3e 3d 30 20 26 26 20 |&status)|)>=0 && |
|000043d0| 77 70 69 64 21 3d 70 69 | 64 29 0a 20 20 20 20 20 |wpid!=pi|d).     |
|000043e0| 20 20 20 20 20 20 20 3b | 0a 20 20 20 20 20 20 7d |       ;|.      }|
|000043f0| 0a 20 20 20 20 20 20 65 | 6c 73 65 0a 20 20 20 20 |.      e|lse.    |
|00004400| 20 20 20 20 20 65 72 72 | 70 20 3d 20 54 52 55 45 |     err|p = TRUE|
|00004410| 3b 0a 0a 20 20 20 20 20 | 20 73 69 67 6e 61 6c 28 |;..     | signal(|
|00004420| 53 49 47 51 55 49 54 2c | 20 6f 71 73 69 67 29 3b |SIGQUIT,| oqsig);|
|00004430| 0a 20 20 20 20 20 20 73 | 69 67 6e 61 6c 28 53 49 |.      s|ignal(SI|
|00004440| 47 49 4e 54 2c 20 20 6f | 69 73 69 67 29 3b 0a 20 |GINT,  o|isig);. |
|00004450| 20 20 20 20 20 69 66 28 | 65 72 72 70 29 0a 20 20 |     if(|errp).  |
|00004460| 20 20 20 20 20 20 20 65 | 77 70 72 69 6e 74 66 28 |       e|wprintf(|
|00004470| 22 50 72 69 6e 74 20 66 | 61 69 6c 65 64 20 28 63 |"Print f|ailed (c|
|00004480| 61 6e 27 74 20 63 72 65 | 61 74 65 20 70 72 6f 63 |an't cre|ate proc|
|00004490| 65 73 73 29 2e 22 29 3b | 0a 20 20 20 20 20 20 65 |ess).");|.      e|
|000044a0| 6c 73 65 20 69 66 20 28 | 73 74 61 74 75 73 29 0a |lse if (|status).|
|000044b0| 20 20 20 20 20 20 20 20 | 20 65 77 70 72 69 6e 74 |        | ewprint|
|000044c0| 66 28 22 73 70 6f 6f 6c | 65 72 20 72 65 74 75 72 |f("spool|er retur|
|000044d0| 6e 65 64 20 65 72 72 6f | 72 20 73 74 61 74 75 73 |ned erro|r status|
|000044e0| 3d 25 64 22 2c 20 73 74 | 61 74 75 73 29 3b 0a 20 |=%d", st|atus);. |
|000044f0| 20 20 20 20 20 65 6c 73 | 65 0a 20 20 20 20 20 20 |     els|e.      |
|00004500| 20 20 20 65 77 70 72 69 | 6e 74 66 28 22 54 65 78 |   ewpri|ntf("Tex|
|00004510| 74 20 51 75 65 75 65 64 | 20 66 6f 72 20 70 72 69 |t Queued| for pri|
|00004520| 6e 74 22 29 3b 0a 20 20 | 20 7d 0a 20 20 20 65 6c |nt");.  | }.   el|
|00004530| 73 65 0a 20 20 20 7b 0a | 20 20 20 20 20 20 2f 2a |se.   {.|      /*|
|00004540| 0a 20 20 20 20 20 20 20 | 2a 20 44 6f 6e 27 74 20 |.       |* Don't |
|00004550| 64 6f 20 6e 75 74 68 69 | 6e 20 63 75 72 72 65 6e |do nuthi|n curren|
|00004560| 74 6c 79 0a 20 20 20 20 | 20 20 20 2a 2f 0a 20 20 |tly.    |   */.  |
|00004570| 20 7d 0a 20 20 20 72 65 | 74 75 72 6e 20 54 52 55 | }.   re|turn TRU|
|00004580| 45 3b 0a 7d 0a 0a 23 69 | 66 64 65 66 20 4d 45 4e |E;.}..#i|fdef MEN|
|00004590| 55 5f 49 4e 53 45 52 54 | 0a 2f 2a 0a 20 2a 20 4d |U_INSERT|./*. * M|
|000045a0| 65 6e 75 20 49 6e 73 65 | 72 74 20 2d 2d 20 73 70 |enu Inse|rt -- sp|
|000045b0| 61 77 6e 20 61 20 73 68 | 65 6c 6c 20 77 69 74 68 |awn a sh|ell with|
|000045c0| 20 74 68 65 20 6d 65 6e | 75 20 73 68 65 6c 6c 20 | the men|u shell |
|000045d0| 73 63 72 69 70 74 0a 20 | 2a 2f 0a 73 70 61 77 6e |script. |*/.spawn|
|000045e0| 69 6e 73 65 72 74 28 20 | 66 2c 20 6e 2c 20 6b 29 |insert( |f, n, k)|
|000045f0| 0a 7b 0a 20 20 20 65 78 | 74 65 72 6e 20 63 68 61 |.{.   ex|tern cha|
|00004600| 72 20 20 20 2a 73 74 72 | 72 63 68 72 28 29 2c 20 |r   *str|rchr(), |
|00004610| 2a 73 74 72 63 70 79 28 | 29 2c 20 2a 73 74 72 63 |*strcpy(|), *strc|
|00004620| 61 74 28 29 2c 20 2a 74 | 6d 70 6e 61 6d 28 29 3b |at(), *t|mpnam();|
|00004630| 0a 20 20 20 72 65 67 69 | 73 74 65 72 20 69 6e 74 |.   regi|ster int|
|00004640| 20 20 20 70 69 64 3b 0a | 20 20 20 72 65 67 69 73 |   pid;.|   regis|
|00004650| 74 65 72 20 69 6e 74 20 | 20 20 77 70 69 64 3b 0a |ter int |  wpid;.|
|00004660| 20 20 20 72 65 67 69 73 | 74 65 72 20 69 6e 74 20 |   regis|ter int |
|00004670| 20 20 28 2a 6f 71 73 69 | 67 29 28 29 3b 0a 20 20 |  (*oqsi|g)();.  |
|00004680| 20 72 65 67 69 73 74 65 | 72 20 69 6e 74 20 20 20 | registe|r int   |
|00004690| 28 2a 6f 69 73 69 67 29 | 28 29 3b 0a 20 20 20 69 |(*oisig)|();.   i|
|000046a0| 6e 74 20 20 20 20 20 20 | 73 74 61 74 75 73 3b 0a |nt      |status;.|
|000046b0| 20 20 20 69 6e 74 20 20 | 20 20 20 20 65 72 72 70 |   int  |    errp|
|000046c0| 20 3d 20 46 41 4c 53 45 | 3b 0a 20 20 20 63 68 61 | = FALSE|;.   cha|
|000046d0| 72 20 20 20 20 20 20 6d | 65 6e 75 70 5b 38 30 5d |r      m|enup[80]|
|000046e0| 2c 20 2a 6d 65 6e 75 6e | 61 6d 65 20 3d 20 4e 55 |, *menun|ame = NU|
|000046f0| 4c 4c 3b 0a 20 20 20 63 | 68 61 72 20 20 20 20 20 |LL;.   c|har     |
|00004700| 20 74 65 6d 70 66 69 6c | 65 5b 4c 5f 74 6d 70 6e | tempfil|e[L_tmpn|
|00004710| 61 6d 5d 3b 0a 0a 20 20 | 20 28 76 6f 69 64 29 73 |am];..  | (void)s|
|00004720| 74 72 63 70 79 28 20 6d | 65 6e 75 70 2c 20 67 65 |trcpy( m|enup, ge|
|00004730| 74 65 6e 76 28 22 44 42 | 42 49 4e 22 29 29 3b 0a |tenv("DB|BIN"));.|
|00004740| 20 20 20 69 66 20 28 6d | 65 6e 75 70 5b 73 74 72 |   if (m|enup[str|
|00004750| 6c 65 6e 28 6d 65 6e 75 | 70 29 2d 31 5d 20 21 3d |len(menu|p)-1] !=|
|00004760| 20 27 2f 27 29 0a 20 20 | 20 20 20 20 28 76 6f 69 | '/').  |    (voi|
|00004770| 64 29 73 74 72 63 61 74 | 28 20 6d 65 6e 75 70 2c |d)strcat|( menup,|
|00004780| 20 22 2f 22 29 3b 0a 20 | 20 20 69 66 20 28 28 6d | "/");. |  if ((m|
|00004790| 65 6e 75 6e 61 6d 65 20 | 3d 20 67 65 74 65 6e 76 |enuname |= getenv|
|000047a0| 28 22 45 4d 45 4e 55 22 | 29 29 20 3d 3d 20 4e 55 |("EMENU"|)) == NU|
|000047b0| 4c 4c 29 0a 20 20 20 7b | 0a 20 20 20 20 20 20 6d |LL).   {|.      m|
|000047c0| 65 6e 75 6e 61 6d 65 20 | 3d 20 22 6d 67 78 2d 6d |enuname |= "mgx-m|
|000047d0| 65 6e 75 2e 73 68 22 3b | 0a 20 20 20 7d 0a 20 20 |enu.sh";|.   }.  |
|000047e0| 20 28 76 6f 69 64 29 73 | 74 72 63 61 74 28 6d 65 | (void)s|trcat(me|
|000047f0| 6e 75 70 2c 20 6d 65 6e | 75 6e 61 6d 65 29 3b 0a |nup, men|uname);.|
|00004800| 20 20 20 6d 65 6e 75 6e | 61 6d 65 20 3d 20 73 74 |   menun|ame = st|
|00004810| 72 72 63 68 72 28 20 6d | 65 6e 75 70 2c 20 27 2f |rrchr( m|enup, '/|
|00004820| 27 20 29 3b 20 0a 20 20 | 20 6d 65 6e 75 6e 61 6d |' ); .  | menunam|
|00004830| 65 20 3d 20 6d 65 6e 75 | 6e 61 6d 65 20 3f 20 6d |e = menu|name ? m|
|00004840| 65 6e 75 6e 61 6d 65 2b | 2b 20 3a 20 6d 65 6e 75 |enuname+|+ : menu|
|00004850| 70 3b 0a 0a 20 20 20 73 | 74 72 63 70 79 20 28 74 |p;..   s|trcpy (t|
|00004860| 65 6d 70 66 69 6c 65 2c | 20 74 6d 70 6e 61 6d 28 |empfile,| tmpnam(|
|00004870| 28 63 68 61 72 20 2a 29 | 30 29 29 3b 0a 20 20 20 |(char *)|0));.   |
|00004880| 74 74 63 6f 6c 6f 72 28 | 43 54 45 58 54 29 3b 0a |ttcolor(|CTEXT);.|
|00004890| 20 20 20 74 74 6e 6f 77 | 69 6e 64 6f 77 28 29 3b |   ttnow|indow();|
|000048a0| 0a 20 20 20 74 74 6d 6f | 76 65 28 6e 72 6f 77 2d |.   ttmo|ve(nrow-|
|000048b0| 31 2c 20 30 29 3b 0a 20 | 20 20 69 66 20 28 65 70 |1, 0);. |  if (ep|
|000048c0| 72 65 73 66 20 21 3d 20 | 46 41 4c 53 45 29 0a 20 |resf != |FALSE). |
|000048d0| 20 20 7b 0a 20 20 20 20 | 20 20 74 74 65 65 6f 6c |  {.    |  tteeol|
|000048e0| 28 29 3b 0a 20 20 20 20 | 20 20 65 70 72 65 73 66 |();.    |  epresf|
|000048f0| 20 3d 20 46 41 4c 53 45 | 3b 0a 20 20 20 7d 0a 20 | = FALSE|;.   }. |
|00004900| 20 20 74 74 63 6c 6f 73 | 65 28 29 3b 0a 20 20 20 |  ttclos|e();.   |
|00004910| 73 67 61 72 62 66 20 3d | 20 54 52 55 45 3b 20 20 |sgarbf =| TRUE;  |
|00004920| 20 20 20 20 20 20 20 20 | 20 20 2f 2a 20 46 6f 72 |        |  /* For|
|00004930| 63 65 20 72 65 70 61 69 | 6e 74 2e 20 20 20 2a 2f |ce repai|nt.   */|
|00004940| 0a 20 20 20 6f 71 73 69 | 67 20 3d 20 73 69 67 6e |.   oqsi|g = sign|
|00004950| 61 6c 28 53 49 47 51 55 | 49 54 2c 20 53 49 47 5f |al(SIGQU|IT, SIG_|
|00004960| 49 47 4e 29 3b 0a 20 20 | 20 6f 69 73 69 67 20 3d |IGN);.  | oisig =|
|00004970| 20 73 69 67 6e 61 6c 28 | 53 49 47 49 4e 54 2c 20 | signal(|SIGINT, |
|00004980| 20 53 49 47 5f 49 47 4e | 29 3b 0a 20 20 20 69 66 | SIG_IGN|);.   if|
|00004990| 20 28 28 70 69 64 3d 66 | 6f 72 6b 28 29 29 20 3d | ((pid=f|ork()) =|
|000049a0| 3d 20 30 29 0a 20 20 20 | 7b 0a 20 20 20 20 20 20 |= 0).   |{.      |
|000049b0| 65 78 65 63 6c 70 28 6d | 65 6e 75 70 2c 20 6d 65 |execlp(m|enup, me|
|000049c0| 6e 75 6e 61 6d 65 2c 20 | 74 65 6d 70 66 69 6c 65 |nuname, |tempfile|
|000049d0| 2c 20 4e 55 4c 4c 29 3b | 0a 20 20 20 20 20 20 5f |, NULL);|.      _|
|000049e0| 65 78 69 74 28 31 29 3b | 20 20 20 20 20 20 20 20 |exit(1);|        |
|000049f0| 20 2f 2a 20 53 68 6f 75 | 6c 64 20 64 6f 20 62 65 | /* Shou|ld do be|
|00004a00| 74 74 65 72 21 20 20 20 | 2a 2f 0a 20 20 20 7d 0a |tter!   |*/.   }.|
|00004a10| 20 20 20 65 6c 73 65 20 | 69 66 20 28 70 69 64 20 |   else |if (pid |
|00004a20| 3e 20 30 29 0a 20 20 20 | 7b 0a 20 20 20 20 20 20 |> 0).   |{.      |
|00004a30| 77 68 69 6c 65 20 28 28 | 77 70 69 64 3d 77 61 69 |while ((|wpid=wai|
|00004a40| 74 28 26 73 74 61 74 75 | 73 29 29 3e 3d 30 20 26 |t(&statu|s))>=0 &|
|00004a50| 26 20 77 70 69 64 21 3d | 70 69 64 29 0a 20 20 20 |& wpid!=|pid).   |
|00004a60| 20 20 20 20 20 20 3b 0a | 20 20 20 7d 0a 20 20 20 |      ;.|   }.   |
|00004a70| 65 6c 73 65 0a 20 20 20 | 20 20 20 65 72 72 70 20 |else.   |   errp |
|00004a80| 3d 20 54 52 55 45 3b 0a | 0a 20 20 20 73 69 67 6e |= TRUE;.|.   sign|
|00004a90| 61 6c 28 53 49 47 49 4e | 54 2c 20 20 6f 69 73 69 |al(SIGIN|T,  oisi|
|00004aa0| 67 29 3b 0a 20 20 20 74 | 74 6f 70 65 6e 28 29 3b |g);.   t|topen();|
|00004ab0| 0a 20 20 20 69 66 28 65 | 72 72 70 29 0a 20 20 20 |.   if(e|rrp).   |
|00004ac0| 20 20 20 65 77 70 72 69 | 6e 74 66 28 22 46 61 69 |   ewpri|ntf("Fai|
|00004ad0| 6c 65 64 20 74 6f 20 63 | 72 65 61 74 65 20 70 72 |led to c|reate pr|
|00004ae0| 6f 63 65 73 73 22 29 3b | 0a 20 20 20 65 6c 73 65 |ocess");|.   else|
|00004af0| 0a 20 20 20 7b 0a 20 20 | 20 20 20 20 67 6f 74 6f |.   {.  |    goto|
|00004b00| 62 6f 6c 28 20 46 41 4c | 53 45 2c 20 30 2c 20 30 |bol( FAL|SE, 0, 0|
|00004b10| 29 3b 0a 20 20 20 20 20 | 20 69 6e 73 65 72 74 66 |);.     | insertf|
|00004b20| 69 6c 65 28 20 74 65 6d | 70 66 69 6c 65 2c 20 28 |ile( tem|pfile, (|
|00004b30| 63 68 61 72 20 2a 29 30 | 29 3b 0a 20 20 20 7d 0a |char *)0|);.   }.|
|00004b40| 20 20 20 75 6e 6c 69 6e | 6b 28 20 74 65 6d 70 66 |   unlin|k( tempf|
|00004b50| 69 6c 65 29 3b 0a 20 20 | 20 72 65 74 75 72 6e 20 |ile);.  | return |
|00004b60| 28 20 65 72 72 70 20 7c | 20 73 74 61 74 75 73 20 |( errp || status |
|00004b70| 29 3b 0a 7d 0a 23 65 6e | 64 69 66 0a 2c 20 63 62 |);.}.#en|dif., cb|
|00004b80| 6f 2b 2b 29 3b 0a 09 09 | 69 66 20 28 65 71 28 63 |o++);...|if (eq(c|
|00004b90| 2c 20 70 61 74 5b 30 5d | 29 20 21 3d 20 46 41 4c |, pat[0]|) != FAL|
|00004ba0| 53 45 29 0a 09 09 7b 0a | 09 09 09 74 6c 70 20 3d |SE)...{.|...tlp =|
|00004bb0| 20 63 6c 70 3b 0a 09 09 | 09 74 62 6f 20 3d 20 63 | clp;...|.tbo = c|
|00004bc0| 62 6f 3b 0a 09 09 09 70 | 70 20 20 3d 20 26 70 61 |bo;....p|p  = &pa|
|00004bd0| 74 5b 31 5d 3b 0a 09 09 | 09 77 68 69 6c 65 20 28 |t[1];...|.while (|
|00004be0| 2a 70 70 20 21 3d 20 30 | 29 0a 09 09 09 7b 0a 09 |*pp != 0|)....{..|
|00004bf0| 09 09 09 69 66 20 28 74 | 6c 70 20 3d 3d 20 63 75 |...if (t|lp == cu|
|00004c00| 75 6e 69 66 79 2d 61 63 | 63 65 6c 6c 2f 73 79 6d |unify-ac|cell/sym|
|00004c10| 62 6f 6c 2e 63 00 00 00 | 00 00 00 00 00 00 00 00 |bol.c...|........|
|00004c20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004c30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004c40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004c60| 00 00 00 00 20 20 20 36 | 34 34 20 00 20 20 20 32 |....   6|44 .   2|
|00004c70| 34 33 20 00 20 20 20 20 | 31 32 20 00 20 20 20 20 |43 .    |12 .    |
|00004c80| 20 20 32 34 32 34 33 20 | 20 34 34 30 32 30 36 32 |  24243 | 4402062|
|00004c90| 30 32 35 20 20 31 30 31 | 34 34 00 20 00 00 00 00 |025  101|44. ....|
|00004ca0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004cb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004cc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004da0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004db0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004e00| 2f 2a 0a 20 2a 20 53 79 | 6d 62 6f 6c 20 74 61 62 |/*. * Sy|mbol tab|
|00004e10| 6c 65 73 2c 20 61 6e 64 | 20 6b 65 79 6d 61 70 20 |les, and| keymap |
|00004e20| 73 65 74 75 70 2e 0a 20 | 2a 20 54 68 65 20 74 65 |setup.. |* The te|
|00004e30| 72 6d 69 6e 61 6c 20 73 | 70 65 63 69 66 69 63 20 |rminal s|pecific |
|00004e40| 70 61 72 74 73 20 6f 66 | 20 62 75 69 6c 64 69 6e |parts of| buildin|
|00004e50| 67 20 74 68 65 0a 20 2a | 20 6b 65 79 6d 61 70 20 |g the. *| keymap |
|00004e60| 68 61 73 20 62 65 65 6e | 20 6d 6f 76 65 64 20 74 |has been| moved t|
|00004e70| 6f 20 61 20 62 65 74 74 | 65 72 20 70 6c 61 63 65 |o a bett|er place|
|00004e80| 2e 0a 20 2a 2f 0a 23 69 | 6e 63 6c 75 64 65 09 22 |.. */.#i|nclude."|
|00004e90| 64 65 66 2e 68 22 0a 0a | 2f 2a 0a 20 2a 20 48 65 |def.h"..|/*. * He|
|00004ea0| 61 76 69 6c 79 20 6d 6f | 64 69 66 69 65 64 20 72 |avily mo|dified r|
|00004eb0| 6f 75 74 69 6e 65 20 66 | 6f 72 20 74 68 65 20 54 |outine f|or the T|
|00004ec0| 49 4e 59 20 76 65 72 73 | 69 6f 6e 20 6f 66 20 4d |INY vers|ion of M|
|00004ed0| 69 63 72 6f 47 6e 75 45 | 6d 61 63 73 2e 0a 20 2a |icroGnuE|macs.. *|
|00004ee0| 2f 0a 0a 2f 2a 0a 20 2a | 20 44 65 66 69 6e 65 64 |/../*. *| Defined|
|00004ef0| 20 68 65 72 65 20 73 6f | 20 74 6f 20 63 6f 6c 6c | here so| to coll|
|00004f00| 65 63 74 20 74 68 65 20 | 23 69 66 64 65 66 20 4d |ect the |#ifdef M|
|00004f10| 45 59 4e 20 63 6f 6e 66 | 69 67 20 73 74 75 66 66 |EYN conf|ig stuff|
|00004f20| 20 69 6e 20 6f 6e 65 20 | 66 69 6c 65 0a 20 2a 20 | in one |file. * |
|00004f30| 49 66 20 79 6f 75 20 73 | 65 74 20 65 69 74 68 65 |If you s|et eithe|
|00004f40| 72 20 4d 49 4e 44 45 4e | 54 20 6f 72 20 4d 46 49 |r MINDEN|T or MFI|
|00004f50| 4c 4c 2c 20 74 68 65 6e | 20 79 6f 75 20 6e 65 65 |LL, then| you nee|
|00004f60| 64 20 74 6f 20 63 68 61 | 6e 67 65 20 74 68 65 20 |d to cha|nge the |
|00004f70| 62 69 6e 64 69 6e 67 73 | 0a 20 2a 20 69 6e 20 74 |bindings|. * in t|
|00004f80| 68 69 73 20 66 69 6c 65 | 20 74 6f 20 6d 61 74 63 |his file| to matc|
|00004f90| 68 3a 20 4b 43 54 52 4c | 7c 27 4d 27 20 2d 3e 20 |h: KCTRL||'M' -> |
|00004fa0| 6e 65 77 6c 69 6e 65 2d | 61 6e 64 2d 69 6e 64 65 |newline-|and-inde|
|00004fb0| 6e 74 20 61 6e 64 20 4b | 43 54 52 4c 7c 27 4a 27 |nt and K|CTRL|'J'|
|00004fc0| 20 2d 3e 0a 20 2a 20 69 | 6e 73 65 72 74 2d 6e 65 | ->. * i|nsert-ne|
|00004fd0| 77 6c 69 6e 65 20 66 6f | 72 20 4d 49 4e 44 45 4e |wline fo|r MINDEN|
|00004fe0| 54 2c 20 61 6e 64 20 27 | 20 27 20 2d 3e 20 69 6e |T, and '| ' -> in|
|00004ff0| 73 65 72 74 2d 77 69 74 | 68 2d 77 72 61 70 20 66 |sert-wit|h-wrap f|
|00005000| 6f 72 20 4d 46 49 4c 4c | 2e 0a 20 2a 20 4d 45 59 |or MFILL|.. * MEY|
|00005010| 4e 20 69 73 20 75 73 65 | 64 20 66 6f 72 20 63 6f |N is use|d for co|
|00005020| 6d 70 69 6c 65 2d 74 69 | 6d 65 20 63 75 73 74 6f |mpile-ti|me custo|
|00005030| 6d 69 7a 61 74 69 6f 6e | 20 6f 66 20 74 68 65 20 |mization| of the |
|00005040| 73 79 73 74 65 6d 20 66 | 6f 72 20 6d 69 63 72 6f |system f|or micro|
|00005050| 73 2e 0a 20 2a 2f 0a 0a | 69 6e 74 09 6d 6f 64 65 |s.. */..|int.mode|
|00005060| 20 3d 20 4d 46 49 4c 4c | 20 7c 20 4d 4f 56 52 53 | = MFILL| | MOVRS|
|00005070| 54 4b 20 7c 20 4d 46 4c | 4f 57 3b 0a 0a 2f 2a 0a |TK | MFL|OW;../*.|
|00005080| 20 2a 20 44 65 66 69 6e | 65 64 20 62 79 20 22 6d | * Defin|ed by "m|
|00005090| 61 69 6e 2e 63 22 2e 0a | 20 2a 2f 0a 65 78 74 65 |ain.c"..| */.exte|
|000050a0| 72 6e 09 69 6e 74 09 63 | 74 72 6c 67 28 29 3b 09 |rn.int.c|trlg();.|
|000050b0| 09 2f 2a 20 41 62 6f 72 | 74 20 6f 75 74 20 6f 66 |./* Abor|t out of|
|000050c0| 20 74 68 69 6e 67 73 09 | 09 2a 2f 0a 65 78 74 65 | things.|.*/.exte|
|000050d0| 72 6e 09 69 6e 74 09 71 | 75 69 74 28 29 3b 09 09 |rn.int.q|uit();..|
|000050e0| 09 2f 2a 20 51 75 69 74 | 09 09 09 09 2a 2f 0a 0a |./* Quit|....*/..|
|000050f0| 2f 2a 0a 20 2a 20 44 65 | 66 69 6e 65 64 20 62 79 |/*. * De|fined by|
|00005100| 20 22 73 65 61 72 63 68 | 2e 63 22 2e 0a 20 2a 2f | "search|.c".. */|
|00005110| 0a 65 78 74 65 72 6e 09 | 69 6e 74 09 66 6f 72 77 |.extern.|int.forw|
|00005120| 73 65 61 72 63 68 28 29 | 3b 09 09 2f 2a 20 53 65 |search()|;../* Se|
|00005130| 61 72 63 68 20 66 6f 72 | 77 61 72 64 09 09 2a 2f |arch for|ward..*/|
|00005140| 0a 65 78 74 65 72 6e 09 | 69 6e 74 09 62 61 63 6b |.extern.|int.back|
|00005150| 73 65 61 72 63 68 28 29 | 3b 09 09 2f 2a 20 53 65 |search()|;../* Se|
|00005160| 61 72 63 68 20 62 61 63 | 6b 77 61 72 64 73 09 09 |arch bac|kwards..|
|00005170| 2a 2f 0a 65 78 74 65 72 | 6e 20 20 69 6e 74 09 73 |*/.exter|n  int.s|
|00005180| 65 61 72 63 68 61 67 61 | 69 6e 28 29 3b 09 09 2f |earchaga|in();../|
|00005190| 2a 20 52 65 70 65 61 74 | 20 6c 61 73 74 20 73 65 |* Repeat| last se|
|000051a0| 61 72 63 68 20 63 6f 6d | 6d 61 6e 64 09 2a 2f 0a |arch com|mand.*/.|
|000051b0| 0a 2f 2a 0a 20 2a 20 44 | 65 66 69 6e 65 64 20 62 |./*. * D|efined b|
|000051c0| 79 20 22 62 61 73 69 63 | 2e 63 22 2e 0a 20 2a 2f |y "basic|.c".. */|
|000051d0| 0a 65 78 74 65 72 6e 09 | 69 6e 74 09 67 6f 74 6f |.extern.|int.goto|
|000051e0| 62 6f 6c 28 29 3b 09 09 | 2f 2a 20 4d 6f 76 65 20 |bol();..|/* Move |
|000051f0| 74 6f 20 73 74 61 72 74 | 20 6f 66 20 6c 69 6e 65 |to start| of line|
|00005200| 09 2a 2f 0a 65 78 74 65 | 72 6e 09 69 6e 74 09 62 |.*/.exte|rn.int.b|
|00005210| 61 63 6b 63 68 61 72 28 | 29 3b 09 09 2f 2a 20 4d |ackchar(|);../* M|
|00005220| 6f 76 65 20 62 61 63 6b | 77 61 72 64 20 62 79 20 |ove back|ward by |
|00005230| 63 68 61 72 61 63 74 65 | 72 73 09 2a 2f 0a 65 78 |characte|rs.*/.ex|
|00005240| 74 65 72 6e 09 69 6e 74 | 09 67 6f 74 6f 65 6f 6c |tern.int|.gotoeol|
|00005250| 28 29 3b 09 09 2f 2a 20 | 4d 6f 76 65 20 74 6f 20 |();../* |Move to |
|00005260| 65 6e 64 20 6f 66 20 6c | 69 6e 65 09 09 2a 2f 0a |end of l|ine..*/.|
|00005270| 65 78 74 65 72 6e 09 69 | 6e 74 09 66 6f 72 77 63 |extern.i|nt.forwc|
|00005280| 68 61 72 28 29 3b 09 09 | 2f 2a 20 4d 6f 76 65 20 |har();..|/* Move |
|00005290| 66 6f 72 77 61 72 64 20 | 62 79 20 63 68 61 72 61 |forward |by chara|
|000052a0| 63 74 65 72 73 09 2a 2f | 0a 65 78 74 65 72 6e 09 |cters.*/|.extern.|
|000052b0| 69 6e 74 09 67 6f 74 6f | 62 6f 62 28 29 3b 09 09 |int.goto|bob();..|
|000052c0| 2f 2a 20 4d 6f 76 65 20 | 74 6f 20 73 74 61 72 74 |/* Move |to start|
|000052d0| 20 6f 66 20 62 75 66 66 | 65 72 09 2a 2f 0a 65 78 | of buff|er.*/.ex|
|000052e0| 74 65 72 6e 09 69 6e 74 | 09 67 6f 74 6f 65 6f 62 |tern.int|.gotoeob|
|000052f0| 28 29 3b 09 09 2f 2a 20 | 4d 6f 76 65 20 74 6f 20 |();../* |Move to |
|00005300| 65 6e 64 20 6f 66 20 62 | 75 66 66 65 72 09 2a 2f |end of b|uffer.*/|
|00005310| 0a 65 78 74 65 72 6e 09 | 69 6e 74 09 66 6f 72 77 |.extern.|int.forw|
|00005320| 6c 69 6e 65 28 29 3b 09 | 09 2f 2a 20 4d 6f 76 65 |line();.|./* Move|
|00005330| 20 66 6f 72 77 61 72 64 | 20 62 79 20 6c 69 6e 65 | forward| by line|
|00005340| 73 09 2a 2f 0a 65 78 74 | 65 72 6e 09 69 6e 74 09 |s.*/.ext|ern.int.|
|00005350| 62 61 63 6b 6c 69 6e 65 | 28 29 3b 09 09 2f 2a 20 |backline|();../* |
|00005360| 4d 6f 76 65 20 62 61 63 | 6b 77 61 72 64 20 62 79 |Move bac|kward by|
|00005370| 20 6c 69 6e 65 73 09 2a | 2f 0a 65 78 74 65 72 6e | lines.*|/.extern|
|00005380| 09 69 6e 74 09 73 65 74 | 6d 61 72 6b 28 29 3b 09 |.int.set|mark();.|
|00005390| 09 2f 2a 20 53 65 74 20 | 6d 61 72 6b 09 09 09 2a |./* Set |mark...*|
|000053a0| 2f 0a 2f 2a 0a 20 2a 20 | 44 65 66 69 6e 65 64 20 |/./*. * |Defined |
|000053b0| 62 79 20 22 62 75 66 66 | 65 72 2e 63 22 2e 0a 20 |by "buff|er.c".. |
|000053c0| 2a 2f 0a 65 78 74 65 72 | 6e 09 69 6e 74 09 73 61 |*/.exter|n.int.sa|
|000053d0| 76 65 62 75 66 66 65 72 | 73 28 29 3b 09 09 2f 2a |vebuffer|s();../*|
|000053e0| 20 53 61 76 65 20 75 6e | 6d 6f 64 69 66 69 65 64 | Save un|modified|
|000053f0| 20 62 75 66 66 65 72 73 | 09 2a 2f 0a 65 78 74 65 | buffers|.*/.exte|
|00005400| 72 6e 09 69 6e 74 09 6e | 6f 74 6d 6f 64 69 66 69 |rn.int.n|otmodifi|
|00005410| 65 64 28 29 3b 09 09 2f | 2a 20 52 65 73 65 74 20 |ed();../|* Reset |
|00005420| 6d 6f 64 69 66 69 63 61 | 74 69 6f 6e 20 66 6c 61 |modifica|tion fla|
|00005430| 67 09 2a 2f 0a 0a 23 69 | 66 64 65 66 09 44 49 52 |g.*/..#i|fdef.DIR|
|00005440| 4c 49 53 54 0a 2f 2a 0a | 20 2a 20 44 65 66 69 6e |LIST./*.| * Defin|
|00005450| 65 64 20 62 79 20 22 64 | 69 72 6c 69 73 74 2e 63 |ed by "d|irlist.c|
|00005460| 22 2e 0a 20 2a 2f 0a 65 | 78 74 65 72 6e 09 69 6e |".. */.e|xtern.in|
|00005470| 74 09 64 69 72 6c 69 73 | 74 28 29 3b 09 09 2f 2a |t.dirlis|t();../*|
|00005480| 20 44 69 72 65 63 74 6f | 72 79 20 6c 69 73 74 2e | Directo|ry list.|
|00005490| 09 09 2a 2f 0a 23 65 6e | 64 69 66 0a 0a 2f 2a 0a |..*/.#en|dif../*.|
|000054a0| 20 2a 20 44 65 66 69 6e | 65 64 20 62 79 20 22 64 | * Defin|ed by "d|
|000054b0| 69 73 70 6c 61 79 2e 63 | 22 0a 20 2a 2f 0a 65 78 |isplay.c|". */.ex|
|000054c0| 74 65 72 6e 09 69 6e 74 | 09 72 6f 74 61 74 6d 6f |tern.int|.rotatmo|
|000054d0| 64 65 28 29 3b 09 09 2f | 2a 20 72 6f 74 61 74 65 |de();../|* rotate|
|000054e0| 20 6d 6f 64 65 2d 6c 69 | 6e 65 20 68 65 6c 70 09 | mode-li|ne help.|
|000054f0| 2a 2f 0a 0a 2f 2a 0a 20 | 2a 20 44 65 66 69 6e 65 |*/../*. |* Define|
|00005500| 64 20 62 79 20 22 66 69 | 6c 65 2e 63 22 2e 0a 20 |d by "fi|le.c".. |
|00005510| 2a 2f 0a 65 78 74 65 72 | 6e 09 69 6e 74 09 66 69 |*/.exter|n.int.fi|
|00005520| 6c 65 76 69 73 69 74 28 | 29 3b 09 09 2f 2a 20 47 |levisit(|);../* G|
|00005530| 65 74 20 61 20 66 69 6c | 65 2c 20 72 65 61 64 20 |et a fil|e, read |
|00005540| 77 72 69 74 65 09 2a 2f | 0a 65 78 74 65 72 6e 09 |write.*/|.extern.|
|00005550| 69 6e 74 09 66 69 6c 65 | 77 72 69 74 65 28 29 3b |int.file|write();|
|00005560| 09 09 2f 2a 20 57 72 69 | 74 65 20 61 20 66 69 6c |../* Wri|te a fil|
|00005570| 65 09 09 09 2a 2f 0a 65 | 78 74 65 72 6e 09 69 6e |e...*/.e|xtern.in|
|00005580| 74 09 66 69 6c 65 73 61 | 76 65 28 29 3b 09 09 2f |t.filesa|ve();../|
|00005590| 2a 20 53 61 76 65 20 63 | 75 72 72 65 6e 74 20 66 |* Save c|urrent f|
|000055a0| 69 6c 65 09 09 2a 2f 0a | 65 78 74 65 72 6e 09 69 |ile..*/.|extern.i|
|000055b0| 6e 74 09 66 69 6c 65 69 | 6e 73 65 72 74 28 29 3b |nt.filei|nsert();|
|000055c0| 09 09 2f 2a 20 49 6e 73 | 65 72 74 20 66 69 6c 65 |../* Ins|ert file|
|000055d0| 20 69 6e 74 6f 20 62 75 | 66 66 65 72 09 2a 2f 0a | into bu|ffer.*/.|
|000055e0| 23 69 66 64 65 66 09 42 | 41 43 4b 55 50 0a 65 78 |#ifdef.B|ACKUP.ex|
|000055f0| 74 65 72 6e 09 69 6e 74 | 09 6d 61 6b 65 62 6b 66 |tern.int|.makebkf|
|00005600| 69 6c 65 28 29 3b 09 09 | 2f 2a 20 43 6f 6e 74 72 |ile();..|/* Contr|
|00005610| 6f 6c 20 62 61 63 6b 75 | 70 73 20 6f 6e 20 73 61 |ol backu|ps on sa|
|00005620| 76 65 73 09 2a 2f 0a 23 | 65 6e 64 69 66 0a 0a 2f |ves.*/.#|endif../|
|00005630| 2a 0a 20 2a 20 44 65 66 | 69 6e 65 64 20 62 79 20 |*. * Def|ined by |
|00005640| 22 72 61 6e 64 6f 6d 2e | 63 22 2e 0a 20 2a 2f 0a |"random.|c".. */.|
|00005650| 65 78 74 65 72 6e 09 69 | 6e 74 09 73 65 6c 66 69 |extern.i|nt.selfi|
|00005660| 6e 73 65 72 74 28 29 3b | 09 09 2f 2a 20 49 6e 73 |nsert();|../* Ins|
|00005670| 65 72 74 20 63 68 61 72 | 61 63 74 65 72 09 09 2a |ert char|acter..*|
|00005680| 2f 0a 65 78 74 65 72 6e | 09 69 6e 74 09 73 68 6f |/.extern|.int.sho|
|00005690| 77 63 70 6f 73 28 29 3b | 09 09 2f 2a 20 53 68 6f |wcpos();|../* Sho|
|000056a0| 77 20 74 68 65 20 63 75 | 72 73 6f 72 20 70 6f 73 |w the cu|rsor pos|
|000056b0| 69 74 69 6f 6e 09 2a 2f | 0a 65 78 74 65 72 6e 09 |ition.*/|.extern.|
|000056c0| 69 6e 74 09 6f 70 65 6e | 6c 69 6e 65 28 29 3b 09 |int.open|line();.|
|000056d0| 09 2f 2a 20 4f 70 65 6e | 20 75 70 20 61 20 62 6c |./* Open| up a bl|
|000056e0| 61 6e 6b 20 6c 69 6e 65 | 09 09 2a 2f 0a 65 78 74 |ank line|..*/.ext|
|000056f0| 65 72 6e 09 69 6e 74 09 | 6e 65 77 6c 69 6e 65 28 |ern.int.|newline(|
|00005700| 29 3b 09 09 2f 2a 20 49 | 6e 73 65 72 74 20 43 52 |);../* I|nsert CR|
|00005710| 2d 4c 46 09 09 09 2a 2f | 0a 65 78 74 65 72 6e 09 |-LF...*/|.extern.|
|00005720| 69 6e 74 09 66 6f 72 77 | 64 65 6c 28 29 3b 09 09 |int.forw|del();..|
|00005730| 2f 2a 20 46 6f 72 77 61 | 72 64 20 64 65 6c 65 74 |/* Forwa|rd delet|
|00005740| 65 09 09 2a 2f 0a 65 78 | 74 65 72 6e 09 69 6e 74 |e..*/.ex|tern.int|
|00005750| 09 62 61 63 6b 64 65 6c | 28 29 3b 09 09 2f 2a 20 |.backdel|();../* |
|00005760| 42 61 63 6b 77 61 72 64 | 20 64 65 6c 65 74 65 20 |Backward| delete |
|00005770| 69 6e 09 09 2a 2f 0a 65 | 78 74 65 72 6e 09 69 6e |in..*/.e|xtern.in|
|00005780| 74 09 6b 69 6c 6c 6c 69 | 6e 65 28 29 3b 09 09 2f |t.killli|ne();../|
|00005790| 2a 20 4b 69 6c 6c 20 66 | 6f 72 77 61 72 64 09 09 |* Kill f|orward..|
|000057a0| 09 2a 2f 0a 65 78 74 65 | 72 6e 09 69 6e 74 09 62 |.*/.exte|rn.int.b|
|000057b0| 73 6d 61 70 6d 6f 64 65 | 28 29 3b 09 09 2f 2a 20 |smapmode|();../* |
|000057c0| 73 65 74 20 62 73 6d 61 | 70 20 6d 6f 64 65 09 09 |set bsma|p mode..|
|000057d0| 2a 2f 0a 65 78 74 65 72 | 6e 09 69 6e 74 09 66 6c |*/.exter|n.int.fl|
|000057e0| 6f 77 6d 6f 64 65 28 29 | 3b 09 09 2f 2a 20 73 65 |owmode()|;../* se|
|000057f0| 74 20 66 6c 6f 77 20 6d | 6f 64 65 09 09 2a 2f 0a |t flow m|ode..*/.|
|00005800| 65 78 74 65 72 6e 09 69 | 6e 74 09 66 69 6c 6c 6d |extern.i|nt.fillm|
|00005810| 6f 64 65 28 29 3b 09 09 | 2f 2a 20 73 65 74 20 77 |ode();..|/* set w|
|00005820| 6f 72 64 2d 77 72 61 70 | 20 6d 6f 64 65 09 09 2a |ord-wrap| mode..*|
|00005830| 2f 0a 65 78 74 65 72 6e | 09 69 6e 74 09 69 6e 73 |/.extern|.int.ins|
|00005840| 6f 76 72 6d 6f 64 65 28 | 29 3b 09 09 2f 2a 20 74 |ovrmode(|);../* t|
|00005850| 6f 67 67 6c 65 20 69 6e | 73 65 72 74 20 6f 76 65 |oggle in|sert ove|
|00005860| 72 73 74 72 69 6b 65 20 | 6d 6f 64 65 20 2a 2f 0a |rstrike |mode */.|
|00005870| 65 78 74 65 72 6e 09 69 | 6e 74 09 79 61 6e 6b 28 |extern.i|nt.yank(|
|00005880| 29 3b 09 09 09 2f 2a 20 | 59 61 6e 6b 20 62 61 63 |);.../* |Yank bac|
|00005890| 6b 20 66 72 6f 6d 20 6b | 69 6c 6c 62 75 66 66 65 |k from k|illbuffe|
|000058a0| 72 2e 09 2a 2f 0a 0a 2f | 2a 0a 20 2a 20 44 65 66 |r..*/../|*. * Def|
|000058b0| 69 6e 65 64 20 62 79 20 | 22 72 65 67 69 6f 6e 2e |ined by |"region.|
|000058c0| 63 22 2e 0a 20 2a 2f 0a | 65 78 74 65 72 6e 09 69 |c".. */.|extern.i|
|000058d0| 6e 74 09 6b 69 6c 6c 72 | 65 67 69 6f 6e 28 29 3b |nt.killr|egion();|
|000058e0| 09 09 2f 2a 20 4b 69 6c | 6c 20 72 65 67 69 6f 6e |../* Kil|l region|
|000058f0| 2e 09 09 09 2a 2f 0a 23 | 69 66 64 65 66 09 50 52 |....*/.#|ifdef.PR|
|00005900| 45 46 49 58 52 45 47 49 | 4f 4e 0a 65 78 74 65 72 |EFIXREGI|ON.exter|
|00005910| 6e 09 69 6e 74 09 70 72 | 65 66 69 78 72 65 67 69 |n.int.pr|efixregi|
|00005920| 6f 6e 28 29 3b 09 09 2f | 2a 20 50 72 65 66 69 78 |on();../|* Prefix|
|00005930| 20 61 6c 6c 20 6c 69 6e | 65 73 20 69 6e 20 72 65 | all lin|es in re|
|00005940| 67 69 6f 6e 09 2a 2f 0a | 65 78 74 65 72 6e 09 69 |gion.*/.|extern.i|
|00005950| 6e 74 09 73 65 74 70 72 | 65 66 69 78 28 29 3b 09 |nt.setpr|efix();.|
|00005960| 09 2f 2a 20 53 65 74 20 | 6c 69 6e 65 20 70 72 65 |./* Set |line pre|
|00005970| 66 69 78 20 73 74 72 69 | 6e 67 09 2a 2f 0a 23 65 |fix stri|ng.*/.#e|
|00005980| 6e 64 69 66 0a 0a 2f 2a | 0a 20 2a 20 44 65 66 69 |ndif../*|. * Defi|
|00005990| 6e 65 64 20 62 79 20 22 | 77 69 6e 64 6f 77 2e 63 |ned by "|window.c|
|000059a0| 22 2e 0a 20 2a 2f 0a 65 | 78 74 65 72 6e 09 69 6e |".. */.e|xtern.in|
|000059b0| 74 09 72 65 70 6f 73 69 | 74 69 6f 6e 28 29 3b 09 |t.reposi|tion();.|
|000059c0| 09 2f 2a 20 52 65 70 6f | 73 69 74 69 6f 6e 20 77 |./* Repo|sition w|
|000059d0| 69 6e 64 6f 77 09 09 2a | 2f 0a 65 78 74 65 72 6e |indow..*|/.extern|
|000059e0| 09 69 6e 74 09 72 65 66 | 72 65 73 68 28 29 3b 09 |.int.ref|resh();.|
|000059f0| 09 2f 2a 20 52 65 66 72 | 65 73 68 20 74 68 65 20 |./* Refr|esh the |
|00005a00| 73 63 72 65 65 6e 09 09 | 2a 2f 0a 0a 2f 2a 0a 20 |screen..|*/../*. |
|00005a10| 2a 20 44 65 66 69 6e 65 | 64 20 62 79 20 22 77 6f |* Define|d by "wo|
|00005a20| 72 64 2e 63 22 2e 0a 20 | 2a 2f 0a 65 78 74 65 72 |rd.c".. |*/.exter|
|00005a30| 6e 09 69 6e 74 09 64 65 | 6c 66 77 6f 72 64 28 29 |n.int.de|lfword()|
|00005a40| 3b 09 09 2f 2a 20 44 65 | 6c 65 74 65 20 66 6f 72 |;../* De|lete for|
|00005a50| 77 61 72 64 20 77 6f 72 | 64 2e 09 09 2a 2f 0a 65 |ward wor|d...*/.e|
|00005a60| 78 74 65 72 6e 09 69 6e | 74 09 64 65 6c 62 77 6f |xtern.in|t.delbwo|
|00005a70| 72 64 28 29 3b 09 09 2f | 2a 20 44 65 6c 65 74 65 |rd();../|* Delete|
|00005a80| 20 62 61 63 6b 77 61 72 | 64 20 77 6f 72 64 2e 09 | backwar|d word..|
|00005a90| 2a 2f 0a 0a 2f 2a 0a 20 | 2a 20 44 65 66 69 6e 65 |*/../*. |* Define|
|00005aa0| 64 20 62 79 20 22 65 78 | 74 65 6e 64 2e 63 22 2e |d by "ex|tend.c".|
|00005ab0| 0a 20 2a 2f 0a 65 78 74 | 65 72 6e 09 69 6e 74 09 |. */.ext|ern.int.|
|00005ac0| 65 78 74 65 6e 64 28 29 | 3b 09 09 2f 2a 20 45 78 |extend()|;../* Ex|
|00005ad0| 74 65 6e 64 65 64 20 63 | 6f 6d 6d 61 6e 64 73 2e |tended c|ommands.|
|00005ae0| 09 09 2a 2f 0a 65 78 74 | 65 72 6e 09 69 6e 74 09 |..*/.ext|ern.int.|
|00005af0| 73 74 61 72 74 6f 76 65 | 72 28 29 3b 09 09 2f 2a |startove|r();../*|
|00005b00| 20 72 65 72 65 61 64 20 | 66 69 6c 65 2c 20 72 65 | reread |file, re|
|00005b10| 73 74 61 72 74 20 65 64 | 69 74 09 2a 2f 0a 65 78 |start ed|it.*/.ex|
|00005b20| 74 65 72 6e 09 69 6e 74 | 09 72 65 61 6c 6c 79 71 |tern.int|.reallyq|
|00005b30| 75 69 74 28 29 3b 09 09 | 2f 2a 20 6b 69 6c 6c 20 |uit();..|/* kill |
|00005b40| 65 6d 61 63 73 2c 20 64 | 6f 6e 27 74 20 73 61 76 |emacs, d|on't sav|
|00005b50| 65 20 66 69 6c 65 73 09 | 2a 2f 0a 65 78 74 65 72 |e files.|*/.exter|
|00005b60| 6e 09 69 6e 74 09 64 65 | 6c 65 74 65 6c 69 6e 65 |n.int.de|leteline|
|00005b70| 28 29 3b 09 09 2f 2a 20 | 64 65 6c 65 74 65 20 6c |();../* |delete l|
|00005b80| 69 6e 65 20 66 72 6f 6d | 20 61 6e 79 77 68 65 72 |ine from| anywher|
|00005b90| 65 09 2a 2f 0a 23 69 66 | 64 65 66 09 53 54 41 52 |e.*/.#if|def.STAR|
|00005ba0| 54 55 50 0a 65 78 74 65 | 72 6e 09 69 6e 74 09 65 |TUP.exte|rn.int.e|
|00005bb0| 76 61 6c 65 78 70 72 28 | 29 3b 09 09 2f 2a 20 45 |valexpr(|);../* E|
|00005bc0| 78 74 65 6e 64 65 64 20 | 63 6f 6d 6d 61 6e 64 73 |xtended |commands|
|00005bd0| 20 28 61 67 61 69 6e 29 | 09 2a 2f 0a 65 78 74 65 | (again)|.*/.exte|
|00005be0| 72 6e 09 69 6e 74 09 65 | 76 61 6c 62 75 66 66 65 |rn.int.e|valbuffe|
|00005bf0| 72 28 29 3b 09 09 2f 2a | 20 45 76 61 6c 75 61 74 |r();../*| Evaluat|
|00005c00| 65 20 63 75 72 72 65 6e | 74 20 62 75 66 66 65 72 |e curren|t buffer|
|00005c10| 09 2a 2f 0a 65 78 74 65 | 72 6e 09 69 6e 74 09 65 |.*/.exte|rn.int.e|
|00005c20| 76 61 6c 66 69 6c 65 28 | 29 3b 09 09 2f 2a 20 45 |valfile(|);../* E|
|00005c30| 76 61 6c 75 61 74 65 20 | 61 20 66 69 6c 65 09 09 |valuate |a file..|
|00005c40| 2a 2f 0a 23 65 6e 64 69 | 66 0a 0a 2f 2a 0a 20 2a |*/.#endi|f../*. *|
|00005c50| 20 64 65 66 69 6e 65 64 | 20 62 79 20 22 70 61 72 | defined| by "par|
|00005c60| 61 67 72 61 70 68 2e 63 | 22 20 2d 20 74 68 65 20 |agraph.c|" - the |
|00005c70| 70 61 72 61 67 72 61 70 | 68 20 6a 75 73 74 69 66 |paragrap|h justif|
|00005c80| 69 63 61 74 69 6f 6e 20 | 63 6f 64 65 2e 0a 20 2a |ication |code.. *|
|00005c90| 2f 0a 65 78 74 65 72 6e | 09 69 6e 74 09 67 6f 74 |/.extern|.int.got|
|00005ca0| 6f 62 6f 70 28 29 3b 09 | 09 2f 2a 20 4d 6f 76 65 |obop();.|./* Move|
|00005cb0| 20 74 6f 20 73 74 61 72 | 74 20 6f 66 20 70 61 72 | to star|t of par|
|00005cc0| 61 67 72 61 70 68 2e 09 | 2a 2f 0a 65 78 74 65 72 |agraph..|*/.exter|
|00005cd0| 6e 09 69 6e 74 09 67 6f | 74 6f 65 6f 70 28 29 3b |n.int.go|toeop();|
|00005ce0| 09 09 2f 2a 20 4d 6f 76 | 65 20 74 6f 20 65 6e 64 |../* Mov|e to end|
|00005cf0| 20 6f 66 20 70 61 72 61 | 67 72 61 70 68 2e 09 2a | of para|graph..*|
|00005d00| 2f 0a 65 78 74 65 72 6e | 09 69 6e 74 09 66 69 6c |/.extern|.int.fil|
|00005d10| 6c 70 61 72 61 28 29 3b | 09 09 2f 2a 20 4a 75 73 |lpara();|../* Jus|
|00005d20| 74 69 66 79 20 61 20 70 | 61 72 61 67 72 61 70 68 |tify a p|aragraph|
|00005d30| 2e 09 09 2a 2f 0a 65 78 | 74 65 72 6e 09 69 6e 74 |...*/.ex|tern.int|
|00005d40| 09 6b 69 6c 6c 70 61 72 | 61 28 29 3b 09 09 2f 2a |.killpar|a();../*|
|00005d50| 20 44 65 6c 65 74 65 20 | 61 20 70 61 72 61 67 72 | Delete |a paragr|
|00005d60| 61 70 68 2e 09 09 2a 2f | 0a 65 78 74 65 72 6e 09 |aph...*/|.extern.|
|00005d70| 69 6e 74 09 73 65 74 66 | 69 6c 6c 63 6f 6c 28 29 |int.setf|illcol()|
|00005d80| 3b 09 09 2f 2a 20 53 65 | 74 20 66 69 6c 6c 20 63 |;../* Se|t fill c|
|00005d90| 6f 6c 75 6d 6e 20 66 6f | 72 20 6a 75 73 74 69 66 |olumn fo|r justif|
|00005da0| 79 2e 09 2a 2f 0a 65 78 | 74 65 72 6e 09 69 6e 74 |y..*/.ex|tern.int|
|00005db0| 09 66 69 6c 6c 77 6f 72 | 64 28 29 3b 09 09 2f 2a |.fillwor|d();../*|
|00005dc0| 20 49 6e 73 65 72 74 20 | 63 68 61 72 20 77 69 74 | Insert |char wit|
|00005dd0| 68 20 77 6f 72 64 20 77 | 72 61 70 2e 09 2a 2f 0a |h word w|rap..*/.|
|00005de0| 0a 23 69 66 64 65 66 20 | 4d 49 53 4c 4f 47 0a 2f |.#ifdef |MISLOG./|
|00005df0| 2a 0a 20 2a 20 64 65 66 | 69 6e 65 64 20 62 79 20 |*. * def|ined by |
|00005e00| 22 6e 65 77 6c 6f 67 2e | 63 22 20 2d 20 74 68 65 |"newlog.|c" - the|
|00005e10| 20 6d 69 73 6c 6f 67 20 | 63 6f 64 65 2e 0a 20 2a | mislog |code.. *|
|00005e20| 2f 0a 65 78 74 65 72 6e | 09 69 6e 74 09 6e 65 77 |/.extern|.int.new|
|00005e30| 6c 6f 67 28 29 3b 09 09 | 2f 2a 20 6e 65 77 6c 6f |log();..|/* newlo|
|00005e40| 67 20 66 75 6e 63 74 69 | 6f 6e 20 66 6f 72 20 4d |g functi|on for M|
|00005e50| 49 53 4c 4f 47 09 2a 2f | 0a 23 65 6e 64 69 66 0a |ISLOG.*/|.#endif.|
|00005e60| 0a 74 79 70 65 64 65 66 | 09 73 74 72 75 63 74 09 |.typedef|.struct.|
|00005e70| 7b 0a 09 4b 45 59 09 6b | 5f 6b 65 79 3b 09 09 09 |{..KEY.k|_key;...|
|00005e80| 2f 2a 20 4b 65 79 20 74 | 6f 20 62 69 6e 64 2e 09 |/* Key t|o bind..|
|00005e90| 09 09 2a 2f 0a 09 69 6e | 74 09 28 2a 6b 5f 66 75 |..*/..in|t.(*k_fu|
|00005ea0| 6e 63 70 29 28 29 3b 09 | 09 2f 2a 20 46 75 6e 63 |ncp)();.|./* Func|
|00005eb0| 74 69 6f 6e 2e 09 09 09 | 2a 2f 0a 09 63 68 61 72 |tion....|*/..char|
|00005ec0| 09 2a 6b 5f 6e 61 6d 65 | 3b 09 09 2f 2a 20 46 75 |.*k_name|;../* Fu|
|00005ed0| 6e 63 74 69 6f 6e 20 6e | 61 6d 65 20 73 74 72 69 |nction n|ame stri|
|00005ee0| 6e 67 2e 09 2a 2f 0a 7d | 09 4b 45 59 54 41 42 3b |ng..*/.}|.KEYTAB;|
|00005ef0| 0a 0a 2f 2a 0a 20 2a 20 | 44 65 66 61 75 6c 74 20 |../*. * |Default |
|00005f00| 6b 65 79 20 62 69 6e 64 | 69 6e 67 20 74 61 62 6c |key bind|ing tabl|
|00005f10| 65 2e 20 54 68 69 73 20 | 63 6f 6e 74 61 69 6e 73 |e. This |contains|
|00005f20| 0a 20 2a 20 74 68 65 20 | 66 75 6e 63 74 69 6f 6e |. * the |function|
|00005f30| 20 6e 61 6d 65 73 2c 20 | 74 68 65 20 73 79 6d 62 | names, |the symb|
|00005f40| 6f 6c 20 74 61 62 6c 65 | 20 6e 61 6d 65 2c 20 61 |ol table| name, a|
|00005f50| 6e 64 20 28 70 6f 73 73 | 69 62 6c 79 29 0a 20 2a |nd (poss|ibly). *|
|00005f60| 20 61 20 6b 65 79 20 62 | 69 6e 64 69 6e 67 20 66 | a key b|inding f|
|00005f70| 6f 72 20 74 68 65 20 62 | 75 69 6c 74 69 6e 20 66 |or the b|uiltin f|
|00005f80| 75 6e 63 74 69 6f 6e 73 | 2e 20 54 68 65 72 65 20 |unctions|. There |
|00005f90| 61 72 65 20 6e 6f 0a 20 | 2a 20 62 69 6e 64 69 6e |are no. |* bindin|
|00005fa0| 67 73 20 66 6f 72 20 43 | 2d 55 20 6f 72 20 43 2d |gs for C|-U or C-|
|00005fb0| 58 2e 20 54 68 65 73 65 | 20 61 72 65 20 64 6f 6e |X. These| are don|
|00005fc0| 65 20 77 69 74 68 20 73 | 70 65 63 69 61 6c 0a 20 |e with s|pecial. |
|00005fd0| 2a 20 63 6f 64 65 2c 20 | 62 75 74 20 73 68 6f 75 |* code, |but shou|
|00005fe0| 6c 64 20 62 65 20 64 6f | 6e 65 20 6e 6f 72 6d 61 |ld be do|ne norma|
|00005ff0| 6c 6c 79 2e 0a 20 2a 2f | 0a 4b 45 59 54 41 42 09 |lly.. */|.KEYTAB.|
|00006000| 6b 65 79 5b 5d 20 3d 20 | 7b 0a 09 4b 43 54 52 4c |key[] = |{..KCTRL|
|00006010| 7c 27 43 27 2c 09 63 74 | 72 6c 67 2c 09 09 22 6b ||'C',.ct|rlg,.."k|
|00006020| 65 79 62 6f 61 72 64 2d | 71 75 69 74 22 2c 0a 09 |eyboard-|quit",..|
|00006030| 4b 43 54 52 4c 7c 27 44 | 27 2c 09 66 6f 72 77 64 |KCTRL|'D|',.forwd|
|00006040| 65 6c 2c 09 22 64 65 6c | 65 74 65 2d 63 68 61 72 |el,."del|ete-char|
|00006050| 22 2c 0a 09 4b 43 54 52 | 4c 7c 27 45 27 2c 09 67 |",..KCTR|L|'E',.g|
|00006060| 6f 74 6f 65 6f 6c 2c 09 | 22 65 6e 64 2d 6f 66 2d |otoeol,.|"end-of-|
|00006070| 6c 69 6e 65 22 2c 0a 09 | 4b 43 54 52 4c 7c 27 49 |line",..|KCTRL|'I|
|00006080| 27 2c 09 73 65 6c 66 69 | 6e 73 65 72 74 2c 09 22 |',.selfi|nsert,."|
|00006090| 73 65 6c 66 2d 69 6e 73 | 65 72 74 2d 63 6f 6d 6d |self-ins|ert-comm|
|000060a0| 61 6e 64 22 2c 0a 09 4b | 43 54 52 4c 7c 27 47 27 |and",..K|CTRL|'G'|
|000060b0| 2c 09 63 74 72 6c 67 2c | 09 09 22 6b 65 79 62 6f |,.ctrlg,|.."keybo|
|000060c0| 61 72 64 2d 71 75 69 74 | 22 2c 0a 09 4b 43 54 52 |ard-quit|",..KCTR|
|000060d0| 4c 7c 27 4d 27 2c 09 6e | 65 77 6c 69 6e 65 2c 09 |L|'M',.n|ewline,.|
|000060e0| 22 69 6e 73 65 72 74 2d | 6e 65 77 6c 69 6e 65 22 |"insert-|newline"|
|000060f0| 2c 0a 09 4b 43 54 52 4c | 7c 27 52 27 2c 09 72 65 |,..KCTRL||'R',.re|
|00006100| 66 72 65 73 68 2c 09 22 | 72 65 64 72 61 77 2d 64 |fresh,."|redraw-d|
|00006110| 69 73 70 6c 61 79 22 2c | 0a 09 4b 43 54 52 4c 7c |isplay",|..KCTRL||
|00006120| 27 53 27 2c 09 66 6f 72 | 77 73 65 61 72 63 68 2c |'S',.for|wsearch,|
|00006130| 09 22 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |."search|-forward|
|00006140| 22 2c 0a 09 4b 43 54 4c | 58 7c 4b 43 54 52 4c 7c |",..KCTL|X|KCTRL||
|00006150| 27 51 27 2c 71 75 69 74 | 2c 09 09 22 73 61 76 65 |'Q',quit|,.."save|
|00006160| 2d 62 75 66 66 65 72 73 | 2d 6b 69 6c 6c 2d 65 6d |-buffers|-kill-em|
|00006170| 61 63 73 22 2c 0a 09 4b | 43 54 4c 58 7c 4b 43 54 |acs",..K|CTLX|KCT|
|00006180| 52 4c 7c 27 46 27 2c 66 | 69 6c 65 76 69 73 69 74 |RL|'F',f|ilevisit|
|00006190| 2c 09 22 66 69 6e 64 2d | 66 69 6c 65 22 2c 0a 09 |,."find-|file",..|
|000061a0| 4b 4d 45 54 41 7c 27 58 | 27 2c 09 65 78 74 65 6e |KMETA|'X|',.exten|
|000061b0| 64 2c 09 09 22 65 78 65 | 63 75 74 65 2d 65 78 74 |d,.."exe|cute-ext|
|000061c0| 65 6e 64 65 64 2d 63 6f | 6d 6d 61 6e 64 22 2c 0a |ended-co|mmand",.|
|000061d0| 09 4b 43 54 52 4c 7c 27 | 42 27 2c 09 62 61 63 6b |.KCTRL|'|B',.back|
|000061e0| 63 68 61 72 2c 09 22 62 | 61 63 6b 77 61 72 64 2d |char,."b|ackward-|
|000061f0| 63 68 61 72 22 2c 0a 09 | 4b 43 54 52 4c 7c 27 46 |char",..|KCTRL|'F|
|00006200| 27 2c 09 66 6f 72 77 63 | 68 61 72 2c 09 22 66 6f |',.forwc|har,."fo|
|00006210| 72 77 61 72 64 2d 63 68 | 61 72 22 2c 0a 09 4b 43 |rward-ch|ar",..KC|
|00006220| 54 52 4c 7c 27 4e 27 2c | 09 66 6f 72 77 6c 69 6e |TRL|'N',|.forwlin|
|00006230| 65 2c 09 22 6e 65 78 74 | 2d 6c 69 6e 65 22 2c 0a |e,."next|-line",.|
|00006240| 09 4b 43 54 52 4c 7c 27 | 50 27 2c 09 62 61 63 6b |.KCTRL|'|P',.back|
|00006250| 6c 69 6e 65 2c 09 22 70 | 72 65 76 69 6f 75 73 2d |line,."p|revious-|
|00006260| 6c 69 6e 65 22 2c 0a 09 | 4b 43 54 4c 58 7c 27 3d |line",..|KCTLX|'=|
|00006270| 27 2c 09 73 68 6f 77 63 | 70 6f 73 2c 09 22 77 68 |',.showc|pos,."wh|
|00006280| 61 74 2d 63 75 72 73 6f | 72 2d 70 6f 73 69 74 69 |at-curso|r-positi|
|00006290| 6f 6e 22 2c 0a 09 4b 43 | 54 4c 58 7c 27 49 27 2c |on",..KC|TLX|'I',|
|000062a0| 09 66 69 6c 65 69 6e 73 | 65 72 74 2c 09 22 69 6e |.fileins|ert,."in|
|000062b0| 73 65 72 74 2d 66 69 6c | 65 22 2c 0a 09 4b 4d 45 |sert-fil|e",..KME|
|000062c0| 54 41 7c 27 4d 27 2c 09 | 73 65 74 6d 61 72 6b 2c |TA|'M',.|setmark,|
|000062d0| 09 22 73 65 74 2d 6d 61 | 72 6b 2d 63 6f 6d 6d 61 |."set-ma|rk-comma|
|000062e0| 6e 64 22 2c 0a 09 4b 4d | 45 54 41 7c 27 43 27 2c |nd",..KM|ETA|'C',|
|000062f0| 09 6b 69 6c 6c 72 65 67 | 69 6f 6e 2c 09 22 6b 69 |.killreg|ion,."ki|
|00006300| 6c 6c 2d 72 65 67 69 6f | 6e 22 2c 0a 09 4b 4d 45 |ll-regio|n",..KME|
|00006310| 54 41 7c 27 50 27 2c 09 | 79 61 6e 6b 2c 09 09 22 |TA|'P',.|yank,.."|
|00006320| 79 61 6e 6b 22 2c 0a 09 | 27 20 27 2c 09 09 66 69 |yank",..|' ',..fi|
|00006330| 6c 6c 77 6f 72 64 2c 09 | 22 69 6e 73 65 72 74 2d |llword,.|"insert-|
|00006340| 77 69 74 68 2d 77 72 61 | 70 22 2c 0a 09 2d 31 2c |with-wra|p",..-1,|
|00006350| 09 09 62 61 63 6b 73 65 | 61 72 63 68 2c 09 22 73 |..backse|arch,."s|
|00006360| 65 61 72 63 68 2d 62 61 | 63 6b 77 61 72 64 22 2c |earch-ba|ckward",|
|00006370| 0a 09 2d 31 2c 09 09 67 | 6f 74 6f 62 6f 6c 2c 09 |..-1,..g|otobol,.|
|00006380| 22 62 65 67 69 6e 6e 69 | 6e 67 2d 6f 66 2d 6c 69 |"beginni|ng-of-li|
|00006390| 6e 65 22 2c 0a 09 2d 31 | 2c 09 09 72 65 70 6f 73 |ne",..-1|,..repos|
|000063a0| 69 74 69 6f 6e 2c 09 22 | 72 65 63 65 6e 74 65 72 |ition,."|recenter|
|000063b0| 22 2c 0a 09 2d 31 2c 09 | 09 6b 69 6c 6c 6c 69 6e |",..-1,.|.killlin|
|000063c0| 65 2c 09 22 6b 69 6c 6c | 2d 6c 69 6e 65 22 2c 0a |e,."kill|-line",.|
|000063d0| 09 2d 31 2c 09 09 6f 70 | 65 6e 6c 69 6e 65 2c 09 |.-1,..op|enline,.|
|000063e0| 22 6f 70 65 6e 2d 6c 69 | 6e 65 22 2c 0a 23 69 66 |"open-li|ne",.#if|
|000063f0| 64 65 66 09 44 49 52 4c | 49 53 54 0a 09 2d 31 2c |def.DIRL|IST..-1,|
+--------+-------------------------+-------------------------+--------+--------+