/ BCI NET 2 / BCI NET 2.iso / archives / programming / source / a2.0bemacs-src.lha / Emacs-19.25 / lisp / amiga-init.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 64 67 69 6c 62 65 72 |piled by| dgilber|
|00000020| 74 40 6a 61 79 77 6f 6e | 2e 70 63 69 2e 6f 6e 2e |t@jaywon|.pci.on.|
|00000030| 63 61 20 6f 6e 20 57 65 | 64 20 4a 61 6e 20 20 34 |ca on We|d Jan  4|
|00000040| 20 32 32 3a 34 35 3a 34 | 39 20 31 39 39 35 0a 3b | 22:45:4|9 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 66 69 76 |;; from |file fiv|
|00000060| 65 3a 43 57 6f 72 6b 2f | 65 6d 61 63 73 2d 31 39 |e:CWork/|emacs-19|
|00000070| 2e 32 35 2f 6c 69 73 70 | 2f 61 6d 69 67 61 2d 69 |.25/lisp|/amiga-i|
|00000080| 6e 69 74 2e 65 6c 0a 3b | 3b 3b 20 65 6d 61 63 73 |nit.el.;|;; emacs|
|00000090| 20 76 65 72 73 69 6f 6e | 20 31 39 2e 32 35 2e 31 | version| 19.25.1|
|000000a0| 2e 0a 3b 3b 3b 20 62 79 | 74 65 63 6f 6d 70 20 76 |..;;; by|tecomp v|
|000000b0| 65 72 73 69 6f 6e 20 46 | 53 46 20 32 2e 31 30 0a |ersion F|SF 2.10.|
|000000c0| 3b 3b 3b 20 6f 70 74 69 | 6d 69 7a 61 74 69 6f 6e |;;; opti|mization|
|000000d0| 20 69 73 20 6f 6e 2e 0a | 3b 3b 3b 20 74 68 69 73 | is on..|;;; this|
|000000e0| 20 66 69 6c 65 20 75 73 | 65 73 20 6f 70 63 6f 64 | file us|es opcod|
|000000f0| 65 73 20 77 68 69 63 68 | 20 64 6f 20 6e 6f 74 20 |es which| do not |
|00000100| 65 78 69 73 74 20 69 6e | 20 45 6d 61 63 73 20 31 |exist in| Emacs 1|
|00000110| 38 2e 0a 0a 28 69 66 20 | 28 61 6e 64 20 28 62 6f |8...(if |(and (bo|
|00000120| 75 6e 64 70 20 27 65 6d | 61 63 73 2d 76 65 72 73 |undp 'em|acs-vers|
|00000130| 69 6f 6e 29 0a 09 20 28 | 6f 72 20 28 61 6e 64 20 |ion).. (|or (and |
|00000140| 28 62 6f 75 6e 64 70 20 | 27 65 70 6f 63 68 3a 3a |(boundp |'epoch::|
|00000150| 76 65 72 73 69 6f 6e 29 | 20 65 70 6f 63 68 3a 3a |version)| epoch::|
|00000160| 76 65 72 73 69 6f 6e 29 | 0a 09 20 20 20 20 20 28 |version)|..     (|
|00000170| 73 74 72 69 6e 67 2d 6c | 65 73 73 70 20 65 6d 61 |string-l|essp ema|
|00000180| 63 73 2d 76 65 72 73 69 | 6f 6e 20 22 31 39 22 29 |cs-versi|on "19")|
|00000190| 29 29 0a 20 20 20 20 28 | 65 72 72 6f 72 20 22 60 |)).    (|error "`|
|000001a0| 66 69 76 65 3a 43 57 6f | 72 6b 2f 65 6d 61 63 73 |five:CWo|rk/emacs|
|000001b0| 2d 31 39 2e 32 35 2f 6c | 69 73 70 2f 61 6d 69 67 |-19.25/l|isp/amig|
|000001c0| 61 2d 69 6e 69 74 2e 65 | 6c 27 20 77 61 73 20 63 |a-init.e|l' was c|
|000001d0| 6f 6d 70 69 6c 65 64 20 | 66 6f 72 20 45 6d 61 63 |ompiled |for Emac|
|000001e0| 73 20 31 39 22 29 29 0a | 0a 28 62 79 74 65 2d 63 |s 19")).|.(byte-c|
|000001f0| 6f 64 65 20 22 c0 c1 c2 | 5c 22 88 c3 20 14 c0 c5 |ode "...|\".. ...|
|00000200| 5c 66 5c 22 88 c6 c7 21 | 88 c8 0e 09 ca cb 23 88 |\f\"...!|......#.|
|00000210| c8 0e 09 cc cd 23 88 c8 | 0e 09 ce cf 23 88 c8 0e |.....#..|....#...|
|00000220| 09 d0 d1 23 88 c8 0e 09 | d2 d3 23 88 c8 0e 09 d4 |...#....|..#.....|
|00000230| d5 23 88 c8 0e 09 d6 d7 | 23 88 c8 0e 09 d8 d9 23 |.#......|#......#|
|00000240| 88 c8 0e 09 da db 23 88 | c8 0e 09 dc dd 23 88 c8 |......#.|.....#..|
|00000250| 0e 09 de df 23 88 c8 0e | 09 e0 e1 23 88 c8 0e 09 |....#...|...#....|
|00000260| e2 e3 23 88 e4 20 16 25 | c8 5c 66 e6 0e 25 23 88 |..#.. .%|.\f..%#.|
|00000270| c8 0e 25 e7 89 23 88 c8 | 0e 25 e8 89 23 88 c8 0e |..%..#..|.%..#...|
|00000280| 25 e9 89 23 88 c8 0e 25 | ea 89 23 88 c8 0e 25 eb |%..#...%|..#...%.|
|00000290| ec 23 88 c8 0e 25 ed ee | 23 88 c8 0e 25 ef f0 23 |.#...%..|#...%..#|
|000002a0| 88 c8 0e 25 f1 f2 23 88 | c8 0e 25 f3 f4 23 88 c8 |...%..#.|..%..#..|
|000002b0| 0e 25 f5 f6 23 88 c8 0e | 25 f7 f8 23 88 c8 0e 25 |.%..#...|%..#...%|
|000002c0| f9 fa 23 88 c8 0e 25 fb | fc 23 88 c8 0e 25 fd fe |..#...%.|.#...%..|
|000002d0| 23 88 c8 0e 25 ff 81 40 | 00 23 88 c8 0e 25 81 41 |#...%..@|.#...%.A|
|000002e0| 00 81 42 00 23 88 c8 0e | 25 81 43 00 81 44 00 23 |..B.#...|%.C..D.#|
|000002f0| 88 c8 0e 25 81 45 00 81 | 46 00 23 88 c8 0e 25 81 |...%.E..|F.#...%.|
|00000300| 47 00 81 48 00 23 88 c8 | 0e 25 81 49 00 81 4a 00 |G..H.#..|.%.I..J.|
|00000310| 23 87 22 20 5b 67 6c 6f | 62 61 6c 2d 73 65 74 2d |#." [glo|bal-set-|
|00000320| 6b 65 79 20 22 1a 22 20 | 61 6d 69 67 61 2d 69 63 |key "." |amiga-ic|
|00000330| 6f 6e 69 66 79 20 6d 61 | 6b 65 2d 6b 65 79 6d 61 |onify ma|ke-keyma|
|00000340| 70 20 61 6d 69 67 61 2d | 6d 61 70 20 22 18 1e 22 |p amiga-|map ".."|
|00000350| 20 6c 6f 61 64 20 22 61 | 6d 69 67 61 2d 6d 6f 75 | load "a|miga-mou|
|00000360| 73 65 22 20 64 65 66 69 | 6e 65 2d 6b 65 79 20 67 |se" defi|ne-key g|
|00000370| 6c 6f 62 61 6c 2d 6d 61 | 70 20 5b 68 65 6c 70 5d |lobal-ma|p [help]|
|00000380| 20 69 6e 66 6f 20 5b 53 | 2d 6c 65 66 74 5d 20 5b | info [S|-left] [|
|00000390| 70 72 69 6f 72 5d 20 5b | 53 2d 72 69 67 68 74 5d |prior] [|S-right]|
|000003a0| 20 5b 6e 65 78 74 5d 20 | 5b 53 2d 64 6f 77 6e 5d | [next] |[S-down]|
|000003b0| 20 73 63 72 6f 6c 6c 2d | 75 70 20 5b 53 2d 75 70 | scroll-|up [S-up|
|000003c0| 5d 20 73 63 72 6f 6c 6c | 2d 64 6f 77 6e 20 5b 43 |] scroll|-down [C|
|000003d0| 2d 6c 65 66 74 5d 20 66 | 6f 72 77 61 72 64 2d 73 |-left] f|orward-s|
|000003e0| 65 78 70 20 5b 43 2d 72 | 69 67 68 74 5d 20 62 61 |exp [C-r|ight] ba|
|000003f0| 63 6b 77 61 72 64 2d 73 | 65 78 70 20 5b 43 2d 64 |ckward-s|exp [C-d|
|00000400| 6f 77 6e 5d 20 73 63 72 | 6f 6c 6c 2d 64 6f 77 6e |own] scr|oll-down|
|00000410| 2d 31 20 5b 43 2d 75 70 | 5d 20 73 63 72 6f 6c 6c |-1 [C-up|] scroll|
|00000420| 2d 75 70 2d 31 20 5b 4d | 2d 75 70 5d 20 5b 62 65 |-up-1 [M|-up] [be|
|00000430| 67 69 6e 5d 20 5b 4d 2d | 64 6f 77 6e 5d 20 5b 65 |gin] [M-|down] [e|
|00000440| 6e 64 5d 20 5b 4d 2d 6c | 65 66 74 5d 20 62 65 67 |nd] [M-l|eft] beg|
|00000450| 69 6e 6e 69 6e 67 2d 6f | 66 2d 6c 69 6e 65 20 5b |inning-o|f-line [|
|00000460| 4d 2d 72 69 67 68 74 5d | 20 65 6e 64 2d 6f 66 2d |M-right]| end-of-|
|00000470| 6c 69 6e 65 20 6d 61 6b | 65 2d 73 70 61 72 73 65 |line mak|e-sparse|
|00000480| 2d 6b 65 79 6d 61 70 20 | 61 6d 69 67 61 2d 6b 65 |-keymap |amiga-ke|
|00000490| 79 70 61 64 2d 6d 61 70 | 20 22 4b 22 20 22 5b 22 |ypad-map| "K" "["|
|000004a0| 20 22 5d 22 20 22 7b 22 | 20 22 7d 22 20 22 2f 22 | "]" "{"| "}" "/"|
|000004b0| 20 5b 6b 70 2d 64 69 76 | 69 64 65 5d 20 22 2a 22 | [kp-div|ide] "*"|
|000004c0| 20 5b 6b 70 2d 6d 75 6c | 74 69 70 6c 79 5d 20 22 | [kp-mul|tiply] "|
|000004d0| 2d 22 20 5b 6b 70 2d 73 | 75 62 74 72 61 63 74 5d |-" [kp-s|ubtract]|
|000004e0| 20 22 2b 22 20 5b 6b 70 | 2d 61 64 64 5d 20 22 2e | "+" [kp|-add] ".|
|000004f0| 22 20 5b 6b 70 2d 64 65 | 63 69 6d 61 6c 5d 20 5b |" [kp-de|cimal] [|
|00000500| 52 45 54 5d 20 5b 6b 70 | 2d 65 6e 74 65 72 5d 20 |RET] [kp|-enter] |
|00000510| 5b 30 5d 20 5b 6b 70 2d | 30 5d 20 5b 31 5d 20 5b |[0] [kp-|0] [1] [|
|00000520| 6b 70 2d 31 5d 20 5b 32 | 5d 20 5b 6b 70 2d 32 5d |kp-1] [2|] [kp-2]|
|00000530| 20 5b 33 5d 20 5b 6b 70 | 2d 33 5d 20 5b 34 5d 20 | [3] [kp|-3] [4] |
|00000540| 5b 6b 70 2d 34 5d 20 5b | 35 5d 20 5b 6b 70 2d 35 |[kp-4] [|5] [kp-5|
|00000550| 5d 20 5b 36 5d 20 5b 6b | 70 2d 36 5d 20 5b 37 5d |] [6] [k|p-6] [7]|
|00000560| 20 5b 6b 70 2d 37 5d 20 | 5b 38 5d 20 5b 6b 70 2d | [kp-7] |[8] [kp-|
|00000570| 38 5d 20 5b 39 5d 20 5b | 6b 70 2d 39 5d 5d 20 34 |8] [9] [|kp-9]] 4|
|00000580| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 73 63 72 |).(defal|ias 'scr|
|00000590| 6f 6c 6c 2d 64 6f 77 6e | 2d 31 20 23 5b 6e 69 6c |oll-down|-1 #[nil|
|000005a0| 20 22 c0 c1 21 87 22 20 | 5b 73 63 72 6f 6c 6c 2d | "..!." |[scroll-|
|000005b0| 64 6f 77 6e 20 31 5d 20 | 32 20 22 5c 0a 4d 6f 76 |down 1] |2 "\.Mov|
|000005c0| 65 20 75 70 20 6f 6e 65 | 20 6c 69 6e 65 20 6f 6e |e up one| line on|
|000005d0| 20 73 63 72 65 65 6e 2e | 22 20 6e 69 6c 5d 29 0a | screen.|" nil]).|
|000005e0| 28 64 65 66 61 6c 69 61 | 73 20 27 73 63 72 6f 6c |(defalia|s 'scrol|
|000005f0| 6c 2d 75 70 2d 31 20 23 | 5b 6e 69 6c 20 22 c0 c1 |l-up-1 #|[nil "..|
|00000600| 21 87 22 20 5b 73 63 72 | 6f 6c 6c 2d 75 70 20 31 |!." [scr|oll-up 1|
|00000610| 5d 20 32 20 22 5c 0a 4d | 6f 76 65 20 64 6f 77 6e |] 2 "\.M|ove down|
|00000620| 20 6f 6e 65 20 6c 69 6e | 65 20 6f 6e 20 73 63 72 | one lin|e on scr|
|00000630| 65 65 6e 2e 22 20 6e 69 | 6c 5d 29 0a 28 64 65 66 |een." ni|l]).(def|
|00000640| 75 6e 20 75 6e 66 6f 63 | 75 73 2d 66 72 61 6d 65 |un unfoc|us-frame|
|00000650| 20 6e 69 6c 20 22 5c 0a | 41 20 64 75 6d 6d 79 2c | nil "\.|A dummy,|
|00000660| 20 75 73 65 64 20 62 79 | 20 67 65 6e 65 72 61 6c | used by| general|
|00000670| 20 6d 6f 75 73 65 2e 65 | 6c 2e 22 20 28 69 6e 74 | mouse.e|l." (int|
|00000680| 65 72 61 63 74 69 76 65 | 29 29 0a 28 64 65 66 61 |eractive|)).(defa|
|00000690| 6c 69 61 73 20 27 77 69 | 6e 64 6f 77 2d 66 72 61 |lias 'wi|ndow-fra|
|000006a0| 6d 65 20 23 5b 28 77 29 | 20 22 c0 20 87 22 20 5b |me #[(w)| ". ." [|
|000006b0| 73 65 6c 65 63 74 65 64 | 2d 66 72 61 6d 65 5d 20 |selected|-frame] |
|000006c0| 31 20 22 5c 0a 52 65 74 | 75 72 6e 20 74 68 65 20 |1 "\.Ret|urn the |
|000006d0| 66 72 61 6d 65 20 6f 62 | 6a 65 63 74 20 74 68 61 |frame ob|ject tha|
|000006e0| 74 20 77 69 6e 64 6f 77 | 20 57 49 4e 44 4f 57 20 |t window| WINDOW |
|000006f0| 69 73 20 6f 6e 2e 22 20 | 6e 69 6c 5d 29 0a 28 62 |is on." |nil]).(b|
|00000700| 79 74 65 2d 63 6f 64 65 | 20 22 c0 11 c0 12 c0 87 |yte-code| "......|
|00000710| 22 20 5b 6e 69 6c 20 61 | 6d 69 67 61 2d 61 72 65 |" [nil a|miga-are|
|00000720| 78 78 2d 70 72 6f 63 65 | 73 73 69 6e 67 20 61 6d |xx-proce|ssing am|
|00000730| 69 67 61 2d 61 72 65 78 | 78 2d 65 72 72 6f 72 73 |iga-arex|x-errors|
|00000740| 5d 20 31 29 0a 28 64 65 | 66 76 61 72 20 61 6d 69 |] 1).(de|fvar ami|
|00000750| 67 61 2d 61 72 65 78 78 | 2d 66 61 69 6c 61 74 20 |ga-arexx|-failat |
|00000760| 35 20 22 5c 0a 52 65 74 | 75 72 6e 20 6c 65 76 65 |5 "\.Ret|urn leve|
|00000770| 6c 20 66 72 6f 6d 20 77 | 68 69 63 68 20 61 72 65 |l from w|hich are|
|00000780| 78 78 20 63 6f 6d 6d 61 | 6e 64 73 20 72 65 74 75 |xx comma|nds retu|
|00000790| 72 6e 73 20 63 61 75 73 | 65 20 65 72 72 6f 72 73 |rns caus|e errors|
|000007a0| 22 29 0a 28 64 65 66 61 | 6c 69 61 73 20 28 71 75 |").(defa|lias (qu|
|000007b0| 6f 74 65 20 61 6d 69 67 | 61 2d 61 72 65 78 78 2d |ote amig|a-arexx-|
|000007c0| 70 72 6f 63 65 73 73 29 | 20 23 5b 6e 69 6c 20 22 |process)| #[nil "|
|000007d0| 08 3f 85 0f 00 c1 10 c2 | c3 c4 8f 88 c2 89 10 87 |.?......|........|
|000007e0| 22 20 5b 61 6d 69 67 61 | 2d 61 72 65 78 78 2d 70 |" [amiga|-arexx-p|
|000007f0| 72 6f 63 65 73 73 69 6e | 67 20 74 20 6e 69 6c 20 |rocessin|g t nil |
|00000800| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 19 c2 20 |(byte-co|de "... |
|00000810| 89 11 83 1b 00 c3 c0 1c | 1d c6 c7 c8 8f 88 c9 0d |........|........|
|00000820| 5c 66 5c 22 88 2a 82 02 | 00 29 c0 87 22 20 5b 6e |\f\".*..|.).." [n|
|00000830| 69 6c 20 61 72 65 78 78 | 63 6d 64 20 61 6d 69 67 |il arexx|cmd amig|
|00000840| 61 2d 61 72 65 78 78 2d | 67 65 74 2d 6e 65 78 74 |a-arexx-|get-next|
|00000850| 2d 6d 73 67 20 30 20 72 | 65 73 75 6c 74 20 72 63 |-msg 0 r|esult rc|
|00000860| 20 65 72 72 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | err (by|te-code |
|00000870| 22 c0 09 21 40 1a c3 c4 | 5c 6e 21 21 15 29 c0 87 |"..!@...|\n!!.)..|
|00000880| 22 20 5b 72 65 61 64 2d | 66 72 6f 6d 2d 73 74 72 |" [read-|from-str|
|00000890| 69 6e 67 20 61 72 65 78 | 78 63 6d 64 20 65 78 70 |ing arex|xcmd exp|
|000008a0| 72 20 70 72 69 6e 31 2d | 74 6f 2d 73 74 72 69 6e |r prin1-|to-strin|
|000008b0| 67 20 65 76 61 6c 20 72 | 65 73 75 6c 74 5d 20 33 |g eval r|esult] 3|
|000008c0| 29 20 28 28 65 72 72 6f | 72 20 28 62 79 74 65 2d |) ((erro|r (byte-|
|000008d0| 63 6f 64 65 20 22 c0 11 | c2 0b 21 14 c0 87 22 20 |code "..|..!..." |
|000008e0| 5b 32 30 20 72 63 20 70 | 72 69 6e 31 2d 74 6f 2d |[20 rc p|rin1-to-|
|000008f0| 73 74 72 69 6e 67 20 65 | 72 72 20 72 65 73 75 6c |string e|rr resul|
|00000900| 74 5d 20 32 29 29 29 20 | 61 6d 69 67 61 2d 61 72 |t] 2))) |amiga-ar|
|00000910| 65 78 78 2d 72 65 70 6c | 79 5d 20 33 29 20 28 28 |exx-repl|y] 3) ((|
|00000920| 65 72 72 6f 72 29 29 5d | 20 33 20 6e 69 6c 20 6e |error))]| 3 nil n|
|00000930| 69 6c 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |il]).(de|falias '|
|00000940| 61 6d 69 67 61 2d 61 72 | 65 78 78 2d 77 61 69 74 |amiga-ar|exx-wait|
|00000950| 2d 63 6f 6d 6d 61 6e 64 | 20 23 5b 28 69 64 29 20 |-command| #[(id) |
|00000960| 22 c0 20 88 c1 5c 6e 21 | 84 12 00 c3 20 88 c0 20 |". ..\n!|.... .. |
|00000970| 88 82 03 00 c4 5c 6e 21 | 87 22 20 5b 61 6d 69 67 |.....\n!|." [amig|
|00000980| 61 2d 61 72 65 78 78 2d | 70 72 6f 63 65 73 73 20 |a-arexx-|process |
|00000990| 61 6d 69 67 61 2d 61 72 | 65 78 78 2d 63 68 65 63 |amiga-ar|exx-chec|
|000009a0| 6b 2d 63 6f 6d 6d 61 6e | 64 20 69 64 20 61 6d 69 |k-comman|d id ami|
|000009b0| 67 61 2d 61 72 65 78 78 | 2d 77 61 69 74 20 61 6d |ga-arexx|-wait am|
|000009c0| 69 67 61 2d 61 72 65 78 | 78 2d 67 65 74 2d 6d 73 |iga-arex|x-get-ms|
|000009d0| 67 2d 72 65 73 75 6c 74 | 73 5d 20 32 20 22 5c 0a |g-result|s] 2 "\.|
|000009e0| 57 61 69 74 73 20 66 6f | 72 20 61 20 70 65 6e 64 |Waits fo|r a pend|
|000009f0| 69 6e 67 20 41 52 65 78 | 78 20 63 6f 6d 6d 61 6e |ing ARex|x comman|
|00000a00| 64 73 20 28 4d 53 47 49 | 44 29 20 74 6f 20 63 6f |ds (MSGI|D) to co|
|00000a10| 6d 70 6c 65 74 65 2e 0a | 41 6c 73 6f 20 70 72 6f |mplete..|Also pro|
|00000a20| 63 65 73 73 65 73 20 61 | 6e 79 20 70 65 6e 64 69 |cesses a|ny pendi|
|00000a30| 6e 67 20 41 52 65 78 78 | 20 72 65 71 75 65 73 74 |ng ARexx| request|
|00000a40| 73 20 64 75 72 69 6e 67 | 20 74 68 69 73 20 69 6e |s during| this in|
|00000a50| 74 65 72 76 61 6c 2e 0a | 72 65 74 75 72 6e 73 20 |terval..|returns |
|00000a60| 74 68 65 20 72 65 73 75 | 6c 74 20 6c 69 73 74 20 |the resu|lt list |
|00000a70| 61 73 73 6f 63 69 61 74 | 65 64 20 77 69 74 68 20 |associat|ed with |
|00000a80| 74 68 69 73 20 69 64 2c | 20 77 68 69 63 68 20 74 |this id,| which t|
|00000a90| 61 6b 65 73 20 74 68 65 | 0a 66 6f 72 6d 3a 20 28 |akes the|.form: (|
|00000aa0| 6d 73 67 69 64 20 72 65 | 73 75 6c 74 2d 63 6f 64 |msgid re|sult-cod|
|00000ab0| 65 20 65 72 72 6f 72 2d | 6f 72 2d 73 74 72 69 6e |e error-|or-strin|
|00000ac0| 67 29 0a 60 60 65 72 72 | 6f 72 2d 6f 72 2d 73 74 |g).``err|or-or-st|
|00000ad0| 72 69 6e 67 27 27 20 64 | 65 70 65 6e 64 73 20 6f |ring'' d|epends o|
|00000ae0| 6e 20 60 60 72 65 73 75 | 6c 74 2d 63 6f 64 65 27 |n ``resu|lt-code'|
|00000af0| 27 2e 0a 69 66 20 60 60 | 72 65 73 75 6c 74 2d 63 |'..if ``|result-c|
|00000b00| 6f 64 65 27 27 20 69 73 | 20 30 20 74 68 65 20 63 |ode'' is| 0 the c|
|00000b10| 6f 6d 6d 61 6e 64 20 66 | 69 6e 69 73 68 65 64 20 |ommand f|inished |
|00000b20| 73 75 63 63 65 73 73 66 | 75 6c 6c 79 20 61 6e 64 |successf|ully and|
|00000b30| 0a 60 60 65 72 72 6f 72 | 2d 6f 72 2d 73 74 72 69 |.``error|-or-stri|
|00000b40| 6e 67 27 27 20 77 69 6c | 6c 20 62 65 20 61 20 73 |ng'' wil|l be a s|
|00000b50| 74 72 69 6e 67 20 6f 72 | 20 6e 69 6c 2c 20 6f 74 |tring or| nil, ot|
|00000b60| 68 65 72 77 69 73 65 20 | 74 68 65 20 63 6f 6d 6d |herwise |the comm|
|00000b70| 61 6e 64 0a 72 65 74 75 | 72 6e 65 64 20 77 69 74 |and.retu|rned wit|
|00000b80| 68 20 61 6e 20 65 72 72 | 6f 72 20 61 6e 64 20 60 |h an err|or and `|
|00000b90| 60 65 72 72 6f 72 2d 6f | 72 2d 73 74 72 69 6e 67 |`error-o|r-string|
|00000ba0| 27 27 20 77 69 6c 6c 20 | 62 65 20 61 6e 20 69 6e |'' will |be an in|
|00000bb0| 74 65 72 67 65 72 0a 74 | 68 61 74 20 69 73 20 74 |terger.t|hat is t|
|00000bc0| 68 65 20 73 65 63 6f 6e | 64 61 72 79 20 65 72 72 |he secon|dary err|
|00000bd0| 6f 72 20 63 6f 64 65 20 | 6f 66 20 74 68 65 20 61 |or code |of the a|
|00000be0| 72 65 78 78 20 63 6f 6d | 6d 61 6e 64 2e 22 5d 29 |rexx com|mand."])|
|00000bf0| 0a 28 64 65 66 63 6f 6e | 73 74 20 61 6d 69 67 61 |.(defcon|st amiga|
|00000c00| 2d 61 72 65 78 78 2d 65 | 72 72 6f 72 2d 6d 65 73 |-arexx-e|rror-mes|
|00000c10| 73 61 67 65 73 20 5b 22 | 4e 6f 20 63 61 75 73 65 |sages ["|No cause|
|00000c20| 22 20 22 50 72 6f 67 72 | 61 6d 20 6e 6f 74 20 66 |" "Progr|am not f|
|00000c30| 6f 75 6e 64 22 20 22 45 | 78 65 63 75 74 69 6f 6e |ound" "E|xecution|
|00000c40| 20 68 61 6c 74 65 64 22 | 20 22 49 6e 73 75 66 66 | halted"| "Insuff|
|00000c50| 69 63 69 65 6e 74 20 6d | 65 6d 6f 72 79 22 20 22 |icient m|emory" "|
|00000c60| 49 6e 76 61 6c 69 64 20 | 63 68 61 72 61 63 74 65 |Invalid |characte|
|00000c70| 72 22 20 22 55 6e 6d 61 | 74 63 68 65 64 20 71 75 |r" "Unma|tched qu|
|00000c80| 6f 74 65 22 20 22 55 6e | 74 65 72 6d 69 6e 61 74 |ote" "Un|terminat|
|00000c90| 65 64 20 63 6f 6d 6d 65 | 6e 74 22 20 22 43 6c 61 |ed comme|nt" "Cla|
|00000ca0| 75 73 65 20 74 6f 6f 20 | 6c 6f 6e 67 22 20 22 49 |use too |long" "I|
|00000cb0| 6e 76 61 6c 69 64 20 74 | 6f 6b 65 6e 22 20 22 53 |nvalid t|oken" "S|
|00000cc0| 79 6d 62 6f 6c 20 6f 72 | 20 73 74 72 69 6e 67 20 |ymbol or| string |
|00000cd0| 74 6f 6f 20 6c 6f 6e 67 | 22 20 22 49 6e 76 61 6c |too long|" "Inval|
|00000ce0| 69 64 20 6d 65 73 73 61 | 67 65 20 70 61 63 6b 65 |id messa|ge packe|
|00000cf0| 74 22 20 22 43 6f 6d 6d | 61 6e 64 20 73 74 72 69 |t" "Comm|and stri|
|00000d00| 6e 67 20 65 72 72 6f 72 | 22 20 22 45 72 72 6f 72 |ng error|" "Error|
|00000d10| 20 72 65 74 75 72 6e 20 | 66 72 6f 6d 20 66 75 6e | return |from fun|
|00000d20| 63 74 69 6f 6e 22 20 22 | 48 6f 73 74 20 65 6e 76 |ction" "|Host env|
|00000d30| 69 72 6f 6e 6d 65 6e 74 | 20 6e 6f 74 20 66 6f 75 |ironment| not fou|
|00000d40| 6e 64 22 20 22 52 65 71 | 75 65 73 74 65 64 20 6c |nd" "Req|uested l|
|00000d50| 69 62 72 61 72 79 20 6e | 6f 74 20 66 6f 75 6e 64 |ibrary n|ot found|
|00000d60| 22 20 22 46 75 6e 63 74 | 69 6f 6e 20 6e 6f 74 20 |" "Funct|ion not |
|00000d70| 66 6f 75 6e 64 22 20 22 | 46 75 6e 63 74 69 6f 6e |found" "|Function|
|00000d80| 20 64 69 64 20 6e 6f 74 | 20 72 65 74 75 72 6e 20 | did not| return |
|00000d90| 76 61 6c 75 65 22 20 22 | 57 72 6f 6e 67 20 6e 75 |value" "|Wrong nu|
|00000da0| 6d 62 65 72 20 6f 66 20 | 61 72 67 75 6d 65 6e 74 |mber of |argument|
|00000db0| 73 22 20 22 49 6e 76 61 | 6c 69 64 20 61 72 67 75 |s" "Inva|lid argu|
|00000dc0| 6d 65 6e 74 20 74 6f 20 | 66 75 6e 63 74 69 6f 6e |ment to |function|
|00000dd0| 22 20 22 49 6e 76 61 6c | 69 64 20 50 52 4f 43 45 |" "Inval|id PROCE|
|00000de0| 44 55 52 45 22 20 22 55 | 6e 65 78 70 65 63 74 65 |DURE" "U|nexpecte|
|00000df0| 64 20 54 48 45 4e 20 6f | 72 20 57 48 45 4e 22 20 |d THEN o|r WHEN" |
|00000e00| 22 55 6e 65 78 70 65 63 | 74 65 64 20 45 4c 53 45 |"Unexpec|ted ELSE|
|00000e10| 20 6f 72 20 4f 54 48 45 | 52 57 49 53 45 22 20 22 | or OTHE|RWISE" "|
|00000e20| 55 6e 65 78 70 65 63 74 | 65 64 20 42 52 45 41 4b |Unexpect|ed BREAK|
|00000e30| 2c 20 4c 45 41 56 45 20 | 6f 72 20 49 54 45 52 41 |, LEAVE |or ITERA|
|00000e40| 54 45 22 20 22 49 6e 76 | 61 6c 69 64 20 73 74 61 |TE" "Inv|alid sta|
|00000e50| 74 65 6d 65 6e 74 20 69 | 6e 20 53 45 4c 45 43 54 |tement i|n SELECT|
|00000e60| 22 20 22 4d 69 73 73 69 | 6e 67 20 6f 72 20 6d 75 |" "Missi|ng or mu|
|00000e70| 6c 74 69 70 6c 65 20 54 | 48 45 4e 22 20 22 4d 69 |ltiple T|HEN" "Mi|
|00000e80| 73 73 69 6e 67 20 4f 54 | 48 45 52 57 49 53 45 22 |ssing OT|HERWISE"|
|00000e90| 20 22 4d 69 73 73 69 6e | 67 20 6f 72 20 75 6e 65 | "Missin|g or une|
|00000ea0| 78 70 65 63 74 65 64 20 | 45 4e 44 22 20 22 53 79 |xpected |END" "Sy|
|00000eb0| 6d 62 6f 6c 20 6d 69 73 | 6d 61 74 63 68 22 20 22 |mbol mis|match" "|
|00000ec0| 49 6e 76 61 6c 69 64 20 | 44 4f 20 73 79 6e 74 61 |Invalid |DO synta|
|00000ed0| 78 22 20 22 49 6e 63 6f | 6d 70 6c 65 74 65 20 49 |x" "Inco|mplete I|
|00000ee0| 46 20 6f 72 20 53 45 4c | 45 43 54 22 20 22 4c 61 |F or SEL|ECT" "La|
|00000ef0| 62 65 6c 20 6e 6f 74 20 | 66 6f 75 6e 64 22 20 22 |bel not |found" "|
|00000f00| 53 79 6d 62 6f 6c 20 65 | 78 70 65 63 74 65 64 22 |Symbol e|xpected"|
|00000f10| 20 22 53 79 6d 62 6f 6c | 20 6f 72 20 73 74 72 69 | "Symbol| or stri|
|00000f20| 6e 67 20 65 78 70 65 63 | 74 65 64 22 20 22 49 6e |ng expec|ted" "In|
|00000f30| 76 61 6c 69 64 20 6b 65 | 79 77 6f 72 64 22 20 22 |valid ke|yword" "|
|00000f40| 52 65 71 75 69 72 65 64 | 20 6b 65 79 77 6f 72 64 |Required| keyword|
|00000f50| 20 6d 69 73 73 69 6e 67 | 22 20 22 45 78 74 72 61 | missing|" "Extra|
|00000f60| 6e 65 6f 75 73 20 63 68 | 61 72 61 63 74 65 72 73 |neous ch|aracters|
|00000f70| 22 20 22 4b 65 79 77 6f | 72 64 20 63 6f 6e 66 6c |" "Keywo|rd confl|
|00000f80| 69 63 74 22 20 22 49 6e | 76 61 6c 69 64 20 74 65 |ict" "In|valid te|
|00000f90| 6d 70 6c 61 74 65 22 20 | 22 49 6e 76 61 6c 69 64 |mplate" |"Invalid|
|00000fa0| 20 54 52 41 43 45 20 72 | 65 71 75 65 73 74 22 20 | TRACE r|equest" |
|00000fb0| 22 55 6e 69 74 69 61 6c | 69 7a 65 64 20 76 61 72 |"Unitial|ized var|
|00000fc0| 69 61 62 6c 65 22 20 22 | 49 6e 76 61 6c 69 64 20 |iable" "|Invalid |
|00000fd0| 76 61 72 69 61 62 6c 65 | 20 6e 61 6d 65 22 20 22 |variable| name" "|
|00000fe0| 49 6e 76 61 6c 69 64 20 | 65 78 70 72 65 73 73 69 |Invalid |expressi|
|00000ff0| 6f 6e 22 20 22 55 6e 62 | 61 6c 61 6e 63 65 64 20 |on" "Unb|alanced |
|00001000| 70 61 72 65 6e 74 68 65 | 73 65 73 22 20 22 4e 65 |parenthe|ses" "Ne|
|00001010| 73 74 69 6e 67 20 6c 69 | 6d 69 74 20 65 78 63 65 |sting li|mit exce|
|00001020| 65 64 65 64 22 20 22 49 | 6e 76 61 6c 69 64 20 65 |eded" "I|nvalid e|
|00001030| 78 70 72 65 73 73 69 6f | 6e 20 72 65 73 75 6c 74 |xpressio|n result|
|00001040| 22 20 22 45 78 70 72 65 | 73 73 69 6f 6e 20 72 65 |" "Expre|ssion re|
|00001050| 71 75 69 72 65 64 22 20 | 22 42 6f 6f 6c 65 61 6e |quired" |"Boolean|
|00001060| 20 76 61 6c 75 65 20 6e | 6f 74 20 30 20 6f 72 20 | value n|ot 0 or |
|00001070| 31 22 20 22 41 72 69 74 | 68 6d 65 74 69 63 20 63 |1" "Arit|hmetic c|
|00001080| 6f 6e 76 65 72 73 69 6f | 6e 20 65 72 72 6f 72 22 |onversio|n error"|
|00001090| 20 22 49 6e 76 61 6c 69 | 64 20 6f 70 65 72 61 6e | "Invali|d operan|
|000010a0| 64 22 5d 20 22 5c 0a 54 | 68 65 20 61 72 65 78 78 |d"] "\.T|he arexx|
|000010b0| 20 65 72 72 6f 72 20 6d | 65 73 73 61 67 65 73 2c | error m|essages,|
|000010c0| 20 73 6f 72 74 65 64 20 | 62 79 20 6e 75 6d 62 65 | sorted |by numbe|
|000010d0| 72 22 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 61 |r").(def|alias 'a|
|000010e0| 6d 69 67 61 2d 61 72 65 | 78 78 2d 64 6f 2d 63 6f |miga-are|xx-do-co|
|000010f0| 6d 6d 61 6e 64 20 23 5b | 28 73 74 72 20 61 73 2d |mmand #[|(str as-|
|00001100| 66 69 6c 65 29 20 22 c0 | 09 5c 6e 5c 22 89 1b 84 |file) ".|.\n\"...|
|00001110| 0f 00 c4 c5 21 82 4f 00 | c6 0b 21 89 1e 07 41 40 |....!.O.|..!...A@|
|00001120| c8 0e 07 38 1e 09 89 1e | 5c 6e cb 56 83 4c 00 0e |...8....|\n.V.L..|
|00001130| 09 0e 5c 66 47 57 83 36 | 00 0e 5c 66 0e 09 48 82 |..\fGW.6|..\f..H.|
|00001140| 3c 00 cd ce cf 0e 09 23 | 1e 10 c4 d1 0e 5c 6e 0e |<......#|.....\n.|
|00001150| 10 23 88 29 0e 07 82 4e | 00 0e 09 2b 29 87 22 20 |.#.)...N|...+)." |
|00001160| 5b 61 6d 69 67 61 2d 61 | 72 65 78 78 2d 73 65 6e |[amiga-a|rexx-sen|
|00001170| 64 2d 63 6f 6d 6d 61 6e | 64 20 73 74 72 20 61 73 |d-comman|d str as|
|00001180| 2d 66 69 6c 65 20 69 64 | 20 65 72 72 6f 72 20 22 |-file id| error "|
|00001190| 46 61 69 6c 65 64 20 74 | 6f 20 73 65 6e 64 20 61 |Failed t|o send a|
|000011a0| 72 65 78 78 20 63 6f 6d | 6d 61 6e 64 2e 22 20 61 |rexx com|mand." a|
|000011b0| 6d 69 67 61 2d 61 72 65 | 78 78 2d 77 61 69 74 2d |miga-are|xx-wait-|
|000011c0| 63 6f 6d 6d 61 6e 64 20 | 72 65 73 6c 69 73 74 20 |command |reslist |
|000011d0| 32 20 73 65 63 6f 6e 64 | 20 72 63 20 30 20 61 6d |2 second| rc 0 am|
|000011e0| 69 67 61 2d 61 72 65 78 | 78 2d 65 72 72 6f 72 2d |iga-arex|x-error-|
|000011f0| 6d 65 73 73 61 67 65 73 | 20 66 6f 72 6d 61 74 20 |messages| format |
|00001200| 6e 69 6c 20 22 55 6e 6b | 6e 6f 77 6e 20 65 72 72 |nil "Unk|nown err|
|00001210| 6f 72 20 25 64 22 20 65 | 72 72 6f 72 2d 6d 65 73 |or %d" e|rror-mes|
|00001220| 73 61 67 65 20 22 41 72 | 65 78 78 20 63 6f 6d 6d |sage "Ar|exx comm|
|00001230| 61 6e 64 20 66 61 69 6c | 65 64 2c 20 6c 65 76 65 |and fail|ed, leve|
|00001240| 6c 20 25 64 2c 20 63 61 | 75 73 65 20 25 73 22 5d |l %d, ca|use %s"]|
|00001250| 20 35 20 22 5c 0a 53 65 | 6e 64 73 20 41 52 65 78 | 5 "\.Se|nds ARex|
|00001260| 78 20 63 6f 6d 6d 61 6e | 64 20 53 54 52 20 28 6c |x comman|d STR (l|
|00001270| 69 6b 65 20 61 6d 69 67 | 61 2d 61 72 65 78 78 2d |ike amig|a-arexx-|
|00001280| 73 65 6e 64 2d 63 6f 6d | 6d 61 6e 64 29 2e 0a 49 |send-com|mand)..I|
|00001290| 66 20 41 53 2d 46 49 4c | 45 20 69 73 20 74 72 75 |f AS-FIL|E is tru|
|000012a0| 65 2c 20 53 54 52 20 69 | 73 20 61 6e 20 61 72 65 |e, STR i|s an are|
|000012b0| 78 78 20 63 6f 6d 6d 61 | 6e 64 2c 20 6f 74 68 65 |xx comma|nd, othe|
|000012c0| 72 77 69 73 65 20 69 74 | 20 69 73 20 61 20 66 69 |rwise it| is a fi|
|000012d0| 6c 65 20 6e 61 6d 65 2e | 0a 57 61 69 74 73 20 66 |le name.|.Waits f|
|000012e0| 6f 72 20 74 68 65 20 63 | 6f 6d 6d 61 6e 64 20 74 |or the c|ommand t|
|000012f0| 6f 20 72 65 74 75 72 6e | 2e 20 20 49 66 20 74 68 |o return|.  If th|
|00001300| 65 20 61 72 65 78 78 20 | 63 6f 6d 6d 61 6e 64 20 |e arexx |command |
|00001310| 66 61 69 6c 73 20 61 6e | 20 65 72 72 6f 72 20 77 |fails an| error w|
|00001320| 69 6c 6c 0a 62 65 20 63 | 61 75 73 65 64 2e 0a 0a |ill.be c|aused...|
|00001330| 49 66 20 79 6f 75 20 77 | 6f 75 6c 64 20 6c 69 6b |If you w|ould lik|
|00001340| 65 20 74 6f 20 67 65 74 | 20 72 65 73 75 6c 74 20 |e to get| result |
|00001350| 73 74 72 69 6e 67 73 20 | 61 6e 64 20 65 72 72 6f |strings |and erro|
|00001360| 72 73 20 28 69 65 2e 20 | 6e 6f 74 20 63 61 75 73 |rs (ie. |not caus|
|00001370| 65 0a 61 20 6c 69 73 70 | 20 65 72 72 6f 72 29 20 |e.a lisp| error) |
|00001380| 75 73 65 3a 20 28 61 6d | 69 67 61 2d 61 72 65 78 |use: (am|iga-arex|
|00001390| 78 2d 64 6f 2d 63 6f 6d | 6d 61 6e 64 2d 77 69 74 |x-do-com|mand-wit|
|000013a0| 68 2d 72 65 73 75 6c 74 | 73 29 22 20 22 73 41 52 |h-result|s)" "sAR|
|000013b0| 65 78 78 20 63 6f 6d 6d | 61 6e 64 3a 5c 6e 50 22 |exx comm|and:\nP"|
|000013c0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 61 6d |]).(defa|lias 'am|
|000013d0| 69 67 61 2d 61 72 65 78 | 78 2d 64 6f 2d 63 6f 6d |iga-arex|x-do-com|
|000013e0| 6d 61 6e 64 2d 77 69 74 | 68 2d 72 65 73 75 6c 74 |mand-wit|h-result|
|000013f0| 73 20 23 5b 28 73 74 72 | 20 61 73 2d 66 69 6c 65 |s #[(str| as-file|
|00001400| 29 20 22 c0 09 5c 6e 5c | 22 89 1b 84 0f 00 c4 c5 |) "..\n\|".......|
|00001410| 21 82 35 00 c6 0b 21 89 | 1e 07 41 40 c8 0e 07 38 |!.5...!.|..A@...8|
|00001420| 1e 09 89 1e 5c 6e 83 32 | 00 0e 5c 6e cb 56 83 32 |....\n.2|..\n.V.2|
|00001430| 00 0e 5c 6e 0e 09 44 82 | 34 00 0e 09 2b 29 87 22 |..\n..D.|4...+)."|
|00001440| 20 5b 61 6d 69 67 61 2d | 61 72 65 78 78 2d 73 65 | [amiga-|arexx-se|
|00001450| 6e 64 2d 63 6f 6d 6d 61 | 6e 64 20 73 74 72 20 61 |nd-comma|nd str a|
|00001460| 73 2d 66 69 6c 65 20 69 | 64 20 65 72 72 6f 72 20 |s-file i|d error |
|00001470| 22 46 61 69 6c 65 64 20 | 74 6f 20 73 65 6e 64 20 |"Failed |to send |
|00001480| 61 72 65 78 78 20 63 6f | 6d 6d 61 6e 64 2e 22 20 |arexx co|mmand." |
|00001490| 61 6d 69 67 61 2d 61 72 | 65 78 78 2d 77 61 69 74 |amiga-ar|exx-wait|
|000014a0| 2d 63 6f 6d 6d 61 6e 64 | 20 72 65 73 6c 69 73 74 |-command| reslist|
|000014b0| 20 32 20 73 65 63 6f 6e | 64 20 72 63 20 30 5d 20 | 2 secon|d rc 0] |
|000014c0| 34 20 22 5c 0a 53 65 6e | 64 73 20 41 52 65 78 78 |4 "\.Sen|ds ARexx|
|000014d0| 20 63 6f 6d 6d 61 6e 64 | 20 53 54 52 20 28 6c 69 | command| STR (li|
|000014e0| 6b 65 20 61 6d 69 67 61 | 2d 61 72 65 78 78 2d 64 |ke amiga|-arexx-d|
|000014f0| 6f 2d 63 6f 6d 6d 61 6e | 64 29 2e 0a 49 66 20 41 |o-comman|d)..If A|
|00001500| 53 2d 46 49 4c 45 20 69 | 73 20 74 72 75 65 2c 20 |S-FILE i|s true, |
|00001510| 53 54 52 20 69 73 20 61 | 6e 20 61 72 65 78 78 20 |STR is a|n arexx |
|00001520| 63 6f 6d 6d 61 6e 64 2c | 20 6f 74 68 65 72 77 69 |command,| otherwi|
|00001530| 73 65 20 69 74 20 69 73 | 20 61 20 66 69 6c 65 20 |se it is| a file |
|00001540| 6e 61 6d 65 2e 0a 57 61 | 69 74 73 20 66 6f 72 20 |name..Wa|its for |
|00001550| 74 68 65 20 63 6f 6d 6d | 61 6e 64 20 74 6f 20 72 |the comm|and to r|
|00001560| 65 74 75 72 6e 2e 0a 0a | 54 68 65 20 72 65 74 75 |eturn...|The retu|
|00001570| 72 6e 20 76 61 6c 75 65 | 20 69 73 20 6f 6e 65 20 |rn value| is one |
|00001580| 6f 66 20 74 68 72 65 65 | 20 74 68 69 6e 67 73 3a |of three| things:|
|00001590| 0a 20 2d 20 74 68 65 20 | 63 6f 6d 6d 61 6e 64 20 |. - the |command |
|000015a0| 65 78 65 63 75 74 65 64 | 20 73 75 63 63 65 73 66 |executed| succesf|
|000015b0| 75 6c 6c 79 3a 20 6e 69 | 6c 20 6f 72 20 61 20 72 |ully: ni|l or a r|
|000015c0| 65 73 75 6c 74 20 73 74 | 72 69 6e 67 2e 0a 20 2d |esult st|ring.. -|
|000015d0| 20 74 68 65 20 63 6f 6d | 6d 61 6e 64 20 66 61 69 | the com|mand fai|
|000015e0| 6c 65 64 3a 20 61 20 6c | 69 73 74 20 6f 66 20 74 |led: a l|ist of t|
|000015f0| 68 65 20 66 6f 72 6d 20 | 28 52 43 20 45 52 52 4f |he form |(RC ERRO|
|00001600| 52 2d 43 4f 44 45 29 0a | 20 20 20 77 68 65 72 65 |R-CODE).|   where|
|00001610| 20 52 43 20 69 73 20 74 | 68 65 20 73 65 76 65 72 | RC is t|he sever|
|00001620| 69 74 79 20 61 6e 64 20 | 45 52 52 4f 52 2d 43 4f |ity and |ERROR-CO|
|00001630| 44 45 20 69 73 20 74 68 | 65 20 73 65 63 6f 6e 64 |DE is th|e second|
|00001640| 61 72 79 20 65 72 72 6f | 72 2e 22 20 22 73 41 52 |ary erro|r." "sAR|
|00001650| 65 78 78 20 63 6f 6d 6d | 61 6e 64 3a 5c 6e 50 22 |exx comm|and:\nP"|
|00001660| 5d 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |]).(byte|-code ".|
|00001670| 09 c2 c3 23 88 c4 15 c0 | 87 22 20 5b 64 65 66 69 |...#....|." [defi|
|00001680| 6e 65 2d 6b 65 79 20 61 | 6d 69 67 61 2d 6d 61 70 |ne-key a|miga-map|
|00001690| 20 22 58 22 20 61 6d 69 | 67 61 2d 61 72 65 78 78 | "X" ami|ga-arexx|
|000016a0| 2d 70 72 6f 63 65 73 73 | 20 74 20 61 6d 69 67 61 |-process| t amiga|
|000016b0| 2d 61 72 65 78 78 2d 69 | 6e 69 74 69 61 6c 69 7a |-arexx-i|nitializ|
|000016c0| 65 64 5d 20 34 29 0a 28 | 64 65 66 61 6c 69 61 73 |ed] 4).(|defalias|
|000016d0| 20 27 61 6d 69 67 61 2d | 77 62 2d 70 72 6f 63 65 | 'amiga-|wb-proce|
|000016e0| 73 73 20 23 5b 6e 69 6c | 20 22 c0 19 c0 c2 c3 8f |ss #[nil| "......|
|000016f0| 29 87 22 20 5b 6e 69 6c | 20 66 69 6c 65 20 28 62 |)." [nil| file (b|
|00001700| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 21 89 12 85 |yte-code| "..!...|
|00001710| 10 00 c3 c4 c5 8f 88 82 | 00 00 87 22 20 5b 61 6d |........|..." [am|
|00001720| 69 67 61 2d 67 65 74 2d | 77 62 2d 65 76 65 6e 74 |iga-get-|wb-event|
|00001730| 20 74 20 66 69 6c 65 20 | 6e 69 6c 20 28 66 69 6e | t file |nil (fin|
|00001740| 64 2d 66 69 6c 65 20 66 | 69 6c 65 29 20 28 28 65 |d-file f|ile) ((e|
|00001750| 72 72 6f 72 29 29 5d 20 | 33 29 20 28 28 65 72 72 |rror))] |3) ((err|
|00001760| 6f 72 29 29 5d 20 33 20 | 22 5c 0a 50 72 6f 63 65 |or))] 3 |"\.Proce|
|00001770| 73 73 20 61 6c 6c 20 70 | 65 6e 64 69 6e 67 20 77 |ss all p|ending w|
|00001780| 6f 72 6b 62 65 6e 63 68 | 20 65 76 65 6e 74 73 2c |orkbench| events,|
|00001790| 20 69 65 20 6c 6f 61 64 | 20 61 6c 6c 20 66 69 6c | ie load| all fil|
|000017a0| 65 73 20 72 65 71 75 65 | 73 74 65 64 22 20 6e 69 |es reque|sted" ni|
|000017b0| 6c 5d 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |l]).(byt|e-code "|
|000017c0| c0 09 c2 c3 23 88 c4 15 | c4 16 06 c7 16 08 c0 87 |....#...|........|
|000017d0| 22 20 5b 64 65 66 69 6e | 65 2d 6b 65 79 20 61 6d |" [defin|e-key am|
|000017e0| 69 67 61 2d 6d 61 70 20 | 22 57 22 20 61 6d 69 67 |iga-map |"W" amig|
|000017f0| 61 2d 77 62 2d 70 72 6f | 63 65 73 73 20 74 20 61 |a-wb-pro|cess t a|
|00001800| 6d 69 67 61 2d 77 62 2d | 69 6e 69 74 69 61 6c 69 |miga-wb-|initiali|
|00001810| 7a 65 64 20 63 6f 6d 70 | 6c 65 74 69 6f 6e 2d 69 |zed comp|letion-i|
|00001820| 67 6e 6f 72 65 2d 63 61 | 73 65 20 6e 65 76 65 72 |gnore-ca|se never|
|00001830| 20 76 65 72 73 69 6f 6e | 2d 63 6f 6e 74 72 6f 6c | version|-control|
|00001840| 5d 20 34 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |] 4).(de|falias '|
|00001850| 73 61 66 65 2d 61 6d 69 | 67 61 2d 70 61 73 74 65 |safe-ami|ga-paste|
|00001860| 20 23 5b 6e 69 6c 20 22 | c0 c1 c2 8f 87 22 20 5b | #[nil "|....." [|
|00001870| 6e 69 6c 20 28 61 6d 69 | 67 61 2d 70 61 73 74 65 |nil (ami|ga-paste|
|00001880| 29 20 28 28 65 72 72 6f | 72 29 29 5d 20 33 20 22 |) ((erro|r))] 3 "|
|00001890| 5c 0a 50 61 73 74 65 20 | 66 72 6f 6d 20 74 68 65 |\.Paste |from the|
|000018a0| 20 61 6d 69 67 61 20 63 | 6c 69 70 62 6f 61 72 64 | amiga c|lipboard|
|000018b0| 2c 20 74 72 61 70 70 69 | 6e 67 20 61 6e 79 20 65 |, trappi|ng any e|
|000018c0| 72 72 6f 72 73 2e 22 5d | 29 0a 28 64 65 66 61 6c |rrors."]|).(defal|
|000018d0| 69 61 73 20 27 63 68 65 | 63 6b 2d 63 6c 69 70 62 |ias 'che|ck-clipb|
|000018e0| 6f 61 72 64 20 23 5b 6e | 69 6c 20 22 c0 19 5c 6e |oard #[n|il "..\n|
|000018f0| 83 1a 00 c3 20 1c c0 12 | 5c 66 83 19 00 c5 5c 66 |.... ...|\f....\f|
|00001900| 21 88 c6 11 0e 07 16 08 | 29 09 29 87 22 20 5b 6e |!.......|).)." [n|
|00001910| 69 6c 20 61 64 64 65 64 | 20 61 6d 69 67 61 2d 6e |il added| amiga-n|
|00001920| 65 77 2d 63 6c 69 70 20 | 73 61 66 65 2d 61 6d 69 |ew-clip |safe-ami|
|00001930| 67 61 2d 70 61 73 74 65 | 20 73 74 72 20 6b 69 6c |ga-paste| str kil|
|00001940| 6c 2d 61 64 64 20 74 20 | 6b 69 6c 6c 2d 72 69 6e |l-add t |kill-rin|
|00001950| 67 20 6b 69 6c 6c 2d 72 | 69 6e 67 2d 79 61 6e 6b |g kill-r|ing-yank|
|00001960| 2d 70 6f 69 6e 74 65 72 | 5d 20 32 20 22 5c 0a 49 |-pointer|] 2 "\.I|
|00001970| 66 20 74 68 65 72 65 20 | 69 73 20 61 6e 79 74 68 |f there |is anyth|
|00001980| 69 6e 67 20 6e 65 77 20 | 69 6e 20 74 68 65 20 63 |ing new |in the c|
|00001990| 6c 69 70 62 6f 61 72 64 | 2c 20 61 64 64 20 69 74 |lipboard|, add it|
|000019a0| 20 74 6f 20 74 68 65 20 | 65 6d 61 63 73 20 6b 69 | to the |emacs ki|
|000019b0| 6c 6c 20 72 69 6e 67 2e | 0a 52 65 74 75 72 6e 73 |ll ring.|.Returns|
|000019c0| 20 74 20 69 66 20 74 68 | 65 72 65 20 77 61 73 20 | t if th|ere was |
|000019d0| 73 6f 6d 65 74 68 69 6e | 67 20 61 64 64 65 64 2c |somethin|g added,|
|000019e0| 20 6e 69 6c 20 6f 74 68 | 65 72 77 69 73 65 2e 22 | nil oth|erwise."|
|000019f0| 5d 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |]).(byte|-code ".|
|00001a00| c1 c2 5c 22 88 c1 13 c4 | 15 c0 87 22 20 5b 64 65 |..\"....|..." [de|
|00001a10| 66 61 6c 69 61 73 20 75 | 70 64 61 74 65 2d 63 6c |falias u|pdate-cl|
|00001a20| 69 70 62 6f 61 72 64 20 | 23 5b 28 73 74 72 20 26 |ipboard |#[(str &|
|00001a30| 6f 70 74 69 6f 6e 61 6c | 20 64 75 6d 6d 79 29 20 |optional| dummy) |
|00001a40| 22 c0 09 21 88 c2 89 13 | 87 22 20 5b 61 6d 69 67 |"..!....|." [amig|
|00001a50| 61 2d 63 75 74 20 73 74 | 72 20 6e 69 6c 20 61 6d |a-cut st|r nil am|
|00001a60| 69 67 61 2d 6e 65 77 2d | 63 6c 69 70 5d 20 32 5d |iga-new-|clip] 2]|
|00001a70| 20 69 6e 74 65 72 70 72 | 6f 67 72 61 6d 2d 63 75 | interpr|ogram-cu|
|00001a80| 74 2d 66 75 6e 63 74 69 | 6f 6e 20 73 61 66 65 2d |t-functi|on safe-|
|00001a90| 61 6d 69 67 61 2d 70 61 | 73 74 65 20 69 6e 74 65 |amiga-pa|ste inte|
|00001aa0| 72 70 72 6f 67 72 61 6d | 2d 70 61 73 74 65 2d 66 |rprogram|-paste-f|
|00001ab0| 75 6e 63 74 69 6f 6e 5d | 20 33 29 0a             |unction]| 3).    |
+--------+-------------------------+-------------------------+--------+--------+