/ The Datafile PD-CD 3 / PDCD_3.iso / utilities / utilsd / edit

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | 40 02 00 00 54 03 00 00 |Archive.|@...T...|
|00000010| 28 00 00 00 64 00 00 00 | 00 00 00 00 00 00 00 00 |(...d...|........|
|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| 82 21 6c 45 64 69 74 00 | 00 00 00 00 ff ff ff ff |.!lEdit.|........|
|00000070| 46 ff ff ff 79 84 f5 51 | 30 00 00 00 ff ff ff ff |F...y..Q|0.......|
|00000080| 1c 02 00 80 83 21 42 6f | 6f 74 00 eb c0 11 9f e5 |.....!Bo|ot......|
|00000090| 22 01 00 00 45 eb ff ff | 71 32 cd d9 03 00 65 14 |"...E...|q2....e.|
|000000a0| 10 01 00 00 24 00 00 00 | 83 21 48 65 6c 70 00 eb |....$...|.!Help..|
|000000b0| c0 11 9f e5 7d 79 00 00 | 46 ff ff ff 0d 6e 0b 05 |....}y..|F....n..|
|000000c0| 03 00 00 00 df 72 00 00 | 58 01 00 00 82 21 52 75 |.....r..|X....!Ru|
|000000d0| 6e 00 ff eb c0 11 9f e5 | 15 02 00 00 45 eb ff ff |n.......|....E...|
|000000e0| 0b 74 d1 d9 03 00 86 6f | 15 02 00 00 5b 74 00 00 |.t.....o|....[t..|
|000000f0| 83 21 53 70 72 69 74 65 | 73 00 9f e5 b8 06 00 00 |.!Sprite|s.......|
|00000100| 45 f9 ff ff bc b3 da bb | 03 00 f0 bf 0b 04 00 00 |E.......|........|
|00000110| 94 76 00 00 82 6c 00 e2 | b9 a9 ff eb c0 11 9f e5 |.v...l..|........|
|00000120| ff ff ff ff 46 ff ff ff | ba 85 f5 51 30 00 00 00 |....F...|...Q0...|
|00000130| ff ff ff ff b0 01 00 80 | 83 6c 65 64 69 74 00 00 |........|.ledit..|
|00000140| 00 00 00 00 43 0b 00 00 | 46 ff ff ff 84 8c 0b 05 |....C...|F.......|
|00000150| 03 00 e9 b5 90 0a 00 00 | c3 7a 00 00 83 6c 69 73 |........|.z...lis|
|00000160| 70 6d 6f 64 65 00 00 00 | 94 4e 00 00 45 ff ff ff |pmode...|.N..E...|
|00000170| 32 08 9c d7 03 00 00 00 | 9e 46 00 00 77 85 00 00 |2.......|.F..w...|
|00000180| 83 73 75 70 70 6f 72 74 | 00 00 00 00 97 04 00 00 |.support|........|
|00000190| 45 ff ff ff 38 3b a2 d6 | 03 00 d7 3b 3a 04 00 00 |E...8;..|...;:...|
|000001a0| 39 cc 00 00 83 74 65 78 | 74 00 00 00 00 00 00 00 |9....tex|t.......|
|000001b0| 64 3c 00 00 45 ff ff ff | 2f 0f a5 d6 03 00 98 2d |d<..E...|/......-|
|000001c0| 81 33 00 00 97 d0 00 00 | 82 77 74 6b 5f 69 6e 69 |.3......|.wtk_ini|
|000001d0| 74 00 00 00 2c 00 00 00 | 45 ff ff ff eb 6e 4c cb |t...,...|E....nL.|
|000001e0| 03 00 55 5b 2c 00 00 00 | 3c 04 01 00 00 00 00 00 |..U[,...|<.......|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 83 54 65 6d 70 6c 61 74 | 65 73 00 e5 56 16 00 00 |.Templat|es..V...|
|00000220| 45 ec ff ff 38 96 04 d3 | 13 00 10 ce b2 14 00 00 |E...8...|........|
|00000230| 8c 04 01 00 83 77 74 6b | 00 a9 ff eb c0 11 9f e5 |.....wtk|........|
|00000240| 54 c0 02 00 45 f8 ff ff | 64 88 42 d9 03 00 00 00 |T...E...|d.B.....|
|00000250| 3e b3 02 00 62 19 01 00 | 00 0f 8f e2 b9 a9 ff eb |>...b...|........|
|00000260| c0 11 9f e5 c0 01 9f e5 | b6 a9 ff eb bc 11 9f e5 |........|........|
|00000270| bc 01 9f e5 b3 a9 ff eb | e4 00 9e e1 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|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 46 69 6c 65 | 44 61 74 61 83 21 42 6f |....File|Data.!Bo|
|00000360| 6f 74 00 eb c0 11 9f e5 | 22 01 00 00 45 eb ff ff |ot......|"...E...|
|00000370| 71 32 cd d9 03 00 65 14 | 7c 20 42 6f 6f 74 20 66 |q2....e.|| Boot f|
|00000380| 69 6c 65 20 66 6f 72 20 | 6c 45 64 69 74 2e 0a 7c |ile for |lEdit..||
|00000390| 20 28 63 29 20 31 39 39 | 35 20 55 72 73 20 42 69 | (c) 199|5 Urs Bi|
|000003a0| 73 61 6e 67 0a 7c 20 61 | 6c 6c 20 72 69 67 68 74 |sang.| a|ll right|
|000003b0| 73 20 72 65 73 65 72 76 | 65 64 2e 0a 20 90 15 0a |s reserv|ed.. ...|
|000003c0| 0a 69 66 20 22 3c 6c 45 | 64 69 74 24 44 69 72 3e |.if "<lE|dit$Dir>|
|000003d0| 22 20 3d 20 22 22 20 74 | 68 65 6e 20 53 65 74 20 |" = "" t|hen Set |
|000003e0| 6c 45 64 69 74 24 44 69 | 72 20 3c 4f 62 65 79 24 |lEdit$Di|r <Obey$|
|000003f0| 44 69 72 3e 0a 69 66 20 | 22 3c 77 74 6b 24 50 61 |Dir>.if |"<wtk$Pa|
|00000400| 74 68 3e 22 20 3d 20 22 | 22 20 74 68 65 6e 20 53 |th>" = "|" then S|
|00000410| 65 74 20 77 74 6b 24 50 | 61 74 68 20 3c 6c 45 64 |et wtk$P|ath <lEd|
|00000420| 69 74 24 44 69 72 3e 2e | 6c 2e 0a 0a 49 63 6f 6e |it$Dir>.|l...Icon|
|00000430| 53 70 72 69 74 65 73 20 | 3c 6c 45 64 69 74 24 44 |Sprites |<lEdit$D|
|00000440| 69 72 3e 2e 21 53 70 72 | 69 74 65 73 0a 53 65 74 |ir>.!Spr|ites.Set|
|00000450| 20 41 6c 69 61 73 24 40 | 52 75 6e 54 79 70 65 5f | Alias$@|RunType_|
|00000460| 46 90 03 20 52 75 6e 20 | 3c 6c 45 64 69 74 24 44 |F.. Run |<lEdit$D|
|00000470| 69 72 3e 2e 77 74 6b 20 | 6c 65 64 69 74 20 2d 61 |ir>.wtk |ledit -a|
|00000480| 72 67 73 20 25 25 2a 30 | 46 69 6c 65 44 61 74 61 |rgs %%*0|FileData|
|00000490| 83 21 48 65 6c 70 00 eb | c0 11 9f e5 7d 79 00 00 |.!Help..|....}y..|
|000004a0| 46 fd ff ff fc 84 f5 51 | 03 00 00 00 0a 0a 20 90 |F......Q|...... .|
|000004b0| 17 6c 45 64 69 74 20 56 | 65 72 73 69 6f 6e 20 30 |.lEdit V|ersion 0|
|000004c0| 2e 31 20 5b 33 35 5d 20 | 0a 20 90 17 2d 90 16 0a |.1 [35] |. ..-...|
|000004d0| 90 03 20 90 16 2a 2a 20 | 28 63 29 20 31 39 39 35 |.. ..** |(c) 1995|
|000004e0| 20 55 72 73 20 42 69 73 | 61 6e 67 20 2a 2a 0a 20 | Urs Bis|ang **. |
|000004f0| 90 16 2a 2a 20 61 6c 6c | 20 72 69 67 68 74 73 20 |..** all| rights |
|00000500| 72 65 73 65 72 76 65 64 | 20 2a 2a 0a 20 90 15 0a |reserved| **. ...|
|00000510| 0a 20 90 08 54 68 69 73 | 20 76 65 72 73 69 6f 6e |. ..This| version|
|00000520| 20 6f 66 20 6c 45 64 69 | 74 20 69 73 20 46 52 45 | of lEdi|t is FRE|
|00000530| 45 57 41 52 45 21 0a 20 | 90 08 50 65 72 6d 69 73 |EWARE!. |..Permis|
|00000540| 73 69 6f 6e 20 69 73 20 | 67 72 61 6e 74 65 64 20 |sion is |granted |
|00000550| 66 6f 72 20 75 6e 72 65 | 73 74 72 69 63 74 65 64 |for unre|stricted|
|00000560| 20 6e 6f 6e 2d 63 6f 6d | 6d 65 72 63 69 61 6c 20 | non-com|mercial |
|00000570| 75 73 65 21 20 20 0a 0a | 20 90 08 49 66 20 79 6f |use!  ..| ..If yo|
|00000580| 75 20 66 69 6e 64 20 74 | 68 69 73 20 70 72 6f 67 |u find t|his prog|
|00000590| 72 61 6d 20 75 73 65 66 | 75 6c 20 6f 72 20 69 66 |ram usef|ul or if|
|000005a0| 20 79 6f 75 20 68 61 76 | 65 20 63 6f 6d 6d 65 6e | you hav|e commen|
|000005b0| 74 73 2c 20 72 65 71 75 | 65 73 74 73 0a 20 90 08 |ts, requ|ests. ..|
|000005c0| 6f 72 20 62 75 67 20 72 | 65 70 6f 72 74 73 20 70 |or bug r|eports p|
|000005d0| 6c 65 61 73 65 20 73 65 | 6e 64 20 61 20 6d 61 69 |lease se|nd a mai|
|000005e0| 6c 20 74 6f 3a 0a 0a 20 | 90 08 62 69 73 61 6e 67 |l to:.. |..bisang|
|000005f0| 40 73 6f 6c 69 64 2e 70 | 68 79 73 2e 65 74 68 7a |@solid.p|hys.ethz|
|00000600| 2e 63 68 0a 20 90 15 0a | 20 90 15 0a 50 75 72 70 |.ch. ...| ...Purp|
|00000610| 6f 73 65 3a 20 28 4c 69 | 73 70 29 20 54 65 78 74 |ose: (Li|sp) Text|
|00000620| 20 45 64 69 74 6f 72 0a | 2d 90 08 0a 0a 49 6e 74 | Editor.|-....Int|
|00000630| 72 6f 64 75 63 74 69 6f | 6e 3a 0a 2d 90 0d 0a 0a |roductio|n:.-....|
|00000640| 6c 45 64 69 74 20 69 73 | 20 61 20 66 75 6c 6c 79 |lEdit is| a fully|
|00000650| 20 70 72 6f 67 72 61 6d | 6d 61 62 6c 65 20 61 6e | program|mable an|
|00000660| 64 20 63 75 73 74 6f 6d | 69 7a 61 62 6c 65 20 74 |d custom|izable t|
|00000670| 65 78 74 20 65 64 69 74 | 6f 72 2c 0a 74 68 61 74 |ext edit|or,.that|
|00000680| 20 68 61 73 20 73 70 65 | 63 69 61 6c 20 73 75 70 | has spe|cial sup|
|00000690| 70 6f 72 74 20 66 6f 72 | 20 4c 69 73 70 20 70 72 |port for| Lisp pr|
|000006a0| 6f 67 72 61 6d 6d 69 6e | 67 2e 20 49 74 20 73 75 |ogrammin|g. It su|
|000006b0| 70 70 6f 72 74 73 0a 61 | 75 74 6f 6d 61 74 69 63 |pports.a|utomatic|
|000006c0| 20 69 64 65 6e 74 69 6e | 67 20 6f 66 20 74 68 65 | identin|g of the|
|000006d0| 20 73 6f 75 72 63 65 20 | 63 6f 64 65 20 61 6e 64 | source |code and|
|000006e0| 20 74 68 65 20 6d 61 74 | 63 68 69 6e 67 20 6f 66 | the mat|ching of|
|000006f0| 20 70 61 72 65 6e 74 68 | 65 73 65 73 2e 0a 54 68 | parenth|eses..Th|
|00000700| 69 73 20 66 65 61 74 75 | 72 65 73 20 63 61 6e 20 |is featu|res can |
|00000710| 62 65 20 64 69 73 61 62 | 6c 65 64 20 61 6e 64 20 |be disab|led and |
|00000720| 74 68 65 6e 20 6c 45 64 | 69 74 20 62 65 68 61 76 |then lEd|it behav|
|00000730| 65 73 20 6c 69 6b 65 20 | 61 0a 73 69 6d 70 6c 65 |es like |a.simple|
|00000740| 20 74 65 78 74 20 65 64 | 69 74 6f 72 20 63 6f 6d | text ed|itor com|
|00000750| 70 61 72 61 62 6c 65 20 | 74 6f 20 21 45 64 69 74 |parable |to !Edit|
|00000760| 2e 20 54 68 65 20 6d 61 | 69 6e 20 64 69 66 66 65 |. The ma|in diffe|
|00000770| 72 65 6e 63 65 20 74 6f | 20 6f 74 68 65 72 20 0a |rence to| other .|
|00000780| 65 64 69 74 6f 72 73 20 | 69 73 20 74 68 61 74 20 |editors |is that |
|00000790| 6c 45 64 69 74 20 68 61 | 73 20 61 20 62 75 69 6c |lEdit ha|s a buil|
|000007a0| 74 69 6e 20 4c 69 73 70 | 20 69 6e 74 65 72 70 72 |tin Lisp| interpr|
|000007b0| 65 74 65 72 2e 20 41 63 | 74 75 61 6c 6c 79 20 6c |eter. Ac|tually l|
|000007c0| 45 64 69 74 20 0a 68 61 | 73 20 62 65 65 6e 20 70 |Edit .ha|s been p|
|000007d0| 72 6f 67 72 61 6d 6d 65 | 64 20 69 6e 20 4c 69 73 |rogramme|d in Lis|
|000007e0| 70 20 69 74 73 65 6c 66 | 2c 20 73 6f 20 79 6f 75 |p itself|, so you|
|000007f0| 20 63 61 6e 20 63 75 73 | 74 6f 6d 69 7a 65 20 6c | can cus|tomize l|
|00000800| 45 64 69 74 20 69 6e 20 | 0a 65 76 65 72 79 20 77 |Edit in |.every w|
|00000810| 61 79 20 73 69 6d 70 6c | 79 20 62 79 20 63 68 61 |ay simpl|y by cha|
|00000820| 6e 67 69 6e 67 20 74 68 | 65 20 6c 69 73 70 20 73 |nging th|e lisp s|
|00000830| 6f 75 72 63 65 20 63 6f | 64 65 20 61 6e 64 20 77 |ource co|de and w|
|00000840| 69 74 68 6f 75 74 20 61 | 6e 79 0a 72 65 63 6f 6d |ithout a|ny.recom|
|00000850| 70 69 6c 61 74 69 6f 6e | 20 6f 66 20 74 68 65 20 |pilation| of the |
|00000860| 61 70 70 6c 69 63 61 74 | 69 6f 6e 2e 20 49 6e 20 |applicat|ion. In |
|00000870| 74 68 69 73 20 77 61 79 | 20 6c 45 64 69 74 20 69 |this way| lEdit i|
|00000880| 73 20 73 69 6d 69 6c 61 | 72 20 74 6f 20 45 6d 61 |s simila|r to Ema|
|00000890| 63 73 20 0a 28 74 68 65 | 20 66 61 6d 6f 75 73 20 |cs .(the| famous |
|000008a0| 65 64 69 74 6f 72 20 69 | 6e 20 74 68 65 20 55 6e |editor i|n the Un|
|000008b0| 69 78 20 77 6f 72 6c 64 | 29 2e 20 4f 66 20 63 6f |ix world|). Of co|
|000008c0| 75 72 73 65 20 6c 45 64 | 69 74 20 69 73 20 6d 75 |urse lEd|it is mu|
|000008d0| 63 68 20 73 69 6d 70 6c | 65 72 20 0a 61 6e 64 20 |ch simpl|er .and |
|000008e0| 6c 65 73 73 20 70 6f 77 | 65 72 66 75 6c 20 74 68 |less pow|erful th|
|000008f0| 61 6e 20 45 6d 61 63 73 | 2c 20 62 75 74 20 69 74 |an Emacs|, but it|
|00000900| 20 69 73 20 61 6c 73 6f | 20 6d 75 63 68 20 73 6d | is also| much sm|
|00000910| 61 6c 6c 65 72 21 20 20 | 0a 20 90 03 0a 0a 44 65 |aller!  |. ....De|
|00000920| 73 63 72 69 70 74 69 6f | 6e 3a 0a 2d 90 0c 0a 0a |scriptio|n:.-....|
|00000930| 54 68 65 20 68 61 6e 64 | 6c 69 6e 67 20 6f 66 20 |The hand|ling of |
|00000940| 6c 45 64 69 74 20 69 73 | 20 76 65 72 79 20 73 69 |lEdit is| very si|
|00000950| 6d 69 6c 61 72 20 74 6f | 20 21 45 64 69 74 2e 20 |milar to| !Edit. |
|00000960| 53 6f 20 6d 61 69 6e 6c | 79 20 74 68 65 0a 64 69 |So mainl|y the.di|
|00000970| 66 66 65 72 65 6e 63 65 | 73 20 74 6f 20 21 45 64 |fference|s to !Ed|
|00000980| 69 74 20 77 69 6c 6c 20 | 62 65 20 64 65 73 63 72 |it will |be descr|
|00000990| 69 62 65 64 2e 20 46 6f | 72 20 66 75 72 74 68 65 |ibed. Fo|r furthe|
|000009a0| 72 20 64 65 74 61 69 6c | 73 20 6f 6e 0a 21 45 64 |r detail|s on.!Ed|
|000009b0| 69 74 20 73 65 65 20 66 | 6f 72 20 65 78 61 6d 70 |it see f|or examp|
|000009c0| 6c 65 20 74 68 65 20 27 | 52 49 53 43 20 4f 53 33 |le the '|RISC OS3|
|000009d0| 20 41 70 70 6c 69 63 61 | 74 69 6f 6e 73 20 47 75 | Applica|tions Gu|
|000009e0| 69 64 65 27 2e 0a 90 03 | 53 68 6f 72 74 20 64 65 |ide'....|Short de|
|000009f0| 73 63 72 69 70 74 69 6f | 6e 20 6f 66 20 74 68 65 |scriptio|n of the|
|00000a00| 20 6d 65 6e 75 20 65 6e | 74 72 69 65 73 3a 0a 0a | menu en|tries:..|
|00000a10| 4d 69 73 63 20 90 04 0a | 2d 90 04 20 90 03 0a 49 |Misc ...|-.. ...I|
|00000a20| 6e 66 6f 20 3a 20 74 65 | 6c 6c 73 20 79 6f 75 20 |nfo : te|lls you |
|00000a30| 61 62 6f 75 74 20 6c 45 | 64 69 74 0a 4e 65 77 20 |about lE|dit.New |
|00000a40| 56 69 65 77 20 3a 20 6f | 70 65 6e 73 20 61 64 64 |View : o|pens add|
|00000a50| 69 74 69 6f 6e 61 6c 20 | 77 69 6e 64 6f 77 20 6f |itional |window o|
|00000a60| 6e 20 74 68 65 20 73 61 | 6d 65 20 74 65 78 74 0a |n the sa|me text.|
|00000a70| 50 72 69 6e 74 20 3a 20 | 73 65 6e 64 73 20 74 68 |Print : |sends th|
|00000a80| 65 20 64 6f 63 75 6d 65 | 6e 74 20 74 6f 20 74 68 |e docume|nt to th|
|00000a90| 65 20 70 72 69 6e 74 65 | 72 0a 55 6e 64 6f 20 3a |e printe|r.Undo :|
|00000aa0| 20 61 6c 6c 6f 77 73 20 | 79 6f 75 20 74 6f 20 73 | allows |you to s|
|00000ab0| 74 65 70 20 62 61 63 6b | 77 61 72 64 73 20 74 68 |tep back|wards th|
|00000ac0| 72 6f 75 67 68 20 74 68 | 65 20 6d 6f 73 74 20 72 |rough th|e most r|
|00000ad0| 65 63 65 6e 74 20 63 68 | 61 6e 67 65 73 0a 20 90 |ecent ch|anges. .|
|00000ae0| 07 79 6f 75 20 68 61 76 | 65 20 6d 61 64 65 20 74 |.you hav|e made t|
|00000af0| 6f 20 74 68 65 20 74 65 | 78 74 0a 52 65 64 6f 20 |o the te|xt.Redo |
|00000b00| 3a 20 61 6c 6c 6f 77 73 | 20 79 6f 75 20 74 6f 20 |: allows| you to |
|00000b10| 72 65 6d 61 6b 65 20 74 | 68 65 20 63 68 61 6e 67 |remake t|he chang|
|00000b20| 65 73 20 79 6f 75 20 72 | 65 76 65 72 73 65 64 20 |es you r|eversed |
|00000b30| 77 69 74 68 20 55 6e 64 | 6f 0a 0a 53 61 76 65 0a |with Und|o..Save.|
|00000b40| 2d 90 04 0a 53 61 76 65 | 3a 20 73 61 76 65 20 74 |-...Save|: save t|
|00000b50| 68 65 20 66 69 6c 65 20 | 69 6e 20 74 68 65 20 63 |he file |in the c|
|00000b60| 75 72 72 65 6e 74 20 77 | 69 6e 64 6f 77 0a 0a 53 |urrent w|indow..S|
|00000b70| 65 6c 65 63 74 0a 2d 90 | 06 0a 53 61 76 65 20 3a |elect.-.|..Save :|
|00000b80| 20 73 61 76 65 73 20 74 | 68 65 20 63 75 72 72 65 | saves t|he curre|
|00000b90| 6e 74 20 74 65 78 74 20 | 73 65 6c 65 63 74 69 6f |nt text |selectio|
|00000ba0| 6e 0a 50 72 69 6e 74 20 | 3a 20 70 72 69 6e 74 73 |n.Print |: prints|
|00000bb0| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 74 65 78 | the cur|rent tex|
|00000bc0| 74 20 73 65 6c 65 63 74 | 69 6f 6e 0a 43 6f 70 79 |t select|ion.Copy|
|00000bd0| 20 3a 20 63 6f 70 69 65 | 73 20 63 75 72 72 65 6e | : copie|s curren|
|00000be0| 74 20 74 65 78 74 20 73 | 65 6c 65 63 74 69 6f 6e |t text s|election|
|00000bf0| 20 28 74 6f 20 74 68 65 | 20 63 75 72 73 6f 72 20 | (to the| cursor |
|00000c00| 70 6f 73 69 74 69 6f 6e | 29 0a 4d 6f 76 65 20 3a |position|).Move :|
|00000c10| 20 6d 6f 76 65 73 20 63 | 75 72 72 65 6e 74 20 74 | moves c|urrent t|
|00000c20| 65 78 74 20 73 65 6c 65 | 63 74 69 6f 6e 20 28 74 |ext sele|ction (t|
|00000c30| 6f 20 74 68 65 20 63 75 | 72 73 6f 72 20 70 6f 73 |o the cu|rsor pos|
|00000c40| 69 74 69 6f 6e 29 0a 44 | 65 6c 65 74 65 20 3a 20 |ition).D|elete : |
|00000c50| 64 65 6c 65 74 65 73 20 | 63 75 72 72 65 6e 74 20 |deletes |current |
|00000c60| 74 65 78 74 20 73 65 6c | 65 63 74 69 6f 6e 0a 43 |text sel|ection.C|
|00000c70| 6c 65 61 72 20 3a 20 63 | 6c 65 61 72 73 20 28 75 |lear : c|lears (u|
|00000c80| 6e 73 65 6c 65 63 74 73 | 29 20 63 75 72 72 65 6e |nselects|) curren|
|00000c90| 74 20 74 65 78 74 20 73 | 65 6c 65 63 74 69 6f 6e |t text s|election|
|00000ca0| 0a 0a 45 64 69 74 0a 2d | 90 04 0a 46 69 6e 64 20 |..Edit.-|...Find |
|00000cb0| 90 07 3a 20 61 6c 6c 6f | 77 73 20 79 6f 75 20 74 |..: allo|ws you t|
|00000cc0| 6f 20 73 65 61 72 63 68 | 20 66 6f 72 20 61 20 73 |o search| for a s|
|00000cd0| 74 72 69 6e 67 20 69 6e | 20 79 6f 75 72 20 66 69 |tring in| your fi|
|00000ce0| 6c 65 0a 20 90 0d 74 68 | 65 20 66 69 6e 64 20 75 |le. ..th|e find u|
|00000cf0| 74 69 6c 69 74 79 20 69 | 73 20 72 61 74 68 65 72 |tility i|s rather|
|00000d00| 20 73 69 6d 70 6c 65 20 | 61 6e 64 20 6e 6f 20 77 | simple |and no w|
|00000d10| 69 6c 64 63 61 72 64 65 | 64 0a 20 90 0d 73 65 61 |ildcarde|d. ..sea|
|00000d20| 72 63 68 20 73 74 72 69 | 6e 67 73 20 61 72 65 20 |rch stri|ngs are |
|00000d30| 61 6c 6c 6f 77 65 64 2e | 20 62 75 74 20 65 73 63 |allowed.| but esc|
|00000d40| 61 70 65 20 63 68 61 72 | 61 63 74 65 72 73 20 73 |ape char|acters s|
|00000d50| 75 63 68 0a 20 90 0d 61 | 73 20 27 5c 6e 27 2c 20 |uch. ..a|s '\n', |
|00000d60| 27 5c 72 27 2c 20 65 74 | 63 20 20 61 6e 64 20 5c |'\r', et|c  and \|
|00000d70| 78 68 68 20 28 68 68 20 | 3a 20 68 65 78 20 6e 75 |xhh (hh |: hex nu|
|00000d80| 6d 62 65 72 29 0a 20 90 | 0d 61 72 65 20 61 6c 6c |mber). .|.are all|
|00000d90| 6f 77 65 64 20 74 6f 20 | 73 65 61 72 63 68 20 66 |owed to |search f|
|00000da0| 6f 72 20 6e 6f 6e 20 70 | 72 69 6e 74 61 62 6c 65 |or non p|rintable|
|00000db0| 20 63 68 61 72 61 63 74 | 65 72 73 2e 0a 20 90 0d | charact|ers.. ..|
|00000dc0| 5c 5c 20 69 73 20 75 73 | 65 64 20 66 6f 72 20 74 |\\ is us|ed for t|
|00000dd0| 68 65 20 62 61 63 6b 73 | 6c 61 73 68 20 69 74 73 |he backs|lash its|
|00000de0| 65 6c 66 0a 47 6f 74 6f | 20 90 07 3a 20 61 6c 6c |elf.Goto| ..: all|
|00000df0| 6f 77 73 20 79 6f 75 20 | 74 6f 20 6d 6f 76 65 20 |ows you |to move |
|00000e00| 74 6f 20 61 20 73 70 65 | 63 69 66 69 63 20 6c 69 |to a spe|cific li|
|00000e10| 6e 65 20 69 6e 20 79 6f | 75 72 20 66 69 6c 65 0a |ne in yo|ur file.|
|00000e20| 52 65 70 6c 61 63 65 20 | 90 04 3a 20 61 6c 6c 6f |Replace |..: allo|
|00000e30| 77 73 20 79 6f 75 20 74 | 6f 20 72 65 70 6c 61 63 |ws you t|o replac|
|00000e40| 65 20 61 20 73 74 72 69 | 6e 67 20 6f 72 20 61 6c |e a stri|ng or al|
|00000e50| 6c 20 6d 61 74 63 68 69 | 6e 67 20 73 74 72 69 6e |l matchi|ng strin|
|00000e60| 67 73 0a 20 90 0d 74 68 | 72 6f 75 67 68 20 61 6e |gs. ..th|rough an|
|00000e70| 6f 74 68 65 72 20 73 74 | 72 69 6e 67 20 69 6e 20 |other st|ring in |
|00000e80| 79 6f 75 72 20 66 69 6c | 65 2e 20 74 68 65 20 72 |your fil|e. the r|
|00000e90| 65 70 6c 61 63 65 20 66 | 61 63 69 6c 69 74 79 0a |eplace f|acility.|
|00000ea0| 20 90 0d 68 61 73 20 62 | 65 65 6e 20 73 65 70 61 | ..has b|een sepa|
|00000eb0| 72 61 74 65 64 20 66 72 | 6f 6d 20 74 68 65 20 66 |rated fr|om the f|
|00000ec0| 69 6e 64 20 66 61 63 69 | 6c 69 74 79 20 69 6e 20 |ind faci|lity in |
|00000ed0| 6f 72 64 65 72 20 74 6f | 20 0a 20 90 0d 70 72 65 |order to| . ..pre|
|00000ee0| 76 65 6e 74 20 72 65 70 | 6c 61 63 69 6e 67 20 61 |vent rep|lacing a|
|00000ef0| 63 63 69 64 65 6e 74 6c | 79 0a 49 64 65 6e 74 20 |ccidentl|y.Ident |
|00000f00| 90 06 3a 20 69 64 65 6e | 74 20 6c 69 6e 65 2c 20 |..: iden|t line, |
|00000f10| 74 68 61 74 20 63 6f 6e | 74 61 69 6e 73 20 74 68 |that con|tains th|
|00000f20| 65 20 63 75 72 73 6f 72 | 20 61 63 63 6f 72 64 69 |e cursor| accordi|
|00000f30| 6e 67 20 74 6f 20 74 68 | 65 20 72 75 6c 65 73 0a |ng to th|e rules.|
|00000f40| 20 90 0d 6f 66 20 6c 69 | 73 70 20 69 64 65 6e 74 | ..of li|sp ident|
|00000f50| 69 6e 67 0a 52 65 63 49 | 64 65 6e 74 20 90 03 3a |ing.RecI|dent ..:|
|00000f60| 20 69 64 65 6e 74 20 6c | 69 6e 65 73 20 72 65 63 | ident l|ines rec|
|00000f70| 75 72 73 69 76 65 6c 79 | 20 73 74 61 72 74 69 6e |ursively| startin|
|00000f80| 67 20 66 72 6f 6d 20 74 | 68 65 20 6c 69 6e 65 20 |g from t|he line |
|00000f90| 74 68 61 74 0a 20 90 0d | 63 6f 6e 74 61 69 6e 73 |that. ..|contains|
|00000fa0| 20 74 68 65 20 63 75 72 | 73 6f 72 0a 4d 61 74 63 | the cur|sor.Matc|
|00000fb0| 68 20 28 29 20 90 03 3a | 20 73 68 6f 77 73 20 74 |h () ..:| shows t|
|00000fc0| 68 65 20 6d 61 74 63 68 | 69 6e 67 20 6f 70 65 6e |he match|ing open|
|00000fd0| 69 6e 67 20 70 61 72 65 | 6e 74 68 65 73 69 73 20 |ing pare|nthesis |
|00000fe0| 69 66 20 74 68 65 20 63 | 75 72 73 6f 72 20 69 73 |if the c|ursor is|
|00000ff0| 0a 20 90 0d 72 69 67 68 | 74 20 62 65 68 69 6e 64 |. ..righ|t behind|
|00001000| 20 61 20 63 6c 6f 73 69 | 6e 67 20 70 61 72 65 6e | a closi|ng paren|
|00001010| 74 68 65 73 69 73 2e 20 | 69 66 20 74 68 65 72 65 |thesis. |if there|
|00001020| 20 69 73 20 6e 6f 20 6d | 61 74 63 68 69 6e 67 0a | is no m|atching.|
|00001030| 20 90 0d 70 61 72 65 6e | 74 68 65 73 69 73 20 6f | ..paren|thesis o|
|00001040| 72 20 74 68 65 20 63 75 | 72 73 6f 72 20 69 73 20 |r the cu|rsor is |
|00001050| 6e 6f 74 20 62 65 68 69 | 6e 64 20 61 20 63 6c 6f |not behi|nd a clo|
|00001060| 73 69 6e 67 20 0a 20 90 | 0d 70 61 72 65 6e 74 68 |sing . .|.parenth|
|00001070| 65 73 69 73 20 6e 6f 74 | 68 69 6e 67 20 68 61 70 |esis not|hing hap|
|00001080| 70 65 6e 73 2e 20 69 6e | 20 74 68 69 73 20 63 6f |pens. in| this co|
|00001090| 6e 74 65 78 74 20 70 61 | 72 65 6e 74 68 65 73 69 |ntext pa|renthesi|
|000010a0| 73 0a 20 90 0d 6d 65 61 | 6e 73 20 6f 6e 6c 79 20 |s. ..mea|ns only |
|000010b0| 27 72 65 61 6c 27 20 70 | 61 72 65 6e 74 68 65 73 |'real' p|arenthes|
|000010c0| 65 73 20 74 68 61 74 20 | 62 65 6c 6f 6e 67 20 74 |es that |belong t|
|000010d0| 6f 20 61 20 6c 69 73 70 | 20 0a 20 90 0d 63 6f 6e |o a lisp| . ..con|
|000010e0| 73 74 72 75 63 74 20 28 | 6c 69 73 74 29 20 61 6e |struct (|list) an|
|000010f0| 64 20 64 6f 20 6e 6f 74 | 20 73 74 61 6e 64 20 69 |d do not| stand i|
|00001100| 6e 73 69 64 65 20 61 20 | 73 74 72 69 6e 67 2c 20 |nside a |string, |
|00001110| 0a 20 90 0d 63 6f 6d 6d | 65 6e 74 20 6f 72 20 63 |. ..comm|ent or c|
|00001120| 68 61 72 61 63 74 65 72 | 20 63 6f 6e 73 74 61 6e |haracter| constan|
|00001130| 74 0a 4e 65 78 74 20 28 | 20 90 05 3a 20 6d 6f 76 |t.Next (| ..: mov|
|00001140| 65 73 20 74 68 65 20 63 | 75 72 73 6f 72 20 74 6f |es the c|ursor to|
|00001150| 20 74 68 65 20 6e 65 78 | 74 20 6f 70 65 6e 69 6e | the nex|t openin|
|00001160| 67 20 27 72 65 61 6c 27 | 20 70 61 72 65 6e 74 68 |g 'real'| parenth|
|00001170| 65 73 69 73 2e 0a 50 72 | 65 76 69 6f 75 73 20 28 |esis..Pr|evious (|
|00001180| 20 3a 20 6d 6f 76 65 73 | 20 74 6f 20 70 72 65 76 | : moves| to prev|
|00001190| 69 6f 75 73 20 28 6d 61 | 74 63 68 69 6e 67 21 29 |ious (ma|tching!)|
|000011a0| 20 6f 70 65 6e 69 6e 67 | 20 27 72 65 61 6c 27 20 | opening| 'real' |
|000011b0| 70 61 72 65 6e 74 68 65 | 73 69 73 0a 4e 65 78 74 |parenthe|sis.Next|
|000011c0| 20 29 20 90 05 3a 20 6d | 6f 76 65 73 20 74 6f 20 | ) ..: m|oves to |
|000011d0| 6e 65 78 74 20 28 6d 61 | 74 63 68 69 6e 67 21 29 |next (ma|tching!)|
|000011e0| 20 63 6c 6f 73 69 6e 67 | 20 27 72 65 61 6c 27 20 | closing| 'real' |
|000011f0| 70 61 72 65 6e 74 68 65 | 73 69 73 0a 50 72 65 76 |parenthe|sis.Prev|
|00001200| 69 6f 75 73 20 29 20 3a | 20 6d 6f 76 65 73 20 74 |ious ) :| moves t|
|00001210| 6f 20 70 72 65 76 69 6f | 75 73 20 63 6c 6f 73 69 |o previo|us closi|
|00001220| 6e 67 20 27 72 65 61 6c | 27 20 70 61 72 65 6e 74 |ng 'real|' parent|
|00001230| 68 65 73 69 73 0a 0a 4f | 70 74 69 6f 6e 73 0a 2d |hesis..O|ptions.-|
|00001240| 90 07 0a 49 64 65 6e 74 | 20 3a 20 65 6e 61 62 6c |...Ident| : enabl|
|00001250| 65 2f 64 69 73 61 62 6c | 65 20 61 75 74 6f 6d 61 |e/disabl|e automa|
|00001260| 74 69 63 20 6c 69 6e 65 | 20 69 64 65 6e 74 69 6e |tic line| identin|
|00001270| 67 20 61 66 74 65 72 20 | 74 79 70 69 6e 67 20 72 |g after |typing r|
|00001280| 65 74 75 72 6e 0a 4d 61 | 74 63 68 20 3a 20 65 6e |eturn.Ma|tch : en|
|00001290| 61 62 6c 65 2f 64 69 73 | 61 62 6c 65 20 61 75 74 |able/dis|able aut|
|000012a0| 6f 6d 61 74 69 63 20 68 | 69 67 68 6c 69 67 68 74 |omatic h|ighlight|
|000012b0| 69 6e 67 20 6f 66 20 6d | 61 74 63 68 69 6e 67 20 |ing of m|atching |
|000012c0| 70 61 72 65 6e 74 68 65 | 73 65 73 0a 20 90 08 61 |parenthe|ses. ..a|
|000012d0| 66 74 65 72 20 74 79 70 | 69 6e 67 20 61 20 63 6c |fter typ|ing a cl|
|000012e0| 6f 73 69 6e 67 20 70 61 | 72 65 6e 74 68 65 73 65 |osing pa|renthese|
|000012f0| 73 0a 41 6d 69 6d 61 74 | 65 20 3a 20 65 6e 61 62 |s.Amimat|e : enab|
|00001300| 6c 65 2f 64 69 73 61 62 | 6c 65 20 61 6e 69 6d 61 |le/disab|le anima|
|00001310| 74 69 6f 6e 20 6f 66 20 | 63 75 72 73 6f 72 20 6f |tion of |cursor o|
|00001320| 6e 20 69 64 65 6e 74 69 | 6e 67 0a 0a 20 90 0c 0a |n identi|ng.. ...|
|00001330| 49 6d 70 6f 72 74 61 6e | 74 20 6b 65 79 73 74 72 |Importan|t keystr|
|00001340| 6f 6b 65 20 61 6e 64 20 | 6b 65 79 73 74 72 6f 6b |oke and |keystrok|
|00001350| 65 20 65 71 75 69 76 61 | 6c 65 6e 74 73 3a 0a 90 |e equiva|lents:..|
|00001360| 03 46 75 6e 63 74 69 6f | 6e 20 6b 65 79 73 3a 0a |.Functio|n keys:.|
|00001370| 2d 90 0e 20 90 04 0a 0a | 46 33 20 3a 20 73 61 76 |-.. ....|F3 : sav|
|00001380| 65 20 66 69 6c 65 0a 46 | 34 20 3a 20 66 69 6e 64 |e file.F|4 : find|
|00001390| 20 73 74 72 69 6e 67 0a | 46 35 20 3a 20 67 6f 74 | string.|F5 : got|
|000013a0| 6f 20 6c 69 6e 65 0a 46 | 36 20 3a 20 72 65 70 6c |o line.F|6 : repl|
|000013b0| 61 63 65 20 73 74 72 69 | 6e 67 0a 46 38 20 3a 20 |ace stri|ng.F8 : |
|000013c0| 75 6e 64 6f 0a 46 39 20 | 3a 20 72 65 64 6f 0a 0a |undo.F9 |: redo..|
|000013d0| 43 6f 6e 74 72 6f 6c 20 | 6b 65 79 73 3a 0a 2d 90 |Control |keys:.-.|
|000013e0| 0d 0a 0a 43 74 72 6c 2d | 43 20 3a 20 63 6f 70 69 |...Ctrl-|C : copi|
|000013f0| 65 73 20 63 75 72 72 65 | 6e 74 20 74 65 78 74 20 |es curre|nt text |
|00001400| 73 65 6c 65 63 74 69 6f | 6e 20 28 74 6f 20 74 68 |selectio|n (to th|
|00001410| 65 20 63 75 72 73 6f 72 | 20 70 6f 73 69 74 69 6f |e cursor| positio|
|00001420| 6e 29 0a 43 74 72 6c 2d | 56 20 3a 20 6d 6f 76 65 |n).Ctrl-|V : move|
|00001430| 73 20 63 75 72 72 65 6e | 74 20 74 65 78 74 20 73 |s curren|t text s|
|00001440| 65 6c 65 63 74 69 6f 6e | 20 28 74 6f 20 74 68 65 |election| (to the|
|00001450| 20 63 75 72 73 6f 72 20 | 70 6f 73 69 74 69 6f 6e | cursor |position|
|00001460| 29 0a 43 74 72 6c 2d 58 | 20 3a 20 64 65 6c 65 74 |).Ctrl-X| : delet|
|00001470| 65 73 20 63 75 72 72 65 | 6e 74 20 74 65 78 74 20 |es curre|nt text |
|00001480| 73 65 6c 65 63 74 69 6f | 6e 0a 43 74 72 6c 2d 5a |selectio|n.Ctrl-Z|
|00001490| 20 3a 20 63 6c 65 61 72 | 73 20 28 75 6e 73 65 6c | : clear|s (unsel|
|000014a0| 65 63 74 73 29 20 63 75 | 72 72 65 6e 74 20 74 65 |ects) cu|rrent te|
|000014b0| 78 74 20 73 65 6c 65 63 | 74 69 6f 6e 0a 43 74 72 |xt selec|tion.Ctr|
|000014c0| 6c 2d 52 20 3a 20 69 64 | 65 6e 74 20 6c 69 6e 65 |l-R : id|ent line|
|000014d0| 73 20 72 65 63 75 72 73 | 69 76 65 6c 79 0a 43 74 |s recurs|ively.Ct|
|000014e0| 72 6c 2d 4d 20 3a 20 73 | 68 6f 77 20 6d 61 74 63 |rl-M : s|how matc|
|000014f0| 68 69 6e 67 20 27 72 65 | 61 6c 27 20 70 61 72 65 |hing 're|al' pare|
|00001500| 6e 74 68 65 73 69 73 0a | 43 74 72 6c 2d 41 20 3a |nthesis.|Ctrl-A :|
|00001510| 20 6d 6f 76 65 73 20 74 | 68 65 20 63 75 72 73 6f | moves t|he curso|
|00001520| 72 20 74 6f 20 74 68 65 | 20 6e 65 78 74 20 6f 70 |r to the| next op|
|00001530| 65 6e 69 6e 67 20 27 72 | 65 61 6c 27 20 70 61 72 |ening 'r|eal' par|
|00001540| 65 6e 74 68 65 73 69 73 | 2e 0a 43 74 72 6c 2d 53 |enthesis|..Ctrl-S|
|00001550| 20 3a 20 6d 6f 76 65 73 | 20 74 6f 20 70 72 65 76 | : moves| to prev|
|00001560| 69 6f 75 73 20 28 6d 61 | 74 63 68 69 6e 67 21 29 |ious (ma|tching!)|
|00001570| 20 6f 70 65 6e 69 6e 67 | 20 27 72 65 61 6c 27 20 | opening| 'real' |
|00001580| 70 61 72 65 6e 74 68 65 | 73 69 73 0a 43 74 72 6c |parenthe|sis.Ctrl|
|00001590| 2d 44 20 3a 20 6d 6f 76 | 65 73 20 74 6f 20 6e 65 |-D : mov|es to ne|
|000015a0| 78 74 20 28 6d 61 74 63 | 68 69 6e 67 21 29 20 63 |xt (matc|hing!) c|
|000015b0| 6c 6f 73 69 6e 67 20 27 | 72 65 61 6c 27 20 70 61 |losing '|real' pa|
|000015c0| 72 65 6e 74 68 65 73 69 | 73 0a 43 74 72 6c 2d 46 |renthesi|s.Ctrl-F|
|000015d0| 20 3a 20 6d 6f 76 65 73 | 20 74 6f 20 70 72 65 76 | : moves| to prev|
|000015e0| 69 6f 75 73 20 63 6c 6f | 73 69 6e 67 20 27 72 65 |ious clo|sing 're|
|000015f0| 61 6c 27 20 70 61 72 65 | 6e 74 68 65 73 69 73 0a |al' pare|nthesis.|
|00001600| 0a 4d 69 73 63 20 6b 65 | 79 73 3a 0a 2d 90 0a 0a |.Misc ke|ys:.-...|
|00001610| 0a 54 41 42 20 90 07 3a | 20 69 64 65 6e 74 20 6c |.TAB ..:| ident l|
|00001620| 69 6e 65 2c 20 74 68 61 | 74 20 63 6f 6e 74 61 69 |ine, tha|t contai|
|00001630| 6e 73 20 74 68 65 20 63 | 75 72 73 6f 72 20 61 63 |ns the c|ursor ac|
|00001640| 63 6f 72 64 69 6e 67 20 | 74 6f 20 74 68 65 20 72 |cording |to the r|
|00001650| 75 6c 65 73 0a 20 90 0c | 6f 66 20 6c 69 73 70 20 |ules. ..|of lisp |
|00001660| 69 64 65 6e 74 69 6e 67 | 0a 53 48 49 46 54 2d 54 |identing|.SHIFT-T|
|00001670| 41 42 20 3a 20 73 69 6d | 69 6c 61 72 20 74 6f 20 |AB : sim|ilar to |
|00001680| 54 41 42 20 62 75 74 20 | 64 69 66 66 65 72 69 6e |TAB but |differin|
|00001690| 67 20 73 6c 69 67 68 74 | 6c 79 20 69 6e 20 74 68 |g slight|ly in th|
|000016a0| 65 20 72 75 6c 65 73 20 | 0a 20 90 0c 66 6f 72 20 |e rules |. ..for |
|000016b0| 69 64 65 6e 74 61 74 69 | 6f 6e 20 28 68 61 73 20 |identati|on (has |
|000016c0| 66 69 78 65 64 20 69 64 | 65 6e 74 61 74 69 6f 6e |fixed id|entation|
|000016d0| 20 75 6e 64 65 72 20 73 | 79 6d 62 6f 6c 73 0a 20 | under s|ymbols. |
|000016e0| 90 0c 61 73 20 64 65 66 | 61 75 6c 74 29 0a 48 4f |..as def|ault).HO|
|000016f0| 4d 45 20 90 06 3a 20 6d | 6f 76 65 73 20 63 75 72 |ME ..: m|oves cur|
|00001700| 73 6f 72 20 74 6f 20 62 | 65 67 69 6e 6e 69 6e 67 |sor to b|eginning|
|00001710| 20 6f 66 20 74 68 65 20 | 66 69 6c 65 0a 44 45 4c | of the |file.DEL|
|00001720| 45 54 45 20 90 04 3a 20 | 64 65 6c 65 74 65 73 20 |ETE ..: |deletes |
|00001730| 63 68 61 72 61 63 74 65 | 72 20 74 6f 20 74 68 65 |characte|r to the|
|00001740| 20 6c 65 66 74 20 6f 66 | 20 63 75 72 73 6f 72 0a | left of| cursor.|
|00001750| 42 41 43 4b 53 50 41 43 | 45 20 3a 20 64 65 6c 65 |BACKSPAC|E : dele|
|00001760| 74 65 73 20 63 68 61 72 | 61 63 74 65 72 20 74 6f |tes char|acter to|
|00001770| 20 74 68 65 20 6c 65 66 | 74 20 6f 66 20 63 75 72 | the lef|t of cur|
|00001780| 73 6f 72 0a 43 4f 50 59 | 20 90 06 3a 20 64 65 6c |sor.COPY| ..: del|
|00001790| 65 74 65 73 20 63 68 61 | 72 61 63 74 65 72 20 74 |etes cha|racter t|
|000017a0| 6f 20 74 68 65 20 72 69 | 67 68 74 20 6f 66 20 63 |o the ri|ght of c|
|000017b0| 75 72 73 6f 72 0a 50 41 | 47 45 2d 55 50 20 90 03 |ursor.PA|GE-UP ..|
|000017c0| 3a 20 73 63 72 6f 6c 6c | 20 75 70 20 6f 6e 65 20 |: scroll| up one |
|000017d0| 77 69 6e 64 6f 77 0a 50 | 41 47 45 2d 44 4f 57 4e |window.P|AGE-DOWN|
|000017e0| 20 3a 20 73 63 72 6f 6c | 6c 20 64 6f 77 6e 20 6f | : scrol|l down o|
|000017f0| 6e 65 20 77 69 6e 64 6f | 77 0a 41 52 52 4f 57 2d |ne windo|w.ARROW-|
|00001800| 55 50 20 20 3a 20 6d 6f | 76 65 73 20 63 75 72 73 |UP  : mo|ves curs|
|00001810| 6f 72 20 6f 6e 65 20 6c | 69 6e 65 20 75 70 0a 41 |or one l|ine up.A|
|00001820| 52 52 4f 57 2d 44 4f 57 | 4e 20 3a 20 6d 6f 76 65 |RROW-DOW|N : move|
|00001830| 73 20 63 75 72 73 6f 72 | 20 6f 6e 65 20 6c 69 6e |s cursor| one lin|
|00001840| 65 20 64 6f 77 6e 0a 41 | 52 52 4f 57 2d 4c 45 46 |e down.A|RROW-LEF|
|00001850| 54 20 3a 20 6d 6f 76 65 | 73 20 63 75 72 73 6f 72 |T : move|s cursor|
|00001860| 20 74 6f 20 74 68 65 20 | 6c 65 66 74 0a 41 52 52 | to the |left.ARR|
|00001870| 4f 57 2d 52 49 47 48 54 | 20 3a 20 6d 6f 76 65 73 |OW-RIGHT| : moves|
|00001880| 20 63 75 72 73 6f 72 20 | 74 6f 20 74 68 65 20 72 | cursor |to the r|
|00001890| 69 67 68 74 0a 43 54 52 | 4c 2d 41 52 52 4f 57 2d |ight.CTR|L-ARROW-|
|000018a0| 55 50 20 3a 20 6d 6f 76 | 65 73 20 63 75 72 73 6f |UP : mov|es curso|
|000018b0| 72 20 74 6f 20 74 68 65 | 20 62 65 67 69 6e 6e 69 |r to the| beginni|
|000018c0| 6e 67 20 6f 66 20 74 68 | 65 20 66 69 6c 65 0a 43 |ng of th|e file.C|
|000018d0| 54 52 4c 2d 41 52 52 4f | 57 2d 44 4f 57 4e 20 3a |TRL-ARRO|W-DOWN :|
|000018e0| 20 6d 6f 76 65 73 20 63 | 75 72 73 6f 72 20 74 6f | moves c|ursor to|
|000018f0| 20 74 68 65 20 65 6e 64 | 20 6f 66 20 74 68 65 20 | the end| of the |
|00001900| 66 69 6c 65 0a 43 54 52 | 4c 2d 41 52 52 4f 57 2d |file.CTR|L-ARROW-|
|00001910| 4c 45 46 54 20 3a 20 6d | 6f 76 65 73 20 74 68 65 |LEFT : m|oves the|
|00001920| 20 63 75 72 73 6f 72 20 | 74 6f 20 74 68 65 20 66 | cursor |to the f|
|00001930| 69 72 73 74 20 6e 6f 6e | 20 62 6c 61 6e 6b 20 63 |irst non| blank c|
|00001940| 68 61 72 61 6b 74 65 72 | 0a 20 90 12 6f 66 20 74 |harakter|. ..of t|
|00001950| 68 65 20 6c 69 6e 65 0a | 43 54 52 4c 2d 41 52 52 |he line.|CTRL-ARR|
|00001960| 4f 57 2d 52 49 47 48 54 | 3a 20 6d 6f 76 65 73 20 |OW-RIGHT|: moves |
|00001970| 63 75 72 73 6f 72 20 74 | 6f 20 74 68 65 20 65 6e |cursor t|o the en|
|00001980| 64 20 6f 66 20 6c 69 6e | 65 0a 90 03 43 75 73 74 |d of lin|e...Cust|
|00001990| 6f 6d 69 73 69 6e 67 20 | 6c 45 64 69 74 3a 0a 2d |omising |lEdit:.-|
|000019a0| 90 12 0a 0a 54 68 65 20 | 66 6f 6e 74 73 20 61 6e |....The |fonts an|
|000019b0| 64 20 74 68 65 20 63 6f | 6c 6f 72 73 20 75 73 65 |d the co|lors use|
|000019c0| 64 20 66 6f 72 20 6c 45 | 64 69 74 20 63 61 6e 20 |d for lE|dit can |
|000019d0| 62 65 20 73 65 74 20 75 | 73 69 6e 67 20 74 68 65 |be set u|sing the|
|000019e0| 0a 65 6e 76 69 72 6f 6e | 6d 65 6e 74 20 76 61 72 |.environ|ment var|
|000019f0| 69 61 62 6c 65 20 6c 45 | 64 69 74 24 4f 70 74 69 |iable lE|dit$Opti|
|00001a00| 6f 6e 73 2e 20 54 68 65 | 20 6f 70 74 69 6f 6e 73 |ons. The| options|
|00001a10| 20 61 72 65 20 74 68 65 | 20 73 61 6d 65 20 61 73 | are the| same as|
|00001a20| 0a 66 6f 72 20 21 45 64 | 69 74 20 28 73 65 65 20 |.for !Ed|it (see |
|00001a30| 74 68 65 20 27 52 49 53 | 43 20 4f 53 33 20 41 70 |the 'RIS|C OS3 Ap|
|00001a40| 70 6c 69 63 61 74 69 6f | 6e 73 20 47 75 69 64 65 |plicatio|ns Guide|
|00001a50| 27 29 2e 20 41 70 61 72 | 74 20 66 72 6f 6d 0a 74 |'). Apar|t from.t|
|00001a60| 68 61 74 20 79 6f 75 20 | 63 61 6e 20 63 68 61 6e |hat you |can chan|
|00001a70| 67 65 20 6c 45 64 69 74 | 20 69 6e 20 65 76 65 72 |ge lEdit| in ever|
|00001a80| 79 20 77 61 79 20 28 6d | 65 6e 75 20 6c 61 79 6f |y way (m|enu layo|
|00001a90| 75 74 2c 20 6b 65 79 62 | 6f 61 72 64 20 73 68 6f |ut, keyb|oard sho|
|00001aa0| 72 74 63 75 74 73 2c 0a | 64 65 66 61 75 6c 74 20 |rtcuts,.|default |
|00001ab0| 73 65 74 74 69 6e 67 73 | 2c 20 6e 65 77 20 66 75 |settings|, new fu|
|00001ac0| 6e 63 74 69 6f 6e 61 6c | 69 74 79 2c 20 65 74 63 |nctional|ity, etc|
|00001ad0| 2e 29 20 62 79 20 73 69 | 6d 70 6c 79 20 70 61 74 |.) by si|mply pat|
|00001ae0| 63 68 69 6e 67 20 74 68 | 65 20 0a 73 6f 75 72 63 |ching th|e .sourc|
|00001af0| 65 20 63 6f 64 65 2c 20 | 63 6f 6e 74 61 69 6e 65 |e code, |containe|
|00001b00| 64 20 69 6e 20 74 68 65 | 20 27 6c 27 20 64 69 72 |d in the| 'l' dir|
|00001b10| 65 63 74 6f 72 79 20 77 | 69 74 68 69 6e 20 74 68 |ectory w|ithin th|
|00001b20| 65 20 6c 45 64 69 74 0a | 61 70 70 6c 69 63 61 74 |e lEdit.|applicat|
|00001b30| 69 6f 6e 20 64 69 72 65 | 63 74 6f 72 79 2e 20 54 |ion dire|ctory. T|
|00001b40| 68 69 73 20 66 6c 65 78 | 69 62 69 6c 74 79 20 69 |his flex|ibilty i|
|00001b50| 73 20 74 68 65 20 6d 61 | 69 6e 20 61 64 76 61 6e |s the ma|in advan|
|00001b60| 74 61 67 65 20 6f 66 20 | 6c 45 64 69 74 20 0a 6f |tage of |lEdit .o|
|00001b70| 76 65 72 20 6f 74 68 65 | 72 20 65 64 69 74 6f 72 |ver othe|r editor|
|00001b80| 73 2c 20 64 75 65 20 74 | 6f 20 66 61 63 74 20 74 |s, due t|o fact t|
|00001b90| 68 61 74 20 6c 45 64 69 | 74 20 69 73 20 66 75 6c |hat lEdi|t is ful|
|00001ba0| 6c 79 20 70 72 6f 67 72 | 61 6d 61 62 6c 65 20 77 |ly progr|amable w|
|00001bb0| 69 74 68 20 69 74 73 0a | 62 75 69 6c 74 69 6e 20 |ith its.|builtin |
|00001bc0| 4c 69 73 70 20 69 6e 74 | 65 72 70 72 65 74 65 72 |Lisp int|erpreter|
|00001bd0| 2e 20 59 6f 75 20 63 6f | 75 6c 64 20 65 76 65 6e |. You co|uld even|
|00001be0| 20 77 72 69 74 65 20 61 | 20 27 63 6f 6d 70 6c 65 | write a| 'comple|
|00001bf0| 74 65 6c 79 20 6e 65 77 | 20 65 64 69 74 6f 72 27 |tely new| editor'|
|00001c00| 0a 6f 72 20 61 64 64 69 | 74 69 6f 6e 61 6c 20 6d |.or addi|tional m|
|00001c10| 6f 64 65 73 20 77 69 74 | 68 20 73 75 70 70 6f 72 |odes wit|h suppor|
|00001c20| 74 20 66 6f 72 20 6f 74 | 68 65 72 20 70 72 6f 67 |t for ot|her prog|
|00001c30| 72 61 6d 6d 69 6e 67 20 | 6c 61 6e 67 75 61 67 65 |ramming |language|
|00001c40| 73 20 6c 69 6b 65 0a 43 | 2c 20 43 2b 2b 2c 20 50 |s like.C|, C++, P|
|00001c50| 61 73 63 61 6c 2c 20 65 | 74 63 2e 20 0a 0a 54 68 |ascal, e|tc. ..Th|
|00001c60| 65 72 65 20 61 72 65 20 | 73 6f 6d 65 20 73 70 65 |ere are |some spe|
|00001c70| 63 69 61 6c 20 66 6f 72 | 6d 73 20 6c 69 6b 65 20 |cial for|ms like |
|00001c80| 64 65 66 69 6e 65 2c 20 | 64 65 66 75 6e 2c 20 6c |define, |defun, l|
|00001c90| 61 6d 62 64 61 2c 20 6c | 65 74 2c 20 65 74 63 2e |ambda, l|et, etc.|
|00001ca0| 2c 0a 77 68 69 63 68 20 | 68 61 76 65 20 73 70 65 |,.which |have spe|
|00001cb0| 63 69 61 6c 20 69 64 65 | 6e 74 61 74 69 6f 6e 20 |cial ide|ntation |
|00001cc0| 72 75 6c 65 73 2e 20 49 | 66 20 79 6f 75 20 68 61 |rules. I|f you ha|
|00001cd0| 76 65 20 61 64 64 69 74 | 69 6f 6e 61 6c 20 66 6f |ve addit|ional fo|
|00001ce0| 72 6d 73 2c 0a 74 68 61 | 74 20 73 68 6f 75 6c 64 |rms,.tha|t should|
|00001cf0| 20 62 65 20 69 64 65 6e | 74 65 64 20 69 6e 20 61 | be iden|ted in a|
|00001d00| 20 73 70 65 63 69 61 6c | 20 77 61 79 2c 20 79 6f | special| way, yo|
|00001d10| 75 20 63 61 6e 20 64 6f | 20 74 68 69 73 20 62 79 |u can do| this by|
|00001d20| 20 0a 65 78 74 65 6e 64 | 69 6e 67 20 74 68 65 20 | .extend|ing the |
|00001d30| 66 75 6e 63 74 69 6f 6e | 20 27 74 78 74 2d 6c 69 |function| 'txt-li|
|00001d40| 73 70 2d 69 64 65 6e 74 | 2d 68 6f 6f 6b 27 20 6c |sp-ident|-hook' l|
|00001d50| 6f 63 61 74 65 64 20 69 | 6e 20 74 68 65 20 66 69 |ocated i|n the fi|
|00001d60| 6c 65 0a 6c 69 73 70 6d | 6f 64 65 2e 20 45 78 74 |le.lispm|ode. Ext|
|00001d70| 65 6e 73 69 6f 6e 73 20 | 73 68 6f 75 6c 64 20 62 |ensions |should b|
|00001d80| 65 20 73 74 72 61 69 67 | 68 74 66 6f 72 77 61 72 |e straig|htforwar|
|00001d90| 64 2e 20 0a 20 0a 90 03 | 54 68 65 20 4c 69 73 70 |d. . ...|The Lisp|
|00001da0| 20 49 6e 74 65 72 70 72 | 65 74 65 72 3a 0a 2d 90 | Interpr|eter:.-.|
|00001db0| 15 0a 0a 54 68 65 20 62 | 75 69 6c 74 69 6e 20 4c |...The b|uiltin L|
|00001dc0| 69 73 70 20 69 6e 74 65 | 72 70 72 65 74 65 72 20 |isp inte|rpreter |
|00001dd0| 69 73 20 76 65 72 79 20 | 73 69 6d 70 6c 65 20 61 |is very |simple a|
|00001de0| 6e 64 20 73 75 70 70 6f | 72 74 73 0a 6f 6e 6c 79 |nd suppo|rts.only|
|00001df0| 20 74 77 6f 20 64 61 74 | 61 20 74 79 70 65 73 3a | two dat|a types:|
|00001e00| 20 73 74 72 69 6e 67 73 | 20 61 6e 64 20 63 6f 6e | strings| and con|
|00001e10| 73 20 63 65 6c 6c 73 2e | 20 49 6e 74 65 67 65 72 |s cells.| Integer|
|00001e20| 20 61 6e 64 20 66 6c 6f | 61 74 20 6e 75 6d 62 65 | and flo|at numbe|
|00001e30| 72 73 0a 61 72 65 20 72 | 65 70 72 65 73 65 6e 74 |rs.are r|epresent|
|00001e40| 65 64 20 61 73 20 73 74 | 72 69 6e 67 73 2c 20 74 |ed as st|rings, t|
|00001e50| 68 65 72 65 66 6f 72 65 | 20 74 68 65 20 69 6e 74 |herefore| the int|
|00001e60| 65 72 70 72 65 74 65 72 | 20 69 73 20 72 61 74 68 |erpreter| is rath|
|00001e70| 65 72 20 73 6c 6f 77 2e | 0a 54 68 65 20 69 64 65 |er slow.|.The ide|
|00001e80| 61 20 69 73 20 74 6f 20 | 75 73 65 20 74 68 65 20 |a is to |use the |
|00001e90| 69 6e 74 65 72 70 72 65 | 74 65 72 20 61 73 20 61 |interpre|ter as a|
|00001ea0| 6e 20 65 78 74 65 6e 73 | 69 6f 6e 20 6c 61 6e 67 |n extens|ion lang|
|00001eb0| 75 61 67 65 20 61 6e 64 | 0a 74 6f 20 69 6d 70 6c |uage and|.to impl|
|00001ec0| 65 6d 65 6e 74 20 63 6f | 6d 70 75 74 61 74 69 6f |ement co|mputatio|
|00001ed0| 6e 61 6c 20 69 6e 74 65 | 6e 73 69 76 65 20 74 61 |nal inte|nsive ta|
|00001ee0| 73 6b 20 61 73 20 61 64 | 64 69 74 69 6f 6e 61 6c |sk as ad|ditional|
|00001ef0| 20 70 72 69 6d 69 74 69 | 76 65 73 20 69 6e 20 43 | primiti|ves in C|
|00001f00| 2e 0a 54 68 65 20 6e 61 | 6d 69 6e 67 20 63 6f 6e |..The na|ming con|
|00001f10| 76 65 6e 74 69 6f 6e 73 | 20 66 6f 72 20 74 68 65 |ventions| for the|
|00001f20| 20 70 72 69 6d 69 74 69 | 76 65 73 20 61 72 65 20 | primiti|ves are |
|00001f30| 73 69 6d 69 6c 61 72 20 | 74 6f 20 53 63 68 65 6d |similar |to Schem|
|00001f40| 65 2e 0a 42 75 74 20 69 | 74 20 69 73 74 20 6e 6f |e..But i|t ist no|
|00001f50| 74 20 53 63 68 65 6d 65 | 21 20 54 68 65 20 69 6e |t Scheme|! The in|
|00001f60| 74 65 72 70 72 65 74 65 | 72 20 69 73 20 64 79 6e |terprete|r is dyn|
|00001f70| 61 6d 69 63 61 6c 6c 79 | 20 73 63 6f 70 65 64 2c |amically| scoped,|
|00001f80| 20 61 6e 64 0a 6e 6f 20 | 63 6c 6f 73 75 72 65 73 | and.no |closures|
|00001f90| 20 61 6e 64 20 6e 6f 20 | 63 6f 6e 74 69 6e 75 61 | and no |continua|
|00001fa0| 74 69 6f 6e 73 20 61 72 | 65 20 73 75 70 70 6f 72 |tions ar|e suppor|
|00001fb0| 74 65 64 2e 20 54 68 65 | 20 69 6e 74 65 72 70 72 |ted. The| interpr|
|00001fc0| 65 74 65 72 20 69 73 20 | 6e 6f 74 0a 74 61 69 6c |eter is |not.tail|
|00001fd0| 2d 72 65 63 75 72 73 69 | 76 65 21 20 54 68 65 72 |-recursi|ve! Ther|
|00001fe0| 65 20 61 72 65 20 61 64 | 64 69 74 69 6f 6e 61 6c |e are ad|ditional|
|00001ff0| 20 74 79 70 65 73 20 6c | 69 6b 65 20 68 61 73 68 | types l|ike hash|
|00002000| 20 74 61 62 6c 65 73 20 | 6f 72 20 6f 70 61 71 75 | tables |or opaqu|
|00002010| 65 20 0a 74 79 70 65 73 | 20 28 6d 65 6e 75 73 2c |e .types| (menus,|
|00002020| 20 74 65 78 74 20 62 75 | 66 66 65 72 73 2c 20 65 | text bu|ffers, e|
|00002030| 74 63 2e 29 20 77 68 69 | 63 68 20 61 72 65 20 6e |tc.) whi|ch are n|
|00002040| 6f 74 20 66 69 72 73 74 | 20 63 6c 61 73 73 20 61 |ot first| class a|
|00002050| 6e 64 20 27 65 78 69 73 | 74 27 20 0a 6f 6e 6c 79 |nd 'exis|t' .only|
|00002060| 20 62 6f 75 6e 64 20 74 | 6f 20 61 20 73 79 6d 62 | bound t|o a symb|
|00002070| 6f 6c 2e 20 49 66 20 79 | 6f 75 20 77 61 6e 74 20 |ol. If y|ou want |
|00002080| 74 6f 20 70 61 73 73 20 | 61 6e 20 6f 62 6a 65 63 |to pass |an objec|
|00002090| 74 20 6f 66 20 73 75 63 | 68 20 61 20 74 79 70 65 |t of suc|h a type|
|000020a0| 20 74 6f 20 61 20 0a 66 | 75 6e 63 74 69 6f 6e 20 | to a .f|unction |
|000020b0| 6f 72 20 70 72 69 6d 69 | 74 69 76 65 2c 20 79 6f |or primi|tive, yo|
|000020c0| 75 20 68 61 76 65 20 74 | 6f 20 70 61 73 73 20 74 |u have t|o pass t|
|000020d0| 68 65 20 73 79 6d 62 6f | 6c 20 77 68 69 63 68 20 |he symbo|l which |
|000020e0| 74 68 69 73 20 6f 62 6a | 65 63 74 20 0a 69 73 20 |this obj|ect .is |
|000020f0| 62 6f 75 6e 64 20 74 6f | 2e 20 49 66 20 79 6f 75 |bound to|. If you|
|00002100| 20 65 76 61 6c 75 61 74 | 65 20 61 20 73 79 6d 62 | evaluat|e a symb|
|00002110| 6f 6c 20 77 68 69 63 68 | 20 69 73 20 62 6f 75 6e |ol which| is boun|
|00002120| 64 20 74 6f 20 61 6e 20 | 6f 62 6a 65 63 74 20 6f |d to an |object o|
|00002130| 66 0a 73 75 63 68 20 61 | 6e 20 6e 6f 6e 20 66 69 |f.such a|n non fi|
|00002140| 72 73 74 20 63 6c 61 73 | 73 20 74 79 70 65 2c 20 |rst clas|s type, |
|00002150| 69 74 20 65 76 61 6c 75 | 61 74 65 73 20 6e 6f 74 |it evalu|ates not|
|00002160| 20 74 6f 20 69 74 73 20 | 76 61 6c 75 65 2c 20 62 | to its |value, b|
|00002170| 75 74 20 72 61 74 68 65 | 72 20 74 6f 20 0a 69 74 |ut rathe|r to .it|
|00002180| 73 20 6f 77 6e 20 6e 61 | 6d 65 2e 20 49 20 63 61 |s own na|me. I ca|
|00002190| 6c 6c 20 74 68 69 73 20 | 66 6f 72 6d 20 6f 66 20 |ll this |form of |
|000021a0| 65 76 61 6c 75 61 74 69 | 6f 6e 20 27 6e 61 6d 65 |evaluati|on 'name|
|000021b0| 20 65 76 61 6c 75 61 74 | 69 6f 6e 27 20 61 6e 64 | evaluat|ion' and|
|000021c0| 20 0a 74 68 65 20 63 6f | 72 72 65 73 70 6f 6e 64 | .the co|rrespond|
|000021d0| 69 6e 67 20 6e 6f 6e 20 | 66 69 72 73 74 20 63 6c |ing non |first cl|
|000021e0| 61 73 73 20 74 79 70 65 | 73 20 6e 61 6d 65 20 65 |ass type|s name e|
|000021f0| 76 61 6c 75 61 74 69 6f | 6e 20 74 79 70 65 73 2e |valuatio|n types.|
|00002200| 20 0a 54 68 65 20 69 6e | 74 72 6f 64 75 63 74 69 | .The in|troducti|
|00002210| 6f 6e 20 6f 66 20 74 68 | 69 73 20 72 61 74 68 65 |on of th|is rathe|
|00002220| 72 20 73 74 72 61 6e 67 | 65 20 6e 61 6d 65 20 65 |r strang|e name e|
|00002230| 76 61 6c 75 61 74 69 6f | 6e 20 69 73 20 6e 65 63 |valuatio|n is nec|
|00002240| 65 73 73 61 72 79 2c 20 | 61 73 0a 74 68 65 20 69 |essary, |as.the i|
|00002250| 6e 74 65 72 70 72 65 74 | 65 72 20 73 75 70 70 6f |nterpret|er suppo|
|00002260| 72 74 73 20 6f 6e 6c 79 | 20 73 74 72 69 6e 67 73 |rts only| strings|
|00002270| 20 61 6e 64 20 63 6f 6e | 73 20 63 65 6c 6c 73 2e | and con|s cells.|
|00002280| 20 46 75 6e 63 74 69 6f | 6e 73 20 74 68 61 74 0a | Functio|ns that.|
|00002290| 65 78 70 65 63 74 20 6e | 61 6d 65 20 65 76 61 6c |expect n|ame eval|
|000022a0| 75 61 74 69 6f 6e 20 74 | 79 70 65 73 20 66 69 72 |uation t|ypes fir|
|000022b0| 73 74 20 65 76 61 6c 75 | 61 74 65 20 74 68 65 69 |st evalu|ate thei|
|000022c0| 72 20 61 72 67 75 6d 65 | 6e 74 20 69 6e 20 61 20 |r argume|nt in a |
|000022d0| 73 74 61 6e 64 61 72 64 | 0a 77 61 79 20 74 6f 20 |standard|.way to |
|000022e0| 6f 62 74 61 69 6e 20 74 | 68 65 20 73 79 6d 62 6f |obtain t|he symbo|
|000022f0| 6c 20 61 6e 64 20 74 68 | 65 6e 20 61 63 63 65 73 |l and th|en acces|
|00002300| 73 20 74 68 65 20 6e 61 | 6d 65 20 65 76 61 6c 75 |s the na|me evalu|
|00002310| 61 74 69 6f 6e 0a 74 79 | 70 65 20 6f 62 6a 65 63 |ation.ty|pe objec|
|00002320| 74 20 62 6f 75 6e 64 20 | 74 6f 20 74 68 69 73 20 |t bound |to this |
|00002330| 73 79 6d 62 6f 6c 20 69 | 6e 20 61 20 6e 6f 6e 2d |symbol i|n a non-|
|00002340| 73 74 61 6e 64 61 72 64 | 20 77 61 79 2e 20 43 65 |standard| way. Ce|
|00002350| 72 74 61 69 6e 0a 70 72 | 69 6d 69 74 69 76 65 73 |rtain.pr|imitives|
|00002360| 20 68 61 76 65 20 44 79 | 6c 61 6e 20 73 74 79 6c | have Dy|lan styl|
|00002370| 65 20 6b 65 79 77 6f 72 | 64 20 6f 70 74 69 6f 6e |e keywor|d option|
|00002380| 61 6c 20 70 61 72 61 6d | 65 74 65 72 73 0a 28 66 |al param|eters.(f|
|00002390| 6f 72 20 65 78 61 6d 70 | 6c 65 20 66 6f 6f 3a 20 |or examp|le foo: |
|000023a0| 3c 65 78 70 72 3e 29 2e | 20 55 73 65 72 2d 64 65 |<expr>).| User-de|
|000023b0| 66 69 6e 65 64 20 66 75 | 6e 63 74 69 6f 6e 73 20 |fined fu|nctions |
|000023c0| 63 61 6e 20 68 61 76 65 | 20 6f 6e 6c 79 20 0a 27 |can have| only .'|
|000023d0| 6e 6f 72 6d 61 6c 27 20 | 6f 70 74 69 6f 6e 61 6c |normal' |optional|
|000023e0| 20 70 61 72 61 6d 65 74 | 65 72 73 2c 20 77 68 69 | paramet|ers, whi|
|000023f0| 63 68 20 63 61 6e 20 62 | 65 20 64 65 63 6c 61 72 |ch can b|e declar|
|00002400| 65 64 20 77 69 74 68 20 | 74 68 65 20 0a 6b 65 79 |ed with |the .key|
|00002410| 77 6f 72 64 20 27 3a 72 | 65 73 74 27 20 6a 75 73 |word ':r|est' jus|
|00002420| 74 20 62 65 66 6f 72 65 | 20 74 68 65 20 6c 61 73 |t before| the las|
|00002430| 74 20 70 61 72 61 6d 65 | 74 65 72 20 69 6e 20 74 |t parame|ter in t|
|00002440| 68 65 20 70 61 72 61 6d | 65 74 65 72 20 6c 69 73 |he param|eter lis|
|00002450| 74 2e 0a 41 6c 6c 20 61 | 64 64 69 74 69 6f 6e 61 |t..All a|dditiona|
|00002460| 6c 20 76 61 6c 75 65 73 | 20 77 69 6c 6c 20 74 68 |l values| will th|
|00002470| 65 6e 20 62 65 20 70 75 | 74 20 69 6e 20 61 20 6c |en be pu|t in a l|
|00002480| 69 73 74 20 61 6e 64 20 | 62 6f 75 6e 64 20 74 6f |ist and |bound to|
|00002490| 20 0a 74 68 69 73 20 6c | 61 73 74 20 70 61 72 61 | .this l|ast para|
|000024a0| 6d 65 74 65 72 20 63 61 | 6c 6c 65 64 20 72 65 73 |meter ca|lled res|
|000024b0| 74 20 70 61 72 61 6d 65 | 74 65 72 2e 0a 20 90 15 |t parame|ter.. ..|
|000024c0| 0a 90 03 43 6f 6d 6d 61 | 6e 64 20 6c 69 6e 65 20 |...Comma|nd line |
|000024d0| 6f 70 74 69 6f 6e 73 3a | 0a 2d 90 15 0a 0a 54 68 |options:|.-....Th|
|000024e0| 65 20 69 6e 74 65 72 70 | 72 65 74 65 72 20 61 70 |e interp|reter ap|
|000024f0| 70 6c 69 63 61 74 69 6f | 6e 20 69 73 20 63 61 6c |plicatio|n is cal|
|00002500| 6c 65 64 20 27 77 74 6b | 27 20 61 6e 64 20 68 61 |led 'wtk|' and ha|
|00002510| 73 20 74 68 65 20 66 6f | 6c 6c 6f 77 69 6e 67 0a |s the fo|llowing.|
|00002520| 63 6f 6d 6d 61 6e 64 20 | 6c 69 6e 65 20 73 79 6e |command |line syn|
|00002530| 74 61 78 3a 0a 0a 77 74 | 6b 20 5b 2d 6f 70 74 69 |tax:..wt|k [-opti|
|00002540| 6f 6e 73 5d 20 69 6e 66 | 69 6c 65 0a 0a 4f 70 74 |ons] inf|ile..Opt|
|00002550| 69 6f 6e 73 3a 0a 0a 2d | 69 20 20 3a 20 73 74 61 |ions:..-|i  : sta|
|00002560| 72 74 73 20 69 6e 74 65 | 72 61 63 74 69 76 65 20 |rts inte|ractive |
|00002570| 73 65 73 73 69 6f 6e 20 | 72 65 61 64 69 6e 67 20 |session |reading |
|00002580| 69 6e 70 75 74 20 66 72 | 6f 6d 20 3c 73 74 64 69 |input fr|om <stdi|
|00002590| 6e 3e 20 61 6e 64 20 6f | 75 74 70 75 74 0a 20 90 |n> and o|utput. .|
|000025a0| 06 67 6f 69 6e 67 20 74 | 6f 20 3c 73 74 64 6f 75 |.going t|o <stdou|
|000025b0| 74 3e 0a 0a 2d 76 65 72 | 62 6f 73 65 20 3a 20 65 |t>..-ver|bose : e|
|000025c0| 6e 61 62 6c 65 20 76 65 | 72 62 6f 73 65 20 6d 6f |nable ve|rbose mo|
|000025d0| 64 65 20 6f 66 20 74 68 | 65 20 4c 69 73 70 20 69 |de of th|e Lisp i|
|000025e0| 6e 74 65 72 70 72 65 74 | 65 72 0a 0a 2d 74 68 72 |nterpret|er..-thr|
|000025f0| 6f 77 62 61 63 6b 20 3a | 20 75 73 65 73 20 74 68 |owback :| uses th|
|00002600| 65 20 44 44 45 20 74 68 | 72 6f 77 62 61 63 6b 20 |e DDE th|rowback |
|00002610| 6d 65 63 68 61 6e 69 73 | 6d 20 74 6f 20 72 65 70 |mechanis|m to rep|
|00002620| 6f 72 74 20 65 72 72 6f | 72 73 2e 0a 20 90 0d 0a |ort erro|rs.. ...|
|00002630| 2d 70 6f 73 74 6d 6f 72 | 74 65 6d 20 3a 20 65 6e |-postmor|tem : en|
|00002640| 74 65 72 73 20 74 68 65 | 20 62 75 69 6c 74 69 6e |ters the| builtin|
|00002650| 20 64 65 62 75 67 67 65 | 72 20 77 68 65 6e 20 61 | debugge|r when a|
|00002660| 20 66 61 74 61 6c 20 65 | 72 72 6f 72 20 68 61 73 | fatal e|rror has|
|00002670| 0a 20 90 0e 6f 63 63 75 | 72 65 64 20 69 6e 73 74 |. ..occu|red inst|
|00002680| 65 61 64 20 6f 66 20 6c | 65 61 76 69 6e 67 20 74 |ead of l|eaving t|
|00002690| 68 65 20 69 6e 74 65 72 | 70 72 65 74 65 72 20 0a |he inter|preter .|
|000026a0| 0a 2d 61 72 67 73 20 3a | 20 43 6f 6d 6d 61 6e 64 |.-args :| Command|
|000026b0| 20 6c 69 6e 65 20 61 72 | 67 75 6d 65 6e 74 73 20 | line ar|guments |
|000026c0| 66 6f 72 20 74 68 65 20 | 69 6e 74 65 72 70 72 65 |for the |interpre|
|000026d0| 74 65 72 2e 20 54 68 65 | 20 72 65 73 74 20 6f 66 |ter. The| rest of|
|000026e0| 20 0a 20 90 08 74 68 65 | 20 63 6f 6d 6d 61 6e 64 | . ..the| command|
|000026f0| 20 6c 69 6e 65 20 61 72 | 67 73 20 61 72 65 20 70 | line ar|gs are p|
|00002700| 61 73 73 65 64 20 74 6f | 20 74 68 65 20 69 6e 74 |assed to| the int|
|00002710| 65 72 70 72 65 74 65 72 | 20 69 6e 20 0a 20 90 08 |erpreter| in . ..|
|00002720| 61 20 6c 69 73 74 20 77 | 68 69 63 68 20 69 73 20 |a list w|hich is |
|00002730| 62 6f 75 6e 64 20 74 6f | 20 74 68 65 20 73 79 6d |bound to| the sym|
|00002740| 62 6f 6c 20 2a 63 6d 64 | 6c 69 6e 65 2d 61 72 67 |bol *cmd|line-arg|
|00002750| 73 2a 20 0a 0a 2d 68 74 | 73 69 7a 65 20 3a 20 73 |s* ..-ht|size : s|
|00002760| 65 74 20 74 68 65 20 73 | 79 73 74 65 6d 20 68 61 |et the s|ystem ha|
|00002770| 73 68 20 74 61 62 6c 65 | 20 73 69 7a 65 20 28 64 |sh table| size (d|
|00002780| 65 66 61 75 6c 74 3a 20 | 31 38 30 30 29 0a 0a 2d |efault: |1800)..-|
|00002790| 6c 73 74 73 69 7a 65 20 | 3a 20 73 65 74 20 74 68 |lstsize |: set th|
|000027a0| 65 20 6c 6f 63 61 6c 20 | 70 61 72 61 6d 65 74 65 |e local |paramete|
|000027b0| 72 20 73 74 61 63 6b 20 | 73 69 7a 65 20 28 64 65 |r stack |size (de|
|000027c0| 66 61 75 6c 74 3a 20 35 | 30 30 29 0a 20 20 0a 20 |fault: 5|00).  . |
|000027d0| 90 1f 0a 54 68 65 20 69 | 6e 74 65 72 70 72 65 74 |...The i|nterpret|
|000027e0| 65 72 20 75 73 65 73 20 | 74 68 65 20 70 61 74 68 |er uses |the path|
|000027f0| 20 57 54 4b 3a 20 28 73 | 65 74 20 77 69 74 68 20 | WTK: (s|et with |
|00002800| 77 74 6b 24 70 61 74 68 | 29 20 74 6f 20 66 69 6e |wtk$path|) to fin|
|00002810| 64 20 69 74 73 20 66 69 | 6c 65 0a 77 68 65 6e 20 |d its fi|le.when |
|00002820| 6c 6f 61 64 69 6e 67 20 | 66 69 6c 65 73 20 77 69 |loading |files wi|
|00002830| 74 68 20 74 68 65 20 6c | 6f 61 64 20 70 72 69 6d |th the l|oad prim|
|00002840| 69 74 69 76 65 2e 0a 0a | 49 6e 69 74 69 61 6c 69 |itive...|Initiali|
|00002850| 73 61 74 69 6f 6e 20 6f | 66 20 74 68 65 20 69 6e |sation o|f the in|
|00002860| 74 65 72 70 72 65 74 65 | 72 20 61 6e 64 20 74 68 |terprete|r and th|
|00002870| 65 20 61 75 74 6f 6d 61 | 74 69 63 20 6c 6f 61 64 |e automa|tic load|
|00002880| 69 6e 67 20 6f 66 0a 61 | 64 64 69 74 69 6f 6e 61 |ing of.a|dditiona|
|00002890| 6c 20 66 69 6c 65 73 20 | 6f 6e 20 73 74 61 72 74 |l files |on start|
|000028a0| 75 70 20 69 73 20 68 61 | 6e 64 6c 65 64 20 77 69 |up is ha|ndled wi|
|000028b0| 74 68 20 74 68 65 20 27 | 77 74 6b 5f 69 6e 69 74 |th the '|wtk_init|
|000028c0| 27 2c 20 77 68 69 63 68 | 20 6d 75 73 74 0a 62 65 |', which| must.be|
|000028d0| 20 70 72 65 73 65 6e 74 | 2c 20 62 75 74 20 6d 61 | present|, but ma|
|000028e0| 79 20 62 65 20 65 6d 70 | 74 79 2e 20 0a 0a 49 74 |y be emp|ty. ..It|
|000028f0| 20 69 73 20 70 6f 73 73 | 69 62 6c 65 20 74 6f 20 | is poss|ible to |
|00002900| 72 65 67 69 73 74 65 72 | 20 61 20 66 69 6e 61 6c |register| a final|
|00002910| 69 7a 61 74 69 6f 6e 20 | 70 72 6f 63 65 64 75 72 |ization |procedur|
|00002920| 65 2c 20 77 68 69 63 68 | 20 69 73 0a 63 61 6c 6c |e, which| is.call|
|00002930| 65 64 20 62 65 66 6f 72 | 65 20 74 68 65 20 69 6e |ed befor|e the in|
|00002940| 74 65 72 70 72 65 74 65 | 72 20 74 65 72 6d 69 6e |terprete|r termin|
|00002950| 61 74 65 73 20 69 6e 20 | 61 20 6e 6f 72 6d 61 6c |ates in |a normal|
|00002960| 20 77 61 79 20 28 6e 6f | 74 0a 74 68 72 6f 75 67 | way (no|t.throug|
|00002970| 68 20 61 6e 20 65 72 72 | 6f 72 20 6f 72 20 65 78 |h an err|or or ex|
|00002980| 70 6c 69 63 69 74 20 63 | 61 6c 6c 20 74 6f 20 65 |plicit c|all to e|
|00002990| 78 69 74 29 2e 20 0a 41 | 6e 20 65 78 70 72 65 73 |xit). .A|n expres|
|000029a0| 73 69 6f 6e 20 63 61 6e | 20 62 65 20 62 6f 75 6e |sion can| be boun|
|000029b0| 64 20 74 6f 20 74 68 65 | 20 73 79 6d 62 6f 6c 20 |d to the| symbol |
|000029c0| 2a 66 69 6e 61 6c 69 7a | 61 74 69 6f 6e 2a 20 77 |*finaliz|ation* w|
|000029d0| 68 69 63 68 0a 67 65 74 | 73 20 65 76 61 6c 75 61 |hich.get|s evalua|
|000029e0| 74 65 64 20 72 69 67 68 | 74 20 62 65 66 6f 72 65 |ted righ|t before|
|000029f0| 20 74 68 65 20 69 6e 74 | 65 72 70 72 65 74 65 72 | the int|erpreter|
|00002a00| 20 65 78 69 74 73 2e 0a | 90 03 42 72 69 65 66 20 | exits..|..Brief |
|00002a10| 73 75 6d 6d 61 72 79 20 | 6f 66 20 74 68 65 20 62 |summary |of the b|
|00002a20| 75 69 6c 74 69 6e 20 70 | 72 69 6d 69 74 69 76 65 |uiltin p|rimitive|
|00002a30| 73 3a 0a 2d 90 28 0a 0a | 54 68 65 20 66 6f 6c 6c |s:.-.(..|The foll|
|00002a40| 6f 77 69 6e 67 20 6e 6f | 74 61 74 69 6f 6e 73 20 |owing no|tations |
|00002a50| 61 72 65 20 75 73 65 64 | 20 66 6f 72 20 74 68 65 |are used| for the|
|00002a60| 20 73 75 6d 6d 61 72 79 | 3a 0a 0a 3c 2e 2e 3e 20 | summary|:..<..> |
|00002a70| 3a 20 72 65 71 75 69 72 | 65 64 20 65 78 70 72 65 |: requir|ed expre|
|00002a80| 73 73 69 6f 6e 20 77 68 | 69 63 68 20 65 76 61 6c |ssion wh|ich eval|
|00002a90| 75 61 74 65 73 20 74 6f | 20 67 69 76 65 6e 20 74 |uates to| given t|
|00002aa0| 79 70 65 0a 5b 2e 2e 5d | 20 3a 20 6f 70 74 69 6f |ype.[..]| : optio|
|00002ab0| 6e 61 6c 20 65 78 70 72 | 65 73 73 69 6f 6e 20 77 |nal expr|ession w|
|00002ac0| 68 69 63 68 20 65 76 61 | 6c 75 61 74 65 73 20 74 |hich eva|luates t|
|00002ad0| 6f 20 67 69 76 65 6e 20 | 74 79 70 65 0a 65 78 70 |o given |type.exp|
|00002ae0| 72 20 3a 20 61 72 62 69 | 74 72 61 72 79 20 6c 69 |r : arbi|trary li|
|00002af0| 73 70 20 65 78 70 72 65 | 73 73 69 6f 6e 0a 63 68 |sp expre|ssion.ch|
|00002b00| 61 72 20 3a 20 63 68 61 | 72 61 63 74 65 72 20 63 |ar : cha|racter c|
|00002b10| 6f 6e 73 74 61 6e 74 20 | 6c 69 6b 65 20 23 5c 41 |onstant |like #\A|
|00002b20| 2c 20 23 5c 5c 6e 20 28 | 6e 65 77 6c 69 6e 65 29 |, #\\n (|newline)|
|00002b30| 20 65 74 63 2e 0a 73 74 | 72 69 6e 67 20 3a 20 22 | etc..st|ring : "|
|00002b40| 41 20 6c 69 73 70 20 73 | 74 72 69 6e 67 22 0a 69 |A lisp s|tring".i|
|00002b50| 6e 74 20 90 04 3a 20 69 | 6e 74 65 67 65 72 20 6e |nt ..: i|nteger n|
|00002b60| 75 6d 62 65 72 2c 20 6c | 69 6b 65 20 30 2c 20 2d |umber, l|ike 0, -|
|00002b70| 35 30 31 2c 20 23 78 66 | 90 03 20 28 68 65 78 29 |501, #xf|.. (hex)|
|00002b80| 2c 20 0a 20 90 09 23 6f | 31 35 20 28 6f 63 74 61 |, . ..#o|15 (octa|
|00002b90| 6c 29 2c 20 6f 72 20 63 | 68 61 72 20 63 6f 6e 73 |l), or c|har cons|
|00002ba0| 74 61 6e 74 20 23 5c 41 | 2c 20 23 5c 5c 6e 20 28 |tant #\A|, #\\n (|
|00002bb0| 6e 65 77 6c 69 6e 65 29 | 20 65 74 63 2e 20 0a 66 |newline)| etc. .f|
|00002bc0| 6c 6f 61 74 20 20 3a 20 | 66 6c 6f 61 74 69 6e 67 |loat  : |floating|
|00002bd0| 20 70 6f 69 6e 74 20 6e | 75 6d 62 65 72 20 6c 69 | point n|umber li|
|00002be0| 6b 65 20 31 2e 30 33 34 | 2c 20 35 2e 37 36 65 2d |ke 1.034|, 5.76e-|
|00002bf0| 35 2c 20 65 74 63 2e 0a | 6e 75 6d 62 65 72 20 3a |5, etc..|number :|
|00002c00| 20 66 6c 6f 61 74 20 6e | 75 6d 62 65 72 20 6f 72 | float n|umber or|
|00002c10| 20 69 6e 74 65 67 65 72 | 20 6e 75 6d 62 65 72 0a | integer| number.|
|00002c20| 73 79 6d 62 6f 6c 20 3a | 20 61 6e 79 20 76 61 6c |symbol :| any val|
|00002c30| 69 64 20 6c 69 73 70 20 | 73 79 6d 62 6f 6c 0a 68 |id lisp |symbol.h|
|00002c40| 61 73 68 74 61 62 6c 65 | 20 3a 20 68 61 73 68 20 |ashtable| : hash |
|00002c50| 74 61 62 6c 65 20 28 6f | 70 61 71 75 65 20 74 79 |table (o|paque ty|
|00002c60| 70 65 21 2c 20 6e 61 6d | 65 20 65 76 61 6c 75 61 |pe!, nam|e evalua|
|00002c70| 74 69 6f 6e 21 29 0a 74 | 78 74 20 90 04 3a 20 74 |tion!).t|xt ..: t|
|00002c80| 65 78 74 20 65 64 69 74 | 20 62 75 66 66 65 72 20 |ext edit| buffer |
|00002c90| 28 6f 70 61 71 75 65 20 | 74 79 70 65 21 2c 20 6e |(opaque |type!, n|
|00002ca0| 61 6d 65 20 65 76 61 6c | 75 61 74 69 6f 6e 21 29 |ame eval|uation!)|
|00002cb0| 0a 6d 65 6e 75 20 90 03 | 3a 20 6d 65 6e 75 20 73 |.menu ..|: menu s|
|00002cc0| 74 72 75 63 74 20 90 06 | 28 6f 70 61 71 75 65 20 |truct ..|(opaque |
|00002cd0| 74 79 70 65 21 2c 20 6e | 61 6d 65 20 65 76 61 6c |type!, n|ame eval|
|00002ce0| 75 61 74 69 6f 6e 21 29 | 0a 64 62 6f 78 20 90 03 |uation!)|.dbox ..|
|00002cf0| 3a 20 64 62 6f 78 20 73 | 74 72 75 63 74 20 90 06 |: dbox s|truct ..|
|00002d00| 28 6f 70 61 71 75 65 20 | 74 79 70 65 21 2c 20 6e |(opaque |type!, n|
|00002d10| 61 6d 65 20 65 76 61 6c | 75 61 74 69 6f 6e 21 29 |ame eval|uation!)|
|00002d20| 0a 65 78 70 72 2d 73 65 | 71 75 65 6e 63 65 20 3a |.expr-se|quence :|
|00002d30| 20 61 20 73 65 71 75 65 | 6e 63 65 20 6f 66 20 76 | a seque|nce of v|
|00002d40| 61 6c 69 64 20 6c 69 73 | 70 20 65 78 70 72 65 73 |alid lis|p expres|
|00002d50| 73 69 6f 6e 73 0a 20 0a | 0a 3b 90 03 20 6b 65 72 |sions. .|.;.. ker|
|00002d60| 6e 65 6c 20 70 72 69 6d | 69 74 69 76 65 73 0a 0a |nel prim|itives..|
|00002d70| 3b 3b 20 6c 6f 61 64 73 | 20 61 20 6c 69 73 70 20 |;; loads| a lisp |
|00002d80| 73 6f 75 72 63 65 20 66 | 69 6c 65 20 61 6e 64 20 |source f|ile and |
|00002d90| 65 76 61 6c 75 61 74 65 | 73 20 69 74 73 20 63 6f |evaluate|s its co|
|00002da0| 6e 74 65 6e 74 2e 0a 3b | 3b 20 72 65 74 75 72 6e |ntent..;|; return|
|00002db0| 73 20 66 69 6c 65 20 6e | 61 6d 65 20 6f 66 20 6c |s file n|ame of l|
|00002dc0| 6f 61 64 65 64 20 66 69 | 6c 65 0a 28 6c 6f 61 64 |oaded fi|le.(load|
|00002dd0| 20 3c 73 74 72 69 6e 67 | 3e 29 20 90 14 0a 0a 3b | <string|>) ....;|
|00002de0| 3b 20 6c 69 6b 65 20 6c | 6f 61 64 2c 20 62 75 74 |; like l|oad, but|
|00002df0| 20 61 20 66 69 6c 65 20 | 69 73 20 6f 6e 6c 79 20 | a file |is only |
|00002e00| 6c 6f 61 64 65 64 20 6f | 6e 63 65 2e 0a 3b 3b 20 |loaded o|nce..;; |
|00002e10| 72 65 74 75 72 6e 73 20 | 66 69 6c 65 20 6e 61 6d |returns |file nam|
|00002e20| 65 20 6f 66 20 6c 6f 61 | 64 65 64 20 66 69 6c 65 |e of loa|ded file|
|00002e30| 20 6f 72 20 6e 69 6c 20 | 69 66 20 66 69 6c 65 20 | or nil |if file |
|00002e40| 69 73 20 61 6c 72 65 61 | 64 79 20 6c 6f 61 64 65 |is alrea|dy loade|
|00002e50| 64 0a 28 75 73 65 20 3c | 73 74 72 69 6e 67 3e 29 |d.(use <|string>)|
|00002e60| 0a 0a 3b 3b 20 65 6e 74 | 65 72 73 20 74 68 65 20 |..;; ent|ers the |
|00002e70| 62 75 69 6c 74 69 6e 20 | 73 74 72 69 6e 67 20 61 |builtin |string a|
|00002e80| 6e 64 20 70 72 69 6e 74 | 73 20 61 6e 64 20 70 72 |nd print|s and pr|
|00002e90| 69 6e 74 73 20 6f 70 74 | 69 6f 6e 61 6c 6c 79 0a |ints opt|ionally.|
|00002ea0| 3b 3b 20 61 20 6d 65 73 | 73 61 67 65 2e 20 72 65 |;; a mes|sage. re|
|00002eb0| 74 75 72 6e 73 20 6e 69 | 6c 0a 28 64 65 62 75 67 |turns ni|l.(debug|
|00002ec0| 20 5b 73 74 72 69 6e 67 | 5d 29 0a 0a 3b 3b 20 73 | [string|])..;; s|
|00002ed0| 74 61 6e 64 61 72 64 20 | 6c 69 73 70 20 70 72 69 |tandard |lisp pri|
|00002ee0| 6d 69 74 69 76 65 0a 28 | 71 75 6f 74 65 20 3c 65 |mitive.(|quote <e|
|00002ef0| 78 70 72 3e 29 0a 0a 3b | 3b 20 73 74 61 6e 64 61 |xpr>)..;|; standa|
|00002f00| 72 64 20 6c 69 73 70 20 | 70 72 69 6d 69 74 69 76 |rd lisp |primitiv|
|00002f10| 65 0a 28 71 75 61 73 69 | 71 75 6f 74 65 20 3c 65 |e.(quasi|quote <e|
|00002f20| 78 70 72 3e 29 20 90 07 | 0a 20 90 0d 0a 3b 3b 20 |xpr>) ..|. ...;; |
|00002f30| 65 78 69 74 73 20 74 68 | 65 20 69 6e 74 65 72 70 |exits th|e interp|
|00002f40| 72 65 74 65 72 20 72 65 | 74 75 72 6e 69 6e 67 20 |reter re|turning |
|00002f50| 6f 70 74 69 6f 6e 61 6c | 6c 79 20 61 6e 20 65 72 |optional|ly an er|
|00002f60| 72 6f 72 20 63 6f 64 65 | 0a 28 65 78 69 74 20 5b |ror code|.(exit [|
|00002f70| 69 6e 74 5d 29 0a 0a 3b | 3b 20 65 76 61 6c 75 61 |int])..;|; evalua|
|00002f80| 74 65 73 20 74 68 65 20 | 65 78 70 72 65 73 73 69 |tes the |expressi|
|00002f90| 6f 6e 20 69 6e 20 74 68 | 65 20 63 75 72 72 65 6e |on in th|e curren|
|00002fa0| 74 20 65 6e 76 69 72 6f | 6e 6d 65 6e 74 0a 28 65 |t enviro|nment.(e|
|00002fb0| 76 61 6c 20 3c 65 78 70 | 72 3e 29 0a 0a 3b 3b 20 |val <exp|r>)..;; |
|00002fc0| 62 69 6e 64 73 20 61 20 | 6e 65 77 20 76 61 6c 75 |binds a |new valu|
|00002fd0| 65 20 74 6f 20 73 79 6d | 62 6f 6c 20 28 61 73 73 |e to sym|bol (ass|
|00002fe0| 69 67 6e 6d 65 6e 74 29 | 0a 3b 3b 20 72 65 74 75 |ignment)|.;; retu|
|00002ff0| 72 6e 73 20 6e 65 77 20 | 76 61 6c 75 65 0a 28 73 |rns new |value.(s|
|00003000| 65 74 21 20 73 79 6d 62 | 6f 6c 20 3c 65 78 70 72 |et! symb|ol <expr|
|00003010| 3e 29 0a 0a 3b 3b 20 6c | 69 6b 65 20 73 65 74 21 |>)..;; l|ike set!|
|00003020| 20 62 75 74 20 66 69 72 | 73 74 20 61 72 67 75 6d | but fir|st argum|
|00003030| 65 6e 74 20 69 73 20 61 | 6c 73 6f 20 65 76 61 6c |ent is a|lso eval|
|00003040| 75 61 74 65 64 20 0a 28 | 73 65 74 2d 65 76 61 6c |uated .(|set-eval|
|00003050| 21 20 3c 73 79 6d 62 6f | 6c 3e 20 3c 65 78 70 72 |! <symbo|l> <expr|
|00003060| 3e 29 20 90 04 0a 0a 3b | 3b 20 65 76 61 6c 75 61 |>) ....;|; evalua|
|00003070| 74 65 73 20 65 61 63 68 | 20 65 78 70 72 65 73 73 |tes each| express|
|00003080| 69 6f 6e 20 69 6e 20 74 | 68 65 20 73 65 71 75 65 |ion in t|he seque|
|00003090| 6e 63 65 20 69 6e 20 74 | 75 72 6e 0a 3b 3b 20 72 |nce in t|urn.;; r|
|000030a0| 65 74 75 72 6e 73 20 74 | 68 65 20 76 61 6c 75 65 |eturns t|he value|
|000030b0| 20 6f 66 20 74 68 65 20 | 6c 61 73 74 20 65 78 70 | of the |last exp|
|000030c0| 72 65 73 73 69 6f 6e 0a | 28 62 65 67 69 6e 20 3c |ression.|(begin <|
|000030d0| 65 78 70 72 2d 73 65 71 | 75 65 6e 63 65 3e 29 20 |expr-seq|uence>) |
|000030e0| 90 14 0a 0a 3b 3b 20 65 | 76 61 6c 75 61 74 65 73 |....;; e|valuates|
|000030f0| 20 74 68 65 20 65 78 70 | 72 65 73 73 69 6f 6e 20 | the exp|ression |
|00003100| 73 65 71 75 65 6e 63 65 | 20 61 73 20 6c 6f 6e 67 |sequence| as long|
|00003110| 20 61 73 20 63 6f 6e 64 | 69 74 69 6f 6e 0a 3b 3b | as cond|ition.;;|
|00003120| 20 69 73 20 74 72 75 65 | 2e 20 72 65 74 75 72 6e | is true|. return|
|00003130| 73 20 74 68 65 20 76 61 | 6c 75 65 20 6f 66 20 74 |s the va|lue of t|
|00003140| 68 65 20 6c 61 73 74 20 | 65 78 70 72 65 73 73 69 |he last |expressi|
|00003150| 6f 6e 20 65 76 61 6c 75 | 61 74 65 64 20 0a 28 77 |on evalu|ated .(w|
|00003160| 68 69 6c 65 20 3c 63 6f | 6e 64 69 74 69 6f 6e 2d |hile <co|ndition-|
|00003170| 65 78 70 72 3e 20 3c 65 | 78 70 72 2d 73 65 71 75 |expr> <e|xpr-sequ|
|00003180| 65 6e 63 65 3e 29 0a 0a | 3b 3b 20 63 72 65 61 74 |ence>)..|;; creat|
|00003190| 65 73 20 61 6e 64 20 69 | 6e 69 74 69 61 6c 69 7a |es and i|nitializ|
|000031a0| 65 73 20 6e 65 77 20 6c | 6f 63 61 6c 20 73 79 6d |es new l|ocal sym|
|000031b0| 62 6f 6c 20 66 6f 72 20 | 74 68 65 20 0a 3b 3b 20 |bol for |the .;; |
|000031c0| 65 78 74 65 6e 74 20 6f | 66 20 74 68 65 20 6c 65 |extent o|f the le|
|000031d0| 74 20 63 6f 6d 6d 61 6e | 64 0a 3b 3b 20 74 68 65 |t comman|d.;; the|
|000031e0| 20 73 65 6d 61 6e 74 69 | 63 20 6f 66 20 6c 65 74 | semanti|c of let|
|000031f0| 20 69 73 20 73 69 6d 69 | 6c 61 72 20 74 6f 20 74 | is simi|lar to t|
|00003200| 68 65 20 73 65 6d 61 6e | 74 69 63 20 6f 66 20 6c |he seman|tic of l|
|00003210| 65 74 2a 20 20 0a 3b 3b | 20 69 6e 20 73 63 68 65 |et*  .;;| in sche|
|00003220| 6d 65 20 90 23 0a 28 6c | 65 74 20 28 28 73 79 6d |me .#.(l|et ((sym|
|00003230| 62 6f 6c 3c 31 3e 20 3c | 65 78 70 72 3e 29 20 2e |bol<1> <|expr>) .|
|00003240| 90 03 20 28 73 79 6d 62 | 6f 6c 3c 6e 3e 20 3c 65 |.. (symb|ol<n> <e|
|00003250| 78 70 72 3e 29 29 0a 20 | 20 3c 65 78 70 72 65 73 |xpr>)). | <expres|
|00003260| 73 69 6f 6e 2d 73 65 71 | 75 65 6e 63 65 3e 29 0a |sion-seq|uence>).|
|00003270| 20 90 16 0a 3b 3b 20 70 | 72 69 6e 74 73 20 65 78 | ...;; p|rints ex|
|00003280| 70 72 65 73 73 69 6f 6e | 73 20 74 6f 20 73 74 64 |pression|s to std|
|00003290| 6f 75 74 0a 28 70 72 69 | 6e 74 20 3c 65 78 70 72 |out.(pri|nt <expr|
|000032a0| 2d 73 65 71 75 65 6e 63 | 65 3e 29 0a 0a 3b 3b 20 |-sequenc|e>)..;; |
|000032b0| 64 65 66 69 6e 65 73 20 | 61 20 6e 65 77 20 74 6f |defines |a new to|
|000032c0| 70 6c 65 76 65 6c 20 73 | 79 6d 62 6f 6c 20 62 69 |plevel s|ymbol bi|
|000032d0| 6e 64 69 6e 67 20 0a 28 | 64 65 66 69 6e 65 20 73 |nding .(|define s|
|000032e0| 79 6d 62 6f 6c 20 3c 65 | 78 70 72 3e 29 20 90 12 |ymbol <e|xpr>) ..|
|000032f0| 0a 0a 3b 3b 20 64 65 66 | 69 6e 65 73 20 61 20 6e |..;; def|ines a n|
|00003300| 65 77 20 74 6f 70 6c 65 | 76 65 6c 20 66 75 6e 63 |ew tople|vel func|
|00003310| 74 69 6f 6e 0a 28 64 65 | 66 69 6e 65 20 28 73 79 |tion.(de|fine (sy|
|00003320| 6d 62 6f 6c 20 3c 70 61 | 72 61 6d 65 74 65 72 2d |mbol <pa|rameter-|
|00003330| 6c 69 73 74 3e 29 20 3c | 65 78 70 72 2d 6c 69 73 |list>) <|expr-lis|
|00003340| 74 3e 29 0a 0a 3b 3b 20 | 64 65 66 69 6e 65 20 61 |t>)..;; |define a|
|00003350| 6e 20 61 6e 6f 6e 79 6d | 6f 75 73 20 66 75 6e 63 |n anonym|ous func|
|00003360| 74 69 6f 6e 0a 28 6c 61 | 6d 62 64 61 20 28 3c 70 |tion.(la|mbda (<p|
|00003370| 61 72 61 6d 65 74 65 72 | 2d 6c 69 73 74 3e 29 20 |arameter|-list>) |
|00003380| 3c 65 78 70 72 2d 73 65 | 71 75 65 6e 63 65 3e 29 |<expr-se|quence>)|
|00003390| 0a 0a 3b 3b 20 64 65 66 | 69 6e 65 73 20 61 20 6d |..;; def|ines a m|
|000033a0| 61 63 72 6f 2e 20 61 20 | 6d 61 63 72 6f 20 69 73 |acro. a |macro is|
|000033b0| 20 6c 69 6b 65 20 61 20 | 66 75 6e 63 74 69 6f 6e | like a |function|
|000033c0| 20 62 75 74 20 67 65 74 | 73 20 0a 3b 3b 20 69 74 | but get|s .;; it|
|000033d0| 73 20 61 72 67 75 6d 65 | 6e 74 73 20 75 6e 65 76 |s argume|nts unev|
|000033e0| 61 6c 75 61 74 65 64 0a | 28 64 65 66 69 6e 65 2d |aluated.|(define-|
|000033f0| 73 79 6e 74 61 78 20 73 | 79 6d 62 6f 6c 20 28 3c |syntax s|ymbol (<|
|00003400| 70 61 72 61 6d 65 74 65 | 72 2d 6c 69 73 74 3e 29 |paramete|r-list>)|
|00003410| 20 3c 65 78 70 72 2d 73 | 65 71 75 65 6e 63 65 3e | <expr-s|equence>|
|00003420| 29 0a 20 90 21 0a 3b 90 | 03 20 6c 69 73 74 20 6d |). .!.;.|. list m|
|00003430| 61 6e 69 70 75 6c 61 74 | 69 6f 6e 20 70 72 69 6d |anipulat|ion prim|
|00003440| 69 74 69 76 65 73 20 0a | 20 90 21 0a 28 63 61 72 |itives .| .!.(car|
|00003450| 20 3c 6c 69 73 74 3e 29 | 20 90 0f 3b 20 63 61 72 | <list>)| ..; car|
|00003460| 20 6f 66 20 6c 69 73 74 | 0a 28 63 64 72 20 3c 6c | of list|.(cdr <l|
|00003470| 69 73 74 3e 29 20 90 0f | 3b 20 63 64 72 20 6f 66 |ist>) ..|; cdr of|
|00003480| 20 6c 69 73 74 0a 28 63 | 6f 6e 73 20 3c 65 78 70 | list.(c|ons <exp|
|00003490| 72 3e 20 3c 6c 69 73 74 | 3e 29 20 90 07 3b 20 63 |r> <list|>) ..; c|
|000034a0| 6f 6e 73 20 65 78 70 72 | 20 61 74 20 68 65 61 64 |ons expr| at head|
|000034b0| 20 6f 66 20 6c 69 73 74 | 0a 0a 3b 3b 20 61 70 70 | of list|..;; app|
|000034c0| 65 6e 64 73 20 6c 69 73 | 74 73 20 74 6f 67 65 74 |ends lis|ts toget|
|000034d0| 68 65 72 2e 20 74 68 65 | 20 6c 61 73 74 20 61 72 |her. the| last ar|
|000034e0| 67 75 6d 65 6e 74 20 63 | 61 6e 20 62 65 20 61 0a |gument c|an be a.|
|000034f0| 3b 3b 20 6c 69 73 74 20 | 6f 72 20 61 6e 79 20 76 |;; list |or any v|
|00003500| 61 6c 69 64 20 65 78 70 | 72 65 73 73 69 6f 6e 0a |alid exp|ression.|
|00003510| 28 61 70 70 65 6e 64 20 | 3c 6c 69 73 74 3e 20 3c |(append |<list> <|
|00003520| 6c 69 73 74 3e 20 2e 90 | 03 20 3c 6c 69 73 74 2f |list> ..|. <list/|
|00003530| 65 78 70 72 3e 29 20 20 | 0a 20 90 0b 0a 28 6c 69 |expr>)  |. ...(li|
|00003540| 73 74 20 3c 65 78 70 72 | 2d 73 65 71 75 65 6e 63 |st <expr|-sequenc|
|00003550| 65 3e 29 20 90 05 3b 20 | 62 75 69 6c 64 20 6c 69 |e>) ..; |build li|
|00003560| 73 74 20 66 72 6f 6d 20 | 65 78 70 72 65 73 73 69 |st from |expressi|
|00003570| 6f 6e 20 73 65 71 75 65 | 6e 63 65 0a 20 90 29 0a |on seque|nce. .).|
|00003580| 3b 3b 20 67 65 74 20 74 | 68 65 20 65 6c 65 6d 65 |;; get t|he eleme|
|00003590| 6e 74 20 69 6e 20 61 20 | 6c 69 73 74 20 61 74 20 |nt in a |list at |
|000035a0| 70 6f 73 69 74 69 6f 6e | 20 3c 69 6e 74 65 67 65 |position| <intege|
|000035b0| 72 3e 0a 28 6c 69 73 74 | 2d 72 65 66 20 3c 6c 69 |r>.(list|-ref <li|
|000035c0| 73 74 3e 20 3c 69 6e 74 | 65 67 65 72 3e 29 20 90 |st> <int|eger>) .|
|000035d0| 0a 0a 0a 3b 3b 20 69 6e | 73 65 72 74 20 65 6c 65 |...;; in|sert ele|
|000035e0| 6d 65 6e 74 20 69 6e 20 | 6c 69 73 74 20 61 66 74 |ment in |list aft|
|000035f0| 65 72 20 70 6f 73 69 74 | 69 6f 6e 20 3c 69 6e 74 |er posit|ion <int|
|00003600| 65 67 65 72 3e 0a 3b 3b | 20 64 65 73 74 72 75 63 |eger>.;;| destruc|
|00003610| 74 69 76 65 20 6f 70 65 | 72 61 74 69 6f 6e 0a 28 |tive ope|ration.(|
|00003620| 6c 69 73 74 2d 69 6e 73 | 65 72 74 21 20 3c 6c 69 |list-ins|ert! <li|
|00003630| 73 74 3e 20 3c 69 6e 74 | 65 67 65 72 3e 20 3c 65 |st> <int|eger> <e|
|00003640| 78 70 72 3e 29 20 0a 20 | 20 0a 3b 3b 20 72 65 74 |xpr>) . | .;; ret|
|00003650| 75 72 6e 73 20 74 68 65 | 20 6c 65 6e 67 74 68 20 |urns the| length |
|00003660| 6f 66 20 61 20 6c 69 73 | 74 20 6f 72 20 73 79 6d |of a lis|t or sym|
|00003670| 62 6f 6c 20 6f 72 20 73 | 74 72 69 6e 67 0a 28 6c |bol or s|tring.(l|
|00003680| 65 6e 67 74 68 20 3c 65 | 78 70 72 3e 29 20 0a 20 |ength <e|xpr>) . |
|00003690| 90 0b 0a 3b 3b 20 73 74 | 61 6e 64 61 72 64 20 6c |...;; st|andard l|
|000036a0| 69 73 70 20 70 72 69 6d | 69 74 69 76 65 0a 28 69 |isp prim|itive.(i|
|000036b0| 66 20 3c 63 6f 6e 64 2d | 65 78 70 72 3e 20 3c 74 |f <cond-|expr> <t|
|000036c0| 68 65 6e 2d 65 78 70 72 | 3e 20 5b 65 6c 73 65 2d |hen-expr|> [else-|
|000036d0| 65 78 70 72 5d 29 0a 0a | 3b 3b 20 73 74 61 6e 64 |expr])..|;; stand|
|000036e0| 61 72 64 20 6c 69 73 70 | 20 70 72 69 6d 69 74 69 |ard lisp| primiti|
|000036f0| 76 65 0a 3b 3b 20 63 6f | 72 72 65 73 70 6f 6e 64 |ve.;; co|rrespond|
|00003700| 73 20 74 6f 20 61 6e 20 | 27 69 66 2d 74 68 65 6e |s to an |'if-then|
|00003710| 2d 65 6c 73 69 66 2d 65 | 6c 73 65 27 20 63 6f 6e |-elsif-e|lse' con|
|00003720| 73 74 72 75 63 74 20 69 | 6e 0a 3b 3b 20 6f 74 68 |struct i|n.;; oth|
|00003730| 65 72 20 70 72 6f 63 65 | 64 75 72 61 6c 20 6c 61 |er proce|dural la|
|00003740| 6e 67 75 61 67 65 73 0a | 28 63 6f 6e 64 20 28 3c |nguages.|(cond (<|
|00003750| 63 6f 6e 64 2d 65 78 70 | 72 3e 20 3c 65 78 70 72 |cond-exp|r> <expr|
|00003760| 2d 73 65 71 75 65 6e 63 | 65 3e 29 20 2e 90 04 0a |-sequenc|e>) ....|
|00003770| 20 90 06 5b 28 65 6c 73 | 65 20 3c 65 78 70 72 2d | ..[(els|e <expr-|
|00003780| 73 65 71 75 65 6e 63 65 | 3e 29 5d 29 0a 0a 3b 3b |sequence|>)])..;;|
|00003790| 20 6c 6f 67 69 63 61 6c | 20 6f 70 65 72 61 74 6f | logical| operato|
|000037a0| 72 73 0a 28 6e 6f 74 20 | 3c 65 78 70 72 3e 29 20 |rs.(not |<expr>) |
|000037b0| 90 0e 3b 20 6c 6f 67 69 | 63 61 6c 20 6e 6f 74 0a |..; logi|cal not.|
|000037c0| 28 61 6e 64 20 3c 65 78 | 70 72 3e 20 2e 90 03 20 |(and <ex|pr> ... |
|000037d0| 3c 65 78 70 72 3e 29 20 | 90 03 3b 20 6c 6f 67 69 |<expr>) |..; logi|
|000037e0| 63 61 6c 20 61 6e 64 0a | 28 6f 72 20 3c 65 78 70 |cal and.|(or <exp|
|000037f0| 72 3e 20 2e 90 03 20 3c | 65 78 70 72 3e 29 20 90 |r> ... <|expr>) .|
|00003800| 04 3b 20 6c 6f 67 69 63 | 61 6c 20 6f 72 0a 20 0a |.; logic|al or. .|
|00003810| 3b 3b 20 62 69 74 77 69 | 73 65 20 61 6e 64 20 6f |;; bitwi|se and o|
|00003820| 70 65 72 61 74 69 6f 6e | 0a 28 62 69 74 2d 61 6e |peration|.(bit-an|
|00003830| 64 20 3c 69 6e 74 65 67 | 65 72 3e 20 2e 90 03 20 |d <integ|er> ... |
|00003840| 3c 69 6e 74 65 67 65 72 | 3e 29 0a 0a 3b 3b 20 62 |<integer|>)..;; b|
|00003850| 69 74 77 69 73 65 20 6f | 72 20 6f 70 65 72 61 74 |itwise o|r operat|
|00003860| 69 6f 6e 0a 28 62 69 74 | 2d 6f 72 20 3c 69 6e 74 |ion.(bit|-or <int|
|00003870| 65 67 65 72 3e 20 2e 90 | 03 20 3c 69 6e 74 65 67 |eger> ..|. <integ|
|00003880| 65 72 3e 29 0a 0a 3b 3b | 20 61 72 69 74 68 6d 65 |er>)..;;| arithme|
|00003890| 74 69 63 20 6f 70 65 72 | 61 74 69 6f 6e 73 0a 28 |tic oper|ations.(|
|000038a0| 2b 20 3c 6e 75 6d 62 65 | 72 3e 20 2e 90 03 20 3c |+ <numbe|r> ... <|
|000038b0| 6e 75 6d 62 65 72 3e 29 | 20 3b 20 61 64 64 69 74 |number>)| ; addit|
|000038c0| 69 6f 6e 0a 28 2a 20 3c | 6e 75 6d 62 65 72 3e 20 |ion.(* <|number> |
|000038d0| 2e 90 03 20 3c 6e 75 6d | 62 65 72 3e 29 20 3b 20 |... <num|ber>) ; |
|000038e0| 6d 75 6c 74 69 70 6c 69 | 63 61 74 69 6f 6e 0a 28 |multipli|cation.(|
|000038f0| 2d 20 3c 6e 75 6d 62 65 | 72 3e 20 2e 90 03 20 3c |- <numbe|r> ... <|
|00003900| 6e 75 6d 62 65 72 3e 29 | 20 3b 20 73 75 62 74 72 |number>)| ; subtr|
|00003910| 61 63 74 69 6f 6e 0a 28 | 2f 20 3c 6e 75 6d 62 65 |action.(|/ <numbe|
|00003920| 72 3e 20 2e 90 03 20 3c | 6e 75 6d 62 65 72 3e 29 |r> ... <|number>)|
|00003930| 20 3b 20 64 69 76 69 73 | 69 6f 6e 0a 28 64 69 76 | ; divis|ion.(div|
|00003940| 20 3c 6e 75 6d 62 65 72 | 3e 20 3c 6e 75 6d 62 65 | <number|> <numbe|
|00003950| 72 3e 29 20 90 03 3b 20 | 69 6e 74 65 67 65 72 20 |r>) ..; |integer |
|00003960| 64 69 76 69 73 6f 6e 0a | 28 6d 6f 64 20 3c 6e 75 |divison.|(mod <nu|
|00003970| 6d 62 65 72 3e 20 3c 6e | 75 6d 62 65 72 3e 29 20 |mber> <n|umber>) |
|00003980| 90 03 3b 20 72 65 6d 61 | 69 6e 64 65 72 20 6f 66 |..; rema|inder of|
|00003990| 20 64 69 76 69 73 69 6f | 6e 0a 20 20 0a 0a 3b 3b | divisio|n.  ..;;|
|000039a0| 20 6e 75 6d 65 72 69 63 | 61 6c 20 63 6f 6d 70 61 | numeric|al compa|
|000039b0| 72 69 73 6f 6e 73 0a 28 | 3d 20 20 3c 6e 75 6d 62 |risons.(|=  <numb|
|000039c0| 65 72 3e 20 3c 6e 75 6d | 62 65 72 3e 29 20 3b 20 |er> <num|ber>) ; |
|000039d0| 65 71 75 61 6c 0a 28 5c | 3d 20 3c 6e 75 6d 62 65 |equal.(\|= <numbe|
|000039e0| 72 3e 20 3c 6e 75 6d 62 | 65 72 3e 29 20 3b 20 6e |r> <numb|er>) ; n|
|000039f0| 6f 74 20 65 71 75 61 6c | 0a 28 3e 20 20 3c 6e 75 |ot equal|.(>  <nu|
|00003a00| 6d 62 65 72 3e 20 3c 6e | 75 6d 62 65 72 3e 29 20 |mber> <n|umber>) |
|00003a10| 3b 20 67 72 65 61 74 65 | 72 0a 28 3e 3d 20 3c 6e |; greate|r.(>= <n|
|00003a20| 75 6d 62 65 72 3e 20 3c | 6e 75 6d 62 65 72 3e 29 |umber> <|number>)|
|00003a30| 20 3b 20 67 72 65 61 74 | 65 72 20 65 71 75 61 6c | ; great|er equal|
|00003a40| 20 0a 28 3c 20 20 3c 6e | 75 6d 62 65 72 3e 20 3c | .(<  <n|umber> <|
|00003a50| 6e 75 6d 62 65 72 3e 29 | 20 3b 20 6c 65 73 73 20 |number>)| ; less |
|00003a60| 0a 28 3c 3d 20 3c 6e 75 | 6d 62 65 72 3e 20 3c 6e |.(<= <nu|mber> <n|
|00003a70| 75 6d 62 65 72 3e 29 20 | 3b 20 6c 65 73 73 20 65 |umber>) |; less e|
|00003a80| 71 75 61 6c 0a 0a 3b 3b | 20 72 65 74 75 72 6e 73 |qual..;;| returns|
|00003a90| 20 23 74 20 69 66 20 74 | 68 65 20 74 77 6f 20 65 | #t if t|he two e|
|00003aa0| 78 70 72 65 73 73 69 6f | 6e 73 20 61 72 65 20 65 |xpressio|ns are e|
|00003ab0| 71 75 61 6c 20 6f 74 68 | 65 72 77 69 73 65 20 23 |qual oth|erwise #|
|00003ac0| 66 0a 28 65 71 75 61 6c | 3f 20 3c 65 78 70 72 3e |f.(equal|? <expr>|
|00003ad0| 20 3c 65 78 70 72 3e 29 | 0a 0a 3b 3b 20 76 61 72 | <expr>)|..;; var|
|00003ae0| 69 6f 75 73 20 70 72 65 | 64 69 63 61 74 65 73 20 |ious pre|dicates |
|00003af0| 28 72 65 74 75 72 6e 20 | 23 74 20 6f 72 20 23 66 |(return |#t or #f|
|00003b00| 29 0a 28 73 79 6d 62 6f | 6c 3f 20 3c 65 78 70 72 |).(symbo|l? <expr|
|00003b10| 3e 29 20 90 06 3b 20 69 | 73 20 69 74 20 61 20 73 |>) ..; i|s it a s|
|00003b20| 79 6d 62 6f 6c 20 3f 0a | 28 73 74 72 69 6e 67 3f |ymbol ?.|(string?|
|00003b30| 20 3c 65 78 70 72 3e 29 | 20 90 06 3b 20 69 73 20 | <expr>)| ..; is |
|00003b40| 69 74 20 61 20 73 74 72 | 69 6e 67 20 3f 0a 28 63 |it a str|ing ?.(c|
|00003b50| 68 61 72 3f 20 3c 65 78 | 70 72 3e 29 20 90 08 3b |har? <ex|pr>) ..;|
|00003b60| 20 69 73 20 69 74 20 61 | 20 63 68 61 72 61 63 74 | is it a| charact|
|00003b70| 65 72 20 63 6f 6e 73 74 | 61 6e 74 20 3f 0a 28 6c |er const|ant ?.(l|
|00003b80| 69 73 74 3f 20 3c 65 78 | 70 72 3e 29 20 90 08 3b |ist? <ex|pr>) ..;|
|00003b90| 20 69 73 20 69 74 20 61 | 20 6c 69 73 74 20 3f 0a | is it a| list ?.|
|00003ba0| 28 6e 75 6c 6c 3f 20 3c | 65 78 70 72 3e 29 20 90 |(null? <|expr>) .|
|00003bb0| 08 3b 20 69 73 20 69 74 | 20 6e 69 6c 20 28 65 6d |.; is it| nil (em|
|00003bc0| 70 74 79 20 6c 69 73 74 | 29 20 3f 0a 28 69 6e 74 |pty list|) ?.(int|
|00003bd0| 65 67 65 72 3f 20 3c 65 | 78 70 72 3e 29 20 90 05 |eger? <e|xpr>) ..|
|00003be0| 3b 20 69 73 20 69 74 20 | 61 6e 20 69 6e 74 65 67 |; is it |an integ|
|00003bf0| 65 72 20 6e 75 6d 62 65 | 72 0a 28 66 6c 6f 61 74 |er numbe|r.(float|
|00003c00| 3f 20 3c 65 78 70 72 3e | 29 20 90 07 3b 20 69 73 |? <expr>|) ..; is|
|00003c10| 20 69 74 20 61 20 66 6c | 6f 61 74 20 6e 75 6d 62 | it a fl|oat numb|
|00003c20| 65 72 20 3f 0a 28 6e 75 | 6d 62 65 72 3f 20 3c 65 |er ?.(nu|mber? <e|
|00003c30| 78 70 72 3e 29 20 90 06 | 3b 20 69 73 20 69 74 20 |xpr>) ..|; is it |
|00003c40| 61 20 6e 75 6d 62 65 72 | 20 28 66 6c 6f 61 74 2f |a number| (float/|
|00003c50| 69 6e 74 65 67 65 72 29 | 20 3f 0a 28 62 6f 75 6e |integer)| ?.(boun|
|00003c60| 64 3f 20 3c 65 78 70 72 | 3e 29 20 90 07 3b 20 69 |d? <expr|>) ..; i|
|00003c70| 73 20 74 68 65 20 73 79 | 6d 62 6f 6c 20 62 6f 75 |s the sy|mbol bou|
|00003c80| 6e 64 20 74 6f 20 61 20 | 76 61 6c 75 65 20 3f 0a |nd to a |value ?.|
|00003c90| 28 66 75 6e 63 74 69 6f | 6e 3f 20 3c 65 78 70 72 |(functio|n? <expr|
|00003ca0| 3e 29 20 90 04 3b 20 69 | 73 20 69 74 20 61 20 66 |>) ..; i|s it a f|
|00003cb0| 75 6e 63 74 69 6f 6e 0a | 28 68 61 73 68 74 61 62 |unction.|(hashtab|
|00003cc0| 6c 65 3f 20 3c 65 78 70 | 72 3e 29 20 90 03 3b 20 |le? <exp|r>) ..; |
|00003cd0| 69 73 20 69 74 20 61 20 | 68 61 73 68 74 61 62 6c |is it a |hashtabl|
|00003ce0| 65 0a 28 6f 70 61 71 75 | 65 3f 20 3c 65 78 70 72 |e.(opaqu|e? <expr|
|00003cf0| 3e 29 20 90 06 3b 20 69 | 73 20 69 74 20 61 6e 20 |>) ..; i|s it an |
|00003d00| 6f 62 6a 65 63 74 20 6f | 66 20 6f 70 61 71 75 65 |object o|f opaque|
|00003d10| 20 74 79 70 65 20 3f 0a | 20 90 19 0a 3b 3b 20 74 | type ?.| ...;; t|
|00003d20| 72 61 6e 73 66 6f 72 6d | 73 20 73 74 72 69 6e 67 |ransform|s string|
|00003d30| 20 74 6f 20 61 20 73 79 | 6d 62 6f 6c 0a 28 73 74 | to a sy|mbol.(st|
|00003d40| 72 69 6e 67 2d 3e 73 79 | 6d 62 6f 6c 20 3c 73 74 |ring->sy|mbol <st|
|00003d50| 72 69 6e 67 3e 29 0a 0a | 3b 3b 20 74 72 61 6e 73 |ring>)..|;; trans|
|00003d60| 66 6f 72 6d 73 20 73 79 | 6d 62 6f 6c 20 74 6f 20 |forms sy|mbol to |
|00003d70| 61 20 73 74 72 69 6e 67 | 0a 28 73 79 6d 62 6f 6c |a string|.(symbol|
|00003d80| 2d 3e 73 74 72 69 6e 67 | 20 3c 73 79 6d 62 6f 6c |->string| <symbol|
|00003d90| 3e 29 0a 0a 3b 3b 20 67 | 65 74 73 20 63 68 61 72 |>)..;; g|ets char|
|00003da0| 61 63 74 65 72 20 61 74 | 20 70 6f 73 69 74 69 6f |acter at| positio|
|00003db0| 6e 20 3c 69 6e 74 65 67 | 65 72 3e 20 69 6e 20 61 |n <integ|er> in a|
|00003dc0| 20 73 74 72 69 6e 67 0a | 28 73 74 72 69 6e 67 2d | string.|(string-|
|00003dd0| 72 65 66 20 3c 73 74 72 | 69 6e 67 3e 20 3c 69 6e |ref <str|ing> <in|
|00003de0| 74 65 67 65 72 3e 29 0a | 0a 3b 3b 20 67 65 74 73 |teger>).|.;; gets|
|00003df0| 20 63 68 61 72 61 63 74 | 65 72 20 61 74 20 70 6f | charact|er at po|
|00003e00| 73 69 74 69 6f 6e 20 3c | 69 6e 74 65 67 65 72 3e |sition <|integer>|
|00003e10| 20 69 6e 20 61 20 73 79 | 6d 62 6f 6c 0a 28 73 79 | in a sy|mbol.(sy|
|00003e20| 6d 62 6f 6c 2d 72 65 66 | 20 3c 73 79 6d 62 6f 6c |mbol-ref| <symbol|
|00003e30| 3e 20 3c 69 6e 74 65 67 | 65 72 3e 29 0a 0a 3b 3b |> <integ|er>)..;;|
|00003e40| 20 73 65 74 73 20 74 68 | 65 20 63 68 61 72 61 63 | sets th|e charac|
|00003e50| 74 65 72 20 69 6e 20 73 | 74 72 69 6e 67 20 61 74 |ter in s|tring at|
|00003e60| 20 70 6f 73 69 74 69 6f | 6e 20 3c 69 6e 74 65 67 | positio|n <integ|
|00003e70| 65 72 3e 20 74 6f 20 3c | 63 68 61 72 3e 0a 28 73 |er> to <|char>.(s|
|00003e80| 74 72 69 6e 67 2d 73 65 | 74 21 20 3c 73 74 72 69 |tring-se|t! <stri|
|00003e90| 6e 67 3e 20 3c 69 6e 74 | 65 67 65 72 3e 20 3c 63 |ng> <int|eger> <c|
|00003ea0| 68 61 72 3e 29 0a 0a 3b | 3b 20 73 65 74 73 20 74 |har>)..;|; sets t|
|00003eb0| 68 65 20 63 68 61 72 61 | 63 74 65 72 20 69 6e 20 |he chara|cter in |
|00003ec0| 73 79 6d 62 6f 6c 20 61 | 74 20 70 6f 73 69 74 69 |symbol a|t positi|
|00003ed0| 6f 6e 20 3c 69 6e 74 65 | 67 65 72 3e 20 74 6f 20 |on <inte|ger> to |
|00003ee0| 3c 63 68 61 72 3e 0a 28 | 73 79 6d 62 6f 6c 2d 73 |<char>.(|symbol-s|
|00003ef0| 65 74 21 20 3c 73 79 6d | 62 6f 6c 3e 20 3c 69 6e |et! <sym|bol> <in|
|00003f00| 74 65 67 65 72 3e 20 3c | 63 68 61 72 3e 29 0a 0a |teger> <|char>)..|
|00003f10| 3b 3b 20 63 6f 6e 63 61 | 74 65 6e 61 74 65 73 20 |;; conca|tenates |
|00003f20| 65 78 70 72 65 73 73 69 | 6f 6e 73 20 74 6f 20 61 |expressi|ons to a|
|00003f30| 20 73 74 72 69 6e 67 0a | 28 73 74 72 69 6e 67 2d | string.|(string-|
|00003f40| 63 6f 6e 63 61 74 20 3c | 65 78 70 72 2d 73 65 71 |concat <|expr-seq|
|00003f50| 75 65 6e 63 65 3e 29 20 | 90 07 0a 0a 3b 3b 20 63 |uence>) |....;; c|
|00003f60| 6f 6e 63 61 74 65 6e 61 | 74 65 73 20 65 78 70 72 |oncatena|tes expr|
|00003f70| 65 73 73 69 6f 6e 73 20 | 74 6f 20 73 79 6d 62 6f |essions |to symbo|
|00003f80| 6c 0a 28 73 79 6d 62 6f | 6c 2d 63 6f 6e 63 61 74 |l.(symbo|l-concat|
|00003f90| 20 3c 65 78 70 72 2d 73 | 65 71 75 65 6e 63 65 3e | <expr-s|equence>|
|00003fa0| 29 0a 0a 3b 3b 20 67 65 | 74 73 20 27 73 75 62 73 |)..;; ge|ts 'subs|
|00003fb0| 79 6d 62 6f 6c 27 20 66 | 72 6f 6d 20 3c 69 6e 74 |ymbol' f|rom <int|
|00003fc0| 65 67 65 72 31 3e 20 74 | 6f 20 3c 69 6e 74 65 67 |eger1> t|o <integ|
|00003fd0| 65 72 32 3e 0a 28 73 75 | 62 73 79 6d 62 6f 6c 20 |er2>.(su|bsymbol |
|00003fe0| 3c 73 79 6d 62 6f 6c 3e | 20 3c 69 6e 74 65 67 65 |<symbol>| <intege|
|00003ff0| 72 31 3e 20 3c 69 6e 74 | 65 67 65 72 32 3e 29 0a |r1> <int|eger2>).|
|00004000| 0a 3b 3b 20 67 65 74 73 | 20 27 73 75 62 73 74 72 |.;; gets| 'substr|
|00004010| 69 6e 67 27 20 66 72 6f | 6d 20 3c 69 6e 74 65 67 |ing' fro|m <integ|
|00004020| 65 72 31 3e 20 74 6f 20 | 3c 69 6e 74 65 67 65 72 |er1> to |<integer|
|00004030| 32 3e 0a 28 73 75 62 73 | 74 72 69 6e 67 20 3c 73 |2>.(subs|tring <s|
|00004040| 79 6d 62 6f 6c 3e 20 3c | 69 6e 74 65 67 65 72 31 |ymbol> <|integer1|
|00004050| 3e 20 3c 69 6e 74 65 67 | 65 72 32 3e 29 0a 20 90 |> <integ|er2>). .|
|00004060| 19 0a 3b 3b 20 74 72 61 | 6e 73 66 6f 72 6d 73 20 |..;; tra|nsforms |
|00004070| 63 68 61 72 61 63 74 65 | 72 20 74 6f 20 61 20 73 |characte|r to a s|
|00004080| 79 6d 62 6f 6c 0a 28 63 | 68 61 72 61 63 74 65 72 |ymbol.(c|haracter|
|00004090| 2d 3e 73 79 6d 62 6f 6c | 20 3c 63 68 61 72 3e 29 |->symbol| <char>)|
|000040a0| 0a 20 0a 3b 3b 20 73 65 | 74 20 70 72 6f 70 65 72 |. .;; se|t proper|
|000040b0| 74 79 20 6f 66 20 61 20 | 73 79 6d 62 6f 6c 0a 28 |ty of a |symbol.(|
|000040c0| 67 65 74 70 20 3c 73 79 | 6d 62 6f 6c 3e 20 3c 73 |getp <sy|mbol> <s|
|000040d0| 79 6d 62 6f 6c 3e 29 20 | 90 07 0a 0a 3b 3b 20 67 |ymbol>) |....;; g|
|000040e0| 65 74 20 70 72 6f 70 65 | 72 74 79 20 6f 66 20 61 |et prope|rty of a|
|000040f0| 20 73 79 6d 62 6f 6c 0a | 28 73 65 74 70 21 20 3c | symbol.|(setp! <|
|00004100| 73 79 6d 62 6f 6c 3e 20 | 3c 73 79 6d 62 6f 6c 3e |symbol> |<symbol>|
|00004110| 20 3c 65 78 70 72 3e 29 | 0a 20 0a 3b 90 03 20 68 | <expr>)|. .;.. h|
|00004120| 61 73 68 20 74 61 62 6c | 65 20 70 72 69 6d 69 74 |ash tabl|e primit|
|00004130| 69 76 65 73 0a 0a 3b 3b | 20 6c 6f 6f 6b 75 70 20 |ives..;;| lookup |
|00004140| 76 61 6c 75 65 20 6f 66 | 20 3c 73 79 6d 62 6f 6c |value of| <symbol|
|00004150| 3e 20 69 6e 20 68 61 73 | 68 74 61 62 6c 65 20 0a |> in has|htable .|
|00004160| 28 68 61 73 68 2d 72 65 | 66 20 3c 68 61 73 68 74 |(hash-re|f <hasht|
|00004170| 61 62 6c 65 3e 20 3c 73 | 79 6d 62 6f 6c 3e 29 20 |able> <s|ymbol>) |
|00004180| 0a 0a 3b 3b 20 73 65 74 | 20 76 61 6c 75 65 20 6f |..;; set| value o|
|00004190| 66 20 3c 73 79 62 6d 6f | 6c 3e 20 69 6e 20 68 61 |f <sybmo|l> in ha|
|000041a0| 73 68 74 61 62 6c 65 0a | 28 68 61 73 68 2d 73 65 |shtable.|(hash-se|
|000041b0| 74 21 20 3c 68 61 73 68 | 74 61 62 6c 65 3e 20 3c |t! <hash|table> <|
|000041c0| 73 79 6d 62 6f 6c 3e 20 | 3c 65 78 70 72 3e 29 20 |symbol> |<expr>) |
|000041d0| 90 14 0a 0a 3b 3b 20 63 | 72 65 61 74 65 20 68 61 |....;; c|reate ha|
|000041e0| 73 68 20 74 61 62 6c 65 | 20 6f 66 20 73 69 7a 65 |sh table| of size|
|000041f0| 20 3c 69 6e 74 65 67 65 | 72 3e 20 61 6e 64 20 62 | <intege|r> and b|
|00004200| 69 6e 64 20 69 74 20 74 | 6f 20 73 79 6d 62 6f 6c |ind it t|o symbol|
|00004210| 0a 3b 3b 20 28 6e 61 6d | 65 20 65 76 61 6c 75 61 |.;; (nam|e evalua|
|00004220| 74 69 6f 6e 20 74 79 70 | 65 21 29 0a 28 6d 61 6b |tion typ|e!).(mak|
|00004230| 65 2d 68 61 73 68 74 61 | 62 6c 65 20 73 79 6d 62 |e-hashta|ble symb|
|00004240| 6f 6c 20 3c 69 6e 74 65 | 67 65 72 3e 29 0a 0a 3b |ol <inte|ger>)..;|
|00004250| 90 03 20 65 72 72 6f 72 | 20 6d 65 73 73 61 67 65 |.. error| message|
|00004260| 73 20 20 28 73 75 70 70 | 6f 72 74 73 20 74 68 72 |s  (supp|orts thr|
|00004270| 6f 77 62 61 63 6b 29 20 | 90 12 0a 28 73 66 61 74 |owback) |...(sfat|
|00004280| 61 6c 20 3c 65 78 70 72 | 3e 20 3c 65 78 70 72 2d |al <expr|> <expr-|
|00004290| 73 65 71 75 65 6e 63 65 | 3e 29 20 90 04 3b 20 66 |sequence|>) ..; f|
|000042a0| 61 74 61 6c 20 65 72 72 | 6f 72 0a 28 73 65 72 72 |atal err|or.(serr|
|000042b0| 6f 72 20 3c 65 78 70 72 | 3e 20 3c 65 78 70 72 2d |or <expr|> <expr-|
|000042c0| 73 65 71 75 65 6e 63 65 | 3e 29 20 90 04 3b 20 6e |sequence|>) ..; n|
|000042d0| 6f 6e 20 66 61 74 61 6c | 20 65 72 72 6f 72 0a 28 |on fatal| error.(|
|000042e0| 73 77 61 72 6e 69 6e 67 | 20 3c 65 78 70 72 3e 20 |swarning| <expr> |
|000042f0| 3c 65 78 70 72 2d 73 65 | 71 75 65 6e 63 65 3e 29 |<expr-se|quence>)|
|00004300| 20 20 3b 20 77 61 72 6e | 69 6e 67 20 6d 65 73 73 |  ; warn|ing mess|
|00004310| 61 67 65 0a 20 90 0f 0a | 3b 3b 20 77 61 69 74 20 |age. ...|;; wait |
|00004320| 3c 66 6c 6f 61 74 3e 20 | 73 65 63 6f 6e 64 73 0a |<float> |seconds.|
|00004330| 28 64 65 6c 61 79 20 3c | 66 6c 6f 61 74 3e 29 20 |(delay <|float>) |
|00004340| 90 06 0a 20 90 18 0a 3b | 3b 20 65 78 65 63 75 74 |... ...;|; execut|
|00004350| 65 73 20 65 78 74 65 72 | 6e 61 6c 20 63 6f 6d 6d |es exter|nal comm|
|00004360| 61 6e 64 20 6c 69 6e 65 | 20 63 6f 6d 6d 61 6e 64 |and line| command|
|00004370| 20 28 4f 53 43 4c 49 29 | 0a 28 73 79 73 74 65 6d | (OSCLI)|.(system|
|00004380| 20 20 3c 65 78 70 72 2d | 73 65 71 75 65 6e 63 65 |  <expr-|sequence|
|00004390| 3e 29 0a 0a 3b 90 03 20 | 61 64 64 69 74 69 6f 6e |>)..;.. |addition|
|000043a0| 61 6c 20 70 72 69 6d 69 | 74 69 76 65 73 20 73 75 |al primi|tives su|
|000043b0| 70 70 6f 72 74 69 6e 67 | 20 57 49 4d 50 20 70 72 |pporting| WIMP pr|
|000043c0| 6f 67 72 61 6d 6d 69 6e | 67 0a 3b 90 03 20 6d 6f |ogrammin|g.;.. mo|
|000043d0| 73 74 20 6f 66 20 74 68 | 65 73 65 20 70 72 69 6d |st of th|ese prim|
|000043e0| 69 74 69 76 65 73 20 61 | 72 65 20 64 69 72 65 63 |itives a|re direc|
|000043f0| 74 6c 79 20 66 72 6f 6d | 20 74 68 65 20 52 49 53 |tly from| the RIS|
|00004400| 43 4f 53 5f 4c 49 42 0a | 3b 90 03 20 6f 66 20 41 |COS_LIB.|;.. of A|
|00004410| 63 6f 72 6e 20 44 65 73 | 6b 74 6f 70 20 43 20 56 |corn Des|ktop C V|
|00004420| 34 2e 20 46 6f 72 20 64 | 65 74 61 69 6c 73 20 61 |4. For d|etails a|
|00004430| 62 6f 75 74 20 74 68 65 | 73 65 20 70 72 69 6d 69 |bout the|se primi|
|00004440| 74 69 76 65 73 0a 3b 90 | 03 20 73 65 65 20 74 68 |tives.;.|. see th|
|00004450| 65 20 41 63 6f 72 6e 20 | 44 65 73 6b 74 6f 70 20 |e Acorn |Desktop |
|00004460| 43 20 56 34 20 72 65 66 | 65 72 65 6e 63 65 20 6d |C V4 ref|erence m|
|00004470| 61 6e 75 61 6c 2e 0a 90 | 03 3b 3b 20 72 65 74 75 |anual...|.;; retu|
|00004480| 72 6e 73 20 76 65 72 73 | 69 6f 6e 20 6f 66 20 77 |rns vers|ion of w|
|00004490| 74 6b 0a 28 77 74 6b 2d | 76 65 72 73 69 6f 6e 29 |tk.(wtk-|version)|
|000044a0| 20 90 0c 0a 0a 3b 3b 20 | 69 6e 69 74 69 61 6c 69 | ....;; |initiali|
|000044b0| 7a 65 73 20 77 74 6b 2e | 20 77 69 6d 70 74 5f 69 |zes wtk.| wimpt_i|
|000044c0| 6e 69 74 28 3c 73 74 72 | 69 6e 67 3e 29 2c 20 72 |nit(<str|ing>), r|
|000044d0| 65 73 5f 69 6e 69 74 28 | 3c 73 74 72 69 6e 67 3e |es_init(|<string>|
|000044e0| 29 2c 20 0a 3b 3b 20 72 | 65 73 70 72 5f 69 6e 69 |), .;; r|espr_ini|
|000044f0| 74 28 29 2c 20 74 65 6d | 70 6c 61 74 65 5f 69 6e |t(), tem|plate_in|
|00004500| 69 74 28 29 20 61 6e 64 | 20 64 62 6f 78 5f 69 6e |it() and| dbox_in|
|00004510| 69 74 20 61 72 65 20 63 | 61 6c 6c 65 64 0a 28 77 |it are c|alled.(w|
|00004520| 74 6b 2d 69 6e 69 74 20 | 3c 73 74 72 69 6e 67 3e |tk-init |<string>|
|00004530| 29 0a 0a 3b 3b 20 69 6e | 73 74 61 6c 6c 73 20 61 |)..;; in|stalls a|
|00004540| 20 68 61 6e 64 6c 65 72 | 20 66 6f 72 20 74 68 65 | handler| for the|
|00004550| 20 64 61 74 61 6f 70 65 | 6e 20 62 72 6f 61 64 63 | dataope|n broadc|
|00004560| 61 73 74 20 6d 65 73 73 | 61 67 65 0a 28 77 74 6b |ast mess|age.(wtk|
|00004570| 2d 64 61 74 61 6f 70 65 | 6e 2d 68 61 6e 64 6c 65 |-dataope|n-handle|
|00004580| 72 20 3c 65 78 70 72 3e | 29 0a 0a 3b 3b 20 69 6e |r <expr>|)..;; in|
|00004590| 73 74 61 6c 6c 73 20 61 | 20 68 61 6e 64 6c 65 72 |stalls a| handler|
|000045a0| 20 66 6f 72 20 74 68 65 | 20 70 72 65 71 75 69 74 | for the| prequit|
|000045b0| 20 62 72 6f 61 64 63 61 | 73 74 20 6d 65 73 73 61 | broadca|st messa|
|000045c0| 67 65 0a 3b 3b 20 68 61 | 6e 64 6c 65 72 20 73 68 |ge.;; ha|ndler sh|
|000045d0| 6f 75 6c 64 20 72 65 74 | 75 72 6e 20 23 74 20 6f |ould ret|urn #t o|
|000045e0| 72 20 23 66 0a 28 77 74 | 6b 2d 70 72 65 71 75 69 |r #f.(wt|k-prequi|
|000045f0| 74 2d 68 61 6e 64 6c 65 | 72 20 3c 65 78 70 72 3e |t-handle|r <expr>|
|00004600| 29 0a 0a 28 77 69 6d 70 | 74 2d 69 6e 69 74 20 3c |)..(wimp|t-init <|
|00004610| 73 74 72 69 6e 67 3e 29 | 20 90 03 3b 20 69 6e 69 |string>)| ..; ini|
|00004620| 74 20 77 69 6d 70 0a 28 | 72 65 73 2d 69 6e 69 74 |t wimp.(|res-init|
|00004630| 20 3c 73 74 72 69 6e 67 | 3e 29 20 90 05 3b 20 69 | <string|>) ..; i|
|00004640| 6e 69 74 20 72 65 73 6f | 75 72 63 65 73 20 90 06 |nit reso|urces ..|
|00004650| 0a 28 72 65 73 73 70 72 | 2d 69 6e 69 74 29 20 90 |.(resspr|-init) .|
|00004660| 0b 3b 20 69 6e 69 74 20 | 73 70 72 69 74 65 20 72 |.; init |sprite r|
|00004670| 65 73 6f 75 72 63 65 73 | 20 0a 28 72 65 73 73 70 |esources| .(ressp|
|00004680| 72 2d 61 72 65 61 29 20 | 90 0b 3b 20 72 65 74 75 |r-area) |..; retu|
|00004690| 72 6e 20 61 63 74 75 61 | 6c 20 73 70 72 69 74 65 |rn actua|l sprite|
|000046a0| 20 61 72 65 61 0a 28 74 | 65 6d 70 6c 61 74 65 2d | area.(t|emplate-|
|000046b0| 69 6e 69 74 29 20 90 09 | 3b 20 69 6e 69 74 20 74 |init) ..|; init t|
|000046c0| 65 6d 70 6c 61 74 65 73 | 0a 28 77 69 6d 70 74 2d |emplates|.(wimpt-|
|000046d0| 77 69 6d 70 76 65 72 73 | 69 6f 6e 20 3c 69 6e 74 |wimpvers|ion <int|
|000046e0| 65 67 65 72 3e 29 20 3b | 20 73 65 74 20 77 69 6d |eger>) ;| set wim|
|000046f0| 70 20 76 65 72 73 69 6f | 6e 0a 0a 3b 3b 20 64 69 |p versio|n..;; di|
|00004700| 73 70 6c 61 79 20 77 69 | 6d 70 20 65 72 72 6f 72 |splay wi|mp error|
|00004710| 20 64 69 61 6c 6f 67 20 | 62 6f 78 0a 3b 3b 20 3c | dialog |box.;; <|
|00004720| 69 6e 74 65 67 65 72 3e | 20 73 68 6f 75 6c 64 20 |integer>| should |
|00004730| 62 65 20 31 20 28 66 61 | 74 61 6c 29 20 6f 72 20 |be 1 (fa|tal) or |
|00004740| 30 20 28 6e 6f 6e 20 66 | 61 74 61 6c 29 20 65 72 |0 (non f|atal) er|
|00004750| 72 6f 72 20 0a 28 77 65 | 72 72 20 3c 69 6e 74 65 |ror .(we|rr <inte|
|00004760| 67 65 72 3e 20 3c 65 78 | 70 72 2d 73 65 71 75 65 |ger> <ex|pr-seque|
|00004770| 6e 63 65 3e 29 0a 0a 3b | 3b 20 73 65 74 20 6e 65 |nce>)..;|; set ne|
|00004780| 77 20 62 61 72 69 63 6f | 6e 20 73 70 72 69 74 65 |w barico|n sprite|
|00004790| 0a 28 62 61 72 69 63 6f | 6e 2d 6e 65 77 73 70 72 |.(barico|n-newspr|
|000047a0| 69 74 65 20 3c 73 74 72 | 69 6e 67 3e 29 0a 0a 3b |ite <str|ing>)..;|
|000047b0| 3b 20 73 65 74 20 6e 65 | 77 20 62 61 72 69 63 6f |; set ne|w barico|
|000047c0| 6e 20 6d 65 6e 75 20 77 | 69 74 68 20 61 20 6e 65 |n menu w|ith a ne|
|000047d0| 77 20 68 61 6e 64 6c 65 | 72 20 61 6e 64 20 61 6e |w handle|r and an|
|000047e0| 20 6f 70 74 69 6f 6e 61 | 6c 20 68 61 6e 64 6c 65 | optiona|l handle|
|000047f0| 0a 3b 3b 20 3c 73 79 6d | 62 6f 6c 3e 20 69 73 20 |.;; <sym|bol> is |
|00004800| 74 68 65 20 6e 61 6d 65 | 20 6f 66 20 74 68 65 20 |the name| of the |
|00004810| 68 61 6e 64 6c 65 72 20 | 66 75 6e 63 74 69 6f 6e |handler |function|
|00004820| 20 20 0a 28 62 61 72 69 | 63 6f 6e 2d 6e 65 77 6d |  .(bari|con-newm|
|00004830| 65 6e 75 20 3c 6d 65 6e | 75 3e 20 3c 73 79 6d 62 |enu <men|u> <symb|
|00004840| 6f 6c 3e 20 5b 68 61 6e | 64 6c 65 5d 29 0a 0a 3b |ol> [han|dle])..;|
|00004850| 3b 20 70 75 74 20 61 6e | 20 69 63 6f 6e 20 6f 6e |; put an| icon on|
|00004860| 20 74 68 65 20 69 63 6f | 6e 20 62 61 72 20 61 6e | the ico|n bar an|
|00004870| 64 20 73 65 74 20 68 61 | 6e 64 6c 65 72 73 2c 20 |d set ha|ndlers, |
|00004880| 6d 65 6e 75 73 2c 20 65 | 74 63 2e 0a 28 62 61 72 |menus, e|tc..(bar|
|00004890| 69 63 6f 6e 20 3c 73 74 | 72 69 6e 67 3e 0a 20 90 |icon <st|ring>. .|
|000048a0| 03 5b 3a 6c 65 66 74 5d | 20 90 12 3b 20 69 63 6f |.[:left]| ..; ico|
|000048b0| 6e 20 6f 6e 20 6c 65 66 | 74 20 73 69 64 65 20 6f |n on lef|t side o|
|000048c0| 66 20 69 63 6f 6e 20 62 | 61 72 0a 20 90 03 5b 63 |f icon b|ar. ..[c|
|000048d0| 6c 69 63 6b 70 72 6f 63 | 3a 20 3c 65 78 70 72 3e |lickproc|: <expr>|
|000048e0| 5d 20 90 06 3b 20 61 63 | 74 69 6f 6e 20 66 6f 72 |] ..; ac|tion for|
|000048f0| 20 63 6c 69 63 6b 20 6f | 6e 20 62 61 72 69 63 6f | click o|n barico|
|00004900| 6e 0a 20 90 03 5b 6c 6f | 61 64 70 72 6f 63 3a 20 |n. ..[lo|adproc: |
|00004910| 20 3c 65 78 70 72 3e 5d | 20 90 06 3b 20 61 63 74 | <expr>]| ..; act|
|00004920| 69 6f 6e 20 66 6f 72 20 | 64 72 61 67 20 6f 6e 20 |ion for |drag on |
|00004930| 62 61 72 69 63 6f 6e 0a | 20 90 03 5b 74 65 78 74 |baricon.| ..[text|
|00004940| 3a 20 3c 73 74 72 69 6e | 67 3e 5d 20 90 09 3b 20 |: <strin|g>] ..; |
|00004950| 62 61 72 69 63 6f 6e 20 | 77 69 74 68 20 74 65 78 |baricon |with tex|
|00004960| 74 0a 20 90 03 5b 73 70 | 72 69 74 65 61 72 65 61 |t. ..[sp|ritearea|
|00004970| 3a 20 3c 69 6e 74 65 67 | 65 72 3e 5d 20 20 3b 20 |: <integ|er>]  ; |
|00004980| 73 70 72 69 74 65 61 72 | 65 61 20 66 6f 72 20 62 |spritear|ea for b|
|00004990| 61 72 69 63 6f 6e 0a 20 | 90 03 5b 6d 65 6e 75 3a |aricon. |..[menu:|
|000049a0| 20 3c 6d 65 6e 75 3e 20 | 6d 65 6e 75 68 61 6e 64 | <menu> |menuhand|
|000049b0| 6c 65 72 3a 20 3c 65 78 | 70 72 3e 20 6d 65 6e 75 |ler: <ex|pr> menu|
|000049c0| 2d 68 61 6e 64 6c 65 3a | 20 3c 65 78 70 72 3e 5d |-handle:| <expr>]|
|000049d0| 29 20 3b 20 62 61 72 69 | 63 6f 6e 20 6d 65 6e 75 |) ; bari|con menu|
|000049e0| 0a 0a 3b 3b 20 73 68 69 | 66 74 20 70 72 65 73 73 |..;; shi|ft press|
|000049f0| 65 64 3f 20 0a 28 61 6b | 62 64 2d 70 6f 6c 6c 73 |ed? .(ak|bd-polls|
|00004a00| 68 29 0a 0a 3b 3b 20 63 | 74 72 6c 20 70 72 65 73 |h)..;; c|trl pres|
|00004a10| 73 65 64 3f 0a 28 61 6b | 62 64 2d 70 6f 6c 6c 63 |sed?.(ak|bd-pollc|
|00004a20| 74 6c 29 0a 0a 3b 3b 20 | 64 69 61 6c 6f 67 20 62 |tl)..;; |dialog b|
|00004a30| 6f 78 20 70 72 69 6d 69 | 74 69 76 65 73 0a 28 64 |ox primi|tives.(d|
|00004a40| 62 6f 78 2d 6e 65 77 20 | 3c 73 74 72 69 6e 67 3e |box-new |<string>|
|00004a50| 29 20 90 08 3b 20 63 72 | 65 61 74 65 20 64 62 6f |) ..; cr|eate dbo|
|00004a60| 78 0a 28 64 62 6f 78 2d | 64 69 73 70 6f 73 65 20 |x.(dbox-|dispose |
|00004a70| 3c 64 62 6f 78 3e 29 20 | 90 06 3b 20 64 65 73 74 |<dbox>) |..; dest|
|00004a80| 72 6f 79 20 64 62 6f 78 | 0a 28 64 62 6f 78 2d 73 |roy dbox|.(dbox-s|
|00004a90| 68 6f 77 20 3c 64 62 6f | 78 3e 29 20 90 09 3b 20 |how <dbo|x>) ..; |
|00004aa0| 64 69 73 70 6c 61 79 20 | 64 62 6f 78 0a 28 64 62 |display |dbox.(db|
|00004ab0| 6f 78 2d 73 68 6f 77 73 | 74 61 74 69 63 20 3c 64 |ox-shows|tatic <d|
|00004ac0| 62 6f 78 3e 29 20 90 03 | 3b 20 64 69 73 70 6c 61 |box>) ..|; displa|
|00004ad0| 79 20 64 62 6f 78 20 28 | 73 74 61 74 69 63 29 0a |y dbox (|static).|
|00004ae0| 28 64 62 6f 78 2d 68 69 | 64 65 20 3c 64 62 6f 78 |(dbox-hi|de <dbox|
|00004af0| 3e 29 20 90 09 3b 20 63 | 6c 6f 73 65 20 64 62 6f |>) ..; c|lose dbo|
|00004b00| 78 20 0a 0a 3b 3b 20 73 | 65 74 20 74 65 78 74 66 |x ..;; s|et textf|
|00004b10| 69 65 6c 64 20 23 3c 69 | 6e 74 65 67 65 72 3e 20 |ield #<i|nteger> |
|00004b20| 6f 66 20 64 62 6f 78 20 | 74 6f 20 76 61 6c 75 65 |of dbox |to value|
|00004b30| 20 3c 73 74 72 69 6e 67 | 3e 20 0a 28 64 62 6f 78 | <string|> .(dbox|
|00004b40| 2d 73 65 74 66 69 65 6c | 64 20 3c 64 62 6f 78 3e |-setfiel|d <dbox>|
|00004b50| 20 3c 69 6e 74 65 67 65 | 72 3e 20 3c 73 74 72 69 | <intege|r> <stri|
|00004b60| 6e 67 3e 29 0a 0a 3b 3b | 20 67 65 74 20 76 61 6c |ng>)..;;| get val|
|00004b70| 75 65 20 6f 66 20 74 65 | 78 74 66 69 65 6c 64 20 |ue of te|xtfield |
|00004b80| 23 3c 69 6e 74 65 67 65 | 72 31 3e 20 20 28 62 75 |#<intege|r1>  (bu|
|00004b90| 66 66 65 72 20 73 69 7a | 65 3a 20 3c 69 6e 74 65 |ffer siz|e: <inte|
|00004ba0| 67 65 72 32 3e 29 20 90 | 08 0a 28 64 62 6f 78 2d |ger2>) .|..(dbox-|
|00004bb0| 67 65 74 66 69 65 6c 64 | 20 3c 64 62 6f 78 3e 20 |getfield| <dbox> |
|00004bc0| 3c 69 6e 74 65 67 65 72 | 31 3e 20 3c 69 6e 74 65 |<integer|1> <inte|
|00004bd0| 67 65 72 32 3e 29 0a 0a | 3b 3b 20 73 65 74 20 6e |ger2>)..|;; set n|
|00004be0| 75 6d 65 72 69 63 20 76 | 61 6c 75 65 20 3c 69 6e |umeric v|alue <in|
|00004bf0| 74 65 67 65 72 31 3e 20 | 6f 66 20 61 20 64 62 6f |teger1> |of a dbo|
|00004c00| 78 20 66 69 65 6c 64 20 | 23 3c 69 6e 74 65 67 65 |x field |#<intege|
|00004c10| 72 31 3e 0a 28 64 62 6f | 78 2d 73 65 74 6e 75 6d |r1>.(dbo|x-setnum|
|00004c20| 65 72 69 63 20 3c 64 62 | 6f 78 3e 20 3c 69 6e 74 |eric <db|ox> <int|
|00004c30| 65 67 65 72 31 3e 20 3c | 69 6e 74 65 67 65 72 32 |eger1> <|integer2|
|00004c40| 3e 29 0a 0a 3b 3b 20 67 | 65 74 20 6e 75 6d 65 72 |>)..;; g|et numer|
|00004c50| 69 63 20 76 61 6c 75 65 | 20 6f 66 20 64 62 6f 78 |ic value| of dbox|
|00004c60| 20 66 69 65 6c 64 20 23 | 3c 69 6e 74 65 67 65 72 | field #|<integer|
|00004c70| 3e 0a 28 64 62 6f 78 2d | 67 65 74 6e 75 6d 65 72 |>.(dbox-|getnumer|
|00004c80| 69 63 20 3c 64 62 6f 78 | 3e 20 3c 69 6e 74 65 67 |ic <dbox|> <integ|
|00004c90| 65 72 3e 29 0a 20 90 21 | 0a 3b 3b 20 66 61 64 65 |er>). .!|.;; fade|
|00004ca0| 20 64 6f 78 20 66 69 65 | 6c 64 20 23 3c 69 6e 74 | dox fie|ld #<int|
|00004cb0| 65 67 65 72 3e 0a 28 64 | 62 6f 78 2d 66 61 64 65 |eger>.(d|box-fade|
|00004cc0| 66 69 65 6c 64 20 3c 64 | 62 6f 78 3e 20 3c 69 6e |field <d|box> <in|
|00004cd0| 74 65 67 65 72 3e 29 0a | 0a 3b 3b 20 75 6e 66 61 |teger>).|.;; unfa|
|00004ce0| 64 65 20 64 62 6f 78 20 | 66 69 65 6c 64 20 23 3c |de dbox |field #<|
|00004cf0| 69 6e 74 65 67 65 72 3e | 0a 28 64 62 6f 78 2d 75 |integer>|.(dbox-u|
|00004d00| 6e 66 61 64 65 66 69 65 | 6c 64 20 3c 64 62 6f 78 |nfadefie|ld <dbox|
|00004d10| 3e 20 3c 69 6e 74 65 67 | 65 72 3e 29 0a 0a 3b 3b |> <integ|er>)..;;|
|00004d20| 20 64 69 73 70 6c 61 79 | 20 64 62 6f 78 20 61 73 | display| dbox as|
|00004d30| 20 6c 6f 6e 67 20 61 73 | 20 6e 65 63 65 73 73 61 | long as| necessa|
|00004d40| 72 79 0a 28 64 62 6f 78 | 2d 66 69 6c 6c 69 6e 20 |ry.(dbox|-fillin |
|00004d50| 3c 64 62 6f 78 3e 29 0a | 0a 3b 3b 20 73 69 6d 69 |<dbox>).|.;; simi|
|00004d60| 6c 61 72 20 74 6f 20 64 | 62 6f 78 2d 66 69 6c 6c |lar to d|box-fill|
|00004d70| 69 6e 0a 28 64 62 6f 78 | 2d 66 69 6c 6c 69 6e 2d |in.(dbox|-fillin-|
|00004d80| 66 69 78 65 64 63 61 72 | 65 74 20 3c 64 62 6f 78 |fixedcar|et <dbox|
|00004d90| 3e 29 0a 0a 3b 3b 20 70 | 6f 70 75 70 20 64 62 6f |>)..;; p|opup dbo|
|00004da0| 78 20 77 69 74 68 20 6e | 61 6d 65 20 3c 73 74 72 |x with n|ame <str|
|00004db0| 69 6e 67 31 3e 20 61 6e | 64 20 6d 65 73 73 61 67 |ing1> an|d messag|
|00004dc0| 65 20 3c 73 74 72 69 6e | 67 32 3e 0a 3b 3b 20 61 |e <strin|g2>.;; a|
|00004dd0| 6e 64 20 72 65 74 75 72 | 6e 20 61 63 74 69 76 61 |nd retur|n activa|
|00004de0| 74 65 64 20 66 69 65 6c | 64 20 6e 75 6d 62 65 72 |ted fiel|d number|
|00004df0| 0a 28 64 62 6f 78 2d 70 | 6f 70 75 70 20 3c 73 74 |.(dbox-p|opup <st|
|00004e00| 72 69 6e 67 31 3e 20 3c | 73 74 72 69 6e 67 32 3e |ring1> <|string2>|
|00004e10| 29 0a 0a 3b 3b 20 72 65 | 74 75 72 6e 73 20 77 68 |)..;; re|turns wh|
|00004e20| 65 74 68 65 72 20 64 62 | 6f 78 20 73 68 6f 75 6c |ether db|ox shoul|
|00004e30| 64 20 70 65 72 73 69 73 | 74 20 0a 28 64 62 6f 78 |d persis|t .(dbox|
|00004e40| 2d 70 65 72 73 69 73 74 | 29 0a 0a 3b 3b 20 72 65 |-persist|)..;; re|
|00004e50| 74 75 72 6e 20 77 69 6e | 64 6f 77 20 68 61 6e 64 |turn win|dow hand|
|00004e60| 6c 65 20 6f 66 20 61 20 | 64 62 6f 78 0a 28 64 62 |le of a |dbox.(db|
|00004e70| 6f 78 2d 73 79 73 68 61 | 6e 64 6c 65 20 3c 64 62 |ox-sysha|ndle <db|
|00004e80| 6f 78 3e 29 0a 0a 3b 3b | 20 69 6e 69 74 20 64 62 |ox>)..;;| init db|
|00004e90| 6f 78 65 73 0a 28 64 62 | 6f 78 2d 69 6e 69 74 29 |oxes.(db|ox-init)|
|00004ea0| 0a 0a 3b 3b 20 64 69 73 | 70 6c 61 79 73 20 61 20 |..;; dis|plays a |
|00004eb0| 79 65 73 2f 6e 6f 20 64 | 62 6f 78 20 77 69 74 68 |yes/no d|box with|
|00004ec0| 20 71 75 65 73 74 69 6f | 6e 20 3c 73 74 72 69 6e | questio|n <strin|
|00004ed0| 67 3e 0a 28 64 62 6f 78 | 2d 71 75 65 72 79 20 3c |g>.(dbox|-query <|
|00004ee0| 73 74 72 69 6e 67 3e 29 | 0a 0a 3b 3b 20 70 72 6f |string>)|..;; pro|
|00004ef0| 63 65 73 73 20 61 6e 20 | 65 76 65 6e 74 0a 28 65 |cess an |event.(e|
|00004f00| 76 65 6e 74 2d 70 72 6f | 63 65 73 73 29 0a 0a 3b |vent-pro|cess)..;|
|00004f10| 3b 20 61 72 65 20 74 68 | 65 72 65 20 61 6e 79 20 |; are th|ere any |
|00004f20| 61 63 74 69 76 65 20 77 | 69 6e 64 6f 77 73 20 72 |active w|indows r|
|00004f30| 65 61 64 79 20 66 6f 72 | 20 65 76 65 6e 74 20 70 |eady for| event p|
|00004f40| 72 6f 63 65 73 73 69 6e | 67 20 3f 0a 28 65 76 65 |rocessin|g ?.(eve|
|00004f50| 6e 74 2d 61 6e 79 77 69 | 6e 64 6f 77 73 29 0a 0a |nt-anywi|ndows)..|
|00004f60| 3b 3b 20 61 74 74 61 63 | 68 20 6d 65 6e 75 20 74 |;; attac|h menu t|
|00004f70| 6f 20 67 69 76 65 6e 20 | 77 69 6e 64 6f 77 20 0a |o given |window .|
|00004f80| 3b 3b 20 77 69 6e 64 6f | 77 20 68 61 6e 64 6c 65 |;; windo|w handle|
|00004f90| 3a 20 3c 69 6e 74 65 67 | 65 72 3e 2c 20 6d 65 6e |: <integ|er>, men|
|00004fa0| 75 20 68 61 6e 64 6c 65 | 72 3a 20 3c 65 78 70 72 |u handle|r: <expr|
|00004fb0| 31 3e 2c 20 6d 65 6e 75 | 20 68 61 6e 64 6c 65 3a |1>, menu| handle:|
|00004fc0| 20 3c 65 78 70 72 32 3e | 0a 28 65 76 65 6e 74 2d | <expr2>|.(event-|
|00004fd0| 61 74 74 61 63 68 6d 65 | 6e 75 20 3c 69 6e 74 65 |attachme|nu <inte|
|00004fe0| 67 65 72 3e 20 3c 6d 65 | 6e 75 3e 20 3c 65 78 70 |ger> <me|nu> <exp|
|00004ff0| 72 31 3e 20 3c 65 78 70 | 72 32 3e 29 0a 0a 3b 3b |r1> <exp|r2>)..;;|
|00005000| 20 61 74 74 61 63 68 20 | 6d 65 6e 75 20 6d 61 6b | attach |menu mak|
|00005010| 65 72 20 74 6f 20 67 69 | 76 65 6e 20 77 69 6e 64 |er to gi|ven wind|
|00005020| 6f 77 0a 3b 3b 20 77 69 | 6e 64 6f 77 20 68 61 6e |ow.;; wi|ndow han|
|00005030| 64 6c 65 3a 20 3c 69 6e | 74 65 67 65 72 3e 2c 20 |dle: <in|teger>, |
|00005040| 6d 65 6e 75 20 68 61 6e | 64 6c 65 72 3a 20 3c 65 |menu han|dler: <e|
|00005050| 78 70 72 31 3e 20 6d 65 | 6e 75 20 68 61 6e 64 6c |xpr1> me|nu handl|
|00005060| 65 3a 20 3c 65 78 70 72 | 32 3e 0a 28 65 76 65 6e |e: <expr|2>.(even|
|00005070| 74 2d 61 74 74 61 63 68 | 6d 65 6e 75 6d 61 6b 65 |t-attach|menumake|
|00005080| 72 20 3c 69 6e 74 65 67 | 65 72 3e 20 3c 65 78 70 |r <integ|er> <exp|
|00005090| 72 31 3e 20 3c 65 78 70 | 72 32 3e 29 0a 0a 3b 3b |r1> <exp|r2>)..;;|
|000050a0| 20 63 6c 65 61 72 20 63 | 75 72 72 65 6e 74 20 6d | clear c|urrent m|
|000050b0| 65 6e 75 20 74 72 65 65 | 0a 28 65 76 65 6e 74 2d |enu tree|.(event-|
|000050c0| 63 6c 65 61 72 2d 63 75 | 72 72 65 6e 74 2d 6d 65 |clear-cu|rrent-me|
|000050d0| 6e 75 29 0a 0a 3b 3b 20 | 69 73 20 74 68 65 20 6d |nu)..;; |is the m|
|000050e0| 65 6e 75 20 67 6f 69 6e | 67 20 74 6f 20 62 65 20 |enu goin|g to be |
|000050f0| 72 65 63 72 65 61 74 65 | 64 20 3f 0a 28 65 76 65 |recreate|d ?.(eve|
|00005100| 6e 74 2d 69 73 2d 6d 65 | 6e 75 2d 62 65 69 6e 67 |nt-is-me|nu-being|
|00005110| 2d 72 65 63 72 65 61 74 | 65 64 29 0a 20 0a 3b 3b |-recreat|ed). .;;|
|00005120| 20 63 72 65 61 74 65 20 | 6e 65 77 20 6d 65 6e 75 | create |new menu|
|00005130| 20 0a 3b 3b 20 6d 65 6e | 75 20 74 69 74 6c 65 3a | .;; men|u title:|
|00005140| 20 3c 73 74 72 69 6e 67 | 31 3e 2c 20 6d 65 6e 75 | <string|1>, menu|
|00005150| 20 64 65 73 63 72 69 70 | 74 69 6f 6e 3a 20 3c 73 | descrip|tion: <s|
|00005160| 74 72 69 6e 67 32 3e 0a | 28 6d 65 6e 75 2d 6e 65 |tring2>.|(menu-ne|
|00005170| 77 20 3c 73 74 72 69 6e | 67 31 3e 20 3c 73 74 72 |w <strin|g1> <str|
|00005180| 69 6e 67 32 3e 29 0a 90 | 03 3b 3b 20 63 68 61 6e |ing2>)..|.;; chan|
|00005190| 67 65 20 6f 72 20 65 78 | 74 65 6e 64 20 65 78 69 |ge or ex|tend exi|
|000051a0| 73 74 69 6e 67 20 6d 65 | 6e 75 0a 28 6d 65 6e 75 |sting me|nu.(menu|
|000051b0| 2d 63 68 61 6e 67 65 20 | 3c 6d 65 6e 75 3e 0a 20 |-change |<menu>. |
|000051c0| 20 5b 65 78 74 65 6e 64 | 3a 20 3c 73 74 72 69 6e | [extend|: <strin|
|000051d0| 67 3e 5d 20 90 04 3b 20 | 65 78 74 65 6e 64 20 6d |g>] ..; |extend m|
|000051e0| 65 6e 75 0a 20 20 5b 73 | 75 62 6d 65 6e 75 3a 20 |enu.  [s|ubmenu: |
|000051f0| 3c 6d 65 6e 75 3e 20 65 | 6e 74 72 79 3a 20 3c 69 |<menu> e|ntry: <i|
|00005200| 6e 74 65 67 65 72 3e 5d | 20 20 3b 20 61 74 74 61 |nteger>]|  ; atta|
|00005210| 63 68 20 73 75 62 6d 65 | 6e 75 0a 20 20 3b 3b 20 |ch subme|nu.  ;; |
|00005220| 74 69 63 6b 20 28 3c 69 | 6e 74 65 67 65 72 31 3e |tick (<i|nteger1>|
|00005230| 29 20 6f 72 20 66 61 64 | 65 20 28 3c 69 6e 74 65 |) or fad|e (<inte|
|00005240| 67 65 72 32 3e 29 20 6d | 65 6e 75 20 65 6e 74 72 |ger2>) m|enu entr|
|00005250| 79 0a 20 20 5b 73 65 74 | 66 6c 61 67 73 3a 20 3c |y.  [set|flags: <|
|00005260| 69 6e 74 65 67 65 72 31 | 3e 20 3c 69 6e 74 65 67 |integer1|> <integ|
|00005270| 65 72 32 3e 20 65 6e 74 | 72 79 3a 20 3c 69 6e 74 |er2> ent|ry: <int|
|00005280| 65 67 65 72 3e 5d 0a 20 | 20 5b 6d 61 6b 65 2d 73 |eger>]. | [make-s|
|00005290| 70 72 69 74 65 3a 20 3c | 73 74 72 69 6e 67 3e 20 |prite: <|string> |
|000052a0| 65 6e 74 72 79 3a 20 3c | 69 6e 74 65 67 65 72 3e |entry: <|integer>|
|000052b0| 5d 20 3b 20 75 73 65 20 | 73 70 72 69 74 65 20 66 |] ; use |sprite f|
|000052c0| 6f 72 20 6d 65 6e 75 20 | 65 6e 74 72 79 0a 20 20 |or menu |entry.  |
|000052d0| 3b 3b 20 6d 61 6b 65 20 | 61 20 6d 65 6e 75 20 65 |;; make |a menu e|
|000052e0| 6e 74 72 79 20 77 72 69 | 74 61 62 6c 65 20 28 75 |ntry wri|table (u|
|000052f0| 73 65 20 73 79 6d 62 6f | 6c 20 61 73 20 62 75 66 |se symbo|l as buf|
|00005300| 66 65 72 2c 20 64 69 73 | 74 72 75 63 74 69 76 21 |fer, dis|tructiv!|
|00005310| 29 0a 20 20 5b 6d 61 6b | 65 2d 77 72 69 74 65 61 |).  [mak|e-writea|
|00005320| 62 6c 65 3a 20 3c 73 79 | 6d 62 6f 6c 3e 20 3c 73 |ble: <sy|mbol> <s|
|00005330| 74 72 69 6e 67 3e 20 65 | 6e 74 72 79 3a 20 3c 69 |tring> e|ntry: <i|
|00005340| 6e 74 65 67 65 72 3e 5d | 29 20 0a 0a 3b 3b 20 64 |nteger>]|) ..;; d|
|00005350| 65 73 74 72 6f 79 73 20 | 6d 65 6e 75 20 28 3c 69 |estroys |menu (<i|
|00005360| 6e 74 65 67 65 72 3e 20 | 21 3d 20 30 2c 20 72 65 |nteger> |!= 0, re|
|00005370| 63 75 72 73 69 76 65 20 | 64 69 73 70 6f 73 65 20 |cursive |dispose |
|00005380| 6f 66 20 73 75 62 6d 65 | 6e 75 73 29 20 0a 28 6d |of subme|nus) .(m|
|00005390| 65 6e 75 2d 64 69 73 70 | 6f 73 65 20 3c 6d 65 6e |enu-disp|ose <men|
|000053a0| 75 3e 20 3c 69 6e 74 65 | 67 65 72 3e 29 0a 0a 3b |u> <inte|ger>)..;|
|000053b0| 3b 20 6d 61 69 6e 20 65 | 76 65 6e 74 20 6c 6f 6f |; main e|vent loo|
|000053c0| 70 0a 28 6d 61 69 6e 2d | 65 76 65 6e 74 2d 6c 6f |p.(main-|event-lo|
|000053d0| 6f 70 29 0a 0a 3b 3b 20 | 69 6e 69 74 20 66 6c 65 |op)..;; |init fle|
|000053e0| 78 20 6d 65 6d 6f 72 79 | 20 6d 61 6e 61 67 65 72 |x memory| manager|
|000053f0| 0a 28 66 6c 65 78 2d 69 | 6e 69 74 29 0a 0a 3b 90 |.(flex-i|nit)..;.|
|00005400| 03 20 74 65 78 74 20 62 | 75 66 66 65 72 20 70 72 |. text b|uffer pr|
|00005410| 69 6d 69 74 69 76 65 73 | 0a 0a 3b 3b 20 63 72 65 |imitives|..;; cre|
|00005420| 61 74 65 20 61 20 6e 65 | 77 20 74 65 78 74 20 62 |ate a ne|w text b|
|00005430| 75 66 66 65 72 0a 3b 3b | 20 5b 69 6e 74 65 67 65 |uffer.;;| [intege|
|00005440| 72 5d 20 75 6e 64 6f 20 | 62 75 66 66 65 72 20 73 |r] undo |buffer s|
|00005450| 69 7a 65 20 28 3d 30 20 | 6e 6f 20 75 6e 64 6f 20 |ize (=0 |no undo |
|00005460| 62 75 66 66 65 72 29 0a | 28 74 78 74 2d 6e 65 77 |buffer).|(txt-new|
|00005470| 20 3c 73 74 72 69 6e 67 | 3e 20 5b 69 6e 74 65 67 | <string|> [integ|
|00005480| 65 72 5d 29 20 90 15 0a | 0a 3b 3b 20 64 69 73 70 |er]) ...|.;; disp|
|00005490| 6c 61 79 20 74 65 78 74 | 20 62 75 66 66 65 72 20 |lay text| buffer |
|000054a0| 69 6e 20 61 20 77 69 6e | 64 6f 77 0a 28 74 78 74 |in a win|dow.(txt|
|000054b0| 2d 73 68 6f 77 20 3c 74 | 78 74 3e 29 0a 0a 3b 3b |-show <t|xt>)..;;|
|000054c0| 20 63 6c 6f 73 65 20 77 | 69 6e 64 6f 77 73 20 6f | close w|indows o|
|000054d0| 70 65 6e 20 77 69 6e 64 | 6f 77 73 20 6f 66 20 74 |pen wind|ows of t|
|000054e0| 68 65 20 74 65 78 74 20 | 62 75 66 66 65 72 0a 28 |he text |buffer.(|
|000054f0| 74 78 74 2d 68 69 64 65 | 20 3c 74 78 74 3e 29 0a |txt-hide| <txt>).|
|00005500| 0a 3b 3b 20 73 65 74 20 | 77 69 6e 64 6f 77 20 74 |.;; set |window t|
|00005510| 69 74 6c 65 20 6f 66 20 | 74 65 78 74 20 62 75 66 |itle of |text buf|
|00005520| 66 65 72 0a 28 74 78 74 | 2d 73 65 74 74 69 74 6c |fer.(txt|-settitl|
|00005530| 65 20 3c 74 78 74 3e 20 | 3c 73 74 72 69 6e 67 3e |e <txt> |<string>|
|00005540| 29 0a 0a 3b 3b 20 64 65 | 6c 65 74 65 73 20 61 20 |)..;; de|letes a |
|00005550| 74 65 78 74 20 62 75 66 | 66 65 72 0a 28 74 78 74 |text buf|fer.(txt|
|00005560| 2d 64 69 73 70 6f 73 65 | 20 3c 74 78 74 3e 29 0a |-dispose| <txt>).|
|00005570| 0a 3b 3b 20 69 6e 74 65 | 72 6e 61 6c 20 73 69 7a |.;; inte|rnal siz|
|00005580| 65 20 6f 66 20 74 65 78 | 74 20 62 75 66 66 65 72 |e of tex|t buffer|
|00005590| 0a 28 74 78 74 2d 62 75 | 66 73 69 7a 65 20 3c 74 |.(txt-bu|fsize <t|
|000055a0| 78 74 3e 29 20 90 0c 0a | 0a 3b 3b 20 73 65 74 20 |xt>) ...|.;; set |
|000055b0| 69 6e 74 65 72 6e 61 6c | 20 73 69 7a 65 20 6f 66 |internal| size of|
|000055c0| 20 74 65 78 74 20 62 75 | 66 66 65 72 0a 28 74 78 | text bu|ffer.(tx|
|000055d0| 74 2d 73 65 74 62 75 66 | 73 69 7a 65 20 3c 74 78 |t-setbuf|size <tx|
|000055e0| 74 3e 20 3c 69 6e 74 65 | 67 65 72 3e 29 0a 0a 3b |t> <inte|ger>)..;|
|000055f0| 3b 20 67 65 74 20 74 68 | 65 20 63 68 61 72 20 6f |; get th|e char o|
|00005600| 70 74 69 6f 6e 73 20 6f | 66 20 74 68 65 20 74 65 |ptions o|f the te|
|00005610| 78 74 20 62 75 66 66 65 | 72 0a 28 74 78 74 2d 63 |xt buffe|r.(txt-c|
|00005620| 68 61 72 6f 70 74 69 6f | 6e 73 20 3c 74 78 74 3e |haroptio|ns <txt>|
|00005630| 29 0a 0a 3b 3b 20 73 65 | 74 20 74 68 65 20 63 68 |)..;; se|t the ch|
|00005640| 61 72 20 6f 70 74 69 6f | 6e 73 20 6f 66 20 74 68 |ar optio|ns of th|
|00005650| 65 20 74 65 78 74 20 62 | 75 66 66 65 72 20 90 05 |e text b|uffer ..|
|00005660| 0a 3b 3b 20 6d 61 73 6b | 3a 20 3c 69 6e 74 65 67 |.;; mask|: <integ|
|00005670| 65 72 31 3e 2c 20 66 6c | 61 67 73 3a 20 3c 69 6e |er1>, fl|ags: <in|
|00005680| 74 65 67 65 72 32 3e 0a | 28 74 78 74 2d 73 65 74 |teger2>.|(txt-set|
|00005690| 63 68 61 72 6f 70 74 69 | 6f 6e 73 20 3c 74 78 74 |charopti|ons <txt|
|000056a0| 3e 20 3c 69 6e 74 65 67 | 65 72 31 3e 20 3c 69 6e |> <integ|er1> <in|
|000056b0| 74 65 67 65 72 32 3e 29 | 0a 0a 3b 3b 20 72 65 74 |teger2>)|..;; ret|
|000056c0| 75 72 6e 73 20 70 6f 73 | 69 74 69 6f 6e 20 6f 66 |urns pos|ition of|
|000056d0| 20 63 75 72 73 6f 72 0a | 28 74 78 74 2d 64 6f 74 | cursor.|(txt-dot|
|000056e0| 20 3c 74 78 74 3e 29 0a | 0a 3b 3b 20 72 65 74 75 | <txt>).|.;; retu|
|000056f0| 72 6e 73 20 6d 61 78 69 | 6d 75 6d 20 76 61 6c 75 |rns maxi|mum valu|
|00005700| 65 20 74 68 65 20 63 75 | 72 73 6f 72 20 63 61 6e |e the cu|rsor can|
|00005710| 20 74 61 6b 65 0a 28 74 | 78 74 2d 73 69 7a 65 20 | take.(t|xt-size |
|00005720| 3c 74 78 74 3e 29 20 90 | 22 0a 0a 3b 3b 20 73 65 |<txt>) .|"..;; se|
|00005730| 74 20 63 75 72 73 6f 72 | 20 61 74 20 70 6f 73 69 |t cursor| at posi|
|00005740| 74 69 6f 6e 20 3c 69 6e | 74 65 67 65 72 3e 20 69 |tion <in|teger> i|
|00005750| 6e 20 74 65 78 74 20 62 | 75 66 66 65 72 0a 28 74 |n text b|uffer.(t|
|00005760| 78 74 2d 73 65 74 64 6f | 74 20 3c 74 78 74 3e 20 |xt-setdo|t <txt> |
|00005770| 3c 69 6e 74 65 67 65 72 | 3e 29 0a 0a 3b 3b 20 6d |<integer|>)..;; m|
|00005780| 6f 76 65 20 63 75 72 73 | 6f 72 20 62 79 20 3c 69 |ove curs|or by <i|
|00005790| 6e 74 65 67 65 72 3e 20 | 63 68 61 72 73 0a 28 74 |nteger> |chars.(t|
|000057a0| 78 74 2d 6d 6f 76 65 64 | 6f 74 20 3c 74 78 74 3e |xt-moved|ot <txt>|
|000057b0| 20 3c 69 6e 74 65 67 65 | 72 3e 29 0a 20 90 1c 0a | <intege|r>). ...|
|000057c0| 3b 3b 20 69 6e 73 65 72 | 74 20 63 68 61 72 20 74 |;; inser|t char t|
|000057d0| 6f 20 74 68 65 20 72 69 | 67 68 74 20 6f 66 20 74 |o the ri|ght of t|
|000057e0| 68 65 20 63 75 72 73 6f | 72 0a 28 74 78 74 2d 69 |he curso|r.(txt-i|
|000057f0| 6e 73 65 72 74 63 68 61 | 72 20 3c 74 78 74 3e 20 |nsertcha|r <txt> |
|00005800| 3c 63 68 61 72 3e 29 0a | 0a 3b 3b 20 69 6e 73 65 |<char>).|.;; inse|
|00005810| 72 74 20 73 74 72 69 6e | 67 20 74 6f 20 74 68 65 |rt strin|g to the|
|00005820| 20 72 69 67 68 74 20 6f | 66 20 74 68 65 20 63 75 | right o|f the cu|
|00005830| 72 73 6f 72 20 69 6e 20 | 74 68 65 20 74 65 78 74 |rsor in |the text|
|00005840| 20 62 75 66 66 65 72 0a | 28 74 78 74 2d 69 6e 73 | buffer.|(txt-ins|
|00005850| 65 72 74 73 74 72 69 6e | 67 20 3c 74 78 74 3e 20 |ertstrin|g <txt> |
|00005860| 3c 73 74 72 69 6e 67 3e | 29 0a 0a 3b 3b 20 64 65 |<string>|)..;; de|
|00005870| 6c 65 74 65 20 23 3c 69 | 6e 74 65 67 65 72 3e 20 |lete #<i|nteger> |
|00005880| 63 68 61 72 61 63 74 65 | 72 73 20 74 6f 20 74 68 |characte|rs to th|
|00005890| 65 20 72 69 67 68 74 20 | 6f 66 20 74 68 65 20 63 |e right |of the c|
|000058a0| 75 72 73 6f 72 20 0a 28 | 74 78 74 2d 64 65 6c 65 |ursor .(|txt-dele|
|000058b0| 74 65 20 3c 74 78 74 3e | 20 3c 69 6e 74 65 67 65 |te <txt>| <intege|
|000058c0| 72 3e 29 0a 0a 3b 3b 20 | 67 65 74 20 63 68 61 72 |r>)..;; |get char|
|000058d0| 61 63 74 65 72 20 61 74 | 20 63 75 72 73 6f 72 20 |acter at| cursor |
|000058e0| 70 6f 73 69 74 69 6f 6e | 0a 28 74 78 74 2d 63 68 |position|.(txt-ch|
|000058f0| 61 72 61 74 64 6f 74 20 | 3c 74 78 74 3e 29 0a 0a |aratdot |<txt>)..|
|00005900| 3b 3b 20 67 65 74 20 63 | 68 61 72 61 63 74 65 72 |;; get c|haracter|
|00005910| 20 61 74 20 70 6f 73 69 | 74 69 6f 6e 20 23 3c 69 | at posi|tion #<i|
|00005920| 6e 74 65 67 65 72 3e 20 | 0a 28 74 78 74 2d 63 68 |nteger> |.(txt-ch|
|00005930| 61 72 61 74 20 3c 74 78 | 74 3e 20 3c 69 6e 74 65 |arat <tx|t> <inte|
|00005940| 67 65 72 3e 29 0a 0a 3b | 3b 20 73 63 72 6f 6c 6c |ger>)..;|; scroll|
|00005950| 20 74 65 78 74 20 77 69 | 6e 64 6f 77 20 69 6e 20 | text wi|ndow in |
|00005960| 76 65 72 74 69 63 61 6c | 20 64 69 72 65 63 74 69 |vertical| directi|
|00005970| 6f 6e 0a 3b 3b 20 62 79 | 20 23 3c 69 6e 74 65 67 |on.;; by| #<integ|
|00005980| 65 72 31 3e 20 6c 69 6e | 65 73 20 28 3c 69 6e 74 |er1> lin|es (<int|
|00005990| 65 67 65 72 32 3e 3a 20 | 63 75 72 73 6f 72 20 66 |eger2>: |cursor f|
|000059a0| 69 78 65 64 29 0a 28 74 | 78 74 2d 6d 6f 76 65 76 |ixed).(t|xt-movev|
|000059b0| 65 72 74 69 63 61 6c 20 | 3c 74 78 74 3e 20 3c 69 |ertical |<txt> <i|
|000059c0| 6e 74 65 67 65 72 31 3e | 20 3c 69 6e 74 65 67 65 |nteger1>| <intege|
|000059d0| 72 32 3e 29 0a 0a 3b 3b | 20 73 63 72 6f 6c 6c 20 |r2>)..;;| scroll |
|000059e0| 74 65 78 74 20 77 69 6e | 64 6f 77 20 69 6e 20 68 |text win|dow in h|
|000059f0| 6f 72 69 7a 6f 6e 74 61 | 6c 20 64 69 72 65 63 74 |orizonta|l direct|
|00005a00| 69 6f 6e 0a 3b 3b 20 62 | 79 20 23 3c 69 6e 74 65 |ion.;; b|y #<inte|
|00005a10| 67 65 72 3e 20 63 68 61 | 72 61 63 74 65 72 73 0a |ger> cha|racters.|
|00005a20| 28 74 78 74 2d 6d 6f 76 | 65 68 6f 72 69 7a 6f 6e |(txt-mov|ehorizon|
|00005a30| 74 61 6c 20 3c 74 78 74 | 3e 20 3c 69 6e 74 65 67 |tal <txt|> <integ|
|00005a40| 65 72 3e 29 0a 0a 3b 3b | 20 72 65 74 75 72 6e 20 |er>)..;;| return |
|00005a50| 6e 75 6d 62 65 72 20 6f | 66 20 76 69 73 69 62 6c |number o|f visibl|
|00005a60| 65 20 6c 69 6e 65 73 20 | 69 6e 20 74 65 78 74 20 |e lines |in text |
|00005a70| 77 69 6e 64 6f 77 0a 28 | 74 78 74 2d 76 69 73 69 |window.(|txt-visi|
|00005a80| 62 6c 65 6c 69 6e 65 63 | 6f 75 6e 74 20 3c 74 78 |blelinec|ount <tx|
|00005a90| 74 3e 29 0a 0a 3b 3b 20 | 72 65 74 75 72 6e 20 6e |t>)..;; |return n|
|00005aa0| 75 6d 62 65 72 20 6f 66 | 20 76 69 73 69 62 6c 65 |umber of| visible|
|00005ab0| 20 63 6f 6c 75 6d 6e 73 | 20 69 6e 20 74 65 78 74 | columns| in text|
|00005ac0| 20 77 69 6e 64 6f 77 0a | 28 74 78 74 2d 76 69 73 | window.|(txt-vis|
|00005ad0| 69 62 6c 65 63 6f 6c 63 | 6f 75 6e 74 20 3c 74 78 |iblecolc|ount <tx|
|00005ae0| 74 3e 29 0a 0a 3b 3b 20 | 74 65 78 74 20 73 65 6c |t>)..;; |text sel|
|00005af0| 65 63 74 69 6f 6e 20 70 | 72 69 6d 69 74 69 76 65 |ection p|rimitive|
|00005b00| 73 0a 0a 3b 3b 20 72 65 | 74 75 72 6e 73 20 23 74 |s..;; re|turns #t|
|00005b10| 20 69 66 20 74 65 78 74 | 20 69 73 20 73 65 6c 65 | if text| is sele|
|00005b20| 63 74 69 6f 6e 20 69 73 | 20 6d 61 64 65 20 69 6e |ction is| made in|
|00005b30| 20 74 68 65 20 74 65 78 | 74 20 62 75 66 66 65 72 | the tex|t buffer|
|00005b40| 0a 3b 3b 20 23 66 20 6f | 74 68 65 72 77 69 73 65 |.;; #f o|therwise|
|00005b50| 20 0a 28 74 78 74 2d 73 | 65 6c 65 63 74 73 65 74 | .(txt-s|electset|
|00005b60| 20 3c 74 78 74 3e 29 0a | 0a 3b 3b 20 72 65 74 75 | <txt>).|.;; retu|
|00005b70| 72 6e 73 20 69 6e 64 65 | 78 20 6f 66 20 73 74 61 |rns inde|x of sta|
|00005b80| 72 74 20 6f 66 20 63 75 | 72 72 65 6e 74 20 73 65 |rt of cu|rrent se|
|00005b90| 6c 65 63 74 69 6f 6e 0a | 28 74 78 74 2d 73 65 6c |lection.|(txt-sel|
|00005ba0| 65 63 74 73 74 61 72 74 | 20 3c 74 78 74 3e 29 0a |ectstart| <txt>).|
|00005bb0| 0a 3b 3b 20 72 65 74 75 | 72 6e 73 20 69 6e 64 65 |.;; retu|rns inde|
|00005bc0| 78 20 6f 66 20 65 6e 64 | 20 6f 66 20 63 75 72 72 |x of end| of curr|
|00005bd0| 65 6e 74 20 73 65 6c 65 | 63 74 69 6f 6e 20 20 0a |ent sele|ction  .|
|00005be0| 28 74 78 74 2d 73 65 6c | 65 63 74 65 6e 64 29 0a |(txt-sel|ectend).|
|00005bf0| 0a 3b 3b 20 6d 61 6b 65 | 20 61 20 74 65 78 74 20 |.;; make| a text |
|00005c00| 73 65 6c 65 63 74 69 6f | 6e 20 66 72 6f 6d 20 3c |selectio|n from <|
|00005c10| 69 6e 74 65 67 65 72 31 | 3e 20 74 6f 20 3c 69 6e |integer1|> to <in|
|00005c20| 74 65 67 65 72 32 3e 0a | 28 74 78 74 2d 73 65 74 |teger2>.|(txt-set|
|00005c30| 73 65 6c 65 63 74 20 3c | 74 78 74 3e 20 3c 69 6e |select <|txt> <in|
|00005c40| 74 65 67 65 72 31 3e 20 | 3c 69 6e 74 65 67 65 72 |teger1> |<integer|
|00005c50| 32 3e 29 0a 20 90 0e 0a | 3b 3b 20 72 65 74 75 72 |2>). ...|;; retur|
|00005c60| 6e 73 20 6e 65 78 74 20 | 65 76 65 6e 74 20 66 6f |ns next |event fo|
|00005c70| 72 20 74 68 65 20 74 65 | 78 74 20 62 75 66 66 65 |r the te|xt buffe|
|00005c80| 72 0a 28 74 78 74 2d 67 | 65 74 20 3c 74 78 74 3e |r.(txt-g|et <txt>|
|00005c90| 29 0a 0a 3b 3b 20 6e 75 | 6d 62 65 72 20 6f 66 20 |)..;; nu|mber of |
|00005ca0| 70 65 6e 64 69 6e 67 20 | 65 76 65 6e 74 73 20 66 |pending |events f|
|00005cb0| 6f 72 20 74 68 65 20 74 | 65 78 74 20 62 75 66 66 |or the t|ext buff|
|00005cc0| 65 72 0a 28 74 78 74 2d | 71 75 65 75 65 20 3c 74 |er.(txt-|queue <t|
|00005cd0| 78 74 3e 29 20 90 09 0a | 0a 3b 3b 20 75 6e 67 65 |xt>) ...|.;; unge|
|00005ce0| 74 73 20 61 6e 20 65 76 | 65 6e 74 20 28 63 6f 64 |ts an ev|ent (cod|
|00005cf0| 65 3a 20 3c 69 6e 74 65 | 67 65 72 3e 29 20 66 6f |e: <inte|ger>) fo|
|00005d00| 72 20 74 68 65 20 74 65 | 78 74 20 62 75 66 66 65 |r the te|xt buffe|
|00005d10| 72 0a 28 74 78 74 2d 75 | 6e 67 65 74 20 3c 74 78 |r.(txt-u|nget <tx|
|00005d20| 74 3e 20 3c 69 6e 74 65 | 67 65 72 3e 29 20 90 1d |t> <inte|ger>) ..|
|00005d30| 0a 0a 3b 3b 20 72 65 67 | 69 73 74 65 72 20 61 6e |..;; reg|ister an|
|00005d40| 20 65 76 65 6e 74 20 68 | 61 6e 64 6c 65 72 20 28 | event h|andler (|
|00005d50| 3c 65 78 70 72 3e 29 20 | 66 6f 72 20 74 68 65 20 |<expr>) |for the |
|00005d60| 74 65 78 74 20 62 75 66 | 66 65 72 0a 28 74 78 74 |text buf|fer.(txt|
|00005d70| 2d 65 76 65 6e 74 68 61 | 6e 64 6c 65 72 20 3c 74 |-eventha|ndler <t|
|00005d80| 78 74 3e 20 3c 65 78 70 | 72 3e 29 0a 0a 3b 3b 20 |xt> <exp|r>)..;; |
|00005d90| 69 6e 69 74 20 74 65 78 | 74 20 65 64 69 74 20 6d |init tex|t edit m|
|00005da0| 6f 64 75 6c 65 0a 28 74 | 78 74 2d 69 6e 69 74 29 |odule.(t|xt-init)|
|00005db0| 20 90 0e 0a 0a 3b 3b 20 | 72 65 74 75 72 6e 20 77 | ....;; |return w|
|00005dc0| 69 6e 64 6f 77 20 68 61 | 6e 64 6c 65 20 6f 66 20 |indow ha|ndle of |
|00005dd0| 74 65 78 74 20 62 75 66 | 66 65 72 0a 28 74 78 74 |text buf|fer.(txt|
|00005de0| 2d 73 79 73 68 61 6e 64 | 6c 65 20 3c 74 78 74 3e |-syshand|le <txt>|
|00005df0| 29 0a 0a 3b 3b 20 73 65 | 74 20 6e 61 6d 65 20 6f |)..;; se|t name o|
|00005e00| 66 20 65 6e 76 69 72 6f | 6e 6d 65 6e 74 20 76 61 |f enviro|nment va|
|00005e10| 72 69 61 62 6c 65 20 75 | 73 65 64 20 66 6f 72 20 |riable u|sed for |
|00005e20| 74 65 78 74 20 62 75 66 | 66 65 72 20 6f 70 74 69 |text buf|fer opti|
|00005e30| 6f 6e 73 0a 28 74 78 74 | 6f 70 74 2d 73 65 74 2d |ons.(txt|opt-set-|
|00005e40| 6e 61 6d 65 20 3c 73 74 | 72 69 6e 67 3e 29 0a 0a |name <st|ring>)..|
|00005e50| 3b 3b 20 67 65 74 20 6e | 61 6d 65 20 6f 66 20 65 |;; get n|ame of e|
|00005e60| 6e 76 69 72 6f 6e 6d 65 | 6e 74 20 76 61 72 69 61 |nvironme|nt varia|
|00005e70| 62 6c 65 20 75 73 65 64 | 20 66 6f 72 20 74 65 78 |ble used| for tex|
|00005e80| 74 20 62 75 66 66 65 72 | 20 6f 70 74 69 6f 6e 73 |t buffer| options|
|00005e90| 0a 28 74 78 74 6f 70 74 | 2d 67 65 74 2d 6e 61 6d |.(txtopt|-get-nam|
|00005ea0| 65 29 0a 0a 3b 3b 20 73 | 65 74 20 61 20 27 67 6c |e)..;; s|et a 'gl|
|00005eb0| 6f 62 61 6c 27 20 74 65 | 78 74 20 73 65 6c 65 63 |obal' te|xt selec|
|00005ec0| 74 69 6f 6e 20 66 72 6f | 6d 20 3c 69 6e 74 65 67 |tion fro|m <integ|
|00005ed0| 65 72 31 3e 20 74 6f 20 | 3c 69 6e 74 65 67 65 72 |er1> to |<integer|
|00005ee0| 32 3e 0a 28 74 78 74 73 | 63 72 61 70 2d 73 65 74 |2>.(txts|crap-set|
|00005ef0| 73 65 6c 65 63 74 20 3c | 74 78 74 3e 20 3c 69 6e |select <|txt> <in|
|00005f00| 74 65 67 65 72 31 3e 20 | 3c 69 6e 74 65 67 65 72 |teger1> |<integer|
|00005f10| 32 3e 29 0a 0a 3b 3b 20 | 72 65 74 75 72 6e 73 20 |2>)..;; |returns |
|00005f20| 74 65 78 74 20 62 75 66 | 66 65 72 20 74 68 61 74 |text buf|fer that|
|00005f30| 20 6f 77 6e 73 20 63 75 | 72 72 65 6e 74 20 74 65 | owns cu|rrent te|
|00005f40| 78 74 20 73 65 6c 65 63 | 74 69 6f 6e 0a 28 74 78 |xt selec|tion.(tx|
|00005f50| 74 73 63 72 61 70 2d 73 | 65 6c 65 63 74 6f 77 6e |tscrap-s|electown|
|00005f60| 65 72 29 0a 20 90 11 0a | 3b 3b 20 63 72 65 61 74 |er). ...|;; creat|
|00005f70| 65 73 20 61 20 6e 65 77 | 20 76 69 65 77 20 6f 6e |es a new| view on|
|00005f80| 20 74 68 65 20 74 65 78 | 74 20 62 75 66 66 65 72 | the tex|t buffer|
|00005f90| 0a 28 74 78 74 77 69 6e | 2d 6e 65 77 20 3c 74 78 |.(txtwin|-new <tx|
|00005fa0| 74 3e 29 0a 0a 3b 3b 20 | 6e 75 6d 62 65 72 20 6f |t>)..;; |number o|
|00005fb0| 66 20 76 69 65 77 73 20 | 6f 6e 20 74 68 65 20 74 |f views |on the t|
|00005fc0| 65 78 74 20 62 75 66 66 | 65 72 0a 28 74 78 74 77 |ext buff|er.(txtw|
|00005fd0| 69 6e 2d 6e 75 6d 62 65 | 72 29 20 90 09 0a 0a 3b |in-numbe|r) ....;|
|00005fe0| 3b 20 63 6c 6f 73 65 73 | 20 61 20 76 69 65 77 20 |; closes| a view |
|00005ff0| 6f 6e 20 61 20 74 65 78 | 74 20 62 75 66 66 65 72 |on a tex|t buffer|
|00006000| 0a 28 74 78 74 77 69 6e | 2d 64 69 73 70 6f 73 65 |.(txtwin|-dispose|
|00006010| 20 3c 74 78 74 3e 29 0a | 0a 3b 3b 20 73 65 74 20 | <txt>).|.;; set |
|00006020| 63 75 72 72 65 6e 74 20 | 76 69 65 77 20 6f 66 20 |current |view of |
|00006030| 74 68 65 20 74 65 78 74 | 20 62 75 66 66 65 72 0a |the text| buffer.|
|00006040| 28 74 78 74 77 69 6e 2d | 73 65 74 63 75 72 72 65 |(txtwin-|setcurre|
|00006050| 6e 74 77 69 6e 64 6f 77 | 20 3c 74 78 74 3e 29 0a |ntwindow| <txt>).|
|00006060| 0a 3b 3b 20 73 74 61 72 | 74 20 76 69 73 75 61 6c |.;; star|t visual|
|00006070| 20 64 65 6c 61 79 20 28 | 68 6f 75 72 20 67 6c 61 | delay (|hour gla|
|00006080| 73 73 29 0a 28 76 69 73 | 64 65 6c 61 79 2d 62 65 |ss).(vis|delay-be|
|00006090| 67 69 6e 29 20 90 13 0a | 0a 3b 3b 20 73 65 74 20 |gin) ...|.;; set |
|000060a0| 70 65 72 63 65 6e 74 20 | 63 6f 6d 70 6c 65 74 65 |percent |complete|
|000060b0| 64 20 66 6f 72 20 68 6f | 75 72 20 67 6c 61 73 73 |d for ho|ur glass|
|000060c0| 0a 28 76 69 73 64 65 6c | 61 79 2d 70 65 72 63 65 |.(visdel|ay-perce|
|000060d0| 6e 74 20 3c 69 6e 74 65 | 67 65 72 3e 29 0a 0a 3b |nt <inte|ger>)..;|
|000060e0| 3b 20 62 65 65 6e 64 65 | 20 76 69 73 75 61 6c 20 |; beende| visual |
|000060f0| 64 65 6c 61 79 20 28 68 | 6f 75 72 20 67 6c 61 73 |delay (h|our glas|
|00006100| 73 29 0a 28 76 69 73 64 | 65 6c 61 79 2d 65 6e 64 |s).(visd|elay-end|
|00006110| 29 0a 0a 3b 3b 20 69 6e | 69 74 20 76 69 73 75 61 |)..;; in|it visua|
|00006120| 6c 20 64 65 6c 61 79 20 | 0a 28 76 69 73 64 65 6c |l delay |.(visdel|
|00006130| 61 79 2d 69 6e 69 74 29 | 20 90 0c 0a 0a 3b 3b 20 |ay-init)| ....;; |
|00006140| 73 65 6e 64 20 75 6e 6b | 6f 77 6e 20 6b 65 79 20 |send unk|own key |
|00006150| 65 76 65 6e 74 20 62 61 | 63 6b 20 74 6f 20 77 69 |event ba|ck to wi|
|00006160| 6d 70 20 66 6f 72 20 66 | 75 72 74 68 65 72 20 61 |mp for f|urther a|
|00006170| 63 74 69 6f 6e 73 20 20 | 0a 28 77 69 6d 70 2d 70 |ctions  |.(wimp-p|
|00006180| 72 6f 63 65 73 73 6b 65 | 79 20 3c 69 6e 74 65 67 |rocesske|y <integ|
|00006190| 65 72 3e 29 0a 0a 3b 3b | 20 69 6e 63 72 65 6d 65 |er>)..;;| increme|
|000061a0| 6e 74 20 61 63 74 69 76 | 65 20 77 69 6e 64 6f 77 |nt activ|e window|
|000061b0| 73 20 63 6f 75 6e 74 65 | 72 0a 28 77 69 6e 2d 61 |s counte|r.(win-a|
|000061c0| 63 74 69 76 65 69 6e 63 | 29 0a 0a 3b 3b 20 64 65 |ctiveinc|)..;; de|
|000061d0| 63 72 65 6d 65 6e 74 20 | 61 63 74 69 76 65 20 77 |crement |active w|
|000061e0| 69 6e 64 6f 77 73 20 63 | 6f 75 6e 74 65 72 0a 28 |indows c|ounter.(|
|000061f0| 77 69 6e 2d 61 63 74 69 | 76 65 64 65 63 29 20 90 |win-acti|vedec) .|
|00006200| 14 0a 0a 3b 3b 20 72 65 | 74 75 72 6e 73 20 6e 75 |...;; re|turns nu|
|00006210| 6d 62 65 72 20 6f 66 20 | 61 63 74 69 76 65 20 77 |mber of |active w|
|00006220| 69 6e 64 6f 77 73 0a 28 | 77 69 6e 2d 61 63 74 69 |indows.(|win-acti|
|00006230| 76 65 6e 6f 29 0a 0a 3b | 3b 20 67 69 76 65 20 63 |veno)..;|; give c|
|00006240| 61 72 65 74 20 61 77 61 | 79 20 74 6f 20 77 69 6e |aret awa|y to win|
|00006250| 64 6f 77 20 6f 6e 20 74 | 68 65 20 74 6f 70 20 6f |dow on t|he top o|
|00006260| 66 20 74 68 65 20 77 69 | 6e 64 6f 77 20 73 74 61 |f the wi|ndow sta|
|00006270| 63 6b 0a 28 77 69 6e 2d | 67 69 76 65 2d 61 77 61 |ck.(win-|give-awa|
|00006280| 79 2d 63 61 72 65 74 29 | 0a 0a 3b 3b 20 72 65 74 |y-caret)|..;; ret|
|00006290| 75 72 6e 73 20 6e 61 6d | 65 20 61 6e 64 20 74 79 |urns nam|e and ty|
|000062a0| 70 65 20 6f 66 20 66 69 | 6c 65 20 74 6f 20 69 6d |pe of fi|le to im|
|000062b0| 70 6f 72 74 20 61 73 20 | 61 20 6c 69 73 74 0a 3b |port as |a list.;|
|000062c0| 3b 20 6f 72 20 23 66 2c | 20 69 66 20 69 74 20 66 |; or #f,| if it f|
|000062d0| 61 69 6c 73 0a 28 78 66 | 65 72 72 65 63 76 2d 63 |ails.(xf|errecv-c|
|000062e0| 68 65 63 6b 69 6e 73 65 | 72 74 29 0a 0a 3b 3b 20 |heckinse|rt)..;; |
|000062f0| 64 61 74 61 20 28 66 69 | 6c 65 29 20 69 6d 70 6f |data (fi|le) impo|
|00006300| 72 74 20 63 6f 6d 70 6c | 65 74 65 64 0a 28 78 66 |rt compl|eted.(xf|
|00006310| 65 72 72 65 63 76 2d 69 | 6e 73 65 72 74 66 69 6c |errecv-i|nsertfil|
|00006320| 65 6f 6b 29 0a 20 90 36 | 0a 3b 3b 20 74 65 73 74 |eok). .6|.;; test|
|00006330| 73 20 69 66 20 6d 65 6e | 75 20 65 6e 74 72 79 20 |s if men|u entry |
|00006340| 3c 69 6e 74 65 67 65 72 | 3e 20 68 61 73 20 62 65 |<integer|> has be|
|00006350| 65 6e 20 73 65 6c 65 63 | 74 65 64 20 0a 3b 3b 20 |en selec|ted .;; |
|00006360| 6d 65 6e 75 20 73 65 6c | 65 63 74 69 6f 6e 20 27 |menu sel|ection '|
|00006370| 73 74 72 69 6e 67 27 3a | 20 3c 73 79 6d 62 6f 6c |string':| <symbol|
|00006380| 3e 0a 28 6d 65 6e 75 2d | 69 74 65 6d 20 3c 73 79 |>.(menu-|item <sy|
|00006390| 6d 62 6f 6c 3e 20 3c 69 | 6e 74 65 67 65 72 3e 29 |mbol> <i|nteger>)|
|000063a0| 0a 0a 3b 3b 20 72 65 74 | 75 72 6e 20 73 75 62 6d |..;; ret|urn subm|
|000063b0| 65 6e 75 20 73 65 6c 65 | 63 74 69 6f 6e 20 66 72 |enu sele|ction fr|
|000063c0| 6f 6d 20 6d 65 6e 75 20 | 73 65 6c 65 63 74 69 6f |om menu |selectio|
|000063d0| 6e 0a 3b 3b 20 6d 65 6e | 75 20 73 65 6c 65 63 74 |n.;; men|u select|
|000063e0| 69 6f 6e 20 27 73 74 72 | 69 6e 67 27 3a 20 3c 73 |ion 'str|ing': <s|
|000063f0| 79 6d 62 6f 6c 3e 0a 28 | 6d 65 6e 75 2d 73 75 62 |ymbol>.(|menu-sub|
+--------+-------------------------+-------------------------+--------+--------+