/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / emacs-19.16 / lisp / gud.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 6a 69 6d 62 40 67 65 |piled by| jimb@ge|
|00000020| 65 63 68 2e 67 6e 75 2e | 61 69 2e 6d 69 74 2e 65 |ech.gnu.|ai.mit.e|
|00000030| 64 75 20 6f 6e 20 4d 6f | 6e 20 4a 75 6c 20 20 35 |du on Mo|n Jul  5|
|00000040| 20 32 33 3a 31 35 3a 35 | 36 20 31 39 39 33 0a 3b | 23:15:5|6 1993.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 67 64 |;; from |file /gd|
|00000060| 2f 67 6e 75 2f 65 6d 61 | 63 73 2f 31 39 2e 30 2f |/gnu/ema|cs/19.0/|
|00000070| 6c 69 73 70 2f 67 75 64 | 2e 65 6c 0a 3b 3b 3b 20 |lisp/gud|.el.;;; |
|00000080| 65 6d 61 63 73 20 76 65 | 72 73 69 6f 6e 20 31 39 |emacs ve|rsion 19|
|00000090| 2e 31 35 2e 31 36 2e 0a | 3b 3b 3b 20 62 79 74 65 |.15.16..|;;; byte|
|000000a0| 63 6f 6d 70 20 76 65 72 | 73 69 6f 6e 20 46 53 46 |comp ver|sion FSF|
|000000b0| 20 32 2e 31 30 0a 3b 3b | 3b 20 6f 70 74 69 6d 69 | 2.10.;;|; optimi|
|000000c0| 7a 61 74 69 6f 6e 20 69 | 73 20 6f 6e 2e 0a 3b 3b |zation i|s on..;;|
|000000d0| 3b 20 74 68 69 73 20 66 | 69 6c 65 20 75 73 65 73 |; this f|ile uses|
|000000e0| 20 6f 70 63 6f 64 65 73 | 20 77 68 69 63 68 20 64 | opcodes| which d|
|000000f0| 6f 20 6e 6f 74 20 65 78 | 69 73 74 20 69 6e 20 45 |o not ex|ist in E|
|00000100| 6d 61 63 73 20 31 38 2e | 0a 0a 28 69 66 20 28 61 |macs 18.|..(if (a|
|00000110| 6e 64 20 28 62 6f 75 6e | 64 70 20 27 65 6d 61 63 |nd (boun|dp 'emac|
|00000120| 73 2d 76 65 72 73 69 6f | 6e 29 0a 09 20 28 6f 72 |s-versio|n).. (or|
|00000130| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000140| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 20 65 |poch::ve|rsion) e|
|00000150| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 0a 09 |poch::ve|rsion)..|
|00000160| 20 20 20 20 20 28 73 74 | 72 69 6e 67 2d 6c 65 73 |     (st|ring-les|
|00000170| 73 70 20 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |sp emacs|-version|
|00000180| 20 22 31 39 22 29 29 29 | 0a 20 20 20 20 28 65 72 | "19")))|.    (er|
|00000190| 72 6f 72 20 22 54 68 69 | 73 20 66 69 6c 65 20 77 |ror "Thi|s file w|
|000001a0| 61 73 20 63 6f 6d 70 69 | 6c 65 64 20 66 6f 72 20 |as compi|led for |
|000001b0| 45 6d 61 63 73 20 31 39 | 22 29 29 0a 0a 28 62 79 |Emacs 19|"))..(by|
|000001c0| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 21 88 c0 c2 21 |te-code |"..!...!|
|000001d0| 87 22 20 5b 72 65 71 75 | 69 72 65 20 63 6f 6d 69 |." [requ|ire comi|
|000001e0| 6e 74 20 65 74 61 67 73 | 5d 20 32 29 0a 28 64 65 |nt etags|] 2).(de|
|000001f0| 66 76 61 72 20 67 75 64 | 2d 6b 65 79 2d 70 72 65 |fvar gud|-key-pre|
|00000200| 66 69 78 20 22 18 01 22 | 20 22 5c 0a 50 72 65 66 |fix ".."| "\.Pref|
|00000210| 69 78 20 6f 66 20 61 6c | 6c 20 47 55 44 20 63 6f |ix of al|l GUD co|
|00000220| 6d 6d 61 6e 64 73 20 76 | 61 6c 69 64 20 69 6e 20 |mmands v|alid in |
|00000230| 43 20 62 75 66 66 65 72 | 73 2e 22 29 0a 28 62 79 |C buffer|s.").(by|
|00000240| 74 65 2d 63 6f 64 65 20 | 22 c0 09 c2 50 c3 5c 22 |te-code |"...P.\"|
|00000250| 88 c0 c4 c5 5c 22 87 22 | 20 5b 67 6c 6f 62 61 6c |....\"."| [global|
|00000260| 2d 73 65 74 2d 6b 65 79 | 20 67 75 64 2d 6b 65 79 |-set-key| gud-key|
|00000270| 2d 70 72 65 66 69 78 20 | 22 0c 22 20 67 75 64 2d |-prefix |"." gud-|
|00000280| 72 65 66 72 65 73 68 20 | 22 18 20 22 20 67 75 64 |refresh |". " gud|
|00000290| 2d 62 72 65 61 6b 5d 20 | 33 29 0a 28 64 65 66 61 |-break] |3).(defa|
|000002a0| 6c 69 61 73 20 27 67 75 | 64 2d 6f 76 65 72 6c 6f |lias 'gu|d-overlo|
|000002b0| 61 64 2d 66 75 6e 63 74 | 69 6f 6e 73 20 23 5b 28 |ad-funct|ions #[(|
|000002c0| 67 75 64 2d 6f 76 65 72 | 6c 6f 61 64 2d 61 6c 69 |gud-over|load-ali|
|000002d0| 73 74 29 20 22 c0 c1 5c | 6e 5c 22 87 22 20 5b 6d |st) "..\|n\"." [m|
|000002e0| 61 70 63 61 72 20 23 5b | 28 70 29 20 22 08 40 08 |apcar #[|(p) ".@.|
|000002f0| 41 4b 4d 87 22 20 5b 70 | 5d 20 32 5d 20 67 75 64 |AKM." [p|] 2] gud|
|00000300| 2d 6f 76 65 72 6c 6f 61 | 64 2d 61 6c 69 73 74 5d |-overloa|d-alist]|
|00000310| 20 33 20 22 5c 0a 4f 76 | 65 72 6c 6f 61 64 20 66 | 3 "\.Ov|erload f|
|00000320| 75 6e 63 74 69 6f 6e 73 | 20 64 65 66 69 6e 65 64 |unctions| defined|
|00000330| 20 69 6e 20 47 55 44 2d | 4f 56 45 52 4c 4f 41 44 | in GUD-|OVERLOAD|
|00000340| 2d 41 4c 49 53 54 2e 0a | 54 68 69 73 20 61 73 73 |-ALIST..|This ass|
|00000350| 6f 63 69 61 74 69 6f 6e | 20 6c 69 73 74 20 68 61 |ociation| list ha|
|00000360| 73 20 65 6c 65 6d 65 6e | 74 73 20 6f 66 20 74 68 |s elemen|ts of th|
|00000370| 65 20 66 6f 72 6d 0a 20 | 20 20 20 20 28 4f 52 49 |e form. |    (ORI|
|00000380| 47 49 4e 41 4c 2d 46 55 | 4e 43 54 49 4f 4e 2d 4e |GINAL-FU|NCTION-N|
|00000390| 41 4d 45 20 20 4f 56 45 | 52 4c 4f 41 44 2d 46 55 |AME  OVE|RLOAD-FU|
|000003a0| 4e 43 54 49 4f 4e 29 22 | 5d 29 0a 28 62 79 74 65 |NCTION)"|]).(byte|
|000003b0| 2d 63 6f 64 65 20 22 c0 | c1 c2 5c 22 88 c0 c3 c4 |-code ".|..\"....|
|000003c0| 5c 22 88 c0 c5 c6 5c 22 | 87 22 20 5b 64 65 66 61 |\"....\"|." [defa|
|000003d0| 6c 69 61 73 20 67 75 64 | 2d 64 65 62 75 67 67 65 |lias gud|-debugge|
|000003e0| 72 2d 73 74 61 72 74 75 | 70 20 23 5b 28 66 69 6c |r-startu|p #[(fil|
|000003f0| 65 20 61 72 67 73 29 20 | 22 c0 c1 21 87 22 20 5b |e args) |"..!." [|
|00000400| 65 72 72 6f 72 20 22 47 | 55 44 20 6e 6f 74 20 70 |error "G|UD not p|
|00000410| 72 6f 70 65 72 6c 79 20 | 65 6e 74 65 72 65 64 2e |roperly |entered.|
|00000420| 22 5d 20 32 5d 20 67 75 | 64 2d 6d 61 72 6b 65 72 |"] 2] gu|d-marker|
|00000430| 2d 66 69 6c 74 65 72 20 | 23 5b 28 73 74 72 29 20 |-filter |#[(str) |
|00000440| 22 c0 c1 21 87 22 20 5b | 65 72 72 6f 72 20 22 47 |"..!." [|error "G|
|00000450| 55 44 20 6e 6f 74 20 70 | 72 6f 70 65 72 6c 79 20 |UD not p|roperly |
|00000460| 65 6e 74 65 72 65 64 2e | 22 5d 20 32 5d 20 67 75 |entered.|"] 2] gu|
|00000470| 64 2d 66 69 6e 64 2d 66 | 69 6c 65 20 23 5b 28 66 |d-find-f|ile #[(f|
|00000480| 29 20 22 c0 c1 21 87 22 | 20 5b 65 72 72 6f 72 20 |) "..!."| [error |
|00000490| 22 47 55 44 20 6e 6f 74 | 20 70 72 6f 70 65 72 6c |"GUD not| properl|
|000004a0| 79 20 65 6e 74 65 72 65 | 64 2e 22 5d 20 32 5d 5d |y entere|d."] 2]]|
|000004b0| 20 33 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 67 | 3).(def|alias 'g|
|000004c0| 75 64 2d 64 65 66 20 27 | 28 6d 61 63 72 6f 20 2e |ud-def '|(macro .|
|000004d0| 20 23 5b 28 66 75 6e 63 | 20 63 6d 64 20 6b 65 79 | #[(func| cmd key|
|000004e0| 20 26 6f 70 74 69 6f 6e | 61 6c 20 64 6f 63 29 20 | &option|al doc) |
|000004f0| 22 c0 c1 5c 6e c3 0c 86 | 09 00 c5 c6 c7 0e 08 c9 |"..\n...|........|
|00000500| 45 af 06 0e 5c 6e 85 20 | 00 cb cc cd 0e 5c 6e 50 |E...\n. |.....\nP|
|00000510| ce 5c 6e 44 46 0e 5c 6e | 85 2f 00 cf d0 d1 0e 5c |.\nDF.\n|./.....\|
|00000520| 6e 45 ce 5c 6e 44 45 46 | 87 22 20 5b 70 72 6f 67 |nE.\nDEF|." [prog|
|00000530| 6e 20 64 65 66 75 6e 20 | 66 75 6e 63 20 28 61 72 |n defun |func (ar|
|00000540| 67 29 20 64 6f 63 20 22 | 22 20 28 69 6e 74 65 72 |g) doc "|" (inter|
|00000550| 61 63 74 69 76 65 20 22 | 70 22 29 20 67 75 64 2d |active "|p") gud-|
|00000560| 63 61 6c 6c 20 63 6d 64 | 20 61 72 67 20 6b 65 79 |call cmd| arg key|
|00000570| 20 64 65 66 69 6e 65 2d | 6b 65 79 20 28 63 75 72 | define-|key (cur|
|00000580| 72 65 6e 74 2d 6c 6f 63 | 61 6c 2d 6d 61 70 29 20 |rent-loc|al-map) |
|00000590| 22 03 22 20 71 75 6f 74 | 65 20 67 6c 6f 62 61 6c |"." quot|e global|
|000005a0| 2d 73 65 74 2d 6b 65 79 | 20 63 6f 6e 63 61 74 20 |-set-key| concat |
|000005b0| 67 75 64 2d 6b 65 79 2d | 70 72 65 66 69 78 5d 20 |gud-key-|prefix] |
|000005c0| 39 20 22 5c 0a 44 65 66 | 69 6e 65 20 46 55 4e 43 |9 "\.Def|ine FUNC|
|000005d0| 20 74 6f 20 62 65 20 61 | 20 63 6f 6d 6d 61 6e 64 | to be a| command|
|000005e0| 20 73 65 6e 64 69 6e 67 | 20 53 54 52 20 61 6e 64 | sending| STR and|
|000005f0| 20 62 6f 75 6e 64 20 74 | 6f 20 4b 45 59 2c 20 77 | bound t|o KEY, w|
|00000600| 69 74 68 0a 6f 70 74 69 | 6f 6e 61 6c 20 64 6f 63 |ith.opti|onal doc|
|00000610| 20 73 74 72 69 6e 67 20 | 44 4f 43 2e 20 20 43 65 | string |DOC.  Ce|
|00000620| 72 74 61 69 6e 20 25 2d | 65 73 63 61 70 65 73 20 |rtain %-|escapes |
|00000630| 69 6e 20 74 68 65 20 73 | 74 72 69 6e 67 20 61 72 |in the s|tring ar|
|00000640| 67 75 6d 65 6e 74 73 0a | 61 72 65 20 69 6e 74 65 |guments.|are inte|
|00000650| 72 70 72 65 74 65 64 20 | 73 70 65 63 69 61 6c 6c |rpreted |speciall|
|00000660| 79 20 69 66 20 70 72 65 | 73 65 6e 74 2e 20 20 54 |y if pre|sent.  T|
|00000670| 68 65 73 65 20 61 72 65 | 3a 0a 0a 20 20 25 66 09 |hese are|:..  %f.|
|00000680| 6e 61 6d 65 20 6f 66 20 | 63 75 72 72 65 6e 74 20 |name of |current |
|00000690| 73 6f 75 72 63 65 20 66 | 69 6c 65 2e 20 0a 20 20 |source f|ile. .  |
|000006a0| 25 6c 09 6e 75 6d 62 65 | 72 20 6f 66 20 63 75 72 |%l.numbe|r of cur|
|000006b0| 72 65 6e 74 20 73 6f 75 | 72 63 65 20 6c 69 6e 65 |rent sou|rce line|
|000006c0| 0a 20 20 25 65 09 74 65 | 78 74 20 6f 66 20 74 68 |.  %e.te|xt of th|
|000006d0| 65 20 43 20 6c 76 61 6c | 75 65 20 6f 72 20 66 75 |e C lval|ue or fu|
|000006e0| 6e 63 74 69 6f 6e 2d 63 | 61 6c 6c 20 65 78 70 72 |nction-c|all expr|
|000006f0| 65 73 73 69 6f 6e 20 73 | 75 72 72 6f 75 6e 64 69 |ession s|urroundi|
|00000700| 6e 67 20 70 6f 69 6e 74 | 2e 0a 20 20 25 61 09 74 |ng point|..  %a.t|
|00000710| 65 78 74 20 6f 66 20 74 | 68 65 20 68 65 78 61 64 |ext of t|he hexad|
|00000720| 65 63 69 6d 61 6c 20 61 | 64 64 72 65 73 73 20 73 |ecimal a|ddress s|
|00000730| 75 72 72 6f 75 6e 64 69 | 6e 67 20 70 6f 69 6e 74 |urroundi|ng point|
|00000740| 0a 20 20 25 70 09 70 72 | 65 66 69 78 20 61 72 67 |.  %p.pr|efix arg|
|00000750| 75 6d 65 6e 74 20 74 6f | 20 74 68 65 20 63 6f 6d |ument to| the com|
|00000760| 6d 61 6e 64 20 28 69 66 | 20 61 6e 79 29 20 61 73 |mand (if| any) as|
|00000770| 20 61 20 6e 75 6d 62 65 | 72 0a 0a 20 20 54 68 65 | a numbe|r..  The|
|00000780| 20 60 63 75 72 72 65 6e | 74 27 20 73 6f 75 72 63 | `curren|t' sourc|
|00000790| 65 20 66 69 6c 65 20 69 | 73 20 74 68 65 20 66 69 |e file i|s the fi|
|000007a0| 6c 65 20 6f 66 20 74 68 | 65 20 63 75 72 72 65 6e |le of th|e curren|
|000007b0| 74 20 62 75 66 66 65 72 | 20 28 69 66 0a 77 65 27 |t buffer| (if.we'|
|000007c0| 72 65 20 69 6e 20 61 20 | 43 20 66 69 6c 65 29 20 |re in a |C file) |
|000007d0| 6f 72 20 74 68 65 20 73 | 6f 75 72 63 65 20 66 69 |or the s|ource fi|
|000007e0| 6c 65 20 63 75 72 72 65 | 6e 74 20 61 74 20 74 68 |le curre|nt at th|
|000007f0| 65 20 6c 61 73 74 20 62 | 72 65 61 6b 20 6f 72 0a |e last b|reak or.|
|00000800| 73 74 65 70 20 28 69 66 | 20 77 65 27 72 65 20 69 |step (if| we're i|
|00000810| 6e 20 74 68 65 20 47 55 | 44 20 62 75 66 66 65 72 |n the GU|D buffer|
|00000820| 29 2e 0a 20 20 54 68 65 | 20 60 63 75 72 72 65 6e |)..  The| `curren|
|00000830| 74 27 20 6c 69 6e 65 20 | 69 73 20 74 68 61 74 20 |t' line |is that |
|00000840| 6f 66 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 62 |of the c|urrent b|
|00000850| 75 66 66 65 72 20 28 69 | 66 20 77 65 27 72 65 20 |uffer (i|f we're |
|00000860| 69 6e 20 61 0a 73 6f 75 | 72 63 65 20 66 69 6c 65 |in a.sou|rce file|
|00000870| 29 20 6f 72 20 74 68 65 | 20 73 6f 75 72 63 65 20 |) or the| source |
|00000880| 6c 69 6e 65 20 6e 75 6d | 62 65 72 20 61 74 20 74 |line num|ber at t|
|00000890| 68 65 20 6c 61 73 74 20 | 62 72 65 61 6b 20 6f 72 |he last |break or|
|000008a0| 20 73 74 65 70 20 28 69 | 66 0a 77 65 27 72 65 20 | step (i|f.we're |
|000008b0| 69 6e 20 74 68 65 20 47 | 55 44 20 62 75 66 66 65 |in the G|UD buffe|
|000008c0| 72 29 2e 22 5d 29 29 0a | 28 62 79 74 65 2d 63 6f |r)."])).|(byte-co|
|000008d0| 64 65 20 22 c0 c1 21 84 | 08 00 c2 11 c0 c3 21 84 |de "..!.|......!.|
|000008e0| 10 00 c2 13 c4 c5 c6 5c | 22 88 c4 c7 c8 5c 22 88 |.......\|"....\".|
|000008f0| c4 c9 ca 5c 22 87 22 20 | 5b 62 6f 75 6e 64 70 20 |...\"." |[boundp |
|00000900| 67 75 64 2d 6c 61 73 74 | 2d 66 72 61 6d 65 20 6e |gud-last|-frame n|
|00000910| 69 6c 20 67 75 64 2d 67 | 64 62 2d 68 69 73 74 6f |il gud-g|db-histo|
|00000920| 72 79 20 64 65 66 61 6c | 69 61 73 20 67 75 64 2d |ry defal|ias gud-|
|00000930| 67 64 62 2d 64 65 62 75 | 67 67 65 72 2d 73 74 61 |gdb-debu|gger-sta|
|00000940| 72 74 75 70 20 23 5b 28 | 66 69 6c 65 20 61 72 67 |rtup #[(|file arg|
|00000950| 73 29 20 22 c0 c1 c2 0b | 50 c4 c5 c6 0e 07 26 06 |s) "....|P.....&.|
|00000960| 87 22 20 5b 61 70 70 6c | 79 20 6d 61 6b 65 2d 63 |." [appl|y make-c|
|00000970| 6f 6d 69 6e 74 20 22 67 | 75 64 2d 22 20 66 69 6c |omint "g|ud-" fil|
|00000980| 65 20 22 67 64 62 22 20 | 6e 69 6c 20 22 2d 66 75 |e "gdb" |nil "-fu|
|00000990| 6c 6c 6e 61 6d 65 22 20 | 61 72 67 73 5d 20 37 5d |llname" |args] 7]|
|000009a0| 20 67 75 64 2d 67 64 62 | 2d 6d 61 72 6b 65 72 2d | gud-gdb|-marker-|
|000009b0| 66 69 6c 74 65 72 20 23 | 5b 28 73 74 72 69 6e 67 |filter #|[(string|
|000009c0| 29 20 22 c0 c1 5c 6e 5c | 22 83 24 00 5c 6e c3 94 |) "..\n\|".$.\n..|
|000009d0| c3 95 4f c4 5c 6e c5 94 | c5 95 4f 21 42 16 06 5c |..O.\n..|..O!B..\|
|000009e0| 6e c7 89 94 4f 5c 6e c7 | 95 c8 4f 50 87 5c 6e 87 |n...O\n.|..OP.\n.|
|000009f0| 22 20 5b 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |" [strin|g-match |
|00000a00| 22 1a 1a 5c 5c 28 5b 5e | 3a 5c 6e 5d 2a 5c 5c 29 |"..\\([^|:\n]*\\)|
|00000a10| 3a 5c 5c 28 5b 30 2d 39 | 5d 2a 5c 5c 29 3a 2e 2a |:\\([0-9|]*\\):.*|
|00000a20| 5c 6e 22 20 73 74 72 69 | 6e 67 20 31 20 73 74 72 |\n" stri|ng 1 str|
|00000a30| 69 6e 67 2d 74 6f 2d 69 | 6e 74 20 32 20 67 75 64 |ing-to-i|nt 2 gud|
|00000a40| 2d 6c 61 73 74 2d 66 72 | 61 6d 65 20 30 20 6e 69 |-last-fr|ame 0 ni|
|00000a50| 6c 5d 20 35 5d 20 67 75 | 64 2d 67 64 62 2d 66 69 |l] 5] gu|d-gdb-fi|
|00000a60| 6e 64 2d 66 69 6c 65 20 | 23 5b 28 66 29 20 22 c0 |nd-file |#[(f) ".|
|00000a70| 09 21 87 22 20 5b 66 69 | 6e 64 2d 66 69 6c 65 2d |.!." [fi|nd-file-|
|00000a80| 6e 6f 73 65 6c 65 63 74 | 20 66 5d 20 32 5d 5d 20 |noselect| f] 2]] |
|00000a90| 33 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 67 64 |3).(defa|lias 'gd|
|00000aa0| 62 20 23 5b 28 61 72 67 | 73 29 20 22 c0 c1 21 88 |b #[(arg|s) "..!.|
|00000ab0| c2 0b 21 88 c4 c5 4d 88 | c6 c7 20 c8 c4 23 88 c9 |..!...M.|.. ..#..|
|00000ac0| 0e 5c 6e cb 50 c4 5c 22 | 88 cc cd 4d 88 c6 c7 20 |.\n.P.\"|...M... |
|00000ad0| ce cc 23 88 c9 0e 5c 6e | cf 50 cc 5c 22 88 d0 d1 |..#...\n|.P.\"...|
|00000ae0| 4d 88 c6 c7 20 d2 d0 23 | 88 c9 0e 5c 6e d3 50 d0 |M... ..#|...\n.P.|
|00000af0| 5c 22 88 d4 d5 4d 88 c6 | c7 20 d6 d4 23 88 c9 0e |\"...M..|. ..#...|
|00000b00| 5c 6e d7 50 d4 5c 22 88 | d8 d9 4d 88 c6 c7 20 da |\n.P.\".|..M... .|
|00000b10| d8 23 88 c9 0e 5c 6e db | 50 d8 5c 22 88 dc dd 4d |.#...\n.|P.\"...M|
|00000b20| 88 c6 c7 20 de dc 23 88 | c9 0e 5c 6e df 50 dc 5c |... ..#.|..\n.P.\|
|00000b30| 22 88 e0 e1 4d 88 c6 c7 | 20 e2 e0 23 88 c9 0e 5c |"...M...| ..#...\|
|00000b40| 6e e3 50 e0 5c 22 88 e4 | e5 4d 88 c6 c7 20 e6 e4 |n.P.\"..|.M... ..|
|00000b50| 23 88 c9 0e 5c 6e e7 50 | e4 5c 22 88 e8 e9 4d 88 |#...\n.P|.\"...M.|
|00000b60| c6 c7 20 ea e8 23 88 c9 | 0e 5c 6e eb 50 e8 5c 22 |.. ..#..|.\n.P.\"|
|00000b70| 88 ec ed 4d 88 c6 c7 20 | ee ec 23 88 c9 0e 5c 6e |...M... |..#...\n|
|00000b80| ef 50 ec 5c 22 88 f0 f1 | 4d 88 c6 c7 20 f2 f0 23 |.P.\"...|M... ..#|
|00000b90| 88 c9 0e 5c 6e f3 50 f0 | 5c 22 88 f4 16 35 f6 f7 |...\n.P.|\"...5..|
|00000ba0| 21 87 22 20 5b 67 75 64 | 2d 6f 76 65 72 6c 6f 61 |!." [gud|-overloa|
|00000bb0| 64 2d 66 75 6e 63 74 69 | 6f 6e 73 20 28 28 67 75 |d-functi|ons ((gu|
|00000bc0| 64 2d 64 65 62 75 67 67 | 65 72 2d 73 74 61 72 74 |d-debugg|er-start|
|00000bd0| 75 70 20 2e 20 67 75 64 | 2d 67 64 62 2d 64 65 62 |up . gud|-gdb-deb|
|00000be0| 75 67 67 65 72 2d 73 74 | 61 72 74 75 70 29 20 28 |ugger-st|artup) (|
|00000bf0| 67 75 64 2d 6d 61 72 6b | 65 72 2d 66 69 6c 74 65 |gud-mark|er-filte|
|00000c00| 72 20 2e 20 67 75 64 2d | 67 64 62 2d 6d 61 72 6b |r . gud-|gdb-mark|
|00000c10| 65 72 2d 66 69 6c 74 65 | 72 29 20 28 67 75 64 2d |er-filte|r) (gud-|
|00000c20| 66 69 6e 64 2d 66 69 6c | 65 20 2e 20 67 75 64 2d |find-fil|e . gud-|
|00000c30| 67 64 62 2d 66 69 6e 64 | 2d 66 69 6c 65 29 29 20 |gdb-find|-file)) |
|00000c40| 67 75 64 2d 63 6f 6d 6d | 6f 6e 2d 69 6e 69 74 20 |gud-comm|on-init |
|00000c50| 61 72 67 73 20 67 75 64 | 2d 62 72 65 61 6b 20 23 |args gud|-break #|
|00000c60| 5b 28 61 72 67 29 20 22 | c0 c1 5c 6e 5c 22 87 22 |[(arg) "|..\n\"."|
|00000c70| 20 5b 67 75 64 2d 63 61 | 6c 6c 20 22 62 72 65 61 | [gud-ca|ll "brea|
|00000c80| 6b 20 25 66 3a 25 6c 22 | 20 61 72 67 5d 20 33 20 |k %f:%l"| arg] 3 |
|00000c90| 22 53 65 74 20 62 72 65 | 61 6b 70 6f 69 6e 74 20 |"Set bre|akpoint |
|00000ca0| 61 74 20 63 75 72 72 65 | 6e 74 20 6c 69 6e 65 2e |at curre|nt line.|
|00000cb0| 22 20 22 70 22 5d 20 64 | 65 66 69 6e 65 2d 6b 65 |" "p"] d|efine-ke|
|00000cc0| 79 20 63 75 72 72 65 6e | 74 2d 6c 6f 63 61 6c 2d |y curren|t-local-|
|00000cd0| 6d 61 70 20 22 03 02 22 | 20 67 6c 6f 62 61 6c 2d |map ".."| global-|
|00000ce0| 73 65 74 2d 6b 65 79 20 | 67 75 64 2d 6b 65 79 2d |set-key |gud-key-|
|00000cf0| 70 72 65 66 69 78 20 22 | 02 22 20 67 75 64 2d 74 |prefix "|." gud-t|
|00000d00| 62 72 65 61 6b 20 23 5b | 28 61 72 67 29 20 22 c0 |break #[|(arg) ".|
|00000d10| c1 5c 6e 5c 22 87 22 20 | 5b 67 75 64 2d 63 61 6c |.\n\"." |[gud-cal|
|00000d20| 6c 20 22 74 62 72 65 61 | 6b 20 25 66 3a 25 6c 22 |l "tbrea|k %f:%l"|
|00000d30| 20 61 72 67 5d 20 33 20 | 22 53 65 74 20 62 72 65 | arg] 3 |"Set bre|
|00000d40| 61 6b 70 6f 69 6e 74 20 | 61 74 20 63 75 72 72 65 |akpoint |at curre|
|00000d50| 6e 74 20 6c 69 6e 65 2e | 22 20 22 70 22 5d 20 22 |nt line.|" "p"] "|
|00000d60| 03 14 22 20 22 14 22 20 | 67 75 64 2d 72 65 6d 6f |.." "." |gud-remo|
|00000d70| 76 65 20 23 5b 28 61 72 | 67 29 20 22 c0 c1 5c 6e |ve #[(ar|g) "..\n|
|00000d80| 5c 22 87 22 20 5b 67 75 | 64 2d 63 61 6c 6c 20 22 |\"." [gu|d-call "|
|00000d90| 63 6c 65 61 72 20 25 6c | 22 20 61 72 67 5d 20 33 |clear %l|" arg] 3|
|00000da0| 20 22 52 65 6d 6f 76 65 | 20 62 72 65 61 6b 70 6f | "Remove| breakpo|
|00000db0| 69 6e 74 20 61 74 20 63 | 75 72 72 65 6e 74 20 6c |int at c|urrent l|
|00000dc0| 69 6e 65 22 20 22 70 22 | 5d 20 22 03 04 22 20 22 |ine" "p"|] ".." "|
|00000dd0| 04 22 20 67 75 64 2d 73 | 74 65 70 20 23 5b 28 61 |." gud-s|tep #[(a|
|00000de0| 72 67 29 20 22 c0 c1 5c | 6e 5c 22 87 22 20 5b 67 |rg) "..\|n\"." [g|
|00000df0| 75 64 2d 63 61 6c 6c 20 | 22 73 74 65 70 20 25 70 |ud-call |"step %p|
|00000e00| 22 20 61 72 67 5d 20 33 | 20 22 53 74 65 70 20 6f |" arg] 3| "Step o|
|00000e10| 6e 65 20 73 6f 75 72 63 | 65 20 6c 69 6e 65 20 77 |ne sourc|e line w|
|00000e20| 69 74 68 20 64 69 73 70 | 6c 61 79 2e 22 20 22 70 |ith disp|lay." "p|
|00000e30| 22 5d 20 22 03 13 22 20 | 22 13 22 20 67 75 64 2d |"] ".." |"." gud-|
|00000e40| 73 74 65 70 69 20 23 5b | 28 61 72 67 29 20 22 c0 |stepi #[|(arg) ".|
|00000e50| c1 5c 6e 5c 22 87 22 20 | 5b 67 75 64 2d 63 61 6c |.\n\"." |[gud-cal|
|00000e60| 6c 20 22 73 74 65 70 69 | 20 25 70 22 20 61 72 67 |l "stepi| %p" arg|
|00000e70| 5d 20 33 20 22 53 74 65 | 70 20 6f 6e 65 20 69 6e |] 3 "Ste|p one in|
|00000e80| 73 74 72 75 63 74 69 6f | 6e 20 77 69 74 68 20 64 |structio|n with d|
|00000e90| 69 73 70 6c 61 79 2e 22 | 20 22 70 22 5d 20 22 03 |isplay."| "p"] ".|
|00000ea0| 09 22 20 22 09 22 20 67 | 75 64 2d 6e 65 78 74 20 |." "." g|ud-next |
|00000eb0| 23 5b 28 61 72 67 29 20 | 22 c0 c1 5c 6e 5c 22 87 |#[(arg) |"..\n\".|
|00000ec0| 22 20 5b 67 75 64 2d 63 | 61 6c 6c 20 22 6e 65 78 |" [gud-c|all "nex|
|00000ed0| 74 20 25 70 22 20 61 72 | 67 5d 20 33 20 22 53 74 |t %p" ar|g] 3 "St|
|00000ee0| 65 70 20 6f 6e 65 20 6c | 69 6e 65 20 28 73 6b 69 |ep one l|ine (ski|
|00000ef0| 70 20 66 75 6e 63 74 69 | 6f 6e 73 29 2e 22 20 22 |p functi|ons)." "|
|00000f00| 70 22 5d 20 22 03 0e 22 | 20 22 0e 22 20 67 75 64 |p"] ".."| "." gud|
|00000f10| 2d 63 6f 6e 74 20 23 5b | 28 61 72 67 29 20 22 c0 |-cont #[|(arg) ".|
|00000f20| c1 5c 6e 5c 22 87 22 20 | 5b 67 75 64 2d 63 61 6c |.\n\"." |[gud-cal|
|00000f30| 6c 20 22 63 6f 6e 74 22 | 20 61 72 67 5d 20 33 20 |l "cont"| arg] 3 |
|00000f40| 22 43 6f 6e 74 69 6e 75 | 65 20 77 69 74 68 20 64 |"Continu|e with d|
|00000f50| 69 73 70 6c 61 79 2e 22 | 20 22 70 22 5d 20 22 03 |isplay."| "p"] ".|
|00000f60| 12 22 20 22 12 22 20 67 | 75 64 2d 66 69 6e 69 73 |." "." g|ud-finis|
|00000f70| 68 20 23 5b 28 61 72 67 | 29 20 22 c0 c1 5c 6e 5c |h #[(arg|) "..\n\|
|00000f80| 22 87 22 20 5b 67 75 64 | 2d 63 61 6c 6c 20 22 66 |"." [gud|-call "f|
|00000f90| 69 6e 69 73 68 22 20 61 | 72 67 5d 20 33 20 22 46 |inish" a|rg] 3 "F|
|00000fa0| 69 6e 69 73 68 20 65 78 | 65 63 75 74 69 6e 67 20 |inish ex|ecuting |
|00000fb0| 63 75 72 72 65 6e 74 20 | 66 75 6e 63 74 69 6f 6e |current |function|
|00000fc0| 2e 22 20 22 70 22 5d 20 | 22 03 06 22 20 22 06 22 |." "p"] |".." "."|
|00000fd0| 20 67 75 64 2d 75 70 20 | 23 5b 28 61 72 67 29 20 | gud-up |#[(arg) |
|00000fe0| 22 c0 c1 5c 6e 5c 22 87 | 22 20 5b 67 75 64 2d 63 |"..\n\".|" [gud-c|
|00000ff0| 61 6c 6c 20 22 75 70 20 | 25 70 22 20 61 72 67 5d |all "up |%p" arg]|
|00001000| 20 33 20 22 55 70 20 4e | 20 73 74 61 63 6b 20 66 | 3 "Up N| stack f|
|00001010| 72 61 6d 65 73 20 28 6e | 75 6d 65 72 69 63 20 61 |rames (n|umeric a|
|00001020| 72 67 29 2e 22 20 22 70 | 22 5d 20 22 03 3c 22 20 |rg)." "p|"] ".<" |
|00001030| 22 3c 22 20 67 75 64 2d | 64 6f 77 6e 20 23 5b 28 |"<" gud-|down #[(|
|00001040| 61 72 67 29 20 22 c0 c1 | 5c 6e 5c 22 87 22 20 5b |arg) "..|\n\"." [|
|00001050| 67 75 64 2d 63 61 6c 6c | 20 22 64 6f 77 6e 20 25 |gud-call| "down %|
|00001060| 70 22 20 61 72 67 5d 20 | 33 20 22 44 6f 77 6e 20 |p" arg] |3 "Down |
|00001070| 4e 20 73 74 61 63 6b 20 | 66 72 61 6d 65 73 20 28 |N stack |frames (|
|00001080| 6e 75 6d 65 72 69 63 20 | 61 72 67 29 2e 22 20 22 |numeric |arg)." "|
|00001090| 70 22 5d 20 22 03 3e 22 | 20 22 3e 22 20 67 75 64 |p"] ".>"| ">" gud|
|000010a0| 2d 70 72 69 6e 74 20 23 | 5b 28 61 72 67 29 20 22 |-print #|[(arg) "|
|000010b0| c0 c1 5c 6e 5c 22 87 22 | 20 5b 67 75 64 2d 63 61 |..\n\"."| [gud-ca|
|000010c0| 6c 6c 20 22 70 72 69 6e | 74 20 25 65 22 20 61 72 |ll "prin|t %e" ar|
|000010d0| 67 5d 20 33 20 22 45 76 | 61 6c 75 61 74 65 20 43 |g] 3 "Ev|aluate C|
|000010e0| 20 65 78 70 72 65 73 73 | 69 6f 6e 20 61 74 20 70 | express|ion at p|
|000010f0| 6f 69 6e 74 2e 22 20 22 | 70 22 5d 20 22 03 10 22 |oint." "|p"] ".."|
|00001100| 20 22 10 22 20 22 5e 28 | 2e 2a 67 64 62 5b 2b 5d | "." "^(|.*gdb[+]|
|00001110| 3f 29 20 2a 22 20 63 6f | 6d 69 6e 74 2d 70 72 6f |?) *" co|mint-pro|
|00001120| 6d 70 74 2d 72 65 67 65 | 78 70 20 72 75 6e 2d 68 |mpt-rege|xp run-h|
|00001130| 6f 6f 6b 73 20 67 64 62 | 2d 6d 6f 64 65 2d 68 6f |ooks gdb|-mode-ho|
|00001140| 6f 6b 5d 20 34 20 22 5c | 0a 52 75 6e 20 67 64 62 |ok] 4 "\|.Run gdb|
|00001150| 20 6f 6e 20 70 72 6f 67 | 72 61 6d 20 46 49 4c 45 | on prog|ram FILE|
|00001160| 20 69 6e 20 62 75 66 66 | 65 72 20 2a 67 75 64 2d | in buff|er *gud-|
|00001170| 46 49 4c 45 2a 2e 0a 54 | 68 65 20 64 69 72 65 63 |FILE*..T|he direc|
|00001180| 74 6f 72 79 20 63 6f 6e | 74 61 69 6e 69 6e 67 20 |tory con|taining |
|00001190| 46 49 4c 45 20 62 65 63 | 6f 6d 65 73 20 74 68 65 |FILE bec|omes the|
|000011a0| 20 69 6e 69 74 69 61 6c | 20 77 6f 72 6b 69 6e 67 | initial| working|
|000011b0| 20 64 69 72 65 63 74 6f | 72 79 0a 61 6e 64 20 73 | directo|ry.and s|
|000011c0| 6f 75 72 63 65 2d 66 69 | 6c 65 20 64 69 72 65 63 |ource-fi|le direc|
|000011d0| 74 6f 72 79 20 66 6f 72 | 20 79 6f 75 72 20 64 65 |tory for| your de|
|000011e0| 62 75 67 67 65 72 2e 22 | 20 28 6c 69 73 74 20 28 |bugger."| (list (|
|000011f0| 72 65 61 64 2d 66 72 6f | 6d 2d 6d 69 6e 69 62 75 |read-fro|m-minibu|
|00001200| 66 66 65 72 20 22 52 75 | 6e 20 67 64 62 20 28 6c |ffer "Ru|n gdb (l|
|00001210| 69 6b 65 20 74 68 69 73 | 29 3a 20 67 64 62 20 22 |ike this|): gdb "|
|00001220| 20 28 69 66 20 28 63 6f | 6e 73 70 20 67 75 64 2d | (if (co|nsp gud-|
|00001230| 67 64 62 2d 68 69 73 74 | 6f 72 79 29 20 28 63 61 |gdb-hist|ory) (ca|
|00001240| 72 20 67 75 64 2d 67 64 | 62 2d 68 69 73 74 6f 72 |r gud-gd|b-histor|
|00001250| 79 29 20 22 22 29 20 6e | 69 6c 20 6e 69 6c 20 28 |y) "") n|il nil (|
|00001260| 71 75 6f 74 65 20 28 67 | 75 64 2d 67 64 62 2d 68 |quote (g|ud-gdb-h|
|00001270| 69 73 74 6f 72 79 20 2e | 20 31 29 29 29 29 5d 29 |istory .| 1))))])|
|00001280| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 21 |.(byte-c|ode "..!|
|00001290| 84 08 00 c2 11 c2 87 22 | 20 5b 62 6f 75 6e 64 70 |......."| [boundp|
|000012a0| 20 67 75 64 2d 73 64 62 | 2d 68 69 73 74 6f 72 79 | gud-sdb|-history|
|000012b0| 20 6e 69 6c 5d 20 32 29 | 0a 28 64 65 66 76 61 72 | nil] 2)|.(defvar|
|000012c0| 20 67 75 64 2d 73 64 62 | 2d 6e 65 65 64 73 2d 74 | gud-sdb|-needs-t|
|000012d0| 61 67 73 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ags (byt|e-code "|
|000012e0| c0 c1 21 3f 87 22 20 5b | 66 69 6c 65 2d 65 78 69 |..!?." [|file-exi|
|000012f0| 73 74 73 2d 70 20 22 2f | 76 61 72 22 5d 20 32 29 |sts-p "/|var"] 2)|
|00001300| 20 22 5c 0a 49 66 20 6e | 69 6c 2c 20 77 65 27 72 | "\.If n|il, we'r|
|00001310| 65 20 6f 6e 20 61 20 53 | 79 73 74 65 6d 20 56 20 |e on a S|ystem V |
|00001320| 52 65 6c 65 61 73 65 20 | 34 20 61 6e 64 20 64 6f |Release |4 and do|
|00001330| 6e 27 74 20 6e 65 65 64 | 20 74 68 65 20 74 61 67 |n't need| the tag|
|00001340| 73 20 68 61 63 6b 2e 22 | 29 0a 28 62 79 74 65 2d |s hack."|).(byte-|
|00001350| 63 6f 64 65 20 22 c0 c1 | 21 84 08 00 c2 11 c3 c4 |code "..|!.......|
|00001360| c5 5c 22 88 c3 c6 c7 5c | 22 88 c3 c8 c9 5c 22 87 |.\"....\|"....\".|
|00001370| 22 20 5b 62 6f 75 6e 64 | 70 20 67 75 64 2d 73 64 |" [bound|p gud-sd|
|00001380| 62 2d 6c 61 73 74 66 69 | 6c 65 20 6e 69 6c 20 64 |b-lastfi|le nil d|
|00001390| 65 66 61 6c 69 61 73 20 | 67 75 64 2d 73 64 62 2d |efalias |gud-sdb-|
|000013a0| 64 65 62 75 67 67 65 72 | 2d 73 74 61 72 74 75 70 |debugger|-startup|
|000013b0| 20 23 5b 28 66 69 6c 65 | 20 61 72 67 73 29 20 22 | #[(file| args) "|
|000013c0| c0 c1 c2 0b 50 c4 c5 0e | 06 25 87 22 20 5b 61 70 |....P...|.%." [ap|
|000013d0| 70 6c 79 20 6d 61 6b 65 | 2d 63 6f 6d 69 6e 74 20 |ply make|-comint |
|000013e0| 22 67 75 64 2d 22 20 66 | 69 6c 65 20 22 73 64 62 |"gud-" f|ile "sdb|
|000013f0| 22 20 6e 69 6c 20 61 72 | 67 73 5d 20 36 5d 20 67 |" nil ar|gs] 6] g|
|00001400| 75 64 2d 73 64 62 2d 6d | 61 72 6b 65 72 2d 66 69 |ud-sdb-m|arker-fi|
|00001410| 6c 74 65 72 20 23 5b 28 | 73 74 72 69 6e 67 29 20 |lter #[(|string) |
|00001420| 22 c0 c1 5c 6e 5c 22 83 | 1b 00 5c 6e c3 94 c3 95 |"..\n\".|..\n....|
|00001430| 4f c4 5c 6e c5 94 c5 95 | 4f 21 42 16 06 82 4c 00 |O.\n....|O!B...L.|
|00001440| c0 c7 5c 6e 5c 22 83 2d | 00 5c 6e c3 94 c3 95 4f |..\n\".-|.\n....O|
|00001450| 16 08 82 4c 00 0e 08 83 | 49 00 c0 c9 5c 6e 5c 22 |...L....|I...\n\"|
|00001460| 83 49 00 0e 08 c4 5c 6e | ca 94 ca 95 4f 21 42 16 |.I....\n|....O!B.|
|00001470| 06 82 4c 00 cb 16 08 5c | 6e 87 22 20 5b 73 74 72 |..L....\|n." [str|
|00001480| 69 6e 67 2d 6d 61 74 63 | 68 20 22 5c 5c 28 5e 30 |ing-matc|h "\\(^0|
|00001490| 78 5c 5c 77 2a 20 69 6e | 20 5c 5c 7c 5e 5c 5c 7c |x\\w* in| \\|^\\||
|000014a0| 5c 6e 5c 5c 29 5c 5c 28 | 5b 5e 3a 5c 6e 5d 2a 5c |\n\\)\\(|[^:\n]*\|
|000014b0| 5c 29 3a 5c 5c 28 5b 30 | 2d 39 5d 2a 5c 5c 29 3a |\):\\([0|-9]*\\):|
|000014c0| 2e 2a 5c 6e 22 20 73 74 | 72 69 6e 67 20 32 20 73 |.*\n" st|ring 2 s|
|000014d0| 74 72 69 6e 67 2d 74 6f | 2d 69 6e 74 20 33 20 67 |tring-to|-int 3 g|
|000014e0| 75 64 2d 6c 61 73 74 2d | 66 72 61 6d 65 20 22 5e |ud-last-|frame "^|
|000014f0| 5c 5c 28 42 52 45 41 4b | 50 4f 49 4e 54 5c 5c 7c |\\(BREAK|POINT\\||
|00001500| 53 54 45 50 50 45 44 5c | 5c 29 20 70 72 6f 63 65 |STEPPED\|\) proce|
|00001510| 73 73 20 5b 30 2d 39 5d | 2b 20 66 75 6e 63 74 69 |ss [0-9]|+ functi|
|00001520| 6f 6e 20 5b 5e 20 5d 2b | 20 69 6e 20 5c 5c 28 2e |on [^ ]+| in \\(.|
|00001530| 2b 5c 5c 29 5c 6e 22 20 | 67 75 64 2d 73 64 62 2d |+\\)\n" |gud-sdb-|
|00001540| 6c 61 73 74 66 69 6c 65 | 20 22 5e 5c 5c 28 5b 30 |lastfile| "^\\([0|
|00001550| 2d 39 5d 2b 5c 5c 29 3a | 22 20 31 20 6e 69 6c 5d |-9]+\\):|" 1 nil]|
|00001560| 20 35 5d 20 67 75 64 2d | 73 64 62 2d 66 69 6e 64 | 5] gud-|sdb-find|
|00001570| 2d 66 69 6c 65 20 23 5b | 28 66 29 20 22 08 83 08 |-file #[|(f) "...|
|00001580| 00 c1 5c 6e 21 87 c3 5c | 6e 21 87 22 20 5b 67 75 |..\n!..\|n!." [gu|
|00001590| 64 2d 73 64 62 2d 6e 65 | 65 64 73 2d 74 61 67 73 |d-sdb-ne|eds-tags|
|000015a0| 20 66 69 6e 64 2d 74 61 | 67 2d 6e 6f 73 65 6c 65 | find-ta|g-nosele|
|000015b0| 63 74 20 66 20 66 69 6e | 64 2d 66 69 6c 65 2d 6e |ct f fin|d-file-n|
|000015c0| 6f 73 65 6c 65 63 74 5d | 20 32 5d 5d 20 33 29 0a |oselect]| 2]] 3).|
|000015d0| 28 64 65 66 61 6c 69 61 | 73 20 27 73 64 62 20 23 |(defalia|s 'sdb #|
|000015e0| 5b 28 61 72 67 73 29 20 | 22 08 83 14 00 c1 c2 21 |[(args) |"......!|
|000015f0| 83 10 00 c3 5c 6e 21 84 | 14 00 c4 c5 21 88 c6 c7 |....\n!.|....!...|
|00001600| 21 88 c8 0e 09 21 88 ca | cb 4d 88 cc cd 20 ce ca |!....!..|.M... ..|
|00001610| 23 88 cf 0e 10 d1 50 ca | 5c 22 88 d2 d3 4d 88 cc |#.....P.|\"...M..|
|00001620| cd 20 d4 d2 23 88 cf 0e | 10 d5 50 d2 5c 22 88 d6 |. ..#...|..P.\"..|
|00001630| d7 4d 88 cc cd 20 d8 d6 | 23 88 cf 0e 10 d9 50 d6 |.M... ..|#.....P.|
|00001640| 5c 22 88 da db 4d 88 cc | cd 20 dc da 23 88 cf 0e |\"...M..|. ..#...|
|00001650| 10 dd 50 da 5c 22 88 de | df 4d 88 cc cd 20 e0 de |..P.\"..|.M... ..|
|00001660| 23 88 cf 0e 10 e1 50 de | 5c 22 88 e2 e3 4d 88 cc |#.....P.|\"...M..|
|00001670| cd 20 e4 e2 23 88 cf 0e | 10 e5 50 e2 5c 22 88 e6 |. ..#...|..P.\"..|
|00001680| e7 4d 88 cc cd 20 e8 e6 | 23 88 cf 0e 10 e9 50 e6 |.M... ..|#.....P.|
|00001690| 5c 22 88 ea eb 4d 88 cc | cd 20 ec ea 23 88 cf 0e |\"...M..|. ..#...|
|000016a0| 10 ed 50 ea 5c 22 88 ee | 16 2f f0 f1 21 87 22 20 |..P.\"..|./..!." |
|000016b0| 5b 67 75 64 2d 73 64 62 | 2d 6e 65 65 64 73 2d 74 |[gud-sdb|-needs-t|
|000016c0| 61 67 73 20 62 6f 75 6e | 64 70 20 74 61 67 73 2d |ags boun|dp tags-|
|000016d0| 66 69 6c 65 2d 6e 61 6d | 65 20 66 69 6c 65 2d 65 |file-nam|e file-e|
|000016e0| 78 69 73 74 73 2d 70 20 | 65 72 72 6f 72 20 22 54 |xists-p |error "T|
|000016f0| 68 65 20 73 64 62 20 73 | 75 70 70 6f 72 74 20 72 |he sdb s|upport r|
|00001700| 65 71 75 69 72 65 73 20 | 61 20 76 61 6c 69 64 20 |equires |a valid |
|00001710| 74 61 67 73 20 74 61 62 | 6c 65 20 74 6f 20 77 6f |tags tab|le to wo|
|00001720| 72 6b 2e 22 20 67 75 64 | 2d 6f 76 65 72 6c 6f 61 |rk." gud|-overloa|
|00001730| 64 2d 66 75 6e 63 74 69 | 6f 6e 73 20 28 28 67 75 |d-functi|ons ((gu|
|00001740| 64 2d 64 65 62 75 67 67 | 65 72 2d 73 74 61 72 74 |d-debugg|er-start|
|00001750| 75 70 20 2e 20 67 75 64 | 2d 73 64 62 2d 64 65 62 |up . gud|-sdb-deb|
|00001760| 75 67 67 65 72 2d 73 74 | 61 72 74 75 70 29 20 28 |ugger-st|artup) (|
|00001770| 67 75 64 2d 6d 61 72 6b | 65 72 2d 66 69 6c 74 65 |gud-mark|er-filte|
|00001780| 72 20 2e 20 67 75 64 2d | 73 64 62 2d 6d 61 72 6b |r . gud-|sdb-mark|
|00001790| 65 72 2d 66 69 6c 74 65 | 72 29 20 28 67 75 64 2d |er-filte|r) (gud-|
|000017a0| 66 69 6e 64 2d 66 69 6c | 65 20 2e 20 67 75 64 2d |find-fil|e . gud-|
|000017b0| 73 64 62 2d 66 69 6e 64 | 2d 66 69 6c 65 29 29 20 |sdb-find|-file)) |
|000017c0| 67 75 64 2d 63 6f 6d 6d | 6f 6e 2d 69 6e 69 74 20 |gud-comm|on-init |
|000017d0| 61 72 67 73 20 67 75 64 | 2d 62 72 65 61 6b 20 23 |args gud|-break #|
|000017e0| 5b 28 61 72 67 29 20 22 | c0 c1 5c 6e 5c 22 87 22 |[(arg) "|..\n\"."|
|000017f0| 20 5b 67 75 64 2d 63 61 | 6c 6c 20 22 25 6c 20 62 | [gud-ca|ll "%l b|
|00001800| 22 20 61 72 67 5d 20 33 | 20 22 53 65 74 20 62 72 |" arg] 3| "Set br|
|00001810| 65 61 6b 70 6f 69 6e 74 | 20 61 74 20 63 75 72 72 |eakpoint| at curr|
|00001820| 65 6e 74 20 6c 69 6e 65 | 2e 22 20 22 70 22 5d 20 |ent line|." "p"] |
|00001830| 64 65 66 69 6e 65 2d 6b | 65 79 20 63 75 72 72 65 |define-k|ey curre|
|00001840| 6e 74 2d 6c 6f 63 61 6c | 2d 6d 61 70 20 22 03 02 |nt-local|-map "..|
|00001850| 22 20 67 6c 6f 62 61 6c | 2d 73 65 74 2d 6b 65 79 |" global|-set-key|
|00001860| 20 67 75 64 2d 6b 65 79 | 2d 70 72 65 66 69 78 20 | gud-key|-prefix |
|00001870| 22 02 22 20 67 75 64 2d | 74 62 72 65 61 6b 20 23 |"." gud-|tbreak #|
|00001880| 5b 28 61 72 67 29 20 22 | c0 c1 5c 6e 5c 22 87 22 |[(arg) "|..\n\"."|
|00001890| 20 5b 67 75 64 2d 63 61 | 6c 6c 20 22 25 6c 20 63 | [gud-ca|ll "%l c|
|000018a0| 22 20 61 72 67 5d 20 33 | 20 22 53 65 74 20 74 65 |" arg] 3| "Set te|
|000018b0| 6d 70 6f 72 61 72 79 20 | 62 72 65 61 6b 70 6f 69 |mporary |breakpoi|
|000018c0| 6e 74 20 61 74 20 63 75 | 72 72 65 6e 74 20 6c 69 |nt at cu|rrent li|
|000018d0| 6e 65 2e 22 20 22 70 22 | 5d 20 22 03 14 22 20 22 |ne." "p"|] ".." "|
|000018e0| 14 22 20 67 75 64 2d 72 | 65 6d 6f 76 65 20 23 5b |." gud-r|emove #[|
|000018f0| 28 61 72 67 29 20 22 c0 | c1 5c 6e 5c 22 87 22 20 |(arg) ".|.\n\"." |
|00001900| 5b 67 75 64 2d 63 61 6c | 6c 20 22 25 6c 20 64 22 |[gud-cal|l "%l d"|
|00001910| 20 61 72 67 5d 20 33 20 | 22 52 65 6d 6f 76 65 20 | arg] 3 |"Remove |
|00001920| 62 72 65 61 6b 70 6f 69 | 6e 74 20 61 74 20 63 75 |breakpoi|nt at cu|
|00001930| 72 72 65 6e 74 20 6c 69 | 6e 65 22 20 22 70 22 5d |rrent li|ne" "p"]|
|00001940| 20 22 03 04 22 20 22 04 | 22 20 67 75 64 2d 73 74 | ".." ".|" gud-st|
|00001950| 65 70 20 23 5b 28 61 72 | 67 29 20 22 c0 c1 5c 6e |ep #[(ar|g) "..\n|
|00001960| 5c 22 87 22 20 5b 67 75 | 64 2d 63 61 6c 6c 20 22 |\"." [gu|d-call "|
|00001970| 73 20 25 70 22 20 61 72 | 67 5d 20 33 20 22 53 74 |s %p" ar|g] 3 "St|
|00001980| 65 70 20 6f 6e 65 20 73 | 6f 75 72 63 65 20 6c 69 |ep one s|ource li|
|00001990| 6e 65 20 77 69 74 68 20 | 64 69 73 70 6c 61 79 2e |ne with |display.|
|000019a0| 22 20 22 70 22 5d 20 22 | 03 13 22 20 22 13 22 20 |" "p"] "|.." "." |
|000019b0| 67 75 64 2d 73 74 65 70 | 69 20 23 5b 28 61 72 67 |gud-step|i #[(arg|
|000019c0| 29 20 22 c0 c1 5c 6e 5c | 22 87 22 20 5b 67 75 64 |) "..\n\|"." [gud|
|000019d0| 2d 63 61 6c 6c 20 22 69 | 20 25 70 22 20 61 72 67 |-call "i| %p" arg|
|000019e0| 5d 20 33 20 22 53 74 65 | 70 20 6f 6e 65 20 69 6e |] 3 "Ste|p one in|
|000019f0| 73 74 72 75 63 74 69 6f | 6e 20 77 69 74 68 20 64 |structio|n with d|
|00001a00| 69 73 70 6c 61 79 2e 22 | 20 22 70 22 5d 20 22 03 |isplay."| "p"] ".|
|00001a10| 09 22 20 22 09 22 20 67 | 75 64 2d 6e 65 78 74 20 |." "." g|ud-next |
|00001a20| 23 5b 28 61 72 67 29 20 | 22 c0 c1 5c 6e 5c 22 87 |#[(arg) |"..\n\".|
|00001a30| 22 20 5b 67 75 64 2d 63 | 61 6c 6c 20 22 53 20 25 |" [gud-c|all "S %|
|00001a40| 70 22 20 61 72 67 5d 20 | 33 20 22 53 74 65 70 20 |p" arg] |3 "Step |
|00001a50| 6f 6e 65 20 6c 69 6e 65 | 20 28 73 6b 69 70 20 66 |one line| (skip f|
|00001a60| 75 6e 63 74 69 6f 6e 73 | 29 2e 22 20 22 70 22 5d |unctions|)." "p"]|
|00001a70| 20 22 03 0e 22 20 22 0e | 22 20 67 75 64 2d 63 6f | ".." ".|" gud-co|
|00001a80| 6e 74 20 23 5b 28 61 72 | 67 29 20 22 c0 c1 5c 6e |nt #[(ar|g) "..\n|
|00001a90| 5c 22 87 22 20 5b 67 75 | 64 2d 63 61 6c 6c 20 22 |\"." [gu|d-call "|
|00001aa0| 63 22 20 61 72 67 5d 20 | 33 20 22 43 6f 6e 74 69 |c" arg] |3 "Conti|
|00001ab0| 6e 75 65 20 77 69 74 68 | 20 64 69 73 70 6c 61 79 |nue with| display|
|00001ac0| 2e 22 20 22 70 22 5d 20 | 22 03 12 22 20 22 12 22 |." "p"] |".." "."|
|00001ad0| 20 67 75 64 2d 70 72 69 | 6e 74 20 23 5b 28 61 72 | gud-pri|nt #[(ar|
|00001ae0| 67 29 20 22 c0 c1 5c 6e | 5c 22 87 22 20 5b 67 75 |g) "..\n|\"." [gu|
|00001af0| 64 2d 63 61 6c 6c 20 22 | 25 65 2f 22 20 61 72 67 |d-call "|%e/" arg|
|00001b00| 5d 20 33 20 22 45 76 61 | 6c 75 61 74 65 20 43 20 |] 3 "Eva|luate C |
|00001b10| 65 78 70 72 65 73 73 69 | 6f 6e 20 61 74 20 70 6f |expressi|on at po|
|00001b20| 69 6e 74 2e 22 20 22 70 | 22 5d 20 22 03 10 22 20 |int." "p|"] ".." |
|00001b30| 22 10 22 20 22 5c 5c 28 | 5e 5c 5c 7c 5c 6e 5c 5c |"." "\\(|^\\|\n\\|
|00001b40| 29 5c 5c 2a 22 20 63 6f | 6d 69 6e 74 2d 70 72 6f |)\\*" co|mint-pro|
|00001b50| 6d 70 74 2d 72 65 67 65 | 78 70 20 72 75 6e 2d 68 |mpt-rege|xp run-h|
|00001b60| 6f 6f 6b 73 20 73 64 62 | 2d 6d 6f 64 65 2d 68 6f |ooks sdb|-mode-ho|
|00001b70| 6f 6b 5d 20 34 20 22 5c | 0a 52 75 6e 20 73 64 62 |ok] 4 "\|.Run sdb|
|00001b80| 20 6f 6e 20 70 72 6f 67 | 72 61 6d 20 46 49 4c 45 | on prog|ram FILE|
|00001b90| 20 69 6e 20 62 75 66 66 | 65 72 20 2a 67 75 64 2d | in buff|er *gud-|
|00001ba0| 46 49 4c 45 2a 2e 0a 54 | 68 65 20 64 69 72 65 63 |FILE*..T|he direc|
|00001bb0| 74 6f 72 79 20 63 6f 6e | 74 61 69 6e 69 6e 67 20 |tory con|taining |
|00001bc0| 46 49 4c 45 20 62 65 63 | 6f 6d 65 73 20 74 68 65 |FILE bec|omes the|
|00001bd0| 20 69 6e 69 74 69 61 6c | 20 77 6f 72 6b 69 6e 67 | initial| working|
|00001be0| 20 64 69 72 65 63 74 6f | 72 79 0a 61 6e 64 20 73 | directo|ry.and s|
|00001bf0| 6f 75 72 63 65 2d 66 69 | 6c 65 20 64 69 72 65 63 |ource-fi|le direc|
|00001c00| 74 6f 72 79 20 66 6f 72 | 20 79 6f 75 72 20 64 65 |tory for| your de|
|00001c10| 62 75 67 67 65 72 2e 22 | 20 28 6c 69 73 74 20 28 |bugger."| (list (|
|00001c20| 72 65 61 64 2d 66 72 6f | 6d 2d 6d 69 6e 69 62 75 |read-fro|m-minibu|
|00001c30| 66 66 65 72 20 22 52 75 | 6e 20 73 64 62 20 28 6c |ffer "Ru|n sdb (l|
|00001c40| 69 6b 65 20 74 68 69 73 | 29 3a 20 73 64 62 20 22 |ike this|): sdb "|
|00001c50| 20 28 69 66 20 28 63 6f | 6e 73 70 20 67 75 64 2d | (if (co|nsp gud-|
|00001c60| 73 64 62 2d 68 69 73 74 | 6f 72 79 29 20 28 63 61 |sdb-hist|ory) (ca|
|00001c70| 72 20 67 75 64 2d 73 64 | 62 2d 68 69 73 74 6f 72 |r gud-sd|b-histor|
|00001c80| 79 29 20 22 22 29 20 6e | 69 6c 20 6e 69 6c 20 28 |y) "") n|il nil (|
|00001c90| 71 75 6f 74 65 20 28 67 | 75 64 2d 73 64 62 2d 68 |quote (g|ud-sdb-h|
|00001ca0| 69 73 74 6f 72 79 20 2e | 20 31 29 29 29 29 5d 29 |istory .| 1))))])|
|00001cb0| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 21 |.(byte-c|ode "..!|
|00001cc0| 84 08 00 c2 11 c3 c4 c5 | 5c 22 88 c3 c6 c7 5c 22 |........|\"....\"|
|00001cd0| 88 c3 c8 c9 5c 22 87 22 | 20 5b 62 6f 75 6e 64 70 |....\"."| [boundp|
|00001ce0| 20 67 75 64 2d 64 62 78 | 2d 68 69 73 74 6f 72 79 | gud-dbx|-history|
|00001cf0| 20 6e 69 6c 20 64 65 66 | 61 6c 69 61 73 20 67 75 | nil def|alias gu|
|00001d00| 64 2d 64 62 78 2d 64 65 | 62 75 67 67 65 72 2d 73 |d-dbx-de|bugger-s|
|00001d10| 74 61 72 74 75 70 20 23 | 5b 28 66 69 6c 65 20 61 |tartup #|[(file a|
|00001d20| 72 67 73 29 20 22 c0 c1 | c2 0b 50 c4 c5 0e 06 25 |rgs) "..|..P....%|
|00001d30| 87 22 20 5b 61 70 70 6c | 79 20 6d 61 6b 65 2d 63 |." [appl|y make-c|
|00001d40| 6f 6d 69 6e 74 20 22 67 | 75 64 2d 22 20 66 69 6c |omint "g|ud-" fil|
|00001d50| 65 20 22 64 62 78 22 20 | 6e 69 6c 20 61 72 67 73 |e "dbx" |nil args|
|00001d60| 5d 20 36 5d 20 67 75 64 | 2d 64 62 78 2d 6d 61 72 |] 6] gud|-dbx-mar|
|00001d70| 6b 65 72 2d 66 69 6c 74 | 65 72 20 23 5b 28 73 74 |ker-filt|er #[(st|
|00001d80| 72 69 6e 67 29 20 22 c0 | c1 5c 6e 5c 22 83 18 00 |ring) ".|.\n\"...|
|00001d90| 5c 6e c3 94 c3 95 4f c4 | 5c 6e c5 94 c5 95 4f 21 |\n....O.|\n....O!|
|00001da0| 42 16 06 5c 6e 87 22 20 | 5b 73 74 72 69 6e 67 2d |B..\n." |[string-|
|00001db0| 6d 61 74 63 68 20 22 73 | 74 6f 70 70 65 64 20 69 |match "s|topped i|
|00001dc0| 6e 20 2e 2a 20 61 74 20 | 6c 69 6e 65 20 5c 5c 28 |n .* at |line \\(|
|00001dd0| 5b 30 2d 39 5d 2a 5c 5c | 29 20 69 6e 20 66 69 6c |[0-9]*\\|) in fil|
|00001de0| 65 20 5c 22 5c 5c 28 5b | 5e 5c 22 5d 2a 5c 5c 29 |e \"\\([|^\"]*\\)|
|00001df0| 5c 22 22 20 73 74 72 69 | 6e 67 20 32 20 73 74 72 |\"" stri|ng 2 str|
|00001e00| 69 6e 67 2d 74 6f 2d 69 | 6e 74 20 31 20 67 75 64 |ing-to-i|nt 1 gud|
|00001e10| 2d 6c 61 73 74 2d 66 72 | 61 6d 65 5d 20 35 5d 20 |-last-fr|ame] 5] |
|00001e20| 67 75 64 2d 64 62 78 2d | 66 69 6e 64 2d 66 69 6c |gud-dbx-|find-fil|
|00001e30| 65 20 23 5b 28 66 29 20 | 22 c0 09 21 87 22 20 5b |e #[(f) |"..!." [|
|00001e40| 66 69 6e 64 2d 66 69 6c | 65 2d 6e 6f 73 65 6c 65 |find-fil|e-nosele|
|00001e50| 63 74 20 66 5d 20 32 5d | 5d 20 33 29 0a 28 64 65 |ct f] 2]|] 3).(de|
|00001e60| 66 61 6c 69 61 73 20 27 | 64 62 78 20 23 5b 28 61 |falias '|dbx #[(a|
|00001e70| 72 67 73 29 20 22 c0 c1 | 21 88 c2 0b 21 88 c4 c5 |rgs) "..|!...!...|
|00001e80| 4d 88 c6 c7 20 c8 c4 23 | 88 c9 0e 5c 6e cb 50 c4 |M... ..#|...\n.P.|
|00001e90| 5c 22 88 cc cd 4d 88 c6 | c7 20 ce cc 23 88 c9 0e |\"...M..|. ..#...|
|00001ea0| 5c 6e cf 50 cc 5c 22 88 | d0 d1 4d 88 c6 c7 20 d2 |\n.P.\".|..M... .|
|00001eb0| d0 23 88 c9 0e 5c 6e d3 | 50 d0 5c 22 88 d4 d5 4d |.#...\n.|P.\"...M|
|00001ec0| 88 c6 c7 20 d6 d4 23 88 | c9 0e 5c 6e d7 50 d4 5c |... ..#.|..\n.P.\|
|00001ed0| 22 88 d8 d9 4d 88 c6 c7 | 20 da d8 23 88 c9 0e 5c |"...M...| ..#...\|
|00001ee0| 6e db 50 d8 5c 22 88 dc | dd 4d 88 c6 c7 20 de dc |n.P.\"..|.M... ..|
|00001ef0| 23 88 c9 0e 5c 6e df 50 | dc 5c 22 88 e0 e1 4d 88 |#...\n.P|.\"...M.|
|00001f00| c6 c7 20 e2 e0 23 88 c9 | 0e 5c 6e e3 50 e0 5c 22 |.. ..#..|.\n.P.\"|
|00001f10| 88 e4 e5 4d 88 c6 c7 20 | e6 e4 23 88 c9 0e 5c 6e |...M... |..#...\n|
|00001f20| e7 50 e4 5c 22 88 e8 e9 | 4d 88 c6 c7 20 ea e8 23 |.P.\"...|M... ..#|
|00001f30| 88 c9 0e 5c 6e eb 50 e8 | 5c 22 88 ec 16 2d ee ef |...\n.P.|\"...-..|
|00001f40| 21 87 22 20 5b 67 75 64 | 2d 6f 76 65 72 6c 6f 61 |!." [gud|-overloa|
|00001f50| 64 2d 66 75 6e 63 74 69 | 6f 6e 73 20 28 28 67 75 |d-functi|ons ((gu|
|00001f60| 64 2d 64 65 62 75 67 67 | 65 72 2d 73 74 61 72 74 |d-debugg|er-start|
|00001f70| 75 70 20 2e 20 67 75 64 | 2d 64 62 78 2d 64 65 62 |up . gud|-dbx-deb|
|00001f80| 75 67 67 65 72 2d 73 74 | 61 72 74 75 70 29 20 28 |ugger-st|artup) (|
|00001f90| 67 75 64 2d 6d 61 72 6b | 65 72 2d 66 69 6c 74 65 |gud-mark|er-filte|
|00001fa0| 72 20 2e 20 67 75 64 2d | 64 62 78 2d 6d 61 72 6b |r . gud-|dbx-mark|
|00001fb0| 65 72 2d 66 69 6c 74 65 | 72 29 20 28 67 75 64 2d |er-filte|r) (gud-|
|00001fc0| 66 69 6e 64 2d 66 69 6c | 65 20 2e 20 67 75 64 2d |find-fil|e . gud-|
|00001fd0| 64 62 78 2d 66 69 6e 64 | 2d 66 69 6c 65 29 29 20 |dbx-find|-file)) |
|00001fe0| 67 75 64 2d 63 6f 6d 6d | 6f 6e 2d 69 6e 69 74 20 |gud-comm|on-init |
|00001ff0| 61 72 67 73 20 67 75 64 | 2d 62 72 65 61 6b 20 23 |args gud|-break #|
|00002000| 5b 28 61 72 67 29 20 22 | c0 c1 5c 6e 5c 22 87 22 |[(arg) "|..\n\"."|
|00002010| 20 5b 67 75 64 2d 63 61 | 6c 6c 20 22 73 74 6f 70 | [gud-ca|ll "stop|
|00002020| 20 61 74 20 5c 22 25 66 | 5c 22 3a 25 6c 22 20 61 | at \"%f|\":%l" a|
|00002030| 72 67 5d 20 33 20 22 53 | 65 74 20 62 72 65 61 6b |rg] 3 "S|et break|
|00002040| 70 6f 69 6e 74 20 61 74 | 20 63 75 72 72 65 6e 74 |point at| current|
|00002050| 20 6c 69 6e 65 2e 22 20 | 22 70 22 5d 20 64 65 66 | line." |"p"] def|
|00002060| 69 6e 65 2d 6b 65 79 20 | 63 75 72 72 65 6e 74 2d |ine-key |current-|
|00002070| 6c 6f 63 61 6c 2d 6d 61 | 70 20 22 03 02 22 20 67 |local-ma|p ".." g|
|00002080| 6c 6f 62 61 6c 2d 73 65 | 74 2d 6b 65 79 20 67 75 |lobal-se|t-key gu|
|00002090| 64 2d 6b 65 79 2d 70 72 | 65 66 69 78 20 22 02 22 |d-key-pr|efix "."|
|000020a0| 20 67 75 64 2d 72 65 6d | 6f 76 65 20 23 5b 28 61 | gud-rem|ove #[(a|
|000020b0| 72 67 29 20 22 c0 c1 5c | 6e 5c 22 87 22 20 5b 67 |rg) "..\|n\"." [g|
|000020c0| 75 64 2d 63 61 6c 6c 20 | 22 63 6c 65 61 72 20 25 |ud-call |"clear %|
|000020d0| 6c 22 20 61 72 67 5d 20 | 33 20 22 52 65 6d 6f 76 |l" arg] |3 "Remov|
|000020e0| 65 20 62 72 65 61 6b 70 | 6f 69 6e 74 20 61 74 20 |e breakp|oint at |
|000020f0| 63 75 72 72 65 6e 74 20 | 6c 69 6e 65 22 20 22 70 |current |line" "p|
|00002100| 22 5d 20 22 03 04 22 20 | 22 04 22 20 67 75 64 2d |"] ".." |"." gud-|
|00002110| 73 74 65 70 20 23 5b 28 | 61 72 67 29 20 22 c0 c1 |step #[(|arg) "..|
|00002120| 5c 6e 5c 22 87 22 20 5b | 67 75 64 2d 63 61 6c 6c |\n\"." [|gud-call|
|00002130| 20 22 73 74 65 70 20 25 | 70 22 20 61 72 67 5d 20 | "step %|p" arg] |
|00002140| 33 20 22 53 74 65 70 20 | 6f 6e 65 20 6c 69 6e 65 |3 "Step |one line|
|00002150| 20 77 69 74 68 20 64 69 | 73 70 6c 61 79 2e 22 20 | with di|splay." |
|00002160| 22 70 22 5d 20 22 03 13 | 22 20 22 13 22 20 67 75 |"p"] "..|" "." gu|
|00002170| 64 2d 73 74 65 70 69 20 | 23 5b 28 61 72 67 29 20 |d-stepi |#[(arg) |
|00002180| 22 c0 c1 5c 6e 5c 22 87 | 22 20 5b 67 75 64 2d 63 |"..\n\".|" [gud-c|
|00002190| 61 6c 6c 20 22 73 74 65 | 70 69 20 25 70 22 20 61 |all "ste|pi %p" a|
|000021a0| 72 67 5d 20 33 20 22 53 | 74 65 70 20 6f 6e 65 20 |rg] 3 "S|tep one |
|000021b0| 69 6e 73 74 72 75 63 74 | 69 6f 6e 20 77 69 74 68 |instruct|ion with|
|000021c0| 20 64 69 73 70 6c 61 79 | 2e 22 20 22 70 22 5d 20 | display|." "p"] |
|000021d0| 22 03 09 22 20 22 09 22 | 20 67 75 64 2d 6e 65 78 |".." "."| gud-nex|
|000021e0| 74 20 23 5b 28 61 72 67 | 29 20 22 c0 c1 5c 6e 5c |t #[(arg|) "..\n\|
|000021f0| 22 87 22 20 5b 67 75 64 | 2d 63 61 6c 6c 20 22 6e |"." [gud|-call "n|
|00002200| 65 78 74 20 25 70 22 20 | 61 72 67 5d 20 33 20 22 |ext %p" |arg] 3 "|
|00002210| 53 74 65 70 20 6f 6e 65 | 20 6c 69 6e 65 20 28 73 |Step one| line (s|
|00002220| 6b 69 70 20 66 75 6e 63 | 74 69 6f 6e 73 29 2e 22 |kip func|tions)."|
|00002230| 20 22 70 22 5d 20 22 03 | 0e 22 20 22 0e 22 20 67 | "p"] ".|." "." g|
|00002240| 75 64 2d 63 6f 6e 74 20 | 23 5b 28 61 72 67 29 20 |ud-cont |#[(arg) |
|00002250| 22 c0 c1 5c 6e 5c 22 87 | 22 20 5b 67 75 64 2d 63 |"..\n\".|" [gud-c|
|00002260| 61 6c 6c 20 22 63 6f 6e | 74 22 20 61 72 67 5d 20 |all "con|t" arg] |
|00002270| 33 20 22 43 6f 6e 74 69 | 6e 75 65 20 77 69 74 68 |3 "Conti|nue with|
|00002280| 20 64 69 73 70 6c 61 79 | 2e 22 20 22 70 22 5d 20 | display|." "p"] |
|00002290| 22 03 12 22 20 22 12 22 | 20 67 75 64 2d 75 70 20 |".." "."| gud-up |
|000022a0| 23 5b 28 61 72 67 29 20 | 22 c0 c1 5c 6e 5c 22 87 |#[(arg) |"..\n\".|
|000022b0| 22 20 5b 67 75 64 2d 63 | 61 6c 6c 20 22 75 70 20 |" [gud-c|all "up |
|000022c0| 25 70 22 20 61 72 67 5d | 20 33 20 22 55 70 20 28 |%p" arg]| 3 "Up (|
|000022d0| 6e 75 6d 65 72 69 63 20 | 61 72 67 29 20 73 74 61 |numeric |arg) sta|
|000022e0| 63 6b 20 66 72 61 6d 65 | 73 2e 22 20 22 70 22 5d |ck frame|s." "p"]|
|000022f0| 20 22 03 3c 22 20 22 3c | 22 20 67 75 64 2d 64 6f | ".<" "<|" gud-do|
|00002300| 77 6e 20 23 5b 28 61 72 | 67 29 20 22 c0 c1 5c 6e |wn #[(ar|g) "..\n|
|00002310| 5c 22 87 22 20 5b 67 75 | 64 2d 63 61 6c 6c 20 22 |\"." [gu|d-call "|
|00002320| 64 6f 77 6e 20 25 70 22 | 20 61 72 67 5d 20 33 20 |down %p"| arg] 3 |
|00002330| 22 44 6f 77 6e 20 28 6e | 75 6d 65 72 69 63 20 61 |"Down (n|umeric a|
|00002340| 72 67 29 20 73 74 61 63 | 6b 20 66 72 61 6d 65 73 |rg) stac|k frames|
|00002350| 2e 22 20 22 70 22 5d 20 | 22 03 3e 22 20 22 3e 22 |." "p"] |".>" ">"|
|00002360| 20 67 75 64 2d 70 72 69 | 6e 74 20 23 5b 28 61 72 | gud-pri|nt #[(ar|
|00002370| 67 29 20 22 c0 c1 5c 6e | 5c 22 87 22 20 5b 67 75 |g) "..\n|\"." [gu|
|00002380| 64 2d 63 61 6c 6c 20 22 | 70 72 69 6e 74 20 25 65 |d-call "|print %e|
|00002390| 22 20 61 72 67 5d 20 33 | 20 22 45 76 61 6c 75 61 |" arg] 3| "Evalua|
|000023a0| 74 65 20 43 20 65 78 70 | 72 65 73 73 69 6f 6e 20 |te C exp|ression |
|000023b0| 61 74 20 70 6f 69 6e 74 | 2e 22 20 22 70 22 5d 20 |at point|." "p"] |
|000023c0| 22 03 10 22 20 22 10 22 | 20 22 5e 5b 5e 29 5d 2a |".." "."| "^[^)]*|
|000023d0| 64 62 78 29 20 2a 22 20 | 63 6f 6d 69 6e 74 2d 70 |dbx) *" |comint-p|
|000023e0| 72 6f 6d 70 74 2d 72 65 | 67 65 78 70 20 72 75 6e |rompt-re|gexp run|
|000023f0| 2d 68 6f 6f 6b 73 20 64 | 62 78 2d 6d 6f 64 65 2d |-hooks d|bx-mode-|
|00002400| 68 6f 6f 6b 5d 20 34 20 | 22 5c 0a 52 75 6e 20 64 |hook] 4 |"\.Run d|
|00002410| 62 78 20 6f 6e 20 70 72 | 6f 67 72 61 6d 20 46 49 |bx on pr|ogram FI|
|00002420| 4c 45 20 69 6e 20 62 75 | 66 66 65 72 20 2a 67 75 |LE in bu|ffer *gu|
|00002430| 64 2d 46 49 4c 45 2a 2e | 0a 54 68 65 20 64 69 72 |d-FILE*.|.The dir|
|00002440| 65 63 74 6f 72 79 20 63 | 6f 6e 74 61 69 6e 69 6e |ectory c|ontainin|
|00002450| 67 20 46 49 4c 45 20 62 | 65 63 6f 6d 65 73 20 74 |g FILE b|ecomes t|
|00002460| 68 65 20 69 6e 69 74 69 | 61 6c 20 77 6f 72 6b 69 |he initi|al worki|
|00002470| 6e 67 20 64 69 72 65 63 | 74 6f 72 79 0a 61 6e 64 |ng direc|tory.and|
|00002480| 20 73 6f 75 72 63 65 2d | 66 69 6c 65 20 64 69 72 | source-|file dir|
|00002490| 65 63 74 6f 72 79 20 66 | 6f 72 20 79 6f 75 72 20 |ectory f|or your |
|000024a0| 64 65 62 75 67 67 65 72 | 2e 22 20 28 6c 69 73 74 |debugger|." (list|
|000024b0| 20 28 72 65 61 64 2d 66 | 72 6f 6d 2d 6d 69 6e 69 | (read-f|rom-mini|
|000024c0| 62 75 66 66 65 72 20 22 | 52 75 6e 20 64 62 78 20 |buffer "|Run dbx |
|000024d0| 28 6c 69 6b 65 20 74 68 | 69 73 29 3a 20 64 62 78 |(like th|is): dbx|
|000024e0| 20 22 20 28 69 66 20 28 | 63 6f 6e 73 70 20 67 75 | " (if (|consp gu|
|000024f0| 64 2d 64 62 78 2d 68 69 | 73 74 6f 72 79 29 20 28 |d-dbx-hi|story) (|
|00002500| 63 61 72 20 67 75 64 2d | 64 62 78 2d 68 69 73 74 |car gud-|dbx-hist|
|00002510| 6f 72 79 29 20 22 22 29 | 20 6e 69 6c 20 6e 69 6c |ory) "")| nil nil|
|00002520| 20 28 71 75 6f 74 65 20 | 28 67 75 64 2d 64 62 78 | (quote |(gud-dbx|
|00002530| 2d 68 69 73 74 6f 72 79 | 20 2e 20 31 29 29 29 29 |-history| . 1))))|
|00002540| 5d 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |]).(byte|-code ".|
|00002550| c1 21 84 08 00 c2 11 c2 | 87 22 20 5b 62 6f 75 6e |.!......|." [boun|
|00002560| 64 70 20 67 75 64 2d 78 | 64 62 2d 68 69 73 74 6f |dp gud-x|db-histo|
|00002570| 72 79 20 6e 69 6c 5d 20 | 32 29 0a 28 64 65 66 76 |ry nil] |2).(defv|
|00002580| 61 72 20 67 75 64 2d 78 | 64 62 2d 64 69 72 65 63 |ar gud-x|db-direc|
|00002590| 74 6f 72 69 65 73 20 6e | 69 6c 20 22 5c 0a 2a 41 |tories n|il "\.*A|
|000025a0| 20 6c 69 73 74 20 6f 66 | 20 64 69 72 65 63 74 6f | list of| directo|
|000025b0| 72 69 65 73 20 74 68 61 | 74 20 78 64 62 20 73 68 |ries tha|t xdb sh|
|000025c0| 6f 75 6c 64 20 73 65 61 | 72 63 68 20 66 6f 72 20 |ould sea|rch for |
|000025d0| 73 6f 75 72 63 65 20 63 | 6f 64 65 2e 0a 49 66 20 |source c|ode..If |
|000025e0| 6e 69 6c 2c 20 6f 6e 6c | 79 20 73 6f 75 72 63 65 |nil, onl|y source|
|000025f0| 20 66 69 6c 65 73 20 69 | 6e 20 74 68 65 20 70 72 | files i|n the pr|
|00002600| 6f 67 72 61 6d 20 64 69 | 72 65 63 74 6f 72 79 0a |ogram di|rectory.|
|00002610| 77 69 6c 6c 20 62 65 20 | 6b 6e 6f 77 6e 20 74 6f |will be |known to|
|00002620| 20 78 64 62 2e 0a 0a 54 | 68 65 20 66 69 6c 65 20 | xdb...T|he file |
|00002630| 6e 61 6d 65 73 20 73 68 | 6f 75 6c 64 20 62 65 20 |names sh|ould be |
|00002640| 61 62 73 6f 6c 75 74 65 | 2c 20 6f 72 20 72 65 6c |absolute|, or rel|
|00002650| 61 74 69 76 65 20 74 6f | 20 74 68 65 20 64 69 72 |ative to| the dir|
|00002660| 65 63 74 6f 72 79 0a 63 | 6f 6e 74 61 69 6e 69 6e |ectory.c|ontainin|
|00002670| 67 20 74 68 65 20 65 78 | 65 63 75 74 61 62 6c 65 |g the ex|ecutable|
|00002680| 20 62 65 69 6e 67 20 64 | 65 62 75 67 67 65 64 2e | being d|ebugged.|
|00002690| 22 29 0a 28 64 65 66 61 | 6c 69 61 73 20 28 71 75 |").(defa|lias (qu|
|000026a0| 6f 74 65 20 67 75 64 2d | 78 64 62 2d 64 65 62 75 |ote gud-|xdb-debu|
|000026b0| 67 67 65 72 2d 73 74 61 | 72 74 75 70 29 20 23 5b |gger-sta|rtup) #[|
|000026c0| 28 66 69 6c 65 20 61 72 | 67 73 29 20 22 c0 c1 c2 |(file ar|gs) "...|
|000026d0| 0b 50 c4 c5 c6 0e 07 c5 | 1e 08 89 1e 09 83 26 00 |.P......|......&.|
|000026e0| 0e 09 40 ca 0e 08 42 42 | 16 08 0e 09 41 89 16 09 |..@...BB|....A...|
|000026f0| 84 13 00 0e 08 9f 2a 0e | 0b 5c 22 25 87 22 20 5b |......*.|.\"%." [|
|00002700| 61 70 70 6c 79 20 6d 61 | 6b 65 2d 63 6f 6d 69 6e |apply ma|ke-comin|
|00002710| 74 20 22 67 75 64 2d 22 | 20 66 69 6c 65 20 22 78 |t "gud-"| file "x|
|00002720| 64 62 22 20 6e 69 6c 20 | 61 70 70 65 6e 64 20 67 |db" nil |append g|
|00002730| 75 64 2d 78 64 62 2d 64 | 69 72 65 63 74 6f 72 69 |ud-xdb-d|irectori|
|00002740| 65 73 20 72 65 73 75 6c | 74 20 64 69 72 65 63 74 |es resul|t direct|
|00002750| 6f 72 69 65 73 20 22 2d | 64 22 20 61 72 67 73 5d |ories "-|d" args]|
|00002760| 20 31 30 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 | 10]).(d|efalias |
|00002770| 27 67 75 64 2d 78 64 62 | 2d 66 69 6c 65 2d 6e 61 |'gud-xdb|-file-na|
|00002780| 6d 65 20 23 5b 28 66 29 | 20 22 c0 19 c2 0b 21 83 |me #[(f)| "....!.|
|00002790| 0f 00 c4 0b 21 11 82 38 | 00 0d 89 1e 06 83 37 00 |....!..8|......7.|
|000027a0| 0e 06 40 c7 0b 51 1e 08 | c2 0e 08 21 83 2d 00 c4 |..@..Q..|...!.-..|
|000027b0| 0e 08 21 11 c0 16 06 29 | 0e 06 41 89 16 06 84 16 |..!....)|..A.....|
|000027c0| 00 29 09 29 87 22 20 5b | 6e 69 6c 20 72 65 73 75 |.).)." [|nil resu|
|000027d0| 6c 74 20 66 69 6c 65 2d | 65 78 69 73 74 73 2d 70 |lt file-|exists-p|
|000027e0| 20 66 20 65 78 70 61 6e | 64 2d 66 69 6c 65 2d 6e | f expan|d-file-n|
|000027f0| 61 6d 65 20 67 75 64 2d | 78 64 62 2d 64 69 72 65 |ame gud-|xdb-dire|
|00002800| 63 74 6f 72 69 65 73 20 | 64 69 72 65 63 74 6f 72 |ctories |director|
|00002810| 69 65 73 20 22 2f 22 20 | 70 61 74 68 5d 20 34 20 |ies "/" |path] 4 |
|00002820| 22 5c 0a 54 72 61 6e 73 | 66 6f 72 6d 20 61 20 72 |"\.Trans|form a r|
|00002830| 65 6c 61 74 69 76 65 20 | 70 61 74 68 6e 61 6d 65 |elative |pathname|
|00002840| 20 74 6f 20 61 20 66 75 | 6c 6c 20 70 61 74 68 6e | to a fu|ll pathn|
|00002850| 61 6d 65 20 69 6e 20 78 | 64 62 20 6d 6f 64 65 22 |ame in x|db mode"|
|00002860| 5d 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |]).(byte|-code ".|
|00002870| c1 21 84 08 00 c2 11 c3 | c4 c5 5c 22 88 c3 c6 c7 |.!......|..\"....|
|00002880| 5c 22 87 22 20 5b 62 6f | 75 6e 64 70 20 67 75 64 |\"." [bo|undp gud|
|00002890| 2d 78 64 62 2d 61 63 63 | 75 6d 75 6c 61 74 69 6f |-xdb-acc|umulatio|
|000028a0| 6e 20 22 22 20 64 65 66 | 61 6c 69 61 73 20 67 75 |n "" def|alias gu|
|000028b0| 64 2d 78 64 62 2d 6d 61 | 72 6b 65 72 2d 66 69 6c |d-xdb-ma|rker-fil|
|000028c0| 74 65 72 20 23 5b 28 73 | 74 72 69 6e 67 29 20 22 |ter #[(s|tring) "|
|000028d0| c0 19 c2 0b 0c 5c 22 84 | 10 00 c2 c5 0c 5c 22 83 |.....\".|.....\".|
|000028e0| 1b 00 0e 06 0c 50 11 c7 | 16 06 82 21 00 0e 06 0c |.....P..|...!....|
|000028f0| 50 16 06 09 83 54 00 c2 | c8 09 5c 22 84 33 00 c2 |P....T..|..\".3..|
|00002900| c9 09 5c 22 83 54 00 ca | 09 cb 94 cb 95 4f 21 cc |..\".T..|.....O!.|
|00002910| 09 cd 94 cd 95 4f 21 1e | 0e 1e 0f 0e 0e 83 53 00 |.....O!.|......S.|
|00002920| 0e 0e 0e 0f 42 16 10 2a | 09 86 59 00 c7 29 87 22 |....B..*|..Y..)."|
|00002930| 20 5b 6e 69 6c 20 72 65 | 73 75 6c 74 20 73 74 72 | [nil re|sult str|
|00002940| 69 6e 67 2d 6d 61 74 63 | 68 20 63 6f 6d 69 6e 74 |ing-matc|h comint|
|00002950| 2d 70 72 6f 6d 70 74 2d | 72 65 67 65 78 70 20 73 |-prompt-|regexp s|
|00002960| 74 72 69 6e 67 20 22 2e | 2a 5c 6e 22 20 67 75 64 |tring ".|*\n" gud|
|00002970| 2d 78 64 62 2d 61 63 63 | 75 6d 75 6c 61 74 69 6f |-xdb-acc|umulatio|
|00002980| 6e 20 22 22 20 22 5c 5c | 28 5b 5e 5c 6e 20 09 3a |n "" "\\|([^\n .:|
|00002990| 5d 2b 5c 5c 29 3a 20 5b | 5e 3a 5d 2b 3a 20 5c 5c |]+\\): [|^:]+: \\|
|000029a0| 28 5b 30 2d 39 5d 2b 5c | 5c 29 3a 22 20 22 5b 5e |([0-9]+\|\):" "[^|
|000029b0| 3a 20 09 5d 2b 3a 5b 20 | 09 5d 2b 5c 5c 28 5b 5e |: .]+:[ |.]+\\([^|
|000029c0| 3a 5d 2b 5c 5c 29 3a 20 | 5b 5e 3a 5d 2b 3a 20 5c |:]+\\): |[^:]+: \|
|000029d0| 5c 28 5b 30 2d 39 5d 2b | 5c 5c 29 3a 22 20 73 74 |\([0-9]+|\\):" st|
|000029e0| 72 69 6e 67 2d 74 6f 2d | 69 6e 74 20 32 20 67 75 |ring-to-|int 2 gu|
|000029f0| 64 2d 78 64 62 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |d-xdb-fi|le-name |
|00002a00| 31 20 66 69 6c 65 20 6c | 69 6e 65 20 67 75 64 2d |1 file l|ine gud-|
|00002a10| 6c 61 73 74 2d 66 72 61 | 6d 65 5d 20 35 5d 20 67 |last-fra|me] 5] g|
|00002a20| 75 64 2d 78 64 62 2d 66 | 69 6e 64 2d 66 69 6c 65 |ud-xdb-f|ind-file|
|00002a30| 20 23 5b 28 66 29 20 22 | c0 09 21 89 1a 85 0b 00 | #[(f) "|..!.....|
|00002a40| c3 5c 6e 21 29 87 22 20 | 5b 67 75 64 2d 78 64 62 |.\n!)." |[gud-xdb|
|00002a50| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 66 20 72 65 61 |-file-na|me f rea|
|00002a60| 6c 66 20 66 69 6e 64 2d | 66 69 6c 65 2d 6e 6f 73 |lf find-|file-nos|
|00002a70| 65 6c 65 63 74 5d 20 33 | 5d 5d 20 33 29 0a 28 64 |elect] 3|]] 3).(d|
|00002a80| 65 66 61 6c 69 61 73 20 | 27 78 64 62 20 23 5b 28 |efalias |'xdb #[(|
|00002a90| 61 72 67 73 29 20 22 c0 | c1 21 88 c2 0b 21 88 c4 |args) ".|.!...!..|
|00002aa0| c5 4d 88 c6 c7 20 c8 c4 | 23 88 c9 0e 5c 6e cb 50 |.M... ..|#...\n.P|
|00002ab0| c4 5c 22 88 cc cd 4d 88 | c6 c7 20 ce cc 23 88 c9 |.\"...M.|.. ..#..|
|00002ac0| 0e 5c 6e cf 50 cc 5c 22 | 88 d0 d1 4d 88 c6 c7 20 |.\n.P.\"|...M... |
|00002ad0| d2 d0 23 88 c9 0e 5c 6e | d3 50 d0 5c 22 88 d4 d5 |..#...\n|.P.\"...|
|00002ae0| 4d 88 c6 c7 20 d6 d4 23 | 88 c9 0e 5c 6e d7 50 d4 |M... ..#|...\n.P.|
|00002af0| 5c 22 88 d8 d9 4d 88 c6 | c7 20 da d8 23 88 c9 0e |\"...M..|. ..#...|
|00002b00| 5c 6e db 50 d8 5c 22 88 | dc dd 4d 88 c6 c7 20 de |\n.P.\".|..M... .|
|00002b10| dc 23 88 c9 0e 5c 6e df | 50 dc 5c 22 88 e0 e1 4d |.#...\n.|P.\"...M|
|00002b20| 88 c6 c7 20 e2 e0 23 88 | c9 0e 5c 6e e3 50 e0 5c |... ..#.|..\n.P.\|
|00002b30| 22 88 e4 e5 4d 88 c6 c7 | 20 e6 e4 23 88 c9 0e 5c |"...M...| ..#...\|
|00002b40| 6e e7 50 e4 5c 22 88 e8 | e9 4d 88 c6 c7 20 ea e8 |n.P.\"..|.M... ..|
|00002b50| 23 88 c9 0e 5c 6e eb 50 | e8 5c 22 88 ec ed 4d 88 |#...\n.P|.\"...M.|
|00002b60| c6 c7 20 ee ec 23 88 c9 | 0e 5c 6e ef 50 ec 5c 22 |.. ..#..|.\n.P.\"|
|00002b70| 88 f0 16 31 f2 f3 21 88 | f4 16 33 f5 f6 21 87 22 |...1..!.|..3..!."|
|00002b80| 20 5b 67 75 64 2d 6f 76 | 65 72 6c 6f 61 64 2d 66 | [gud-ov|erload-f|
|00002b90| 75 6e 63 74 69 6f 6e 73 | 20 28 28 67 75 64 2d 64 |unctions| ((gud-d|
|00002ba0| 65 62 75 67 67 65 72 2d | 73 74 61 72 74 75 70 20 |ebugger-|startup |
|00002bb0| 2e 20 67 75 64 2d 78 64 | 62 2d 64 65 62 75 67 67 |. gud-xd|b-debugg|
|00002bc0| 65 72 2d 73 74 61 72 74 | 75 70 29 20 28 67 75 64 |er-start|up) (gud|
|00002bd0| 2d 6d 61 72 6b 65 72 2d | 66 69 6c 74 65 72 20 2e |-marker-|filter .|
|00002be0| 20 67 75 64 2d 78 64 62 | 2d 6d 61 72 6b 65 72 2d | gud-xdb|-marker-|
|00002bf0| 66 69 6c 74 65 72 29 20 | 28 67 75 64 2d 66 69 6e |filter) |(gud-fin|
|00002c00| 64 2d 66 69 6c 65 20 2e | 20 67 75 64 2d 78 64 62 |d-file .| gud-xdb|
|00002c10| 2d 66 69 6e 64 2d 66 69 | 6c 65 29 29 20 67 75 64 |-find-fi|le)) gud|
|00002c20| 2d 63 6f 6d 6d 6f 6e 2d | 69 6e 69 74 20 61 72 67 |-common-|init arg|
|00002c30| 73 20 67 75 64 2d 62 72 | 65 61 6b 20 23 5b 28 61 |s gud-br|eak #[(a|
|00002c40| 72 67 29 20 22 c0 c1 5c | 6e 5c 22 87 22 20 5b 67 |rg) "..\|n\"." [g|
|00002c50| 75 64 2d 63 61 6c 6c 20 | 22 62 20 25 66 3a 25 6c |ud-call |"b %f:%l|
|00002c60| 22 20 61 72 67 5d 20 33 | 20 22 53 65 74 20 62 72 |" arg] 3| "Set br|
|00002c70| 65 61 6b 70 6f 69 6e 74 | 20 61 74 20 63 75 72 72 |eakpoint| at curr|
|00002c80| 65 6e 74 20 6c 69 6e 65 | 2e 22 20 22 70 22 5d 20 |ent line|." "p"] |
|00002c90| 64 65 66 69 6e 65 2d 6b | 65 79 20 63 75 72 72 65 |define-k|ey curre|
|00002ca0| 6e 74 2d 6c 6f 63 61 6c | 2d 6d 61 70 20 22 03 02 |nt-local|-map "..|
|00002cb0| 22 20 67 6c 6f 62 61 6c | 2d 73 65 74 2d 6b 65 79 |" global|-set-key|
|00002cc0| 20 67 75 64 2d 6b 65 79 | 2d 70 72 65 66 69 78 20 | gud-key|-prefix |
|00002cd0| 22 02 22 20 67 75 64 2d | 74 62 72 65 61 6b 20 23 |"." gud-|tbreak #|
|00002ce0| 5b 28 61 72 67 29 20 22 | c0 c1 5c 6e 5c 22 87 22 |[(arg) "|..\n\"."|
|00002cf0| 20 5b 67 75 64 2d 63 61 | 6c 6c 20 22 62 20 25 66 | [gud-ca|ll "b %f|
|00002d00| 3a 25 6c 5c 5c 74 22 20 | 61 72 67 5d 20 33 20 22 |:%l\\t" |arg] 3 "|
|00002d10| 53 65 74 20 74 65 6d 70 | 6f 72 61 72 79 20 62 72 |Set temp|orary br|
|00002d20| 65 61 6b 70 6f 69 6e 74 | 20 61 74 20 63 75 72 72 |eakpoint| at curr|
|00002d30| 65 6e 74 20 6c 69 6e 65 | 2e 22 20 22 70 22 5d 20 |ent line|." "p"] |
|00002d40| 22 03 14 22 20 22 14 22 | 20 67 75 64 2d 72 65 6d |".." "."| gud-rem|
|00002d50| 6f 76 65 20 23 5b 28 61 | 72 67 29 20 22 c0 c1 5c |ove #[(a|rg) "..\|
|00002d60| 6e 5c 22 87 22 20 5b 67 | 75 64 2d 63 61 6c 6c 20 |n\"." [g|ud-call |
|00002d70| 22 64 62 22 20 61 72 67 | 5d 20 33 20 22 52 65 6d |"db" arg|] 3 "Rem|
|00002d80| 6f 76 65 20 62 72 65 61 | 6b 70 6f 69 6e 74 20 61 |ove brea|kpoint a|
|00002d90| 74 20 63 75 72 72 65 6e | 74 20 6c 69 6e 65 22 20 |t curren|t line" |
|00002da0| 22 70 22 5d 20 22 03 04 | 22 20 22 04 22 20 67 75 |"p"] "..|" "." gu|
|00002db0| 64 2d 73 74 65 70 20 23 | 5b 28 61 72 67 29 20 22 |d-step #|[(arg) "|
|00002dc0| c0 c1 5c 6e 5c 22 87 22 | 20 5b 67 75 64 2d 63 61 |..\n\"."| [gud-ca|
|00002dd0| 6c 6c 20 22 73 20 25 70 | 22 20 61 72 67 5d 20 33 |ll "s %p|" arg] 3|
|00002de0| 20 22 53 74 65 70 20 6f | 6e 65 20 6c 69 6e 65 20 | "Step o|ne line |
|00002df0| 77 69 74 68 20 64 69 73 | 70 6c 61 79 2e 22 20 22 |with dis|play." "|
|00002e00| 70 22 5d 20 22 03 13 22 | 20 22 13 22 20 67 75 64 |p"] ".."| "." gud|
|00002e10| 2d 6e 65 78 74 20 23 5b | 28 61 72 67 29 20 22 c0 |-next #[|(arg) ".|
|00002e20| c1 5c 6e 5c 22 87 22 20 | 5b 67 75 64 2d 63 61 6c |.\n\"." |[gud-cal|
|00002e30| 6c 20 22 53 20 25 70 22 | 20 61 72 67 5d 20 33 20 |l "S %p"| arg] 3 |
|00002e40| 22 53 74 65 70 20 6f 6e | 65 20 6c 69 6e 65 20 28 |"Step on|e line (|
|00002e50| 73 6b 69 70 20 66 75 6e | 63 74 69 6f 6e 73 29 2e |skip fun|ctions).|
|00002e60| 22 20 22 70 22 5d 20 22 | 03 0e 22 20 22 0e 22 20 |" "p"] "|.." "." |
|00002e70| 67 75 64 2d 63 6f 6e 74 | 20 23 5b 28 61 72 67 29 |gud-cont| #[(arg)|
|00002e80| 20 22 c0 c1 5c 6e 5c 22 | 87 22 20 5b 67 75 64 2d | "..\n\"|." [gud-|
|00002e90| 63 61 6c 6c 20 22 63 22 | 20 61 72 67 5d 20 33 20 |call "c"| arg] 3 |
|00002ea0| 22 43 6f 6e 74 69 6e 75 | 65 20 77 69 74 68 20 64 |"Continu|e with d|
|00002eb0| 69 73 70 6c 61 79 2e 22 | 20 22 70 22 5d 20 22 03 |isplay."| "p"] ".|
|00002ec0| 12 22 20 22 12 22 20 67 | 75 64 2d 75 70 20 23 5b |." "." g|ud-up #[|
|00002ed0| 28 61 72 67 29 20 22 c0 | c1 5c 6e 5c 22 87 22 20 |(arg) ".|.\n\"." |
|00002ee0| 5b 67 75 64 2d 63 61 6c | 6c 20 22 75 70 20 25 70 |[gud-cal|l "up %p|
|00002ef0| 22 20 61 72 67 5d 20 33 | 20 22 55 70 20 28 6e 75 |" arg] 3| "Up (nu|
|00002f00| 6d 65 72 69 63 20 61 72 | 67 29 20 73 74 61 63 6b |meric ar|g) stack|
|00002f10| 20 66 72 61 6d 65 73 2e | 22 20 22 70 22 5d 20 22 | frames.|" "p"] "|
|00002f20| 03 3c 22 20 22 3c 22 20 | 67 75 64 2d 64 6f 77 6e |.<" "<" |gud-down|
|00002f30| 20 23 5b 28 61 72 67 29 | 20 22 c0 c1 5c 6e 5c 22 | #[(arg)| "..\n\"|
|00002f40| 87 22 20 5b 67 75 64 2d | 63 61 6c 6c 20 22 64 6f |." [gud-|call "do|
|00002f50| 77 6e 20 25 70 22 20 61 | 72 67 5d 20 33 20 22 44 |wn %p" a|rg] 3 "D|
|00002f60| 6f 77 6e 20 28 6e 75 6d | 65 72 69 63 20 61 72 67 |own (num|eric arg|
|00002f70| 29 20 73 74 61 63 6b 20 | 66 72 61 6d 65 73 2e 22 |) stack |frames."|
|00002f80| 20 22 70 22 5d 20 22 03 | 3e 22 20 22 3e 22 20 67 | "p"] ".|>" ">" g|
|00002f90| 75 64 2d 66 69 6e 69 73 | 68 20 23 5b 28 61 72 67 |ud-finis|h #[(arg|
|00002fa0| 29 20 22 c0 c1 5c 6e 5c | 22 87 22 20 5b 67 75 64 |) "..\n\|"." [gud|
|00002fb0| 2d 63 61 6c 6c 20 22 62 | 75 5c 5c 74 22 20 61 72 |-call "b|u\\t" ar|
|00002fc0| 67 5d 20 33 20 22 46 69 | 6e 69 73 68 20 65 78 65 |g] 3 "Fi|nish exe|
|00002fd0| 63 75 74 69 6e 67 20 63 | 75 72 72 65 6e 74 20 66 |cuting c|urrent f|
|00002fe0| 75 6e 63 74 69 6f 6e 2e | 22 20 22 70 22 5d 20 22 |unction.|" "p"] "|
|00002ff0| 03 06 22 20 22 06 22 20 | 67 75 64 2d 70 72 69 6e |.." "." |gud-prin|
|00003000| 74 20 23 5b 28 61 72 67 | 29 20 22 c0 c1 5c 6e 5c |t #[(arg|) "..\n\|
|00003010| 22 87 22 20 5b 67 75 64 | 2d 63 61 6c 6c 20 22 70 |"." [gud|-call "p|
|00003020| 20 25 65 22 20 61 72 67 | 5d 20 33 20 22 45 76 61 | %e" arg|] 3 "Eva|
|00003030| 6c 75 61 74 65 20 43 20 | 65 78 70 72 65 73 73 69 |luate C |expressi|
|00003040| 6f 6e 20 61 74 20 70 6f | 69 6e 74 2e 22 20 22 70 |on at po|int." "p|
|00003050| 22 5d 20 22 03 10 22 20 | 22 10 22 20 22 5e 3e 22 |"] ".." |"." "^>"|
|00003060| 20 63 6f 6d 69 6e 74 2d | 70 72 6f 6d 70 74 2d 72 | comint-|prompt-r|
|00003070| 65 67 65 78 70 20 6d 61 | 6b 65 2d 6c 6f 63 61 6c |egexp ma|ke-local|
|00003080| 2d 76 61 72 69 61 62 6c | 65 20 67 75 64 2d 78 64 |-variabl|e gud-xd|
|00003090| 62 2d 61 63 63 75 6d 75 | 6c 61 74 69 6f 6e 20 22 |b-accumu|lation "|
|000030a0| 22 20 72 75 6e 2d 68 6f | 6f 6b 73 20 78 64 62 2d |" run-ho|oks xdb-|
|000030b0| 6d 6f 64 65 2d 68 6f 6f | 6b 5d 20 34 20 22 5c 0a |mode-hoo|k] 4 "\.|
|000030c0| 52 75 6e 20 78 64 62 20 | 6f 6e 20 70 72 6f 67 72 |Run xdb |on progr|
|000030d0| 61 6d 20 46 49 4c 45 20 | 69 6e 20 62 75 66 66 65 |am FILE |in buffe|
|000030e0| 72 20 2a 67 75 64 2d 46 | 49 4c 45 2a 2e 0a 54 68 |r *gud-F|ILE*..Th|
|000030f0| 65 20 64 69 72 65 63 74 | 6f 72 79 20 63 6f 6e 74 |e direct|ory cont|
|00003100| 61 69 6e 69 6e 67 20 46 | 49 4c 45 20 62 65 63 6f |aining F|ILE beco|
|00003110| 6d 65 73 20 74 68 65 20 | 69 6e 69 74 69 61 6c 20 |mes the |initial |
|00003120| 77 6f 72 6b 69 6e 67 20 | 64 69 72 65 63 74 6f 72 |working |director|
|00003130| 79 0a 61 6e 64 20 73 6f | 75 72 63 65 2d 66 69 6c |y.and so|urce-fil|
|00003140| 65 20 64 69 72 65 63 74 | 6f 72 79 20 66 6f 72 20 |e direct|ory for |
|00003150| 79 6f 75 72 20 64 65 62 | 75 67 67 65 72 2e 0a 0a |your deb|ugger...|
|00003160| 59 6f 75 20 63 61 6e 20 | 73 65 74 20 74 68 65 20 |You can |set the |
|00003170| 76 61 72 69 61 62 6c 65 | 20 27 67 75 64 2d 78 64 |variable| 'gud-xd|
|00003180| 62 2d 64 69 72 65 63 74 | 6f 72 69 65 73 27 20 74 |b-direct|ories' t|
|00003190| 6f 20 61 20 6c 69 73 74 | 20 6f 66 20 70 72 6f 67 |o a list| of prog|
|000031a0| 72 61 6d 20 73 6f 75 72 | 63 65 0a 64 69 72 65 63 |ram sour|ce.direc|
|000031b0| 74 6f 72 69 65 73 20 69 | 66 20 79 6f 75 72 20 70 |tories i|f your p|
|000031c0| 72 6f 67 72 61 6d 20 63 | 6f 6e 74 61 69 6e 73 20 |rogram c|ontains |
|000031d0| 73 6f 75 72 63 65 73 20 | 66 72 6f 6d 20 6d 6f 72 |sources |from mor|
|000031e0| 65 20 74 68 61 6e 20 6f | 6e 65 20 64 69 72 65 63 |e than o|ne direc|
|000031f0| 74 6f 72 79 2e 22 20 28 | 6c 69 73 74 20 28 72 65 |tory." (|list (re|
|00003200| 61 64 2d 66 72 6f 6d 2d | 6d 69 6e 69 62 75 66 66 |ad-from-|minibuff|
|00003210| 65 72 20 22 52 75 6e 20 | 78 64 62 20 28 6c 69 6b |er "Run |xdb (lik|
|00003220| 65 20 74 68 69 73 29 3a | 20 78 64 62 20 22 20 28 |e this):| xdb " (|
|00003230| 69 66 20 28 63 6f 6e 73 | 70 20 67 75 64 2d 78 64 |if (cons|p gud-xd|
|00003240| 62 2d 68 69 73 74 6f 72 | 79 29 20 28 63 61 72 20 |b-histor|y) (car |
|00003250| 67 75 64 2d 78 64 62 2d | 68 69 73 74 6f 72 79 29 |gud-xdb-|history)|
|00003260| 20 22 22 29 20 6e 69 6c | 20 6e 69 6c 20 28 71 75 | "") nil| nil (qu|
|00003270| 6f 74 65 20 28 67 75 64 | 2d 78 64 62 2d 68 69 73 |ote (gud|-xdb-his|
|00003280| 74 6f 72 79 20 2e 20 31 | 29 29 29 29 5d 29 0a 28 |tory . 1|))))]).(|
|00003290| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 21 84 08 |byte-cod|e "..!..|
|000032a0| 00 c2 11 c2 87 22 20 5b | 62 6f 75 6e 64 70 20 67 |....." [|boundp g|
|000032b0| 75 64 2d 64 65 6c 65 74 | 65 2d 70 72 6f 6d 70 74 |ud-delet|e-prompt|
|000032c0| 2d 6d 61 72 6b 65 72 20 | 6e 69 6c 5d 20 32 29 0a |-marker |nil] 2).|
|000032d0| 28 64 65 66 61 6c 69 61 | 73 20 27 67 75 64 2d 6d |(defalia|s 'gud-m|
|000032e0| 6f 64 65 20 23 5b 6e 69 | 6c 20 22 c0 20 88 c1 12 |ode #[ni|l ". ...|
|000032f0| c3 14 c5 16 06 c7 c8 0e | 09 21 21 88 ca cb 21 88 |........|.!!...!.|
|00003300| cc 16 0b ca cd 21 88 ca | ce 21 88 cf 20 16 0e d0 |.....!..|.!.. ...|
|00003310| d1 21 87 22 20 5b 63 6f | 6d 69 6e 74 2d 6d 6f 64 |.!." [co|mint-mod|
|00003320| 65 20 67 75 64 2d 6d 6f | 64 65 20 6d 61 6a 6f 72 |e gud-mo|de major|
|00003330| 2d 6d 6f 64 65 20 22 44 | 65 62 75 67 67 65 72 22 |-mode "D|ebugger"|
|00003340| 20 6d 6f 64 65 2d 6e 61 | 6d 65 20 28 22 3a 20 25 | mode-na|me (": %|
|00003350| 73 22 29 20 6d 6f 64 65 | 2d 6c 69 6e 65 2d 70 72 |s") mode|-line-pr|
|00003360| 6f 63 65 73 73 20 75 73 | 65 2d 6c 6f 63 61 6c 2d |ocess us|e-local-|
|00003370| 6d 61 70 20 63 6f 70 79 | 2d 6b 65 79 6d 61 70 20 |map copy|-keymap |
|00003380| 63 6f 6d 69 6e 74 2d 6d | 6f 64 65 2d 6d 61 70 20 |comint-m|ode-map |
|00003390| 6d 61 6b 65 2d 6c 6f 63 | 61 6c 2d 76 61 72 69 61 |make-loc|al-varia|
|000033a0| 62 6c 65 20 67 75 64 2d | 6c 61 73 74 2d 66 72 61 |ble gud-|last-fra|
|000033b0| 6d 65 20 6e 69 6c 20 63 | 6f 6d 69 6e 74 2d 70 72 |me nil c|omint-pr|
|000033c0| 6f 6d 70 74 2d 72 65 67 | 65 78 70 20 67 75 64 2d |ompt-reg|exp gud-|
|000033d0| 64 65 6c 65 74 65 2d 70 | 72 6f 6d 70 74 2d 6d 61 |delete-p|rompt-ma|
|000033e0| 72 6b 65 72 20 6d 61 6b | 65 2d 6d 61 72 6b 65 72 |rker mak|e-marker|
|000033f0| 20 72 75 6e 2d 68 6f 6f | 6b 73 20 67 75 64 2d 6d | run-hoo|ks gud-m|
|00003400| 6f 64 65 2d 68 6f 6f 6b | 5d 20 33 20 22 5c 0a 4d |ode-hook|] 3 "\.M|
|00003410| 61 6a 6f 72 20 6d 6f 64 | 65 20 66 6f 72 20 69 6e |ajor mod|e for in|
|00003420| 74 65 72 61 63 74 69 6e | 67 20 77 69 74 68 20 61 |teractin|g with a|
|00003430| 6e 20 69 6e 66 65 72 69 | 6f 72 20 64 65 62 75 67 |n inferi|or debug|
|00003440| 67 65 72 20 70 72 6f 63 | 65 73 73 2e 0a 0a 20 20 |ger proc|ess...  |
|00003450| 20 59 6f 75 20 73 74 61 | 72 74 20 69 74 20 75 70 | You sta|rt it up|
|00003460| 20 77 69 74 68 20 6f 6e | 65 20 6f 66 20 74 68 65 | with on|e of the|
|00003470| 20 63 6f 6d 6d 61 6e 64 | 73 20 4d 2d 78 20 67 64 | command|s M-x gd|
|00003480| 62 2c 20 4d 2d 78 20 73 | 64 62 2c 20 4d 2d 78 20 |b, M-x s|db, M-x |
|00003490| 64 62 78 2c 0a 6f 72 20 | 4d 2d 78 20 78 64 62 2e |dbx,.or |M-x xdb.|
|000034a0| 20 20 45 61 63 68 20 65 | 6e 74 72 79 20 70 6f 69 |  Each e|ntry poi|
|000034b0| 6e 74 20 66 69 6e 69 73 | 68 65 73 20 62 79 20 65 |nt finis|hes by e|
|000034c0| 78 65 63 75 74 69 6e 67 | 20 61 20 68 6f 6f 6b 3b |xecuting| a hook;|
|000034d0| 20 60 67 64 62 2d 6d 6f | 64 65 2d 68 6f 6f 6b 27 | `gdb-mo|de-hook'|
|000034e0| 2c 0a 60 73 64 62 2d 6d | 6f 64 65 2d 68 6f 6f 6b |,.`sdb-m|ode-hook|
|000034f0| 27 2c 20 60 64 62 78 2d | 6d 6f 64 65 2d 68 6f 6f |', `dbx-|mode-hoo|
|00003500| 6b 27 20 6f 72 20 60 78 | 64 62 2d 6d 6f 64 65 2d |k' or `x|db-mode-|
|00003510| 68 6f 6f 6b 27 20 72 65 | 73 70 65 63 74 69 76 65 |hook' re|spective|
|00003520| 6c 79 2e 0a 0a 41 66 74 | 65 72 20 73 74 61 72 74 |ly...Aft|er start|
|00003530| 75 70 2c 20 74 68 65 20 | 66 6f 6c 6c 6f 77 69 6e |up, the |followin|
|00003540| 67 20 63 6f 6d 6d 61 6e | 64 73 20 61 72 65 20 61 |g comman|ds are a|
|00003550| 76 61 69 6c 61 62 6c 65 | 20 69 6e 20 62 6f 74 68 |vailable| in both|
|00003560| 20 74 68 65 20 47 55 44 | 0a 69 6e 74 65 72 61 63 | the GUD|.interac|
|00003570| 74 69 6f 6e 20 62 75 66 | 66 65 72 20 61 6e 64 20 |tion buf|fer and |
|00003580| 61 6e 79 20 73 6f 75 72 | 63 65 20 62 75 66 66 65 |any sour|ce buffe|
|00003590| 72 20 47 55 44 20 76 69 | 73 69 74 73 20 64 75 65 |r GUD vi|sits due|
|000035a0| 20 74 6f 20 61 20 62 72 | 65 61 6b 70 6f 69 6e 74 | to a br|eakpoint|
|000035b0| 20 73 74 6f 70 0a 6f 72 | 20 73 74 65 70 20 6f 70 | stop.or| step op|
|000035c0| 65 72 61 74 69 6f 6e 3a | 0a 0a 5c 5c 5b 67 75 64 |eration:|..\\[gud|
|000035d0| 2d 62 72 65 61 6b 5d 20 | 73 65 74 73 20 61 20 62 |-break] |sets a b|
|000035e0| 72 65 61 6b 70 6f 69 6e | 74 20 61 74 20 74 68 65 |reakpoin|t at the|
|000035f0| 20 63 75 72 72 65 6e 74 | 20 66 69 6c 65 20 61 6e | current| file an|
|00003600| 64 20 6c 69 6e 65 2e 20 | 20 49 6e 20 74 68 65 0a |d line. | In the.|
|00003610| 47 55 44 20 62 75 66 66 | 65 72 2c 20 74 68 65 20 |GUD buff|er, the |
|00003620| 63 75 72 72 65 6e 74 20 | 66 69 6c 65 20 61 6e 64 |current |file and|
|00003630| 20 6c 69 6e 65 20 61 72 | 65 20 74 68 6f 73 65 20 | line ar|e those |
|00003640| 6f 66 20 74 68 65 20 6c | 61 73 74 20 62 72 65 61 |of the l|ast brea|
|00003650| 6b 70 6f 69 6e 74 20 6f | 72 0a 73 74 65 70 2e 20 |kpoint o|r.step. |
|00003660| 20 49 6e 20 61 20 73 6f | 75 72 63 65 20 62 75 66 | In a so|urce buf|
|00003670| 66 65 72 2c 20 74 68 65 | 79 20 61 72 65 20 74 68 |fer, the|y are th|
|00003680| 65 20 62 75 66 66 65 72 | 27 73 20 66 69 6c 65 20 |e buffer|'s file |
|00003690| 61 6e 64 20 63 75 72 72 | 65 6e 74 20 6c 69 6e 65 |and curr|ent line|
|000036a0| 2e 0a 0a 5c 5c 5b 67 75 | 64 2d 72 65 6d 6f 76 65 |...\\[gu|d-remove|
|000036b0| 5d 20 72 65 6d 6f 76 65 | 73 20 62 72 65 61 6b 70 |] remove|s breakp|
|000036c0| 6f 69 6e 74 73 20 6f 6e | 20 74 68 65 20 63 75 72 |oints on| the cur|
|000036d0| 72 65 6e 74 20 66 69 6c | 65 20 61 6e 64 20 6c 69 |rent fil|e and li|
|000036e0| 6e 65 2e 0a 0a 5c 5c 5b | 67 75 64 2d 72 65 66 72 |ne...\\[|gud-refr|
|000036f0| 65 73 68 5d 20 64 69 73 | 70 6c 61 79 73 20 69 6e |esh] dis|plays in|
|00003700| 20 74 68 65 20 73 6f 75 | 72 63 65 20 77 69 6e 64 | the sou|rce wind|
|00003710| 6f 77 20 74 68 65 20 6c | 61 73 74 20 6c 69 6e 65 |ow the l|ast line|
|00003720| 20 72 65 66 65 72 72 65 | 64 20 74 6f 0a 69 6e 20 | referre|d to.in |
|00003730| 74 68 65 20 67 75 64 20 | 62 75 66 66 65 72 2e 0a |the gud |buffer..|
|00003740| 0a 5c 5c 5b 67 75 64 2d | 73 74 65 70 5d 2c 20 5c |.\\[gud-|step], \|
|00003750| 5c 5b 67 75 64 2d 6e 65 | 78 74 5d 2c 20 61 6e 64 |\[gud-ne|xt], and|
|00003760| 20 5c 5c 5b 67 75 64 2d | 73 74 65 70 69 5d 20 64 | \\[gud-|stepi] d|
|00003770| 6f 20 61 20 73 74 65 70 | 2d 6f 6e 65 2d 6c 69 6e |o a step|-one-lin|
|00003780| 65 2c 0a 73 74 65 70 2d | 6f 6e 65 2d 6c 69 6e 65 |e,.step-|one-line|
|00003790| 20 28 6e 6f 74 20 65 6e | 74 65 72 69 6e 67 20 66 | (not en|tering f|
|000037a0| 75 6e 63 74 69 6f 6e 20 | 63 61 6c 6c 73 29 2c 20 |unction |calls), |
|000037b0| 61 6e 64 20 73 74 65 70 | 2d 6f 6e 65 2d 69 6e 73 |and step|-one-ins|
|000037c0| 74 72 75 63 74 69 6f 6e | 0a 61 6e 64 20 74 68 65 |truction|.and the|
|000037d0| 6e 20 75 70 64 61 74 65 | 20 74 68 65 20 73 6f 75 |n update| the sou|
|000037e0| 72 63 65 20 77 69 6e 64 | 6f 77 20 77 69 74 68 20 |rce wind|ow with |
|000037f0| 74 68 65 20 63 75 72 72 | 65 6e 74 20 66 69 6c 65 |the curr|ent file|
|00003800| 20 61 6e 64 20 70 6f 73 | 69 74 69 6f 6e 2e 0a 5c | and pos|ition..\|
|00003810| 5c 5b 67 75 64 2d 63 6f | 6e 74 5d 20 63 6f 6e 74 |\[gud-co|nt] cont|
|00003820| 69 6e 75 65 73 20 65 78 | 65 63 75 74 69 6f 6e 2e |inues ex|ecution.|
|00003830| 0a 0a 5c 5c 5b 67 75 64 | 2d 70 72 69 6e 74 5d 20 |..\\[gud|-print] |
|00003840| 74 72 69 65 73 20 74 6f | 20 66 69 6e 64 20 74 68 |tries to| find th|
|00003850| 65 20 6c 61 72 67 65 73 | 74 20 43 20 6c 76 61 6c |e larges|t C lval|
|00003860| 75 65 20 6f 72 20 66 75 | 6e 63 74 69 6f 6e 2d 63 |ue or fu|nction-c|
|00003870| 61 6c 6c 20 65 78 70 72 | 65 73 73 69 6f 6e 0a 61 |all expr|ession.a|
|00003880| 72 6f 75 6e 64 20 70 6f | 69 6e 74 2c 20 61 6e 64 |round po|int, and|
|00003890| 20 73 65 6e 64 73 20 69 | 74 20 74 6f 20 74 68 65 | sends i|t to the|
|000038a0| 20 64 65 62 75 67 67 65 | 72 20 66 6f 72 20 76 61 | debugge|r for va|
|000038b0| 6c 75 65 20 64 69 73 70 | 6c 61 79 2e 0a 0a 54 68 |lue disp|lay...Th|
|000038c0| 65 20 61 62 6f 76 65 20 | 63 6f 6d 6d 61 6e 64 73 |e above |commands|
|000038d0| 20 61 72 65 20 63 6f 6d | 6d 6f 6e 20 74 6f 20 61 | are com|mon to a|
|000038e0| 6c 6c 20 73 75 70 70 6f | 72 74 65 64 20 64 65 62 |ll suppo|rted deb|
|000038f0| 75 67 67 65 72 73 20 65 | 78 63 65 70 74 20 78 64 |uggers e|xcept xd|
|00003900| 62 20 77 68 69 63 68 0a | 64 6f 65 73 20 6e 6f 74 |b which.|does not|
|00003910| 20 73 75 70 70 6f 72 74 | 20 73 74 65 70 70 69 6e | support| steppin|
|00003920| 67 20 69 6e 73 74 72 75 | 63 74 69 6f 6e 73 2e 0a |g instru|ctions..|
|00003930| 0a 55 6e 64 65 72 20 67 | 64 62 2c 20 73 64 62 20 |.Under g|db, sdb |
|00003940| 61 6e 64 20 78 64 62 2c | 20 5c 5c 5b 67 75 64 2d |and xdb,| \\[gud-|
|00003950| 74 62 72 65 61 6b 5d 20 | 62 65 68 61 76 65 73 20 |tbreak] |behaves |
|00003960| 65 78 61 63 74 6c 79 20 | 6c 69 6b 65 20 5c 5c 5b |exactly |like \\[|
|00003970| 67 75 64 2d 62 72 65 61 | 6b 5d 2c 0a 65 78 63 65 |gud-brea|k],.exce|
|00003980| 70 74 20 74 68 61 74 20 | 74 68 65 20 62 72 65 61 |pt that |the brea|
|00003990| 6b 70 6f 69 6e 74 20 69 | 73 20 74 65 6d 70 6f 72 |kpoint i|s tempor|
|000039a0| 61 72 79 3b 20 74 68 61 | 74 20 69 73 2c 20 69 74 |ary; tha|t is, it|
|000039b0| 20 69 73 20 72 65 6d 6f | 76 65 64 20 77 68 65 6e | is remo|ved when|
|000039c0| 0a 65 78 65 63 75 74 69 | 6f 6e 20 73 74 6f 70 73 |.executi|on stops|
|000039d0| 20 6f 6e 20 69 74 2e 0a | 0a 55 6e 64 65 72 20 67 | on it..|.Under g|
|000039e0| 64 62 2c 20 64 62 78 2c | 20 61 6e 64 20 78 64 62 |db, dbx,| and xdb|
|000039f0| 2c 20 5c 5c 5b 67 75 64 | 2d 75 70 5d 20 70 6f 70 |, \\[gud|-up] pop|
|00003a00| 73 20 75 70 20 74 68 72 | 6f 75 67 68 20 61 6e 20 |s up thr|ough an |
|00003a10| 65 6e 63 6c 6f 73 69 6e | 67 20 73 74 61 63 6b 0a |enclosin|g stack.|
|00003a20| 66 72 61 6d 65 2e 20 20 | 5c 5c 5b 67 75 64 2d 64 |frame.  |\\[gud-d|
|00003a30| 6f 77 6e 5d 20 64 72 6f | 70 73 20 62 61 63 6b 20 |own] dro|ps back |
|00003a40| 64 6f 77 6e 20 74 68 72 | 6f 75 67 68 20 6f 6e 65 |down thr|ough one|
|00003a50| 2e 0a 0a 49 66 20 79 6f | 75 20 61 72 65 20 75 73 |...If yo|u are us|
|00003a60| 69 6e 67 20 67 64 62 20 | 6f 72 20 78 64 62 2c 20 |ing gdb |or xdb, |
|00003a70| 5c 5c 5b 67 75 64 2d 66 | 69 6e 69 73 68 5d 20 72 |\\[gud-f|inish] r|
|00003a80| 75 6e 73 20 65 78 65 63 | 75 74 69 6f 6e 20 74 6f |uns exec|ution to|
|00003a90| 20 74 68 65 20 72 65 74 | 75 72 6e 20 66 72 6f 6d | the ret|urn from|
|00003aa0| 0a 74 68 65 20 63 75 72 | 72 65 6e 74 20 66 75 6e |.the cur|rent fun|
|00003ab0| 63 74 69 6f 6e 20 61 6e | 64 20 73 74 6f 70 73 2e |ction an|d stops.|
|00003ac0| 0a 0a 41 6c 6c 20 74 68 | 65 20 6b 65 79 73 74 72 |..All th|e keystr|
|00003ad0| 6f 6b 65 73 20 61 62 6f | 76 65 20 61 72 65 20 61 |okes abo|ve are a|
|00003ae0| 63 63 65 73 73 69 62 6c | 65 20 69 6e 20 74 68 65 |ccessibl|e in the|
|00003af0| 20 47 55 44 20 62 75 66 | 66 65 72 0a 77 69 74 68 | GUD buf|fer.with|
|00003b00| 20 74 68 65 20 70 72 65 | 66 69 78 20 43 2d 63 2c | the pre|fix C-c,|
|00003b10| 20 61 6e 64 20 69 6e 20 | 61 6c 6c 20 62 75 66 66 | and in |all buff|
|00003b20| 65 72 73 20 74 68 72 6f | 75 67 68 20 74 68 65 20 |ers thro|ugh the |
|00003b30| 70 72 65 66 69 78 20 43 | 2d 78 20 43 2d 61 2e 0a |prefix C|-x C-a..|
|00003b40| 0a 41 6c 6c 20 70 72 65 | 2d 64 65 66 69 6e 65 64 |.All pre|-defined|
|00003b50| 20 66 75 6e 63 74 69 6f | 6e 73 20 66 6f 72 20 77 | functio|ns for w|
|00003b60| 68 69 63 68 20 74 68 65 | 20 63 6f 6e 63 65 70 74 |hich the| concept|
|00003b70| 20 6d 61 6b 65 20 73 65 | 6e 73 65 20 72 65 70 65 | make se|nse repe|
|00003b80| 61 74 0a 74 68 65 6d 73 | 65 6c 76 65 73 20 74 68 |at.thems|elves th|
|00003b90| 65 20 61 70 70 72 6f 70 | 72 69 61 74 65 20 6e 75 |e approp|riate nu|
|00003ba0| 6d 62 65 72 20 6f 66 20 | 74 69 6d 65 73 20 69 66 |mber of |times if|
|00003bb0| 20 79 6f 75 20 67 69 76 | 65 20 61 20 70 72 65 66 | you giv|e a pref|
|00003bc0| 69 78 0a 61 72 67 75 6d | 65 6e 74 2e 0a 0a 59 6f |ix.argum|ent...Yo|
|00003bd0| 75 20 6d 61 79 20 75 73 | 65 20 74 68 65 20 60 67 |u may us|e the `g|
|00003be0| 75 64 2d 64 65 66 27 20 | 6d 61 63 72 6f 20 69 6e |ud-def' |macro in|
|00003bf0| 20 74 68 65 20 69 6e 69 | 74 69 61 6c 69 7a 61 74 | the ini|tializat|
|00003c00| 69 6f 6e 20 68 6f 6f 6b | 20 74 6f 20 64 65 66 69 |ion hook| to defi|
|00003c10| 6e 65 20 6f 74 68 65 72 | 0a 63 6f 6d 6d 61 6e 64 |ne other|.command|
|00003c20| 73 2e 0a 0a 4f 74 68 65 | 72 20 63 6f 6d 6d 61 6e |s...Othe|r comman|
|00003c30| 64 73 20 66 6f 72 20 69 | 6e 74 65 72 61 63 74 69 |ds for i|nteracti|
|00003c40| 6e 67 20 77 69 74 68 20 | 74 68 65 20 64 65 62 75 |ng with |the debu|
|00003c50| 67 67 65 72 20 70 72 6f | 63 65 73 73 20 61 72 65 |gger pro|cess are|
|00003c60| 20 69 6e 68 65 72 69 74 | 65 64 20 66 72 6f 6d 0a | inherit|ed from.|
|00003c70| 63 6f 6d 69 6e 74 20 6d | 6f 64 65 2c 20 77 68 69 |comint m|ode, whi|
|00003c80| 63 68 20 73 65 65 2e 22 | 20 6e 69 6c 5d 29 0a 28 |ch see."| nil]).(|
|00003c90| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 21 84 08 |byte-cod|e "..!..|
|00003ca0| 00 c2 11 c3 c4 c5 5c 22 | 88 c3 c6 c7 5c 22 88 c3 |......\"|....\"..|
|00003cb0| c8 c9 5c 22 88 c3 ca cb | 5c 22 87 22 20 5b 62 6f |..\"....|\"." [bo|
|00003cc0| 75 6e 64 70 20 67 75 64 | 2d 63 6f 6d 69 6e 74 2d |undp gud|-comint-|
|00003cd0| 62 75 66 66 65 72 20 6e | 69 6c 20 64 65 66 61 6c |buffer n|il defal|
|00003ce0| 69 61 73 20 67 75 64 2d | 63 6f 6d 6d 6f 6e 2d 69 |ias gud-|common-i|
|00003cf0| 6e 69 74 20 23 5b 28 61 | 72 67 73 29 20 22 c0 89 |nit #[(a|rgs) "..|
|00003d00| 19 1a 0b c4 98 83 0f 00 | c0 13 82 56 00 8a c5 c6 |........|...V....|
|00003d10| 21 71 88 c7 20 88 0b 63 | 88 64 62 88 c8 63 88 65 |!q.. ..c|.db..c.e|
|00003d20| 62 88 c9 63 88 ca cb c0 | cc 23 83 38 00 cd ce c0 |b..c....|.#.8....|
|00003d30| 89 23 88 82 27 00 65 62 | 88 ca cf c0 cc 23 83 4c |.#..'.eb|.....#.L|
|00003d40| 00 cd c4 c0 89 23 88 82 | 3b 00 d0 d1 20 21 13 d2 |.....#..|;... !..|
|00003d50| 70 21 88 29 0b 47 53 89 | 11 d3 59 83 75 00 09 0b |p!.).GS.|..Y.u...|
|00003d60| 38 d3 48 d4 55 84 75 00 | 09 0b 38 12 09 53 89 11 |8.H.U.u.|..8..S..|
|00003d70| 82 5b 00 d5 5c 6e 21 1e | 16 d7 0e 16 21 1e 18 d9 |.[..\n!.|....!...|
|00003d80| da 0e 18 db 51 21 88 dc | 0e 16 21 16 1d 6e 84 95 |....Q!..|..!..n..|
|00003d90| 00 de 20 88 df 0e 1d e0 | b1 03 88 e1 0e 18 0b 5c |.. .....|.......\|
|00003da0| 22 88 2c e2 20 88 e3 e4 | 70 21 e5 5c 22 88 e6 e4 |".,. ...|p!.\"...|
|00003db0| 70 21 e7 5c 22 88 e8 20 | 87 22 20 5b 6e 69 6c 20 |p!.\".. |." [nil |
|00003dc0| 69 20 66 69 6c 65 20 61 | 72 67 73 20 22 22 20 67 |i file a|rgs "" g|
|00003dd0| 65 74 2d 62 75 66 66 65 | 72 2d 63 72 65 61 74 65 |et-buffe|r-create|
|00003de0| 20 22 2a 67 75 64 2d 73 | 63 72 61 74 63 68 2a 22 | "*gud-s|cratch*"|
|00003df0| 20 65 72 61 73 65 2d 62 | 75 66 66 65 72 20 22 5c | erase-b|uffer "\|
|00003e00| 22 29 22 20 22 28 5c 22 | 22 20 72 65 2d 73 65 61 |")" "(\"|" re-sea|
|00003e10| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 22 20 2b 22 |rch-forw|ard " +"|
|00003e20| 20 74 20 72 65 70 6c 61 | 63 65 2d 6d 61 74 63 68 | t repla|ce-match|
|00003e30| 20 22 5c 22 20 5c 22 22 | 20 22 5c 22 5c 22 22 20 | "\" \""| "\"\"" |
|00003e40| 72 65 61 64 20 62 75 66 | 66 65 72 2d 73 74 72 69 |read buf|fer-stri|
|00003e50| 6e 67 20 6b 69 6c 6c 2d | 62 75 66 66 65 72 20 30 |ng kill-|buffer 0|
|00003e60| 20 34 35 20 65 78 70 61 | 6e 64 2d 66 69 6c 65 2d | 45 expa|nd-file-|
|00003e70| 6e 61 6d 65 20 70 61 74 | 68 20 66 69 6c 65 2d 6e |name pat|h file-n|
|00003e80| 61 6d 65 2d 6e 6f 6e 64 | 69 72 65 63 74 6f 72 79 |ame-nond|irectory|
|00003e90| 20 66 69 6c 65 70 61 72 | 74 20 73 77 69 74 63 68 | filepar|t switch|
|00003ea0| 2d 74 6f 2d 62 75 66 66 | 65 72 20 22 2a 67 75 64 |-to-buff|er "*gud|
|00003eb0| 2d 22 20 22 2a 22 20 66 | 69 6c 65 2d 6e 61 6d 65 |-" "*" f|ile-name|
|00003ec0| 2d 64 69 72 65 63 74 6f | 72 79 20 64 65 66 61 75 |-directo|ry defau|
|00003ed0| 6c 74 2d 64 69 72 65 63 | 74 6f 72 79 20 6e 65 77 |lt-direc|tory new|
|00003ee0| 6c 69 6e 65 20 22 43 75 | 72 72 65 6e 74 20 64 69 |line "Cu|rrent di|
|00003ef0| 72 65 63 74 6f 72 79 20 | 69 73 20 22 20 22 5c 6e |rectory |is " "\n|
|00003f00| 22 20 67 75 64 2d 64 65 | 62 75 67 67 65 72 2d 73 |" gud-de|bugger-s|
|00003f10| 74 61 72 74 75 70 20 67 | 75 64 2d 6d 6f 64 65 20 |tartup g|ud-mode |
|00003f20| 73 65 74 2d 70 72 6f 63 | 65 73 73 2d 66 69 6c 74 |set-proc|ess-filt|
|00003f30| 65 72 20 67 65 74 2d 62 | 75 66 66 65 72 2d 70 72 |er get-b|uffer-pr|
|00003f40| 6f 63 65 73 73 20 67 75 | 64 2d 66 69 6c 74 65 72 |ocess gu|d-filter|
|00003f50| 20 73 65 74 2d 70 72 6f | 63 65 73 73 2d 73 65 6e | set-pro|cess-sen|
|00003f60| 74 69 6e 65 6c 20 67 75 | 64 2d 73 65 6e 74 69 6e |tinel gu|d-sentin|
|00003f70| 65 6c 20 67 75 64 2d 73 | 65 74 2d 62 75 66 66 65 |el gud-s|et-buffe|
|00003f80| 72 5d 20 35 5d 20 67 75 | 64 2d 73 65 74 2d 62 75 |r] 5] gu|d-set-bu|
|00003f90| 66 66 65 72 20 23 5b 6e | 69 6c 20 22 08 c1 3d 85 |ffer #[n|il "..=.|
|00003fa0| 09 00 70 89 12 87 22 20 | 5b 6d 61 6a 6f 72 2d 6d |..p..." |[major-m|
|00003fb0| 6f 64 65 20 67 75 64 2d | 6d 6f 64 65 20 67 75 64 |ode gud-|mode gud|
|00003fc0| 2d 63 6f 6d 69 6e 74 2d | 62 75 66 66 65 72 5d 20 |-comint-|buffer] |
|00003fd0| 32 5d 20 67 75 64 2d 66 | 69 6c 74 65 72 20 23 5b |2] gud-f|ilter #[|
|00003fe0| 28 70 72 6f 63 20 73 74 | 72 69 6e 67 29 20 22 c0 |(proc st|ring) ".|
|00003ff0| 19 8a c2 0b 21 71 88 c4 | 89 1d 1e 06 8a c7 0b 21 |....!q..|.......!|
|00004000| 62 88 c8 0e 09 21 83 25 | 00 60 0e 09 7c 88 0e 09 |b....!.%|.`..|...|
|00004010| c4 89 93 88 ca cb 0e 0c | 21 21 88 60 c7 0b 21 55 |........|!!.`..!U|
|00004020| 16 06 60 c7 0b 21 57 15 | 0e 0d 83 4b 00 0d 84 4b |..`..!W.|...K...K|
|00004030| 00 ce 70 21 83 4b 00 cf | 20 88 29 0e 06 85 55 00 |..p!.K..| .)...U.|
|00004040| c7 0b 21 62 2c 87 22 20 | 5b 74 20 69 6e 68 69 62 |..!b,." |[t inhib|
|00004050| 69 74 2d 71 75 69 74 20 | 70 72 6f 63 65 73 73 2d |it-quit |process-|
|00004060| 62 75 66 66 65 72 20 70 | 72 6f 63 20 6e 69 6c 20 |buffer p|roc nil |
|00004070| 6f 75 74 70 75 74 2d 61 | 66 74 65 72 2d 70 6f 69 |output-a|fter-poi|
|00004080| 6e 74 20 6d 6f 76 69 6e | 67 20 70 72 6f 63 65 73 |nt movin|g proces|
|00004090| 73 2d 6d 61 72 6b 20 6d | 61 72 6b 65 72 2d 62 75 |s-mark m|arker-bu|
|000040a0| 66 66 65 72 20 67 75 64 | 2d 64 65 6c 65 74 65 2d |ffer gud|-delete-|
|000040b0| 70 72 6f 6d 70 74 2d 6d | 61 72 6b 65 72 20 69 6e |prompt-m|arker in|
|000040c0| 73 65 72 74 2d 62 65 66 | 6f 72 65 2d 6d 61 72 6b |sert-bef|ore-mark|
|000040d0| 65 72 73 20 67 75 64 2d | 6d 61 72 6b 65 72 2d 66 |ers gud-|marker-f|
|000040e0| 69 6c 74 65 72 20 73 74 | 72 69 6e 67 20 67 75 64 |ilter st|ring gud|
|000040f0| 2d 6c 61 73 74 2d 66 72 | 61 6d 65 20 67 65 74 2d |-last-fr|ame get-|
|00004100| 62 75 66 66 65 72 2d 77 | 69 6e 64 6f 77 20 67 75 |buffer-w|indow gu|
|00004110| 64 2d 64 69 73 70 6c 61 | 79 2d 66 72 61 6d 65 5d |d-displa|y-frame]|
|00004120| 20 33 5d 20 67 75 64 2d | 73 65 6e 74 69 6e 65 6c | 3] gud-|sentinel|
|00004130| 20 23 5b 28 70 72 6f 63 | 20 6d 73 67 29 20 22 c0 | #[(proc| msg) ".|
|00004140| c1 5c 6e 21 21 84 0f 00 | c3 14 c5 5c 6e c3 5c 22 |.\n!!...|...\n.\"|
|00004150| 87 c6 5c 6e 21 c7 3e 85 | 53 00 c3 14 c8 c9 c6 5c |..\n!.>.|S......\|
|00004160| 6e 21 21 50 16 5c 6e 70 | 1e 0b cc 8e c1 5c 6e 21 |n!!P.\np|.....\n!|
|00004170| 71 88 cd ce 20 21 88 6d | 83 41 00 cf 0e 10 d1 0e |q... !.m|.A......|
|00004180| 12 b1 04 88 82 4f 00 8a | 64 62 88 cf 0e 10 d1 0e |.....O..|db......|
|00004190| 12 b1 04 88 29 d3 5c 6e | 21 2a 87 22 20 5b 62 75 |....).\n|!*." [bu|
|000041a0| 66 66 65 72 2d 6e 61 6d | 65 20 70 72 6f 63 65 73 |ffer-nam|e proces|
|000041b0| 73 2d 62 75 66 66 65 72 | 20 70 72 6f 63 20 6e 69 |s-buffer| proc ni|
|000041c0| 6c 20 6f 76 65 72 6c 61 | 79 2d 61 72 72 6f 77 2d |l overla|y-arrow-|
|000041d0| 70 6f 73 69 74 69 6f 6e | 20 73 65 74 2d 70 72 6f |position| set-pro|
|000041e0| 63 65 73 73 2d 62 75 66 | 66 65 72 20 70 72 6f 63 |cess-buf|fer proc|
|000041f0| 65 73 73 2d 73 74 61 74 | 75 73 20 28 73 69 67 6e |ess-stat|us (sign|
|00004200| 61 6c 20 65 78 69 74 29 | 20 22 3a 20 22 20 73 79 |al exit)| ": " sy|
|00004210| 6d 62 6f 6c 2d 6e 61 6d | 65 20 6d 6f 64 65 2d 6c |mbol-nam|e mode-l|
|00004220| 69 6e 65 2d 70 72 6f 63 | 65 73 73 20 6f 62 75 66 |ine-proc|ess obuf|
|00004230| 20 28 28 73 65 74 2d 62 | 75 66 66 65 72 20 6f 62 | ((set-b|uffer ob|
|00004240| 75 66 29 29 20 73 65 74 | 2d 62 75 66 66 65 72 2d |uf)) set|-buffer-|
|00004250| 6d 6f 64 69 66 69 65 64 | 2d 70 20 62 75 66 66 65 |modified|-p buffe|
|00004260| 72 2d 6d 6f 64 69 66 69 | 65 64 2d 70 20 31 30 20 |r-modifi|ed-p 10 |
|00004270| 6d 6f 64 65 2d 6e 61 6d | 65 20 22 20 22 20 6d 73 |mode-nam|e " " ms|
|00004280| 67 20 64 65 6c 65 74 65 | 2d 70 72 6f 63 65 73 73 |g delete|-process|
|00004290| 5d 20 34 5d 5d 20 33 29 | 0a 28 64 65 66 61 6c 69 |] 4]] 3)|.(defali|
|000042a0| 61 73 20 27 67 75 64 2d | 64 69 73 70 6c 61 79 2d |as 'gud-|display-|
|000042b0| 66 72 61 6d 65 20 23 5b | 6e 69 6c 20 22 08 85 13 |frame #[|nil "...|
|000042c0| 00 c1 20 88 c2 08 40 08 | 41 5c 22 88 08 13 c4 89 |.. ...@.|A\".....|
|000042d0| 10 87 22 20 5b 67 75 64 | 2d 6c 61 73 74 2d 66 72 |.." [gud|-last-fr|
|000042e0| 61 6d 65 20 67 75 64 2d | 73 65 74 2d 62 75 66 66 |ame gud-|set-buff|
|000042f0| 65 72 20 67 75 64 2d 64 | 69 73 70 6c 61 79 2d 6c |er gud-d|isplay-l|
|00004300| 69 6e 65 20 67 75 64 2d | 6c 61 73 74 2d 6c 61 73 |ine gud-|last-las|
|00004310| 74 2d 66 72 61 6d 65 20 | 6e 69 6c 5d 20 33 20 22 |t-frame |nil] 3 "|
|00004320| 5c 0a 46 69 6e 64 20 61 | 6e 64 20 6f 62 65 79 20 |\.Find a|nd obey |
|00004330| 74 68 65 20 6c 61 73 74 | 20 66 69 6c 65 6e 61 6d |the last| filenam|
|00004340| 65 2d 61 6e 64 2d 6c 69 | 6e 65 20 6d 61 72 6b 65 |e-and-li|ne marke|
|00004350| 72 20 66 72 6f 6d 20 74 | 68 65 20 64 65 62 75 67 |r from t|he debug|
|00004360| 67 65 72 2e 0a 4f 62 65 | 79 69 6e 67 20 69 74 20 |ger..Obe|ying it |
|00004370| 6d 65 61 6e 73 20 64 69 | 73 70 6c 61 79 69 6e 67 |means di|splaying|
|00004380| 20 69 6e 20 61 6e 6f 74 | 68 65 72 20 77 69 6e 64 | in anot|her wind|
|00004390| 6f 77 20 74 68 65 20 73 | 70 65 63 69 66 69 65 64 |ow the s|pecified|
|000043a0| 20 66 69 6c 65 20 61 6e | 64 20 6c 69 6e 65 2e 22 | file an|d line."|
|000043b0| 20 6e 69 6c 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 | nil]).(|byte-cod|
|000043c0| 65 20 22 c0 c1 c2 5c 22 | 88 c0 c3 c4 5c 22 87 22 |e "...\"|....\"."|
|000043d0| 20 5b 64 65 66 61 6c 69 | 61 73 20 67 75 64 2d 64 | [defali|as gud-d|
|000043e0| 69 73 70 6c 61 79 2d 6c | 69 6e 65 20 23 5b 28 74 |isplay-l|ine #[(t|
|000043f0| 72 75 65 2d 66 69 6c 65 | 20 6c 69 6e 65 29 20 22 |rue-file| line) "|
|00004400| c0 09 21 1a c3 5c 6e 21 | 1c c5 1e 06 8a 5c 6e 71 |..!..\n!|.....\nq|
|00004410| 88 8c 7e 88 c7 0e 08 21 | 88 60 16 06 c9 16 5c 6e |..~....!|.`....\n|
|00004420| 0e 0b 84 26 00 cc 20 16 | 0b 0e 0b 60 70 93 88 29 |...&.. .|...`p..)|
|00004430| 0e 06 65 57 84 3b 00 0e | 06 64 56 83 41 00 7e 88 |..eW.;..|.dV.A.~.|
|00004440| 0e 06 62 88 29 cd 0c 0e | 0b 5c 22 2b 87 22 20 5b |..b.)...|.\"+." [|
|00004450| 67 75 64 2d 66 69 6e 64 | 2d 66 69 6c 65 20 74 72 |gud-find|-file tr|
|00004460| 75 65 2d 66 69 6c 65 20 | 62 75 66 66 65 72 20 64 |ue-file |buffer d|
|00004470| 69 73 70 6c 61 79 2d 62 | 75 66 66 65 72 20 77 69 |isplay-b|uffer wi|
|00004480| 6e 64 6f 77 20 6e 69 6c | 20 70 6f 73 20 67 6f 74 |ndow nil| pos got|
|00004490| 6f 2d 6c 69 6e 65 20 6c | 69 6e 65 20 22 3d 3e 22 |o-line l|ine "=>"|
|000044a0| 20 6f 76 65 72 6c 61 79 | 2d 61 72 72 6f 77 2d 73 | overlay|-arrow-s|
|000044b0| 74 72 69 6e 67 20 6f 76 | 65 72 6c 61 79 2d 61 72 |tring ov|erlay-ar|
|000044c0| 72 6f 77 2d 70 6f 73 69 | 74 69 6f 6e 20 6d 61 6b |row-posi|tion mak|
|000044d0| 65 2d 6d 61 72 6b 65 72 | 20 73 65 74 2d 77 69 6e |e-marker| set-win|
|000044e0| 64 6f 77 2d 70 6f 69 6e | 74 5d 20 33 5d 20 67 75 |dow-poin|t] 3] gu|
|000044f0| 64 2d 66 6f 72 6d 61 74 | 2d 63 6f 6d 6d 61 6e 64 |d-format|-command|
|00004500| 20 23 5b 28 73 74 72 20 | 61 72 67 29 20 22 70 08 | #[(str |arg) "p.|
|00004510| 3d 3f 19 c2 c3 0c 5c 22 | 83 28 00 0c c5 94 c5 95 |=?....\"|.(......|
|00004520| 4f c6 09 83 1c 00 c7 20 | 82 1f 00 0e 08 40 21 0c |O...... |.....@!.|
|00004530| c9 94 c9 95 4f 51 14 c2 | ca 0c 5c 22 83 54 00 0c |....OQ..|..\".T..|
|00004540| c5 94 c5 95 4f 09 83 49 | 00 8a cb 79 88 8c 7e 88 |....O..I|...y..~.|
|00004550| cc c5 60 5c 22 54 2a 82 | 4c 00 0e 08 41 0c c9 94 |..`\"T*.|L...A...|
|00004560| c9 95 4f 51 14 c2 cd 0c | 5c 22 83 6b 00 0c c5 94 |..OQ....|\".k....|
|00004570| c5 95 4f ce 20 0c c9 94 | c9 95 4f 51 14 c2 cf 0c |..O. ...|..OQ....|
|00004580| 5c 22 83 82 00 0c c5 94 | c5 95 4f d0 20 0c c9 94 |\"......|..O. ...|
|00004590| c9 95 4f 51 14 c2 d1 0c | 5c 22 83 a4 00 0c c5 94 |..OQ....|\"......|
|000045a0| c5 95 4f 0e 12 83 9b 00 | d3 0e 12 21 82 9c 00 d4 |..O.....|...!....|
|000045b0| 0c c9 94 c9 95 4f 51 14 | 29 0c 87 22 20 5b 67 75 |.....OQ.|).." [gu|
|000045c0| 64 2d 63 6f 6d 69 6e 74 | 2d 62 75 66 66 65 72 20 |d-comint|-buffer |
|000045d0| 69 6e 73 6f 75 72 63 65 | 20 73 74 72 69 6e 67 2d |insource| string-|
|000045e0| 6d 61 74 63 68 20 22 5c | 5c 28 2e 2a 5c 5c 29 25 |match "\|\(.*\\)%|
|000045f0| 66 5c 5c 28 2e 2a 5c 5c | 29 22 20 73 74 72 20 31 |f\\(.*\\|)" str 1|
|00004600| 20 66 69 6c 65 2d 6e 61 | 6d 65 2d 6e 6f 6e 64 69 | file-na|me-nondi|
|00004610| 72 65 63 74 6f 72 79 20 | 62 75 66 66 65 72 2d 66 |rectory |buffer-f|
|00004620| 69 6c 65 2d 6e 61 6d 65 | 20 67 75 64 2d 6c 61 73 |ile-name| gud-las|
|00004630| 74 2d 66 72 61 6d 65 20 | 32 20 22 5c 5c 28 2e 2a |t-frame |2 "\\(.*|
|00004640| 5c 5c 29 25 6c 5c 5c 28 | 2e 2a 5c 5c 29 22 20 30 |\\)%l\\(|.*\\)" 0|
|00004650| 20 63 6f 75 6e 74 2d 6c | 69 6e 65 73 20 22 5c 5c | count-l|ines "\\|
|00004660| 28 2e 2a 5c 5c 29 25 65 | 5c 5c 28 2e 2a 5c 5c 29 |(.*\\)%e|\\(.*\\)|
|00004670| 22 20 66 69 6e 64 2d 63 | 2d 65 78 70 72 20 22 5c |" find-c|-expr "\|
|00004680| 5c 28 2e 2a 5c 5c 29 25 | 61 5c 5c 28 2e 2a 5c 5c |\(.*\\)%|a\\(.*\\|
|00004690| 29 22 20 67 75 64 2d 72 | 65 61 64 2d 61 64 64 72 |)" gud-r|ead-addr|
|000046a0| 65 73 73 20 22 5c 5c 28 | 2e 2a 5c 5c 29 25 70 5c |ess "\\(|.*\\)%p\|
|000046b0| 5c 28 2e 2a 5c 5c 29 22 | 20 61 72 67 20 69 6e 74 |\(.*\\)"| arg int|
|000046c0| 2d 74 6f 2d 73 74 72 69 | 6e 67 20 22 22 5d 20 35 |-to-stri|ng ""] 5|
|000046d0| 5d 5d 20 33 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |]] 3).(d|efalias |
|000046e0| 27 67 75 64 2d 72 65 61 | 64 2d 61 64 64 72 65 73 |'gud-rea|d-addres|
|000046f0| 73 20 23 5b 6e 69 6c 20 | 22 8a 60 c0 89 19 1a 1b |s #[nil |".`.....|
|00004700| c4 c5 0b c6 5a c7 23 85 | 12 00 60 89 12 83 27 00 |....Z.#.|..`...'.|
|00004710| c8 75 88 5c 6e c9 ca 21 | 88 cb 75 88 60 7b 82 3d |.u.\n..!|..u.`{.=|
|00004720| 00 cc cd 21 88 ce 75 88 | 60 11 ce 75 88 c9 cd 21 |...!..u.|`..u...!|
|00004730| 88 cb 75 88 09 60 7b 2c | 87 22 20 5b 6e 69 6c 20 |..u..`{,|." [nil |
|00004740| 62 65 67 69 6e 20 66 6f | 75 6e 64 20 70 74 20 73 |begin fo|und pt s|
|00004750| 65 61 72 63 68 2d 62 61 | 63 6b 77 61 72 64 20 22 |earch-ba|ckward "|
|00004760| 30 78 22 20 37 20 74 20 | 32 20 72 65 2d 73 65 61 |0x" 7 t |2 re-sea|
|00004770| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 22 5b 5e 30 |rch-forw|ard "[^0|
|00004780| 2d 39 61 2d 66 5d 22 20 | 2d 31 20 72 65 2d 73 65 |-9a-f]" |-1 re-se|
|00004790| 61 72 63 68 2d 62 61 63 | 6b 77 61 72 64 20 22 5b |arch-bac|kward "[|
|000047a0| 5e 30 2d 39 5d 22 20 31 | 5d 20 35 20 22 5c 0a 52 |^0-9]" 1|] 5 "\.R|
|000047b0| 65 74 75 72 6e 20 61 20 | 73 74 72 69 6e 67 20 63 |eturn a |string c|
|000047c0| 6f 6e 74 61 69 6e 69 6e | 67 20 74 68 65 20 63 6f |ontainin|g the co|
|000047d0| 72 65 2d 61 64 64 72 65 | 73 73 20 66 6f 75 6e 64 |re-addre|ss found|
|000047e0| 20 69 6e 20 74 68 65 20 | 62 75 66 66 65 72 20 61 | in the |buffer a|
|000047f0| 74 20 70 6f 69 6e 74 2e | 22 5d 29 0a 28 64 65 66 |t point.|"]).(def|
|00004800| 61 6c 69 61 73 20 28 71 | 75 6f 74 65 20 67 75 64 |alias (q|uote gud|
|00004810| 2d 63 61 6c 6c 29 20 23 | 5b 28 66 6d 74 20 26 6f |-call) #|[(fmt &o|
|00004820| 70 74 69 6f 6e 61 6c 20 | 61 72 67 29 20 22 c0 09 |ptional |arg) "..|
|00004830| 5c 6e 5c 22 1b c4 c5 0b | 5c 22 88 c6 c7 21 88 c8 |\n\"....|\"...!..|
|00004840| 0b 21 29 87 22 20 5b 67 | 75 64 2d 66 6f 72 6d 61 |.!)." [g|ud-forma|
|00004850| 74 2d 63 6f 6d 6d 61 6e | 64 20 66 6d 74 20 61 72 |t-comman|d fmt ar|
|00004860| 67 20 6d 73 67 20 6d 65 | 73 73 61 67 65 20 22 43 |g msg me|ssage "C|
|00004870| 6f 6d 6d 61 6e 64 3a 20 | 25 73 22 20 73 69 74 2d |ommand: |%s" sit-|
|00004880| 66 6f 72 20 30 20 67 75 | 64 2d 62 61 73 69 63 2d |for 0 gu|d-basic-|
|00004890| 63 61 6c 6c 5d 20 33 5d | 29 0a 28 64 65 66 61 6c |call] 3]|).(defal|
|000048a0| 69 61 73 20 27 67 75 64 | 2d 62 61 73 69 63 2d 63 |ias 'gud|-basic-c|
|000048b0| 61 6c 6c 20 23 5b 28 63 | 6f 6d 6d 61 6e 64 29 20 |all #[(c|ommand) |
|000048c0| 22 c0 20 88 09 c2 50 c3 | 0c 21 1d 19 8a 0c 71 88 |". ...P.|.!....q.|
|000048d0| c6 0d 21 62 88 c7 79 88 | c8 0e 09 21 83 24 00 0e |..!b..y.|...!.$..|
|000048e0| 5c 6e 60 cb 93 88 29 cc | 0d 09 5c 22 2a 87 22 20 |\n`...).|..\"*." |
|000048f0| 5b 67 75 64 2d 73 65 74 | 2d 62 75 66 66 65 72 20 |[gud-set|-buffer |
|00004900| 63 6f 6d 6d 61 6e 64 20 | 22 5c 6e 22 20 67 65 74 |command |"\n" get|
|00004910| 2d 62 75 66 66 65 72 2d | 70 72 6f 63 65 73 73 20 |-buffer-|process |
|00004920| 67 75 64 2d 63 6f 6d 69 | 6e 74 2d 62 75 66 66 65 |gud-comi|nt-buffe|
|00004930| 72 20 70 72 6f 63 20 70 | 72 6f 63 65 73 73 2d 6d |r proc p|rocess-m|
|00004940| 61 72 6b 20 30 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |ark 0 lo|oking-at|
|00004950| 20 63 6f 6d 69 6e 74 2d | 70 72 6f 6d 70 74 2d 72 | comint-|prompt-r|
|00004960| 65 67 65 78 70 20 67 75 | 64 2d 64 65 6c 65 74 65 |egexp gu|d-delete|
|00004970| 2d 70 72 6f 6d 70 74 2d | 6d 61 72 6b 65 72 20 6e |-prompt-|marker n|
|00004980| 69 6c 20 70 72 6f 63 65 | 73 73 2d 73 65 6e 64 2d |il proce|ss-send-|
|00004990| 73 74 72 69 6e 67 5d 20 | 33 20 22 5c 0a 49 6e 76 |string] |3 "\.Inv|
|000049a0| 6f 6b 65 20 74 68 65 20 | 64 65 62 75 67 67 65 72 |oke the |debugger|
|000049b0| 20 43 4f 4d 4d 41 4e 44 | 20 64 69 73 70 6c 61 79 | COMMAND| display|
|000049c0| 69 6e 67 20 73 6f 75 72 | 63 65 20 69 6e 20 6f 74 |ing sour|ce in ot|
|000049d0| 68 65 72 20 77 69 6e 64 | 6f 77 2e 22 20 6e 69 6c |her wind|ow." nil|
|000049e0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 67 75 |]).(defa|lias 'gu|
|000049f0| 64 2d 72 65 66 72 65 73 | 68 20 23 5b 28 26 6f 70 |d-refres|h #[(&op|
|00004a00| 74 69 6f 6e 61 6c 20 61 | 72 67 29 20 22 c0 09 21 |tional a|rg) "..!|
|00004a10| 88 5c 6e 84 5c 6e 00 0b | 12 c4 20 87 22 20 5b 72 |.\n.\n..|.. ." [r|
|00004a20| 65 63 65 6e 74 65 72 20 | 61 72 67 20 67 75 64 2d |ecenter |arg gud-|
|00004a30| 6c 61 73 74 2d 66 72 61 | 6d 65 20 67 75 64 2d 6c |last-fra|me gud-l|
|00004a40| 61 73 74 2d 6c 61 73 74 | 2d 66 72 61 6d 65 20 67 |ast-last|-frame g|
|00004a50| 75 64 2d 64 69 73 70 6c | 61 79 2d 66 72 61 6d 65 |ud-displ|ay-frame|
|00004a60| 5d 20 32 20 22 5c 0a 46 | 69 78 20 75 70 20 61 20 |] 2 "\.F|ix up a |
|00004a70| 70 6f 73 73 69 62 6c 79 | 20 67 61 72 62 6c 65 64 |possibly| garbled|
|00004a80| 20 64 69 73 70 6c 61 79 | 2c 20 61 6e 64 20 72 65 | display|, and re|
|00004a90| 64 72 61 77 20 74 68 65 | 20 61 72 72 6f 77 2e 22 |draw the| arrow."|
|00004aa0| 20 22 50 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | "P"]).(|defalias|
|00004ab0| 20 27 66 69 6e 64 2d 63 | 2d 65 78 70 72 20 23 5b | 'find-c|-expr #[|
|00004ac0| 6e 69 6c 20 22 8a c0 89 | 89 19 1a 1b 60 13 c4 20 |nil "...|....`.. |
|00004ad0| 12 c5 20 11 c6 09 5c 6e | 5c 22 83 26 00 09 40 5c |.. ...\n|\".&..@\|
|00004ae0| 6e 41 42 89 12 40 62 88 | c5 20 11 82 0f 00 0b 62 |nAB..@b.|. .....b|
|00004af0| 88 c7 20 11 c6 5c 6e 09 | 5c 22 83 3f 00 5c 6e 40 |.. ..\n.|\".?.\n@|
|00004b00| 09 41 42 12 c7 20 11 82 | 2c 00 5c 6e 40 5c 6e 41 |.AB.. ..|,.\n@\nA|
|00004b10| 7b 2c 87 22 20 5b 6e 69 | 6c 20 74 65 73 74 2d 65 |{,." [ni|l test-e|
|00004b20| 78 70 72 20 65 78 70 72 | 20 70 20 65 78 70 72 2d |xpr expr| p expr-|
|00004b30| 63 75 72 20 65 78 70 72 | 2d 70 72 65 76 20 65 78 |cur expr|-prev ex|
|00004b40| 70 72 2d 63 6f 6d 70 6f | 75 6e 64 20 65 78 70 72 |pr-compo|und expr|
|00004b50| 2d 6e 65 78 74 5d 20 34 | 20 22 5c 0a 52 65 74 75 |-next] 4| "\.Retu|
|00004b60| 72 6e 73 20 74 68 65 20 | 43 20 65 78 70 72 20 74 |rns the |C expr t|
|00004b70| 68 61 74 20 73 75 72 72 | 6f 75 6e 64 73 20 70 6f |hat surr|ounds po|
|00004b80| 69 6e 74 2e 22 20 6e 69 | 6c 5d 29 0a 28 64 65 66 |int." ni|l]).(def|
|00004b90| 61 6c 69 61 73 20 27 65 | 78 70 72 2d 63 75 72 20 |alias 'e|xpr-cur |
|00004ba0| 23 5b 6e 69 6c 20 22 60 | c0 89 19 1a 1b c4 20 88 |#[nil "`|...... .|
|00004bb0| 60 12 c5 20 88 60 11 0b | 09 59 83 20 00 0b 12 0b |`.. .`..|.Y. ....|
|00004bc0| 62 88 c5 20 88 60 11 5c | 6e 62 88 5c 6e 09 2b 42 |b.. .`.\|nb.\n.+B|
|00004bd0| 87 22 20 5b 6e 69 6c 20 | 65 6e 64 20 62 65 67 69 |." [nil |end begi|
|00004be0| 6e 20 70 20 65 78 70 72 | 2d 62 61 63 6b 77 61 72 |n p expr|-backwar|
|00004bf0| 64 2d 73 65 78 70 20 65 | 78 70 72 2d 66 6f 72 77 |d-sexp e|xpr-forw|
|00004c00| 61 72 64 2d 73 65 78 70 | 5d 20 33 20 22 5c 0a 52 |ard-sexp|] 3 "\.R|
|00004c10| 65 74 75 72 6e 73 20 74 | 68 65 20 65 78 70 72 20 |eturns t|he expr |
|00004c20| 74 68 61 74 20 70 6f 69 | 6e 74 20 69 73 20 69 6e |that poi|nt is in|
|00004c30| 3b 20 70 6f 69 6e 74 20 | 69 73 20 73 65 74 20 74 |; point |is set t|
|00004c40| 6f 20 62 65 67 69 6e 6e | 69 6e 67 20 6f 66 20 65 |o beginn|ing of e|
|00004c50| 78 70 72 2e 0a 54 68 65 | 20 65 78 70 72 20 69 73 |xpr..The| expr is|
|00004c60| 20 72 65 70 72 65 73 65 | 6e 74 65 64 20 61 73 20 | represe|nted as |
|00004c70| 61 20 63 6f 6e 73 20 63 | 65 6c 6c 2c 20 77 68 65 |a cons c|ell, whe|
|00004c80| 72 65 20 74 68 65 20 63 | 61 72 20 73 70 65 63 69 |re the c|ar speci|
|00004c90| 66 69 65 73 20 74 68 65 | 20 70 6f 69 6e 74 20 69 |fies the| point i|
|00004ca0| 6e 0a 74 68 65 20 63 75 | 72 72 65 6e 74 20 62 75 |n.the cu|rrent bu|
|00004cb0| 66 66 65 72 20 74 68 61 | 74 20 6d 61 72 6b 73 20 |ffer tha|t marks |
|00004cc0| 74 68 65 20 62 65 67 69 | 6e 6e 69 6e 67 20 6f 66 |the begi|nning of|
|00004cd0| 20 74 68 65 20 65 78 70 | 72 20 61 6e 64 20 74 68 | the exp|r and th|
|00004ce0| 65 20 63 64 72 20 73 70 | 65 63 69 66 69 65 73 20 |e cdr sp|ecifies |
|00004cf0| 0a 74 68 65 20 63 68 61 | 72 61 63 74 65 72 20 61 |.the cha|racter a|
|00004d00| 66 74 65 72 20 74 68 65 | 20 65 6e 64 20 6f 66 20 |fter the| end of |
|00004d10| 74 68 65 20 65 78 70 72 | 2e 22 5d 29 0a 28 64 65 |the expr|."]).(de|
|00004d20| 66 61 6c 69 61 73 20 27 | 65 78 70 72 2d 62 61 63 |falias '|expr-bac|
|00004d30| 6b 77 61 72 64 2d 73 65 | 78 70 20 23 5b 6e 69 6c |kward-se|xp #[nil|
|00004d40| 20 22 c0 c1 c2 8f 87 22 | 20 5b 6e 69 6c 20 28 62 | "....."| [nil (b|
|00004d50| 61 63 6b 77 61 72 64 2d | 73 65 78 70 29 20 28 28 |ackward-|sexp) ((|
|00004d60| 65 72 72 6f 72 20 74 29 | 29 5d 20 33 20 22 5c 0a |error t)|)] 3 "\.|
|00004d70| 56 65 72 73 69 6f 6e 20 | 6f 66 20 60 62 61 63 6b |Version |of `back|
|00004d80| 77 61 72 64 2d 73 65 78 | 70 27 20 74 68 61 74 20 |ward-sex|p' that |
|00004d90| 63 61 74 63 68 65 73 20 | 65 72 72 6f 72 73 2e 22 |catches |errors."|
|00004da0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 65 78 |]).(defa|lias 'ex|
|00004db0| 70 72 2d 66 6f 72 77 61 | 72 64 2d 73 65 78 70 20 |pr-forwa|rd-sexp |
|00004dc0| 23 5b 6e 69 6c 20 22 c0 | c1 c2 8f 87 22 20 5b 6e |#[nil ".|...." [n|
|00004dd0| 69 6c 20 28 66 6f 72 77 | 61 72 64 2d 73 65 78 70 |il (forw|ard-sexp|
|00004de0| 29 20 28 28 65 72 72 6f | 72 20 74 29 29 5d 20 33 |) ((erro|r t))] 3|
|00004df0| 20 22 5c 0a 56 65 72 73 | 69 6f 6e 20 6f 66 20 60 | "\.Vers|ion of `|
|00004e00| 66 6f 72 77 61 72 64 2d | 73 65 78 70 27 20 74 68 |forward-|sexp' th|
|00004e10| 61 74 20 63 61 74 63 68 | 65 73 20 65 72 72 6f 72 |at catch|es error|
|00004e20| 73 2e 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |s."]).(d|efalias |
|00004e30| 27 65 78 70 72 2d 70 72 | 65 76 20 23 5b 6e 69 6c |'expr-pr|ev #[nil|
|00004e40| 20 22 c0 89 19 1a c3 20 | 88 60 12 c4 20 88 60 11 | "..... |.`.. .`.|
|00004e50| 5c 6e 62 88 5c 6e 09 2a | 42 87 22 20 5b 6e 69 6c |\nb.\n.*|B." [nil|
|00004e60| 20 65 6e 64 20 62 65 67 | 69 6e 20 65 78 70 72 2d | end beg|in expr-|
|00004e70| 62 61 63 6b 77 61 72 64 | 2d 73 65 78 70 20 65 78 |backward|-sexp ex|
|00004e80| 70 72 2d 66 6f 72 77 61 | 72 64 2d 73 65 78 70 5d |pr-forwa|rd-sexp]|
|00004e90| 20 32 20 22 5c 0a 52 65 | 74 75 72 6e 73 20 74 68 | 2 "\.Re|turns th|
|00004ea0| 65 20 70 72 65 76 69 6f | 75 73 20 65 78 70 72 2c |e previo|us expr,|
|00004eb0| 20 70 6f 69 6e 74 20 69 | 73 20 73 65 74 20 74 6f | point i|s set to|
|00004ec0| 20 62 65 67 69 6e 6e 69 | 6e 67 20 6f 66 20 74 68 | beginni|ng of th|
|00004ed0| 61 74 20 65 78 70 72 2e | 0a 54 68 65 20 65 78 70 |at expr.|.The exp|
|00004ee0| 72 20 69 73 20 72 65 70 | 72 65 73 65 6e 74 65 64 |r is rep|resented|
|00004ef0| 20 61 73 20 61 20 63 6f | 6e 73 20 63 65 6c 6c 2c | as a co|ns cell,|
|00004f00| 20 77 68 65 72 65 20 74 | 68 65 20 63 61 72 20 73 | where t|he car s|
|00004f10| 70 65 63 69 66 69 65 73 | 20 74 68 65 20 70 6f 69 |pecifies| the poi|
|00004f20| 6e 74 20 69 6e 0a 74 68 | 65 20 63 75 72 72 65 6e |nt in.th|e curren|
|00004f30| 74 20 62 75 66 66 65 72 | 20 74 68 61 74 20 6d 61 |t buffer| that ma|
|00004f40| 72 6b 73 20 74 68 65 20 | 62 65 67 69 6e 6e 69 6e |rks the |beginnin|
|00004f50| 67 20 6f 66 20 74 68 65 | 20 65 78 70 72 20 61 6e |g of the| expr an|
|00004f60| 64 20 74 68 65 20 63 64 | 72 20 73 70 65 63 69 66 |d the cd|r specif|
|00004f70| 69 65 73 20 0a 74 68 65 | 20 63 68 61 72 61 63 74 |ies .the| charact|
|00004f80| 65 72 20 61 66 74 65 72 | 20 74 68 65 20 65 6e 64 |er after| the end|
|00004f90| 20 6f 66 20 74 68 65 20 | 65 78 70 72 22 5d 29 0a | of the |expr"]).|
|00004fa0| 28 64 65 66 61 6c 69 61 | 73 20 27 65 78 70 72 2d |(defalia|s 'expr-|
|00004fb0| 6e 65 78 74 20 23 5b 6e | 69 6c 20 22 c0 89 19 1a |next #[n|il "....|
|00004fc0| c3 20 88 c3 20 88 60 11 | c4 20 88 60 89 12 09 2a |. .. .`.|. .`...*|
|00004fd0| 42 87 22 20 5b 6e 69 6c | 20 65 6e 64 20 62 65 67 |B." [nil| end beg|
|00004fe0| 69 6e 20 65 78 70 72 2d | 66 6f 72 77 61 72 64 2d |in expr-|forward-|
|00004ff0| 73 65 78 70 20 65 78 70 | 72 2d 62 61 63 6b 77 61 |sexp exp|r-backwa|
|00005000| 72 64 2d 73 65 78 70 5d | 20 33 20 22 5c 0a 52 65 |rd-sexp]| 3 "\.Re|
|00005010| 74 75 72 6e 73 20 74 68 | 65 20 66 6f 6c 6c 6f 77 |turns th|e follow|
|00005020| 69 6e 67 20 65 78 70 72 | 2c 20 70 6f 69 6e 74 20 |ing expr|, point |
|00005030| 69 73 20 73 65 74 20 74 | 6f 20 62 65 67 69 6e 6e |is set t|o beginn|
|00005040| 69 6e 67 20 6f 66 20 74 | 68 61 74 20 65 78 70 72 |ing of t|hat expr|
|00005050| 2e 0a 54 68 65 20 65 78 | 70 72 20 69 73 20 72 65 |..The ex|pr is re|
|00005060| 70 72 65 73 65 6e 74 65 | 64 20 61 73 20 61 20 63 |presente|d as a c|
|00005070| 6f 6e 73 20 63 65 6c 6c | 2c 20 77 68 65 72 65 20 |ons cell|, where |
|00005080| 74 68 65 20 63 61 72 20 | 73 70 65 63 69 66 69 65 |the car |specifie|
|00005090| 73 20 74 68 65 20 70 6f | 69 6e 74 20 69 6e 0a 74 |s the po|int in.t|
|000050a0| 68 65 20 63 75 72 72 65 | 6e 74 20 62 75 66 66 65 |he curre|nt buffe|
|000050b0| 72 20 74 68 61 74 20 6d | 61 72 6b 73 20 74 68 65 |r that m|arks the|
|000050c0| 20 62 65 67 69 6e 6e 69 | 6e 67 20 6f 66 20 74 68 | beginni|ng of th|
|000050d0| 65 20 65 78 70 72 20 61 | 6e 64 20 74 68 65 20 63 |e expr a|nd the c|
|000050e0| 64 72 20 73 70 65 63 69 | 66 69 65 73 20 0a 74 68 |dr speci|fies .th|
|000050f0| 65 20 63 68 61 72 61 63 | 74 65 72 20 61 66 74 65 |e charac|ter afte|
|00005100| 72 20 74 68 65 20 65 6e | 64 20 6f 66 20 74 68 65 |r the en|d of the|
|00005110| 20 65 78 70 72 2e 22 5d | 29 0a 28 64 65 66 61 6c | expr."]|).(defal|
|00005120| 69 61 73 20 27 65 78 70 | 72 2d 63 6f 6d 70 6f 75 |ias 'exp|r-compou|
|00005130| 6e 64 2d 73 65 70 20 23 | 5b 28 73 70 61 6e 2d 73 |nd-sep #|[(span-s|
|00005140| 74 61 72 74 20 73 70 61 | 6e 2d 65 6e 64 29 20 22 |tart spa|n-end) "|
|00005150| c0 c1 1a 1b 0c 0d 57 83 | 4c 00 0c 66 7a 89 12 c0 |......W.|L..fz...|
|00005160| 55 84 44 00 5c 6e c6 55 | 83 44 00 0c 66 89 12 c6 |U.D.\n.U|.D..f...|
|00005170| 55 83 28 00 c6 13 82 44 | 00 5c 6e c7 55 83 40 00 |U.(....D|.\n.U.@.|
|00005180| 0c c8 5c 5c 66 c9 55 83 | 40 00 c6 13 0c c8 5c 5c |..\\f.U.|@.....\\|
|00005190| 14 82 44 00 0d 14 ca 13 | 0c c8 5c 5c 89 14 82 05 |..D.....|..\\....|
|000051a0| 00 0b 2a 87 22 20 5b 33 | 32 20 6e 69 6c 20 73 79 |..*." [3|2 nil sy|
|000051b0| 6e 74 61 78 20 72 65 73 | 75 6c 74 20 73 70 61 6e |ntax res|ult span|
|000051c0| 2d 73 74 61 72 74 20 73 | 70 61 6e 2d 65 6e 64 20 |-start s|pan-end |
|000051d0| 34 36 20 34 35 20 31 20 | 36 32 20 36 33 5d 20 33 |46 45 1 |62 63] 3|
|000051e0| 20 22 5c 0a 52 65 74 75 | 72 6e 73 20 27 2e 27 20 | "\.Retu|rns '.' |
|000051f0| 66 6f 72 20 27 2d 3e 27 | 20 26 20 27 2e 27 2c 20 |for '->'| & '.', |
|00005200| 72 65 74 75 72 6e 73 20 | 27 20 27 20 66 6f 72 20 |returns |' ' for |
|00005210| 77 68 69 74 65 20 73 70 | 61 63 65 2c 0a 72 65 74 |white sp|ace,.ret|
|00005220| 75 72 6e 73 20 27 3f 27 | 20 66 6f 72 20 6f 74 68 |urns '?'| for oth|
|00005230| 65 72 20 70 75 6e 63 74 | 75 61 74 69 6f 6e 2e 22 |er punct|uation."|
|00005240| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 65 78 |]).(defa|lias 'ex|
|00005250| 70 72 2d 63 6f 6d 70 6f | 75 6e 64 20 23 5b 28 66 |pr-compo|und #[(f|
|00005260| 69 72 73 74 20 73 65 63 | 6f 6e 64 29 20 22 08 41 |irst sec|ond) ".A|
|00005270| 09 40 c2 1b 1c 1d c6 0d | 0c 5c 22 13 08 40 09 40 |.@......|.\"..@.@|
|00005280| 55 83 19 00 c2 82 6a 00 | 08 41 09 41 55 83 25 00 |U.....j.|.A.AU.%.|
|00005290| c2 82 6a 00 0b c7 55 83 | 2f 00 c8 82 6a 00 0b c9 |..j...U.|/...j...|
|000052a0| 55 83 69 00 0d ca 5a 66 | 15 0c 66 14 0d cb 55 83 |U.i...Zf|..f...U.|
|000052b0| 47 00 c8 82 6a 00 0d cc | 55 83 51 00 c8 82 6a 00 |G...j...|U.Q...j.|
|000052c0| 0c cd 55 83 5b 00 c8 82 | 6a 00 0c ce 55 83 65 00 |..U.[...|j...U.e.|
|000052d0| c8 82 6a 00 c2 82 6a 00 | c2 2b 87 22 20 5b 66 69 |..j...j.|.+." [fi|
|000052e0| 72 73 74 20 73 65 63 6f | 6e 64 20 6e 69 6c 20 73 |rst seco|nd nil s|
|000052f0| 79 6e 74 61 78 20 73 70 | 61 6e 2d 65 6e 64 20 73 |yntax sp|an-end s|
|00005300| 70 61 6e 2d 73 74 61 72 | 74 20 65 78 70 72 2d 63 |pan-star|t expr-c|
|00005310| 6f 6d 70 6f 75 6e 64 2d | 73 65 70 20 34 36 20 74 |ompound-|sep 46 t|
|00005320| 20 33 32 20 31 20 34 31 | 20 39 33 20 34 30 20 39 | 32 1 41| 93 40 9|
|00005330| 31 5d 20 33 20 22 5c 0a | 4e 6f 6e 2d 6e 69 6c 20 |1] 3 "\.|Non-nil |
|00005340| 69 66 20 63 6f 6e 63 61 | 74 65 6e 61 74 69 6e 67 |if conca|tenating|
|00005350| 20 46 49 52 53 54 20 61 | 6e 64 20 53 45 43 4f 4e | FIRST a|nd SECON|
|00005360| 44 20 6d 61 6b 65 73 20 | 61 20 73 69 6e 67 6c 65 |D makes |a single|
|00005370| 20 43 20 74 6f 6b 65 6e | 2e 0a 54 68 65 20 74 77 | C token|..The tw|
|00005380| 6f 20 65 78 70 72 73 20 | 61 72 65 20 72 65 70 72 |o exprs |are repr|
|00005390| 65 73 65 6e 74 65 64 20 | 61 73 20 61 20 63 6f 6e |esented |as a con|
|000053a0| 73 20 63 65 6c 6c 73 2c | 20 77 68 65 72 65 20 74 |s cells,| where t|
|000053b0| 68 65 20 63 61 72 20 0a | 73 70 65 63 69 66 69 65 |he car .|specifie|
|000053c0| 73 20 74 68 65 20 70 6f | 69 6e 74 20 69 6e 20 74 |s the po|int in t|
|000053d0| 68 65 20 63 75 72 72 65 | 6e 74 20 62 75 66 66 65 |he curre|nt buffe|
|000053e0| 72 20 74 68 61 74 20 6d | 61 72 6b 73 20 74 68 65 |r that m|arks the|
|000053f0| 20 62 65 67 69 6e 6e 69 | 6e 67 20 6f 66 20 74 68 | beginni|ng of th|
|00005400| 65 20 0a 65 78 70 72 20 | 61 6e 64 20 74 68 65 20 |e .expr |and the |
|00005410| 63 64 72 20 73 70 65 63 | 69 66 69 65 73 20 74 68 |cdr spec|ifies th|
|00005420| 65 20 63 68 61 72 61 63 | 74 65 72 20 61 66 74 65 |e charac|ter afte|
|00005430| 72 20 74 68 65 20 65 6e | 64 20 6f 66 20 74 68 65 |r the en|d of the|
|00005440| 20 65 78 70 72 2e 0a 4c | 69 6e 6b 20 65 78 70 72 | expr..L|ink expr|
|00005450| 73 20 6f 66 20 74 68 65 | 20 66 6f 72 6d 3a 0a 20 |s of the| form:. |
|00005460| 20 20 20 20 20 45 78 70 | 72 20 2d 3e 20 45 78 70 |     Exp|r -> Exp|
|00005470| 72 0a 20 20 20 20 20 20 | 45 78 70 72 20 2e 20 45 |r.      |Expr . E|
|00005480| 78 70 72 0a 20 20 20 20 | 20 20 45 78 70 72 20 28 |xpr.    |  Expr (|
|00005490| 45 78 70 72 29 0a 20 20 | 20 20 20 20 45 78 70 72 |Expr).  |    Expr|
|000054a0| 20 5b 45 78 70 72 5d 0a | 20 20 20 20 20 20 28 45 | [Expr].|      (E|
|000054b0| 78 70 72 29 20 45 78 70 | 72 0a 20 20 20 20 20 20 |xpr) Exp|r.      |
|000054c0| 5b 45 78 70 72 5d 20 45 | 78 70 72 22 5d 29 0a    |[Expr] E|xpr"]). |
+--------+-------------------------+-------------------------+--------+--------+