Mercurial > emacs
comparison lisp/gud.el @ 4732:22e673b984fc
Fix previous change.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 17 Sep 1993 16:43:38 +0000 |
parents | fdbcbaea7296 |
children | 15dd7db2ab6c |
comparison
equal
deleted
inserted
replaced
4731:a8c0357a8554 | 4732:22e673b984fc |
---|---|
495 | 495 |
496 ;;; History of argument lists passed to perldb. | 496 ;;; History of argument lists passed to perldb. |
497 (defvar gud-perldb-history nil) | 497 (defvar gud-perldb-history nil) |
498 | 498 |
499 (defun gud-perldb-massage-args (file args) | 499 (defun gud-perldb-massage-args (file args) |
500 (cons "-fullname" (cons file args))) | 500 (cons "-d" (cons file (cons "-emacs" args)))) |
501 | 501 |
502 ;; There's no guarantee that Emacs will hand the filter the entire | 502 ;; There's no guarantee that Emacs will hand the filter the entire |
503 ;; marker at once; it could be broken up across several strings. We | 503 ;; marker at once; it could be broken up across several strings. We |
504 ;; might even receive a big chunk with several markers in it. If we | 504 ;; might even receive a big chunk with several markers in it. If we |
505 ;; receive a chunk of text which looks like it might contain the | 505 ;; receive a chunk of text which looks like it might contain the |
562 and source-file directory for your debugger." | 562 and source-file directory for your debugger." |
563 (interactive | 563 (interactive |
564 (list (read-from-minibuffer "Run perldb (like this): " | 564 (list (read-from-minibuffer "Run perldb (like this): " |
565 (if (consp gud-perldb-history) | 565 (if (consp gud-perldb-history) |
566 (car gud-perldb-history) | 566 (car gud-perldb-history) |
567 "perldb ") | 567 "perl ") |
568 nil nil | 568 nil nil |
569 '(gud-perldb-history . 1)))) | 569 '(gud-perldb-history . 1)))) |
570 (gud-overload-functions '((gud-massage-args . gud-perldb-massage-args) | 570 (gud-overload-functions '((gud-massage-args . gud-perldb-massage-args) |
571 (gud-marker-filter . gud-perldb-marker-filter) | 571 (gud-marker-filter . gud-perldb-marker-filter) |
572 (gud-find-file . gud-perldb-find-file) | 572 (gud-find-file . gud-perldb-find-file) |
573 )) | 573 )) |
574 | 574 |
575 (gud-common-init command-line) | 575 (gud-common-init command-line) |
576 | 576 |
577 (gud-def gud-break "break %f:%l" "\C-b" "Set breakpoint at current line.") | 577 (gud-def gud-break "b %l" "\C-b" "Set breakpoint at current line.") |
578 (gud-def gud-tbreak "tbreak %f:%l" "\C-t" "Set breakpoint at current line.") | 578 (gud-def gud-remove "d %l" "\C-d" "Remove breakpoint at current line") |
579 (gud-def gud-remove "clear %l" "\C-d" "Remove breakpoint at current line") | 579 (gud-def gud-step "s" "\C-s" "Step one source line with display.") |
580 (gud-def gud-step "step %p" "\C-s" "Step one source line with display.") | 580 (gud-def gud-next "n" "\C-n" "Step one line (skip functions).") |
581 (gud-def gud-stepi "stepi %p" "\C-i" "Step one instruction with display.") | 581 (gud-def gud-cont "c" "\C-r" "Continue with display.") |
582 (gud-def gud-next "next %p" "\C-n" "Step one line (skip functions).") | 582 ; (gud-def gud-finish "finish" "\C-f" "Finish executing current function.") |
583 (gud-def gud-cont "cont" "\C-r" "Continue with display.") | 583 ; (gud-def gud-up "up %p" "<" "Up N stack frames (numeric arg).") |
584 (gud-def gud-finish "finish" "\C-f" "Finish executing current function.") | 584 ; (gud-def gud-down "down %p" ">" "Down N stack frames (numeric arg).") |
585 (gud-def gud-up "up %p" "<" "Up N stack frames (numeric arg).") | 585 (gud-def gud-print "%e" "\C-p" "Evaluate perl expression at point.") |
586 (gud-def gud-down "down %p" ">" "Down N stack frames (numeric arg).") | 586 |
587 (gud-def gud-print "print %e" "\C-p" "Evaluate C expression at point.") | 587 (setq comint-prompt-regexp "^ DB<[0-9]+> ") |
588 | 588 (run-hooks 'perldb-mode-hook) |
589 (setq comint-prompt-regexp "^(.*perldb[+]?) *") | |
590 (run-hooks 'gdb-mode-hook) | |
591 ) | 589 ) |
592 | 590 |
593 ;; | 591 ;; |
594 ;; End of debugger-specific information | 592 ;; End of debugger-specific information |
595 ;; | 593 ;; |