home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / edebug / edebug-emacs19.el < prev    next >
Encoding:
Text File  |  1994-09-20  |  3.8 KB  |  125 lines
  1. ;; edebug-emacs19.el  -*- Syntax: Emacs-Lisp; Mode: emacs-lisp -*- ;; 
  2. ;; Menus for using Edebug with Emacs version 19.
  3.  
  4. ;; Use this by adding the following to your .emacs file:
  5. ;; (add-hook 'edebug-setup-hook 
  6. ;;      (function (lambda () (load-library "edebug-emacs19"))))
  7.  
  8. ;; define-menus may be a good function for defining menus in emacs 19.  
  9. ;; Please send me any improvements.
  10.  
  11. (provide 'edebug-emacs19)
  12.  
  13. (defun define-menus (keymap menu menus)
  14.   "Define menus for a KEYMAP starting at MENU adding all the MENUS.
  15. Each of the MENUS is of the form (NAME TITLE MENU-ITEMS).
  16. The NAME is vconcatted to the MENU.
  17. The MENUS and MENU-ITEMS are all given in the order they should appear."
  18.   (mapcar 
  19.    (function
  20.     (lambda (menu-spec)
  21.       (apply 
  22.        (function
  23.     (lambda (name title menu-items)
  24.       (edebug-define-menu keymap
  25.                   (vconcat menu (list name))
  26.                   title menu-items)))
  27.        menu-spec)))
  28.    (nreverse menus)))
  29.  
  30.  
  31. (defun edebug-define-menu (keymap menu title menu-items)
  32.   "Define KEYMAPs MENU, titled TITLE, with MENU-ITEMS under it.
  33. Append the name of the new menu in MENU after the parent menu.  TITLE
  34. is used for both the menu item in MENU and as the heading for the
  35. MENU-ITEMS.  MENU-ITEMS is a list of items in the order they should
  36. appear.  Each menu item is a list with the title, function, and
  37. optional item name."
  38.   (let ((submenu (make-sparse-keymap title))
  39.     (menus (nreverse menu-items)))
  40.     (define-key keymap menu (cons title submenu))
  41.     (mapcar (function
  42.          (lambda (item)
  43.            (apply 
  44.         (function 
  45.          (lambda (title function &optional name)
  46.            (define-key submenu (vector (or name function))
  47.              (cons title function))
  48.            ))
  49.         item)))
  50.         menus)))
  51.  
  52.  
  53. (defun edebug-toggle (variable)
  54.   (set variable (not (eval variable)))
  55.   (message "%s: %s" variable (eval variable)))
  56.  
  57. (define-menus edebug-mode-map [menu-bar]
  58.   '((edebug "Edebug"
  59.         (("Help" edebug-help)
  60.          ("Stop" edebug-stop)
  61.          ("Step" edebug-step-mode)
  62.          ("Next" edebug-next-mode)
  63.          ("Trace" edebug-trace-mode)
  64.          ("Trace Fast" edebug-Trace-fast-mode)
  65.          ("Continue" edebug-continue-mode)
  66.          ("Continue Fast" edebug-Continue-fast-mode)
  67.          ("Go" edebug-go-mode)
  68.          ("Go Nonstop" edebug-Go-nonstop-mode)
  69.          ("Abort" abort-recursive-edit)
  70.          ("Quit to Top Level"  top-level)
  71.          ("Quit Nonstop" edebug-top-level-nonstop)
  72.          ))
  73.  
  74.     (jumps "Jumps"
  75.        (("Forward Sexp" edebug-forward-sexp)
  76.         ("Step In" edebug-step-in)
  77.         ("Step Out" edebug-step-out)
  78.         ("Goto Here" edebug-goto-here)))
  79.  
  80.     (breaks "Breaks"
  81.         (("Set Breakpoint" edebug-set-breakpoint)
  82.          ("Unset Breakpoint" edebug-unset-breakpoint)
  83.          ("Set Conditional Breakpoint" edebug-set-conditional-breakpoint)
  84.          ("Set Global Break Condition" edebug-set-global-break-condition)
  85.          ("Show Next Breakpoint" edebug-next-breakpoint)))
  86.  
  87.     (views "Views"
  88.        (("Where am I?" edebug-where)
  89.         ("Bounce to Current Point" edebug-bounce-point)
  90.         ("View Outside Windows" edebug-view-outside)
  91.         ("Previous Result" edebug-previous-result)
  92.         ("Show Backtrace" edebug-backtrace)
  93.         ("Display Freq Count" edebug-display-freq-count)))
  94.  
  95.     (eval "Eval"
  96.       (("Expression" edebug-eval-expression)
  97.        ("Last Sexp" edebug-eval-last-sexp)
  98.        ("Visit Eval List" edebug-visit-eval-list)))
  99.  
  100.     (options "Options"
  101.          (("Edebug All Defs" edebug-all-defs)
  102.           ("Edebug All Forms" edebug-all-forms)
  103.  
  104.           ("Trace Enter and Exit" 
  105.            (function 
  106.         (lambda () 
  107.           (interactive)
  108.           (edebug-toggle 'edebug-trace))) tracing)
  109.  
  110.           ("Test Coverage" 
  111.            (function 
  112.         (lambda () 
  113.           (interactive) 
  114.           (edebug-toggle 'edebug-test-coverage))) coverage)
  115.  
  116.           ("Toggle Window Saving" edebug-toggle-save-windows)
  117.  
  118.           ("Save Displayed Buffer Points" 
  119.            (lambda () (interactive) 
  120.          (edebug-toggle 'edebug-save-displayed-buffer-points))
  121.            save-displayed-buffer-points)
  122.           ))
  123.     ))
  124.  
  125.