/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / lisp / comint / dbx.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 77 7a 40 74 68 61 |piled by| jwz@tha|
|00000020| 6c 69 64 6f 6d 69 64 65 | 20 6f 6e 20 4d 6f 6e 20 |lidomide| on Mon |
|00000030| 46 65 62 20 20 31 20 31 | 38 3a 33 37 3a 34 38 20 |Feb  1 1|8:37:48 |
|00000040| 31 39 39 33 0a 3b 3b 3b | 20 66 72 6f 6d 20 66 69 |1993.;;;| from fi|
|00000050| 6c 65 20 2f 63 61 64 69 | 6c 6c 61 63 31 2f 63 6f |le /cadi|llac1/co|
|00000060| 64 65 2f 62 75 69 6c 64 | 2f 6c 65 6d 61 63 73 2f |de/build|/lemacs/|
|00000070| 6c 69 73 70 2f 63 6f 6d | 69 6e 74 2f 64 62 78 2e |lisp/com|int/dbx.|
|00000080| 65 6c 0a 3b 3b 3b 20 65 | 6d 61 63 73 20 76 65 72 |el.;;; e|macs ver|
|00000090| 73 69 6f 6e 20 31 39 2e | 34 2e 31 33 20 4c 75 63 |sion 19.|4.13 Luc|
|000000a0| 69 64 2e 0a 3b 3b 3b 20 | 62 79 74 65 63 6f 6d 70 |id..;;; |bytecomp|
|000000b0| 20 76 65 72 73 69 6f 6e | 20 32 2e 31 30 3b 20 20 | version| 2.10;  |
|000000c0| 31 2d 66 65 62 2d 39 33 | 2e 0a 3b 3b 3b 20 6f 70 |1-feb-93|..;;; op|
|000000d0| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|000000e0| 2e 0a 3b 3b 3b 20 74 68 | 69 73 20 66 69 6c 65 20 |..;;; th|is file |
|000000f0| 75 73 65 73 20 6f 70 63 | 6f 64 65 73 20 77 68 69 |uses opc|odes whi|
|00000100| 63 68 20 64 6f 20 6e 6f | 74 20 65 78 69 73 74 20 |ch do no|t exist |
|00000110| 69 6e 20 45 6d 61 63 73 | 31 38 2e 0a 0a 28 69 66 |in Emacs|18...(if|
|00000120| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000130| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 29 0a 09 20 |macs-ver|sion).. |
|00000140| 28 6f 72 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(or (and| (boundp|
|00000150| 20 27 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e | 'epoch:|:version|
|00000160| 29 20 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e |) epoch:|:version|
|00000170| 29 0a 09 20 20 20 20 20 | 28 73 74 72 69 6e 67 2d |)..     |(string-|
|00000180| 6c 65 73 73 70 20 65 6d | 61 63 73 2d 76 65 72 73 |lessp em|acs-vers|
|00000190| 69 6f 6e 20 22 31 39 22 | 29 29 29 0a 20 20 20 20 |ion "19"|))).    |
|000001a0| 28 65 72 72 6f 72 20 22 | 54 68 69 73 20 66 69 6c |(error "|This fil|
|000001b0| 65 20 77 61 73 20 63 6f | 6d 70 69 6c 65 64 20 66 |e was co|mpiled f|
|000001c0| 6f 72 20 45 6d 61 63 73 | 31 39 2e 22 29 29 0a 0a |or Emacs|19."))..|
|000001d0| 28 72 65 71 75 69 72 65 | 20 27 63 6f 6d 69 6e 74 |(require| 'comint|
|000001e0| 29 0a 28 64 65 66 76 61 | 72 20 64 62 78 2d 74 72 |).(defva|r dbx-tr|
|000001f0| 61 63 65 2d 66 6c 61 67 | 20 6e 69 6c 20 22 5c 0a |ace-flag| nil "\.|
|00000200| 44 62 78 20 74 72 61 63 | 65 20 73 77 69 74 63 68 |Dbx trac|e switch|
|00000210| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 64 62 78 2d |.").(def|var dbx-|
|00000220| 70 72 6f 63 65 73 73 20 | 6e 69 6c 20 22 5c 0a 54 |process |nil "\.T|
|00000230| 68 65 20 70 72 6f 63 65 | 73 73 20 69 6e 20 77 68 |he proce|ss in wh|
|00000240| 69 63 68 20 64 62 78 20 | 69 73 20 72 75 6e 6e 69 |ich dbx |is runni|
|00000250| 6e 67 2e 22 29 0a 28 64 | 65 66 76 61 72 20 64 62 |ng.").(d|efvar db|
|00000260| 78 2d 62 72 65 61 6b 2d | 70 6f 69 6e 74 20 22 73 |x-break-|point "s|
|00000270| 74 6f 70 70 65 64 20 69 | 6e 20 2e 2a 20 61 74 20 |topped i|n .* at |
|00000280| 6c 69 6e 65 20 5c 5c 28 | 5b 30 2d 39 5d 2a 5c 5c |line \\(|[0-9]*\\|
|00000290| 29 20 69 6e 20 66 69 6c | 65 20 5c 22 5c 5c 28 5b |) in fil|e \"\\([|
|000002a0| 5e 5c 22 5d 2a 5c 5c 29 | 5c 22 22 20 22 5c 0a 52 |^\"]*\\)|\"" "\.R|
|000002b0| 65 67 65 78 70 20 6f 66 | 20 70 61 74 74 65 72 6e |egexp of| pattern|
|000002c0| 20 74 68 61 74 20 64 62 | 78 20 77 72 69 74 65 73 | that db|x writes|
|000002d0| 20 61 74 20 62 72 65 61 | 6b 20 70 6f 69 6e 74 2e | at brea|k point.|
|000002e0| 22 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |").(byte|-code ".|
|000002f0| c1 21 ac 82 c2 11 09 ac | 97 c3 0c 21 11 c5 09 c6 |.!......|...!....|
|00000300| c7 23 88 c5 09 c8 c9 23 | 88 c5 0e 5c 6e cb cc 23 |.#.....#|...\n..#|
|00000310| 88 c2 87 22 20 5b 62 6f | 75 6e 64 70 20 69 6e 66 |..." [bo|undp inf|
|00000320| 65 72 69 6f 72 2d 64 62 | 78 2d 6d 6f 64 65 2d 6d |erior-db|x-mode-m|
|00000330| 61 70 20 6e 69 6c 20 63 | 6f 70 79 2d 6b 65 79 6d |ap nil c|opy-keym|
|00000340| 61 70 20 73 68 65 6c 6c | 2d 6d 6f 64 65 2d 6d 61 |ap shell|-mode-ma|
|00000350| 70 20 64 65 66 69 6e 65 | 2d 6b 65 79 20 22 03 17 |p define|-key "..|
|00000360| 22 20 64 62 78 2d 77 68 | 65 72 65 20 22 03 14 22 |" dbx-wh|ere ".."|
|00000370| 20 64 62 78 2d 74 72 61 | 63 65 2d 6d 6f 64 65 20 | dbx-tra|ce-mode |
|00000380| 63 74 6c 2d 78 2d 6d 61 | 70 20 22 20 22 20 64 62 |ctl-x-ma|p " " db|
|00000390| 78 2d 73 74 6f 70 2d 61 | 74 5d 20 34 29 0a 28 66 |x-stop-a|t] 4).(f|
|000003a0| 73 65 74 20 27 69 6e 66 | 65 72 69 6f 72 2d 64 62 |set 'inf|erior-db|
|000003b0| 78 2d 6d 6f 64 65 20 23 | 5b 6e 69 6c 20 22 c0 20 |x-mode #|[nil ". |
|000003c0| 88 c1 20 88 c2 0b 21 88 | c4 15 c6 16 07 c8 16 09 |.. ...!.|........|
|000003d0| ca cb 21 88 cb 0e 0c 9e | ac 86 cd 0e 0c 42 16 0c |..!.....|.....B..|
|000003e0| ce cf 21 87 22 20 5b 6b | 69 6c 6c 2d 61 6c 6c 2d |..!." [k|ill-all-|
|000003f0| 6c 6f 63 61 6c 2d 76 61 | 72 69 61 62 6c 65 73 20 |local-va|riables |
|00000400| 63 6f 6d 69 6e 74 2d 6d | 6f 64 65 20 75 73 65 2d |comint-m|ode use-|
|00000410| 6c 6f 63 61 6c 2d 6d 61 | 70 20 69 6e 66 65 72 69 |local-ma|p inferi|
|00000420| 6f 72 2d 64 62 78 2d 6d | 6f 64 65 2d 6d 61 70 20 |or-dbx-m|ode-map |
|00000430| 69 6e 66 65 72 69 6f 72 | 2d 64 62 78 2d 6d 6f 64 |inferior|-dbx-mod|
|00000440| 65 20 6d 61 6a 6f 72 2d | 6d 6f 64 65 20 22 49 6e |e major-|mode "In|
|00000450| 66 65 72 69 6f 72 20 64 | 62 78 22 20 6d 6f 64 65 |ferior d|bx" mode|
|00000460| 2d 6e 61 6d 65 20 22 5e | 5b 5e 29 5d 2a 64 62 78 |-name "^|[^)]*dbx|
|00000470| 29 20 2a 22 20 63 6f 6d | 69 6e 74 2d 70 72 6f 6d |) *" com|int-prom|
|00000480| 70 74 2d 72 65 67 65 78 | 70 20 6d 61 6b 65 2d 6c |pt-regex|p make-l|
|00000490| 6f 63 61 6c 2d 76 61 72 | 69 61 62 6c 65 20 64 62 |ocal-var|iable db|
|000004a0| 78 2d 74 72 61 63 65 2d | 66 6c 61 67 20 6d 69 6e |x-trace-|flag min|
|000004b0| 6f 72 2d 6d 6f 64 65 2d | 61 6c 69 73 74 20 28 64 |or-mode-|alist (d|
|000004c0| 62 78 2d 74 72 61 63 65 | 2d 66 6c 61 67 20 22 20 |bx-trace|-flag " |
|000004d0| 54 72 61 63 65 22 29 20 | 72 75 6e 2d 68 6f 6f 6b |Trace") |run-hook|
|000004e0| 73 20 64 62 78 2d 6d 6f | 64 65 2d 68 6f 6f 6b 5d |s dbx-mo|de-hook]|
|000004f0| 20 32 20 22 5c 0a 4d 61 | 6a 6f 72 20 6d 6f 64 65 | 2 "\.Ma|jor mode|
|00000500| 20 66 6f 72 20 69 6e 74 | 65 72 61 63 74 69 6e 67 | for int|eracting|
|00000510| 20 77 69 74 68 20 61 6e | 20 69 6e 66 65 72 69 6f | with an| inferio|
|00000520| 72 20 64 62 78 20 70 72 | 6f 63 65 73 73 2e 0a 0a |r dbx pr|ocess...|
|00000530| 54 68 65 20 66 6f 6c 6c | 6f 77 69 6e 67 20 63 6f |The foll|owing co|
|00000540| 6d 6d 61 6e 64 73 20 61 | 72 65 20 61 76 61 69 6c |mmands a|re avail|
|00000550| 61 62 6c 65 3a 0a 5c 5c | 7b 69 6e 66 65 72 69 6f |able:.\\|{inferio|
|00000560| 72 2d 64 62 78 2d 6d 6f | 64 65 2d 6d 61 70 7d 0a |r-dbx-mo|de-map}.|
|00000570| 0a 45 6e 74 72 79 20 74 | 6f 20 74 68 69 73 20 6d |.Entry t|o this m|
|00000580| 6f 64 65 20 63 61 6c 6c | 73 20 74 68 65 20 76 61 |ode call|s the va|
|00000590| 6c 75 65 20 6f 66 20 64 | 62 78 2d 6d 6f 64 65 2d |lue of d|bx-mode-|
|000005a0| 68 6f 6f 6b 20 77 69 74 | 68 20 6e 6f 20 61 72 67 |hook wit|h no arg|
|000005b0| 75 6d 65 6e 74 73 2c 0a | 69 66 20 74 68 61 74 20 |uments,.|if that |
|000005c0| 76 61 6c 75 65 20 69 73 | 20 6e 6f 6e 2d 6e 69 6c |value is| non-nil|
|000005d0| 2e 20 20 4c 69 6b 65 77 | 69 73 65 20 77 69 74 68 |.  Likew|ise with|
|000005e0| 20 74 68 65 20 76 61 6c | 75 65 20 6f 66 20 63 6f | the val|ue of co|
|000005f0| 6d 69 6e 74 2d 6d 6f 64 | 65 2d 68 6f 6f 6b 2e 0a |mint-mod|e-hook..|
|00000600| 64 62 78 2d 6d 6f 64 65 | 2d 68 6f 6f 6b 20 69 73 |dbx-mode|-hook is|
|00000610| 20 63 61 6c 6c 65 64 20 | 61 66 74 65 72 20 63 6f | called |after co|
|00000620| 6d 69 6e 74 2d 6d 6f 64 | 65 2d 68 6f 6f 6b 2e 0a |mint-mod|e-hook..|
|00000630| 0a 59 6f 75 20 63 61 6e | 20 64 69 73 70 6c 61 79 |.You can| display|
|00000640| 20 74 68 65 20 64 65 62 | 75 67 67 69 6e 67 20 70 | the deb|ugging p|
|00000650| 72 6f 67 72 61 6d 20 69 | 6e 20 6f 74 68 65 72 20 |rogram i|n other |
|00000660| 77 69 6e 64 6f 77 20 61 | 6e 64 20 70 6f 69 6e 74 |window a|nd point|
|00000670| 20 6f 75 74 0a 77 68 65 | 72 65 20 79 6f 75 20 61 | out.whe|re you a|
|00000680| 72 65 20 6c 6f 6f 6b 69 | 6e 67 20 61 74 20 75 73 |re looki|ng at us|
|00000690| 69 6e 67 20 74 68 65 20 | 63 6f 6d 6d 61 6e 64 20 |ing the |command |
|000006a0| 5c 5c 5b 64 62 78 2d 77 | 68 65 72 65 5d 2e 0a 0a |\\[dbx-w|here]...|
|000006b0| 5c 5c 5b 64 62 78 2d 74 | 72 61 63 65 2d 6d 6f 64 |\\[dbx-t|race-mod|
|000006c0| 65 5d 20 74 6f 67 67 6c | 65 73 20 64 62 78 2d 74 |e] toggl|es dbx-t|
|000006d0| 72 61 63 65 20 6d 6f 64 | 65 2e 20 49 6e 20 64 62 |race mod|e. In db|
|000006e0| 78 2d 74 72 61 63 65 20 | 6d 6f 64 65 2c 0a 64 65 |x-trace |mode,.de|
|000006f0| 62 75 67 67 69 6e 67 20 | 70 72 6f 67 72 61 6d 20 |bugging |program |
|00000700| 69 73 20 61 75 74 6f 6d | 61 74 69 63 61 6c 6c 79 |is autom|atically|
|00000710| 20 74 72 61 63 65 64 20 | 75 73 69 6e 67 20 6f 75 | traced |using ou|
|00000720| 74 70 75 74 20 66 72 6f | 6d 20 64 62 78 2e 0a 0a |tput fro|m dbx...|
|00000730| 54 68 65 20 63 6f 6d 6d | 61 6e 64 20 5c 5c 5b 64 |The comm|and \\[d|
|00000740| 62 78 2d 73 74 6f 70 2d | 61 74 5d 20 73 65 74 73 |bx-stop-|at] sets|
|00000750| 20 62 72 65 61 6b 20 70 | 6f 69 6e 74 20 61 74 20 | break p|oint at |
|00000760| 63 75 72 72 65 6e 74 20 | 6c 69 6e 65 20 6f 66 20 |current |line of |
|00000770| 74 68 65 0a 70 72 6f 67 | 72 61 6d 20 69 6e 20 74 |the.prog|ram in t|
|00000780| 68 65 20 62 75 66 66 65 | 72 2e 20 4d 61 6a 6f 72 |he buffe|r. Major|
|00000790| 20 6d 6f 64 65 20 6e 61 | 6d 65 20 6f 66 20 74 68 | mode na|me of th|
|000007a0| 65 20 62 75 66 66 65 72 | 20 6d 75 73 74 20 62 65 |e buffer| must be|
|000007b0| 20 69 6e 0a 64 62 78 2d | 6c 61 6e 67 75 61 67 65 | in.dbx-|language|
|000007c0| 2d 6d 6f 64 65 2d 6c 69 | 73 74 2e 0a 0a 43 6f 6d |-mode-li|st...Com|
|000007d0| 6d 61 6e 64 73 3a 0a 0a | 52 65 74 75 72 6e 20 61 |mands:..|Return a|
|000007e0| 74 20 65 6e 64 20 6f 66 | 20 62 75 66 66 65 72 20 |t end of| buffer |
|000007f0| 73 65 6e 64 73 20 6c 69 | 6e 65 20 61 73 20 69 6e |sends li|ne as in|
|00000800| 70 75 74 2e 0a 52 65 74 | 75 72 6e 20 6e 6f 74 20 |put..Ret|urn not |
|00000810| 61 74 20 65 6e 64 20 63 | 6f 70 69 65 73 20 6c 69 |at end c|opies li|
|00000820| 6e 65 2c 20 73 61 6e 73 | 20 61 6e 79 20 64 62 78 |ne, sans| any dbx|
|00000830| 20 70 72 6f 6d 70 74 2c | 20 74 6f 20 65 6e 64 20 | prompt,| to end |
|00000840| 61 6e 64 20 73 65 6e 64 | 73 20 69 74 2e 0a 5c 5c |and send|s it..\\|
|00000850| 5b 73 68 65 6c 6c 2d 73 | 65 6e 64 2d 65 6f 66 5d |[shell-s|end-eof]|
|00000860| 20 73 65 6e 64 73 20 65 | 6e 64 2d 6f 66 2d 66 69 | sends e|nd-of-fi|
|00000870| 6c 65 20 61 73 20 69 6e | 70 75 74 2e 0a 5c 5c 5b |le as in|put..\\[|
|00000880| 63 6f 6d 69 6e 74 2d 6b | 69 6c 6c 2d 69 6e 70 75 |comint-k|ill-inpu|
|00000890| 74 5d 20 61 6e 64 20 5c | 5c 5b 62 61 63 6b 77 61 |t] and \|\[backwa|
|000008a0| 72 64 2d 6b 69 6c 6c 2d | 77 6f 72 64 5d 20 61 72 |rd-kill-|word] ar|
|000008b0| 65 20 6b 69 6c 6c 20 63 | 6f 6d 6d 61 6e 64 73 2c |e kill c|ommands,|
|000008c0| 20 69 6d 69 74 61 74 69 | 6e 67 20 6e 6f 72 6d 61 | imitati|ng norma|
|000008d0| 6c 20 55 6e 69 78 20 69 | 6e 70 75 74 20 65 64 69 |l Unix i|nput edi|
|000008e0| 74 69 6e 67 2e 0a 5c 5c | 5b 63 6f 6d 69 6e 74 2d |ting..\\|[comint-|
|000008f0| 69 6e 74 65 72 72 75 70 | 74 2d 73 75 62 6a 6f 62 |interrup|t-subjob|
|00000900| 5d 20 69 6e 74 65 72 72 | 75 70 74 73 20 74 68 65 |] interr|upts the|
|00000910| 20 73 68 65 6c 6c 20 6f | 72 20 69 74 73 20 63 75 | shell o|r its cu|
|00000920| 72 72 65 6e 74 20 73 75 | 62 6a 6f 62 20 69 66 20 |rrent su|bjob if |
|00000930| 61 6e 79 2e 0a 5c 5c 5b | 63 6f 6d 69 6e 74 2d 73 |any..\\[|comint-s|
|00000940| 74 6f 70 2d 73 75 62 6a | 6f 62 5d 20 73 74 6f 70 |top-subj|ob] stop|
|00000950| 73 2c 20 6c 69 6b 65 77 | 69 73 65 2e 20 5c 5c 5b |s, likew|ise. \\[|
|00000960| 63 6f 6d 69 6e 74 2d 71 | 75 69 74 2d 73 75 62 6a |comint-q|uit-subj|
|00000970| 6f 62 5d 20 73 65 6e 64 | 73 20 71 75 69 74 20 73 |ob] send|s quit s|
|00000980| 69 67 6e 61 6c 2c 20 6c | 69 6b 65 77 69 73 65 2e |ignal, l|ikewise.|
|00000990| 0a 5c 5c 5b 64 62 78 2d | 77 68 65 72 65 5d 20 64 |.\\[dbx-|where] d|
|000009a0| 69 73 70 6c 61 79 73 20 | 64 65 62 75 67 67 69 6e |isplays |debuggin|
|000009b0| 67 20 70 72 6f 67 72 61 | 6d 20 69 6e 20 6f 74 68 |g progra|m in oth|
|000009c0| 65 72 20 77 69 6e 64 6f | 77 20 61 6e 64 0a 20 70 |er windo|w and. p|
|000009d0| 6f 69 6e 74 73 20 6f 75 | 74 20 77 68 65 72 65 20 |oints ou|t where |
|000009e0| 79 6f 75 20 61 72 65 20 | 6c 6f 6f 6b 69 6e 67 20 |you are |looking |
|000009f0| 61 74 2e 0a 5c 5c 5b 64 | 62 78 2d 74 72 61 63 65 |at..\\[d|bx-trace|
|00000a00| 2d 6d 6f 64 65 5d 20 74 | 6f 67 67 6c 65 73 20 64 |-mode] t|oggles d|
|00000a10| 62 78 2d 74 72 61 63 65 | 20 6d 6f 64 65 2e 0a 5c |bx-trace| mode..\|
|00000a20| 5c 5b 64 62 78 2d 73 74 | 6f 70 2d 61 74 5d 20 73 |\[dbx-st|op-at] s|
|00000a30| 65 74 73 20 62 72 65 61 | 6b 20 70 6f 69 6e 74 20 |ets brea|k point |
|00000a40| 61 74 20 63 75 72 72 65 | 6e 74 20 6c 69 6e 65 2e |at curre|nt line.|
|00000a50| 22 20 6e 69 6c 5d 29 0a | 28 66 73 65 74 20 27 72 |" nil]).|(fset 'r|
|00000a60| 75 6e 2d 64 62 78 20 23 | 5b 28 70 61 74 68 29 20 |un-dbx #|[(path) |
|00000a70| 22 c0 09 21 11 c2 09 21 | 1b c4 c5 0b c6 51 21 88 |"..!...!|.....Q!.|
|00000a80| c7 09 21 16 08 c4 c9 ca | 0b 50 cb cc 0b 24 21 88 |..!.....|.P...$!.|
|00000a90| 29 cd 70 21 16 0e cf 0e | 0e d0 5c 22 88 d1 20 87 |).p!....|..\".. .|
|00000aa0| 22 20 5b 65 78 70 61 6e | 64 2d 66 69 6c 65 2d 6e |" [expan|d-file-n|
|00000ab0| 61 6d 65 20 70 61 74 68 | 20 66 69 6c 65 2d 6e 61 |ame path| file-na|
|00000ac0| 6d 65 2d 6e 6f 6e 64 69 | 72 65 63 74 6f 72 79 20 |me-nondi|rectory |
|00000ad0| 66 69 6c 65 20 73 77 69 | 74 63 68 2d 74 6f 2d 62 |file swi|tch-to-b|
|00000ae0| 75 66 66 65 72 20 22 2a | 64 62 78 2d 22 20 22 2a |uffer "*|dbx-" "*|
|00000af0| 22 20 66 69 6c 65 2d 6e | 61 6d 65 2d 64 69 72 65 |" file-n|ame-dire|
|00000b00| 63 74 6f 72 79 20 64 65 | 66 61 75 6c 74 2d 64 69 |ctory de|fault-di|
|00000b10| 72 65 63 74 6f 72 79 20 | 6d 61 6b 65 2d 63 6f 6d |rectory |make-com|
|00000b20| 69 6e 74 20 22 64 62 78 | 2d 22 20 22 64 62 78 22 |int "dbx|-" "dbx"|
|00000b30| 20 6e 69 6c 20 67 65 74 | 2d 62 75 66 66 65 72 2d | nil get|-buffer-|
|00000b40| 70 72 6f 63 65 73 73 20 | 64 62 78 2d 70 72 6f 63 |process |dbx-proc|
|00000b50| 65 73 73 20 73 65 74 2d | 70 72 6f 63 65 73 73 2d |ess set-|process-|
|00000b60| 66 69 6c 74 65 72 20 64 | 62 78 2d 66 69 6c 74 65 |filter d|bx-filte|
|00000b70| 72 20 69 6e 66 65 72 69 | 6f 72 2d 64 62 78 2d 6d |r inferi|or-dbx-m|
|00000b80| 6f 64 65 5d 20 36 20 22 | 5c 0a 52 75 6e 20 69 6e |ode] 6 "|\.Run in|
|00000b90| 66 65 72 69 6f 72 20 64 | 62 78 20 70 72 6f 63 65 |ferior d|bx proce|
|00000ba0| 73 73 20 6f 6e 20 50 52 | 4f 47 52 41 4d 2c 20 77 |ss on PR|OGRAM, w|
|00000bb0| 69 74 68 20 49 2f 4f 20 | 76 69 61 20 62 75 66 66 |ith I/O |via buff|
|00000bc0| 65 72 20 2a 64 62 78 2d | 50 52 4f 47 52 41 4d 2a |er *dbx-|PROGRAM*|
|00000bd0| 2e 22 20 22 66 50 72 6f | 67 72 61 6d 20 74 6f 20 |." "fPro|gram to |
|00000be0| 64 65 62 75 67 3a 20 22 | 5d 29 0a 28 66 73 65 74 |debug: "|]).(fset|
|00000bf0| 20 27 64 62 78 2d 74 72 | 61 63 65 2d 6d 6f 64 65 | 'dbx-tr|ace-mode|
|00000c00| 20 23 5b 28 61 72 67 29 | 20 22 08 c1 3d ac 84 c2 | #[(arg)| "..=...|
|00000c10| c3 21 88 0c ac 84 0d 3f | aa 85 c6 0c 21 c7 56 15 |.!.....?|....!.V.|
|00000c20| c8 c9 20 21 87 22 20 5b | 6d 61 6a 6f 72 2d 6d 6f |.. !." [|major-mo|
|00000c30| 64 65 20 69 6e 66 65 72 | 69 6f 72 2d 64 62 78 2d |de infer|ior-dbx-|
|00000c40| 6d 6f 64 65 20 65 72 72 | 6f 72 20 22 64 62 78 2d |mode err|or "dbx-|
|00000c50| 74 72 61 63 65 20 6d 6f | 64 65 20 69 73 20 65 66 |trace mo|de is ef|
|00000c60| 66 65 63 74 69 76 65 20 | 69 6e 20 69 6e 66 65 72 |fective |in infer|
|00000c70| 69 6f 72 2d 64 62 78 20 | 6d 6f 64 65 20 6f 6e 6c |ior-dbx |mode onl|
|00000c80| 79 2e 22 20 61 72 67 20 | 64 62 78 2d 74 72 61 63 |y." arg |dbx-trac|
|00000c90| 65 2d 66 6c 61 67 20 70 | 72 65 66 69 78 2d 6e 75 |e-flag p|refix-nu|
|00000ca0| 6d 65 72 69 63 2d 76 61 | 6c 75 65 20 30 20 73 65 |meric-va|lue 0 se|
|00000cb0| 74 2d 62 75 66 66 65 72 | 2d 6d 6f 64 69 66 69 65 |t-buffer|-modifie|
|00000cc0| 64 2d 70 20 62 75 66 66 | 65 72 2d 6d 6f 64 69 66 |d-p buff|er-modif|
|00000cd0| 69 65 64 2d 70 5d 20 32 | 20 22 5c 0a 54 6f 67 67 |ied-p] 2| "\.Togg|
|00000ce0| 6c 65 20 64 62 78 2d 74 | 72 61 63 65 20 6d 6f 64 |le dbx-t|race mod|
|00000cf0| 65 2e 0a 57 69 74 68 20 | 61 72 67 2c 20 74 75 72 |e..With |arg, tur|
|00000d00| 6e 20 64 62 78 2d 74 72 | 61 63 65 20 6d 6f 64 65 |n dbx-tr|ace mode|
|00000d10| 20 6f 6e 20 69 66 66 20 | 61 72 67 20 69 73 20 70 | on iff |arg is p|
|00000d20| 6f 73 69 74 69 76 65 2e | 0a 49 6e 20 64 62 78 2d |ositive.|.In dbx-|
|00000d30| 74 72 61 63 65 20 6d 6f | 64 65 2c 20 75 73 65 72 |trace mo|de, user|
|00000d40| 20 70 72 6f 67 72 61 6d | 20 69 73 20 61 75 74 6f | program| is auto|
|00000d50| 6d 61 74 69 63 61 6c 6c | 79 20 74 72 61 63 65 64 |maticall|y traced|
|00000d60| 2e 22 20 22 50 22 5d 29 | 0a 28 66 73 65 74 20 27 |." "P"])|.(fset '|
|00000d70| 64 62 78 2d 66 69 6c 74 | 65 72 20 23 5b 28 70 72 |dbx-filt|er #[(pr|
|00000d80| 6f 63 65 73 73 20 73 74 | 72 69 6e 67 29 20 22 8a |ocess st|ring) ".|
|00000d90| c0 09 21 71 88 64 62 88 | 60 1a c3 0c 21 88 0d ab |..!q.db.|`...!...|
|00000da0| 85 c6 5c 6e c7 5c 22 88 | 29 c8 09 21 ab 87 c8 09 |..\n.\".|)..!....|
|00000db0| 21 64 c9 93 88 29 c0 09 | 21 70 3d ad 82 64 62 87 |!d...)..|!p=..db.|
|00000dc0| 22 20 5b 70 72 6f 63 65 | 73 73 2d 62 75 66 66 65 |" [proce|ss-buffe|
|00000dd0| 72 20 70 72 6f 63 65 73 | 73 20 62 65 67 20 69 6e |r proces|s beg in|
|00000de0| 73 65 72 74 2d 62 65 66 | 6f 72 65 2d 6d 61 72 6b |sert-bef|ore-mark|
|00000df0| 65 72 73 20 73 74 72 69 | 6e 67 20 64 62 78 2d 74 |ers stri|ng dbx-t|
|00000e00| 72 61 63 65 2d 66 6c 61 | 67 20 64 62 78 2d 77 68 |race-fla|g dbx-wh|
|00000e10| 65 72 65 20 74 20 70 72 | 6f 63 65 73 73 2d 6d 61 |ere t pr|ocess-ma|
|00000e20| 72 6b 20 6e 69 6c 5d 20 | 33 20 22 5c 0a 54 72 61 |rk nil] |3 "\.Tra|
|00000e30| 63 65 20 64 65 62 75 67 | 67 69 6e 67 20 70 72 6f |ce debug|ging pro|
|00000e40| 67 72 61 6d 20 61 75 74 | 6f 6d 61 74 69 63 61 6c |gram aut|omatical|
|00000e50| 6c 79 20 69 66 20 64 62 | 78 2d 74 72 61 63 65 2d |ly if db|x-trace-|
|00000e60| 66 6c 61 67 20 69 73 20 | 6e 6f 74 20 6e 69 6c 2e |flag is |not nil.|
|00000e70| 22 5d 29 0a 28 66 73 65 | 74 20 27 64 62 78 2d 77 |"]).(fse|t 'dbx-w|
|00000e80| 68 65 72 65 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |here #[(|&optiona|
|00000e90| 6c 20 62 65 67 69 6e 20 | 71 75 69 65 74 29 20 22 |l begin |quiet) "|
|00000ea0| c0 89 19 1a 8a c3 0c 0d | 0e 06 23 ab 8c c7 94 c7 |........|..#.....|
|00000eb0| 95 7b 11 c8 94 c8 95 7b | 12 29 5c 6e ad a7 09 ad |.{.....{|.)\n....|
|00000ec0| a4 c9 ca 5c 6e c0 5c 22 | 21 88 cb cc 09 21 21 88 |...\n.\"|!....!!.|
|00000ed0| cd 79 88 ce 16 0f 0e 10 | ac 84 d1 20 16 10 0e 10 |.y......|... ....|
|00000ee0| 60 70 93 88 d2 c7 21 2a | 87 22 20 5b 6e 69 6c 20 |`p....!*|." [nil |
|00000ef0| 6c 69 6e 65 20 66 69 6c | 65 20 72 65 2d 73 65 61 |line fil|e re-sea|
|00000f00| 72 63 68 2d 62 61 63 6b | 77 61 72 64 20 64 62 78 |rch-back|ward dbx|
|00000f10| 2d 62 72 65 61 6b 2d 70 | 6f 69 6e 74 20 62 65 67 |-break-p|oint beg|
|00000f20| 69 6e 20 71 75 69 65 74 | 20 31 20 32 20 66 69 6e |in quiet| 1 2 fin|
|00000f30| 64 2d 66 69 6c 65 2d 6f | 74 68 65 72 2d 77 69 6e |d-file-o|ther-win|
|00000f40| 64 6f 77 20 65 78 70 61 | 6e 64 2d 66 69 6c 65 2d |dow expa|nd-file-|
|00000f50| 6e 61 6d 65 20 67 6f 74 | 6f 2d 6c 69 6e 65 20 73 |name got|o-line s|
|00000f60| 74 72 69 6e 67 2d 74 6f | 2d 69 6e 74 20 30 20 22 |tring-to|-int 0 "|
|00000f70| 3d 3e 22 20 6f 76 65 72 | 6c 61 79 2d 61 72 72 6f |=>" over|lay-arro|
|00000f80| 77 2d 73 74 72 69 6e 67 | 20 6f 76 65 72 6c 61 79 |w-string| overlay|
|00000f90| 2d 61 72 72 6f 77 2d 70 | 6f 73 69 74 69 6f 6e 20 |-arrow-p|osition |
|00000fa0| 6d 61 6b 65 2d 6d 61 72 | 6b 65 72 20 6f 74 68 65 |make-mar|ker othe|
|00000fb0| 72 2d 77 69 6e 64 6f 77 | 5d 20 34 20 22 5c 0a 44 |r-window|] 4 "\.D|
|00000fc0| 69 73 70 6c 61 79 20 64 | 62 78 27 65 64 20 70 72 |isplay d|bx'ed pr|
|00000fd0| 6f 67 72 61 6d 20 69 6e | 20 6f 74 68 65 72 20 77 |ogram in| other w|
|00000fe0| 69 6e 64 6f 77 20 61 6e | 64 20 70 6f 69 6e 74 20 |indow an|d point |
|00000ff0| 6f 75 74 20 77 68 65 72 | 65 20 79 6f 75 20 61 72 |out wher|e you ar|
|00001000| 65 20 6c 6f 6f 6b 69 6e | 67 2e 0a 42 45 47 49 4e |e lookin|g..BEGIN|
|00001010| 20 62 6f 75 6e 64 73 20 | 74 68 65 20 73 65 61 72 | bounds |the sear|
|00001020| 63 68 2e 20 49 66 20 51 | 55 49 45 54 2c 20 6a 75 |ch. If Q|UIET, ju|
|00001030| 73 74 20 72 65 74 75 72 | 6e 20 6e 69 6c 20 28 6e |st retur|n nil (n|
|00001040| 6f 20 65 72 72 6f 72 29 | 20 69 66 20 66 61 69 6c |o error)| if fail|
|00001050| 2e 22 20 6e 69 6c 5d 29 | 0a 28 66 73 65 74 20 27 |." nil])|.(fset '|
|00001060| 64 62 78 2d 73 74 6f 70 | 2d 61 74 20 23 5b 6e 69 |dbx-stop|-at #[ni|
|00001070| 6c 20 22 c0 09 21 8c 7e | 88 c2 c3 60 5c 22 54 29 |l "..!.~|...`\"T)|
|00001080| 1c 1d c6 0e 07 c8 0d c9 | 0c ca b0 05 5c 22 2a 87 |........|....\"*.|
|00001090| 22 20 5b 66 69 6c 65 2d | 6e 61 6d 65 2d 6e 6f 6e |" [file-|name-non|
|000010a0| 64 69 72 65 63 74 6f 72 | 79 20 62 75 66 66 65 72 |director|y buffer|
|000010b0| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 63 6f 75 6e 74 |-file-na|me count|
|000010c0| 2d 6c 69 6e 65 73 20 31 | 20 6c 69 6e 65 20 66 69 |-lines 1| line fi|
|000010d0| 6c 65 2d 6e 61 6d 65 20 | 73 65 6e 64 2d 73 74 72 |le-name |send-str|
|000010e0| 69 6e 67 20 64 62 78 2d | 70 72 6f 63 65 73 73 20 |ing dbx-|process |
|000010f0| 22 73 74 6f 70 20 61 74 | 20 5c 22 22 20 22 5c 22 |"stop at| \"" "\"|
|00001100| 3a 22 20 22 5c 6e 22 5d | 20 37 20 22 5c 0a 53 65 |:" "\n"]| 7 "\.Se|
|00001110| 74 20 62 72 65 61 6b 20 | 70 6f 69 6e 74 20 61 74 |t break |point at|
|00001120| 20 63 75 72 72 65 6e 74 | 20 6c 69 6e 65 2e 22 20 | current| line." |
|00001130| 6e 69 6c 5d 29 0a       |                         |nil]).  |        |
+--------+-------------------------+-------------------------+--------+--------+