/ Gold Fish 3 / goldfish_volume_3.bin / files / util / edit / jade / lisp / windows.jlc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 3b 3b 20 53 6f 75 72 | 63 65 20 66 69 6c 65 3a |;;; Sour|ce file:|
|00000010| 20 2f 75 73 72 2f 6c 6f | 63 61 6c 2f 6c 69 62 2f | /usr/lo|cal/lib/|
|00000020| 6a 61 64 65 2f 33 2e 32 | 2f 6c 69 73 70 2f 77 69 |jade/3.2|/lisp/wi|
|00000030| 6e 64 6f 77 73 2e 6a 6c | 0a 3b 3b 3b 20 43 6f 6d |ndows.jl|.;;; Com|
|00000040| 70 69 6c 65 64 20 62 79 | 20 6a 73 68 40 6f 72 63 |piled by| jsh@orc|
|00000050| 72 69 73 74 20 6f 6e 20 | 53 75 6e 20 4f 63 74 20 |rist on |Sun Oct |
|00000060| 31 36 20 32 30 3a 32 30 | 3a 34 39 20 31 39 39 34 |16 20:20|:49 1994|
|00000070| 0a 3b 3b 3b 20 4a 61 64 | 65 20 33 2e 32 0a 0a 28 |.;;; Jad|e 3.2..(|
|00000080| 64 65 66 76 61 72 20 77 | 69 6e 64 6f 77 2d 6c 69 |defvar w|indow-li|
|00000090| 73 74 20 28 63 6f 6e 73 | 20 28 63 75 72 72 65 6e |st (cons| (curren|
|000000a0| 74 2d 77 69 6e 64 6f 77 | 29 20 6e 69 6c 29 20 37 |t-window|) nil) 7|
|000000b0| 33 38 36 31 29 0a 0a 28 | 64 65 66 76 61 72 20 77 |3861)..(|defvar w|
|000000c0| 69 6e 64 6f 77 2d 63 6c | 6f 73 65 64 2d 68 6f 6f |indow-cl|osed-hoo|
|000000d0| 6b 20 28 71 75 6f 74 65 | 20 28 63 6c 6f 73 65 2d |k (quote| (close-|
|000000e0| 77 69 6e 64 6f 77 29 29 | 20 37 33 38 38 39 29 0a |window))| 73889).|
|000000f0| 0a 28 64 65 66 75 6e 20 | 6f 70 65 6e 2d 77 69 6e |.(defun |open-win|
|00000100| 64 6f 77 20 28 26 6f 70 | 74 69 6f 6e 61 6c 20 62 |dow (&op|tional b|
|00000110| 75 66 66 65 72 20 78 20 | 79 20 77 20 68 29 20 37 |uffer x |y w h) 7|
|00000120| 33 39 37 32 20 28 69 6e | 74 65 72 61 63 74 69 76 |3972 (in|teractiv|
|00000130| 65 29 20 28 6a 61 64 65 | 2d 62 79 74 65 2d 63 6f |e) (jade|-byte-co|
|00000140| 64 65 20 22 44 18 49 31 | 32 1b ff 00 0d 49 b2 46 |de "D.I1|2....I.F|
|00000150| 23 48 14 1d 1e 06 1e 07 | 1e 08 0c 46 21 fe 00 37 |#H......|...F!..7|
|00000160| 19 1e 09 4b 46 26 09 48 | 19 b6 1b 1b 1a 8e 8b 4b |...KF&.H|.......K|
|00000170| 46 20 48 1b 19 b0 47 b6 | 48 48 19 45 22 20 5b 62 |F H...G.|HH.E" [b|
|00000180| 75 66 66 65 72 2d 6c 69 | 73 74 20 77 69 6e 20 6f |uffer-li|st win o|
|00000190| 6c 64 2d 62 75 66 2d 6c | 69 73 74 20 62 75 66 66 |ld-buf-l|ist buff|
|000001a0| 65 72 20 6d 61 6b 65 2d | 77 69 6e 64 6f 77 20 78 |er make-|window x|
|000001b0| 20 79 20 77 20 68 20 77 | 69 6e 64 6f 77 2d 6c 69 | y w h w|indow-li|
|000001c0| 73 74 5d 20 35 29 29 0a | 0a 28 64 65 66 75 6e 20 |st] 5)).|.(defun |
|000001d0| 63 6c 6f 73 65 2d 77 69 | 6e 64 6f 77 20 28 26 6f |close-wi|ndow (&o|
|000001e0| 70 74 69 6f 6e 61 6c 20 | 77 69 6e 29 20 37 34 30 |ptional |win) 740|
|000001f0| 35 38 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 29 |58 (inte|ractive)|
|00000200| 20 28 6a 61 64 65 2d 62 | 79 74 65 2d 63 6f 64 65 | (jade-b|yte-code|
|00000210| 20 22 18 ff 00 08 11 08 | 46 20 48 12 08 13 62 fc | "......|F H...b.|
|00000220| 00 15 14 08 fb 00 1f 18 | 1d 8b 46 25 48 16 06 18 |........|..F%H...|
|00000230| 09 22 20 5b 77 69 6e 20 | 63 75 72 72 65 6e 74 2d |." [win |current-|
|00000240| 77 69 6e 64 6f 77 20 77 | 69 6e 64 6f 77 2d 63 6f |window w|indow-co|
|00000250| 75 6e 74 20 31 20 73 61 | 76 65 2d 61 6e 64 2d 71 |unt 1 sa|ve-and-q|
|00000260| 75 69 74 20 77 69 6e 64 | 6f 77 2d 6c 69 73 74 20 |uit wind|ow-list |
|00000270| 64 65 73 74 72 6f 79 2d | 77 69 6e 64 6f 77 5d 20 |destroy-|window] |
|00000280| 32 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 6c 6f 73 |2))..(de|fun clos|
|00000290| 65 2d 6f 74 68 65 72 2d | 77 69 6e 64 6f 77 73 20 |e-other-|windows |
|000002a0| 28 26 6f 70 74 69 6f 6e | 61 6c 20 77 69 6e 29 20 |(&option|al win) |
|000002b0| 37 34 30 39 39 20 28 69 | 6e 74 65 72 61 63 74 69 |74099 (i|nteracti|
|000002c0| 76 65 29 20 28 6a 61 64 | 65 2d 62 79 74 65 2d 63 |ve) (jad|e-byte-c|
|000002d0| 6f 64 65 20 22 18 ff 00 | 08 11 08 46 20 48 18 1a |ode "...|...F H..|
|000002e0| 8b 46 5c 22 48 1a fe 00 | 20 13 1a 4c 09 48 1a 4d |.F\"H...| ..L.H.M|
|000002f0| 46 5c 22 48 fb 00 0f 48 | 18 49 4b 46 5c 22 22 20 |F\"H...H|.IKF\"" |
|00000300| 5b 77 69 6e 20 63 75 72 | 72 65 6e 74 2d 77 69 6e |[win cur|rent-win|
|00000310| 64 6f 77 20 77 69 6e 64 | 6f 77 2d 6c 69 73 74 20 |dow wind|ow-list |
|00000320| 64 65 73 74 72 6f 79 2d | 77 69 6e 64 6f 77 5d 20 |destroy-|window] |
|00000330| 32 29 29 0a 0a 28 64 65 | 66 75 6e 20 61 64 64 2d |2))..(de|fun add-|
|00000340| 62 75 66 66 65 72 20 28 | 62 75 66 66 65 72 29 20 |buffer (|buffer) |
|00000350| 37 34 31 35 33 20 28 6a | 61 64 65 2d 62 79 74 65 |74153 (j|ade-byte|
|00000360| 2d 63 6f 64 65 20 22 44 | 18 31 19 6e fe 00 21 19 |-code "D|.1.n..!.|
|00000370| 4c b6 12 1b 1c 8b 1b 49 | 4b 0a 46 24 47 b6 48 48 |L......I|K.F$G.HH|
|00000380| 19 4d 46 21 48 fb 00 03 | 45 22 20 5b 77 69 6e 64 |.MF!H...|E" [wind|
|00000390| 6f 77 2d 6c 69 73 74 20 | 77 69 6e 2d 6c 69 73 74 |ow-list |win-list|
|000003a0| 20 6e 63 6f 6e 63 20 62 | 75 66 66 65 72 20 62 75 | nconc b|uffer bu|
|000003b0| 66 66 65 72 2d 6c 69 73 | 74 5d 20 35 29 29 0a 0a |ffer-lis|t] 5))..|
|000003c0| 28 64 65 66 75 6e 20 72 | 65 6d 6f 76 65 2d 62 75 |(defun r|emove-bu|
|000003d0| 66 66 65 72 20 28 62 75 | 66 66 65 72 29 20 37 34 |ffer (bu|ffer) 74|
|000003e0| 32 35 36 20 28 6a 61 64 | 65 2d 62 79 74 65 2d 63 |256 (jad|e-byte-c|
|000003f0| 6f 64 65 20 22 44 18 31 | 19 6e fe 00 2a 19 4c b6 |ode "D.1|.n..*.L.|
|00000400| 1a 1b 8b 46 23 48 19 4c | b2 1a 61 fe 00 1e 1b 4c |...F#H.L|..a....L|
|00000410| 19 4c b0 47 b6 48 48 19 | 4d 46 21 48 fb 00 03 45 |.L.G.HH.|MF!H...E|
|00000420| 22 20 5b 77 69 6e 64 6f | 77 2d 6c 69 73 74 20 77 |" [windo|w-list w|
|00000430| 69 6e 2d 6c 69 73 74 20 | 62 75 66 66 65 72 20 62 |in-list |buffer b|
|00000440| 75 66 66 65 72 2d 6c 69 | 73 74 5d 20 33 29 29 0a |uffer-li|st] 3)).|
|00000450| 0a 28 64 65 66 75 6e 20 | 69 6e 2d 6f 74 68 65 72 |.(defun |in-other|
|00000460| 2d 77 69 6e 64 6f 77 20 | 28 63 6f 6d 6d 61 6e 64 |-window |(command|
|00000470| 29 20 37 34 33 32 35 20 | 28 6a 61 64 65 2d 62 79 |) 74325 |(jade-by|
|00000480| 74 65 2d 63 6f 64 65 20 | 22 10 08 48 11 1a 09 22 |te-code |"..H..."|
|00000490| 20 5b 67 6f 74 6f 2d 6f | 74 68 65 72 2d 77 69 6e | [goto-o|ther-win|
|000004a0| 64 6f 77 20 63 61 6c 6c | 2d 63 6f 6d 6d 61 6e 64 |dow call|-command|
|000004b0| 20 63 6f 6d 6d 61 6e 64 | 5d 20 32 29 29 0a 0a 28 | command|] 2))..(|
|000004c0| 64 65 66 75 6e 20 67 6f | 74 6f 2d 6f 74 68 65 72 |defun go|to-other|
|000004d0| 2d 77 69 6e 64 6f 77 20 | 6e 69 6c 20 37 34 33 39 |-window |nil 7439|
|000004e0| 34 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 29 20 |4 (inter|active) |
|000004f0| 28 6a 61 64 65 2d 62 79 | 74 65 2d 63 6f 64 65 20 |(jade-by|te-code |
|00000500| 22 10 11 08 4a 0a 22 20 | 5b 73 65 74 2d 63 75 72 |"...J." |[set-cur|
|00000510| 72 65 6e 74 2d 77 69 6e | 64 6f 77 20 6f 74 68 65 |rent-win|dow othe|
|00000520| 72 2d 77 69 6e 64 6f 77 | 5d 20 33 29 29 0a 0a 28 |r-window|] 3))..(|
|00000530| 64 65 66 75 6e 20 69 6e | 2d 6e 65 77 2d 77 69 6e |defun in|-new-win|
|00000540| 64 6f 77 20 28 63 6f 6d | 6d 61 6e 64 29 20 28 6a |dow (com|mand) (j|
|00000550| 61 64 65 2d 62 79 74 65 | 2d 63 6f 64 65 20 22 10 |ade-byte|-code ".|
|00000560| 08 48 11 1a 09 22 20 5b | 67 6f 74 6f 2d 6e 65 77 |.H..." [|goto-new|
|00000570| 2d 77 69 6e 64 6f 77 20 | 63 61 6c 6c 2d 63 6f 6d |-window |call-com|
|00000580| 6d 61 6e 64 20 63 6f 6d | 6d 61 6e 64 5d 20 32 29 |mand com|mand] 2)|
|00000590| 29 0a 0a 28 64 65 66 75 | 6e 20 67 6f 74 6f 2d 6e |)..(defu|n goto-n|
|000005a0| 65 77 2d 77 69 6e 64 6f | 77 20 6e 69 6c 20 28 69 |ew-windo|w nil (i|
|000005b0| 6e 74 65 72 61 63 74 69 | 76 65 29 20 28 6a 61 64 |nteracti|ve) (jad|
|000005c0| 65 2d 62 79 74 65 2d 63 | 6f 64 65 20 22 10 11 08 |e-byte-c|ode "...|
|000005d0| 4a 0a 22 20 5b 73 65 74 | 2d 63 75 72 72 65 6e 74 |J." [set|-current|
|000005e0| 2d 77 69 6e 64 6f 77 20 | 6f 70 65 6e 2d 77 69 6e |-window |open-win|
|000005f0| 64 6f 77 5d 20 33 29 29 | 0a 0a 28 64 65 66 75 6e |dow] 3))|..(defun|
|00000600| 20 6f 74 68 65 72 2d 77 | 69 6e 64 6f 77 20 6e 69 | other-w|indow ni|
|00000610| 6c 20 37 34 34 32 34 20 | 28 6a 61 64 65 2d 62 79 |l 74424 |(jade-by|
|00000620| 74 65 2d 63 6f 64 65 20 | 22 10 11 08 62 fc 00 0c |te-code |"...b...|
|00000630| 12 08 fb 00 1c 1b 4c 14 | 08 61 fc 00 1a 1b 4d 4c |......L.|.a....ML|
|00000640| fb 00 1c 1b 4c 22 20 5b | 31 20 77 69 6e 64 6f 77 |....L" [|1 window|
|00000650| 2d 63 6f 75 6e 74 20 6f | 70 65 6e 2d 77 69 6e 64 |-count o|pen-wind|
|00000660| 6f 77 20 77 69 6e 64 6f | 77 2d 6c 69 73 74 20 63 |ow windo|w-list c|
|00000670| 75 72 72 65 6e 74 2d 77 | 69 6e 64 6f 77 5d 20 32 |urrent-w|indow] 2|
|00000680| 29 29 0a 0a 28 64 65 66 | 75 6e 20 74 6f 67 67 6c |))..(def|un toggl|
|00000690| 65 2d 69 63 6f 6e 69 63 | 20 6e 69 6c 20 37 34 34 |e-iconic| nil 744|
|000006a0| 36 36 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 29 |66 (inte|ractive)|
|000006b0| 20 28 6a 61 64 65 2d 62 | 79 74 65 2d 63 6f 64 65 | (jade-b|yte-code|
|000006c0| 20 22 10 08 fc 00 0a 11 | 08 fb 00 0c 12 08 22 20 | "......|......" |
|000006d0| 5b 77 69 6e 64 6f 77 2d | 61 73 6c 65 65 70 2d 70 |[window-|asleep-p|
|000006e0| 20 75 6e 73 6c 65 65 70 | 2d 77 69 6e 64 6f 77 20 | unsleep|-window |
|000006f0| 73 6c 65 65 70 2d 77 69 | 6e 64 6f 77 5d 20 31 29 |sleep-wi|ndow] 1)|
|00000700| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+