/ Gold Fish 3 / goldfish_volume_3.bin / files / util / edit / jade / lisp / gdb.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 67 64 |jade/3.2|/lisp/gd|
|00000030| 62 2e 6a 6c 0a 3b 3b 3b | 20 43 6f 6d 70 69 6c 65 |b.jl.;;;| Compile|
|00000040| 64 20 62 79 20 6a 73 68 | 40 6f 72 63 72 69 73 74 |d by jsh|@orcrist|
|00000050| 20 6f 6e 20 53 75 6e 20 | 4f 63 74 20 31 36 20 32 | on Sun |Oct 16 2|
|00000060| 30 3a 32 30 3a 34 34 20 | 31 39 39 34 0a 3b 3b 3b |0:20:44 |1994.;;;|
|00000070| 20 4a 61 64 65 20 33 2e | 32 0a 0a 28 72 65 71 75 | Jade 3.|2..(requ|
|00000080| 69 72 65 20 28 71 75 6f | 74 65 20 73 68 65 6c 6c |ire (quo|te shell|
|00000090| 29 29 0a 0a 28 70 72 6f | 76 69 64 65 20 28 71 75 |))..(pro|vide (qu|
|000000a0| 6f 74 65 20 67 64 62 29 | 29 0a 0a 28 64 65 66 76 |ote gdb)|)..(defv|
|000000b0| 61 72 20 67 64 62 2d 66 | 69 6c 65 2d 6e 61 6d 65 |ar gdb-f|ile-name|
|000000c0| 20 22 67 64 62 22 20 37 | 30 31 30 39 29 0a 0a 28 | "gdb" 7|0109)..(|
|000000d0| 64 65 66 76 61 72 20 67 | 64 62 2d 61 75 74 6f 2d |defvar g|db-auto-|
|000000e0| 63 65 6e 74 72 65 20 6e | 69 6c 20 37 30 31 35 30 |centre n|il 70150|
|000000f0| 29 0a 0a 28 64 65 66 76 | 61 72 20 67 64 62 2d 6c |)..(defv|ar gdb-l|
|00000100| 61 73 74 2d 66 72 61 6d | 65 20 6e 69 6c 20 37 30 |ast-fram|e nil 70|
|00000110| 32 34 38 29 0a 0a 28 6d | 61 6b 65 2d 76 61 72 69 |248)..(m|ake-vari|
|00000120| 61 62 6c 65 2d 62 75 66 | 66 65 72 2d 6c 6f 63 61 |able-buf|fer-loca|
|00000130| 6c 20 28 71 75 6f 74 65 | 20 67 64 62 2d 6c 61 73 |l (quote| gdb-las|
|00000140| 74 2d 66 72 61 6d 65 29 | 29 0a 0a 28 64 65 66 76 |t-frame)|)..(defv|
|00000150| 61 72 20 67 64 62 2d 6c | 61 73 74 2d 62 75 66 66 |ar gdb-l|ast-buff|
|00000160| 65 72 20 6e 69 6c 20 37 | 30 33 31 31 29 0a 0a 28 |er nil 7|0311)..(|
|00000170| 64 65 66 76 61 72 20 67 | 64 62 2d 62 75 66 66 65 |defvar g|db-buffe|
|00000180| 72 2d 70 20 6e 69 6c 20 | 37 30 33 35 37 29 0a 0a |r-p nil |70357)..|
|00000190| 28 6d 61 6b 65 2d 76 61 | 72 69 61 62 6c 65 2d 62 |(make-va|riable-b|
|000001a0| 75 66 66 65 72 2d 6c 6f | 63 61 6c 20 28 71 75 6f |uffer-lo|cal (quo|
|000001b0| 74 65 20 67 64 62 2d 62 | 75 66 66 65 72 2d 70 29 |te gdb-b|uffer-p)|
|000001c0| 29 0a 0a 28 64 65 66 76 | 61 72 20 67 64 62 2d 73 |)..(defv|ar gdb-s|
|000001d0| 70 61 72 65 2d 6f 75 74 | 70 75 74 20 6e 69 6c 29 |pare-out|put nil)|
|000001e0| 0a 0a 28 6d 61 6b 65 2d | 76 61 72 69 61 62 6c 65 |..(make-|variable|
|000001f0| 2d 62 75 66 66 65 72 2d | 6c 6f 63 61 6c 20 28 71 |-buffer-|local (q|
|00000200| 75 6f 74 65 20 67 64 62 | 2d 73 70 61 72 65 2d 6f |uote gdb|-spare-o|
|00000210| 75 74 70 75 74 29 29 0a | 0a 28 64 65 66 76 61 72 |utput)).|.(defvar|
|00000220| 20 67 64 62 2d 64 65 6c | 65 74 65 2d 70 72 6f 6d | gdb-del|ete-prom|
|00000230| 70 74 20 6e 69 6c 29 0a | 0a 28 6d 61 6b 65 2d 76 |pt nil).|.(make-v|
|00000240| 61 72 69 61 62 6c 65 2d | 62 75 66 66 65 72 2d 6c |ariable-|buffer-l|
|00000250| 6f 63 61 6c 20 28 71 75 | 6f 74 65 20 67 64 62 2d |ocal (qu|ote gdb-|
|00000260| 64 65 6c 65 74 65 2d 70 | 72 6f 6d 70 74 29 29 0a |delete-p|rompt)).|
|00000270| 0a 28 64 65 66 76 61 72 | 20 67 64 62 2d 63 74 72 |.(defvar| gdb-ctr|
|00000280| 6c 2d 63 2d 6b 65 79 6d | 61 70 20 28 63 6f 70 79 |l-c-keym|ap (copy|
|00000290| 2d 73 65 71 75 65 6e 63 | 65 20 73 68 65 6c 6c 2d |-sequenc|e shell-|
|000002a0| 63 74 72 6c 2d 63 2d 6b | 65 79 6d 61 70 29 29 0a |ctrl-c-k|eymap)).|
|000002b0| 0a 28 62 69 6e 64 2d 6b | 65 79 73 20 67 64 62 2d |.(bind-k|eys gdb-|
|000002c0| 63 74 72 6c 2d 63 2d 6b | 65 79 6d 61 70 20 22 43 |ctrl-c-k|eymap "C|
|000002d0| 74 72 6c 2d 6e 22 20 28 | 71 75 6f 74 65 20 28 67 |trl-n" (|quote (g|
|000002e0| 64 62 2d 63 6f 6d 6d 61 | 6e 64 20 22 6e 65 78 74 |db-comma|nd "next|
|000002f0| 20 25 64 0a 22 20 28 70 | 72 65 66 69 78 2d 6e 75 | %d." (p|refix-nu|
|00000300| 6d 65 72 69 63 2d 61 72 | 67 75 6d 65 6e 74 20 63 |meric-ar|gument c|
|00000310| 75 72 72 65 6e 74 2d 70 | 72 65 66 69 78 2d 61 72 |urrent-p|refix-ar|
|00000320| 67 29 29 29 20 22 43 74 | 72 6c 2d 73 22 20 28 71 |g))) "Ct|rl-s" (q|
|00000330| 75 6f 74 65 20 28 67 64 | 62 2d 63 6f 6d 6d 61 6e |uote (gd|b-comman|
|00000340| 64 20 22 73 74 65 70 20 | 25 64 0a 22 20 28 70 72 |d "step |%d." (pr|
|00000350| 65 66 69 78 2d 6e 75 6d | 65 72 69 63 2d 61 72 67 |efix-num|eric-arg|
|00000360| 75 6d 65 6e 74 20 63 75 | 72 72 65 6e 74 2d 70 72 |ument cu|rrent-pr|
|00000370| 65 66 69 78 2d 61 72 67 | 29 29 29 20 22 43 74 72 |efix-arg|))) "Ctr|
|00000380| 6c 2d 69 22 20 28 71 75 | 6f 74 65 20 28 67 64 62 |l-i" (qu|ote (gdb|
|00000390| 2d 63 6f 6d 6d 61 6e 64 | 20 22 73 74 65 70 69 20 |-command| "stepi |
|000003a0| 25 64 0a 22 20 28 70 72 | 65 66 69 78 2d 6e 75 6d |%d." (pr|efix-num|
|000003b0| 65 72 69 63 2d 61 72 67 | 75 6d 65 6e 74 20 63 75 |eric-arg|ument cu|
|000003c0| 72 72 65 6e 74 2d 70 72 | 65 66 69 78 2d 61 72 67 |rrent-pr|efix-arg|
|000003d0| 29 29 29 20 22 43 74 72 | 6c 2d 49 22 20 28 71 75 |))) "Ctr|l-I" (qu|
|000003e0| 6f 74 65 20 28 67 64 62 | 2d 63 6f 6d 6d 61 6e 64 |ote (gdb|-command|
|000003f0| 20 22 6e 65 78 74 69 20 | 25 64 0a 22 20 28 70 72 | "nexti |%d." (pr|
|00000400| 65 66 69 78 2d 6e 75 6d | 65 72 69 63 2d 61 72 67 |efix-num|eric-arg|
|00000410| 75 6d 65 6e 74 20 63 75 | 72 72 65 6e 74 2d 70 72 |ument cu|rrent-pr|
|00000420| 65 66 69 78 2d 61 72 67 | 29 29 29 20 22 43 74 72 |efix-arg|))) "Ctr|
|00000430| 6c 2d 66 22 20 28 71 75 | 6f 74 65 20 28 67 64 62 |l-f" (qu|ote (gdb|
|00000440| 2d 63 6f 6d 6d 61 6e 64 | 20 22 66 69 6e 69 73 68 |-command| "finish|
|00000450| 0a 22 29 29 20 22 43 74 | 72 6c 2d 72 22 20 28 71 |.")) "Ct|rl-r" (q|
|00000460| 75 6f 74 65 20 28 67 64 | 62 2d 63 6f 6d 6d 61 6e |uote (gd|b-comman|
|00000470| 64 20 22 63 6f 6e 74 0a | 22 29 29 20 22 43 74 72 |d "cont.|")) "Ctr|
|00000480| 6c 2d 3c 22 20 28 71 75 | 6f 74 65 20 28 67 64 62 |l-<" (qu|ote (gdb|
|00000490| 2d 63 6f 6d 6d 61 6e 64 | 20 22 75 70 20 25 64 0a |-command| "up %d.|
|000004a0| 22 20 28 70 72 65 66 69 | 78 2d 6e 75 6d 65 72 69 |" (prefi|x-numeri|
|000004b0| 63 2d 61 72 67 75 6d 65 | 6e 74 20 63 75 72 72 65 |c-argume|nt curre|
|000004c0| 6e 74 2d 70 72 65 66 69 | 78 2d 61 72 67 29 29 29 |nt-prefi|x-arg)))|
|000004d0| 20 22 43 74 72 6c 2d 3e | 22 20 28 71 75 6f 74 65 | "Ctrl->|" (quote|
|000004e0| 20 28 67 64 62 2d 63 6f | 6d 6d 61 6e 64 20 22 64 | (gdb-co|mmand "d|
|000004f0| 6f 77 6e 20 25 64 0a 22 | 20 28 70 72 65 66 69 78 |own %d."| (prefix|
|00000500| 2d 6e 75 6d 65 72 69 63 | 2d 61 72 67 75 6d 65 6e |-numeric|-argumen|
|00000510| 74 20 63 75 72 72 65 6e | 74 2d 70 72 65 66 69 78 |t curren|t-prefix|
|00000520| 2d 61 72 67 29 29 29 20 | 22 43 74 72 6c 2d 62 22 |-arg))) |"Ctrl-b"|
|00000530| 20 28 71 75 6f 74 65 20 | 28 67 64 62 2d 63 6f 6d | (quote |(gdb-com|
|00000540| 6d 61 6e 64 20 22 62 72 | 65 61 6b 20 25 73 3a 25 |mand "br|eak %s:%|
|00000550| 64 0a 22 20 28 67 64 62 | 2d 63 75 72 72 65 6e 74 |d." (gdb|-current|
|00000560| 2d 66 69 6c 65 29 20 28 | 67 64 62 2d 63 75 72 72 |-file) (|gdb-curr|
|00000570| 65 6e 74 2d 6c 69 6e 65 | 29 29 29 20 22 43 74 72 |ent-line|))) "Ctr|
|00000580| 6c 2d 74 22 20 28 71 75 | 6f 74 65 20 28 67 64 62 |l-t" (qu|ote (gdb|
|00000590| 2d 63 6f 6d 6d 61 6e 64 | 20 22 74 62 72 65 61 6b |-command| "tbreak|
|000005a0| 20 25 73 3a 25 64 0a 22 | 20 28 67 64 62 2d 63 75 | %s:%d."| (gdb-cu|
|000005b0| 72 72 65 6e 74 2d 66 69 | 6c 65 29 20 28 67 64 62 |rrent-fi|le) (gdb|
|000005c0| 2d 63 75 72 72 65 6e 74 | 2d 6c 69 6e 65 29 29 29 |-current|-line)))|
|000005d0| 20 22 43 74 72 6c 2d 64 | 22 20 28 71 75 6f 74 65 | "Ctrl-d|" (quote|
|000005e0| 20 28 67 64 62 2d 63 6f | 6d 6d 61 6e 64 20 22 63 | (gdb-co|mmand "c|
|000005f0| 6c 65 61 72 20 25 64 0a | 22 20 28 67 64 62 2d 63 |lear %d.|" (gdb-c|
|00000600| 75 72 72 65 6e 74 2d 6c | 69 6e 65 29 29 29 20 22 |urrent-l|ine))) "|
|00000610| 43 74 72 6c 2d 6c 22 20 | 28 71 75 6f 74 65 20 67 |Ctrl-l" |(quote g|
|00000620| 64 62 2d 72 65 64 69 73 | 70 6c 61 79 2d 66 72 61 |db-redis|play-fra|
|00000630| 6d 65 29 29 0a 0a 28 62 | 69 6e 64 2d 6b 65 79 73 |me))..(b|ind-keys|
|00000640| 20 63 74 72 6c 2d 78 2d | 6b 65 79 6d 61 70 20 22 | ctrl-x-|keymap "|
|00000650| 43 74 72 6c 2d 61 22 20 | 28 71 75 6f 74 65 20 28 |Ctrl-a" |(quote (|
|00000660| 73 65 74 71 20 6e 65 78 | 74 2d 6b 65 79 6d 61 70 |setq nex|t-keymap|
|00000670| 2d 70 61 74 68 20 28 71 | 75 6f 74 65 20 28 67 64 |-path (q|uote (gd|
|00000680| 62 2d 63 74 72 6c 2d 63 | 2d 6b 65 79 6d 61 70 29 |b-ctrl-c|-keymap)|
|00000690| 29 29 29 29 0a 0a 28 64 | 65 66 75 6e 20 67 64 62 |))))..(d|efun gdb|
|000006a0| 20 28 70 72 6f 67 29 20 | 37 30 34 31 34 20 28 69 | (prog) |70414 (i|
|000006b0| 6e 74 65 72 61 63 74 69 | 76 65 20 22 66 50 72 6f |nteracti|ve "fPro|
|000006c0| 67 72 61 6d 20 74 6f 20 | 64 65 62 75 67 3a 22 29 |gram to |debug:")|
|000006d0| 20 28 6a 61 64 65 2d 62 | 79 74 65 2d 63 6f 64 65 | (jade-b|yte-code|
|000006e0| 20 22 44 10 11 09 32 1a | 5d ff 00 10 1a b1 1b 47 | "D...2.|]......G|
|000006f0| b1 48 fc 00 20 14 11 09 | 46 5c 22 48 15 1a 4a 0a |.H.. ...|F\"H..J.|
|00000700| fb 00 24 16 06 1a 09 48 | 16 07 1a 09 48 16 08 08 |..$....H|....H...|
|00000710| 48 16 09 1a 1e 0a 0a 48 | 1e 0b 26 0c 16 0d 16 0e |H......H|..&.....|
|00000720| 1e 0a 09 2a 26 0f 16 10 | 26 11 16 12 16 13 16 14 |...*&...|&.......|
|00000730| 49 b2 16 15 2b 2b 46 26 | 16 48 16 17 08 48 16 18 |I...++F&|.H...H..|
|00000740| 16 19 16 0e 1e 0a 09 0a | 26 1a 16 1b 26 1c 1e 1d |........|&...&...|
|00000750| 26 1e 1a 26 1f 4a 26 20 | 4a 46 26 21 48 16 5c 22 |&..&.J& |JF&!H.\"|
|00000760| 16 23 09 45 22 20 5b 67 | 65 74 2d 62 75 66 66 65 |.#.E" [g|et-buffe|
|00000770| 72 20 22 2a 67 64 62 2a | 22 20 62 75 66 66 65 72 |r "*gdb*|" buffer|
|00000780| 20 73 68 65 6c 6c 2d 70 | 72 6f 63 65 73 73 20 6d | shell-p|rocess m|
|00000790| 61 6b 65 2d 62 75 66 66 | 65 72 20 73 65 74 2d 62 |ake-buff|er set-b|
|000007a0| 75 66 66 65 72 2d 73 70 | 65 63 69 61 6c 20 63 6c |uffer-sp|ecial cl|
|000007b0| 65 61 72 2d 62 75 66 66 | 65 72 20 67 6f 74 6f 2d |ear-buff|er goto-|
|000007c0| 62 75 66 66 65 72 20 6b | 69 6c 6c 2d 61 6c 6c 2d |buffer k|ill-all-|
|000007d0| 62 75 66 66 65 72 2d 76 | 61 72 69 61 62 6c 65 73 |buffer-v|ariables|
|000007e0| 20 73 65 74 2d 62 75 66 | 66 65 72 2d 66 69 6c 65 | set-buf|fer-file|
|000007f0| 2d 6e 61 6d 65 20 70 72 | 6f 67 20 67 64 62 2d 66 |-name pr|og gdb-f|
|00000800| 69 6c 65 2d 6e 61 6d 65 | 20 73 68 65 6c 6c 2d 70 |ile-name| shell-p|
|00000810| 72 6f 67 72 61 6d 20 22 | 2d 66 75 6c 6c 6e 61 6d |rogram "|-fullnam|
|00000820| 65 22 20 66 69 6c 65 2d | 6e 61 6d 65 2d 6e 6f 6e |e" file-|name-non|
|00000830| 64 69 72 65 63 74 6f 72 | 79 20 73 68 65 6c 6c 2d |director|y shell-|
|00000840| 70 72 6f 67 72 61 6d 2d | 61 72 67 73 20 22 5e 28 |program-|args "^(|
|00000850| 2e 2a 5c 5c 28 2e 2b 5c | 5c 29 20 2a 7c 2e 2b 2d |.*\\(.+\|\) *|.+-|
|00000860| 2d 2d 29 22 20 73 68 65 | 6c 6c 2d 70 72 6f 6d 70 |--)" she|ll-promp|
|00000870| 74 2d 72 65 67 65 78 70 | 20 6c 61 6d 62 64 61 20 |t-regexp| lambda |
|00000880| 28 78 29 20 67 64 62 2d | 6f 75 74 70 75 74 2d 66 |(x) gdb-|output-f|
|00000890| 69 6c 74 65 72 20 78 20 | 73 68 65 6c 6c 2d 6f 75 |ilter x |shell-ou|
|000008a0| 74 70 75 74 2d 73 74 72 | 65 61 6d 20 73 68 65 6c |tput-str|eam shel|
|000008b0| 6c 2d 6d 6f 64 65 20 63 | 6f 6e 63 61 74 20 22 47 |l-mode c|oncat "G|
|000008c0| 44 42 3a 22 20 6d 6f 64 | 65 2d 6e 61 6d 65 20 67 |DB:" mod|e-name g|
|000008d0| 64 62 2d 6d 6f 64 65 20 | 6d 61 6a 6f 72 2d 6d 6f |db-mode |major-mo|
|000008e0| 64 65 20 67 64 62 2d 63 | 74 72 6c 2d 63 2d 6b 65 |de gdb-c|trl-c-ke|
|000008f0| 79 6d 61 70 20 63 74 72 | 6c 2d 63 2d 6b 65 79 6d |ymap ctr|l-c-keym|
|00000900| 61 70 20 67 64 62 2d 6c | 61 73 74 2d 62 75 66 66 |ap gdb-l|ast-buff|
|00000910| 65 72 20 67 64 62 2d 62 | 75 66 66 65 72 2d 70 20 |er gdb-b|uffer-p |
|00000920| 6d 69 6c 64 6c 79 2d 73 | 70 65 63 69 61 6c 2d 62 |mildly-s|pecial-b|
|00000930| 75 66 66 65 72 20 65 76 | 61 6c 2d 68 6f 6f 6b 20 |uffer ev|al-hook |
|00000940| 67 64 62 2d 68 6f 6f 6b | 5d 20 35 29 29 0a 0a 28 |gdb-hook|] 5))..(|
|00000950| 64 65 66 75 6e 20 67 64 | 62 2d 6d 6f 64 65 20 6e |defun gd|b-mode n|
|00000960| 69 6c 20 37 30 36 36 30 | 20 28 6a 61 64 65 2d 62 |il 70660| (jade-b|
|00000970| 79 74 65 2d 63 6f 64 65 | 20 22 49 22 20 5b 5d 20 |yte-code| "I" [] |
|00000980| 31 29 29 0a 0a 28 64 65 | 66 6d 61 63 72 6f 20 67 |1))..(de|fmacro g|
|00000990| 64 62 2d 67 65 74 2d 62 | 75 66 66 65 72 2d 76 61 |db-get-b|uffer-va|
|000009a0| 72 20 28 76 61 72 29 20 | 28 6a 61 64 65 2d 62 79 |r (var) |(jade-by|
|000009b0| 74 65 2d 63 6f 64 65 20 | 22 10 11 1a 2b 22 20 5b |te-code |"...+" [|
|000009c0| 77 69 74 68 2d 62 75 66 | 66 65 72 20 67 64 62 2d |with-buf|fer gdb-|
|000009d0| 6c 61 73 74 2d 62 75 66 | 66 65 72 20 76 61 72 5d |last-buf|fer var]|
|000009e0| 20 33 29 29 0a 0a 28 64 | 65 66 75 6e 20 67 64 62 | 3))..(d|efun gdb|
|000009f0| 2d 63 75 72 72 65 6e 74 | 2d 66 69 6c 65 20 6e 69 |-current|-file ni|
|00000a00| 6c 20 28 6a 61 64 65 2d | 62 79 74 65 2d 63 6f 64 |l (jade-|byte-cod|
|00000a10| 65 20 22 10 19 fc 00 0a | 1a 4c fb 00 0c 13 08 09 |e ".....|.L......|
|00000a20| 22 20 5b 66 69 6c 65 2d | 6e 61 6d 65 2d 6e 6f 6e |" [file-|name-non|
|00000a30| 64 69 72 65 63 74 6f 72 | 79 20 67 64 62 2d 62 75 |director|y gdb-bu|
|00000a40| 66 66 65 72 2d 70 20 67 | 64 62 2d 6c 61 73 74 2d |ffer-p g|db-last-|
|00000a50| 66 72 61 6d 65 20 62 75 | 66 66 65 72 2d 66 69 6c |frame bu|ffer-fil|
|00000a60| 65 2d 6e 61 6d 65 5d 20 | 32 29 29 0a 0a 28 64 65 |e-name] |2))..(de|
|00000a70| 66 75 6e 20 67 64 62 2d | 63 75 72 72 65 6e 74 2d |fun gdb-|current-|
|00000a80| 6c 69 6e 65 20 6e 69 6c | 20 28 6a 61 64 65 2d 62 |line nil| (jade-b|
|00000a90| 79 74 65 2d 63 6f 64 65 | 20 22 18 fc 00 09 19 4d |yte-code| ".....M|
|00000aa0| fb 00 0d 12 13 08 09 68 | 22 20 5b 67 64 62 2d 62 |.......h|" [gdb-b|
|00000ab0| 75 66 66 65 72 2d 70 20 | 67 64 62 2d 6c 61 73 74 |uffer-p |gdb-last|
|00000ac0| 2d 66 72 61 6d 65 20 70 | 6f 73 2d 6c 69 6e 65 20 |-frame p|os-line |
|00000ad0| 63 75 72 73 6f 72 2d 70 | 6f 73 5d 20 32 29 29 0a |cursor-p|os] 2)).|
|00000ae0| 0a 28 64 65 66 75 6e 20 | 67 64 62 2d 63 6f 6d 6d |.(defun |gdb-comm|
|00000af0| 61 6e 64 20 28 66 6f 72 | 6d 61 74 2d 73 70 65 63 |and (for|mat-spec|
|00000b00| 20 26 72 65 73 74 20 66 | 6f 72 6d 61 74 2d 61 72 | &rest f|ormat-ar|
|00000b10| 67 73 29 20 28 6a 61 64 | 65 2d 62 79 74 65 2d 63 |gs) (jad|e-byte-c|
|00000b20| 6f 64 65 20 22 18 fe 00 | 08 49 b2 46 21 48 12 13 |ode "...|.I.F!H..|
|00000b30| 19 b1 1c 47 b1 48 1d 1e | 06 0c 48 19 b1 16 07 16 |...G.H..|..H.....|
|00000b40| 08 16 09 08 0a fe 00 27 | 4a 46 26 0a 47 b1 48 22 |.......'|JF&.G.H"|
|00000b50| 20 5b 67 64 62 2d 62 75 | 66 66 65 72 2d 70 20 67 | [gdb-bu|ffer-p g|
|00000b60| 64 62 2d 6c 61 73 74 2d | 62 75 66 66 65 72 20 61 |db-last-|buffer a|
|00000b70| 70 70 6c 79 20 66 6f 72 | 6d 61 74 20 73 68 65 6c |pply for|mat shel|
|00000b80| 6c 2d 70 72 6f 63 65 73 | 73 20 66 6f 72 6d 61 74 |l-proces|s format|
|00000b90| 2d 73 70 65 63 20 66 6f | 72 6d 61 74 2d 61 72 67 |-spec fo|rmat-arg|
|00000ba0| 73 20 72 65 67 65 78 70 | 2d 6d 61 74 63 68 2d 6c |s regexp|-match-l|
|00000bb0| 69 6e 65 20 22 5e 5c 5c | 28 2e 2a 67 64 62 2e 2a |ine "^\\|(.*gdb.*|
|00000bc0| 5c 5c 29 20 2a 22 20 62 | 75 66 66 65 72 2d 65 6e |\\) *" b|uffer-en|
|00000bd0| 64 20 67 64 62 2d 64 65 | 6c 65 74 65 2d 70 72 6f |d gdb-de|lete-pro|
|00000be0| 6d 70 74 5d 20 35 29 29 | 0a 0a 28 64 65 66 75 6e |mpt] 5))|..(defun|
|00000bf0| 20 67 64 62 2d 6f 75 74 | 70 75 74 2d 66 69 6c 74 | gdb-out|put-filt|
|00000c00| 65 72 20 28 62 75 66 66 | 65 72 20 64 61 74 61 29 |er (buff|er data)|
|00000c10| 20 28 6a 61 64 65 2d 62 | 79 74 65 2d 63 6f 64 65 | (jade-b|yte-code|
|00000c20| 20 22 44 49 30 19 b1 1a | fe 00 0f 13 1a 1c 0a 46 | "DI0...|.......F|
|00000c30| 24 48 15 08 48 1e 06 fe | 00 1d 16 07 1e 08 09 fe |$H..H...|........|
|00000c40| 00 2e 16 09 16 0a 08 16 | 0b 08 0a 48 49 46 26 06 |........|...HIF&.|
|00000c50| 48 16 0c 16 0d 1c 0a fe | 00 7e 16 0e 16 0f 1c 16 |H.......|.~......|
|00000c60| 10 16 0a 16 10 09 0b 09 | 48 16 0f 1c 16 0a 16 11 |........|H.......|
|00000c70| 09 16 0b 16 11 09 0b 16 | 12 16 10 16 0f 1c 16 0a |........|........|
|00000c80| 16 13 09 16 0b 16 13 09 | 0b 4b 09 69 4b 26 14 4a |........|.K.iK&.J|
|00000c90| 20 16 0f 1c 16 0b 16 10 | 09 0a 46 24 48 fb 00 2f | .......|..F$H../|
|00000ca0| 48 16 0c 16 15 1c 0a fc | 00 a5 16 0e 16 0f 1c 16 |H.......|........|
|00000cb0| 10 16 0a 16 10 09 0b 09 | 48 16 0f 1c 16 0a 16 10 |........|H.......|
|00000cc0| 09 0a 46 5c 22 fb 00 ad | 16 0e 1c 09 48 49 46 5c |..F\"...|....HIF\|
|00000cd0| 22 47 b1 48 48 18 fe 01 | 1d 19 46 26 16 48 44 19 |"G.HH...|..F&.HD.|
|00000ce0| b1 1e 14 47 b1 48 36 17 | 1e 18 fc 00 cf 16 19 08 |...G.H6.|........|
|00000cf0| fb 00 d2 16 1a 08 36 1b | 16 1c 16 10 1e 17 4d 0a |......6.|......M.|
|00000d00| 36 1d 49 36 1e 1e 1b b6 | 49 b2 46 26 1e 48 16 1f |6.I6....|I.F&.H..|
|00000d10| 16 20 1e 17 4c 09 09 48 | 16 21 1e 1d 16 5c 22 1e |. ..L..H|.!...\".|
|00000d20| 1d 09 0a 48 16 23 16 5c | 22 1e 1d 09 09 48 1e 24 |...H.#.\|"....H.$|
|00000d30| ff 01 13 1e 1e 49 b2 61 | 5d fe 01 19 16 25 08 47 |.....I.a|]....%.G|
|00000d40| b6 48 45 45 22 20 5b 6e | 65 77 2d 66 72 61 6d 65 |.HEE" [n|ew-frame|
|00000d50| 20 62 75 66 66 65 72 20 | 67 64 62 2d 73 70 61 72 | buffer |gdb-spar|
|00000d60| 65 2d 6f 75 74 70 75 74 | 20 63 6f 6e 63 61 74 20 |e-output| concat |
|00000d70| 64 61 74 61 20 67 6f 74 | 6f 2d 62 75 66 66 65 72 |data got|o-buffer|
|00000d80| 2d 65 6e 64 20 67 64 62 | 2d 64 65 6c 65 74 65 2d |-end gdb|-delete-|
|00000d90| 70 72 6f 6d 70 74 20 72 | 65 67 65 78 70 2d 6d 61 |prompt r|egexp-ma|
|00000da0| 74 63 68 2d 6c 69 6e 65 | 20 73 68 65 6c 6c 2d 70 |tch-line| shell-p|
|00000db0| 72 6f 6d 70 74 2d 72 65 | 67 65 78 70 20 64 65 6c |rompt-re|gexp del|
|00000dc0| 65 74 65 2d 61 72 65 61 | 20 6d 61 74 63 68 2d 73 |ete-area| match-s|
|00000dd0| 74 61 72 74 20 6d 61 74 | 63 68 2d 65 6e 64 20 72 |tart mat|ch-end r|
|00000de0| 65 67 65 78 70 2d 6d 61 | 74 63 68 20 22 1a 1a 28 |egexp-ma|tch "..(|
|00000df0| 5b 5e 3a 0a 5d 2b 29 3a | 28 5b 30 2d 39 5d 2b 29 |[^:.]+):|([0-9]+)|
|00000e00| 3a 28 5b 30 2d 39 5d 2b | 29 3a 2e 2a 0a 22 20 69 |:([0-9]+|):.*." i|
|00000e10| 6e 73 65 72 74 20 73 75 | 62 73 74 72 69 6e 67 20 |nsert su|bstring |
|00000e20| 30 20 31 20 72 65 61 64 | 20 32 20 67 64 62 2d 6c |0 1 read| 2 gdb-l|
|00000e30| 61 73 74 2d 66 72 61 6d | 65 20 22 1a 22 20 67 64 |ast-fram|e "." gd|
|00000e40| 62 2d 6c 61 73 74 2d 62 | 75 66 66 65 72 20 66 72 |b-last-b|uffer fr|
|00000e50| 61 6d 65 20 67 64 62 2d | 62 75 66 66 65 72 2d 70 |ame gdb-|buffer-p|
|00000e60| 20 6f 74 68 65 72 2d 77 | 69 6e 64 6f 77 20 63 75 | other-w|indow cu|
|00000e70| 72 72 65 6e 74 2d 77 69 | 6e 64 6f 77 20 77 69 6e |rrent-wi|ndow win|
|00000e80| 64 6f 77 20 70 6f 73 20 | 6c 69 6e 65 2d 70 6f 73 |dow pos |line-pos|
|00000e90| 20 6f 6c 64 2d 62 75 66 | 20 67 6f 74 6f 2d 62 75 | old-buf| goto-bu|
|00000ea0| 66 66 65 72 20 6f 70 65 | 6e 2d 66 69 6c 65 20 6d |ffer ope|n-file m|
|00000eb0| 61 72 6b 2d 62 6c 6f 63 | 6b 20 6c 69 6e 65 2d 65 |ark-bloc|k line-e|
|00000ec0| 6e 64 20 67 6f 74 6f 2d | 63 68 61 72 20 67 64 62 |nd goto-|char gdb|
|00000ed0| 2d 61 75 74 6f 2d 63 65 | 6e 74 72 65 20 63 65 6e |-auto-ce|ntre cen|
|00000ee0| 74 72 65 2d 64 69 73 70 | 6c 61 79 5d 20 39 29 29 |tre-disp|lay] 9))|
|00000ef0| 0a 0a 28 64 65 66 75 6e | 20 67 64 62 2d 72 65 64 |..(defun| gdb-red|
|00000f00| 69 73 70 6c 61 79 2d 66 | 72 61 6d 65 20 6e 69 6c |isplay-f|rame nil|
|00000f10| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 29 20 28 | (intera|ctive) (|
|00000f20| 6a 61 64 65 2d 62 79 74 | 65 2d 63 6f 64 65 20 22 |jade-byt|e-code "|
|00000f30| 18 fe 00 08 49 b2 46 21 | 48 44 19 b1 1a 47 b1 48 |....I.F!|HD...G.H|
|00000f40| 33 14 15 1b 4d 0a 36 06 | 16 07 16 08 1b 4c 09 09 |3...M.6.|.....L..|
|00000f50| 48 16 09 1e 06 16 0a 1e | 06 09 0a 48 16 0b 16 0a |H.......|...H....|
|00000f60| 1e 06 09 09 48 16 0c 08 | 45 22 20 5b 67 64 62 2d |....H...|E" [gdb-|
|00000f70| 62 75 66 66 65 72 2d 70 | 20 67 64 62 2d 6c 61 73 |buffer-p| gdb-las|
|00000f80| 74 2d 62 75 66 66 65 72 | 20 67 64 62 2d 6c 61 73 |t-buffer| gdb-las|
|00000f90| 74 2d 66 72 61 6d 65 20 | 66 72 61 6d 65 20 70 6f |t-frame |frame po|
|00000fa0| 73 20 30 20 6c 69 6e 65 | 2d 70 6f 73 20 67 6f 74 |s 0 line|-pos got|
|00000fb0| 6f 2d 62 75 66 66 65 72 | 20 6f 70 65 6e 2d 66 69 |o-buffer| open-fi|
|00000fc0| 6c 65 20 6d 61 72 6b 2d | 62 6c 6f 63 6b 20 6c 69 |le mark-|block li|
|00000fd0| 6e 65 2d 65 6e 64 20 67 | 6f 74 6f 2d 63 68 61 72 |ne-end g|oto-char|
|00000fe0| 20 63 65 6e 74 72 65 2d | 64 69 73 70 6c 61 79 5d | centre-|display]|
|00000ff0| 20 34 29 29 0a          |                         | 4)).   |        |
+--------+-------------------------+-------------------------+--------+--------+