[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 4c6cd63 1/3: Make realgud an external
From: |
Rocky Bernstein |
Subject: |
[elpa] master 4c6cd63 1/3: Make realgud an external |
Date: |
Sat, 25 May 2019 19:34:01 -0400 (EDT) |
branch: master
commit 4c6cd63c8811ac450ad801b8051861276737d22a
Author: rocky <address@hidden>
Commit: rocky <address@hidden>
Make realgud an external
It will soon get bumpted to version 1.4.6
---
packages/realgud/.gitignore | 27 -
packages/realgud/.travis.yml | 16 -
packages/realgud/AUTHORS | 1 -
packages/realgud/COPYING | 674 --
packages/realgud/Cask | 10 -
packages/realgud/ChangeLog | 6549 --------------------
packages/realgud/INSTALL.md | 15 -
packages/realgud/Makefile.am | 17 -
packages/realgud/NEWS | 0
packages/realgud/README.md | 110 -
packages/realgud/THANKS | 17 -
packages/realgud/autogen.sh | 12 -
packages/realgud/common.mk.in | 23 -
packages/realgud/configure.ac | 87 -
packages/realgud/cr_exceptions.txt | 0
packages/realgud/elisp-comp | 93 -
packages/realgud/etc/.nosearch | 0
packages/realgud/etc/realgud-logo-square.png | Bin 8702 -> 0 bytes
packages/realgud/etc/realgud-logo.png | Bin 10806 -> 0 bytes
packages/realgud/etc/realgud-logo.svg | 106 -
packages/realgud/etc/realgud.png | Bin 100651 -> 0 bytes
packages/realgud/etc/screenshot.el | 100 -
packages/realgud/install-from-git.sh | 105 -
packages/realgud/realgud-recursive-autoloads.el | 1300 ----
packages/realgud/realgud.el | 199 -
packages/realgud/realgud/.nosearch | 11 -
packages/realgud/realgud/Makefile.am | 21 -
packages/realgud/realgud/common/Makefile.am | 8 -
packages/realgud/realgud/common/attach.el | 68 -
packages/realgud/realgud/common/backtrace-mode.el | 118 -
packages/realgud/realgud/common/backtrack-mode.el | 115 -
packages/realgud/realgud/common/bp-image-data.el | 378 --
packages/realgud/realgud/common/bp.el | 231 -
packages/realgud/realgud/common/buffer/Makefile.am | 7 -
.../realgud/realgud/common/buffer/backtrace.el | 491 --
packages/realgud/realgud/common/buffer/command.el | 482 --
packages/realgud/realgud/common/buffer/helper.el | 181 -
packages/realgud/realgud/common/buffer/info.el | 64 -
packages/realgud/realgud/common/buffer/source.el | 208 -
packages/realgud/realgud/common/cmds.el | 447 --
packages/realgud/realgud/common/core.el | 331 -
packages/realgud/realgud/common/custom.el | 28 -
packages/realgud/realgud/common/eval.el | 101 -
packages/realgud/realgud/common/file.el | 150 -
packages/realgud/realgud/common/follow.el | 50 -
packages/realgud/realgud/common/fringe-utils.py | 37 -
packages/realgud/realgud/common/fringe.el | 224 -
packages/realgud/realgud/common/helper.el | 109 -
packages/realgud/realgud/common/init.el | 45 -
packages/realgud/realgud/common/key.el | 137 -
packages/realgud/realgud/common/lang.el | 111 -
packages/realgud/realgud/common/loc.el | 200 -
packages/realgud/realgud/common/lochist.el | 145 -
packages/realgud/realgud/common/menu.el | 183 -
packages/realgud/realgud/common/regexp.el | 76 -
packages/realgud/realgud/common/reset.el | 58 -
packages/realgud/realgud/common/run.el | 220 -
packages/realgud/realgud/common/send.el | 281 -
packages/realgud/realgud/common/shortkey.el | 225 -
packages/realgud/realgud/common/track-mode.el | 239 -
packages/realgud/realgud/common/track.el | 895 ---
packages/realgud/realgud/common/utils.el | 67 -
packages/realgud/realgud/common/window.el | 180 -
packages/realgud/realgud/debugger/Makefile.am | 8 -
.../realgud/realgud/debugger/bashdb/Makefile.am | 5 -
packages/realgud/realgud/debugger/bashdb/bashdb.el | 108 -
packages/realgud/realgud/debugger/bashdb/core.el | 197 -
packages/realgud/realgud/debugger/bashdb/init.el | 110 -
.../realgud/realgud/debugger/bashdb/track-mode.el | 73 -
packages/realgud/realgud/debugger/common.mk | 3 -
packages/realgud/realgud/debugger/gdb/Makefile.am | 5 -
packages/realgud/realgud/debugger/gdb/core.el | 223 -
packages/realgud/realgud/debugger/gdb/gdb.el | 141 -
packages/realgud/realgud/debugger/gdb/init.el | 145 -
.../realgud/realgud/debugger/gdb/track-mode.el | 74 -
packages/realgud/realgud/debugger/gub/Makefile.am | 5 -
packages/realgud/realgud/debugger/gub/core.el | 181 -
packages/realgud/realgud/debugger/gub/gub.el | 87 -
packages/realgud/realgud/debugger/gub/init.el | 206 -
.../realgud/realgud/debugger/gub/track-mode.el | 85 -
packages/realgud/realgud/debugger/ipdb/Makefile.am | 5 -
packages/realgud/realgud/debugger/ipdb/core.el | 255 -
packages/realgud/realgud/debugger/ipdb/init.el | 136 -
packages/realgud/realgud/debugger/ipdb/ipdb.el | 123 -
.../realgud/realgud/debugger/ipdb/track-mode.el | 77 -
packages/realgud/realgud/debugger/jdb/Makefile.am | 5 -
packages/realgud/realgud/debugger/jdb/README | 2 -
.../realgud/realgud/debugger/jdb/backtrack-mode.el | 78 -
packages/realgud/realgud/debugger/jdb/core.el | 190 -
packages/realgud/realgud/debugger/jdb/file.el | 241 -
packages/realgud/realgud/debugger/jdb/init.el | 234 -
packages/realgud/realgud/debugger/jdb/jdb.el | 111 -
.../realgud/realgud/debugger/jdb/track-mode.el | 93 -
.../realgud/realgud/debugger/kshdb/Makefile.am | 5 -
packages/realgud/realgud/debugger/kshdb/core.el | 175 -
packages/realgud/realgud/debugger/kshdb/init.el | 126 -
packages/realgud/realgud/debugger/kshdb/kshdb.el | 71 -
.../realgud/realgud/debugger/kshdb/track-mode.el | 72 -
.../realgud/realgud/debugger/nodejs/Makefile.am | 5 -
packages/realgud/realgud/debugger/nodejs/core.el | 166 -
packages/realgud/realgud/debugger/nodejs/init.el | 185 -
packages/realgud/realgud/debugger/nodejs/nodejs.el | 87 -
.../realgud/realgud/debugger/nodejs/track-mode.el | 90 -
packages/realgud/realgud/debugger/pdb/Makefile.am | 5 -
packages/realgud/realgud/debugger/pdb/core.el | 208 -
packages/realgud/realgud/debugger/pdb/init.el | 137 -
packages/realgud/realgud/debugger/pdb/pdb.el | 138 -
.../realgud/realgud/debugger/pdb/track-mode.el | 73 -
.../realgud/realgud/debugger/perldb/Makefile.am | 5 -
packages/realgud/realgud/debugger/perldb/core.el | 151 -
packages/realgud/realgud/debugger/perldb/init.el | 145 -
packages/realgud/realgud/debugger/perldb/perldb.el | 70 -
.../realgud/realgud/debugger/perldb/track-mode.el | 79 -
.../realgud/realgud/debugger/rdebug/Makefile.am | 5 -
packages/realgud/realgud/debugger/rdebug/core.el | 172 -
packages/realgud/realgud/debugger/rdebug/init.el | 143 -
packages/realgud/realgud/debugger/rdebug/rdebug.el | 124 -
.../realgud/realgud/debugger/rdebug/track-mode.el | 70 -
.../realgud/realgud/debugger/remake/Makefile.am | 5 -
packages/realgud/realgud/debugger/remake/core.el | 249 -
packages/realgud/realgud/debugger/remake/init.el | 154 -
packages/realgud/realgud/debugger/remake/remake.el | 90 -
.../realgud/realgud/debugger/remake/track-mode.el | 69 -
.../realgud/realgud/debugger/trepan.pl/Makefile.am | 5 -
.../realgud/debugger/trepan.pl/backtrack-mode.el | 73 -
.../realgud/realgud/debugger/trepan.pl/core.el | 182 -
.../realgud/realgud/debugger/trepan.pl/init.el | 281 -
.../realgud/debugger/trepan.pl/track-mode.el | 81 -
.../realgud/realgud/debugger/trepan.pl/trepanpl.el | 74 -
.../realgud/realgud/debugger/trepan/Makefile.am | 5 -
.../realgud/debugger/trepan/backtrack-mode.el | 80 -
packages/realgud/realgud/debugger/trepan/core.el | 242 -
packages/realgud/realgud/debugger/trepan/init.el | 230 -
.../realgud/realgud/debugger/trepan/track-mode.el | 94 -
packages/realgud/realgud/debugger/trepan/trepan.el | 72 -
.../realgud/realgud/debugger/trepan2/Makefile.am | 5 -
packages/realgud/realgud/debugger/trepan2/core.el | 241 -
packages/realgud/realgud/debugger/trepan2/init.el | 120 -
.../realgud/realgud/debugger/trepan2/track-mode.el | 77 -
.../realgud/realgud/debugger/trepan2/trepan2.el | 103 -
.../realgud/realgud/debugger/trepan3k/Makefile.am | 5 -
packages/realgud/realgud/debugger/trepan3k/core.el | 187 -
packages/realgud/realgud/debugger/trepan3k/init.el | 127 -
.../realgud/debugger/trepan3k/track-mode.el | 77 -
.../realgud/realgud/debugger/trepan3k/trepan3k.el | 100 -
.../realgud/realgud/debugger/trepanjs/Makefile.am | 5 -
.../realgud/debugger/trepanjs/backtrack-mode.el | 80 -
packages/realgud/realgud/debugger/trepanjs/core.el | 158 -
packages/realgud/realgud/debugger/trepanjs/init.el | 162 -
.../realgud/debugger/trepanjs/track-mode.el | 90 -
.../realgud/realgud/debugger/trepanjs/trepanjs.el | 85 -
.../realgud/realgud/debugger/zshdb/Makefile.am | 5 -
packages/realgud/realgud/debugger/zshdb/core.el | 191 -
packages/realgud/realgud/debugger/zshdb/init.el | 106 -
.../realgud/realgud/debugger/zshdb/track-mode.el | 71 -
packages/realgud/realgud/debugger/zshdb/zshdb.el | 89 -
packages/realgud/realgud/lang/Makefile.am | 5 -
packages/realgud/realgud/lang/java.el | 47 -
packages/realgud/realgud/lang/js.el | 41 -
packages/realgud/realgud/lang/perl.el | 60 -
packages/realgud/realgud/lang/posix-shell.el | 150 -
packages/realgud/realgud/lang/python.el | 196 -
packages/realgud/realgud/lang/ruby.el | 131 -
packages/realgud/test/.gitignore | 6 -
packages/realgud/test/.nosearch | 0
packages/realgud/test/HelloWorld.java | 6 -
packages/realgud/test/Makefile.am | 74 -
packages/realgud/test/bt-helper.el | 47 -
packages/realgud/test/gcd.js | 44 -
packages/realgud/test/gcd.pl | 21 -
packages/realgud/test/gcd.py | 41 -
packages/realgud/test/gcd.rb | 19 -
packages/realgud/test/gcd.sh | 25 -
packages/realgud/test/gdb/bar.sh | 2 -
packages/realgud/test/gdb/baz | 0
packages/realgud/test/gdb/baz.c | 0
packages/realgud/test/gdb/foo | 0
packages/realgud/test/gdb/foo.c | 0
packages/realgud/test/gdb/test2/bar.sh | 2 -
packages/realgud/test/gdb/test2/baz.c | 0
packages/realgud/test/make-check-filter.rb | 24 -
packages/realgud/test/node_modules/gcd.js/gcd.js | 47 -
.../realgud/test/node_modules/gcd.js/package.json | 12 -
packages/realgud/test/regexp-helper.el | 50 -
packages/realgud/test/test-bashdb.el | 60 -
packages/realgud/test/test-bp.el | 59 -
packages/realgud/test/test-bt-pdb.el | 45 -
packages/realgud/test/test-bt-rdebug.el | 47 -
packages/realgud/test/test-bt-trepan.el | 49 -
packages/realgud/test/test-bt-trepan2.el | 77 -
packages/realgud/test/test-bt-trepan3k.el | 43 -
packages/realgud/test/test-bt-zshdb.el | 38 -
packages/realgud/test/test-buf-bt.el | 27 -
packages/realgud/test/test-buf-cmd.el | 57 -
packages/realgud/test/test-common-helper.el | 30 -
packages/realgud/test/test-core.el | 98 -
packages/realgud/test/test-file.el | 128 -
packages/realgud/test/test-gdb-core.el | 66 -
packages/realgud/test/test-gdb.el | 68 -
packages/realgud/test/test-gub-core.el | 22 -
packages/realgud/test/test-ipdb.el | 40 -
packages/realgud/test/test-jdb.el | 18 -
packages/realgud/test/test-lang.el | 65 -
packages/realgud/test/test-loc-regexp-gub.el | 63 -
packages/realgud/test/test-loc-regexp-nodejs.el | 115 -
packages/realgud/test/test-loc-regexp-trepan.el | 83 -
packages/realgud/test/test-loc-regexp-trepanpl.el | 128 -
packages/realgud/test/test-loc.el | 63 -
packages/realgud/test/test-lochist.el | 114 -
packages/realgud/test/test-nodejs.el | 37 -
packages/realgud/test/test-pdb.el | 39 -
packages/realgud/test/test-perldb.el | 26 -
packages/realgud/test/test-rdebug.el | 45 -
packages/realgud/test/test-realgud.el | 40 -
packages/realgud/test/test-regexp-bashdb.el | 126 -
packages/realgud/test/test-regexp-gdb.el | 112 -
packages/realgud/test/test-regexp-gub.el | 65 -
packages/realgud/test/test-regexp-ipdb.el | 108 -
packages/realgud/test/test-regexp-java.el | 41 -
packages/realgud/test/test-regexp-jdb.el | 78 -
packages/realgud/test/test-regexp-nodejs.el | 74 -
packages/realgud/test/test-regexp-pdb.el | 107 -
packages/realgud/test/test-regexp-perldb.el | 207 -
packages/realgud/test/test-regexp-python.el | 64 -
packages/realgud/test/test-regexp-rdebug.el | 55 -
packages/realgud/test/test-regexp-remake.el | 75 -
packages/realgud/test/test-regexp-ruby.el | 43 -
packages/realgud/test/test-regexp-trepan.el | 150 -
packages/realgud/test/test-regexp-trepan2.el | 167 -
packages/realgud/test/test-regexp-trepan3k.el | 167 -
packages/realgud/test/test-regexp-trepanjs.el | 94 -
packages/realgud/test/test-regexp-trepanpl.el | 115 -
packages/realgud/test/test-regexp-zshdb.el | 118 -
packages/realgud/test/test-regexp.el | 79 -
packages/realgud/test/test-remake-core.el | 38 -
packages/realgud/test/test-remake.el | 37 -
packages/realgud/test/test-send.el | 69 -
packages/realgud/test/test-shortkey.el | 40 -
packages/realgud/test/test-srcbuf.el | 72 -
packages/realgud/test/test-track-mode.el | 66 -
packages/realgud/test/test-track.el | 196 -
packages/realgud/test/test-trepan2.el | 45 -
packages/realgud/test/test-trepan3k.el | 37 -
packages/realgud/test/test-trepanpl.el | 50 -
packages/realgud/test/test-utils.el | 53 -
packages/realgud/test/test-zshdb.el | 60 -
246 files changed, 31814 deletions(-)
diff --git a/packages/realgud/.gitignore b/packages/realgud/.gitignore
deleted file mode 100644
index 843d43b..0000000
--- a/packages/realgud/.gitignore
+++ /dev/null
@@ -1,27 +0,0 @@
-*.elc
-*~
-/*-pkg.el
-/*.tar.gz
-/.cask/
-/.python-version
-/README
-/aclocal.m4
-/autom4te.cache
-/common.mk
-/config.log
-/config.status
-/configure
-/configure.lineno
-/elpa
-/how-to-make-a-release.txt
-/install-sh
-/missing
-/node_modules
-/realgud-autoloads.el
-/test/npm-debug.log
-/tmp
-Makefile
-Makefile.in
-elc-stamp
-elc-temp
-script
diff --git a/packages/realgud/.travis.yml b/packages/realgud/.travis.yml
deleted file mode 100644
index 0515aa0..0000000
--- a/packages/realgud/.travis.yml
+++ /dev/null
@@ -1,16 +0,0 @@
-language: emacs-lisp
-
-env:
- - EMACS=emacs24
-
-install:
- - if [ "$EMACS" = 'emacs24' ]; then
- sudo add-apt-repository -y ppa:cassou/emacs &&
- sudo apt-get -qq update &&
- sudo apt-get -qq -f install &&
- sudo apt-get -qq install emacs24 emacs24-el;
- fi
-
-# run the tests
-script:
- - NO_CHECK_EMACS_PACKAGES=1 /bin/bash ./autogen.sh && cd test && make
check-elget
diff --git a/packages/realgud/AUTHORS b/packages/realgud/AUTHORS
deleted file mode 100644
index 60fc84e..0000000
--- a/packages/realgud/AUTHORS
+++ /dev/null
@@ -1 +0,0 @@
address@hidden
diff --git a/packages/realgud/COPYING b/packages/realgud/COPYING
deleted file mode 100644
index 94a9ed0..0000000
--- a/packages/realgud/COPYING
+++ /dev/null
@@ -1,674 +0,0 @@
- GNU GENERAL PUBLIC LICENSE
- Version 3, 29 June 2007
-
- Copyright (C) 2007 Free Software Foundation, Inc. <http://fsf.org/>
- Everyone is permitted to copy and distribute verbatim copies
- of this license document, but changing it is not allowed.
-
- Preamble
-
- The GNU General Public License is a free, copyleft license for
-software and other kinds of works.
-
- The licenses for most software and other practical works are designed
-to take away your freedom to share and change the works. By contrast,
-the GNU General Public License is intended to guarantee your freedom to
-share and change all versions of a program--to make sure it remains free
-software for all its users. We, the Free Software Foundation, use the
-GNU General Public License for most of our software; it applies also to
-any other work released this way by its authors. You can apply it to
-your programs, too.
-
- When we speak of free software, we are referring to freedom, not
-price. Our General Public Licenses are designed to make sure that you
-have the freedom to distribute copies of free software (and charge for
-them if you wish), that you receive source code or can get it if you
-want it, that you can change the software or use pieces of it in new
-free programs, and that you know you can do these things.
-
- To protect your rights, we need to prevent others from denying you
-these rights or asking you to surrender the rights. Therefore, you have
-certain responsibilities if you distribute copies of the software, or if
-you modify it: responsibilities to respect the freedom of others.
-
- For example, if you distribute copies of such a program, whether
-gratis or for a fee, you must pass on to the recipients the same
-freedoms that you received. You must make sure that they, too, receive
-or can get the source code. And you must show them these terms so they
-know their rights.
-
- Developers that use the GNU GPL protect your rights with two steps:
-(1) assert copyright on the software, and (2) offer you this License
-giving you legal permission to copy, distribute and/or modify it.
-
- For the developers' and authors' protection, the GPL clearly explains
-that there is no warranty for this free software. For both users' and
-authors' sake, the GPL requires that modified versions be marked as
-changed, so that their problems will not be attributed erroneously to
-authors of previous versions.
-
- Some devices are designed to deny users access to install or run
-modified versions of the software inside them, although the manufacturer
-can do so. This is fundamentally incompatible with the aim of
-protecting users' freedom to change the software. The systematic
-pattern of such abuse occurs in the area of products for individuals to
-use, which is precisely where it is most unacceptable. Therefore, we
-have designed this version of the GPL to prohibit the practice for those
-products. If such problems arise substantially in other domains, we
-stand ready to extend this provision to those domains in future versions
-of the GPL, as needed to protect the freedom of users.
-
- Finally, every program is threatened constantly by software patents.
-States should not allow patents to restrict development and use of
-software on general-purpose computers, but in those that do, we wish to
-avoid the special danger that patents applied to a free program could
-make it effectively proprietary. To prevent this, the GPL assures that
-patents cannot be used to render the program non-free.
-
- The precise terms and conditions for copying, distribution and
-modification follow.
-
- TERMS AND CONDITIONS
-
- 0. Definitions.
-
- "This License" refers to version 3 of the GNU General Public License.
-
- "Copyright" also means copyright-like laws that apply to other kinds of
-works, such as semiconductor masks.
-
- "The Program" refers to any copyrightable work licensed under this
-License. Each licensee is addressed as "you". "Licensees" and
-"recipients" may be individuals or organizations.
-
- To "modify" a work means to copy from or adapt all or part of the work
-in a fashion requiring copyright permission, other than the making of an
-exact copy. The resulting work is called a "modified version" of the
-earlier work or a work "based on" the earlier work.
-
- A "covered work" means either the unmodified Program or a work based
-on the Program.
-
- To "propagate" a work means to do anything with it that, without
-permission, would make you directly or secondarily liable for
-infringement under applicable copyright law, except executing it on a
-computer or modifying a private copy. Propagation includes copying,
-distribution (with or without modification), making available to the
-public, and in some countries other activities as well.
-
- To "convey" a work means any kind of propagation that enables other
-parties to make or receive copies. Mere interaction with a user through
-a computer network, with no transfer of a copy, is not conveying.
-
- An interactive user interface displays "Appropriate Legal Notices"
-to the extent that it includes a convenient and prominently visible
-feature that (1) displays an appropriate copyright notice, and (2)
-tells the user that there is no warranty for the work (except to the
-extent that warranties are provided), that licensees may convey the
-work under this License, and how to view a copy of this License. If
-the interface presents a list of user commands or options, such as a
-menu, a prominent item in the list meets this criterion.
-
- 1. Source Code.
-
- The "source code" for a work means the preferred form of the work
-for making modifications to it. "Object code" means any non-source
-form of a work.
-
- A "Standard Interface" means an interface that either is an official
-standard defined by a recognized standards body, or, in the case of
-interfaces specified for a particular programming language, one that
-is widely used among developers working in that language.
-
- The "System Libraries" of an executable work include anything, other
-than the work as a whole, that (a) is included in the normal form of
-packaging a Major Component, but which is not part of that Major
-Component, and (b) serves only to enable use of the work with that
-Major Component, or to implement a Standard Interface for which an
-implementation is available to the public in source code form. A
-"Major Component", in this context, means a major essential component
-(kernel, window system, and so on) of the specific operating system
-(if any) on which the executable work runs, or a compiler used to
-produce the work, or an object code interpreter used to run it.
-
- The "Corresponding Source" for a work in object code form means all
-the source code needed to generate, install, and (for an executable
-work) run the object code and to modify the work, including scripts to
-control those activities. However, it does not include the work's
-System Libraries, or general-purpose tools or generally available free
-programs which are used unmodified in performing those activities but
-which are not part of the work. For example, Corresponding Source
-includes interface definition files associated with source files for
-the work, and the source code for shared libraries and dynamically
-linked subprograms that the work is specifically designed to require,
-such as by intimate data communication or control flow between those
-subprograms and other parts of the work.
-
- The Corresponding Source need not include anything that users
-can regenerate automatically from other parts of the Corresponding
-Source.
-
- The Corresponding Source for a work in source code form is that
-same work.
-
- 2. Basic Permissions.
-
- All rights granted under this License are granted for the term of
-copyright on the Program, and are irrevocable provided the stated
-conditions are met. This License explicitly affirms your unlimited
-permission to run the unmodified Program. The output from running a
-covered work is covered by this License only if the output, given its
-content, constitutes a covered work. This License acknowledges your
-rights of fair use or other equivalent, as provided by copyright law.
-
- You may make, run and propagate covered works that you do not
-convey, without conditions so long as your license otherwise remains
-in force. You may convey covered works to others for the sole purpose
-of having them make modifications exclusively for you, or provide you
-with facilities for running those works, provided that you comply with
-the terms of this License in conveying all material for which you do
-not control copyright. Those thus making or running the covered works
-for you must do so exclusively on your behalf, under your direction
-and control, on terms that prohibit them from making any copies of
-your copyrighted material outside their relationship with you.
-
- Conveying under any other circumstances is permitted solely under
-the conditions stated below. Sublicensing is not allowed; section 10
-makes it unnecessary.
-
- 3. Protecting Users' Legal Rights From Anti-Circumvention Law.
-
- No covered work shall be deemed part of an effective technological
-measure under any applicable law fulfilling obligations under article
-11 of the WIPO copyright treaty adopted on 20 December 1996, or
-similar laws prohibiting or restricting circumvention of such
-measures.
-
- When you convey a covered work, you waive any legal power to forbid
-circumvention of technological measures to the extent such circumvention
-is effected by exercising rights under this License with respect to
-the covered work, and you disclaim any intention to limit operation or
-modification of the work as a means of enforcing, against the work's
-users, your or third parties' legal rights to forbid circumvention of
-technological measures.
-
- 4. Conveying Verbatim Copies.
-
- You may convey verbatim copies of the Program's source code as you
-receive it, in any medium, provided that you conspicuously and
-appropriately publish on each copy an appropriate copyright notice;
-keep intact all notices stating that this License and any
-non-permissive terms added in accord with section 7 apply to the code;
-keep intact all notices of the absence of any warranty; and give all
-recipients a copy of this License along with the Program.
-
- You may charge any price or no price for each copy that you convey,
-and you may offer support or warranty protection for a fee.
-
- 5. Conveying Modified Source Versions.
-
- You may convey a work based on the Program, or the modifications to
-produce it from the Program, in the form of source code under the
-terms of section 4, provided that you also meet all of these conditions:
-
- a) The work must carry prominent notices stating that you modified
- it, and giving a relevant date.
-
- b) The work must carry prominent notices stating that it is
- released under this License and any conditions added under section
- 7. This requirement modifies the requirement in section 4 to
- "keep intact all notices".
-
- c) You must license the entire work, as a whole, under this
- License to anyone who comes into possession of a copy. This
- License will therefore apply, along with any applicable section 7
- additional terms, to the whole of the work, and all its parts,
- regardless of how they are packaged. This License gives no
- permission to license the work in any other way, but it does not
- invalidate such permission if you have separately received it.
-
- d) If the work has interactive user interfaces, each must display
- Appropriate Legal Notices; however, if the Program has interactive
- interfaces that do not display Appropriate Legal Notices, your
- work need not make them do so.
-
- A compilation of a covered work with other separate and independent
-works, which are not by their nature extensions of the covered work,
-and which are not combined with it such as to form a larger program,
-in or on a volume of a storage or distribution medium, is called an
-"aggregate" if the compilation and its resulting copyright are not
-used to limit the access or legal rights of the compilation's users
-beyond what the individual works permit. Inclusion of a covered work
-in an aggregate does not cause this License to apply to the other
-parts of the aggregate.
-
- 6. Conveying Non-Source Forms.
-
- You may convey a covered work in object code form under the terms
-of sections 4 and 5, provided that you also convey the
-machine-readable Corresponding Source under the terms of this License,
-in one of these ways:
-
- a) Convey the object code in, or embodied in, a physical product
- (including a physical distribution medium), accompanied by the
- Corresponding Source fixed on a durable physical medium
- customarily used for software interchange.
-
- b) Convey the object code in, or embodied in, a physical product
- (including a physical distribution medium), accompanied by a
- written offer, valid for at least three years and valid for as
- long as you offer spare parts or customer support for that product
- model, to give anyone who possesses the object code either (1) a
- copy of the Corresponding Source for all the software in the
- product that is covered by this License, on a durable physical
- medium customarily used for software interchange, for a price no
- more than your reasonable cost of physically performing this
- conveying of source, or (2) access to copy the
- Corresponding Source from a network server at no charge.
-
- c) Convey individual copies of the object code with a copy of the
- written offer to provide the Corresponding Source. This
- alternative is allowed only occasionally and noncommercially, and
- only if you received the object code with such an offer, in accord
- with subsection 6b.
-
- d) Convey the object code by offering access from a designated
- place (gratis or for a charge), and offer equivalent access to the
- Corresponding Source in the same way through the same place at no
- further charge. You need not require recipients to copy the
- Corresponding Source along with the object code. If the place to
- copy the object code is a network server, the Corresponding Source
- may be on a different server (operated by you or a third party)
- that supports equivalent copying facilities, provided you maintain
- clear directions next to the object code saying where to find the
- Corresponding Source. Regardless of what server hosts the
- Corresponding Source, you remain obligated to ensure that it is
- available for as long as needed to satisfy these requirements.
-
- e) Convey the object code using peer-to-peer transmission, provided
- you inform other peers where the object code and Corresponding
- Source of the work are being offered to the general public at no
- charge under subsection 6d.
-
- A separable portion of the object code, whose source code is excluded
-from the Corresponding Source as a System Library, need not be
-included in conveying the object code work.
-
- A "User Product" is either (1) a "consumer product", which means any
-tangible personal property which is normally used for personal, family,
-or household purposes, or (2) anything designed or sold for incorporation
-into a dwelling. In determining whether a product is a consumer product,
-doubtful cases shall be resolved in favor of coverage. For a particular
-product received by a particular user, "normally used" refers to a
-typical or common use of that class of product, regardless of the status
-of the particular user or of the way in which the particular user
-actually uses, or expects or is expected to use, the product. A product
-is a consumer product regardless of whether the product has substantial
-commercial, industrial or non-consumer uses, unless such uses represent
-the only significant mode of use of the product.
-
- "Installation Information" for a User Product means any methods,
-procedures, authorization keys, or other information required to install
-and execute modified versions of a covered work in that User Product from
-a modified version of its Corresponding Source. The information must
-suffice to ensure that the continued functioning of the modified object
-code is in no case prevented or interfered with solely because
-modification has been made.
-
- If you convey an object code work under this section in, or with, or
-specifically for use in, a User Product, and the conveying occurs as
-part of a transaction in which the right of possession and use of the
-User Product is transferred to the recipient in perpetuity or for a
-fixed term (regardless of how the transaction is characterized), the
-Corresponding Source conveyed under this section must be accompanied
-by the Installation Information. But this requirement does not apply
-if neither you nor any third party retains the ability to install
-modified object code on the User Product (for example, the work has
-been installed in ROM).
-
- The requirement to provide Installation Information does not include a
-requirement to continue to provide support service, warranty, or updates
-for a work that has been modified or installed by the recipient, or for
-the User Product in which it has been modified or installed. Access to a
-network may be denied when the modification itself materially and
-adversely affects the operation of the network or violates the rules and
-protocols for communication across the network.
-
- Corresponding Source conveyed, and Installation Information provided,
-in accord with this section must be in a format that is publicly
-documented (and with an implementation available to the public in
-source code form), and must require no special password or key for
-unpacking, reading or copying.
-
- 7. Additional Terms.
-
- "Additional permissions" are terms that supplement the terms of this
-License by making exceptions from one or more of its conditions.
-Additional permissions that are applicable to the entire Program shall
-be treated as though they were included in this License, to the extent
-that they are valid under applicable law. If additional permissions
-apply only to part of the Program, that part may be used separately
-under those permissions, but the entire Program remains governed by
-this License without regard to the additional permissions.
-
- When you convey a copy of a covered work, you may at your option
-remove any additional permissions from that copy, or from any part of
-it. (Additional permissions may be written to require their own
-removal in certain cases when you modify the work.) You may place
-additional permissions on material, added by you to a covered work,
-for which you have or can give appropriate copyright permission.
-
- Notwithstanding any other provision of this License, for material you
-add to a covered work, you may (if authorized by the copyright holders of
-that material) supplement the terms of this License with terms:
-
- a) Disclaiming warranty or limiting liability differently from the
- terms of sections 15 and 16 of this License; or
-
- b) Requiring preservation of specified reasonable legal notices or
- author attributions in that material or in the Appropriate Legal
- Notices displayed by works containing it; or
-
- c) Prohibiting misrepresentation of the origin of that material, or
- requiring that modified versions of such material be marked in
- reasonable ways as different from the original version; or
-
- d) Limiting the use for publicity purposes of names of licensors or
- authors of the material; or
-
- e) Declining to grant rights under trademark law for use of some
- trade names, trademarks, or service marks; or
-
- f) Requiring indemnification of licensors and authors of that
- material by anyone who conveys the material (or modified versions of
- it) with contractual assumptions of liability to the recipient, for
- any liability that these contractual assumptions directly impose on
- those licensors and authors.
-
- All other non-permissive additional terms are considered "further
-restrictions" within the meaning of section 10. If the Program as you
-received it, or any part of it, contains a notice stating that it is
-governed by this License along with a term that is a further
-restriction, you may remove that term. If a license document contains
-a further restriction but permits relicensing or conveying under this
-License, you may add to a covered work material governed by the terms
-of that license document, provided that the further restriction does
-not survive such relicensing or conveying.
-
- If you add terms to a covered work in accord with this section, you
-must place, in the relevant source files, a statement of the
-additional terms that apply to those files, or a notice indicating
-where to find the applicable terms.
-
- Additional terms, permissive or non-permissive, may be stated in the
-form of a separately written license, or stated as exceptions;
-the above requirements apply either way.
-
- 8. Termination.
-
- You may not propagate or modify a covered work except as expressly
-provided under this License. Any attempt otherwise to propagate or
-modify it is void, and will automatically terminate your rights under
-this License (including any patent licenses granted under the third
-paragraph of section 11).
-
- However, if you cease all violation of this License, then your
-license from a particular copyright holder is reinstated (a)
-provisionally, unless and until the copyright holder explicitly and
-finally terminates your license, and (b) permanently, if the copyright
-holder fails to notify you of the violation by some reasonable means
-prior to 60 days after the cessation.
-
- Moreover, your license from a particular copyright holder is
-reinstated permanently if the copyright holder notifies you of the
-violation by some reasonable means, this is the first time you have
-received notice of violation of this License (for any work) from that
-copyright holder, and you cure the violation prior to 30 days after
-your receipt of the notice.
-
- Termination of your rights under this section does not terminate the
-licenses of parties who have received copies or rights from you under
-this License. If your rights have been terminated and not permanently
-reinstated, you do not qualify to receive new licenses for the same
-material under section 10.
-
- 9. Acceptance Not Required for Having Copies.
-
- You are not required to accept this License in order to receive or
-run a copy of the Program. Ancillary propagation of a covered work
-occurring solely as a consequence of using peer-to-peer transmission
-to receive a copy likewise does not require acceptance. However,
-nothing other than this License grants you permission to propagate or
-modify any covered work. These actions infringe copyright if you do
-not accept this License. Therefore, by modifying or propagating a
-covered work, you indicate your acceptance of this License to do so.
-
- 10. Automatic Licensing of Downstream Recipients.
-
- Each time you convey a covered work, the recipient automatically
-receives a license from the original licensors, to run, modify and
-propagate that work, subject to this License. You are not responsible
-for enforcing compliance by third parties with this License.
-
- An "entity transaction" is a transaction transferring control of an
-organization, or substantially all assets of one, or subdividing an
-organization, or merging organizations. If propagation of a covered
-work results from an entity transaction, each party to that
-transaction who receives a copy of the work also receives whatever
-licenses to the work the party's predecessor in interest had or could
-give under the previous paragraph, plus a right to possession of the
-Corresponding Source of the work from the predecessor in interest, if
-the predecessor has it or can get it with reasonable efforts.
-
- You may not impose any further restrictions on the exercise of the
-rights granted or affirmed under this License. For example, you may
-not impose a license fee, royalty, or other charge for exercise of
-rights granted under this License, and you may not initiate litigation
-(including a cross-claim or counterclaim in a lawsuit) alleging that
-any patent claim is infringed by making, using, selling, offering for
-sale, or importing the Program or any portion of it.
-
- 11. Patents.
-
- A "contributor" is a copyright holder who authorizes use under this
-License of the Program or a work on which the Program is based. The
-work thus licensed is called the contributor's "contributor version".
-
- A contributor's "essential patent claims" are all patent claims
-owned or controlled by the contributor, whether already acquired or
-hereafter acquired, that would be infringed by some manner, permitted
-by this License, of making, using, or selling its contributor version,
-but do not include claims that would be infringed only as a
-consequence of further modification of the contributor version. For
-purposes of this definition, "control" includes the right to grant
-patent sublicenses in a manner consistent with the requirements of
-this License.
-
- Each contributor grants you a non-exclusive, worldwide, royalty-free
-patent license under the contributor's essential patent claims, to
-make, use, sell, offer for sale, import and otherwise run, modify and
-propagate the contents of its contributor version.
-
- In the following three paragraphs, a "patent license" is any express
-agreement or commitment, however denominated, not to enforce a patent
-(such as an express permission to practice a patent or covenant not to
-sue for patent infringement). To "grant" such a patent license to a
-party means to make such an agreement or commitment not to enforce a
-patent against the party.
-
- If you convey a covered work, knowingly relying on a patent license,
-and the Corresponding Source of the work is not available for anyone
-to copy, free of charge and under the terms of this License, through a
-publicly available network server or other readily accessible means,
-then you must either (1) cause the Corresponding Source to be so
-available, or (2) arrange to deprive yourself of the benefit of the
-patent license for this particular work, or (3) arrange, in a manner
-consistent with the requirements of this License, to extend the patent
-license to downstream recipients. "Knowingly relying" means you have
-actual knowledge that, but for the patent license, your conveying the
-covered work in a country, or your recipient's use of the covered work
-in a country, would infringe one or more identifiable patents in that
-country that you have reason to believe are valid.
-
- If, pursuant to or in connection with a single transaction or
-arrangement, you convey, or propagate by procuring conveyance of, a
-covered work, and grant a patent license to some of the parties
-receiving the covered work authorizing them to use, propagate, modify
-or convey a specific copy of the covered work, then the patent license
-you grant is automatically extended to all recipients of the covered
-work and works based on it.
-
- A patent license is "discriminatory" if it does not include within
-the scope of its coverage, prohibits the exercise of, or is
-conditioned on the non-exercise of one or more of the rights that are
-specifically granted under this License. You may not convey a covered
-work if you are a party to an arrangement with a third party that is
-in the business of distributing software, under which you make payment
-to the third party based on the extent of your activity of conveying
-the work, and under which the third party grants, to any of the
-parties who would receive the covered work from you, a discriminatory
-patent license (a) in connection with copies of the covered work
-conveyed by you (or copies made from those copies), or (b) primarily
-for and in connection with specific products or compilations that
-contain the covered work, unless you entered into that arrangement,
-or that patent license was granted, prior to 28 March 2007.
-
- Nothing in this License shall be construed as excluding or limiting
-any implied license or other defenses to infringement that may
-otherwise be available to you under applicable patent law.
-
- 12. No Surrender of Others' Freedom.
-
- If conditions are imposed on you (whether by court order, agreement or
-otherwise) that contradict the conditions of this License, they do not
-excuse you from the conditions of this License. If you cannot convey a
-covered work so as to satisfy simultaneously your obligations under this
-License and any other pertinent obligations, then as a consequence you may
-not convey it at all. For example, if you agree to terms that obligate you
-to collect a royalty for further conveying from those to whom you convey
-the Program, the only way you could satisfy both those terms and this
-License would be to refrain entirely from conveying the Program.
-
- 13. Use with the GNU Affero General Public License.
-
- Notwithstanding any other provision of this License, you have
-permission to link or combine any covered work with a work licensed
-under version 3 of the GNU Affero General Public License into a single
-combined work, and to convey the resulting work. The terms of this
-License will continue to apply to the part which is the covered work,
-but the special requirements of the GNU Affero General Public License,
-section 13, concerning interaction through a network will apply to the
-combination as such.
-
- 14. Revised Versions of this License.
-
- The Free Software Foundation may publish revised and/or new versions of
-the GNU General Public License from time to time. Such new versions will
-be similar in spirit to the present version, but may differ in detail to
-address new problems or concerns.
-
- Each version is given a distinguishing version number. If the
-Program specifies that a certain numbered version of the GNU General
-Public License "or any later version" applies to it, you have the
-option of following the terms and conditions either of that numbered
-version or of any later version published by the Free Software
-Foundation. If the Program does not specify a version number of the
-GNU General Public License, you may choose any version ever published
-by the Free Software Foundation.
-
- If the Program specifies that a proxy can decide which future
-versions of the GNU General Public License can be used, that proxy's
-public statement of acceptance of a version permanently authorizes you
-to choose that version for the Program.
-
- Later license versions may give you additional or different
-permissions. However, no additional obligations are imposed on any
-author or copyright holder as a result of your choosing to follow a
-later version.
-
- 15. Disclaimer of Warranty.
-
- THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY
-APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT
-HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY
-OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO,
-THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
-PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM
-IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF
-ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
-
- 16. Limitation of Liability.
-
- IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
-WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS
-THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY
-GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE
-USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF
-DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD
-PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS),
-EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
-SUCH DAMAGES.
-
- 17. Interpretation of Sections 15 and 16.
-
- If the disclaimer of warranty and limitation of liability provided
-above cannot be given local legal effect according to their terms,
-reviewing courts shall apply local law that most closely approximates
-an absolute waiver of all civil liability in connection with the
-Program, unless a warranty or assumption of liability accompanies a
-copy of the Program in return for a fee.
-
- END OF TERMS AND CONDITIONS
-
- How to Apply These Terms to Your New Programs
-
- If you develop a new program, and you want it to be of the greatest
-possible use to the public, the best way to achieve this is to make it
-free software which everyone can redistribute and change under these terms.
-
- To do so, attach the following notices to the program. It is safest
-to attach them to the start of each source file to most effectively
-state the exclusion of warranty; and each file should have at least
-the "copyright" line and a pointer to where the full notice is found.
-
- <one line to give the program's name and a brief idea of what it does.>
- Copyright (C) <year> <name of author>
-
- This program is free software: you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation, either version 3 of the License, or
- (at your option) any later version.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- GNU General Public License for more details.
-
- You should have received a copy of the GNU General Public License
- along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-Also add information on how to contact you by electronic and paper mail.
-
- If the program does terminal interaction, make it output a short
-notice like this when it starts in an interactive mode:
-
- <program> Copyright (C) <year> <name of author>
- This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
- This is free software, and you are welcome to redistribute it
- under certain conditions; type `show c' for details.
-
-The hypothetical commands `show w' and `show c' should show the appropriate
-parts of the General Public License. Of course, your program's commands
-might be different; for a GUI interface, you would use an "about box".
-
- You should also get your employer (if you work as a programmer) or school,
-if any, to sign a "copyright disclaimer" for the program, if necessary.
-For more information on this, and how to apply and follow the GNU GPL, see
-<http://www.gnu.org/licenses/>.
-
- The GNU General Public License does not permit incorporating your program
-into proprietary programs. If your program is a subroutine library, you
-may consider it more useful to permit linking proprietary applications with
-the library. If this is what you want to do, use the GNU Lesser General
-Public License instead of this License. But first, please read
-<http://www.gnu.org/philosophy/why-not-lgpl.html>.
diff --git a/packages/realgud/Cask b/packages/realgud/Cask
deleted file mode 100644
index 29fa0ff..0000000
--- a/packages/realgud/Cask
+++ /dev/null
@@ -1,10 +0,0 @@
-(source gnu)
-(source melpa)
-
-(package-file "realgud.el")
-
-(depends-on "load-relative")
-(depends-on "loc-changes")
-
-(development
- (depends-on "test-simple"))
diff --git a/packages/realgud/ChangeLog b/packages/realgud/ChangeLog
deleted file mode 100644
index 4220559..0000000
--- a/packages/realgud/ChangeLog
+++ /dev/null
@@ -1,6549 +0,0 @@
-2016-08-04 rocky <address@hidden>
-
- * ChangeLog, Makefile.am, configure.ac: make install packaging Fixes
- #146. version 1.4.3
-
-2016-08-04 R. Bernstein <address@hidden>
-
- * : Merge pull request #145 from dunn/make_install configure.ac:
default lispdir relative to prefix
-
-2016-08-04 rocky <address@hidden>
-
- * INSTALL, INSTALL.md, Makefile.am, test/bt-helper.el: Fix up
- INSTALL. Tolerate older emacs
-
-2016-08-04 rocky <address@hidden>
-
- * .gitignore, THANKS: Administrivia
-
-2016-08-04 rocky <address@hidden>
-
- * Makefile.am, autogen.sh, common.mk, common.mk.in, configure.ac,
- realgud.el, test/Makefile.am, test/bt-helper.el,
- test/test-buf-cmd.el, test/test-regexp-gdb.el,
- test/test-regexp-rdebug.el: Set EMACSLOADPATH in make. remove more
- .el lint
-
-2016-08-04 Stefan Monnier <address@hidden>
-
- * ChangeLog, realgud.el, realgud/common/attach.el,
- realgud/common/backtrack-mode.el, realgud/common/buffer/info.el,
- realgud/common/cmds.el, realgud/common/fringe.el,
- realgud/common/helper.el, realgud/common/loc.el,
- realgud/common/lochist.el, realgud/common/regexp.el,
- realgud/common/run.el, realgud/common/send.el,
- realgud/common/track-mode.el, realgud/common/track.el,
- realgud/debugger/bashdb/core.el, realgud/debugger/bashdb/init.el,
- realgud/debugger/bashdb/track-mode.el,
- realgud/debugger/gdb/core.el, realgud/debugger/gdb/gdb.el,
- realgud/debugger/gdb/init.el, realgud/debugger/gdb/track-mode.el,
- realgud/debugger/gub/core.el, realgud/debugger/gub/init.el,
- realgud/debugger/gub/track-mode.el, realgud/debugger/ipdb/core.el,
- realgud/debugger/ipdb/init.el, realgud/debugger/ipdb/track-mode.el,
- realgud/debugger/jdb/backtrack-mode.el,
- realgud/debugger/jdb/core.el, realgud/debugger/jdb/init.el,
- realgud/debugger/jdb/jdb.el, realgud/debugger/jdb/track-mode.el,
- realgud/debugger/kshdb/core.el, realgud/debugger/kshdb/init.el,
- realgud/debugger/kshdb/track-mode.el,
- realgud/debugger/nodejs/core.el, realgud/debugger/nodejs/init.el,
- realgud/debugger/nodejs/track-mode.el,
- realgud/debugger/pdb/core.el, realgud/debugger/pdb/init.el,
- realgud/debugger/pdb/pdb.el, realgud/debugger/pdb/track-mode.el,
- realgud/debugger/perldb/core.el, realgud/debugger/perldb/init.el,
- realgud/debugger/perldb/track-mode.el,
- realgud/debugger/rdebug/core.el, realgud/debugger/rdebug/init.el,
- realgud/debugger/rdebug/track-mode.el,
- realgud/debugger/remake/core.el, realgud/debugger/remake/init.el,
- realgud/debugger/remake/track-mode.el,
- realgud/debugger/trepan.pl/backtrack-mode.el,
- realgud/debugger/trepan.pl/core.el,
- realgud/debugger/trepan.pl/init.el,
- realgud/debugger/trepan.pl/track-mode.el,
- realgud/debugger/trepan/backtrack-mode.el,
- realgud/debugger/trepan/core.el, realgud/debugger/trepan/init.el,
- realgud/debugger/trepan/track-mode.el,
- realgud/debugger/trepan2/core.el, realgud/debugger/trepan2/init.el,
- realgud/debugger/trepan2/track-mode.el,
- realgud/debugger/trepan3k/core.el,
- realgud/debugger/trepan3k/init.el,
- realgud/debugger/trepan3k/track-mode.el,
- realgud/debugger/trepanjs/backtrack-mode.el,
- realgud/debugger/trepanjs/core.el,
- realgud/debugger/trepanjs/init.el,
- realgud/debugger/trepanjs/track-mode.el,
- realgud/debugger/zshdb/core.el, realgud/debugger/zshdb/init.el,
- realgud/debugger/zshdb/track-mode.el, realgud/lang/js.el,
- realgud/lang/perl.el, realgud/lang/posix-shell.el,
- realgud/lang/python.el, realgud/lang/ruby.el,
- test/test-common-helper.el, test/test-core.el,
- test/test-regexp-rdebug.el, test/test-regexp-ruby.el,
- test/test-regexp.el, test/test-track.el: cl -> cl-lib and other
- goodies * packages/realgud/realgud.el: Add missing cl-lib dependency *
- <most-other-files>: Remove unneeded (require 'cl) and replace the
- other ones with (require 'cl-lib) *
packages/realgud/test/test-common-helper.el (realgud-test-info): *
packages/realgud/realgud/common/regexp.el (realgud-loc-pat): *
packages/realgud/realgud/common/lochist.el (realgud-loc-hist): *
packages/realgud/realgud/common/buffer/info.el
- (realgud-backtrace-info): * packages/realgud/realgud/common/loc.el
(realgud-loc): Use
- `cl-defstruct'. * packages/realgud/test/test-track.el: *
packages/realgud/test/test-regexp.el: *
packages/realgud/test/test-regexp-ruby.el: *
packages/realgud/test/test-regexp-rdebug.el: *
packages/realgud/test/test-core.el: Use lexical-binding rather
- than lexical-let. * packages/realgud/realgud/common/run.el
(realgud:run-process,
- realgud:run-debugger): Use cl-remove-if and cl-remove-duplicates. *
packages/realgud/realgud/common/track.el (realgud-track-bp-loc):
- Fix typo.
-
-2016-08-04 rocky <address@hidden>
-
- * realgud/common/core.el: (require 'files) is unnecessary -
- preloaded
-
-2016-08-04 rocky <address@hidden>
-
- * realgud/common/buffer/command.el, realgud/common/core.el,
- realgud/common/file.el, realgud/common/run.el,
- realgud/common/track.el, realgud/debugger/bashdb/init.el,
- realgud/debugger/jdb/init.el, realgud/debugger/kshdb/init.el,
- realgud/debugger/remake/init.el, realgud/debugger/trepan.pl/init.el:
- Add starting directory in info and... set top-frame-num in various
debuggers
-
-2016-08-03 rocky <address@hidden>
-
- * : commit d7bac581f04756582078cd9ea45e5a28406ee05c Author: rocky
- <address@hidden> Date: Wed Aug 3 20:49:31 2016 -0400
-
-2016-08-03 rocky <address@hidden>
-
- * : commit 3551ab20b46d0cb460c2a4d0c5c2f1c0e107a840 Author: rocky
- <address@hidden> Date: Wed Aug 3 06:24:21 2016 -0400
-
-2016-08-02 rocky <address@hidden>
-
- * realgud.el: I like the word "extensible"
-
-2016-08-02 rocky <address@hidden>
-
- * realgud/common/core.el, realgud/debugger/gdb/core.el: Avoid
- reading a binary as a source file * follow symlinks before running
"file" * don't find-file-noselect if file is large
-
-2016-08-02 rocky <address@hidden>
-
- * realgud.el: Version 1.4.3
-
-2016-08-02 rocky <address@hidden>
-
- * : commit b626f31bad820737c634fbac6fae078508b8566c Author: rocky
- <address@hidden> Date: Tue Aug 2 11:08:56 2016 -0400
-
-2016-08-02 rocky <address@hidden>
-
- * realgud/debugger/zshdb/core.el, realgud/debugger/zshdb/zshdb.el,
- test/test-zshdb.el: Remove ANSI schmutz from zshdb output
-
-2016-08-01 rocky <address@hidden>
-
- * : commit bbb86b7010cac192f05c274c57115423f8cc5cc7 Author: rocky
- <address@hidden> Date: Mon Aug 1 14:44:12 2016 -0400
-
-2016-08-01 R. Bernstein <address@hidden>
-
- * : Merge pull request #144 from npostavs/nosearch Don't add
subdirectories to load-path
-
-2016-08-01 rocky <address@hidden>
-
- * realgud.el: ELPA packaging Add lingo to express including
subdirectories
-
-2016-07-31 rocky <address@hidden>
-
- * README.md, realgud.el, realgud/common/buffer/command.el,
- realgud/debugger/bashdb/bashdb.el, realgud/debugger/gdb/core.el,
- realgud/debugger/gdb/gdb.el, realgud/debugger/ipdb/ipdb.el,
- realgud/debugger/jdb/jdb.el, realgud/debugger/kshdb/kshdb.el,
- realgud/debugger/nodejs/nodejs.el, realgud/debugger/pdb/pdb.el,
- realgud/debugger/perldb/perldb.el,
- realgud/debugger/rdebug/rdebug.el,
- realgud/debugger/remake/remake.el,
- realgud/debugger/trepan.pl/trepanpl.el,
- realgud/debugger/trepan/trepan.el,
- realgud/debugger/trepan3k/trepan3k.el,
- realgud/debugger/trepanjs/trepanjs.el,
- realgud/debugger/zshdb/zshdb.el: Reinstate 24.3. That checks out and
- works
-
-2016-07-31 rocky <address@hidden>
-
- * realgud.el, realgud/common/buffer/command.el,
- realgud/debugger/bashdb/bashdb.el, realgud/debugger/gdb/gdb.el,
- realgud/debugger/jdb/jdb.el, realgud/debugger/nodejs/nodejs.el,
- realgud/debugger/pdb/pdb.el, realgud/debugger/perldb/perldb.el,
- realgud/debugger/rdebug/rdebug.el,
- realgud/debugger/trepan.pl/trepanpl.el,
- realgud/debugger/zshdb/zshdb.el: Increase minimum versions recorded
-
-2016-07-31 R. Bernstein <address@hidden>
-
- * : Merge pull request #142 from dunn/helper-cl common/helper: require
cl
-
-2016-07-31 Alex Dunn <address@hidden>
-
- * realgud/common/helper.el: common/helper: require cl Otherwise `make
check` can lead to this error:
- https://gist.github.com/dunn/ee1080dd3b32aaf8594d3c8368da7bde
-
-2016-07-31 Alex Dunn <address@hidden>
-
- * el-get-install.el: el-get-install.el: remove list-utils Follow-up to
-
-
https://github.com/realgud/realgud/commit/b5d5f30780a2bcd13c90f3bf3643ef1509e8ee0band
-
-
https://github.com/realgud/realgud/commit/a8bd8678db59322dac1015576716c4ebb2c628df
-
-2016-07-31 rocky <address@hidden>
-
- * realgud.el: Sync with elpa
-
-2016-07-31 rocky <address@hidden>
-
- * configure.ac, realgud/common/run.el: Remove use of list-utils
- package
-
-2016-07-30 rocky <address@hidden>
-
- * : commit b5d5f30780a2bcd13c90f3bf3643ef1509e8ee0b Author: rocky
- <address@hidden> Date: Sat Jul 30 16:17:53 2016 -0400
-
-2016-07-30 rocky <address@hidden>
-
- * : commit a3fd8167747d311c316e096a7b357a305f421f85 Author: rocky
- <address@hidden> Date: Sat Jul 30 15:58:18 2016 -0400
-
-2016-07-30 rocky <address@hidden>
-
- * configure.ac, realgud.el: Release 1.4.0 which will be on melpa
- stable and elpa
-
-2016-07-30 rocky <address@hidden>
-
- * el-get-install.el: Need to put back el-get-install.el for travis
-
-2016-07-30 rocky <address@hidden>
-
- * .gitignore, Makefile.am, cr_exceptions.txt, el-get-install.el,
- etc/screenshot.el, realgud/common/bp-image-data.el,
- realgud/common/buffer/helper.el, realgud/common/lang.el,
- realgud/common/lochist.el, realgud/common/menu.el,
- realgud/common/regexp.el, realgud/common/reset.el,
- realgud/common/utils.el, realgud/common/window.el,
- realgud/debugger/bashdb/track-mode.el,
- realgud/debugger/gub/core.el, realgud/debugger/gub/track-mode.el,
- realgud/debugger/ipdb/core.el, realgud/debugger/jdb/core.el,
- realgud/debugger/jdb/file.el, realgud/debugger/jdb/init.el,
- realgud/debugger/jdb/jdb.el, realgud/debugger/jdb/track-mode.el,
- realgud/debugger/kshdb/core.el, realgud/debugger/kshdb/init.el,
- realgud/debugger/kshdb/kshdb.el, realgud/debugger/nodejs/nodejs.el,
- realgud/debugger/pdb/core.el, realgud/debugger/perldb/core.el,
- realgud/debugger/perldb/perldb.el, realgud/debugger/rdebug/core.el,
- realgud/debugger/rdebug/init.el, realgud/debugger/rdebug/rdebug.el,
- realgud/debugger/rdebug/track-mode.el,
- realgud/debugger/remake/core.el,
- realgud/debugger/remake/track-mode.el,
- realgud/debugger/trepan.pl/backtrack-mode.el,
- realgud/debugger/trepan.pl/core.el,
- realgud/debugger/trepan.pl/track-mode.el,
- realgud/debugger/trepan.pl/trepanpl.el,
- realgud/debugger/trepan/core.el,
- realgud/debugger/trepan/track-mode.el,
- realgud/debugger/trepan/trepan.el,
- realgud/debugger/trepan2/init.el,
- realgud/debugger/trepan2/trepan2.el,
- realgud/debugger/trepan3k/trepan3k.el,
- realgud/debugger/zshdb/core.el,
- realgud/debugger/zshdb/track-mode.el,
- realgud/debugger/zshdb/zshdb.el, realgud/lang/perl.el,
- realgud/lang/ruby.el: Finish FSF Copyright assignments
-
-2016-07-30 rocky <address@hidden>
-
- * Makefile.am, copyright_exceptions, realgud/common/core.el,
- realgud/common/custom.el, realgud/common/file.el,
- realgud/common/follow.el, realgud/common/fringe.el,
- realgud/common/helper.el, realgud/common/init.el,
- realgud/debugger/trepan2/core.el,
- realgud/debugger/trepan2/track-mode.el,
- realgud/debugger/trepan3k/core.el: Assign more copyrights to FSF
-
-2016-07-12 rocky <address@hidden>
-
- * realgud/common/shortkey.el: One more FSF copyright assignment
-
-2016-06-28 R. Bernstein <address@hidden>
-
- * : Merge pull request #137 from realgud/gdb-mi-warning Warn if gdb
--interpreter=mi or -i mi is used
-
-2016-06-28 rocky <address@hidden>
-
- * realgud/debugger/gdb/core.el, test/test-gdb-core.el: Warn if gdb
- --interpreter=mi or -i mi is used
-
-2016-06-27 rocky <address@hidden>
-
- * realgud/debugger/bashdb/bashdb.el, realgud/debugger/gdb/core.el,
- realgud/debugger/trepan/init.el, realgud/debugger/trepan2/core.el,
- realgud/debugger/trepan2/init.el,
- realgud/debugger/trepan2/track-mode.el,
- realgud/debugger/trepan2/trepan2.el,
- realgud/debugger/trepan3k/core.el,
- realgud/debugger/trepan3k/init.el,
- realgud/debugger/trepan3k/trepan3k.el: Reassign more copyrights to
- FSF
-
-2016-06-18 rocky <address@hidden>
-
- * realgud/common/run.el: Another small doc change
-
-2016-06-18 rocky <address@hidden>
-
- * realgud/common/run.el: Improve realgud:run-process docstring
-
-2016-06-17 rocky <address@hidden>
-
- * realgud/common/buffer/source.el: Remove code added by mistake
-
-2016-06-15 rocky <address@hidden>
-
- * realgud/debugger/gdb/gdb.el: Simpler change to previous commit
-
-2016-06-15 rocky <address@hidden>
-
- * realgud/common/bp.el, realgud/common/buffer/backtrace.el,
- realgud/common/buffer/command.el, realgud/common/buffer/info.el,
- realgud/common/buffer/source.el, realgud/common/run.el,
- realgud/common/track.el, realgud/debugger/gdb/gdb.el: Correct
- realgud:gdb-pid-associate call Fixes #132 * Add more FSF copyrights. *
some 't -> t * track.el: missing prototype in enable/disable use
-
-2016-06-13 rocky <address@hidden>
-
- * realgud/debugger/trepan.pl/init.el, test/test-regexp-trepanpl.el:
- Correct enable/disable pattern for trepan.pl
-
-2016-06-13 Derek <address@hidden>
-
- * realgud/common/key.el: Don't bind standard keys when disabled by
- config (#131) The realgud-populate-common-fn-keys-standard map function
was always
- run, even when realgud-populate-common-fn-keys-function was
- configured as nil. Fixes #129
-
-2016-06-12 R. Bernstein <address@hidden>
-
- * : Merge pull request #130 from realgud/enable-disable Enable disable
-
-2016-06-12 rocky <address@hidden>
-
- * : commit bc1f4ba4944ff83f19cbf02ff0dd5414589a15ec Author: rocky
- <address@hidden> Date: Sun Jun 12 18:32:23 2016 -0400
-
-2016-06-12 Clément Pit--Claudel <address@hidden>
-
- * realgud/debugger/ipdb/init.el, realgud/debugger/pdb/init.el: Relax
- deleted breakpoint regexp in PDB to support Python 2 and 3 In Python 3,
the deleted breakpoint message include a file path and
- a line number; it doesn't in Python 2. Related to #115; thanks
@ilohmar for reporting!
-
-2016-06-08 rocky <address@hidden>
-
- * realgud/common/cmds.el: Restart should be a confirm command too.
-
-2016-06-08 rocky <address@hidden>
-
- * realgud/common/run.el, realgud/debugger/ipdb/core.el,
- realgud/debugger/ipdb/ipdb.el, realgud/debugger/pdb/core.el,
- realgud/debugger/pdb/pdb.el: Fill out pdb-remote execution Fixes #128 ?
-
-2016-06-08 R. Bernstein <address@hidden>
-
- * : Merge pull request #126 from realgud/103-jump 103 jump
-
-2016-06-07 rocky <address@hidden>
-
- * realgud/common/cmds.el: Confirm on debugger quit.
-
-2016-06-06 rocky <address@hidden>
-
- * realgud/debugger/bashdb/init.el, realgud/debugger/nodejs/init.el,
- realgud/debugger/perldb/init.el, realgud/debugger/remake/init.el,
- realgud/debugger/trepan.pl/init.el, realgud/debugger/zshdb/init.el:
- Mark debuggers that don't have "jump".
-
-2016-06-06 rocky <address@hidden>
-
- * : commit 703e08727ee97116f8df36cc7ae2be6c87a64591 Author: rocky
- <address@hidden> Date: Mon Jun 6 08:26:04 2016 -0400
-
-2016-06-06 rocky <address@hidden>
-
- * realgud/lang/posix-shell.el, test/Makefile.am,
- test/test-regexp-bashdb.el, test/test-regexp-zshdb.el: Correct
- "breakpoint deleted" regexp test-regexp-zshdb.el: beef up and sync to
corresponding bashdb test.
- Makefile.am: make "make check-short" in this directory work
-
-2016-06-04 Clément Pit--Claudel <address@hidden>
-
- * README.md: Update Travis links
-
-2016-06-04 Clément Pit--Claudel <address@hidden>
-
- * INSTALL, README.md, realgud.el: A few more link updates (+ small
- edits in Commentary)
-
-2016-06-04 R. Bernstein <address@hidden>
-
- * : Merge pull request #121 from
- realgud/revert-95-revert-94-84-fix-autoloads Revert "Revert "Manually
generate "recursive" autoloads for
- subdirectories""
-
-2016-06-02 rocky <address@hidden>
-
- * realgud.el: Update doc links
-
-2016-06-02 Clément Pit--Claudel <address@hidden>
-
- * realgud/common/follow.el, realgud/common/fringe.el,
- realgud/common/shortkey.el: Fix invalid references to
- realgud:loc-follow `follow-mark' was introduced in
- dcc152aa6aea8d201596750c1b69b63e57c4fd43, but a few references to
- loc-follow had remained since then. Also replace a few instances of
(interactive "") with (interactive). Fixes #91.
-
-2016-06-01 Clément Pit--Claudel <address@hidden>
-
- * README.md, realgud/common/cmds.el, realgud/common/shortkey.el: Add
- basic support for jumping
-
-2016-06-01 R. Bernstein <address@hidden>
-
- * : Merge pull request #119 from realgud/improve-break-C-u Further
cleanups of cmds.el + improved C-u behaviour
-
-2016-06-01 Clément Pit--Claudel <address@hidden>
-
- * realgud/common/cmds.el: Further cleanup in cmds.el: remove unused
- arguments Affected commands: kill, next-no-arg, repeat-last, restart,
and
- shell.
-
-2016-06-01 Clément Pit--Claudel <address@hidden>
-
- * realgud/common/send.el: Clarify %p in documentation of
- expand-format Also ensure %s formats nil as an empty string (for
consistency with
- %p).
-
-2016-06-01 R. Bernstein <address@hidden>
-
- * : Merge pull request #114 from rocky/default-hash Further refactor
cmds.el
-
-2016-05-31 Clément Pit--Claudel <address@hidden>
-
- * : Ensure that the Github organization logo is a square
-
-2016-05-31 Clément Pit--Claudel <address@hidden>
-
- * realgud/common/cmds.el: Further refactor cmds.el Instead of passing a
default template in each individual call,
- collect all default templates in a single hash. Take that
- opportunity to clean up the two 'cmd-*-no-args' implementations.
-
-2016-05-31 Clément Pit--Claudel <address@hidden>
-
- * realgud/common/cmds.el: Remove unwanted argument in call to
- cmd-run-command (this is a leftover from
d2b8d132388d18c0ce865a21eafc666ecb7d2b03)
-
-2016-05-31 Clément Pit--Claudel <address@hidden>
-
- * : Merge pull request #113 from rocky/logo New RealGUD logo
-
-2016-05-31 Clément Pit--Claudel <address@hidden>
-
- * etc/screenshot.el: Update screenshot
-
-2016-05-31 Clément Pit--Claudel <address@hidden>
-
- * README.md: Slightly shorten setup instructions in README
-
-2016-05-30 Clément Pit--Claudel <address@hidden>
-
- * realgud/common/file.el: Fix file-column-to-string in the presence
- of composed characters (- (current-column) (length source-text)) is not
necessarily a valid
- source position: indeed, when a line contains composed characters,
- these characters do not count towards column numbers; thus, the
- largest column on a line containing n characters can be < n, and
- thus the existing code could return negative column numbers. Concrete
example: starting trepan2 on a buffer created by the
- following snippet would cause realgud to crash:
(with-current-buffer (get-buffer-create "*python-prettified*")
(python-mode) (erase-buffer) (setq-local prettify-symbols-alist
'(("in" . ?∈))) (insert "for x in [1,2,3]:\n pass")
(prettify-symbols-mode) (pop-to-buffer (current-buffer)))
-
-2016-05-30 rocky <address@hidden>
-
- * realgud/debugger/bashdb/init.el,
- realgud/debugger/trepan.pl/init.el,
- realgud/debugger/trepan2/init.el,
- realgud/debugger/trepan3k/init.el, realgud/debugger/zshdb/init.el,
- realgud/lang/posix-shell.el, test/test-regexp-bashdb.el,
- test/test-regexp-trepanpl.el, test/test-regexp-zshdb.el: Add some
- enable/disble patterns Note: code for perl, zshdb and bashdb will work
right only after the
- next releases of these packages.
-
-2016-05-30 Amelio Vazquez-Reina <address@hidden>
-
- * README.md: Update README.md Expanded installation instructions.
-
-2016-05-30 R. Bernstein <address@hidden>
-
- * : Merge pull request #111 from
- rocky/better-breakpoint-highlighting Improve visibility of breakpoints
-
-2016-05-30 R. Bernstein <address@hidden>
-
- * : Merge pull request #110 from rocky/delete-multiple-breakpoints
Allow realgud-track-bp-delete to recognize multiple breakpoints
-
-2016-05-30 Clément Pit--Claudel <address@hidden>
-
- * realgud/common/track.el, realgud/debugger/gdb/init.el: Allow
- realgud-track-bp-delete to recognize multiple breakpoints
-
-2016-05-30 rocky <address@hidden>
-
- * README.md, THANKS: Alway late on this kind of thing.
-
-2016-05-30 rocky <address@hidden>
-
- * realgud/common/track.el: Typo
-
-2016-05-30 rocky <address@hidden>
-
- * realgud/common/bp.el, realgud/common/track.el,
- realgud/debugger/bashdb/init.el, realgud/lang/posix-shell.el,
- test/test-regexp-bashdb.el: Handle enable/disable bp status messages
- - 1st cut
-
-2016-05-30 R. Bernstein <address@hidden>
-
- * : Merge pull request #106 from rocky/75-ipdb-completion Improve IPDB
completion
-
-2016-05-30 Clément Pit--Claudel <address@hidden>
-
- * realgud/debugger/ipdb/core.el: Improve IPDB completion Fail
gracefully if point isn't at prompt, and get prefix from
- iPython instead of relying on bounds-of-thing-at-point. Fixes #75.
-
-2016-05-30 Clément Pit--Claudel <address@hidden>
-
- * README.md, etc/screenshot.el: Rewrite README Closes #72. Screenshot
is auto-generated using etc/screenshot.el.
-
-2016-05-30 Clément Pit--Claudel <address@hidden>
-
- * realgud/common/fringe-utils.py: Add python3 shebang to
- fringe-utils.py
-
-2016-05-30 Clément Pit--Claudel <address@hidden>
-
- * Cask: Fill in missing bits of Cask file
-
-2016-05-30 Clément Pit--Claudel <address@hidden>
-
- * realgud/common/buffer/source.el: Simplify the implementation of
- realgud:cmdbuf-associate
-
-2016-05-29 Clément Pit--Claudel <address@hidden>
-
- * realgud/common/buffer/source.el: Show default buffer when
- automatically attaching
-
-2016-05-29 R. Bernstein <address@hidden>
-
- * : Merge pull request #104 from rocky/36-auto-attach Automatically
attach to a command buffer when enabling
- short-key-mode
-
-2016-05-29 rocky <address@hidden>
-
- * realgud.el: Update commentary; e.g. link to debuggers handled
-
-2016-05-29 Clément Pit--Claudel <address@hidden>
-
- * realgud/common/buffer/source.el, realgud/common/shortkey.el:
- Automatically attach to a command buffer when enabling
- short-key-mode When enabling short-key-mode in an orphan source buffer
(i.e. one
- that isn't attached to a command buffer), prompt the user for a
- command buffer to attach to instead of complaining (and complain
- only if there is no available command buffer). Additionally make
shortkey-mode-setup more robust by restoring the
- original local map properly disabling the toolbar after exiting.
Closes #36; thanks for the suggestion!
-
-2016-05-29 Clément Pit--Claudel <address@hidden>
-
- * realgud/common/buffer/source.el, realgud/common/shortkey.el: Minor
- docstring and code cleanups
-
-2016-05-29 Clément Pit--Claudel <address@hidden>
-
- * realgud/common/helper.el: Use `buffer-live-p' instead of
- `buffer-name' in `buffer-killed?'
-
-2016-05-29 R. Bernstein <address@hidden>
-
- * : Merge pull request #101 from rocky/bp-icon-in-fringe Refactor and
improve breakpoint UI
-
-2016-05-29 Clément Pit--Claudel <address@hidden>
-
- * realgud/common/cmds.el: Ignore safe-mode setting when clicking a
- toolbar button
-
-2016-05-29 R. Bernstein <address@hidden>
-
- * : Merge pull request #98 from rocky/83-better-scope-keybindings Fix
83 and 88: refactor cmds.el
-
-2016-05-28 Clément Pit--Claudel <address@hidden>
-
- * realgud/common/key.el: Add a few bindings to shortkey-mode This is in
preparation for refactoring cmds.el. All keys were
- picked from calls to cmd-remap.
-
-2016-05-28 Clément Pit--Claudel <address@hidden>
-
- * realgud/debugger/nodejs/init.el,
- realgud/debugger/nodejs/track-mode.el,
- realgud/debugger/perldb/track-mode.el,
- realgud/debugger/remake/track-mode.el,
- realgud/debugger/zshdb/track-mode.el: Prepare for refactoring of
- realgud-cmd * all: remove (declare-function cmd-remap) * perldb: Remove
custom binding for backtrace * nodejs: Remove custom bindings for backtrace.
Remove rebinding of “break” and update hash instead.
-
-2016-05-28 Clément Pit--Claudel <address@hidden>
-
- * realgud/common/cmds.el: Rename
- realgud:prompt-if-{prefix-or-,}safe-mode The if-prefix part was an
unfortunate choice.
-
-2016-05-28 R. Bernstein <address@hidden>
-
- * : Merge pull request #95 from rocky/revert-94-84-fix-autoloads Revert
"Manually generate "recursive" autoloads for subdirectories"
-
-2016-05-28 R. Bernstein <address@hidden>
-
- * : Merge pull request #94 from rocky/84-fix-autoloads Manually
generate "recursive" autoloads for subdirectories
-
-2016-05-28 R. Bernstein <address@hidden>
-
- * : Merge pull request #93 from cpitclaudel/small-fixes-in-cmds Small
fixes in cmds.el
-
-2016-05-28 R. Bernstein <address@hidden>
-
- * : Merge pull request #89 from
- cpitclaudel/87-improve-delete-command Improve behavior of delete,
enable, and disable
-
-2016-05-28 Clément Pit--Claudel <address@hidden>
-
- * realgud/common/cmds.el: Add a "safe mode" setting (on by default) In
safe mode, prompt and offer a tip on how to disable safe mode
- before running "continue".
-
-2016-05-28 R. Bernstein <address@hidden>
-
- * : Merge pull request #90 from cpitclaudel/82-add-prefix-arg-to-c Add
a prefix arg to "continue" command
-
-2016-05-28 Clément Pit--Claudel <address@hidden>
-
- * realgud/common/cmds.el: Improve behavior of delete, enable, and
- disable Interactively, these three commands now disable, enable, or
delete a
- breakpoint found on the current line, and only prompt for a
- breakpoint number if they can't find one. This default behavior is
overridden in two cases: * When a numeric prefix argument is given, in which
case they use
- that as the breakpoint number (consistent with current behavior) *
When a generic prefix argument is given, in which case they always prompt,
but offer a breakpoint number on the current line as the default. Closes #87.
-
-2016-05-28 R. Bernstein <address@hidden>
-
- * : Merge pull request #86 from cpitclaudel/83-improve-e-binding
Improve eval: run on region if active, and fall back to prompting
-
-2016-05-27 R. Bernstein <address@hidden>
-
- * : Merge pull request #85 from cpitclaudel/84-pdb-fixes Improve
command mappings in pdb-command-hash
-
-2016-05-27 Clément Pit--Claudel <address@hidden>
-
- * realgud/debugger/pdb/init.el: Improve command mappings in
- pdb-command-hash This fixes parts of issue #82.
-
-2016-05-25 R. Bernstein <address@hidden>
-
- * : Merge pull request #81 from rocky/ipdb-complete Ipdb complete
-
-2016-05-25 Clément Pit--Claudel <address@hidden>
-
- * realgud/common/core.el: Improve completion and default value in
- realgud-query-cmdline
-
-2016-05-24 rocky <address@hidden>
-
- * test/test-ipdb.el: fake realgud:run-process better
-
-2016-05-24 rocky <address@hidden>
-
- * realgud/debugger/ipdb/core.el, realgud/debugger/ipdb/ipdb.el:
- Towards fixing up tab completion in ipdb.
-
-2016-05-23 rocky <address@hidden>
-
- * realgud/common/track.el: Fix wrong setq call [Fixes #79]
-
-2016-03-05 rocky <address@hidden>
-
- * realgud.el: Reinstate ipdb support
-
-2016-03-03 rocky <address@hidden>
-
- * realgud.el, realgud/debugger/nodejs/nodejs.el,
- realgud/debugger/pdb/pdb.el, realgud/debugger/perldb/perldb.el,
- realgud/debugger/rdebug/rdebug.el,
- realgud/debugger/trepan.pl/trepanpl.el,
- realgud/debugger/zshdb/zshdb.el, test/test-regexp-ipdb.el: Disable
- ipdb until melpa is updated debugger*/*.el: standardize more on emacs
24.3 test-regexp-ipdb.el:
- squelch warnings
-
-2016-03-02 rocky <address@hidden>
-
- * realgud.el: Bump version * Accumulates lots of past changes * removes
a number of older debuggers in realgud-old-debuggers * adds ipdb
-
-2016-02-29 R. Bernstein <address@hidden>
-
- * : Merge pull request #74 from rocky/ipdb Add ipdb support and remove
some of the older debuggers
-
-2016-02-21 rocky <address@hidden>
-
- * configure.ac, realgud.el, realgud/common/backtrack-mode.el,
- realgud/debugger/Makefile.am, realgud/debugger/pydb/Makefile.am,
- realgud/debugger/pydb/core.el, realgud/debugger/pydb/init.el,
- realgud/debugger/pydb/pydb.el, realgud/debugger/pydb/track-mode.el,
- realgud/debugger/pydbgr/Makefile.am,
- realgud/debugger/pydbgr/core.el, realgud/debugger/pydbgr/init.el,
- realgud/debugger/pydbgr/pydbgr.el,
- realgud/debugger/pydbgr/track-mode.el,
- realgud/debugger/trepan8/Makefile.am,
- realgud/debugger/trepan8/core.el, realgud/debugger/trepan8/init.el,
- realgud/debugger/trepan8/track-mode.el,
- realgud/debugger/trepan8/trepan8.el,
- realgud/debugger/trepanx/Makefile.am,
- realgud/debugger/trepanx/core.el, realgud/debugger/trepanx/init.el,
- realgud/debugger/trepanx/track-mode.el,
- realgud/debugger/trepanx/trepanx.el, test/test-bt-pydb.el,
- test/test-bt-pydbgr.el, test/test-bt-trepanx.el,
- test/test-loc-regexp-trepanx.el, test/test-pydb.el,
- test/test-pydbgr.el, test/test-realgud.el,
- test/test-regexp-pydb.el, test/test-regexp-pydbgr.el,
- test/test-regexp-trepanx.el: Move older, lesser-used debuggers to
- another repo
-
-2016-02-17 rocky <address@hidden>
-
- * realgud/debugger/kshdb/init.el, realgud/debugger/rdebug/init.el:
- Remove stray character Thanks, seanfarley!
-
-2016-02-16 Sean Farley <address@hidden>
-
- * test/test-regexp-ipdb.el: ipdb: add regex test
-
-2016-02-16 Sean Farley <address@hidden>
-
- * test/test-ipdb.el: ipdb: add test
-
-2016-02-14 rocky <address@hidden>
-
- * realgud/common/backtrack-mode.el,
- realgud/debugger/rdebug/init.el, realgud/debugger/trepan/init.el,
- realgud/lang/ruby.el: Add rspec loc pattern.. .. in the never-ending
battle of again location reporting
- originality init.el: DRY
-
-2016-01-26 Sean Farley <address@hidden>
-
- * realgud/debugger/ipdb/track-mode.el: ipdb: add tab completion to
- track-mode
-
-2016-01-24 Sean Farley <address@hidden>
-
- * realgud/debugger/ipdb/ipdb.el: ipdb: add hook for completion to
- initialization
-
-2016-01-26 Sean Farley <address@hidden>
-
- * realgud/debugger/ipdb/core.el, realgud/debugger/ipdb/ipdb.el:
- ipdb: add tab completion
-
-2016-02-12 Sean Farley <address@hidden>
-
- * THANKS, configure.ac, realgud.el, realgud/debugger/Makefile.am,
- realgud/debugger/ipdb/Makefile.am, realgud/debugger/ipdb/core.el,
- realgud/debugger/ipdb/init.el, realgud/debugger/ipdb/ipdb.el,
- realgud/debugger/ipdb/track-mode.el: ipdb: add new debugger based on
- pdb
-
-2016-01-10 rocky <address@hidden>
-
- * realgud/debugger/kshdb/init.el: Not sure why this initialization
- was there, but it is syntactically wrong anyway.
-
-2016-01-10 rocky <address@hidden>
-
- * realgud/common/shortkey.el: Fix bug in picking out short-key
- variable name introduced by recent changes
-
-2016-01-10 rocky <address@hidden>
-
- * realgud/common/backtrack-mode.el,
- realgud/common/buffer/backtrace.el, realgud/common/track.el,
- realgud/debugger/gdb/gdb.el, realgud/debugger/gdb/track-mode.el,
- realgud/debugger/gub/init.el, realgud/debugger/gub/track-mode.el,
- realgud/debugger/jdb/jdb.el, realgud/debugger/jdb/track-mode.el,
- realgud/debugger/trepan.pl/init.el: More cleanup from last two
- commits.
-
-2016-01-10 rocky <address@hidden>
-
- * realgud/common/buffer/command.el, realgud/common/regexp.el,
- realgud/common/track.el, realgud/debugger/gdb/init.el,
- realgud/debugger/jdb/init.el: Redo previous commit handle
- base-variable determination from debugger name. We now do it via a
- hash table where entries are set in <debugger>/init.el Cleanup of
- old code is still needed.
-
-2016-01-09 rocky <address@hidden>
-
- * realgud/common/helper.el, realgud/common/track.el,
- realgud/debugger/gdb/gdb.el, realgud/debugger/gdb/track-mode.el,
- realgud/debugger/jdb/track-mode.el, test/test-common-helper.el:
- track.el: Allow us to separate stem variable name to get debugger
- config from debugger name. This will make it easier
-
-2015-12-15 rocky <address@hidden>
-
- * realgud/debugger/pdb/init.el, realgud/debugger/trepan2/init.el,
- realgud/debugger/trepan3k/init.el, realgud/lang/python.el: Add
- pytest error message pattern in python debuggers
-
-2015-12-15 rocky <address@hidden>
-
- * test/bt-helper.el: Travis emacs doesn't do font-lock-ensure. Use
- older form for now
-
-2015-12-15 rocky <address@hidden>
-
- * realgud/common/track-mode.el, realgud/common/track.el: Add C-c ! d
- in a command buffer to get from a debugger location line in the
- command buffer to the corresponding source. Add
- realgud:goto-debugger-loc-line. Revise doc strings.
-
-2015-12-11 rocky <address@hidden>
-
- * realgud/common/buffer/command.el, realgud/common/regexp.el,
- realgud/common/send.el, realgud/common/track.el,
- realgud/debugger/perldb/init.el, test/bt-helper.el,
- test/test-common-helper.el, test/test-gdb-core.el,
- test/test-loc-regexp-nodejs.el, test/test-regexp-gdb.el,
- test/test-regexp-perldb.el: Add ability to have alternate group
- location file and line numbers. This is for perldb's all-over-the
place location reporting. perldb.el: adjust locations for perldb's complicated
location
- regexps. Probably broke debug output for older perldb, and probably
- slightly improved it for current perldb. remove various compiler
warnings.
-
-2015-12-06 rocky <address@hidden>
-
- * realgud/debugger/trepan2/init.el,
- realgud/debugger/trepan3k/init.el: Last commit set wrong variables
-
-2015-12-06 rocky <address@hidden>
-
- * realgud/debugger/trepan2/init.el,
- realgud/debugger/trepan3k/init.el: Use quit! in python trepan
- debuggers
-
-2015-12-04 rocky <address@hidden>
-
- * THANKS: Add Kilian
-
-2015-12-04 rocky <address@hidden>
-
- * README.md: Try to tidy badges a little
-
-2015-12-04 R. Bernstein <address@hidden>
-
- * : Merge pull request #63 from
- cohomology/feature/empty_command_line Fix several issues when calling
gdb, Fixes #59
-
-2015-12-03 rocky <address@hidden>
-
- * realgud/common/buffer/backtrace.el, realgud/common/fringe.el:
- Change fringe arrow background colors based on dark or light
- background.
-
-2015-11-28 rocky <address@hidden>
-
- * realgud/common/core.el, realgud/debugger/gdb/track-mode.el: Don't
- try source buffer initialization if it doesn't exist. That just
- creates a new buffer. Fixes #60
-
-2015-11-27 rocky <address@hidden>
-
- * realgud/common/regexp.el, realgud/debugger/gdb/init.el: Partially
- addresses #61. Handling multiple breakpoints on a line still
- remains.
-
-2015-11-26 rocky <address@hidden>
-
- * realgud/debugger/gdb/gdb.el, realgud/debugger/gdb/init.el:
- init.el: break and clear command use %X rather than %l Add some
- support functions for invoking via gdb -p. Fixes issue #58
-
-2015-11-23 rocky <address@hidden>
-
- * test/test-lochist.el: Typo
-
-2015-11-23 rocky <address@hidden>
-
- * realgud/debugger/perldb/init.el, test/test-bashdb.el,
- test/test-bp.el, test/test-bt-pdb.el, test/test-bt-pydb.el,
- test/test-bt-pydbgr.el, test/test-bt-rdebug.el,
- test/test-bt-trepan.el, test/test-bt-trepan2.el,
- test/test-bt-trepan3k.el, test/test-bt-trepanx.el,
- test/test-bt-zshdb.el, test/test-buf-bt.el, test/test-buf-cmd.el,
- test/test-core.el, test/test-file.el, test/test-gdb.el,
- test/test-gub-core.el, test/test-jdb.el, test/test-lang.el,
- test/test-loc-regexp-gub.el, test/test-loc-regexp-nodejs.el,
- test/test-loc-regexp-trepan.el, test/test-loc-regexp-trepanpl.el,
- test/test-loc-regexp-trepanx.el, test/test-loc.el,
- test/test-lochist.el, test/test-nodejs.el, test/test-pdb.el,
- test/test-perldb.el, test/test-pydb.el, test/test-pydbgr.el,
- test/test-rdebug.el, test/test-realgud.el,
- test/test-regexp-bashdb.el, test/test-regexp-gdb.el,
- test/test-regexp-gub.el, test/test-regexp-jdb.el,
- test/test-regexp-nodejs.el, test/test-regexp-pdb.el,
- test/test-regexp-perldb.el, test/test-regexp-pydb.el,
- test/test-regexp-pydbgr.el, test/test-regexp-rdebug.el,
- test/test-regexp-remake.el, test/test-regexp-ruby.el,
- test/test-regexp-trepan.el, test/test-regexp-trepan2.el,
- test/test-regexp-trepan3k.el, test/test-regexp-trepanjs.el,
- test/test-regexp-trepanpl.el, test/test-regexp-trepanx.el,
- test/test-regexp-zshdb.el, test/test-regexp.el,
- test/test-remake-core.el, test/test-remake.el, test/test-send.el,
- test/test-shortkey.el, test/test-srcbuf.el,
- test/test-track-mode.el, test/test-track.el, test/test-trepan2.el,
- test/test-trepan3k.el, test/test-trepanpl.el, test/test-utils.el,
- test/test-zshdb.el: Go over perldb init re's. Attempt smaller
- cleanup of tests and note how to run non-interactively inside emacs.
-
-2015-11-23 rocky <address@hidden>
-
- * : commit ca528967ff0595ed2a1f601f9a62f1f923b1aee1 Author: rocky
- <address@hidden> Date: Mon Nov 23 07:32:12 2015 -0500
-
-2015-11-22 rocky <address@hidden>
-
- * : commit 0514c681afe3d06e9a2dd394702a2b431938d6f7 Author: rocky
- <address@hidden> Date: Sun Nov 22 09:37:40 2015 -0500
-
-2015-11-21 rocky <address@hidden>
-
- * realgud/common/buffer/source.el, realgud/common/send.el: Error on
- realgud:cmdbuf-associate if you assocate a non-command buffer.
- TODO: only suggest cmdbuf buffers.
-
-2015-11-21 rocky <address@hidden>
-
- * realgud/common/core.el, realgud/common/run.el,
- realgud/debugger/gdb/gdb.el: realgud-exec-shell: Make sure we switch
- to cmdbuf even when there is an error. gdb.el: insert set-annotate
- only if process is running.
-
-2015-11-15 rocky <address@hidden>
-
- * realgud/debugger/perldb/init.el: I said remove perl5db as an alias
-
-2015-11-11 rocky <address@hidden>
-
- * .gitignore, Cask: Try cask
-
-2015-11-10 rocky <address@hidden>
-
- * realgud/debugger/perldb/perldb.el: perl5db alias messes up
- realgud-track-mode, so drop that name.
-
-2015-11-02 rocky <address@hidden>
-
- * realgud/common/cmds.el, realgud/debugger/jdb/init.el,
- realgud/debugger/jdb/jdb.el, realgud/debugger/nodejs/nodejs.el,
- test/.gitignore, test/HelloWorld.java: wrong args in jdb invocation;
- issue #51. Disable some jdb commands we can't support.
-
-2015-10-25 rocky <address@hidden>
-
- * realgud/common/core.el: Show failure in message and in cmdbuf when
- we fail to invoke a debugger
-
-2015-10-17 rocky <address@hidden>
-
- * : commit bdf317ee3b71992044f3efaf288358d12c247d94 Author: rocky
- <address@hidden> Date: Sat Oct 17 12:31:54 2015 -0400
-
-2015-10-06 rocky <address@hidden>
-
- * realgud/common/key.el, realgud/debugger/bashdb/bashdb.el,
- realgud/debugger/bashdb/core.el, realgud/debugger/gdb/gdb.el,
- realgud/debugger/nodejs/nodejs.el, realgud/debugger/zshdb/zshdb.el:
- Typo: Issue #45
-
-2015-07-29 rocky <address@hidden>
-
- * realgud/debugger/pdb/core.el, realgud/debugger/pdb/pdb.el: Add
- realgud:pdb-remote for remote kinds of pdb execution, e.g. telnet
- hostname port-number. This hasn't been tested.
-
-2015-07-19 rocky <address@hidden>
-
- * realgud/common/key.el: Fix typo poined out by dfelch.
-
-2015-06-05 rocky <address@hidden>
-
- * realgud/debugger/gdb/init.el: Doc gdb regexp more.
-
-2015-05-17 rocky <address@hidden>
-
- * realgud/debugger/trepan2/init.el, realgud/lang/python.el,
- test/test-regexp-trepan2.el: Python trepan debuggers include
- instruction offset in location
-
-2015-05-06 rocky <address@hidden>
-
- * realgud/debugger/trepanjs/init.el: trepanjs backtrace format
- changes next release
-
-2015-05-04 rocky <address@hidden>
-
- * realgud/debugger/trepanjs/init.el, test/test-regexp-nodejs.el,
- test/test-regexp-trepanjs.el: Revise trepanjs regexps and add regexp
- test.
-
-2015-04-30 rocky <address@hidden>
-
- * realgud/debugger/gub/init.el: DRY gub init captured numbered re's.
-
-2015-04-29 rocky <address@hidden>
-
- * realgud/debugger/trepanjs/init.el: trepanjs location format has
- changed
-
-2015-04-29 rocky <address@hidden>
-
- * realgud/common/buffer/backtrace.el, realgud/debugger/gub/gub.el,
- realgud/debugger/remake/remake.el: Administrivia
-
-2015-04-28 rocky <address@hidden>
-
- * realgud/debugger/trepanjs/init.el: trepanjs msg change: stop in ->
- call in
-
-2015-04-28 rocky <address@hidden>
-
- * realgud.el, realgud/debugger/gdb/init.el: gdb: DRY captured number
- uses.
-
-2015-04-28 rocky <address@hidden>
-
- * realgud/debugger/trepanjs/core.el,
- realgud/debugger/trepanjs/init.el: core.el: correct trepanjs options
- init.el: we can have "stop on" as well as "break on" or "execption
- on"
-
-2015-04-26 rocky <address@hidden>
-
- * realgud/common/cmds.el: caddr -> cl-caddr. Fill in %s on format.
-
-2015-04-26 rocky <address@hidden>
-
- * realgud/common/cmds.el, realgud/debugger/nodejs/core.el,
- realgud/debugger/nodejs/init.el, realgud/debugger/trepanjs/core.el:
- bang on trepanjs and nodejs. cmds.el: Allow for debug commands not
- to be implemented
-
-2015-04-24 rocky <address@hidden>
-
- * realgud/lang/js.el: DRY with respect to
- realgud:regexp-captured-num
-
-2015-04-24 rocky <address@hidden>
-
- * realgud/debugger/trepanjs/init.el, test/gcd.js: trepanjs: handle
- eval properly test/gcd.js: more useful
-
-2015-04-24 rocky <address@hidden>
-
- * : commit aa3125d819aba3aeb827f023d458e62019879550 Author: rocky
- <address@hidden> Date: Thu Apr 23 11:48:02 2015 -0400
-
-2015-04-23 rocky <address@hidden>
-
- * realgud/debugger/bashdb/init.el,
- realgud/debugger/bashdb/track-mode.el,
- realgud/debugger/trepan8/init.el, realgud/debugger/zshdb/init.el,
- realgud/lang/posix-shell.el: DRY realgud:regexp-capture-num and add
- more FSF copyrights
-
-2015-04-22 rocky <address@hidden>
-
- * realgud/debugger/trepanjs/init.el: init.el: bracketed short name
- is optional
-
-2015-04-22 rocky <address@hidden>
-
- * realgud/common/regexp.el, realgud/debugger/nodejs/init.el,
- realgud/lang/js.el: common/regexp.el: start to DRY regexps
- lang/js.el: term escape is common to nodejs and trepanjs
-
-2015-04-22 rocky <address@hidden>
-
- * realgud/common/regexp.el, realgud/debugger/nodejs/init.el,
- realgud/debugger/trepanjs/init.el, realgud/lang/js.el:
- trepanjs/init.el: handle newly added fully-qualified paths
- common/regexp.el: start to DRY regexps lang/js.el: term escape is
- common to nodejs and trepanjs
-
-2015-04-22 rocky <address@hidden>
-
- * realgud/debugger/nodejs/nodejs.el,
- realgud/debugger/trepanjs/trepanjs.el, realgud/lang/js.el: Remove
- node asci schmutz. put in lang/js.el Add more FSF copyrights
-
-2015-04-22 rocky <address@hidden>
-
- * test/bt-helper.el: Revert "Squelch one of the many compiler
- warnings" This reverts commit 33bfa6f551c08cf65012d24b380d1fa7849c8e58.
-
-2015-04-22 rocky <address@hidden>
-
- * test/bt-helper.el: Revert "Squelch one of the many compiler
- warnings" This reverts commit b8d8686a88429fb4d1fc603979b6574218ae858e.
-
-2015-04-22 rocky <address@hidden>
-
- * test/bt-helper.el: Squelch one of the many compiler warnings
-
-2015-04-22 rocky <address@hidden>
-
- * test/bt-helper.el: Squelch one of the many compiler warnings
-
-2015-04-22 rocky <address@hidden>
-
- * realgud/debugger/nodejs/init.el,
- realgud/debugger/nodejs/track-mode.el, realgud/lang/js.el: Start js
- lang. add js backtrace regexp
-
-2015-04-22 rocky <address@hidden>
-
- * realgud/debugger/nodejs/init.el,
- realgud/debugger/nodejs/track-mode.el,
- realgud/debugger/trepanjs/backtrack-mode.el,
- realgud/debugger/trepanjs/init.el,
- realgud/debugger/trepanjs/track-mode.el, realgud/lang/js.el: Start
- js lang. add js backtrace regexp
-
-2015-04-21 rocky <address@hidden>
-
- * realgud/debugger/nodejs/init.el: Correct nodejs/init.el bugs -
- sync with master
-
-2015-04-21 rocky <address@hidden>
-
- * realgud/debugger/nodejs/init.el: Add breakpoint set to nodejs
-
-2015-04-21 rocky <address@hidden>
-
- * configure.ac, realgud.el, realgud/debugger/Makefile.am,
- realgud/debugger/nodejs/init.el,
- realgud/debugger/trepanjs/Makefile.am,
- realgud/debugger/trepanjs/backtrack-mode.el,
- realgud/debugger/trepanjs/core.el,
- realgud/debugger/trepanjs/init.el,
- realgud/debugger/trepanjs/track-mode.el,
- realgud/debugger/trepanjs/trepanjs.el: Add trepanjs
-
-2015-04-17 rocky <address@hidden>
-
- * realgud/debugger/gdb/core.el, realgud/debugger/gdb/gdb.el,
- realgud/debugger/gdb/track-mode.el, realgud/debugger/pdb/core.el,
- realgud/debugger/pdb/init.el, realgud/debugger/pdb/pdb.el: More
- copyright assignments to FSF
-
-2015-04-17 rocky <address@hidden>
-
- * realgud/common/core.el, test/test-gdb.el: core.el: remove
- duplicate command buffer creation test-gdb.el: nuke possibly a
- dubious gdb invocation
-
-2015-04-13 rocky <address@hidden>
-
- * realgud/debugger/gdb/track-mode.el,
- realgud/debugger/trepan8/track-mode.el,
- realgud/debugger/trepanx/track-mode.el: Make sure we go into
- realgud-track mode when we have custom mode hooks. Issue #42.
-
-2015-04-10 rocky <address@hidden>
-
- * realgud/common/attach.el, realgud/common/backtrack-mode.el,
- realgud/common/buffer/backtrace.el, realgud/common/track.el,
- realgud/debugger/bashdb/bashdb.el, realgud/debugger/nodejs/core.el,
- realgud/debugger/nodejs/init.el, realgud/lang/posix-shell.el,
- test/test-loc-regexp-nodejs.el, test/test-regexp-nodejs.el:
- backtrace.el: fix some bugs and remove some warnings posix-shell.el:
- remove python constants nodejs/init.el Add backtrace regexp to
- nodejs Add more FSF copyrights
-
-2015-04-02 rocky <address@hidden>
-
- * README.md: Update README.md to note that we can use in eshell
-
-2015-04-01 rocky <address@hidden>
-
- * realgud/common/utils.el: Small error message grammar correction
-
-2015-03-31 rocky <address@hidden>
-
- * realgud/common/buffer/command.el, realgud/common/track.el: Respect
- shortkey mode setting Add FSF copyright
-
-2015-03-31 rocky <address@hidden>
-
- * realgud/common/track-mode.el: DRY Comment no longer relvant
-
-2015-03-31 rocky <address@hidden>
-
- * test/test-track-mode.el: Fix downcase.
-
-2015-03-30 rocky <address@hidden>
-
- * test/test-track-mode.el: Need more stringent cmdbuf setup
-
-2015-03-30 rocky <address@hidden>
-
- * realgud/common/send.el, realgud/common/track-mode.el,
- realgud/common/utils.el, test/test-utils.el: Simplify
- eshell/comint/shell mode testing. Thanks to pythonnut:
- http://emacs.stackexchange.com/users/2642/pythonnut
-
-
http://emacs.stackexchange.com/questions/10387/how-can-i-tell-if-a-buffer-is-a-comint-buffer-eshell-buffer-or-neither/10390?iemail=1&noredirect=1#10390
-
-2015-03-29 rocky <address@hidden>
-
- * realgud/common/loc.el, realgud/common/send.el,
- realgud/common/track-mode.el, realgud/common/track.el: Minimal
- support for running under eshell More FSF copyrights
-
-2015-03-28 rocky <address@hidden>
-
- * realgud.el, realgud/common/eval.el: eval.el: issue #40 More FSF
- copyright assignment
-
-2015-03-28 rocky <address@hidden>
-
- * realgud/common/backtrace-mode.el, realgud/common/track-mode.el,
- realgud/debugger/bashdb/core.el,
- realgud/debugger/jdb/backtrack-mode.el,
- realgud/debugger/jdb/track-mode.el,
- realgud/debugger/kshdb/track-mode.el,
- realgud/debugger/nodejs/track-mode.el,
- realgud/debugger/pdb/track-mode.el,
- realgud/debugger/perldb/track-mode.el,
- realgud/debugger/pydb/track-mode.el,
- realgud/debugger/trepan/backtrack-mode.el,
- realgud/debugger/trepan3k/track-mode.el,
- realgud/debugger/trepan8/track-mode.el: More FSF copyright
- assignments. Include mode-map bindings in mode-map variables
-
-2015-03-28 rocky <address@hidden>
-
- * .travis.yml: Try to fix travis #3
-
-2015-03-28 rocky <address@hidden>
-
- * .travis.yml: Try to fix travis #2
-
-2015-03-28 rocky <address@hidden>
-
- * copyright_exceptions, realgud/common/eval.el,
- realgud/common/track.el: Fix logic for finding region to work on in
- tracking Possibly fixes issue #40.
-
-2015-03-02 rocky <address@hidden>
-
- * realgud/common/run.el, realgud/common/send.el,
- realgud/common/track.el, realgud/debugger/gdb/init.el,
- realgud/debugger/gdb/track-mode.el: Reassign copyright to FSF in
- recently change files
-
-2015-03-02 rocky <address@hidden>
-
- * realgud/debugger/gdb/init.el: gdb's "eval" is "print".
-
-2015-02-27 rocky <address@hidden>
-
- * realgud/common/eval.el: Make realugd:process-filter-save buffer
- local
-
-2015-02-27 rocky <address@hidden>
-
- * realgud/common/buffer/backtrace.el, realgud/common/cmds.el,
- realgud/common/eval.el, realgud/common/key.el: Bind RET in shortkey
- to repeat-last; add FSF (C)
-
-2015-02-18 rocky <address@hidden>
-
- * realgud/common/buffer/command.el, realgud/common/eval.el,
- realgud/common/track.el, realgud/debugger/jdb/core.el,
- realgud/debugger/trepan.pl/core.el,
- realgud/debugger/trepan.pl/init.el: Work on filtering eval output
-
-2015-02-17 rocky <address@hidden>
-
- * Makefile.am, make-check-filter.rb, test/make-check-filter.rb: Move
- test helper into test
-
-2015-02-17 rocky <address@hidden>
-
- * realgud/common/run.el: Remove another warning
-
-2015-02-17 rocky <address@hidden>
-
- * realgud/debugger/pdb/init.el: In pdb, for to evaluate an
- expression use "p"
-
-2015-02-17 rocky <address@hidden>
-
- * realgud.el, realgud/common/eval.el, realgud/common/shortkey.el,
- test/test-realgud.el: Experimental: mouse2 runs eval
-
-2015-02-13 rocky <address@hidden>
-
- * realgud.el, test/test-realgud.el: Fix breakage from changing from
- realgud:string-starts-with to string-prefix-p
-
-2015-02-13 rocky <address@hidden>
-
- * realgud.el, realgud/common/buffer/source.el,
- realgud/common/init.el, realgud/common/shortkey.el,
- realgud/common/utils.el, realgud/debugger/gub/gub.el,
- realgud/debugger/trepan8/trepan8.el, test/test-realgud.el,
- test/test-utils.el: realgud:string-starts-with -> string-prefix-p.
- Thanks to Stefan Monnier for pointing this out.
-
-2015-02-13 rocky <address@hidden>
-
- * realgud/common/buffer/source.el: Add interactive command
- realgud:cmdbuf-associate to associate a source-code buffer with a
- command buffer. Probably not good enough, bujt it's a start.
-
-2015-02-13 rocky <address@hidden>
-
- * realgud/common/utils.el: Separate utility functions into its own
- file
-
-2015-02-13 rocky <address@hidden>
-
- * .gitignore, COPYING: Add GPL COPYING file
-
-2015-02-13 rocky <address@hidden>
-
- * el-get-install.el, realgud.el, realgud/common/run.el,
- realgud/debugger/gdb/gdb.el, realgud/debugger/jdb/jdb.el,
- test/test-realgud.el, test/test-utils.el: Remove dependency on
- list-utils
-
-2015-02-11 rocky <address@hidden>
-
- * realgud/debugger/trepan/core.el, realgud/debugger/trepan/init.el:
- A couple of trepan bugs.
-
-2015-02-07 rocky <address@hidden>
-
- * realgud/common/core.el: find-file-noselect is a function, not a
- variable
-
-2015-02-07 rocky <address@hidden>
-
- * : commit d70ef4d675279003e05ccc85acffdac988e08538 Author: rocky
- <address@hidden> Date: Sat Feb 7 11:04:42 2015 -0500
-
-2015-02-04 rocky <address@hidden>
-
- * realgud/common/backtrace-mode.el, realgud/common/buffer/info.el,
- realgud/common/key.el, realgud/common/menu.el,
- realgud/common/window.el: Small change: realgud-window-bt ->
- realgud:window-bt
-
-2015-01-26 rocky <address@hidden>
-
- * realgud/common/buffer/backtrace.el, realgud/common/file.el,
- realgud/common/track.el, realgud/debugger/jdb/core.el,
- realgud/debugger/trepan/core.el, realgud/debugger/trepan2/core.el,
- test/test-file.el: In backtrace buffer create location structure
- after parsing lines. This information will be used instead of
- running a "frame" command. Add realgud:backtrace-describe
-
-2015-01-25 rocky <address@hidden>
-
- * realgud/debugger/bashdb/init.el,
- realgud/debugger/trepan2/init.el,
- realgud/debugger/trepan3k/init.el, realgud/debugger/zshdb/init.el,
- realgud/lang/posix-shell.el, realgud/lang/python.el: Dry
- trepan2/trepan3 and zshdb/bashdb code by putting more common code in
- the lang files.
-
-2015-01-25 rocky <address@hidden>
-
- * realgud/common/follow.el, realgud/debugger/trepan.pl/init.el,
- test/test-loc-regexp-trepanpl.el, test/test-regexp-trepan2.el,
- test/test-regexp-trepan3k.el: Work on trepan.pl backtrack patterns
-
-2015-01-25 rocky <address@hidden>
-
- * .gitignore, realgud/debugger/trepan2/init.el,
- realgud/debugger/trepan3k/init.el, realgud/lang/python.el,
- test/node_modules/gcd.js/gcd.js,
- test/node_modules/gcd.js/package.json, test/test-regexp-trepan3k.el:
- DRY python trepan regexps. Add trepan3k regexp test.
-
-2015-01-25 rocky <address@hidden>
-
- * realgud/common/backtrace-mode.el,
- realgud/common/buffer/backtrace.el, realgud/common/follow.el,
- realgud/common/loc.el, realgud/debugger/trepan2/init.el,
- test/test-regexp-trepan2.el: follow.el loc..el: common routine mouse
- events to key off of text properties for files, frames and marks.
- backtrace: Bang more on backtrace buffer. Work on trepan2 backtrace
- regexp. Better trepan2 regexp testing.
-
-2015-01-25 rocky <address@hidden>
-
- * realgud/common/buffer/backtrace.el,
- realgud/debugger/trepan2/init.el, realgud/debugger/trepan3k/init.el:
- init.el: Need minimum match in backtrace regexps. backtrace.el: need
- to work off of unhighlighed strings
-
-2015-01-24 rocky <address@hidden>
-
- * README.md: Remove coderwall endorse
-
-2015-01-24 rocky <address@hidden>
-
- * realgud/common/track.el, realgud/debugger/bashdb/init.el,
- realgud/debugger/trepan2/init.el, realgud/debugger/trepan3k/init.el:
- Try not to delete prompot in diverting output. Add backtrack regexp
- for trepan2 and trepan3k (will go into next release)
-
-2015-01-24 rocky <address@hidden>
-
- * realgud/debugger/trepan3k/init.el, test/gcd.py: test/gcd.py: allow
- it to work on python3. trpean3k/init.el: fix prompt pattern and
- allow backtrace, although this doesn't work properly.
-
-2015-01-22 rocky <address@hidden>
-
- * realgud/common/backtrace-mode.el,
- realgud/common/backtrack-mode.el,
- realgud/common/buffer/backtrace.el, realgud/common/shortkey.el,
- realgud/debugger/trepan2/init.el: Mostly add backtrace pattern for
- trepan2. Attempt to customize backtrack/backtrace menus.
-
-2015-01-20 rocky <address@hidden>
-
- * realgud/common/buffer/command.el,
- realgud/common/buffer/helper.el, realgud/common/buffer/source.el:
- Back off realgud:loc-marker -> realgud-loc-marker. Didn't catch all
- uses.
-
-2015-01-20 rocky <address@hidden>
-
- * : commit 9fa5ab7ad96a58d44d309ef4734e6b875a53ef14 Author: rocky
- <address@hidden> Date: Tue Jan 20 21:29:00 2015 -0500
-
-2015-01-19 rocky <address@hidden>
-
- * realgud/common/bp.el, realgud/common/buffer/backtrace.el,
- realgud/common/buffer/command.el, realgud/common/buffer/helper.el,
- realgud/common/buffer/source.el, realgud/common/fringe.el: mouse
- button in backtrace buffer works now. Name of buffer change to start
- with *Backtrace
-
-2015-01-18 rocky <address@hidden>
-
- * realgud/common/fringe.el, realgud/common/key.el,
- realgud/common/loc.el, realgud/common/shortkey.el,
- realgud/common/window.el, test/test-regexp-nodejs.el,
- test/test-regexp-perldb.el: loc.el: Resolve problem where displayed
- window was not updating goto-char location. window.el: simplify
- logic using loc code. test-*: reduce more warnings
-
-2015-01-18 rocky <address@hidden>
-
- * .travis.yml, realgud/common/buffer/command.el,
- realgud/common/loc.el, realgud/common/lochist.el,
- realgud/common/shortkey.el, test/test-regexp-gub.el,
- test/test-regexp-nodejs.el, test/test-regexp-perldb.el: Redo
- debugger describe info as Org mode (from markdown mode)
-
-2015-01-18 rocky <address@hidden>
-
- * .travis.yml, realgud/common/buffer/command.el,
- realgud/common/loc.el, realgud/common/lochist.el: Better tagging of
- filenames and marks inside command info describe. We're now
- formatting this as markdown too. Thanks to wasamasa for the
- suggestion to use buttons.el
-
-2015-01-18 rocky <address@hidden>
-
- * realgud/common/buffer/command.el, realgud/common/loc.el: Start to
- add text properties to command buffer description
-
-2015-01-17 rocky <address@hidden>
-
- * realgud/common/lochist.el: Don't update history ring if source
- location position is the same as the last position entered.
-
-2015-01-17 rocky <address@hidden>
-
- * realgud/debugger/perldb/init.el,
- realgud/debugger/perldb/perldb.el,
- realgud/debugger/trepan.pl/init.el, test/test-bashdb.el,
- test/test-bt-pdb.el, test/test-bt-pydb.el, test/test-bt-pydbgr.el,
- test/test-bt-rdebug.el, test/test-bt-trepan.el,
- test/test-bt-trepan2.el, test/test-bt-trepan3k.el,
- test/test-bt-trepanx.el, test/test-bt-zshdb.el,
- test/test-common-helper.el, test/test-core.el, test/test-file.el,
- test/test-gub-core.el, test/test-jdb.el, test/test-lang.el,
- test/test-loc-regexp-gub.el, test/test-loc-regexp-trepan.el,
- test/test-loc.el, test/test-lochist.el, test/test-nodejs.el,
- test/test-pdb.el, test/test-perldb.el, test/test-pydb.el,
- test/test-pydbgr.el, test/test-rdebug.el, test/test-realgud.el,
- test/test-regexp-bashdb.el, test/test-regexp-gdb.el,
- test/test-regexp-jdb.el, test/test-regexp-pdb.el,
- test/test-regexp-perldb.el, test/test-regexp-trepanpl.el,
- test/test-regexp.el, test/test-remake-core.el, test/test-remake.el,
- test/test-shortkey.el, test/test-srcbuf.el,
- test/test-track-mode.el, test/test-track.el, test/test-trepan2.el:
- Save source text in location in for perldb and trepan.pl. Wrong
- minibuffer-history variable name in perldb. Beef up regexp testing
- in test-regexp-perldb. Same needs to be done in test-regexp-trepanp.
- require-relative -> load-relative (which is the right name)
-
-2015-01-17 rocky <address@hidden>
-
- * realgud/common/lochist.el, realgud/common/shortkey.el: Add ability
- to go back up to 9 places in history with number keys. "u" and "d"
- shortkey binding messed up.
-
-2015-01-13 rocky <address@hidden>
-
- * realgud.el, realgud/common/backtrace-mode.el,
- realgud/common/buffer/backtrace.el, realgud/common/cmds.el,
- realgud/common/key.el, realgud/common/menu.el,
- realgud/common/shortkey.el, realgud/common/track-mode.el,
- realgud/debugger/bashdb/track-mode.el,
- realgud/debugger/nodejs/track-mode.el,
- realgud/debugger/perldb/track-mode.el,
- realgud/debugger/remake/track-mode.el,
- realgud/debugger/trepan.pl/track-mode.el,
- realgud/debugger/trepan2/track-mode.el,
- realgud/debugger/trepan3k/track-mode.el,
- realgud/debugger/zshdb/init.el,
- realgud/debugger/zshdb/track-mode.el: Add tool-bar. realgud-cmd- ->
- realgud:cmd-
-
-2015-01-13 rocky <address@hidden>
-
- * THANKS: Add NYC Emacs Meetup and Nicolas Dudebout
-
-2015-01-13 rocky <address@hidden>
-
- * realgud/common/menu.el, realgud/debugger/gdb/gdb.el,
- realgud/debugger/gdb/track-mode.el, realgud/debugger/jdb/file.el:
- gdb: wasn't getting into mode correctly menu.el: up/down mixed up
- again jdb/file.el: should have added this a while ago
-
-2015-01-12 rocky <address@hidden>
-
- * realgud/debugger/bashdb/core.el,
- realgud/debugger/bashdb/track-mode.el,
- realgud/debugger/gub/core.el, realgud/debugger/rdebug/core.el,
- realgud/debugger/trepan2/core.el,
- realgud/debugger/trepan2/track-mode.el,
- realgud/debugger/trepan3k/core.el: Better last-resort values for
- script to debug? Use cmd-name which many times is written in the
- language the debugger accepts.
-
-2015-01-12 rocky <address@hidden>
-
- * realgud/common/menu.el, realgud/debugger/bashdb/bashdb.el,
- realgud/debugger/bashdb/track-mode.el,
- realgud/debugger/gub/track-mode.el,
- realgud/debugger/pdb/track-mode.el,
- realgud/debugger/pydb/track-mode.el,
- realgud/debugger/rdebug/track-mode.el,
- realgud/debugger/remake/track-mode.el,
- realgud/debugger/trepan2/track-mode.el,
- realgud/debugger/zshdb/track-mode.el: menu.el: add menu item for
- debugger information debugger/*.el wasn't setting up track-mode
- properly.
-
-2015-01-10 rocky <address@hidden>
-
- * realgud/common/cmds.el, realgud/common/key.el,
- realgud/common/menu.el, realgud/common/shortkey.el,
- realgud/debugger/bashdb/init.el, realgud/debugger/gub/init.el,
- realgud/debugger/perldb/init.el,
- realgud/debugger/trepan.pl/init.el,
- realgud/debugger/trepan2/init.el,
- realgud/debugger/trepan3k/init.el, realgud/debugger/zshdb/init.el,
- test/test-lochist.el, test/test-regexp-gdb.el,
- test/test-regexp-jdb.el, test/test-regexp-pdb.el,
- test/test-regexp-perldb.el: Add key for "until". Disable shortkey
- commands that aren't relevant for source or command buffers. Reduce
- compile warnings in tests.
-
-2015-01-08 rocky <address@hidden>
-
- * realgud/common/track-mode.el, realgud/debugger/bashdb/bashdb.el,
- realgud/debugger/gdb/gdb.el, realgud/debugger/gdb/track-mode.el,
- realgud/debugger/gub/track-mode.el,
- realgud/debugger/jdb/track-mode.el,
- realgud/debugger/kshdb/track-mode.el,
- realgud/debugger/pdb/track-mode.el,
- realgud/debugger/perldb/track-mode.el,
- realgud/debugger/pydb/track-mode.el,
- realgud/debugger/pydbgr/track-mode.el,
- realgud/debugger/rdebug/track-mode.el,
- realgud/debugger/remake/core.el, realgud/debugger/remake/remake.el,
- realgud/debugger/remake/track-mode.el,
- realgud/debugger/trepan/track-mode.el,
- realgud/debugger/trepan2/track-mode.el,
- realgud/debugger/trepan2/trepan2.el,
- realgud/debugger/trepan3k/track-mode.el,
- realgud/debugger/trepan8/track-mode.el, test/test-bashdb.el,
- test/test-zshdb.el: Remove duplicate signal menu in shell, yet
- again. test-* remove compiler warnings and correct a wrong variable
- it found.
-
-2015-01-08 rocky <address@hidden>
-
- * realgud/debugger/bashdb/bashdb.el,
- realgud/debugger/remake/core.el, realgud/debugger/remake/remake.el,
- realgud/debugger/trepan2/trepan2.el,
- realgud/debugger/zshdb/zshdb.el: remake: correct invocation. rest:
- respect custom variable debugger-command-name
-
-2015-01-08 rocky <address@hidden>
-
- * realgud/common/buffer/backtrace.el, realgud/common/core.el,
- realgud/common/menu.el, realgud/common/shortkey.el,
- realgud/common/track-mode.el, realgud/debugger/trepan/core.el,
- test/test-pdb.el, test/test-regexp.el, test/test-send.el,
- test/test-shortkey.el: Think I now have debugger, and comint menus
- (signal, in/out.._) appearing only once now. Remove some more
- compile warnings and fix a bug it found in trepan/core.pl.
-
-2015-01-08 rocky <address@hidden>
-
- * test/test-bashdb.el, test/test-zshdb.el: More robust zshdb and
- bashdb test: make outside variable buffer-local for more replicable
- results
-
-2015-01-07 rocky <address@hidden>
-
- * realgud/common/core.el, realgud/common/lang.el,
- realgud/debugger/bashdb/core.el, realgud/debugger/kshdb/core.el,
- realgud/debugger/zshdb/core.el, test/test-bashdb.el,
- test/test-lang.el, test/test-zshdb.el: core.el: consider buffers
- with the right mode in suggest-invocation. *shdb/core.el: The right
- mode is sh(-mode), not Shell-Script which is what is displayed.
-
-2015-01-07 rocky <address@hidden>
-
- * realgud/common/run.el, realgud/debugger/bashdb/bashdb.el,
- realgud/debugger/nodejs/nodejs.el, realgud/debugger/pdb/pdb.el,
- realgud/debugger/perldb/perldb.el, realgud/debugger/pydb/pydb.el,
- realgud/debugger/pydbgr/pydbgr.el,
- realgud/debugger/rdebug/rdebug.el,
- realgud/debugger/remake/remake.el,
- realgud/debugger/trepan.pl/trepanpl.el,
- realgud/debugger/trepan/trepan.el,
- realgud/debugger/trepan2/trepan2.el,
- realgud/debugger/trepan3k/trepan3k.el,
- realgud/debugger/trepan8/trepan8.el,
- realgud/debugger/zshdb/zshdb.el, test/test-bashdb.el,
- test/test-bt-pdb.el, test/test-bt-pydb.el, test/test-bt-pydbgr.el,
- test/test-bt-rdebug.el, test/test-bt-trepan.el,
- test/test-bt-trepan2.el, test/test-bt-trepan3k.el,
- test/test-bt-trepanx.el, test/test-bt-zshdb.el, test/test-lang.el,
- test/test-loc-regexp-gub.el, test/test-loc-regexp-trepan.el,
- test/test-loc-regexp-trepanx.el, test/test-nodejs.el,
- test/test-pdb.el, test/test-pydb.el, test/test-pydbgr.el,
- test/test-rdebug.el, test/test-regexp-bashdb.el,
- test/test-regexp-gdb.el, test/test-regexp-ruby.el: Remove mode hook
- from run-debugger call. Remove some __FILE__ warnings in tests.
-
-2015-01-06 rocky <address@hidden>
-
- * : commit 7fcd01ccadb9a598504a0bbfa1ab850cdea2fa7b Author: rocky
- <address@hidden> Date: Tue Jan 6 19:41:44 2015 -0500
-
-2015-01-03 rocky <address@hidden>
-
- * realgud/debugger/gub/init.el: Cut-and-paste Typo in hash name.
-
-2015-01-03 rocky <address@hidden>
-
- * realgud/debugger/gub/init.el: Add Go language traceback pattern
-
-2015-01-02 rocky <address@hidden>
-
- * realgud/common/helper.el: Had a stupid bug, wrong variable name,
- in trepan.pl transformation.
-
-2014-12-31 rocky <address@hidden>
-
- * realgud/debugger/gdb/core.el, test/test-gdb.el: Add
- realgud:gdb-executable: attempt to see if a file is a binary using
- the "file" command.
-
-2014-12-31 rocky <address@hidden>
-
- * .travis.yml: Travis doesn't have emacs24 without sudo yet.
- Reinstate sudo.
-
-2014-12-31 rocky <address@hidden>
-
- * .travis.yml: Try docker non-sudo testing
-
-2014-12-31 rocky <address@hidden>
-
- * realgud/debugger/gdb/core.el, test/Makefile.am, test/gdb/bar.sh,
- test/gdb/baz, test/gdb/baz.c, test/gdb/foo, test/gdb/foo.c,
- test/gdb/test2/bar.sh, test/gdb/test2/baz.c, test/test-bashdb.el,
- test/test-gdb.el: Redo realgud:gdb-suggest-invocation
-
-2014-12-30 rocky <address@hidden>
-
- * realgud/common/helper.el: Need to back off of stripping filename
- extensions from trepan.pl.
-
-2014-12-28 rocky <address@hidden>
-
- * realgud/debugger/kshdb/core.el: Remove zsh name references
-
-2014-12-28 rocky <address@hidden>
-
- * realgud/common/helper.el, realgud/debugger/kshdb/kshdb.el:
- helper.el: in debugger-name transformation use basically the
- basename without the extension. kshdb.el: realgud-run-process ->
- realgud:run-process
-
-2014-12-27 rocky <address@hidden>
-
- * realgud/common/helper.el: When checking debugger use just the
- suffix. Could also try something like basename sans prefix.
-
-2014-12-24 rocky <address@hidden>
-
- * realgud/debugger/gub/gub.el: realgud-run-process ->
- realgud:run-process
-
-2014-12-22 rocky <address@hidden>
-
- * realgud/common/helper.el, realgud/common/track.el: Need to
- transform "tortoise" into "gub" for realgud:track-set-debugger
-
-2014-12-17 rocky <address@hidden>
-
- * Makefile.am, realgud.el: Administrivia to make in stable Melpa
- work. realgud.el: update version numbers Makefile.am: remove
- duplicate code that snuck in. remove ChangeLog before remaking
-
-2014-12-16 rocky <address@hidden>
-
- * Makefile.am, README.md, configure.ac, realgud.el: Bump version and
- add melpa stable badge
-
-2014-12-16 rocky <address@hidden>
-
- * configure.ac, realgud.el: Release 1.0
-
-2014-11-22 rocky <address@hidden>
-
- * test/test-track.el: With recent find-file additon to trepan, the
- test needs now to load trepan/core.el
-
-2014-11-22 rocky <address@hidden>
-
- * realgud/common/file.el, realgud/debugger/trepan/core.el,
- realgud/debugger/trepan/init.el, realgud/debugger/trepan2/core.el,
- test/test-file.el, test/test-jdb.el: strip leading (and trailing)
- blanks in trepan and trepan2 for their respective find files.
- Correct trepan2's call to realgud-file-loc-from-line. trepan now has
- its own find-file. Adjust some tests for current conditions.
-
-2014-11-19 rocky <address@hidden>
-
- * realgud/common/file.el, realgud/common/fringe.el,
- realgud/common/loc.el, test/test-file.el: Do a little better about
- saving column position information by stripping blanks and saving
- the column number in the position. The fringe arrow however still
- messes moving the column to something other than 0.
-
-2014-11-18 rocky <address@hidden>
-
- * realgud/debugger/gdb/core.el: gdb: Guard against buffer-file-name
- returning nil
-
-2014-11-16 rocky <address@hidden>
-
- * realgud/common/helper.el, realgud/debugger/jdb/core.el,
- realgud/debugger/jdb/track-mode.el,
- realgud/debugger/trepan2/core.el, test/Makefile.am: helper.el:
- transform jdb to realgud:jdb core.el: use langauge-specific
- extensions in compilation-find-file track-mode.el: remove
- defvaralias for now.
-
-2014-11-16 rocky <address@hidden>
-
- * realgud/common/file.el, realgud/common/track.el,
- realgud/debugger/jdb/core.el, realgud/debugger/jdb/track-mode.el,
- test/test-regexp-gdb.el: Bugs, bugs, bugs: file.el: wasn't passing
- filename on callback. track.el: stop ansi colors from source string
- core.el: wrong else nesting, wrong signature for
- realgud-file-loc-from-line track-mode.el: alias variable workaround
- test-regexp-gdb.el: reduce warnings
-
-2014-11-15 rocky <address@hidden>
-
- * realgud.el, realgud/common/file.el, realgud/debugger/jdb/core.el,
- realgud/debugger/trepan2/core.el, realgud/debugger/trepan2/init.el,
- test/test-bt-trepanx.el, test/test-bt-zshdb.el, test/test-jdb.el,
- test/test-loc-regexp-gub.el, test/test-loc-regexp-trepan.el,
- test/test-loc-regexp-trepanx.el, test/test-regexp-gub.el,
- test/test-trepan2.el: {trepan2,jdb}/{core,init}.el: Start adding
- debugger-specific find-file routines. jdb needs it the most. trepan2
- we are trying out now. Add debugger-specific file remaping hashes.
- test/*.el: reduce warnings.
-
-2014-11-15 rocky <address@hidden>
-
- * realgud/debugger/jdb/init.el: Correct jdb backtrace location
- pattern
-
-2014-11-15 rocky <address@hidden>
-
- * realgud/debugger/jdb/init.el, realgud/debugger/jdb/track-mode.el,
- test/test-regexp-jdb.el: better prompt matching. Fix some track-mode
- handling bugs.
-
-2014-11-14 rocky <address@hidden>
-
- * realgud.el, realgud/debugger/jdb/track-mode.el,
- test/test-bt-pdb.el, test/test-bt-pydb.el, test/test-bt-pydbgr.el,
- test/test-bt-rdebug.el, test/test-bt-trepan.el,
- test/test-bt-trepan2.el, test/test-bt-trepan3k.el,
- test/test-regexp-gdb.el, test/test-regexp-gub.el,
- test/test-regexp-perldb.el: realgud.el: Add autoloads for jdb.
- jdb/track-mode: add realgud: prefix to mode map vars test/*: reduce
- warnings
-
-2014-11-14 rocky <address@hidden>
-
- * realgud.el: Update commentary.
-
-2014-11-13 rocky <address@hidden>
-
- * realgud/common/file.el, realgud/common/track.el,
- realgud/debugger/jdb/core.el, realgud/debugger/jdb/init.el,
- realgud/debugger/jdb/jdb.el, realgud/debugger/jdb/track-mode.el,
- test/test-jdb.el: More work on jdb. Track source text and make
- track-mode work.
-
-2014-11-13 rocky <address@hidden>
-
- * realgud/common/track.el, realgud/debugger/gdb/gdb.el,
- realgud/debugger/jdb/core.el, realgud/debugger/jdb/jdb.el,
- realgud/debugger/trepan.pl/track-mode.el: common/track.el
- realgud-track-loc: correct if/else nesting core.eljdb.el: Use gud
- filename resolution via classpath gdb.el,jdb.el: reduce warnings
- treapn.pl: preface mode variables with realgud:trepanpl rather than
- trepanpl remove variable access error.
-
-2014-11-12 rocky <address@hidden>
-
- * : commit 8afa37cb4844169a90cfd9f80b940360c43f4b9e Author: rocky
- <address@hidden> Date: Wed Nov 12 23:46:06 2014 -0500
-
-2014-11-12 rocky <address@hidden>
-
- * : commit 2d0f9af8cffbd489c976642cae8e451a7e6d2de2 Author: rocky
- <address@hidden> Date: Thu Nov 6 22:19:46 2014 -0500
-
-2014-11-06 rocky <address@hidden>
-
- * realgud/debugger/trepan2/init.el, test/test-regexp-trepan2.el:
- Track trepan2 source code lines
-
-2014-11-06 rocky <address@hidden>
-
- * realgud/common/file.el, test/test-bashdb.el, test/test-file.el,
- test/test-zshdb.el: Sync zshdb with bashdb. Get column numbers from
- source text if we can.
-
-2014-11-06 rocky <address@hidden>
-
- * realgud/common/run.el, realgud/debugger/bashdb/init.el,
- realgud/debugger/zshdb/core.el, realgud/debugger/zshdb/init.el:
- run.el: remove stray character in error message zshdb: fix some
- stray typos, allow saving source code text.
-
-2014-11-06 rocky <address@hidden>
-
- * realgud/common/track.el: Strip out ansi color codes when saving
- source text.
-
-2014-11-05 rocky <address@hidden>
-
- * realgud/debugger/bashdb/init.el: Match on bashdb source text if
- that is there
-
-2014-11-05 rocky <address@hidden>
-
- * realgud/debugger/bashdb/init.el: Match on bashdb source text if
- that's there.
-
-2014-11-01 rocky <address@hidden>
-
- * realgud/common/cmds.el, realgud/common/send.el,
- realgud/common/track.el, realgud/debugger/bashdb/init.el,
- realgud/debugger/gdb/init.el, realgud/debugger/jdb/Makefile.am,
- realgud/debugger/jdb/README,
- realgud/debugger/jdb/backtrack-mode.el,
- realgud/debugger/jdb/core.el, realgud/debugger/jdb/init.el,
- realgud/debugger/jdb/jdb.el, realgud/debugger/jdb/track-mode.el,
- realgud/debugger/kshdb/init.el, realgud/debugger/perldb/init.el,
- realgud/debugger/zshdb/init.el, test/test-regexp-jdb.el: track.el:
- "Unable to match.." message was wrong. Deal with no source-str
- better /init.el: start adding clear command send.el: start to add
- class name for upcoming jdb
-
-2014-11-01 rocky <address@hidden>
-
- * realgud/common/cmds.el, realgud/common/send.el,
- realgud/common/track.el, realgud/debugger/bashdb/init.el,
- realgud/debugger/gdb/init.el, realgud/debugger/jdb/init.el,
- realgud/debugger/kshdb/init.el, realgud/debugger/perldb/init.el,
- realgud/debugger/zshdb/init.el: track.el: "Unable to match.."
- message was wrong. Deal with no source-str better /init.el: start
- adding clear command send.el: start to add class name for jdb
-
-2014-10-14 rocky <address@hidden>
-
- * realgud/common/buffer/command.el, realgud/common/regexp.el,
- realgud/common/track.el, realgud/debugger/jdb/core.el,
- realgud/debugger/jdb/init.el, realgud/debugger/remake/core.el,
- realgud/debugger/trepan2/init.el,
- realgud/debugger/trepan3k/init.el, realgud/lang/python.el,
- test/test-regexp-jdb.el: regexp.el: add field for class name, and
- stop event command.el: add callback to get parse location info.
- Needed for java trepan2,trepan3k: note that <string> is a
- pseudo-fiile jdb: closer, but not functional yet.
-
-2014-10-13 rocky <address@hidden>
-
- * realgud/debugger/jdb/Makefile.am, realgud/debugger/jdb/README,
- realgud/debugger/jdb/backtrack-mode.el,
- realgud/debugger/jdb/core.el, realgud/debugger/jdb/init.el,
- realgud/debugger/jdb/jdb.el, realgud/debugger/jdb/track-mode.el,
- realgud/debugger/trepan/backtrack-mode.el, test/test-regexp-jdb.el:
- First cut at dealing with jdb
-
-2014-09-25 rocky <address@hidden>
-
- * realgud/common/track.el, realgud/debugger/remake/init.el,
- test/test-track.el: remake/init.el: Try source line tracking *:
- realgud-track-from-region -> realgud:track-from-region track.el:
- correct garbled message to something grammatically correct but
- sometimes still garbled.
-
-2014-09-24 rocky <address@hidden>
-
- * realgud/common/buffer/command.el,
- realgud/common/buffer/source.el, realgud/common/file.el,
- realgud/common/fringe.el, realgud/common/loc.el,
- realgud/common/regexp.el, realgud/common/track.el,
- realgud/debugger/trepan/init.el, realgud/debugger/trepan2/init.el,
- test/test-common-helper.el, test/test-file.el, test/test-loc.el,
- test/test-lochist.el, test/test-track.el: Start storing source text
- in location structures. Use this for seeing if we are out of sync
- with the source.
-
-2014-09-17 rocky <address@hidden>
-
- * realgud/debugger/trepan/track-mode.el: Add key bindings for
- realgud:goto-lang-backtrace-line and
- realgud:goto-debugger-backtrace-line to trepan-track-mode.
-
-2014-09-14 rocky <address@hidden>
-
- * realgud/common/cmds.el, realgud/common/core.el,
- realgud/common/fringe.el, realgud/common/reset.el,
- realgud/common/track.el, realgud/debugger/rdebug/track-mode.el,
- realgud/debugger/trepan/backtrack-mode.el,
- realgud/debugger/trepan/track-mode.el,
- realgud/debugger/trepan8/track-mode.el,
- realgud/debugger/trepanx/track-mode.el, realgud/lang/ruby.el: More
- aggressive about clearing source-buffer marks on termination. More
- realgud- -> realgud: name changes. Try to remove more warnings
-
-2014-08-31 rocky <address@hidden>
-
- * realgud/debugger/trepan2/trepan2.el: Correct name of trepan2
- minibuffer history variable
-
-2014-08-26 rocky <address@hidden>
-
- * realgud/debugger/gdb/core.el: A better (but still not ideal)
- realgud:gdb-suggest-invocation
-
-2014-08-26 rocky <address@hidden>
-
- * realgud/common/backtrack-mode.el, realgud/common/bp.el,
- realgud/common/helper.el, realgud/common/shortkey.el,
- realgud/common/track.el, realgud/debugger/gdb/gdb.el,
- realgud/debugger/gdb/track-mode.el, test/test-common-helper.el,
- test/test-shortkey.el: helper.el: add
- realgud:debugger-name-transform to adjust between the descrepancies
- between our internal debugger-name prefix and the real debugger name
- bp.el an "if" was previously erroreously translated into "when"
- shortkey.el: use realgud:debugger-name-transform gdb.el: missing a
- parameter on realgud:run-process See also issue #31.
-
-2014-08-20 rocky <address@hidden>
-
- * realgud/common/backtrack-mode.el,
- realgud/common/buffer/command.el, realgud/common/run.el,
- realgud/common/track-mode.el, realgud/common/track.el,
- realgud/debugger/bashdb/track-mode.el,
- realgud/debugger/gdb/track-mode.el,
- realgud/debugger/gub/track-mode.el,
- realgud/debugger/kshdb/track-mode.el,
- realgud/debugger/nodejs/track-mode.el,
- realgud/debugger/pdb/track-mode.el,
- realgud/debugger/perldb/track-mode.el,
- realgud/debugger/pydb/track-mode.el,
- realgud/debugger/pydbgr/track-mode.el,
- realgud/debugger/rdebug/track-mode.el,
- realgud/debugger/remake/track-mode.el,
- realgud/debugger/trepan.pl/track-mode.el,
- realgud/debugger/trepan/track-mode.el,
- realgud/debugger/trepan2/track-mode.el,
- realgud/debugger/trepan3k/track-mode.el,
- realgud/debugger/trepan8/track-mode.el,
- realgud/debugger/trepanx/track-mode.el,
- realgud/debugger/zshdb/track-mode.el:
- realgud-track-set-debugger->realgud:track-set-debugger. Namespace
- one command-name at a time. track.el: remove undeclared fn warnings.
-
-2014-08-16 rocky <address@hidden>
-
- * Makefile.am, realgud/debugger/trepan/trepan.el: Makefile.am: more
- .PHONY targets. Set realgud:trepan-command-name
-
-2014-08-03 rocky <address@hidden>
-
- * realgud/common/core.el: realgud:kill-buffer-hook : Only terminate
- if we are in a command buffer. Don't do anything for killing source
- buffers.
-
-2014-08-03 rocky <address@hidden>
-
- * realgud/common/fringe.el, test/test-srcbuf.el: Work around
- "trepan-short-key-mode-map undefined problem in tests-srcbuf; add
- yet another definition in fringe to make a warning go away
-
-2014-08-03 R. Bernstein <address@hidden>
-
- * : Merge pull request #29 from mar-kolya/kill-buffer-fixes Kill buffer
fixes - even though we have the travis failure. Will
- work around in next commit.
-
-2014-08-03 Nikolay Martynov <address@hidden>
-
- * realgud/common/shortkey.el: Do not enable short key mode if
- debugger is not running If debugger is not running short key mode
should not be enabled and
- variable that says that is is enabled should not be set. This fixes
the problem when desktop module restores shortkey mode of
- long gone debuggers.
-
-2014-07-27 rocky <address@hidden>
-
- * realgud/common/attach.el, realgud/common/backtrace-mode.el,
- realgud/common/buffer/command.el, realgud/common/cmds.el,
- realgud/common/lochist.el, realgud/common/menu.el,
- realgud/common/track-mode.el, realgud/debugger/bashdb/bashdb.el,
- realgud/debugger/pydbgr/pydbgr.el,
- realgud/debugger/trepan.pl/init.el: Remove last vestiges of use of
- "dbgr" in doc strings and a couple of defcustom group fixes
-
-2014-07-27 rocky <address@hidden>
-
- * realgud/common/attach.el: Commands to associate a source buffer to
- a command buffer and vice versa.
-
-2014-07-26 rocky <address@hidden>
-
- * realgud/common/core.el, realgud/debugger/bashdb/bashdb.el,
- realgud/debugger/bashdb/core.el,
- realgud/debugger/bashdb/track-mode.el, realgud/debugger/gdb/gdb.el,
- realgud/debugger/gub/core.el, realgud/debugger/gub/gub.el,
- realgud/debugger/gub/track-mode.el, realgud/debugger/kshdb/core.el,
- realgud/debugger/kshdb/kshdb.el, realgud/debugger/nodejs/core.el,
- realgud/debugger/nodejs/nodejs.el,
- realgud/debugger/nodejs/track-mode.el,
- realgud/debugger/pdb/core.el, realgud/debugger/pdb/pdb.el,
- realgud/debugger/pdb/track-mode.el,
- realgud/debugger/perldb/perldb.el,
- realgud/debugger/perldb/track-mode.el,
- realgud/debugger/pydb/core.el, realgud/debugger/pydb/pydb.el,
- realgud/debugger/pydb/track-mode.el,
- realgud/debugger/pydbgr/core.el, realgud/debugger/pydbgr/pydbgr.el,
- realgud/debugger/pydbgr/track-mode.el,
- realgud/debugger/rdebug/core.el, realgud/debugger/rdebug/rdebug.el,
- realgud/debugger/rdebug/track-mode.el,
- realgud/debugger/remake/core.el, realgud/debugger/remake/remake.el,
- realgud/debugger/remake/track-mode.el,
- realgud/debugger/trepan.pl/backtrack-mode.el,
- realgud/debugger/trepan.pl/track-mode.el,
- realgud/debugger/trepan.pl/trepanpl.el,
- realgud/debugger/trepan/backtrack-mode.el,
- realgud/debugger/trepan/core.el,
- realgud/debugger/trepan/track-mode.el,
- realgud/debugger/trepan/trepan.el,
- realgud/debugger/trepan2/core.el,
- realgud/debugger/trepan2/track-mode.el,
- realgud/debugger/trepan2/trepan2.el,
- realgud/debugger/trepan3k/core.el,
- realgud/debugger/trepan3k/track-mode.el,
- realgud/debugger/trepan3k/trepan3k.el,
- realgud/debugger/trepan8/core.el,
- realgud/debugger/trepan8/track-mode.el,
- realgud/debugger/trepan8/trepan8.el,
- realgud/debugger/trepanx/core.el,
- realgud/debugger/trepanx/track-mode.el,
- realgud/debugger/trepanx/trepanx.el,
- realgud/debugger/zshdb/core.el,
- realgud/debugger/zshdb/track-mode.el,
- realgud/debugger/zshdb/zshdb.el: Go over customization groups and
- add realgud: namespace. Assume a minimum of Emacs 24 now
-
-2014-07-26 rocky <address@hidden>
-
- * .gitignore, realgud/debugger/nodejs/nodejs.el,
- realgud/debugger/zshdb/zshdb.el, test/gcd.js: nodejs.el: remove
- nodejs alias since nodejs is a command in nodejs-repl. Ignore
- npmp-debug.log. Corret nodejs minibuffer variable name. zshdb.el:
- correct name for location of zshdb-track-mode gcd.js: make
- interactive which forces us to stop.
-
-2014-07-26 rocky <address@hidden>
-
- * realgud/debugger/bashdb/core.el, realgud/debugger/gub/core.el,
- realgud/debugger/kshdb/core.el, realgud/debugger/nodejs/core.el,
- realgud/debugger/pdb/core.el, realgud/debugger/pydb/core.el,
- realgud/debugger/pydbgr/core.el, realgud/debugger/rdebug/core.el,
- realgud/debugger/remake/core.el, realgud/debugger/trepan/core.el,
- realgud/debugger/trepan2/core.el,
- realgud/debugger/trepan3k/core.el,
- realgud/debugger/trepan8/core.el, realgud/debugger/trepanx/core.el,
- realgud/debugger/zshdb/core.el, realgud/debugger/zshdb/zshdb.el:
- nodejs/core.el: Add nodemon as an acceptable debugger name for
- nodejs */core.el: customize-... -> realgud:customize-...
-
-2014-07-25 rocky <address@hidden>
-
- * realgud/common/track-mode.el, realgud/debugger/bashdb/bashdb.el,
- realgud/debugger/gub/gub.el, realgud/debugger/kshdb/kshdb.el,
- realgud/debugger/nodejs/core.el, realgud/debugger/nodejs/nodejs.el,
- realgud/debugger/pdb/pdb.el, realgud/debugger/pydb/pydb.el,
- realgud/debugger/pydbgr/pydbgr.el,
- realgud/debugger/rdebug/rdebug.el,
- realgud/debugger/remake/remake.el,
- realgud/debugger/trepan.pl/trepanpl.el,
- realgud/debugger/trepan/trepan.el,
- realgud/debugger/trepan2/trepan2.el,
- realgud/debugger/trepan3k/trepan3k.el,
- realgud/debugger/trepan8/trepan8.el,
- realgud/debugger/trepanx/trepanx.el,
- realgud/debugger/zshdb/zshdb.el: defcustom names use realgud:
- prefix, e.g. realgud:pdb instead of pdb.
- realgud-track-mode-{enable,disable} ->
- realgud:track-mode-{enable,disable}.
-
-2014-07-25 rocky <address@hidden>
-
- * realgud/common/lochist.el, realgud/common/track-mode.el:
- lochist.el: loc ation indexing was off by one (is zero origin) and
- we were testing out of bounds after access. track-mode.el: remove
- undefined function warnings. Don't go in to comint-mode if we are
- already in comint mode.
-
-2014-07-21 rocky <address@hidden>
-
- * realgud/common/reset.el, realgud/common/run.el,
- realgud/debugger/bashdb/bashdb.el, realgud/debugger/bashdb/core.el,
- realgud/debugger/nodejs/nodejs.el, realgud/debugger/pdb/pdb.el,
- realgud/debugger/perldb/core.el, realgud/debugger/perldb/perldb.el,
- realgud/debugger/pydb/pydb.el, realgud/debugger/pydbgr/pydbgr.el,
- realgud/debugger/rdebug/rdebug.el,
- realgud/debugger/trepan.pl/trepanpl.el,
- realgud/debugger/trepan/trepan.el,
- realgud/debugger/trepan2/trepan2.el,
- realgud/debugger/trepan3k/trepan3k.el,
- realgud/debugger/trepan8/trepan8.el,
- realgud/debugger/zshdb/core.el, realgud/debugger/zshdb/zshdb.el:
- Make rdebug more like the others: use realgud:run-debugger and set
- name realgud:rdebug. In debugger docstrings, mention
- realgud:expand-with-file rather than expand-with-file.
-
-2014-07-12 rocky <address@hidden>
-
- * test/test-trepanpl.el: Debugger name in test changed:
- realgud:trepanpl -> realgud:trpan.pl
-
-2014-07-12 rocky <address@hidden>
-
- * realgud.el, realgud/common/run.el,
- realgud/debugger/bashdb/bashdb.el, realgud/debugger/bashdb/core.el,
- realgud/debugger/gdb/core.el, realgud/debugger/gub/core.el,
- realgud/debugger/kshdb/core.el, realgud/debugger/kshdb/kshdb.el,
- realgud/debugger/nodejs/nodejs.el, realgud/debugger/pdb/core.el,
- realgud/debugger/pdb/pdb.el, realgud/debugger/perldb/core.el,
- realgud/debugger/perldb/perldb.el, realgud/debugger/pydb/core.el,
- realgud/debugger/pydb/pydb.el, realgud/debugger/pydbgr/core.el,
- realgud/debugger/pydbgr/pydbgr.el, realgud/debugger/rdebug/core.el,
- realgud/debugger/remake/core.el, realgud/debugger/remake/remake.el,
- realgud/debugger/trepan.pl/core.el,
- realgud/debugger/trepan.pl/trepanpl.el,
- realgud/debugger/trepan/core.el, realgud/debugger/trepan/trepan.el,
- realgud/debugger/trepan2/core.el,
- realgud/debugger/trepan2/trepan2.el,
- realgud/debugger/trepan3k/core.el,
- realgud/debugger/trepan3k/trepan3k.el,
- realgud/debugger/trepan8/core.el,
- realgud/debugger/trepan8/trepan8.el,
- realgud/debugger/trepanx/core.el,
- realgud/debugger/trepanx/trepanx.el,
- realgud/debugger/zshdb/core.el, realgud/debugger/zshdb/zshdb.el,
- test/test-bashdb.el, test/test-nodejs.el, test/test-pdb.el,
- test/test-trepanpl.el, test/test-zshdb.el: Properly set the
- minibuffer history for each debugger.
-
-2014-07-09 rocky <address@hidden>
-
- * realgud/debugger/bashdb/core.el, realgud/debugger/gdb/core.el,
- realgud/debugger/gdb/gdb.el, realgud/debugger/kshdb/core.el,
- realgud/debugger/remake/core.el, realgud/debugger/remake/remake.el,
- realgud/debugger/trepan/core.el, test/gcd.sh, test/test-bashdb.el,
- test/test-gub-core.el, test/test-remake-core.el: DRY/fix debugger
- invocation code. This time, mostly for remake and gdb
-
-2014-07-07 rocky <address@hidden>
-
- * realgud/debugger/pydbgr/pydbgr.el,
- realgud/debugger/remake/remake.el,
- realgud/debugger/trepan2/trepan2.el, test/test-trepanpl.el: Fix up
- pydbgr and remake somewhat for recent changes
-
-2014-07-06 rocky <address@hidden>
-
- * realgud/debugger/trepan.pl/trepanpl.el, test/test-trepanpl.el:
- Guard more against bad data and set test to better reflect
- incomplete data. Should fix test-trepanpl test
-
-2014-07-06 rocky <address@hidden>
-
- * realgud/debugger/nodejs/nodejs.el,
- realgud/debugger/trepan.pl/trepanpl.el: trepanpl.el: experiment in
- setting the debugger-specific minibuffer history.
-
-2014-07-06 rocky <address@hidden>
-
- * make-check-filter.rb, realgud/common/backtrack-mode.el,
- realgud/common/bp-image-data.el, realgud/common/fringe.el,
- realgud/common/run.el, test/test-srcbuf.el,
- test/test-track-mode.el, test/test-trepan2.el,
- test/test-trepan3k.el: run.el: run realgud-track-set-debugger after
- creating a new command buffer. make-rb-check-filter.rb: was failing
- in non-unicode strings (Elisp byte-compile code) when run with Ruby
- 1.9. rest: remove more warnings.
-
-2014-07-04 rocky <address@hidden>
-
- * realgud/common/track.el, realgud/debugger/nodejs/core.el,
- realgud/debugger/nodejs/nodejs.el, realgud/debugger/perldb/core.el,
- realgud/debugger/perldb/perldb.el,
- realgud/debugger/perldb/track-mode.el,
- realgud/debugger/trepan/track-mode.el, test/test-nodejs.el,
- test/test-perldb.el: DRY perldb and regularize debugger code more.
-
-2014-07-04 rocky <address@hidden>
-
- * realgud/debugger/trepan2/core.el,
- realgud/debugger/trepan3k/core.el: Update copyright for this year on
- recently changed files
-
-2014-07-04 rocky <address@hidden>
-
- * realgud/debugger/bashdb/bashdb.el,
- realgud/debugger/nodejs/nodejs.el, realgud/debugger/pdb/pdb.el,
- realgud/debugger/pydb/pydb.el, realgud/debugger/trepan/core.el,
- realgud/debugger/trepan/trepan.el,
- realgud/debugger/trepan2/core.el,
- realgud/debugger/trepan2/trepan2.el,
- realgud/debugger/trepan3k/core.el,
- realgud/debugger/trepan3k/trepan3k.el,
- realgud/debugger/trepan8/core.el,
- realgud/debugger/trepan8/trepan8.el, test/test-core.el,
- test/test-pdb.el: Go over trepan2 and trepan3k to DRY top-level
- command and expand script names
-
-2014-07-04 rocky <address@hidden>
-
- * realgud/debugger/trepan.pl/core.el,
- realgud/debugger/trepan.pl/trepanpl.el: Small bug in trepan.pl
- parsing
-
-2014-07-04 rocky <address@hidden>
-
- * realgud/common/core.el, realgud/debugger/trepan.pl/core.el,
- realgud/debugger/trepan.pl/trepanpl.el, test/test-core.el,
- test/test-trepanpl.el: DRY top-level invocation realgud:trepan. Only
- expand trepan.pl's script name if expansion finds the file.
- Otherwise, leave unchanged. core.el: add
- reaglud:expand-file-name-if-exists
-
-2014-07-04 rocky <address@hidden>
-
- * realgud/common/core.el, test/test-nodejs.el: Fix bugs in
- realgud-exec shell and nodejs-test.
-
-2014-07-04 rocky <address@hidden>
-
- * realgud/debugger/bashdb/core.el: Small bashdb doc changes
-
-2014-07-04 rocky <address@hidden>
-
- * realgud/debugger/nodejs/nodejs.el: Remove FIXME comment
-
-2014-07-04 rocky <address@hidden>
-
- * realgud/common/core.el, realgud/common/run.el,
- realgud/debugger/bashdb/core.el, realgud/debugger/nodejs/core.el,
- realgud/debugger/nodejs/nodejs.el: DRY nodejs top-level command with
- newly-created realgud:run-debugger. Improve bashdb parsing to handle
- bash --debugger variant. Improve error messages when a shell command
- invoking a debugger fails
-
-2014-07-03 rocky <address@hidden>
-
- * realgud/common/core.el, realgud/common/run.el,
- realgud/debugger/bashdb/bashdb.el,
- realgud/debugger/nodejs/nodejs.el, realgud/debugger/pdb/pdb.el,
- realgud/debugger/perldb/perldb.el,
- realgud/debugger/remake/remake.el,
- realgud/debugger/trepan.pl/trepanpl.el,
- realgud/debugger/zshdb/zshdb.el, test/gcd.js, test/test-bashdb.el,
- test/test-nodejs.el, test/test-pdb.el, test/test-remake.el,
- test/test-trepanpl.el, test/test-zshdb.el: Start to DRY top-level
- debugger run code.
-
-2014-07-01 rocky <address@hidden>
-
- * realgud/debugger/bashdb/core.el, realgud/debugger/nodejs/core.el,
- realgud/debugger/nodejs/nodejs.el, realgud/debugger/pdb/pdb.el,
- realgud/debugger/trepan.pl/core.el,
- realgud/debugger/trepan.pl/trepanpl.el,
- realgud/debugger/zshdb/core.el, realgud/debugger/zshdb/zshdb.el,
- test/test-nodejs.el: Add Filename expansion on nodejs script name
-
-2014-06-30 rocky <address@hidden>
-
- * realgud/debugger/bashdb/bashdb.el,
- realgud/debugger/zshdb/core.el, realgud/debugger/zshdb/zshdb.el,
- test/test-zshdb.el: Expand path elements in zshdb
-
-2014-06-30 rocky <address@hidden>
-
- * realgud/debugger/pdb/core.el, realgud/debugger/pdb/pdb.el,
- realgud/debugger/trepan.pl/core.el,
- realgud/debugger/trepan.pl/trepanpl.el, test/gcd.pl,
- test/test-trepanpl.el: Expand path-like elements in trepan.pl. Use
- trepan.pl command parsing routine more fully now.
-
-2014-06-30 rocky <address@hidden>
-
- * realgud/debugger/bashdb/bashdb.el,
- realgud/debugger/bashdb/core.el, realgud/debugger/pdb/core.el,
- realgud/debugger/pdb/pdb.el, test/test-bashdb.el: Expand path
- elements in bashdb
-
-2014-06-29 rocky <address@hidden>
-
- * realgud.el, realgud/common/backtrace-mode.el,
- realgud/common/buffer/backtrace.el, realgud/common/shortkey.el,
- realgud/common/track.el, realgud/common/window.el,
- realgud/debugger/gdb/track-mode.el,
- realgud/debugger/gub/track-mode.el,
- realgud/debugger/remake/track-mode.el,
- realgud/debugger/trepan8/track-mode.el,
- realgud/debugger/trepanx/track-mode.el, realgud/lang/perl.el,
- realgud/lang/posix-shell.el, realgud/lang/python.el,
- realgud/lang/ruby.el, test/test-realgud.el: Change leading - to :
- for namespace separation more
-
-2014-06-29 rocky <address@hidden>
-
- * realgud/debugger/pdb/core.el: Correct docstring for pdb-parse-args
-
-2014-06-29 rocky <address@hidden>
-
- * configure.ac, el-get-install.el, realgud.el,
- realgud/debugger/pdb/core.el, realgud/debugger/pdb/pdb.el,
- test/test-pdb.el: pdb.el: Expand script name in pdb via pdb parseing
- routine. rest: this Adds a dependency on the list-utils package for
- list-utils-flatten
-
-2014-06-29 rocky <address@hidden>
-
- * realgud/common/core.el, test/test-core.el: Make sure we keep
- separate two invocations that cannonicalize to the same command
- buffer. For example "bashdb /etc/profile" and "bashdb /tmp/profile"
- will canonicalize to buffer "*bashdb profile shell*", but these must
- remain distinct. We uniquify the former buffer.
-
-2014-06-29 rocky <address@hidden>
-
- * .gitignore: More ignore
-
-2014-06-29 rocky <address@hidden>
-
- * realgud/common/buffer/command.el,
- realgud/common/buffer/helper.el, realgud/common/buffer/source.el,
- realgud/common/core.el, realgud/common/loc.el,
- realgud/common/lochist.el: source.el: Remove srcbuf-describe in
- source which was duplicated in helper. Remove a compiler warning
- for buffer-killed? core.el: Add debugger name in error a comint
- shell error message rest: Use colon (:) for package delimiter on
- some "describe" functions.
-
-2014-06-28 rocky <address@hidden>
-
- * configure.ac, realgud/common/core.el,
- realgud/debugger/bashdb/bashdb.el, realgud/debugger/gdb/gdb.el,
- realgud/debugger/pdb/pdb.el, realgud/debugger/perldb/perldb.el,
- realgud/debugger/trepan.pl/trepanpl.el,
- realgud/debugger/trepan/trepan.el, test/test-pdb.el: Mostly minor
- doc changes on top-level debugger invocation. TODO: add an auxiliary
- function to realgud-run-process that can handle interpreter (perl,
- python, ruby) + debugger name or just debugger name
-
-2014-05-12 rocky <address@hidden>
-
- * realgud/common/buffer/command.el, realgud/common/send.el: Use json
- to show command remap hash. Document fake-output-filter(process
- string.
-
-2014-05-11 rocky <address@hidden>
-
- * Makefile.am, realgud.el, realgud/common/track.el,
- realgud/debugger/gub/core.el, realgud/debugger/gub/gub.el,
- realgud/debugger/gub/init.el, realgud/debugger/gub/track-mode.el,
- realgud/debugger/kshdb/core.el, realgud/debugger/kshdb/init.el,
- realgud/debugger/kshdb/kshdb.el,
- realgud/debugger/kshdb/track-mode.el,
- realgud/debugger/perldb/core.el, realgud/debugger/perldb/init.el,
- realgud/debugger/perldb/perldb.el,
- realgud/debugger/perldb/track-mode.el,
- realgud/debugger/pydb/core.el, realgud/debugger/pydb/init.el,
- realgud/debugger/pydb/pydb.el, realgud/debugger/pydb/track-mode.el,
- realgud/lang/python.el, test/test-perldb.el, test/test-pydb.el,
- test/test-regexp-gub.el, test/test-regexp-perldb.el,
- test/test-regexp-pydb.el: Use realgud:*debugger* rather than
- realgud-*debugger* for remaining debuggers.
-
-2014-05-10 rocky <address@hidden>
-
- * realgud/debugger/gdb/core.el, realgud/debugger/gdb/init.el,
- realgud/debugger/nodejs/core.el, realgud/debugger/nodejs/init.el,
- realgud/debugger/nodejs/nodejs.el,
- realgud/debugger/nodejs/track-mode.el,
- realgud/debugger/remake/core.el, realgud/debugger/remake/init.el,
- realgud/debugger/remake/remake.el,
- realgud/debugger/remake/track-mode.el, test/test-regexp-nodejs.el,
- test/test-regexp-remake.el, test/test-remake.el: Go over remake and
- gdb
-
-2014-05-10 rocky <address@hidden>
-
- * realgud.el, realgud/common/backtrack-mode.el,
- realgud/common/track.el, realgud/debugger/gdb/core.el,
- realgud/debugger/gdb/gdb.el, realgud/debugger/gdb/init.el,
- realgud/debugger/gdb/track-mode.el, realgud/debugger/zshdb/core.el,
- realgud/debugger/zshdb/init.el,
- realgud/debugger/zshdb/track-mode.el,
- realgud/debugger/zshdb/zshdb.el, test/test-regexp-gdb.el,
- test/test-regexp-zshdb.el: Work on zshdb and gdb for newer naming
- conventions
-
-2014-05-10 rocky <address@hidden>
-
- * Makefile.am, realgud.el, realgud/common/track.el,
- realgud/debugger/bashdb/bashdb.el, realgud/debugger/bashdb/core.el,
- realgud/debugger/bashdb/init.el,
- realgud/debugger/bashdb/track-mode.el,
- realgud/debugger/pdb/core.el, realgud/debugger/pdb/init.el,
- realgud/debugger/pdb/pdb.el, realgud/debugger/pdb/track-mode.el,
- realgud/debugger/rdebug/init.el,
- realgud/debugger/trepan.pl/backtrack-mode.el,
- realgud/debugger/trepan.pl/core.el,
- realgud/debugger/trepan.pl/init.el,
- realgud/debugger/trepan.pl/track-mode.el,
- realgud/debugger/trepan.pl/trepanpl.el,
- realgud/debugger/trepan/backtrack-mode.el,
- realgud/debugger/trepan/core.el, realgud/debugger/trepan/init.el,
- realgud/debugger/trepan/track-mode.el,
- realgud/debugger/trepan/trepan.el,
- realgud/debugger/trepan2/core.el, realgud/debugger/trepan2/init.el,
- realgud/debugger/trepan2/track-mode.el,
- realgud/debugger/trepan2/trepan2.el,
- realgud/debugger/trepan3k/core.el,
- realgud/debugger/trepan3k/init.el,
- realgud/debugger/trepan3k/track-mode.el,
- realgud/debugger/trepan3k/trepan3k.el,
- realgud/debugger/trepan8/core.el, realgud/debugger/trepan8/init.el,
- realgud/debugger/trepan8/track-mode.el,
- realgud/debugger/trepan8/trepan8.el,
- realgud/debugger/trepanx/core.el, realgud/debugger/trepanx/init.el,
- realgud/debugger/trepanx/track-mode.el,
- realgud/debugger/trepanx/trepanx.el, realgud/lang/ruby.el,
- test/test-core.el, test/test-pdb.el, test/test-regexp-bashdb.el,
- test/test-regexp-pdb.el, test/test-regexp-trepan.el,
- test/test-regexp-trepanpl.el, test/test-regexp-trepanx.el,
- test/test-track-mode.el, test/test-trepan2.el,
- test/test-trepan3k.el: start to use : to separate pacakge from
- reset. e.g.k realgud-trepan -> realgud:trepan
-
-2014-04-05 rocky <address@hidden>
-
- * realgud/common/shortkey.el: shortkey has to nuke its local map
- when going out of shortkey-mode.
-
-2014-03-31 rocky <address@hidden>
-
- * realgud/debugger/zshdb/track-mode.el: Add backtrace to zshdb
-
-2014-03-31 rocky <address@hidden>
-
- * realgud/common/cmds.el, realgud/common/shortkey.el,
- realgud/debugger/bashdb/track-mode.el,
- realgud/debugger/nodejs/init.el,
- realgud/debugger/nodejs/track-mode.el,
- realgud/debugger/perldb/track-mode.el,
- realgud/debugger/remake/core.el,
- realgud/debugger/remake/track-mode.el,
- realgud/debugger/trepan.pl/track-mode.el: shortkey.el: remove '.'
- from mode var name (for trepan.pl). remake: misc fixes and add
- backtrace cmds.el: correct docstring for realgud-cmd-backtrace
- nodejs/init.el: correct regexp for brkpt-set trepan.pl, perldb:
- correct langauge used.
-
-2014-03-30 rocky <address@hidden>
-
- * realgud/debugger/bashdb/track-mode.el,
- realgud/debugger/nodejs/core.el, realgud/debugger/nodejs/init.el,
- realgud/debugger/nodejs/nodejs.el,
- realgud/debugger/nodejs/track-mode.el,
- realgud/debugger/perldb/track-mode.el,
- realgud/debugger/trepan.pl/track-mode.el,
- realgud/debugger/trepan2/track-mode.el,
- realgud/debugger/trepan3k/track-mode.el: Go over specific
- short-key-mode maps. Had to nuke realgud- prefix in some cases. Add
- shortkey T for backtrace.
-
-2014-03-30 rocky <address@hidden>
-
- * el-get-install.el, realgud/debugger/trepan3k/trepan3k.el: Reduce
- warnings
-
-2014-03-29 rocky <address@hidden>
-
- * realgud.el, realgud/common/lang.el,
- realgud/debugger/nodejs/core.el: nodejs/core.el: match js-mode
- properly on file recommendations. lang.el: use when and unless
- better. realgud.el: force a load ao custom.el
-
-2014-03-29 rocky <address@hidden>
-
- * realgud.el: Forgot to pull in node.js debugger code.
-
-2014-03-28 rocky <address@hidden>
-
- * realgud/debugger/nodejs/core.el, test/test-regexp-nodejs.el: Some
- small fixes.
-
-2014-03-28 rocky <address@hidden>
-
- * realgud.el: Hook in nodejs.
-
-2014-03-28 rocky <address@hidden>
-
- * realgud/debugger/gdb/core.el, realgud/debugger/gdb/gdb.el,
- realgud/debugger/nodejs/core.el, realgud/debugger/nodejs/nodejs.el,
- realgud/debugger/nodejs/track-mode.el: Work on nodejs debug
- invocation. gdb fixes.
-
-2014-03-28 rocky <address@hidden>
-
- * .travis.yml, el-get-install.el: Can't use snapshot. I don't think
- we need to pull in emacswiki
-
-2014-03-28 rocky <address@hidden>
-
- * .travis.yml: Try emacs snapshot
-
-2014-03-27 rocky <address@hidden>
-
- * : Merge commit 'd02a47b' into nodejs
-
-2014-03-26 rocky <address@hidden>
-
- * realgud/debugger/nodejs/core.el,
- realgud/debugger/nodejs/track-mode.el: core.el: qualify names with
- realgud- more often track-mode.el: add routine to filter extraneous
- ansi escape sequences in "node debug".
-
-2014-03-26 rocky <address@hidden>
-
- * realgud/common/custom.el, realgud/common/key.el: Make sure
- custom.el gets pulled in.
-
-2014-03-26 rocky <address@hidden>
-
- * realgud/common/cmds.el, realgud/common/shortkey.el,
- realgud/debugger/nodejs/core.el,
- realgud/debugger/nodejs/track-mode.el,
- realgud/debugger/perldb/track-mode.el: shortkey.el: Allow for
- shortkey mode to be custom to the particular debugger. cmds.el: Add
- no-arg versions of step and next perldb: typo in variable name. But
- more work is needed.
-
-2014-03-25 rocky <address@hidden>
-
- * realgud/common/core.el: A couple more "declare-function"s
-
-2014-03-24 rocky <address@hidden>
-
- * test/regexp-helper.el: Sync with master branch
-
-2014-03-24 rocky <address@hidden>
-
- * realgud/debugger/nodejs/init.el: More conversion
-
-2014-03-24 rocky <address@hidden>
-
- * realgud/debugger/nodejs/core.el, realgud/debugger/nodejs/init.el,
- realgud/debugger/nodejs/track-mode.el, test/test-regexp-nodejs.el:
- Get source location tracking working. Short-mode keys still need a
- bit of work.
-
-2014-03-23 rocky <address@hidden>
-
- * configure.ac, realgud/debugger/Makefile.am,
- realgud/debugger/nodejs/Makefile.am,
- realgud/debugger/nodejs/core.el, realgud/debugger/nodejs/init.el,
- realgud/debugger/nodejs/nodejs.el,
- realgud/debugger/nodejs/track-mode.el, test/test-regexp-nodejs.el:
- Start to handle nodejs debugger. Not nearly done though.
-
-2014-03-23 rocky <address@hidden>
-
- * test/regexp-helper.el: Better return value on prompt-match()
-
-2014-03-23 rocky <address@hidden>
-
- * realgud/debugger/bashdb/bashdb.el,
- realgud/debugger/bashdb/core.el, realgud/debugger/bashdb/init.el:
- Comments reflected Ruby inheritence. Simplify regexp.
-
-2014-03-23 rocky <address@hidden>
-
- * realgud/common/track-mode.el: Went too far last if->when commit.
-
-2014-03-23 rocky <address@hidden>
-
- * realgud.el, realgud/common/bp.el, realgud/common/core.el,
- realgud/common/file.el, realgud/common/fringe.el,
- realgud/common/lang.el, realgud/common/shortkey.el,
- realgud/common/track-mode.el, realgud/common/window.el,
- test/test-lang.el: (if ... (progn ...)) => (when ... ) where
- appropriate.
-
-2014-03-23 rocky <address@hidden>
-
- * realgud.el: One more package doc change
-
-2014-03-23 rocky <address@hidden>
-
- * realgud/debugger/bashdb/track-mode.el,
- realgud/debugger/gdb/track-mode.el,
- realgud/debugger/gub/track-mode.el,
- realgud/debugger/kshdb/track-mode.el,
- realgud/debugger/pdb/track-mode.el,
- realgud/debugger/perldb/track-mode.el,
- realgud/debugger/pydb/track-mode.el,
- realgud/debugger/pydbgr/track-mode.el,
- realgud/debugger/rdebug/track-mode.el,
- realgud/debugger/remake/track-mode.el,
- realgud/debugger/trepan.pl/track-mode.el,
- realgud/debugger/trepan/track-mode.el,
- realgud/debugger/trepan2/track-mode.el,
- realgud/debugger/trepan3k/track-mode.el,
- realgud/debugger/trepan8/track-mode.el,
- realgud/debugger/trepanx/track-mode.el,
- realgud/debugger/zshdb/track-mode.el: Finish and Beef up track-mode
- docstrings. Remove more warnings
-
-2014-03-22 rocky <address@hidden>
-
- * realgud.el, realgud/debugger/bashdb/track-mode.el,
- realgud/debugger/gdb/track-mode.el,
- realgud/debugger/gub/track-mode.el,
- realgud/debugger/kshdb/track-mode.el,
- realgud/debugger/pdb/track-mode.el,
- realgud/debugger/perldb/track-mode.el,
- realgud/debugger/pydb/track-mode.el,
- realgud/debugger/pydbgr/track-mode.el,
- realgud/debugger/rdebug/track-mode.el: Add key bindings track-mode
- doc -- up to debugger pydbgr; the other debuggers I still need to
- do.
-
-2014-03-21 rocky <address@hidden>
-
- * realgud.el: One more URL tag.
-
-2014-03-21 rocky <address@hidden>
-
- * realgud.el: Need to add URL to docstring URLs
-
-2014-03-21 rocky <address@hidden>
-
- * : commit 0182bcaa051892546a37107393052c5d4e3941bb Author: rocky
- <address@hidden> Date: Fri Mar 21 19:06:24 2014 -0400
-
-2014-03-19 rocky <address@hidden>
-
- * realgud/debugger/bashdb/bashdb.el, realgud/debugger/gdb/gdb.el,
- realgud/debugger/gub/gub.el, realgud/debugger/kshdb/kshdb.el,
- realgud/debugger/pdb/pdb.el, realgud/debugger/perldb/perldb.el,
- realgud/debugger/pydb/pydb.el, realgud/debugger/pydbgr/pydbgr.el,
- realgud/debugger/rdebug/rdebug.el,
- realgud/debugger/remake/remake.el,
- realgud/debugger/trepan.pl/trepanpl.el,
- realgud/debugger/trepan/trepan.el,
- realgud/debugger/trepan2/trepan2.el,
- realgud/debugger/trepan3k/trepan3k.el,
- realgud/debugger/trepan8/trepan8.el,
- realgud/debugger/trepanx/trepanx.el,
- realgud/debugger/zshdb/zshdb.el: debugger/<name>/<name>.el Group
- name changed from dbgr to realgud
-
-2014-03-13 rocky <address@hidden>
-
- * : commit 153c707a185a7e64113cedf7cde2d7d505482ad5 Merge: 5177850
- 1571d00 Author: R. Bernstein <address@hidden> Date:
- Thu Mar 13 06:56:27 2014 -0400
-
-2014-03-11 Pete Beardmore <address@hidden>
-
- * realgud/common/custom.el, realgud/common/shortkey.el: add
- customisable variable to control source buffer locking -allow users to
control whether the source buffers associated with
- the debugger process(es) are locked (read-only mode enabled) when
- debugging is in progress
-
-2014-03-12 rocky <address@hidden>
-
- * : commit 517785049df706af0f84f7c4e60d6954c8415b0c Merge: 520d19b
- e034855 Author: R. Bernstein <address@hidden> Date:
- Wed Mar 12 20:02:32 2014 -0400
-
-2014-03-12 rocky <address@hidden>
-
- * realgud/common/track.el: A couple more warnings removed
-
-2014-03-12 R. Bernstein <address@hidden>
-
- * : Merge pull request #25 from elbeardmorez/cmdbuf-focus fix source
buffer erroneously receiving focus
-
-2014-03-11 Pete Beardmore <address@hidden>
-
- * realgud/common/shortkey.el: shortkey, add mode hook call at setup
-enable 'realgud-short-key-mode-hook' for those who might need it
-
-2014-03-11 Pete Beardmore <address@hidden>
-
- * realgud/common/shortkey.el: shortkey, clean up
- 'realgud-short-key-mode-setup' (whitespace only) -give nesting a chance
by removing mix of tabs and spaces
-
-2014-03-08 rocky <address@hidden>
-
- * realgud/common/track.el: Remove more warnings
-
-2014-03-08 rocky <address@hidden>
-
- * : commit c6f6d2c6a2041936e3b8cad5d542905116843c79 Author: rocky
- <address@hidden> Date: Sat Mar 8 21:41:05 2014 -0500
-
-2014-02-27 rocky <address@hidden>
-
- * realgud/common/track.el: Yet another attempt to narrow the track
- region and reduce compile warnings.
-
-2014-02-23 rocky <address@hidden>
-
- * : I hate conflicted merges
-
-2014-02-23 R. Bernstein <address@hidden>
-
- * README.md: Update README.md
-
-2014-02-23 R. Bernstein <address@hidden>
-
- * README.md: Update README.md
-
-2014-02-23 R. Bernstein <address@hidden>
-
- * README.md: Update README.md
-
-2014-02-17 rocky <address@hidden>
-
- * realgud/common/track.el: Think I have the reappearing breakpoint
- problem solved, by setting last-input-end set properly. Should this
- be called last-input-start instead?
-
-2014-02-17 rocky <address@hidden>
-
- * realgud/common/buffer/backtrace.el,
- realgud/common/buffer/command.el, realgud/common/cmds.el,
- realgud/common/core.el, realgud/common/send.el,
- realgud/common/shortkey.el, realgud/common/window.el: Reduce
- warnings
-
-2014-02-16 rocky <address@hidden>
-
- * realgud/common/buffer/command.el, realgud/common/track.el: Save
- last end position. More warnings removed.
-
-2014-02-16 rocky <address@hidden>
-
- * Carton, realgud.el, realgud/common/buffer/command.el,
- test/Makefile.am: Add go debugger gub. (MELPA recipe is now in git.)
- Remove Carton
-
-2014-02-16 rocky <address@hidden>
-
- * realgud/common/core.el, realgud/common/lochist.el,
- realgud/common/reset.el: Reduce warnings
-
-2014-02-16 rocky <address@hidden>
-
- * realgud/common/buffer/helper.el, realgud/common/core.el: core.el:
- srcbuf-init function call had simplified and I missed this call.
- helper.el: add more declare-functions.
-
-2014-02-16 rocky <address@hidden>
-
- * README.md: reinstate Travis
-
-2014-02-16 rocky <address@hidden>
-
- * test/Makefile.am: Add help to Makefile
-
-2014-02-15 rocky <address@hidden>
-
- * .travis.yml, el-get-install.el: Travis yet again. Try to get
- emacs24 in there at least
-
-2014-02-15 rocky <address@hidden>
-
- * el-get-install.el, make-check-filter.rb: Yet another try to get
- travis working
-
-2014-02-14 rocky <address@hidden>
-
- * .travis.yml: 4th travis try via el-get
-
-2014-02-14 rocky <address@hidden>
-
- * .travis.yml, configure.ac: 3rd travis try via el-get
-
-2014-02-14 rocky <address@hidden>
-
- * .travis.yml: 2nd try via el-get at travis
-
-2014-02-14 rocky <address@hidden>
-
- * .travis.yml, el-get-install.el, test/Makefile.am: See if travis
- works via el-get
-
-2014-02-12 rocky <address@hidden>
-
- * realgud.el, realgud/common/track.el: Yet another attempt to get
- package-requires correct for MELPA
-
-2014-02-12 rocky <address@hidden>
-
- * realgud.el: Extraneous ' on loc-change symbol
-
-2014-02-11 rocky <address@hidden>
-
- * realgud/common/buffer/source.el, realgud/common/core.el,
- test/test-remake.el, test/test-send.el, test/test-srcbuf.el,
- test/test-track-mode.el: Remove debugger-name and cmd-args fields
- from srcbuf. If you need it, get it from the command buffer.
-
-2014-02-11 rocky <address@hidden>
-
- * realgud/common/core.el, test/test-regexp-bashdb.el: core.el: nil
- out breakpoints. test-regexp-bashdb.el: was picking up wrong regexp
- pat in test
-
-2014-02-10 rocky <address@hidden>
-
- * realgud/debugger/bashdb/init.el, test/test-regexp-bashdb.el:
- correct regexp for matching a bashdb deleted breakpoint.
-
-2014-02-10 rocky <address@hidden>
-
- * realgud.el: Package names should be symbols, not strings.
-
-2014-02-09 rocky <address@hidden>
-
- * realgud/common/cmds.el: Messed up on let syntax.
-
-2014-02-09 rocky <address@hidden>
-
- * realgud.el, realgud/common/cmds.el: realgud.el: forgot quotes
- fournd required package name. cmds.el: reduce warnings.
-
-2014-02-09 rocky <address@hidden>
-
- * elisp-comp, realgud.el, realgud/debugger/bashdb/core.el,
- realgud/debugger/bashdb/track-mode.el,
- realgud/debugger/gub/core.el,
- realgud/debugger/trepan.pl/backtrack-mode.el,
- realgud/debugger/trepan.pl/core.el,
- realgud/debugger/trepan.pl/track-mode.el,
- realgud/debugger/trepan8/core.el,
- realgud/debugger/trepan8/track-mode.el,
- realgud/debugger/trepan8/trepan8.el,
- realgud/debugger/trepanx/core.el,
- realgud/debugger/trepanx/track-mode.el,
- realgud/debugger/trepanx/trepanx.el,
- realgud/debugger/zshdb/core.el,
- realgud/debugger/zshdb/track-mode.el,
- realgud/debugger/zshdb/zshdb.el, realgud/lang/perl.el,
- realgud/lang/ruby.el: elisp-comp: recompile only if necessary.
- realgud.el: add dependent packages. rest: reduce warnings by adding
- declare-function.
-
-2014-02-09 rocky <address@hidden>
-
- * realgud/common/cmds.el: Give a message when we try we run deletel
- breakpoint on a line with no breakpoints on it
-
-2014-02-08 rocky <address@hidden>
-
- * realgud/common/buffer/source.el, realgud/common/cmds.el:
- source.el: realgud-srcbuf-init-or-update - add source buffer to
- command buffers's list of source buffers. cmds.el: delete can
- sometimes prompt.
-
-2014-02-06 rocky <address@hidden>
-
- * realgud.el, realgud/common/key.el: Add [delete] as a breakpoint
- delete key
-
-2014-02-06 rocky <address@hidden>
-
- * realgud/common/cmds.el: Make realgud-cmd-delete really work when
- tied to a key.
-
-2014-02-06 rocky <address@hidden>
-
- * realgud/common/buffer/source.el, realgud/common/cmds.el,
- realgud/common/key.el: Work on "delete" shortkey
-
-2014-02-06 rocky <address@hidden>
-
- * realgud/common/bp.el, realgud/common/cmds.el: Add interface for
- debugger "delete" "enable" and "disable"
-
-2014-02-06 rocky <address@hidden>
-
- * realgud/common/bp.el, realgud/debugger/gdb/track-mode.el,
- realgud/debugger/trepan.pl/backtrack-mode.el,
- realgud/debugger/trepan.pl/track-mode.el,
- realgud/debugger/trepan/backtrack-mode.el: Reduce warnings. See
- previous commit
-
-2014-02-06 rocky <address@hidden>
-
- * realgud/common/core.el, realgud/common/fringe.el,
- realgud/common/track.el: Try to reduce some of the warnings. I hate
- the Emacs compiler's spurious warnings.
-
-2014-02-05 rocky <address@hidden>
-
- * realgud/common/bp.el, realgud/common/track.el,
- realgud/debugger/trepan/init.el: Deleting breakpoints now
- implemented.
-
-2014-02-05 rocky <address@hidden>
-
- * realgud/common/bp.el, realgud/common/track.el: Work in Progress.
- Move a little forward on parsing breakpoint deletions
-
-2014-02-05 rocky <address@hidden>
-
- * realgud/common/core.el: Modify "Failed to invoke shell command" to
- be more explicit about args
-
-2013-12-22 rocky <address@hidden>
-
- * realgud/debugger/rdebug/track-mode.el,
- realgud/debugger/trepan.pl/track-mode.el,
- realgud/debugger/trepan/track-mode.el,
- realgud/debugger/trepan8/track-mode.el,
- realgud/debugger/trepanx/track-mode.el: reduce gratuitous warnings
- which prevented us from catching a real one that we 've just also
- fixed.
-
-2013-12-13 rocky <address@hidden>
-
- * realgud/common/cmds.el, realgud/common/core.el,
- realgud/common/file.el, realgud/common/window.el: Reduce warnings
-
-2013-12-12 rocky <address@hidden>
-
- * realgud/debugger/bashdb/bashdb.el, realgud/debugger/gdb/core.el,
- realgud/debugger/gdb/gdb.el, realgud/debugger/gdb/track-mode.el,
- realgud/debugger/kshdb/kshdb.el, realgud/debugger/pdb/core.el,
- realgud/debugger/pdb/pdb.el, realgud/debugger/pdb/track-mode.el,
- realgud/debugger/perldb/core.el, realgud/debugger/perldb/perldb.el,
- realgud/debugger/perldb/track-mode.el,
- realgud/debugger/pydb/track-mode.el,
- realgud/debugger/pydbgr/core.el, realgud/debugger/pydbgr/pydbgr.el,
- realgud/debugger/pydbgr/track-mode.el,
- realgud/debugger/trepan.pl/track-mode.el: Reduce warnings focused
- mostly in directory debugger
-
-2013-12-11 rocky <address@hidden>
-
- * test/test-srcbuf.el, test/test-track-mode.el, test/test-track.el:
- Reduce warnings in tests.
-
-2013-12-10 rocky <address@hidden>
-
- * test/test-loc-regexp-gub.el, test/test-loc-regexp-trepan.el,
- test/test-loc-regexp-trepanpl.el, test/test-loc-regexp-trepanx.el,
- test/test-realgud.el, test/test-regexp-bashdb.el,
- test/test-regexp.el: Remove more warnings in test programs
-
-2013-12-10 rocky <address@hidden>
-
- * realgud/common/backtrace-mode.el,
- realgud/common/backtrack-mode.el, realgud/common/bp.el,
- realgud/common/cmds.el: Mostly more declare-function statements
-
-2013-12-07 rocky <address@hidden>
-
- * realgud/debugger/bashdb/init.el, realgud/debugger/gub/init.el,
- realgud/debugger/gub/track-mode.el, test/test-regexp-gub.el: Add gub
- panic backtrace line
-
-2013-12-02 rocky <address@hidden>
-
- * test/test-buf-bt.el, test/test-buf-cmd.el,
- test/test-common-helper.el, test/test-core.el, test/test-file.el,
- test/test-gub-core.el, test/test-loc-regexp-gub.el,
- test/test-pdb.el, test/test-pydb.el, test/test-pydbgr.el,
- test/test-send.el, test/test-srcbuf.el, test/test-track-mode.el,
- test/test-track.el: Reduce the number of warnings in the test
- directiory. One legit bug in realgud/bashdb/init.el was found/fixed
- though.
-
-2013-12-01 rocky <address@hidden>
-
- * realgud/debugger/gub/core.el, test/bt-helper.el,
- test/regexp-helper.el, test/test-bp.el, test/test-bt-pdb.el,
- test/test-bt-pydb.el, test/test-bt-pydbgr.el,
- test/test-bt-rdebug.el, test/test-bt-trepan.el,
- test/test-bt-trepan2.el, test/test-bt-trepan3k.el,
- test/test-bt-trepanx.el, test/test-bt-zshdb.el,
- test/test-gub-core.el, test/test-pdb.el, test/test-perldb.el,
- test/test-pydb.el, test/test-pydbgr.el, test/test-rdebug.el,
- test/test-regexp-pydbgr.el, test/test-regexp-rdebug.el,
- test/test-regexp-trepanpl.el, test/test-regexp-trepanx.el,
- test/test-track-mode.el, test/test-trepan2.el,
- test/test-trepan3k.el: Fix gub parse args - this time, for sure! Fix
- tests to reduce warnings although they are still run rampant.
-
-2013-12-01 rocky <address@hidden>
-
- * realgud/debugger/gub/core.el, realgud/debugger/gub/gub.el,
- realgud/debugger/gub/track-mode.el, test/test-gub-core.el: core.el:
- fix bugs in parsing gub command. gub.el: Set default gub command to
- something reasonable track-mode.el: remove some warnings by defining
- non-local functions
-
-2013-12-01 rocky <address@hidden>
-
- * realgud/debugger/gub/init.el, test/test-regexp-gub.el: Add golang
- backtrace regexp
-
-2013-11-18 rocky <address@hidden>
-
- * compute-lispdir.sh, configure.ac: Fix up spelling when giving an
- error and regularize options given to emacs between
- compute-lispdir.sh and configure.ac
-
-2013-11-17 rocky <address@hidden>
-
- * .travis.yml, README.md: I hate travis
-
-2013-11-17 rocky <address@hidden>
-
- * .travis.yml: carton is now called cask? (travis yet again)
-
-2013-11-17 rocky <address@hidden>
-
- * .travis.yml: Wrong path for cask in .travis
-
-2013-11-17 rocky <address@hidden>
-
- * .travis.yml: Wrong version number for emacs in .travis
-
-2013-11-17 rocky <address@hidden>
-
- * .travis.yml: Looks like "carton" install now uses python rather
- than sh
-
-2013-11-17 rocky <address@hidden>
-
- * .travis.yml: I said use 24.3 for emacs testing
-
-2013-11-17 rocky <address@hidden>
-
- * .travis.yml: Try only emacs 24 for now. See github.com/magit for
- how we might use emacs 23
-
-2013-11-17 rocky <address@hidden>
-
- * configure.ac, install-from-git.sh, realgud.el: realgud.el: Don't
- try to load gub for now. It's broken and melpa doesn't know about it
- either. install-from-git.sh remove old git repositories before
- (re-)pulling them. Use https protocol by default on git command.
- configure.ac: add --with-emacs option. Check for cl-lib in emacs.
-
-2013-09-23 R. Bernstein <address@hidden>
-
- * : Merge pull request #16 from elbeardmorez/ac-lispdir autoconf, fall
back to default datadir install location
-
-2013-08-24 rocky <address@hidden>
-
- * .travis.yml: More travis hacking.
-
-2013-08-24 rocky <address@hidden>
-
- * .travis.yml: More travis hacking.
-
-2013-08-24 rocky <address@hidden>
-
- * .travis.yml: More travis hacking.
-
-2013-08-24 rocky <address@hidden>
-
- * .travis.yml: More travis hacking.
-
-2013-08-24 rocky <address@hidden>
-
- * .travis.yml: More travis hacking.
-
-2013-08-24 rocky <address@hidden>
-
- * .travis.yml: More travis hacking.
-
-2013-08-24 rocky <address@hidden>
-
- * .travis.yml: More travis hacking.
-
-2013-08-24 rocky <address@hidden>
-
- * .travis.yml: More travis hacking.
-
-2013-08-24 rocky <address@hidden>
-
- * .travis.yml: More travis hacking.
-
-2013-08-24 rocky <address@hidden>
-
- * .travis.yml: More travis hacking.
-
-2013-08-24 rocky <address@hidden>
-
- * .travis.yml: More travis hacking.
-
-2013-08-24 rocky <address@hidden>
-
- * .travis.yml: Carton moved around stuff
-
-2013-08-24 rocky <address@hidden>
-
- * : commit fe88dcd4e188fcef61e966923ab1584d311e8933 Author: rocky
- <address@hidden> Date: Sat Aug 24 20:59:44 2013 -0400
-
-2013-07-26 rocky <address@hidden>
-
- * .travis.yml, README.md: Include travis build status in README.md
-
-2013-07-26 rocky <address@hidden>
-
- * .travis.yml: Travis 6th try
-
-2013-07-26 rocky <address@hidden>
-
- * .travis.yml: Travis 5th try
-
-2013-07-26 rocky <address@hidden>
-
- * .travis.yml: Travis 4th try
-
-2013-07-26 rocky <address@hidden>
-
- * .travis.yml: Travis 3rd try
-
-2013-07-26 rocky <address@hidden>
-
- * .travis.yml: Travis 2nd try
-
-2013-07-26 rocky <address@hidden>
-
- * .travis.yml: Try travis
-
-2013-07-23 rocky <address@hidden>
-
- * : commit fef3185ce42d38eaeb22bf352c1ca1abb7638922 Author: rocky
- <address@hidden> Date: Tue Jul 23 22:31:33 2013 -0400
-
-2013-07-23 rocky <address@hidden>
-
- * : commit 19a9dde7f4314c4e83910e46afbe1fa972442ae8 Author: rocky
- <address@hidden> Date: Tue Jul 23 22:29:12 2013 -0400
-
-2013-07-12 rocky <address@hidden>
-
- * realgud/debugger/gub/gub.el: Top-level gub.sh to run the debugger
- from the outset now works.
-
-2013-07-12 rocky <address@hidden>
-
- * realgud/debugger/gub/core.el, realgud/debugger/gub/gub.el,
- test/test-gub-core.el: Attempt to fix up gub invocation
-
-2013-07-10 rocky <address@hidden>
-
- * .gitignore, realgud.el: Small changes: update version, list of
- debuggers supported and ignore package (*-pkg.el) files.
-
-2013-07-10 rocky <address@hidden>
-
- * .gitignore, Carton, realgud-pkg.el: Try using Carton instead of
- realgud-pkg.el as suggested by Steve Purcell
-
-2013-07-10 rocky <address@hidden>
-
- * realgud-pkg.el: Make MELPA happy at the expense of making emacs's
- byte compiler less happy.
-
-2013-07-01 rocky <address@hidden>
-
- * : commit 6140d4b6441e0c6f568893f8b67d36374fb427e8 Author: rocky
- <address@hidden> Date: Mon Jul 1 21:43:22 2013 -0400
-
-2013-07-01 rocky <address@hidden>
-
- * test/test-common-helper.el, test/test-loc-regexp-gub.el,
- test/test-loc-regexp-trepan.el, test/test-loc-regexp-trepanpl.el:
- Remove more free-variable warnings
-
-2013-07-01 rocky <address@hidden>
-
- * realgud-pkg.el, test/regexp-helper.el: More testing stuff
-
-2013-07-01 rocky <address@hidden>
-
- * test/bt-helper.el, test/regexp-helper.el, test/test-bp.el,
- test/test-bt-pdb.el, test/test-bt-pydb.el, test/test-bt-pydbgr.el,
- test/test-bt-rdebug.el, test/test-bt-trepan.el,
- test/test-bt-trepan2.el, test/test-bt-trepan3k.el,
- test/test-bt-trepanx.el, test/test-bt-zshdb.el,
- test/test-buf-cmd.el, test/test-core.el, test/test-file.el,
- test/test-lang.el: Reduce test warnings.
-
-2013-06-30 rocky <address@hidden>
-
- * realgud/debugger/gub/init.el, realgud/debugger/gub/track-mode.el:
- More gub customization
-
-2013-06-30 rocky <address@hidden>
-
- * realgud/debugger/gub/init.el, test/test-loc-regexp-gub.el:
- Disallow filenames in location tracking that start with a blank.
-
-2013-06-29 rocky <address@hidden>
-
- * realgud/common/shortkey.el: See above.
-
-2013-06-29 rocky <address@hidden>
-
- * realgud/common/shortkey.el: Add C-x C-q to turn off shortkey mode.
-
-2013-06-27 rocky <address@hidden>
-
- * realgud/debugger/gub/init.el: Correct gub regexp
-
-2013-06-27 rocky <address@hidden>
-
- * realgud/debugger/gub/core.el, realgud/debugger/gub/gub.el: Better
- (but not good) gub invocation settings
-
-2013-06-26 rocky <address@hidden>
-
- * configure.ac, realgud.el, realgud/debugger/Makefile.am,
- realgud/debugger/gub/Makefile.am, realgud/debugger/gub/core.el,
- realgud/debugger/gub/gub.el, realgud/debugger/gub/init.el,
- realgud/debugger/gub/track-mode.el: Start Go language interpreter
- debugger gub.
-
-2013-06-14 rocky <address@hidden>
-
- * README.md: Add a coderwall endorse
-
-2013-06-08 rocky <address@hidden>
-
- * Makefile.am, common.mk, configure.ac, install-from-git.sh,
- realgud.el, realgud/common/Makefile.am,
- realgud/common/buffer/Makefile.am, realgud/debugger/common.mk,
- realgud/lang/Makefile.am, test/Makefile.am: Administration build
- stuff
-
-2013-06-08 rocky <address@hidden>
-
- * realgud/common/file.el, realgud/common/track.el,
- realgud/debugger/bashdb/bashdb.el,
- realgud/debugger/remake/remake.el,
- realgud/debugger/trepan/trepan.el, test/test-file.el: file.el,
- test-file.el: when we remap files remember what we answered.
- debugger/*: make (interactive) and testing work together. track.el:
- start ansi-term tolerance.
-
-2013-04-07 rocky <address@hidden>
-
- * Makefile.am, realgud.el: One more typo
-
-2013-04-06 rocky <address@hidden>
-
- * README.md, compute-lispdir.sh, configure.ac,
- realgud/common/backtrack-mode.el, realgud/common/buffer/command.el,
- realgud/common/custom.el, realgud/common/fringe.el,
- realgud/common/init.el, realgud/common/key.el,
- realgud/common/lochist.el, realgud/common/shortkey.el,
- realgud/common/track-mode.el, realgud/common/track.el:
- compute-lispdir.sh, configure.ac: Figure out a reasonable lisp
- directory (--with-lispdir). realgud/common/*.el: group is 'realgud,
- not 'dbgr
-
-2013-04-06 rocky <address@hidden>
-
- * configure.ac, install-from-git.sh, realgud.el,
- realgud/debugger/Makefile.am, realgud/debugger/pydbgr/init.el,
- realgud/debugger/pydbgr/track-mode.el,
- realgud/debugger/trepan2/Makefile.am,
- realgud/debugger/trepan2/core.el, realgud/debugger/trepan2/init.el,
- realgud/debugger/trepan2/track-mode.el,
- realgud/debugger/trepan2/trepan2.el, test/test-bt-trepan2.el,
- test/test-bt-trepan3k.el, test/test-trepan2.el,
- test/test-trepan3k.el: Add trepan2 for Python 2.x - -really
- copied/renamed from pydbgr.
-
-2013-04-04 rocky <address@hidden>
-
- * realgud.el: Revise description so it doesn't say the same thing as
- the summary.
-
-2013-04-04 rocky <address@hidden>
-
- * install-from-git.sh, realgud-pkg.el: realgud-pkg.el: add
- dependency on cl-lib.
-
-2013-04-02 rocky <address@hidden>
-
- * realgud.el, realgud/common/buffer/backtrace.el,
- realgud/common/buffer/command.el, realgud/common/buffer/source.el,
- test/test-regexp-pydbgr.el: realgud.el: More doc tweaking.
- test-regexp-pydbgr.el: remove artifact from dbgr->realgud rename.
-
-2013-04-02 rocky <address@hidden>
-
- * realgud.el: Small doc-like changes.
-
-2013-04-01 rocky <address@hidden>
-
- * Makefile.am, THANKS: Why did I take so long to include this THANKS
- file?
-
-2013-04-01 rocky <address@hidden>
-
- * README.md: More name change artifacts
-
-2013-04-01 R. Bernstein <address@hidden>
-
- * : Merge pull request #14 from rocky/realgud Realgud
-
-2013-04-01 rocky <address@hidden>
-
- * README.md: Move table to wiki.
-
-2013-04-01 rocky <address@hidden>
-
- * README.md, README.textile, autogen.sh, realgud.el: realgud.el,
- autogen.el: More things to make dbgr->realgud renmaming work.
- README.textile->README.md: revise.
-
-2013-04-01 rocky <address@hidden>
-
- * Makefile.am, configure.ac, dbgr.el, dbgr/Makefile.am,
- dbgr/common/Makefile.am, dbgr/common/backtrace-mode.el,
- dbgr/common/backtrack-mode.el, dbgr/common/bp-image-data.el,
- dbgr/common/bp.el, dbgr/common/buffer/Makefile.am,
- dbgr/common/buffer/backtrace.el, dbgr/common/buffer/command.el,
- dbgr/common/buffer/helper.el, dbgr/common/buffer/source.el,
- dbgr/common/cmds.el, dbgr/common/core.el, dbgr/common/custom.el,
- dbgr/common/file.el, dbgr/common/fringe.el, dbgr/common/helper.el,
- dbgr/common/init.el, dbgr/common/key.el, dbgr/common/lang.el,
- dbgr/common/loc.el, dbgr/common/lochist.el, dbgr/common/menu.el,
- dbgr/common/regexp.el, dbgr/common/reset.el, dbgr/common/send.el,
- dbgr/common/shortkey.el, dbgr/common/track-mode.el,
- dbgr/common/track.el, dbgr/common/window.el,
- dbgr/debugger/Makefile.am, dbgr/debugger/bashdb/Makefile.am,
- dbgr/debugger/bashdb/bashdb.el, dbgr/debugger/bashdb/core.el,
- dbgr/debugger/bashdb/init.el, dbgr/debugger/bashdb/track-mode.el,
- dbgr/debugger/common.mk, dbgr/debugger/gdb/Makefile.am,
- dbgr/debugger/gdb/core.el, dbgr/debugger/gdb/gdb.el,
- dbgr/debugger/gdb/init.el, dbgr/debugger/gdb/track-mode.el,
- dbgr/debugger/kshdb/Makefile.am, dbgr/debugger/kshdb/core.el,
- dbgr/debugger/kshdb/init.el, dbgr/debugger/kshdb/kshdb.el,
- dbgr/debugger/kshdb/track-mode.el, dbgr/debugger/pdb/Makefile.am,
- dbgr/debugger/pdb/core.el, dbgr/debugger/pdb/init.el,
- dbgr/debugger/pdb/pdb.el, dbgr/debugger/pdb/track-mode.el,
- dbgr/debugger/perldb/Makefile.am, dbgr/debugger/perldb/core.el,
- dbgr/debugger/perldb/init.el, dbgr/debugger/perldb/perldb.el,
- dbgr/debugger/perldb/track-mode.el, dbgr/debugger/pydb/Makefile.am,
- dbgr/debugger/pydb/core.el, dbgr/debugger/pydb/init.el,
- dbgr/debugger/pydb/pydb.el, dbgr/debugger/pydb/track-mode.el,
- dbgr/debugger/pydbgr/Makefile.am, dbgr/debugger/pydbgr/core.el,
- dbgr/debugger/pydbgr/init.el, dbgr/debugger/pydbgr/pydbgr.el,
- dbgr/debugger/pydbgr/track-mode.el,
- dbgr/debugger/rdebug/Makefile.am, dbgr/debugger/rdebug/core.el,
- dbgr/debugger/rdebug/init.el, dbgr/debugger/rdebug/rdebug.el,
- dbgr/debugger/rdebug/track-mode.el,
- dbgr/debugger/remake/Makefile.am, dbgr/debugger/remake/core.el,
- dbgr/debugger/remake/init.el, dbgr/debugger/remake/remake.el,
- dbgr/debugger/remake/track-mode.el,
- dbgr/debugger/trepan.pl/Makefile.am,
- dbgr/debugger/trepan.pl/backtrack-mode.el,
- dbgr/debugger/trepan.pl/core.el, dbgr/debugger/trepan.pl/init.el,
- dbgr/debugger/trepan.pl/track-mode.el,
- dbgr/debugger/trepan.pl/trepanpl.el,
- dbgr/debugger/trepan/Makefile.am,
- dbgr/debugger/trepan/backtrack-mode.el,
- dbgr/debugger/trepan/core.el, dbgr/debugger/trepan/init.el,
- dbgr/debugger/trepan/track-mode.el, dbgr/debugger/trepan/trepan.el,
- dbgr/debugger/trepan3k/Makefile.am, dbgr/debugger/trepan3k/core.el,
- dbgr/debugger/trepan3k/init.el,
- dbgr/debugger/trepan3k/track-mode.el,
- dbgr/debugger/trepan3k/trepan3k.el,
- dbgr/debugger/trepan8/Makefile.am, dbgr/debugger/trepan8/core.el,
- dbgr/debugger/trepan8/init.el, dbgr/debugger/trepan8/track-mode.el,
- dbgr/debugger/trepan8/trepan8.el,
- dbgr/debugger/trepanx/Makefile.am, dbgr/debugger/trepanx/core.el,
- dbgr/debugger/trepanx/init.el, dbgr/debugger/trepanx/track-mode.el,
- dbgr/debugger/trepanx/trepanx.el, dbgr/debugger/zshdb/Makefile.am,
- dbgr/debugger/zshdb/core.el, dbgr/debugger/zshdb/init.el,
- dbgr/debugger/zshdb/track-mode.el, dbgr/debugger/zshdb/zshdb.el,
- dbgr/lang/Makefile.am, dbgr/lang/perl.el, dbgr/lang/posix-shell.el,
- dbgr/lang/python.el, dbgr/lang/ruby.el, emacs-dbgr-pkg.el,
- realgud-pkg.el, realgud.el, realgud/Makefile.am,
- realgud/common/Makefile.am, realgud/common/backtrace-mode.el,
- realgud/common/backtrack-mode.el, realgud/common/bp-image-data.el,
- realgud/common/bp.el, realgud/common/buffer/Makefile.am,
- realgud/common/buffer/backtrace.el,
- realgud/common/buffer/command.el, realgud/common/buffer/helper.el,
- realgud/common/buffer/source.el, realgud/common/cmds.el,
- realgud/common/core.el, realgud/common/custom.el,
- realgud/common/file.el, realgud/common/fringe.el,
- realgud/common/helper.el, realgud/common/init.el,
- realgud/common/key.el, realgud/common/lang.el,
- realgud/common/loc.el, realgud/common/lochist.el,
- realgud/common/menu.el, realgud/common/regexp.el,
- realgud/common/reset.el, realgud/common/send.el,
- realgud/common/shortkey.el, realgud/common/track-mode.el,
- realgud/common/track.el, realgud/common/window.el,
- realgud/debugger/Makefile.am, realgud/debugger/bashdb/Makefile.am,
- realgud/debugger/bashdb/bashdb.el, realgud/debugger/bashdb/core.el,
- realgud/debugger/bashdb/init.el,
- realgud/debugger/bashdb/track-mode.el, realgud/debugger/common.mk,
- realgud/debugger/gdb/Makefile.am, realgud/debugger/gdb/core.el,
- realgud/debugger/gdb/gdb.el, realgud/debugger/gdb/init.el,
- realgud/debugger/gdb/track-mode.el,
- realgud/debugger/kshdb/Makefile.am, realgud/debugger/kshdb/core.el,
- realgud/debugger/kshdb/init.el, realgud/debugger/kshdb/kshdb.el,
- realgud/debugger/kshdb/track-mode.el,
- realgud/debugger/pdb/Makefile.am, realgud/debugger/pdb/core.el,
- realgud/debugger/pdb/init.el, realgud/debugger/pdb/pdb.el,
- realgud/debugger/pdb/track-mode.el,
- realgud/debugger/perldb/Makefile.am,
- realgud/debugger/perldb/core.el, realgud/debugger/perldb/init.el,
- realgud/debugger/perldb/perldb.el,
- realgud/debugger/perldb/track-mode.el,
- realgud/debugger/pydb/Makefile.am, realgud/debugger/pydb/core.el,
- realgud/debugger/pydb/init.el, realgud/debugger/pydb/pydb.el,
- realgud/debugger/pydb/track-mode.el,
- realgud/debugger/pydbgr/Makefile.am,
- realgud/debugger/pydbgr/core.el, realgud/debugger/pydbgr/init.el,
- realgud/debugger/pydbgr/pydbgr.el,
- realgud/debugger/pydbgr/track-mode.el,
- realgud/debugger/rdebug/Makefile.am,
- realgud/debugger/rdebug/core.el, realgud/debugger/rdebug/init.el,
- realgud/debugger/rdebug/rdebug.el,
- realgud/debugger/rdebug/track-mode.el,
- realgud/debugger/remake/Makefile.am,
- realgud/debugger/remake/core.el, realgud/debugger/remake/init.el,
- realgud/debugger/remake/remake.el,
- realgud/debugger/remake/track-mode.el,
- realgud/debugger/trepan.pl/Makefile.am,
- realgud/debugger/trepan.pl/backtrack-mode.el,
- realgud/debugger/trepan.pl/core.el,
- realgud/debugger/trepan.pl/init.el,
- realgud/debugger/trepan.pl/track-mode.el,
- realgud/debugger/trepan.pl/trepanpl.el,
- realgud/debugger/trepan/Makefile.am,
- realgud/debugger/trepan/backtrack-mode.el,
- realgud/debugger/trepan/core.el, realgud/debugger/trepan/init.el,
- realgud/debugger/trepan/track-mode.el,
- realgud/debugger/trepan/trepan.el,
- realgud/debugger/trepan3k/Makefile.am,
- realgud/debugger/trepan3k/core.el,
- realgud/debugger/trepan3k/init.el,
- realgud/debugger/trepan3k/track-mode.el,
- realgud/debugger/trepan3k/trepan3k.el,
- realgud/debugger/trepan8/Makefile.am,
- realgud/debugger/trepan8/core.el, realgud/debugger/trepan8/init.el,
- realgud/debugger/trepan8/track-mode.el,
- realgud/debugger/trepan8/trepan8.el,
- realgud/debugger/trepanx/Makefile.am,
- realgud/debugger/trepanx/core.el, realgud/debugger/trepanx/init.el,
- realgud/debugger/trepanx/track-mode.el,
- realgud/debugger/trepanx/trepanx.el,
- realgud/debugger/zshdb/Makefile.am, realgud/debugger/zshdb/core.el,
- realgud/debugger/zshdb/init.el,
- realgud/debugger/zshdb/track-mode.el,
- realgud/debugger/zshdb/zshdb.el, realgud/lang/Makefile.am,
- realgud/lang/perl.el, realgud/lang/posix-shell.el,
- realgud/lang/python.el, realgud/lang/ruby.el, test/bt-helper.el,
- test/regexp-helper.el, test/test-bp.el, test/test-bt-pdb.el,
- test/test-bt-pydb.el, test/test-bt-pydbgr.el,
- test/test-bt-rdebug.el, test/test-bt-trepan.el,
- test/test-bt-trepanx.el, test/test-bt-zshdb.el,
- test/test-buf-bt.el, test/test-buf-cmd.el,
- test/test-common-helper.el, test/test-core.el, test/test-dbgr.el,
- test/test-file.el, test/test-lang.el,
- test/test-loc-regexp-trepan.el, test/test-loc-regexp-trepanpl.el,
- test/test-loc-regexp-trepanx.el, test/test-loc.el,
- test/test-lochist.el, test/test-pdb.el, test/test-perldb.el,
- test/test-pydb.el, test/test-pydbgr.el, test/test-rdebug.el,
- test/test-realgud.el, test/test-regexp-bashdb.el,
- test/test-regexp-gdb.el, test/test-regexp-pdb.el,
- test/test-regexp-perldb.el, test/test-regexp-pydb.el,
- test/test-regexp-pydbgr.el, test/test-regexp-rdebug.el,
- test/test-regexp-remake.el, test/test-regexp-ruby.el,
- test/test-regexp-trepan.el, test/test-regexp-trepanpl.el,
- test/test-regexp-trepanx.el, test/test-regexp-zshdb.el,
- test/test-regexp.el, test/test-remake-core.el, test/test-remake.el,
- test/test-send.el, test/test-shortkey.el, test/test-srcbuf.el,
- test/test-track-mode.el, test/test-track.el: Start the massive
- rename dbgr -> realgud
-
-2013-03-30 R. Bernstein <address@hidden>
-
- * : Merge pull request #13 from expez/package Fix typo in package
declaration.
-
-2013-03-27 R. Bernstein <address@hidden>
-
- * : Merge pull request #12 from expez/package Add a package description.
-
-2013-03-25 rocky <address@hidden>
-
- * elisp-comp: Don't create elc files in a temp directory. This
- messes up the load relative stuff.
-
-2013-03-17 rocky <address@hidden>
-
- * .gitignore, configure.ac, dbgr.el, dbgr/.gitignore,
- dbgr/common/.gitignore, dbgr/common/buffer/.gitignore,
- dbgr/debugger/.gitignore, dbgr/debugger/Makefile.am,
- dbgr/debugger/bashdb/.gitignore, dbgr/debugger/gdb/.gitignore,
- dbgr/debugger/kshdb/.gitignore, dbgr/debugger/pdb/.gitignore,
- dbgr/debugger/perldb/.gitignore, dbgr/debugger/pydb/.gitignore,
- dbgr/debugger/pydbgr/.gitignore, dbgr/debugger/rdebug/.gitignore,
- dbgr/debugger/remake/.gitignore,
- dbgr/debugger/trepan.pl/.gitignore,
- dbgr/debugger/trepan/.gitignore,
- dbgr/debugger/trepan3k/Makefile.am, dbgr/debugger/trepan3k/core.el,
- dbgr/debugger/trepan3k/init.el,
- dbgr/debugger/trepan3k/track-mode.el,
- dbgr/debugger/trepan3k/trepan3k.el,
- dbgr/debugger/trepan8/.gitignore, dbgr/debugger/trepanx/.gitignore,
- dbgr/debugger/zshdb/.gitignore, dbgr/lang/.gitignore: Add trepan3k
- debugger
-
-2013-02-20 rocky <address@hidden>
-
- * autogen.sh: Don't use -v on ln -s command
-
-2013-02-20 rocky <address@hidden>
-
- * : commit b956bff345480cb5f524a1cd5963d8fb71637474 Author: rocky
- <address@hidden> Date: Wed Feb 20 11:52:05 2013 -0500
-
-2013-02-17 rocky <address@hidden>
-
- * Makefile.am: Tidy and comment Makefile.am
-
-2013-02-17 rocky <address@hidden>
-
- * Makefile.am: Allow ENV vars to influence git2cl and ruby. Add
- install-short target.
-
-2013-02-17 John K. Luebs <address@hidden>
-
- * dbgr/debugger/perldb/init.el: Fix incorrect load paths in perldb
-
-2013-02-17 John K. Luebs <address@hidden>
-
- * dbgr/common/regexp.el: Add missing eval-when-compile cl to
- regexp.el
-
-2013-01-12 rocky <address@hidden>
-
- * dbgr/debugger/pydbgr/init.el, test/test-regexp-pydbgr.el: Allow
- file remapping in newer pydbgr
-
-2012-12-28 rocky <address@hidden>
-
- * dbgr/debugger/pydbgr/track-mode.el: Had forgot to turn on mode
- location tracking.
-
-2012-12-26 rocky <address@hidden>
-
- * : commit b07e92e15f51e3818fef86d263d73a1e9d2e4b8a Author: rocky
- <address@hidden> Date: Wed Dec 26 16:50:38 2012 -0500
-
-2012-12-26 rocky <address@hidden>
-
- * dbgr.el, dbgr/debugger/pydb/init.el, test/test-regexp-pydb.el:
- More pydb debugger fixes. Think it works now.
-
-2012-12-26 rocky <address@hidden>
-
- * configure.ac, dbgr/common/Makefile.am, dbgr/common/init.el,
- dbgr/common/init/.gitignore, dbgr/common/init/Makefile.am,
- dbgr/common/init/pydb.el, dbgr/debugger/Makefile.am,
- dbgr/debugger/pdb/.gitignore, dbgr/debugger/pydb/.gitignore,
- dbgr/debugger/pydb/Makefile.am, dbgr/debugger/pydb/core.el,
- dbgr/debugger/pydb/init.el, dbgr/debugger/pydb/pydb.el,
- dbgr/debugger/pydb/track-mode.el, test/test-bt-pydb.el,
- test/test-pydb.el, test/test-regexp-pydb.el: Remove old init
- directory and convert last debugger pydb to new format.
-
-2012-11-24 rocky <address@hidden>
-
- * install-from-git.sh: Allow configure options to get passed to
- "install-from-git.sh"
-
-2012-09-25 rocky <address@hidden>
-
- * dbgr/common/bp.el, dbgr/debugger/trepan.pl/init.el: Correct
- trepan.pl breakpoint command. Change fringe string in preparation
- for toggling breakpoint fringe area.
-
-2012-09-22 rocky <address@hidden>
-
- * dbgr/common/bp.el, dbgr/common/track.el: Delay testing display
- until first use. More work is needed.
-
-2012-09-22 rocky <address@hidden>
-
- * dbgr/common/bp.el, dbgr/debugger/rdebug/track-mode.el: Allow more
- image formats and separate it into its own file. cmds.el: remove
- function warning compile message.
-
-2012-09-22 rocky <address@hidden>
-
- * : commit f219e99806299300bd6ea2a077b48ba3ad20146d Author: rocky
- <address@hidden> Date: Sat Sep 22 08:13:33 2012 -0400
-
-2012-09-22 rocky <address@hidden>
-
- * dbgr/common/bp-image-data.el, dbgr/common/bp.el,
- dbgr/common/cmds.el: Allow more image formats and separate it into
- its own file. cmds.el: remove function warning compile message.
-
-2012-09-22 rocky <address@hidden>
-
- * dbgr/common/bp.el: Guard against trying to show a breakpoint
- enabed/disabled image when find-image couldn't find one. Issue #4.
-
-2012-09-21 rocky <address@hidden>
-
- * dbgr/debugger/rdebug/core.el, dbgr/debugger/rdebug/track-mode.el:
- dbgr-rdebug wasn't running commit-mode track hooks. Issue #4. Also
- suggest rdebug as a Ruby program to debug when we can't find
- anything else.
-
-2012-09-04 rocky <address@hidden>
-
- * dbgr/common/lang.el, dbgr/debugger/trepanx/core.el,
- test/test-lang.el: Small change - trepanx suggests trepanx when it
- can't find another ruby program.
-
-2012-09-03 rocky <address@hidden>
-
- * dbgr/common/core.el, dbgr/common/lang.el,
- dbgr/debugger/trepan.pl/core.el, dbgr/debugger/trepan/core.el,
- test/test-lang.el: Add last-resort parameter to suggest a file to
- run inrepan.pl: core
-
-2012-09-03 rocky <address@hidden>
-
- * dbgr/common/core.el, dbgr/common/lang.el,
- test/test-regexp-perldb.el: Small changes.
-
-2012-09-03 rocky <address@hidden>
-
- * dbgr/common/bp.el: Untabify
-
-2012-09-03 rocky <address@hidden>
-
- * dbgr/common/bp.el: One more wafer-thin change
-
-2012-09-03 rocky <address@hidden>
-
- * dbgr/common/bp.el: Should have been part of last commit.
-
-2012-09-03 rocky <address@hidden>
-
- * dbgr/common/bp.el: Fix bug in showing breakpoint location when we
- have a display and not when we don't. This time, for sure!
-
-2012-08-21 rocky <address@hidden>
-
- * : commit 67b27ae0d12be3d2456155b710fc174b020718e1 Author: rocky
- <address@hidden> Date: Sun Aug 12 15:54:05 2012 -0400
-
-2012-07-02 rocky <address@hidden>
-
- * dbgr/debugger/trepan.pl/init.el, test/regexp-helper.el,
- test/test-regexp-trepanpl.el, test/test-regexp-trepanx.el:
- trepan.pl/init.el: correct breakpoint regexp.
- test-regexp-trepan*.el: DRY code by putting more in regexp-helper.el
-
-2012-07-02 rocky <address@hidden>
-
- * test/test-regexp-trepan.el, test/test-regexp-trepanpl.el,
- test/test-regexp-trepanx.el: More on prompt regexps start trepan.pl
- regexp test.
-
-2012-07-02 rocky <address@hidden>
-
- * test/bt-helper.el, test/regexp-helper.el, test/test-bt-pdb.el,
- test/test-bt-pydbgr.el, test/test-bt-rdebug.el,
- test/test-bt-trepan.el, test/test-bt-trepanx.el,
- test/test-bt-zshdb.el, test/test-loc-regexp-trepan.el,
- test/test-loc-regexp-trepanx.el, test/test-regexp-pydbgr.el,
- test/test-regexp-ruby.el, test/test-regexp-trepanx.el: DRY test
- backtace code by putting more common stuff in bt-helper.el
-
-2012-07-01 rocky <address@hidden>
-
- * test/test-regexp.el: DRY more.
-
-2012-07-01 rocky <address@hidden>
-
- * Makefile.am, dbgr/debugger/Makefile.am, test/regexp-helper.el,
- test/test-loc-regexp-trepan.el, test/test-loc-regexp-trepanx.el,
- test/test-regexp-bashdb.el, test/test-regexp-gdb.el,
- test/test-regexp-perldb.el, test/test-regexp-rdebug.el,
- test/test-regexp-remake.el: DRY code. Make "make distcheck" work.
-
-2012-07-01 rocky <address@hidden>
-
- * test/bt-helper.el, test/regexp-helper.el,
- test/test-regexp-bashdb.el, test/test-regexp-pdb.el,
- test/test-regexp-perldb.el, test/test-regexp-remake.el,
- test/test-regexp-trepan.el, test/test-regexp-zshdb.el: DRY test
- code.
-
-2012-07-01 rocky <address@hidden>
-
- * test/Makefile.am, test/regexp-helper.el,
- test/test-regexp-pydbgr.el, test/test-regexp-rdebug.el,
- test/test-regexp-ruby.el: DRY regexp tests a tiny bit.
-
-2012-07-01 rocky <address@hidden>
-
- * install-from-git.sh: No more test-unit. Yay!
-
-2012-07-01 rocky <address@hidden>
-
- * test/test-loc-regexp-trepan.el, test/test-loc-regexp-trepanx.el,
- test/test-track.el: test-unit -> test-simple
-
-2012-07-01 rocky <address@hidden>
-
- * test/Makefile.am, test/bt-helper.el, test/helper.el,
- test/test-bt-pdb.el, test/test-bt-pydbgr.el,
- test/test-bt-rdebug.el, test/test-bt-trepan.el,
- test/test-bt-trepanx.el, test/test-bt-zshdb.el,
- test/test-regexp-rdebug.el: test-unit -> test-simple
-
-2012-07-01 rocky <address@hidden>
-
- * test/test-buf-cmd.el, test/test-regexp.el, test/test-srcbuf.el,
- test/test-track-mode.el: test-unit -> test-simple
-
-2012-07-01 rocky <address@hidden>
-
- * test/test-core.el, test/test-send.el: test-unit -> test-simple
-
-2012-07-01 rocky <address@hidden>
-
- * test/test-common-helper.el, test/test-remake-core.el: test-unit ->
- test-simple
-
-2012-07-01 rocky <address@hidden>
-
- * test/test-regexp-pydbgr.el, test/test-regexp-ruby.el: test-unit ->
- test-simple
-
-2012-07-01 rocky <address@hidden>
-
- * test/test-regexp-bashdb.el, test/test-regexp-gdb.el,
- test/test-regexp-zshdb.el: test-unit -> test-simple
-
-2012-06-30 rocky <address@hidden>
-
- * test/test-regexp-perldb.el, test/test-regexp-rdebug.el,
- test/test-regexp-remake.el, test/test-remake.el: test-unit ->
- test-simple
-
-2012-06-30 rocky <address@hidden>
-
- * test/test-perldb.el, test/test-rdebug.el: test-unit -> test-simple
-
-2012-06-29 rocky <address@hidden>
-
- * dbgr/common/bp.el: Allow running on Emacs where we can't display
- images.
-
-2012-06-26 rocky <address@hidden>
-
- * configure.ac, dbgr/common/fringe.el, elisp-comp: finge.el: another
- gaurd around defining a fringe bitmap. configure.ac: make sure we
- don't smash INSTALL et all.
-
-2012-06-15 rocky <address@hidden>
-
- * install-from-git.sh: Install test-simple as a prerequisite
-
-2012-06-15 rocky <address@hidden>
-
- * make-check-filter.rb, test/test-file.el,
- test/test-regexp-trepanx.el: make-check-filter.rb: filter out some
- "remake" lines. test-unit -> test-simple
-
-2012-06-15 rocky <address@hidden>
-
- * test/test-bt-pdb.el, test/test-pdb.el, test/test-pydbgr.el,
- test/test-regexp-trepan.el, test/test-regexp-trepanx.el: test-unit
- -> test-simple
-
-2012-06-14 rocky <address@hidden>
-
- * test/test-bt-pdb.el: One more test-unit->test-simple
-
-2012-06-13 rocky <address@hidden>
-
- * test/test-bp.el: Small change
-
-2012-06-13 rocky <address@hidden>
-
- * test/test-dbgr.el, test/test-lang.el, test/test-regexp-pdb.el:
- Start to use buffer-local-variable's in tests. This reduces the
- global scope pollution.
-
-2012-06-13 rocky <address@hidden>
-
- * test/test-regexp-pdb.el: One more test-unit -> test-simple
-
-2012-06-13 rocky <address@hidden>
-
- * test/test-dbgr.el, test/test-lang.el: A couple more test-unit
- tests converted to test-simple
-
-2012-06-13 rocky <address@hidden>
-
- * test/test-loc.el: test-unit -> test-simple
-
-2012-06-13 rocky <address@hidden>
-
- * test/test-lochist.el, test/test-shortkey.el: test-simple-clear ->
- test-simple-start
-
-2012-06-13 rocky <address@hidden>
-
- * : commit 1bd9a458f78335235e1265f417de9145c869dbb5 Author: rocky
- <address@hidden> Date: Wed Jun 13 05:18:22 2012 -0400
-
-2012-06-10 rocky <address@hidden>
-
- * test/test-bp.el, test/test-buf-bt.el: A couple more tests
- converted to test-simple.
-
-2012-06-10 rocky <address@hidden>
-
- * dbgr/common/buffer/backtrace.el, test/test-bp.el,
- test/test-shortkey.el: Start replacing test-unit with test-simple.
-
-2012-06-02 rocky <address@hidden>
-
- * dbgr/common/buffer/backtrace.el, dbgr/common/track.el: Make use of
- return value of defvar's return value in make-buffer-local-variable.
-
-2012-05-20 rocky <address@hidden>
-
- * dbgr/common/loc.el, test/Makefile.am: Makefile.am: adjust options
- because in Emacs 24 --quick doesn't include site file loc.el: small
- grammar thing.
-
-2012-05-14 rocky <address@hidden>
-
- * dbgr/common/loc.el, dbgr/debugger/bashdb/track-mode.el,
- dbgr/debugger/gdb/track-mode.el, dbgr/debugger/kshdb/track-mode.el,
- dbgr/debugger/pdb/track-mode.el,
- dbgr/debugger/remake/track-mode.el,
- dbgr/debugger/trepan.pl/track-mode.el,
- dbgr/debugger/zshdb/track-mode.el: Defensive programming
-
-2012-05-14 rocky <address@hidden>
-
- * : commit d409bf9b79a74508b3ab424ac41fcccf967f5b30 Author: rocky
- <address@hidden> Date: Sun May 13 19:23:13 2012 -0400
-
-2012-05-13 rocky <address@hidden>
-
- * dbgr/common/loc.el, test/test-loc-regexp-trepan.el,
- test/test-loc-regexp-trepanx.el, test/test-regexp-pdb.el,
- test/test-regexp-trepan.el: loc.el: we don't need no stinking id's.
- test-regexp-pdb.el: correct typo prompt_str -> prompt-str
- test-trepan: add initialization of promp-str
-
-2012-05-12 rocky <address@hidden>
-
- * .gitignore, README.textile, configure.ac, dbgr.el,
- dbgr/debugger/Makefile.am, dbgr/debugger/pdb/.gitignore,
- dbgr/debugger/pdb/Makefile.am, dbgr/debugger/pdb/core.el,
- dbgr/debugger/pdb/init.el, dbgr/debugger/pdb/pdb.el,
- dbgr/debugger/pdb/track-mode.el, dbgr/debugger/pydbgr/init.el,
- dbgr/debugger/pydbgr/pydbgr.el, test/test-bt-pdb.el,
- test/test-pdb.el, test/test-regexp-pdb.el,
- test/test-regexp-trepan.el: Add stock Python debugger.
-
-2012-05-12 rocky <address@hidden>
-
- * dbgr/debugger/bashdb/track-mode.el,
- dbgr/debugger/gdb/track-mode.el, dbgr/debugger/kshdb/track-mode.el,
- dbgr/debugger/perldb/track-mode.el,
- dbgr/debugger/pydbgr/track-mode.el,
- dbgr/debugger/rdebug/track-mode.el,
- dbgr/debugger/remake/track-mode.el,
- dbgr/debugger/trepan.pl/track-mode.el,
- dbgr/debugger/trepanx/track-mode.el,
- dbgr/debugger/zshdb/track-mode.el, test/test-loc-regexp-trepan.el:
- Set debug-track-mode properly.
-
-2012-05-12 rocky <address@hidden>
-
- * dbgr/common/track-mode.el: One more incorrect use of
- dbgr-track-mode call.
-
-2012-05-12 rocky <address@hidden>
-
- * dbgr/common/buffer/command.el, dbgr/common/loc.el,
- dbgr/common/lochist.el, dbgr/debugger/trepan/track-mode.el: Add
- describe funciton to loc. Show full history ring described.
-
-2012-05-11 rocky <address@hidden>
-
- * dbgr/common/buffer/command.el, dbgr/common/buffer/source.el,
- dbgr/common/core.el, dbgr/common/shortkey.el: Add
- dbgr-srcbuf-info-describe(). And revise dbgr-cmdbuf-info-describe.
-
-2012-05-09 rocky <address@hidden>
-
- * : commit ef076bb12de522b264b25181bcfdf33aacc68825 Author: rocky
- <address@hidden> Date: Wed May 9 23:29:06 2012 -0400
-
-2012-04-23 rocky <address@hidden>
-
- * README.textile: Better wording"
-
-2012-04-23 rocky <address@hidden>
-
- * README.textile: Add link to "how to use"
-
-2012-04-15 rocky <address@hidden>
-
- * test/Makefile.am: Use long form options to pass to emacs
-
-2012-04-09 rocky <address@hidden>
-
- * : commit f47333d4ee517988aafa8327d1967138754ad87d Author: rocky
- <address@hidden> Date: Fri Apr 6 07:11:34 2012 -0400
-
-2012-03-31 rocky <address@hidden>
-
- * : commit c0929a53d3916c956360bde41bd1fd4ae353ab94 Author: rocky
- <address@hidden> Date: Sat Mar 31 10:11:31 2012 -0400
-
-2012-03-24 rocky <address@hidden>
-
- * README.textile, dbgr/common/shortkey.el: Note we support
- Devel::Trepan. shortkey.el: some change from a while ago.
-
-2012-03-09 R. Bernstein <address@hidden>
-
- * : Merge pull request #1 from Erkan-Yilmaz/master fix link + add
missing word
-
-2012-01-17 rocky <address@hidden>
-
- * : commit 803e3755cad7a3ab12049bd37f219a5e4fdb05d8 Author: rocky
- <address@hidden> Date: Sat Dec 31 10:07:28 2011 -0500
-
-2011-12-29 rocky <address@hidden>
-
- * dbgr/common/core.el: dbgr-terminate, dbg-terminate-srcbuf Coerce
- string buffer name into a buffer.
-
-2011-12-21 rocky <address@hidden>
-
- * dbgr/common/core.el: use dbgr-track-mode-off instead of passing 0
- to dbgr-track-mode. declare-function arguments seem to have added a
- "file" parameter?
-
-2011-12-16 rocky <address@hidden>
-
- * : commit 8ca1c7717a73671e473405da5a89f77ab9ad9196 Author: rocky
- <address@hidden> Date: Fri Dec 16 23:04:16 2011 -0500
-
-2011-12-13 rocky <address@hidden>
-
- * : commit acc38e77e4e65bb814f156e20077b104a353a5b0 Author: rocky
- <address@hidden> Date: Thu Dec 1 19:48:31 2011 -0500
-
-2011-12-01 rocky <address@hidden>
-
- * : commit c3b78f013173488b06a939cbae6030d9f2e69f75 Merge: de59b90
- a2ed07f Author: rocky <address@hidden> Date: Wed Nov 30 23:31:18
- 2011 -0500
-
-2011-11-30 rocky <address@hidden>
-
- * : 3 1 dbgr/common/backtrack-mode.el 14 12
dbgr/common/track.el 2 1
- dbgr/debugger/perldb/init.el 4 4
- dbgr/debugger/trepanpl/backtrack-mode.el 0 1
- dbgr/debugger/trepanpl/trepanpl.el
-
-2011-11-15 rocky <address@hidden>
-
- * : commit a2ed07fcedc83a5fa7c39a96cf60b211e2889e63 Author: rocky
- <address@hidden> Date: Tue Nov 15 05:19:24 2011 -0500
-
-2011-11-14 rocky <address@hidden>
-
- * dbgr/common/backtrack-mode.el, dbgr/common/track.el,
- dbgr/debugger/perldb/init.el: Command completion of debuggers in
- dbgr-track-mode. Also allow perl5db for as an synonym for perldb.
-
-2011-11-13 rocky <address@hidden>
-
- * dbgr/debugger/perldb/perldb.el: Add perldb and perl5db aliases.
-
-2011-11-01 rocky <address@hidden>
-
- * : commit 3ae90f5ede0086c1a00f095735f3d7588df4a3f1 Author: rocky
- <address@hidden> Date: Tue Nov 1 13:59:40 2011 -0400
-
-2011-11-01 rocky <address@hidden>
-
- * install-from-git.sh: Allow the use of "su - root" if sudo isn't
- found of if we just want to "su - root" instead of using sudo.
-
-2011-10-26 rocky <address@hidden>
-
- * dbgr/common/buffer/command.el, dbgr/common/file.el,
- dbgr/common/regexp.el, dbgr/common/track.el,
- dbgr/debugger/rdebug/init.el, dbgr/debugger/trepanpl/init.el,
- dbgr/debugger/trepanpl/trepanpl.el, dbgr/lang/perl.el,
- test/test-regexp-perldb.el: Add ability to ignore file in tracking
- based on a re. For example (eval) in Ruby 1.8 or (eval
10)[../foo/bar.pl:10] in Perl. Todo: add
- <string> in Python.
-
-2011-10-23 rocky <address@hidden>
-
- * dbgr/debugger/perldb/init.el, dbgr/debugger/perldb/track-mode.el,
- dbgr/debugger/trepanpl/init.el,
- dbgr/debugger/trepanpl/track-mode.el, dbgr/lang/perl.el,
- test/test-regexp-perldb.el: Create common Perl language file. Add
- pattern for Perl error message.
-
-2011-09-05 rocky <address@hidden>
-
- * configure.ac, dbgr.el, dbgr/common/buffer/.gitignore,
- dbgr/common/track.el, dbgr/debugger/Makefile.am,
- dbgr/debugger/perldb/core.el, dbgr/debugger/perldb/track-mode.el,
- dbgr/debugger/trepanpl/.gitignore,
- dbgr/debugger/trepanpl/Makefile.am,
- dbgr/debugger/trepanpl/backtrack-mode.el,
- dbgr/debugger/trepanpl/core.el, dbgr/debugger/trepanpl/init.el,
- dbgr/debugger/trepanpl/track-mode.el,
- dbgr/debugger/trepanpl/trepanpl.el: Start perl trepan debugger mode
- (trepanpl).
-
-2011-06-30 rocky <address@hidden>
-
- * elisp-comp: Reinstate old elisp-comp. WE NEED A MODIFIED
- elisp-comp!
-
-2011-06-29 rocky <address@hidden>
-
- * README.textile: More clear about Ruby 1.8
-
-2011-06-29 rocky <address@hidden>
-
- * README.textile, elisp-comp: Add rb8-trepanning to list of
- debuggers we support.
-
-2011-06-19 rocky <address@hidden>
-
- * dbgr/common/track-mode.el: Add a simple enable and disable of
- track mode which is useful in a rails console.
-
-2011-06-03 rocky <address@hidden>
-
- * dbgr.el: More administrivia
-
-2011-06-03 rocky <address@hidden>
-
- * configure.ac: Administrivia.
-
-2011-06-03 rocky <address@hidden>
-
- * dbgr/debugger/Makefile.am, dbgr/debugger/rdebug/init.el,
- dbgr/debugger/trepan8/.gitignore,
- dbgr/debugger/trepan8/Makefile.am, dbgr/debugger/trepan8/core.el,
- dbgr/debugger/trepan8/init.el, dbgr/debugger/trepan8/track-mode.el,
- dbgr/debugger/trepan8/trepan8.el: Start support for trepan8 which is
- mostly like trepanx and rdebug (but probably will later have a bit
- of trepan in it.)
-
-2011-05-29 rocky <address@hidden>
-
- * dbgr/debugger/rdebug/init.el, dbgr/debugger/trepan/init.el,
- dbgr/lang/ruby.el: A couple of rdebug/ruby pattern name and variable
- fixes.
-
-2011-05-24 rocky <address@hidden>
-
- * dbgr/common/cmds.el, dbgr/common/core.el,
- dbgr/common/track-mode.el: dbgr-cmd-quit resets source information
- in source buffers whenone can't find a command buffer for it.
-
-2011-05-24 rocky <address@hidden>
-
- * dbgr/common/core.el, dbgr/common/track-mode.el,
- dbgr/common/window.el: Add bidinng "C-c S" to go into source window
- from command window. ("frame 0" is lame.) Add commnd to reset
- source window.
-
-2011-05-24 rocky <address@hidden>
-
- * dbgr/common/window.el: 'C' dbgr-window-undisturb-src should select
- the command window, not just show it. Be more agressive about not
- using a minibuffer window, even if it is active.
-
-2011-05-03 rocky <address@hidden>
-
- * dbgr/common/track.el: In track-mode, silence failing re position
- matching messages.
-
-2011-05-01 rocky <address@hidden>
-
- * Makefile.am, common.mk, dbgr/common/Makefile.am,
- dbgr/common/buffer/Makefile.am, dbgr/common/buffer/source.el,
- dbgr/common/track.el, dbgr/debugger/Makefile.am,
- dbgr/debugger/common.mk, dbgr/debugger/trepan/Makefile.am,
- test/Makefile.am: Two bugs and a Makefile change. track hook can be
- called twice with second time no change. Guard for that.
- (use-local-map) returns nil so use (current-local-map) again. In
- Makefiles: add "short" targets via an included common.mk more often.
-
-2011-04-26 rocky <address@hidden>
-
- * dbgr/common/track.el, dbgr/debugger/trepan/init.el,
- dbgr/debugger/trepan/track-mode.el, dbgr/lang/ruby.el: ruby.el,
- trepan/init.el: Add syntax error pattern for 1.9 YARV track.el: when
- loc-matching fails show message returned.
-
-2011-04-24 rocky <address@hidden>
-
- * dbgr.el, dbgr/debugger/bashdb/bashdb.el,
- dbgr/debugger/gdb/gdb.el, dbgr/debugger/kshdb/kshdb.el,
- dbgr/debugger/perldb/core.el, dbgr/debugger/perldb/perldb.el,
- dbgr/debugger/pydbgr/pydbgr.el, dbgr/debugger/rdebug/rdebug.el,
- dbgr/debugger/remake/remake.el, dbgr/debugger/trepan/trepan.el,
- dbgr/debugger/trepanx/trepanx.el, dbgr/debugger/zshdb/zshdb.el: Go
- over customization groups. Add top-level dbgr group and individual
- debuggers hang off of this now.
-
-2011-04-24 rocky <address@hidden>
-
- * dbgr/common/file.el, dbgr/common/track.el, test/test-file.el:
- track.el: give a messages if location regexp fails to match a
- position. file.el: use compilation-find-file to resolve partial
- filenames.
-
-2011-04-23 rocky <address@hidden>
-
- * dbgr/common/core.el: Switch to buffer even when dbgr-exec-shell
- fails.
-
-2011-04-23 rocky <address@hidden>
-
- * dbgr/debugger/trepanx/init.el: Another cut-and-paste error from
- trepan to trepanx
-
-2011-04-23 rocky <address@hidden>
-
- * dbgr/debugger/trepanx/track-mode.el: ruby-goto-dollar-bang-line
- not rubinius-goto-dollar-bang-line
-
-2011-04-23 rocky <address@hidden>
-
- * dbgr/common/track-mode.el, dbgr/common/track.el,
- dbgr/debugger/trepanx/track-mode.el: C-c!! for is a dollar-bang
- line, not a lang line. Don't go into shortkey automatically unless
- called from a shell hook. Add more sanity checks to handle error
- conditions better such as recovery from setting a bad debugger name.
-
-2011-04-23 rocky <address@hidden>
-
- * dbgr/debugger/rdebug/init.el, dbgr/debugger/trepan/init.el,
- dbgr/debugger/trepanx/init.el, dbgr/debugger/trepanx/track-mode.el,
- dbgr/lang/ruby.el: Add Ruby dollar-bang as its own thing.
-
-2011-04-20 rocky <address@hidden>
-
- * : commit ca1fd145067bf0fdb485e97f2b57b1950657a894 Author: rocky
- <address@hidden> Date: Wed Apr 20 12:34:53 2011 -0400
-
-2011-04-19 rocky <address@hidden>
-
- * dbgr/debugger/gdb/init.el, dbgr/debugger/remake/init.el,
- test/test-regexp-gdb.el: Tweak gdb expression for those encountered.
-
-2011-04-19 rocky <address@hidden>
-
- * dbgr/common/track.el: Attempt to address recently-encountered
- another window position bug.
-
-2011-04-19 rocky <address@hidden>
-
- * dbgr/common/window.el: Guard against an uninitialized marker
- variable in window selection
-
-2011-04-17 rocky <address@hidden>
-
- * dbgr/common/buffer/command.el, dbgr/common/shortkey.el,
- dbgr/common/track-mode.el, dbgr/debugger/perldb/track-mode.el,
- test/test-regexp-remake.el: Add routine to toggle cmdbuf
- in-debugger? state. Add temporary key for backtrace. Workaround bug
- in turning off dbgr-track-mode. Test shortkey customization per
- debugger. As always much more is needed.
-
-2011-04-17 rocky <address@hidden>
-
- * dbgr/common/track.el, dbgr/debugger/bashdb/init.el,
- dbgr/debugger/kshdb/init.el, dbgr/debugger/remake/init.el,
- dbgr/debugger/trepan/init.el, dbgr/debugger/trepanx/init.el,
- dbgr/debugger/zshdb/init.el, test/test-track.el: Look for
- termination message in track mode and use that to terminate
- debugging.
-
-2011-04-17 rocky <address@hidden>
-
- * Makefile.am, dbgr/common/buffer/helper.el,
- dbgr/common/buffer/source.el: Makefile.am: Add --tasks/tasks and
- *short targets. move routine from source to helper to remove
- compile warning.
-
-2011-04-17 rocky <address@hidden>
-
- * dbgr/debugger/trepan/init.el: YARV 1.9.2 regexp for lang backtrace
-
-2011-04-16 rocky <address@hidden>
-
- * dbgr/common/track.el: Give a message if we fail to find a
- backtrace position
-
-2011-04-16 rocky <address@hidden>
-
- * dbgr/common/buffer/source.el, dbgr/common/lochist.el: Beef up
- describe for source buffers.
-
-2011-04-16 rocky <address@hidden>
-
- * dbgr/common/buffer/command.el, dbgr/common/buffer/helper.el,
- dbgr/common/fringe.el, dbgr/common/track.el, dbgr/common/window.el,
- dbgr/debugger/gdb/init.el, dbgr/debugger/trepan/init.el,
- test/test-track.el: Possibly some of the source update redisplay
- problems has been fixed. Add ability to understand what frame we
- might be in. Done for trepan.el. Others may follow. Add Emacs
- command to toggle whether we stay in source or not and better
- support for cmdbuf-info-describe. gdb/init.d fix cut-and-paste
- error.
-
-2011-04-16 rocky <address@hidden>
-
- * dbgr/debugger/gdb/init.el: Somehow had lost hash key for gdb
- debugger.
-
-2011-04-16 rocky <address@hidden>
-
- * dbgr/common/cmds.el, dbgr/common/track.el: Correct default "break"
- command. Add a "kill" command. Correct some docstrings.
-
-2011-04-15 rocky <address@hidden>
-
- * Makefile.am, dbgr/debugger/trepan/init.el, make-check-filter.rb,
- test/Makefile.am: Add "make check-short" which reduces unuseful
- output from "make check". Correct problem in trepan init.el:
- (format ...) doesn't work here.
-
-2011-04-15 rocky <address@hidden>
-
- * dbgr/common/buffer/command.el, dbgr/common/core.el,
- dbgr/common/track-mode.el, dbgr/common/track.el: Put color in
- running status for track mode.
-
-2011-04-15 rocky <address@hidden>
-
- * : commit 7a2abb1420302f6344cc6278a15de0a0f44484e9 Author: rocky
- <address@hidden> Date: Fri Apr 15 07:35:41 2011 -0400
-
-2011-04-14 rocky <address@hidden>
-
- * dbgr/common/backtrace-mode.el, dbgr/common/buffer/backtrace.el,
- dbgr/common/shortkey.el, dbgr/debugger/gdb/init.el,
- test/test-regexp-bashdb.el, test/test-regexp-gdb.el,
- test/test-regexp-perldb.el: Supprse insert keys in sparse, read-only
- keymaps shortkey, and backtrace. Add backtrace tests for gdb. Other
- small cleanups.
-
-2011-04-14 rocky <address@hidden>
-
- * dbgr/debugger/gdb/init.el: Font-lock for gdb.
-
-2011-04-14 rocky <address@hidden>
-
- * dbgr/debugger/gdb/init.el: Add gdb debugger backtrace regexpl.
- More to come
-
-2011-04-14 rocky <address@hidden>
-
- * dbgr/common/backtrace-mode.el, dbgr/common/buffer/backtrace.el,
- dbgr/common/key.el, dbgr/debugger/perldb/init.el,
- dbgr/debugger/remake/init.el, dbgr/debugger/trepan/init.el: Set
- selected frame indicator re in init.el Add font-lock for Perl
- frames.
-
-2011-04-14 rocky <address@hidden>
-
- * dbgr/common/buffer/backtrace.el, dbgr/common/fringe.el,
- dbgr/debugger/perldb/perldb.el, dbgr/debugger/trepan/trepan.el: More
- perl backtrace hacking. trepan.el: DRY like the others.
-
-2011-04-14 rocky <address@hidden>
-
- * dbgr/debugger/perldb/init.el, dbgr/debugger/pydbgr/init.el: Some
- more small perldb customizations.
-
-2011-04-14 rocky <address@hidden>
-
- * dbgr/common/buffer/backtrace.el, dbgr/common/cmds.el,
- dbgr/debugger/kshdb/kshdb.el, dbgr/debugger/perldb/init.el,
- dbgr/debugger/perldb/track-mode.el, dbgr/debugger/zshdb/zshdb.el,
- test/test-regexp-perldb.el, test/test-regexp-trepan.el: Start
- dealing with debuggers that don't give a frame number like Perl.
- DRY debugger invocations for kshdb, and zshdb. cmds.el: add a
- backtrace command.
-
-2011-04-13 rocky <address@hidden>
-
- * dbgr/common/backtrace-mode.el, dbgr/common/buffer/backtrace.el,
- dbgr/common/core.el, dbgr/common/send.el, dbgr/common/shortkey.el,
- dbgr/debugger/bashdb/bashdb.el, dbgr/debugger/gdb/gdb.el,
- dbgr/debugger/gdb/track-mode.el, dbgr/debugger/pydbgr/pydbgr.el,
- dbgr/debugger/rdebug/rdebug.el, dbgr/debugger/remake/remake.el,
- dbgr/debugger/trepan/trepan.el, dbgr/debugger/trepanx/trepanx.el:
- DRY initial debugger-start code somewhat. Add keys for buffer
switching in backtrace-buffer. Try to guard against sending to process via
comint when it is dead
- and set comint-last-output-start to avoid a
- ansi-color-apply-on-region doesn't bomb.
-
-2011-04-13 rocky <address@hidden>
-
- * dbgr/common/buffer/command.el, dbgr/common/buffer/source.el: Use
- macro to create defstruct setters. Add describe routine for
- defstruct.
-
-2011-04-13 rocky <address@hidden>
-
- * dbgr/common/buffer/backtrace.el, dbgr/common/buffer/source.el,
- dbgr/common/helper.el, test/test-common-helper.el: Add macro to
- create defstruct setter functions. source.el changed. command.el
- needs to be changed.
-
-2011-04-13 rocky <address@hidden>
-
- * dbgr/common/buffer/source.el, dbgr/common/shortkey.el: Simplify
- dbgr-srcbuf-info field setters
-
-2011-04-12 rocky <address@hidden>
-
- * dbgr/common/init/pydb.el, dbgr/common/track.el,
- dbgr/debugger/kshdb/core.el, dbgr/debugger/kshdb/track-mode.el,
- dbgr/debugger/perldb/track-mode.el, dbgr/debugger/pydbgr/init.el,
- dbgr/debugger/rdebug/init.el, dbgr/debugger/remake/init.el,
- dbgr/debugger/trepan/init.el, dbgr/debugger/trepanx/init.el,
- dbgr/debugger/zshdb/core.el, dbgr/lang/python.el,
- dbgr/lang/ruby.el, test/test-regexp-pydbgr.el,
- test/test-regexp-rdebug.el, test/test-regexp-trepan.el,
- test/test-regexp-trepanx.el: regexp key "backtrace" ->
- "lang-backtrace" to distinguis better from "debugger-backtrace".
- Remove more redundant code.
-
-2011-04-12 rocky <address@hidden>
-
- * dbgr/common/buffer/backtrace.el, dbgr/common/track.el,
- dbgr/debugger/bashdb/init.el, dbgr/debugger/gdb/track-mode.el,
- dbgr/debugger/kshdb/core.el, dbgr/debugger/kshdb/init.el,
- dbgr/debugger/kshdb/track-mode.el, dbgr/debugger/perldb/init.el,
- dbgr/debugger/rdebug/init.el, dbgr/debugger/remake/core.el,
- dbgr/debugger/remake/init.el, dbgr/debugger/remake/track-mode.el,
- dbgr/debugger/trepan/init.el, dbgr/debugger/trepanx/init.el,
- dbgr/debugger/zshdb/init.el, dbgr/lang/posix-shell.el,
- dbgr/lang/python.el, dbgr/lang/ruby.el, test/test-regexp-bashdb.el,
- test/test-regexp-perldb.el, test/test-regexp-remake.el,
- test/test-regexp-trepan.el, test/test-regexp-zshdb.el: regexp key
- "frame" -> "debugger-backtrace". Remove some redundant
- goto-backtrace routines.
-
-2011-04-12 rocky <address@hidden>
-
- * dbgr/common/backtrace-mode.el, dbgr/common/backtrack-mode.el,
- dbgr/debugger/pydbgr/core.el, dbgr/debugger/remake/core.el,
- dbgr/debugger/remake/init.el, dbgr/debugger/remake/track-mode.el:
- Add remake-goto-backtrace-line. Note weird distinction between
- debugger backtrace and programming lanugage backtrace. Need to do
- more here.
-
-2011-04-12 rocky <address@hidden>
-
- * dbgr/common/cmds.el, dbgr/common/fringe.el,
- dbgr/common/window.el, dbgr/debugger/remake/init.el: Correct
- font-lock regexps for remake backtrace.
-
-2011-04-12 rocky <address@hidden>
-
- * dbgr/debugger/remake/init.el, test/test-bt-pydbgr.el,
- test/test-bt-rdebug.el, test/test-bt-trepan.el,
- test/test-bt-trepanx.el, test/test-bt-zshdb.el,
- test/test-regexp-remake.el: Add bracktrace buffer regexps for remake
- debugger. font-lock regexps are not right though.
-
-2011-04-11 rocky <address@hidden>
-
- * dbgr/common/backtrace-mode.el, dbgr/common/buffer/backtrace.el,
- dbgr/common/buffer/command.el, dbgr/common/buffer/helper.el,
- dbgr/common/cmds.el, dbgr/common/key.el, dbgr/common/menu.el,
- dbgr/common/send.el, dbgr/common/shortkey.el,
- dbgr/common/track-mode.el, dbgr/common/track.el,
- dbgr/common/window.el, test/test-track.el: Backtrace buffer now has
- debugger menu and is listed in the debugger mentu. Add command to
- show the backtrace frame without distribuing the source buffer.
- Remove verbosity in command buffer field setting routines.
-
-2011-04-11 rocky <address@hidden>
-
- * : commit e9bc266318979119910046b5d9a87829800863b1 Author: rocky
- <address@hidden> Date: Mon Apr 11 21:34:06 2011 -0400
-
-2011-04-10 rocky <address@hidden>
-
- * dbgr/common/track.el: Internal function is *not* a command
-
-2011-04-10 rocky <address@hidden>
-
- * dbgr/common/fringe.el: Only update arrows if they are set.
-
-2011-04-09 rocky <address@hidden>
-
- * test/test-remake-core.el, test/test-remake.el: Add a test for the
- part that was failin gin the last commit. A bit hoaky, but better
- than nothing I guess.
-
-2011-04-09 rocky <address@hidden>
-
- * dbgr/debugger/remake/remake.el: Set a default filename for the
- process show buffer name
-
-2011-04-07 rocky <address@hidden>
-
- * dbgr/common/menu.el, dbgr/common/shortkey.el: Add short-key to go
- to source window. Reorder menu items.
-
-2011-04-07 rocky <address@hidden>
-
- * : commit fba2fe7aeac871ea8bd7d2f4a0296903c44c5505 Author: rocky
- <address@hidden> Date: Thu Apr 7 13:35:07 2011 -0400
-
-2011-04-07 rocky <address@hidden>
-
- * dbgr/common/cmds.el, dbgr/common/fringe.el, dbgr/common/menu.el,
- dbgr/common/send.el, dbgr/common/shortkey.el,
- dbgr/debugger/perldb/track-mode.el, dbgr/debugger/remake/init.el,
- dbgr/lang/posix-shell.el, test/test-send.el: Add
- dbg-cmd-eval-region. Add %s to dbgr-expand-format. Add goto arrows
- 1, 2, and 3. More items in Debugger menu.
-
-2011-04-07 rocky <address@hidden>
-
- * README.textile: Update list of suppported debuggers and add more
- reference links.
-
-2011-04-07 rocky <address@hidden>
-
- * dbgr/common/backtrack-mode.el, dbgr/common/cmds.el,
- dbgr/common/fringe.el, dbgr/common/menu.el, dbgr/common/send.el,
- dbgr/common/track-mode.el, dbgr/debugger/bashdb/cmds.el,
- dbgr/debugger/bashdb/init.el, dbgr/debugger/bashdb/track-mode.el,
- dbgr/debugger/gdb/track-mode.el, dbgr/debugger/kshdb/cmds.el,
- dbgr/debugger/kshdb/track-mode.el, dbgr/debugger/perldb/.gitignore,
- dbgr/debugger/perldb/cmds.el, dbgr/debugger/perldb/core.el,
- dbgr/debugger/perldb/init.el, dbgr/debugger/perldb/perldb.el,
- dbgr/debugger/perldb/track-mode.el, dbgr/debugger/pydbgr/cmds.el,
- dbgr/debugger/pydbgr/track-mode.el, dbgr/debugger/rdebug/cmds.el,
- dbgr/debugger/rdebug/track-mode.el, dbgr/debugger/remake/cmds.el,
- dbgr/debugger/remake/track-mode.el,
- dbgr/debugger/trepan/backtrack-mode.el,
- dbgr/debugger/trepan/cmds.el, dbgr/debugger/trepan/track-mode.el,
- dbgr/debugger/trepanx/cmds.el, dbgr/debugger/trepanx/track-mode.el,
- dbgr/debugger/zshdb/cmds.el, dbgr/debugger/zshdb/track-mode.el,
- dbgr/lang/posix-shell.el, test/test-perldb.el, test/test-track.el:
- Clean up command handling somewhat. We now should handle custom
- commands via the command has (e.g. for perldb) more correctly. More
- debugger menu items.
-
-2011-04-07 rocky <address@hidden>
-
- * dbgr/common/cmds.el, dbgr/common/menu.el,
- dbgr/debugger/perldb/cmds.el, dbgr/debugger/remake/cmds.el,
- dbgr/debugger/remake/init.el: Add custom remake "break" command. Add
- "up" and "down" in debugger menus.
-
-2011-04-06 rocky <address@hidden>
-
- * dbgr/common/fringe.el, dbgr/common/shortkey.el,
- dbgr/debugger/kshdb/cmds.el: Add positioning on fringe arrows 1,2,3:
- C-c-l or shortkey 'l'. Add custom remake "break" command.
-
-2011-04-05 rocky <address@hidden>
-
- * dbgr/common/cmds.el, dbgr/common/menu.el,
- dbgr/common/track-mode.el, dbgr/debugger/trepan/track-mode.el: Add
- "Debugger" menu in track-mode
-
-2011-04-05 rocky <address@hidden>
-
- * dbgr/common/cmds.el, dbgr/common/key.el, dbgr/common/shortkey.el,
- dbgr/debugger/gdb/init.el, dbgr/debugger/kshdb/init.el,
- dbgr/debugger/pydbgr/init.el, dbgr/debugger/rdebug/init.el,
- dbgr/debugger/trepan/init.el, dbgr/debugger/trepanx/init.el,
- test/test-regexp-trepan.el, test/test-regexp-trepanx.el: Breakpoint
- text for trepan and trepanx have changed. Other small changes.
-
-2011-04-05 rocky <address@hidden>
-
- * dbgr/common/cmds.el: Messed up on some parameters in
- 'dbgr-define-command'
-
-2011-04-05 rocky <address@hidden>
-
- * dbgr/common/track-mode.el, dbgr/debugger/bashdb/track-mode.el,
- dbgr/debugger/gdb/track-mode.el, dbgr/debugger/kshdb/track-mode.el,
- dbgr/debugger/perldb/track-mode.el,
- dbgr/debugger/pydbgr/track-mode.el,
- dbgr/debugger/rdebug/track-mode.el,
- dbgr/debugger/remake/track-mode.el,
- dbgr/debugger/trepan/track-mode.el,
- dbgr/debugger/trepanx/track-mode.el,
- dbgr/debugger/zshdb/track-mode.el: One more small step towards
- DRYing code.
-
-2011-04-05 rocky <address@hidden>
-
- * dbgr/debugger/bashdb/core.el, dbgr/debugger/bashdb/init.el,
- dbgr/debugger/bashdb/track-mode.el,
- dbgr/debugger/kshdb/track-mode.el,
- dbgr/debugger/zshdb/track-mode.el, dbgr/lang/posix-shell.el: Start
- to DRY POSIX shell code. Add a shell command.
-
-2011-04-05 rocky <address@hidden>
-
- * configure.ac, dbgr.el, dbgr/common/cmds.el,
- dbgr/common/init/perldb.el, dbgr/common/send.el,
- dbgr/common/track.el, dbgr/debugger/Makefile.am,
- dbgr/debugger/bashdb/cmds.el, dbgr/debugger/bashdb/track-mode.el,
- dbgr/debugger/gdb/init.el, dbgr/debugger/kshdb/cmds.el,
- dbgr/debugger/kshdb/track-mode.el, dbgr/debugger/perldb/.gitignore,
- dbgr/debugger/perldb/Makefile.am, dbgr/debugger/perldb/cmds.el,
- dbgr/debugger/perldb/core.el, dbgr/debugger/perldb/init.el,
- dbgr/debugger/perldb/perldb.el, dbgr/debugger/perldb/track-mode.el,
- dbgr/debugger/remake/core.el, dbgr/debugger/trepan/cmds.el,
- dbgr/debugger/trepanx/cmds.el, dbgr/debugger/zshdb/cmds.el,
- dbgr/debugger/zshdb/track-mode.el, test/test-regexp-perldb.el,
- test/test-send.el: More complete customization of command strings
- used for basic (gdb-like) command set. This is much needed in perldb
- which is very different. More complete dbgr-perldb mode. Add
- positioning at a backtrace line in POSIX shells and perldb.
-
-2011-04-04 rocky <address@hidden>
-
- * dbgr/common/buffer/command.el, dbgr/common/cmds.el,
- dbgr/common/regexp.el, dbgr/common/shortkey.el,
- dbgr/common/track.el, dbgr/debugger/bashdb/cmds.el,
- dbgr/debugger/kshdb/cmds.el, dbgr/debugger/remake/cmds.el,
- dbgr/debugger/trepan/cmds.el, dbgr/debugger/trepan/init.el,
- dbgr/debugger/zshdb/cmds.el, dbgr/debugger/zshdb/init.el: Provide a
- way to remap common commands like quit->quit!. This was a
- longstanding annoyance. Disabling shortkey in a source buffer doesn't
disable it in the
- command bugger. Use dbgr-cmdbuf-set-shortkey for that.
-
-2011-04-04 rocky <address@hidden>
-
- * : commit 6866620a6a4a30d744c27cd605590c2566635706 Author: rocky
- <address@hidden> Date: Mon Apr 4 12:34:28 2011 -0400
-
-2011-04-04 rocky <address@hidden>
-
- * dbgr/debugger/remake/core.el, test/Makefile.am,
- test/test-remake.el: Better GNU Makefile file selection priorities.
- Shorter Makefile patter suggestged by Yaroslav Halchenko.
-
-2011-04-04 rocky <address@hidden>
-
- * dbgr/common/init/perldb.el, dbgr/common/track.el,
- dbgr/debugger/remake/init.el, test/Makefile.am, test/helper.el,
- test/test-helper.el, test/test-regexp-gdb.el,
- test/test-regexp-perldb.el: Start perldb track mode. I don't think
- there's another one out there. Makefile.am: DRY check code - thanks
- to "remake" for helping me figure this out.
-
-2011-03-24 rocky <address@hidden>
-
- * dbgr/debugger/remake/core.el, dbgr/debugger/remake/remake.el,
- dbgr/debugger/trepan/core.el, dbgr/debugger/trepan/trepan.el,
- test/Makefile.am, test/test-remake.el: We can now run "dbgr-remake"
- to get a top-level remake shell.
-
-2011-03-22 rocky <address@hidden>
-
- * dbgr/debugger/remake/init.el: Correct remake location tracking.
-
-2011-03-22 rocky <address@hidden>
-
- * dbgr/debugger/remake/init.el: Added event icons
-
-2011-03-20 rocky <address@hidden>
-
- * dbgr/debugger/bashdb/core.el, dbgr/debugger/remake/core.el,
- dbgr/debugger/zshdb/core.el: Minor fixes from cut-n-paste
-
-2011-03-20 rocky <address@hidden>
-
- * dbgr.el: Load remake debugger.
-
-2011-03-19 rocky <address@hidden>
-
- * dbgr/debugger/remake/init.el: Improve breakpoint tracking for
- remake 3.82.
-
-2011-03-16 rocky <address@hidden>
-
- * install-from-git.sh: Add program to install from git - full list
- this time
-
-2011-03-16 rocky <address@hidden>
-
- * dbgr/debugger/kshdb/.gitignore, install-from-git.sh: Add program
- to install from git
-
-2011-03-14 rocky <address@hidden>
-
- * configure.ac, dbgr.el, dbgr/common/init/kshdb.el,
- dbgr/debugger/Makefile.am, dbgr/debugger/kshdb/.gitignore,
- dbgr/debugger/kshdb/Makefile.am, dbgr/debugger/kshdb/cmds.el,
- dbgr/debugger/kshdb/core.el, dbgr/debugger/kshdb/init.el,
- dbgr/debugger/kshdb/kshdb.el, dbgr/debugger/kshdb/track-mode.el,
- dbgr/debugger/remake/.gitignore, dbgr/debugger/zshdb/track-mode.el:
- Add kshdb to list of full-support debuggers. Moved and expanded from
- common/init/kshdb.el
-
-2011-02-23 rocky <address@hidden>
-
- * configure.ac, dbgr/common/init/remake.el,
- dbgr/debugger/Makefile.am, dbgr/debugger/remake/Makefile.am,
- dbgr/debugger/remake/cmds.el, dbgr/debugger/remake/core.el,
- dbgr/debugger/remake/init.el, dbgr/debugger/remake/remake.el,
- dbgr/debugger/remake/track-mode.el, dbgr/debugger/zshdb/zshdb.el:
- Start to make GNU Makefile debugger, remake a full-fledged entry.
- Previously we just had a couple of regexps.
-
-2011-02-21 rocky <address@hidden>
-
- * dbgr/common/backtrack-mode.el,
- dbgr/debugger/trepan/backtrack-mode.el,
- test/test-loc-regexp-trepan.el: backtrack-mode: like track-mode but
- there doesn't have to be an associated process. This could be used
- for log files or processes that have terminated.
-
-2011-02-10 rocky <address@hidden>
-
- * dbgr/debugger/trepan/track-mode.el,
- dbgr/debugger/trepanx/track-mode.el: Keymaps for more of the kinds
- of backtraces
-
-2011-02-10 rocky <address@hidden>
-
- * dbgr/debugger/trepanx/init.el, dbgr/lang/ruby.el,
- test/test-loc-regexp-trepanx.el: Add rubinius X-agent backtrace
- regexp.
-
-2011-02-09 rocky <address@hidden>
-
- * dbgr/debugger/pydbgr/init.el, dbgr/debugger/pydbgr/track-mode.el,
- dbgr/lang/python.el: Start a language file for Python (even though
- right now we only have one debugger pydbgr).
-
-2011-01-27 rocky <address@hidden>
-
- * dbgr/common/track.el, dbgr/debugger/gdb/init.el:
- dbgr-track-set-debugger: handle setting dbg-gdb-track-mode as a
- special case
-
-2010-12-26 rocky <address@hidden>
-
- * dbgr/common/buffer/source.el, dbgr/debugger/rdebug/init.el,
- dbgr/lang/ruby.el, test/Makefile.am, test/test-regexp-pydbgr.el,
- test/test-regexp-rdebug.el, test/test-regexp-ruby.el,
- test/test-regexp-trepan.el: ruby.el: add pattern for rails
- traceback. source.el: don't assume we have a local keymap test-*
- DRY a little.
-
-2010-12-14 rocky <address@hidden>
-
- * dbgr/debugger/trepanx/trepanx.el: Command name typo: should be
- dbgr-trepanx rather than trepanx.
-
-2010-12-05 rocky <address@hidden>
-
- * dbgr/debugger/trepan/init.el, test/Makefile.am,
- test/test-loc-regexp-trepan.el, test/test-regexp-zshdb.el: location
- regexp for trepan changed. Also add zshdb regexp test.
-
-2010-12-05 rocky <address@hidden>
-
- * dbgr/debugger/trepanx/init.el, test/Makefile.am,
- test/test-loc-regexp-trepanx.el, test/test-regexp-trepanx.el: Update
- trepanx location regexp which recently changed.
-
-2010-11-30 rocky <address@hidden>
-
- * dbgr/debugger/bashdb/init.el, dbgr/debugger/zshdb/init.el,
- test/Makefile.am: Add zshdb "backtrace"/frame regexp. So
- dbgr-backtrace-init now works for zshdb.
-
-2010-11-29 rocky <address@hidden>
-
- * dbgr/common/buffer/backtrace.el, dbgr/debugger/bashdb/init.el,
- dbgr/debugger/rdebug/init.el, dbgr/lang/posix-shell.el,
- dbgr/lang/ruby.el, test/Makefile.am, test/test-regexp-bashdb.el,
- test/test-regexp-trepan.el: Add backtrace parsing for bashdb. Make
- backtrace parsing more robust. Add keys for display refresh and to
- move to selected frame.
-
-2010-11-28 rocky <address@hidden>
-
- * ChangeLog, dbgr/common/buffer/backtrace.el,
- dbgr/debugger/trepan/init.el, dbgr/debugger/trepanx/init.el,
- dbgr/lang/ruby.el: Create ring of frame positions. Next/prev motion
- uses this. Also we have places to store additional properties.
-
-2010-11-27 rocky <address@hidden>
-
- * dbgr/debugger/trepan/init.el, dbgr/lang/ruby.el,
- test/test-regexp-trepan.el: Add trepan frame regexp tests.
-
-2010-11-27 rocky <address@hidden>
-
- * dbgr/debugger/rdebug/init.el, dbgr/debugger/trepan/init.el,
- dbgr/debugger/trepanx/init.el, dbgr/lang/ruby.el: Go over rdebug for
- backtrace buffer regexp and improve other regexps.
-
-2010-11-27 rocky <address@hidden>
-
- * dbgr/common/buffer/helper.el, dbgr/debugger/trepan/init.el,
- dbgr/debugger/trepanx/init.el, dbgr/lang/ruby.el: Work on trepanx
- regexps for backtrace. (Might have broken trepan regexps)
-
-2010-11-26 rocky <address@hidden>
-
- * dbgr.el, dbgr/common/buffer/backtrace.el,
- dbgr/common/buffer/helper.el, dbgr/debugger/trepan/init.el: Parses
- backtrace lines (more) correctly now. Add text property for frame
- number and. goto-frame now works.
-
-2010-11-26 rocky <address@hidden>
-
- * dbgr.el, dbgr/common/bp.el, dbgr/common/buffer/backtrace.el,
- dbgr/common/file.el, dbgr/common/init/kshdb.el, dbgr/common/loc.el,
- dbgr/common/regexp.el, dbgr/common/track.el,
- dbgr/debugger/bashdb/init.el, dbgr/debugger/gdb/init.el,
- dbgr/debugger/pydbgr/init.el, dbgr/debugger/rdebug/init.el,
- dbgr/debugger/trepan/init.el, dbgr/debugger/trepanx/init.el,
- dbgr/debugger/zshdb/init.el, test/test-track.el: Start to add text
- properties to backtrace buffer. Much more is needed. Start adding
- string examples of things matching trepan regexps.
-
-2010-11-26 rocky <address@hidden>
-
- * configure.ac, dbgr.el, dbgr/common/init/bashdb.el,
- dbgr/debugger/Makefile.am, dbgr/debugger/bashdb/.gitignore,
- dbgr/debugger/bashdb/Makefile.am, dbgr/debugger/bashdb/bashdb.el,
- dbgr/debugger/bashdb/cmds.el, dbgr/debugger/bashdb/core.el,
- dbgr/debugger/bashdb/init.el, dbgr/debugger/bashdb/track-mode.el,
- dbgr/debugger/zshdb/core.el, dbgr/debugger/zshdb/init.el,
- test/test-dbgr.el: Add emacs debugger as a full-fledged front-end.
-
-2010-11-22 rocky <address@hidden>
-
- * test/test-regexp-trepanx.el: Work on trepanx regexp test
-
-2010-11-22 rocky <address@hidden>
-
- * dbgr/debugger/pydbgr/pydbgr.el, dbgr/debugger/zshdb/zshdb.el:
- Small Doc string fixes from cut-and-paste.
-
-2010-11-22 rocky <address@hidden>
-
- * dbgr/common/track.el, dbgr/debugger/pydbgr/track-mode.el,
- dbgr/debugger/trepan/track-mode.el,
- dbgr/debugger/zshdb/track-mode.el: track.el: call up
- debugger-specific track mode track-mode.el: experiment with more
- robust mode hook.
-
-2010-11-22 rocky <address@hidden>
-
- * dbgr/common/track-mode.el, dbgr/debugger/trepanx/init.el,
- dbgr/lang/ruby.el: Parent map of track-mode come from shell, not
- comint. Correct rubinius backtrace regexp.
-
-2010-11-21 rocky <address@hidden>
-
- * dbgr/common/buffer/command.el, dbgr/debugger/pydbgr/track-mode.el:
- Fix some small bugs
-
-2010-11-21 rocky <address@hidden>
-
- * dbgr/common/track-mode.el, dbgr/debugger/gdb/track-mode.el,
- dbgr/debugger/pydbgr/track-mode.el,
- dbgr/debugger/rdebug/track-mode.el,
- dbgr/debugger/trepan/track-mode.el,
- dbgr/debugger/trepanx/track-mode.el,
- dbgr/debugger/zshdb/track-mode.el: keybindings now work properly for
- specific debugger track modes. Could be better, but this is a start
- and a big improvement.
-
-2010-11-21 rocky <address@hidden>
-
- * dbgr/common/fringe.el, dbgr/common/track-mode.el,
- dbgr/debugger/gdb/track-mode.el,
- dbgr/debugger/pydbgr/track-mode.el,
- dbgr/debugger/rdebug/track-mode.el,
- dbgr/debugger/trepan/track-mode.el,
- dbgr/debugger/trepanx/track-mode.el, test/test-track-mode.el: Keymap
- definition (which was probably improper) is messing up
- define-minor-mode so leave that out for now. rename keymap variable
- to a value which I hope is picked up automagically.
-
-2010-11-21 rocky <address@hidden>
-
- * dbgr/common/buffer/helper.el: This time, for sure?
-
-2010-11-21 rocky <address@hidden>
-
- * dbgr/common/buffer/helper.el, dbgr/common/track.el: Fix an
- annoying bug where we weren't tracking changes in the source buffer.
-
-2010-11-04 rocky <address@hidden>
-
- * dbgr/debugger/rdebug/track-mode.el,
- dbgr/debugger/trepan/track-mode.el,
- dbgr/debugger/trepanx/track-mode.el: This time, for sure!
-
-2010-11-04 rocky <address@hidden>
-
- * dbgr/debugger/rdebug/track-mode.el: Now redundant (and wrong)
- line.
-
-2010-11-04 rocky <address@hidden>
-
- * dbgr/debugger/rdebug/track-mode.el,
- dbgr/debugger/trepanx/track-mode.el: One more place to fold in
- ruby-specific traceback key bindings.
-
-2010-11-04 rocky <address@hidden>
-
- * dbgr/common/track.el, dbgr/debugger/rdebug/core.el,
- dbgr/debugger/trepan/core.el, dbgr/debugger/trepan/track-mode.el,
- dbgr/debugger/trepanx/core.el, dbgr/debugger/trepanx/track-mode.el,
- dbgr/lang/ruby.el: Dry some code bound to ruby keys. Should do the
- same for others...
-
-2010-11-03 rocky <address@hidden>
-
- * dbgr/common/buffer/command.el, dbgr/common/init/Makefile.am,
- dbgr/common/send.el, dbgr/common/track.el,
- dbgr/debugger/.gitignore, dbgr/debugger/Makefile.am,
- dbgr/debugger/pydbgr/pydbgr.el, dbgr/debugger/rdebug/rdebug.el,
- dbgr/debugger/trepan/trepan.el, dbgr/debugger/trepanx/trepanx.el,
- dbgr/debugger/zshdb/zshdb.el, test/Makefile.am, test/test-track.el:
- Remove output for internal-status commands like dbgr-backtrace-init.
- Front-end command names now universally start dbgr-, e.g.
- dbgr-trepan with most having aliases to shorter name, e.g. trepan.
- The exception is "gdb" which doesn't have an alias, since "gdb" is a
- well-established and Emacs command. Go over Makefile's yet again.
-
-2010-11-03 rocky <address@hidden>
-
- * dbgr/common/init/gdb.el, dbgr/debugger/gdb/init.el,
- dbgr/debugger/gdb/track-mode.el, test/test-regexp-gdb.el:
- common/init/gdb.el -> debugger/gdb/init.el gdb-pat-hash ->
- dbgr-gdb-pat-hash
-
-2010-11-02 rocky <address@hidden>
-
- * configure.ac, dbgr.el, dbgr/Makefile.am, dbgr/common.mk,
- dbgr/common/Makefile.am, dbgr/common/buffer/Makefile.am,
- dbgr/debugger/.gitignore, dbgr/debugger/Makefile.am,
- dbgr/debugger/common.mk, dbgr/debugger/gdb/.gitignore,
- dbgr/debugger/gdb/Makefile.am, dbgr/debugger/gdb/core.el,
- dbgr/debugger/gdb/gdb.el, dbgr/debugger/gdb/track-mode.el,
- dbgr/debugger/pydbgr/.gitignore, dbgr/debugger/pydbgr/Makefile.am,
- dbgr/debugger/pydbgr/cmds.el, dbgr/debugger/pydbgr/core.el,
- dbgr/debugger/pydbgr/init.el, dbgr/debugger/pydbgr/pydbgr.el,
- dbgr/debugger/pydbgr/track-mode.el,
- dbgr/debugger/rdebug/.gitignore, dbgr/debugger/rdebug/Makefile.am,
- dbgr/debugger/rdebug/cmds.el, dbgr/debugger/rdebug/core.el,
- dbgr/debugger/rdebug/init.el, dbgr/debugger/rdebug/rdebug.el,
- dbgr/debugger/rdebug/track-mode.el,
- dbgr/debugger/trepan/.gitignore, dbgr/debugger/trepan/Makefile.am,
- dbgr/debugger/trepan/cmds.el, dbgr/debugger/trepan/core.el,
- dbgr/debugger/trepan/init.el, dbgr/debugger/trepan/track-mode.el,
- dbgr/debugger/trepan/trepan.el, dbgr/debugger/trepanx/.gitignore,
- dbgr/debugger/trepanx/Makefile.am, dbgr/debugger/trepanx/cmds.el,
- dbgr/debugger/trepanx/core.el, dbgr/debugger/trepanx/init.el,
- dbgr/debugger/trepanx/track-mode.el,
- dbgr/debugger/trepanx/trepanx.el, dbgr/debugger/zshdb/.gitignore,
- dbgr/debugger/zshdb/Makefile.am, dbgr/debugger/zshdb/cmds.el,
- dbgr/debugger/zshdb/core.el, dbgr/debugger/zshdb/init.el,
- dbgr/debugger/zshdb/track-mode.el, dbgr/debugger/zshdb/zshdb.el,
- dbgr/gdb/.gitignore, dbgr/gdb/Makefile.am, dbgr/gdb/core.el,
- dbgr/gdb/gdb.el, dbgr/gdb/track-mode.el, dbgr/lang/Makefile.am,
- dbgr/pydbgr/.gitignore, dbgr/pydbgr/Makefile.am,
- dbgr/pydbgr/cmds.el, dbgr/pydbgr/core.el, dbgr/pydbgr/init.el,
- dbgr/pydbgr/pydbgr.el, dbgr/pydbgr/track-mode.el,
- dbgr/rdebug/.gitignore, dbgr/rdebug/Makefile.am,
- dbgr/rdebug/cmds.el, dbgr/rdebug/core.el, dbgr/rdebug/init.el,
- dbgr/rdebug/rdebug.el, dbgr/rdebug/track-mode.el,
- dbgr/trepan/.gitignore, dbgr/trepan/Makefile.am,
- dbgr/trepan/cmds.el, dbgr/trepan/core.el, dbgr/trepan/init.el,
- dbgr/trepan/track-mode.el, dbgr/trepan/trepan.el,
- dbgr/trepanx/.gitignore, dbgr/trepanx/Makefile.am,
- dbgr/trepanx/cmds.el, dbgr/trepanx/core.el, dbgr/trepanx/init.el,
- dbgr/trepanx/track-mode.el, dbgr/trepanx/trepanx.el,
- dbgr/zshdb/.gitignore, dbgr/zshdb/Makefile.am, dbgr/zshdb/cmds.el,
- dbgr/zshdb/core.el, dbgr/zshdb/init.el, dbgr/zshdb/track-mode.el,
- dbgr/zshdb/zshdb.el, test/test-bt-pydbgr.el,
- test/test-bt-rdebug.el, test/test-bt-trepan.el,
- test/test-bt-trepanx.el, test/test-bt-zshdb.el,
- test/test-buf-cmd.el, test/test-core.el, test/test-pydbgr.el,
- test/test-rdebug.el, test/test-regexp-pydbgr.el,
- test/test-regexp-rdebug.el, test/test-regexp-trepan.el,
- test/test-regexp-trepanx.el, test/test-regexp.el,
- test/test-send.el, test/test-srcbuf.el, test/test-track-mode.el,
- test/test-track.el: move debugger-specific code down to a debugger
- directory.
-
-2010-11-02 rocky <address@hidden>
-
- * dbgr/Makefile.am, dbgr/common.mk, dbgr/gdb/Makefile.am,
- dbgr/lang/Makefile.am, dbgr/pydbgr/Makefile.am,
- dbgr/rdebug/Makefile.am, dbgr/trepan/Makefile.am,
- dbgr/trepanx/Makefile.am, dbgr/zshdb/Makefile.am: DRY Makefile.am
- code.
-
-2010-11-02 rocky <address@hidden>
-
- * configure.ac, dbgr.el, dbgr/Makefile.am, dbgr/common/Makefile.am,
- dbgr/common/buffer/Makefile.am, dbgr/common/core.el,
- dbgr/common/init/rbdbgr.el, dbgr/gdb/Makefile.am,
- dbgr/lang/Makefile.am, dbgr/lang/ruby.el, dbgr/rbdbgr/.gitignore,
- dbgr/rbdbgr/Makefile.am, dbgr/rbdbgr/cmds.el, dbgr/rbdbgr/core.el,
- dbgr/rbdbgr/rbdbgr.el, dbgr/rbdbgr/track-mode.el,
- dbgr/rdebug/init.el, dbgr/trepan/init.el, test/Makefile.am,
- test/test-buf-cmd.el, test/test-dbgr.el, test/test-regexp-gdb.el,
- test/test-regexp-rbdbgr.el, test/test-regexp.el, test/test-send.el,
- test/test-srcbuf.el: Remove rbdbgr. Nevering-ending struggle to DRY
- code more.
-
-2010-11-02 rocky <address@hidden>
-
- * configure.ac, dbgr/Makefile.am, dbgr/common/init/bashdb.el,
- dbgr/common/init/gdb.el, dbgr/common/init/kshdb.el,
- dbgr/common/init/pydb.el, dbgr/common/init/rbdbgr.el,
- dbgr/common/init/remake.el, dbgr/gdb/track-mode.el,
- dbgr/lang/.gitignore, dbgr/lang/Makefile.am, dbgr/lang/ruby.el,
- dbgr/pydbgr/core.el, dbgr/pydbgr/init.el,
- dbgr/pydbgr/track-mode.el, dbgr/rbdbgr/core.el,
- dbgr/rdebug/core.el, dbgr/rdebug/init.el,
- dbgr/rdebug/track-mode.el, dbgr/trepan/core.el,
- dbgr/trepan/init.el, dbgr/trepan/track-mode.el,
- dbgr/trepanx/core.el, dbgr/trepanx/init.el,
- dbgr/trepanx/track-mode.el, dbgr/zshdb/core.el, dbgr/zshdb/init.el,
- dbgr/zshdb/track-mode.el, test/test-regexp-rdebug.el:
- traceback->backtrace Start to DRY common language regular
- expressions.
-
-2010-11-02 rocky <address@hidden>
-
- * dbgr/common/init/trepanx.el, dbgr/trepanx/cmds.el,
- dbgr/trepanx/core.el, dbgr/trepanx/init.el,
- dbgr/trepanx/track-mode.el, dbgr/trepanx/trepanx.el,
- test/Makefile.am, test/test-bt-trepanx.el,
- test/test-regexp-trepanx.el: common/init/trepanx.el ->
- trepanx/init.el Add font-lock-default test.
-
-2010-11-01 rocky <address@hidden>
-
- * dbgr/zshdb/init.el, test/Makefile.am, test/test-bt-zshdb.el: Start
- font lock for zshdb.
-
-2010-11-01 rocky <address@hidden>
-
- * dbgr/pydbgr/init.el, dbgr/rdebug/init.el, dbgr/trepan/init.el,
- test/Makefile.am, test/test-bt-pydbgr.el: Work on pydbgr
- font-lock-defaults. Comments regexps better.
-
-2010-11-01 rocky <address@hidden>
-
- * dbgr/common/init.el, dbgr/pydbgr/init.el, dbgr/rdebug/init.el,
- dbgr/trepan/init.el, test/test-bt-rdebug.el, test/test-bt-trepan.el:
- Better backtrace font-lock defaults. Start working on pydbgr
- backtrace font-lock.
-
-2010-11-01 rocky <address@hidden>
-
- * dbgr/trepan/init.el, test/Makefile.am, test/test-bt-trepan.el:
- trepan backtrace font-lock-default is more correct.
-
-2010-11-01 rocky <address@hidden>
-
- * dbgr/trepan/init.el, test/Makefile.am, test/test-bt-rdebug.el,
- test/test-bt-trepan.el, test/test-buf-bt.el: More regourous rdebug
- backtrace font-lock-default tests. Start work on trepan backtrace
- font-lock-default.
-
-2010-11-01 rocky <address@hidden>
-
- * dbgr/common/buffer/backtrace.el, test/test-buf-bt.el: Add 1st
- fontify test.
-
-2010-10-31 rocky <address@hidden>
-
- * dbgr/common/buffer/backtrace.el, dbgr/common/buffer/command.el,
- dbgr/common/init.el, dbgr/rdebug/init.el, dbgr/trepan/init.el: Add
- font-lock faces to backtrace buffer. Attempt to do for command, but
- more work is needed.
-
-2010-10-31 rocky <address@hidden>
-
- * dbgr/common/buffer/backtrace.el, dbgr/common/init/trepan.el,
- dbgr/trepan/cmds.el, dbgr/trepan/core.el, dbgr/trepan/init.el,
- dbgr/trepan/track-mode.el, dbgr/trepan/trepan.el,
- test/test-regexp-trepan.el, test/test-track.el:
- common/init/trepan.el -> trepan/init.el backtrace.el: remove compile
- warnings by commenting out future code
-
-2010-10-31 rocky <address@hidden>
-
- * dbgr/common/buffer/backtrace.el, test/Makefile.am,
- test/test-buf-bt.el, test/test-buf-cmd.el, test/test-cmdbuf.el: Work
- on backtrace buffer and mode. More to come...
-
-2010-10-31 rocky <address@hidden>
-
- * dbgr/common/init/rdebug.el, dbgr/rdebug/cmds.el,
- dbgr/rdebug/core.el, dbgr/rdebug/init.el, dbgr/rdebug/rdebug.el,
- dbgr/rdebug/track-mode.el, test/test-regexp-rdebug.el:
- common/init/rdebug.el -> rdebug/init.el
-
-2010-10-31 rocky <address@hidden>
-
- * dbgr/common/buffer/backtrace.el, dbgr/common/init/pydbgr.el,
- dbgr/pydbgr/cmds.el, dbgr/pydbgr/core.el, dbgr/pydbgr/init.el,
- dbgr/pydbgr/pydbgr.el, dbgr/pydbgr/track-mode.el,
- dbgr/zshdb/core.el, dbgr/zshdb/init.el, dbgr/zshdb/track-mode.el,
- test/test-regexp-pydbgr.el: Move init/pydbgr.el to pydbgr/init.el.
- zshdb/*.el: Correct some mistakes in moving from before.
- buffer/backtrace.el: Make this loadable without error.
-
-2010-10-31 rocky <address@hidden>
-
- * dbgr/common/init/zshdb.el, dbgr/zshdb/cmds.el,
- dbgr/zshdb/core.el, dbgr/zshdb/init.el, dbgr/zshdb/track-mode.el,
- dbgr/zshdb/zshdb.el: Start to move init/*.el into respective
- debugger-specific directories.
-
-2010-10-31 rocky <address@hidden>
-
- * configure.ac, dbgr/common/Makefile.am, dbgr/common/bt-buf.el,
- dbgr/common/buffer.el, dbgr/common/buffer/.gitignore,
- dbgr/common/buffer/Makefile.am, dbgr/common/buffer/backtrace.el,
- dbgr/common/buffer/command.el, dbgr/common/buffer/helper.el,
- dbgr/common/buffer/source.el, dbgr/common/cmdbuf.el,
- dbgr/common/cmds.el, dbgr/common/core.el, dbgr/common/reset.el,
- dbgr/common/send.el, dbgr/common/shortkey.el,
- dbgr/common/srcbuf.el, dbgr/common/track-mode.el,
- dbgr/common/track.el, dbgr/common/window.el, test/test-cmdbuf.el,
- test/test-regexp.el, test/test-srcbuf.el: Move buffer-related files
- into a separate directory. Will help future growth.
-
-2010-10-31 rocky <address@hidden>
-
- * dbgr.el, dbgr/zshdb/Makefile.am, dbgr/zshdb/core.el: Administrivia
- around adding zshdb properly.
-
-2010-10-31 rocky <address@hidden>
-
- * configure.ac, dbgr/Makefile.am, dbgr/zshdb/.gitignore,
- dbgr/zshdb/Makefile.am, dbgr/zshdb/cmds.el, dbgr/zshdb/core.el,
- dbgr/zshdb/track-mode.el, dbgr/zshdb/zshdb.el: Start zshdb debugger
- support.
-
-2010-10-31 rocky <address@hidden>
-
- * dbgr.el, dbgr/common/bp.el, dbgr/common/bt-buf.el,
- dbgr/common/buffer.el, dbgr/common/cmdbuf.el, dbgr/common/cmds.el,
- dbgr/common/core.el, dbgr/common/custom.el, dbgr/common/file.el,
- dbgr/common/fringe.el, dbgr/common/helper.el, dbgr/common/init.el,
- dbgr/common/init/bashdb.el, dbgr/common/init/gdb.el,
- dbgr/common/init/kshdb.el, dbgr/common/init/pydb.el,
- dbgr/common/init/pydbgr.el, dbgr/common/init/rbdbgr.el,
- dbgr/common/init/rdebug.el, dbgr/common/init/remake.el,
- dbgr/common/init/trepan.el, dbgr/common/init/trepanx.el,
- dbgr/common/init/zshdb.el, dbgr/common/key.el, dbgr/common/lang.el,
- dbgr/common/loc.el, dbgr/common/lochist.el, dbgr/common/menu.el,
- dbgr/common/regexp.el, dbgr/common/reset.el, dbgr/common/send.el,
- dbgr/common/shortkey.el, dbgr/common/srcbuf.el,
- dbgr/common/track-mode.el, dbgr/common/window.el, dbgr/gdb/core.el,
- dbgr/gdb/gdb.el, dbgr/gdb/track-mode.el, dbgr/pydbgr/cmds.el,
- dbgr/pydbgr/core.el, dbgr/pydbgr/pydbgr.el,
- dbgr/pydbgr/track-mode.el, dbgr/rdebug/cmds.el,
- dbgr/rdebug/core.el, dbgr/rdebug/rdebug.el,
- dbgr/rdebug/track-mode.el, dbgr/trepan/cmds.el,
- dbgr/trepan/core.el, dbgr/trepan/track-mode.el,
- dbgr/trepan/trepan.el, dbgr/trepanx/cmds.el, dbgr/trepanx/core.el,
- dbgr/trepanx/track-mode.el, dbgr/trepanx/trepanx.el: Start to add
- copyright.
-
-2010-10-31 rocky <address@hidden>
-
- * dbgr/common/bt-buf.el, dbgr/common/track.el: Fix problem with
- divert-output sequencing problem which caused old output to be used.
-
-2010-10-30 rocky <address@hidden>
-
- * dbgr/common/bt-buf.el, dbgr/common/cmdbuf.el,
- dbgr/common/send.el, dbgr/common/tb-buf.el,
- dbgr/common/track-mode.el, dbgr/common/track.el,
- test/test-track-mode.el, test/test-track.el: More progress on
- diverting output.
-
-2010-10-30 rocky <address@hidden>
-
- * dbgr.el: Add dbgr-reload-features which is really what we probably
- want rather than dbgr-unload-features.
-
-2010-10-30 rocky <address@hidden>
-
- * dbgr/common/track-mode.el, test/test-track-mode.el: Fix
- dbgr-track-mode-vars macro.
-
-2010-10-30 rocky <address@hidden>
-
- * dbgr/common/send.el, dbgr/common/tb-buf.el, dbgr/common/track.el:
- Work on sending commands for status whose output needs to be
- diverted and sent to a special buffer, like "backtrace"
-
-2010-10-29 rocky <address@hidden>
-
- * dbgr/common/track-mode.el, dbgr/common/track.el,
- test/test-track.el: Start working on commands that divert output. We
- will use this for auxiliary status buffers for breakponts or
- backtrace, etc.
-
-2010-10-16 rocky <address@hidden>
-
- * dbgr/pydbgr/core.el: Small bug in recognizing if pydbgr or cli.py
- given
-
-2010-10-16 rocky <address@hidden>
-
- * dbgr/common/core.el, dbgr/common/lang.el, dbgr/gdb/core.el,
- dbgr/pydbgr/core.el, dbgr/rbdbgr/core.el, dbgr/rdebug/core.el,
- dbgr/trepan/core.el, dbgr/trepanx/core.el, test/Makefile.am,
- test/test-core.el, test/test-lang.el, test/test-pydbgr.el,
- test/test-rdebug.el: DRY via dbgr-suggest-lang-file. Fix up tests
- related to this region.
-
-2010-10-16 rocky <address@hidden>
-
- * dbgr/common/lang.el, dbgr/pydbgr/core.el, dbgr/rbdbgr/core.el,
- dbgr/rdebug/core.el, dbgr/trepan/core.el, dbgr/trepanx/core.el,
- test/test-core.el, test/test-pydbgr.el, test/test-rdebug.el: Better
- initial suggestion of language file to debug by searching visited
- buffers. DRY some of the code a little. Much much much more is DRYness
is
- needed. Start putting in Programming-language-specific code into
- common/lang.el
-
-2010-10-06 rocky <address@hidden>
-
- * dbgr/trepan/core.el: Tolerate .exe on ruby interpreter for
- Microsoft.
-
-2010-10-06 rocky <address@hidden>
-
- * dbgr/common/cmds.el, dbgr/common/core.el,
- dbgr/common/shortkey.el, dbgr/pydbgr/cmds.el, dbgr/rdebug/cmds.el,
- dbgr/trepan/cmds.el, dbgr/trepanx/cmds.el: Work on terminating
- gracefully. cmds.el: Add dbgr-terminate (reset debugger
- information) to dbgr-cmd-quit. core.el: Create dbgr-terminate to
- encapsulate what needs to be done on reset. shortkey.el: use 0 to
- turn off mode. debugger/cmds.el: call define-gdb-like-commands
- explicitly trepan/cmds.el: use quit! instead of quit.
-
-2010-10-05 rocky <address@hidden>
-
- * dbgr/common/core.el: Suppress and emacs warning.
-
-2010-10-05 rocky <address@hidden>
-
- * dbgr/pydbgr/core.el, dbgr/rdebug/.gitignore,
- dbgr/rdebug/elc-stamp: core.el: Allow python.exe as an interpreter
- name on Microsoft. Allow cli.py as alternative to pydbgr
rdebug/*:
- Adminstrivia
-
-2010-10-01 rocky <address@hidden>
-
- * dbgr/common/cmdbuf.el, dbgr/common/track.el: short-key-on-tracing?
- -> dbgr-short-key-on-tracing?
-
-2010-10-01 rocky <address@hidden>
-
- * dbgr/common/cmdbuf.el, dbgr/common/core.el: Do better with respect
- to cleaning up on process end: Remove fringe arrows, short-key-mode
- and breakpoints in source buffers.
-
-2010-09-30 rocky <address@hidden>
-
- * dbgr/common/shortkey.el, dbgr/common/srcbuf.el,
- dbgr/common/track.el, dbgr/trepan/track-mode.el: Add customizable
- variable "short-key-on-tracing?" which will set short-key mode for
- any source buffer that is traced into.
-
-2010-09-30 rocky <address@hidden>
-
- * dbgr/common/cmds.el, dbgr/common/key.el,
- dbgr/common/track-mode.el, dbgr/gdb/core.el, dbgr/gdb/gdb.el,
- dbgr/gdb/track-mode.el, dbgr/pydbgr/track-mode.el,
- dbgr/rbdbgr/cmds.el, dbgr/rdebug/track-mode.el,
- dbgr/trepan/track-mode.el, dbgr/trepanx/track-mode.el: Use expanded
- file name in 'break' command. See also previous commit message since
- it appears that many changes didn't get pushed from that.
-
-2010-09-29 rocky <address@hidden>
-
- * dbgr/pydbgr/cmds.el: DRY track mode code. Add M-kp-up and
- M-kp-down in standard keys.
-
-2010-09-29 rocky <address@hidden>
-
- * README.textile: rbdbgr -> trepanning
-
-2010-09-29 rocky <address@hidden>
-
- * dbgr/common/key.el, dbgr/gdb/track-mode.el, dbgr/pydbgr/core.el,
- dbgr/pydbgr/track-mode.el, dbgr/rdebug/track-mode.el,
- dbgr/trepan/track-mode.el, dbgr/trepanx/track-mode.el: Work on
- getting debugger-specific minor-mode keymaps working. Some of the
- prior workarounds were remove. Still really need to DRY code. Try
- C-c SPC for break.
-
-2010-09-29 rocky <address@hidden>
-
- * dbgr/common/srcbuf.el, dbgr/gdb/track-mode.el,
- dbgr/pydbgr/track-mode.el, dbgr/rbdbgr/track-mode.el,
- dbgr/rdebug/track-mode.el, dbgr/trepan/track-mode.el,
- dbgr/trepanx/track-mode.el: Debugger common keys are now set in
- source-code windows. Figured out how to use debugger keymaps in
- command window, and setting debugger-specific command buffer keys.
- However more work is needed here and we really need to DRY code.
-
-2010-09-29 rocky <address@hidden>
-
- * dbgr/common/init/pydbgr.el, dbgr/common/key.el,
- dbgr/pydbgr/core.el, dbgr/pydbgr/track-mode.el,
- test/test-rdebug.el, test/test-regexp-pydbgr.el: key.el: Add "b" for
- break in shortkey mode. test-rdebug.el: fix up faulty cut-n-paste:
- python -> ruby; pydbgr => rdebug pydbgr.el, test-regexp-pydbgr.el
- traceback -> backtrace
-
-2010-09-24 rocky <address@hidden>
-
- * dbgr.el, dbgr/trepan/.gitignore, dbgr/trepanx/rbdbgr.el,
- dbgr/trepanx/trepanx.el, test/test-regexp-trepan.el,
- test/test-regexp-trepanx.el: Growing pains related to adding
- trepan(x).
-
-2010-09-24 rocky <address@hidden>
-
- * configure.ac, dbgr/Makefile.am, dbgr/common/init/trepan.el,
- dbgr/common/init/trepanx.el, dbgr/trepan/.gitignore,
- dbgr/trepan/Makefile.am, dbgr/trepan/cmds.el, dbgr/trepan/core.el,
- dbgr/trepan/track-mode.el, dbgr/trepan/trepan.el,
- dbgr/trepanx/.gitignore, dbgr/trepanx/Makefile.am,
- dbgr/trepanx/cmds.el, dbgr/trepanx/core.el, dbgr/trepanx/rbdbgr.el,
- dbgr/trepanx/track-mode.el, test/Makefile.am: Add trepan and trepanx
- debuggers.
-
-2010-09-24 rocky <address@hidden>
-
- * dbgr/gdb/core.el, dbgr/pydbgr/core.el, dbgr/pydbgr/pydbgr.el,
- dbgr/rbdbgr/core.el, dbgr/rdebug/core.el: Wasn't picking up variable
- set by xxx-command-name. See comment in
- http://stackoverflow.com/questions/3764575/using-pydbgr-with-emacs
-
-2010-09-18 rocky <address@hidden>
-
- * test/test-regexp-pydbgr.el: Add <module> onto the end - just in
- case.
-
-2010-09-18 rocky <address@hidden>
-
- * test/test-regexp-pydbgr.el: Add test for MS prompt locations (with
- drive letter and backslash) and non-MS prompt location without drive
- and forward slash.
-
-2010-09-09 rocky <address@hidden>
-
- * dbgr/Makefile.am, dbgr/common/Makefile.am,
- dbgr/common/init/Makefile.am, dbgr/common/init/rbdbgr.el,
- test/test-regexp-rbdbgr.el: init/rbdbgr.el: lfp and dfp are *hex*
- addresses. Makefile.am: clean now removes compiled lisp files
- teste-regexp-rbdbgr.el: previously renamed key from traceback to
- backtrace -- Ooops
-
-2010-08-27 rocky <address@hidden>
-
- * dbgr/rdebug/track-mode.el: Found one more C-c! -> C-c!!
-
-2010-08-22 rocky <address@hidden>
-
- * dbgr/common/key.el: More keys for M-up. My PC keyboard has a
- messed-up up-arrow. So allow Kp-up as well.
-
-2010-08-20 R. Bernstein <address@hidden>
-
- * dbgr/common/init/rbdbgr.el, dbgr/rbdbgr/core.el,
- dbgr/rbdbgr/track-mode.el: traceback -> backtrace which is what I
- think it's called in Ruby (i.e. rb_backtrace) and use C-c!b which I
- think is more mnemonic than C-c!e.
-
-2010-08-20 R. Bernstein <address@hidden>
-
- * dbgr/rbdbgr/core.el: rbdbgr/core.el Match function name listed in
- init/rbdbgr.el
-
-2010-08-20 R. Bernstein <address@hidden>
-
- * dbgr/common/init/rbdbgr.el, dbgr/rbdbgr/core.el,
- dbgr/rbdbgr/track-mode.el, test/test-regexp-rbdbgr.el: Add command
- to position on control-frame traceback.
-
-2010-08-17 R. Bernstein <address@hidden>
-
- * INSTALL, dbgr/common/key.el: Customize more for Emacs.
-
-2010-08-17 rocky <address@hidden>
-
- * configure.ac: Check for required prerequisite packages.
-
-2010-08-17 rocky <address@hidden>
-
- * configure.ac: Set default value for EMACS to, well, "emacs".
-
-2010-08-17 rocky <address@hidden>
-
- * configure.ac: Test to make sure we have emacs 23 or greater.
-
-2010-08-13 R. Bernstein <address@hidden>
-
- * .gitignore, INSTALL: More specific installation instructions.
-
-2010-08-12 rocky <address@hidden>
-
- * README.textile: Typo
-
-2010-08-12 rocky <address@hidden>
-
- * README.textile: Better textile linking.
-
-2010-08-12 rocky <address@hidden>
-
- * README.textile: Add link to detailed installation instructions.
- Thanks to Andrea Crotti for the suggestion.
-
-2010-08-09 R. Bernstein <address@hidden>
-
- * dbgr/common/shortkey.el: M-[insert] toggles dbgr-short-key-mode as
- well. And when you aren't in short-key mode, it works too --
- provided the buffer has an associated debugger.
-
-2010-08-05 rocky <address@hidden>
-
- * dbgr/common/shortkey.el: shortkey.el: Add 'c' for 'continue.
-
-2010-08-05 rocky <address@hidden>
-
- * dbgr/common/init/pydbgr.el, dbgr/common/init/rbdbgr.el,
- dbgr/common/shortkey.el, test/test-regexp-pydbgr.el: shortkey.el:
- Shortkey 'b' to set a breakpoint. (Don't have delete or toggle yet).
- pydbgr.el Add regexp for breakpoint set and deleted.
-
-2010-08-04 rocky <address@hidden>
-
- * dbgr/pydbgr/core.el: .rb -> .py
-
-2010-08-03 rocky <address@hidden>
-
- * dbgr/pydbgr/core.el, test/Makefile.am, test/gcd.py, test/gcd.rb,
- test/test-pydbgr.el, test/test-rdebug.el: As suggesting a Ruby file
- in pydbgr. Add test for this now.
-
-2010-08-01 rocky <address@hidden>
-
- * dbgr/rdebug/rdebug.el: M-x rdebug -> M-x dbgr-rdebug so as not to
- conflict with the older rdebug code.
-
-2010-06-15 rocky <address@hidden>
-
- * .gitignore, autogen.sh, test/test-track-mode.el: automess needs a
- README.
-
-2010-06-11 rocky <address@hidden>
-
- * : commit cd22e2dafdb0294558e887ac2027e896e0409fc4 Author: rocky
- <address@hidden> Date: Fri Jun 11 22:21:48 2010 -0400
-
-2010-06-07 R. Bernstein <address@hidden>
-
- * dbgr/common/init/rdebug.el: Comment typo
-
-2010-05-23 rocky <address@hidden>
-
- * dbgr/rdebug/rdebug.el, test/Makefile.am, test/test-rdebug.el: Add
- routine from rdebug to parse out command line options and get script
- name.
-
-2010-05-22 rocky <address@hidden>
-
- * ChangeLog, dbgr/common/init/pydb.el: Add "provide-me" for pydb
-
-2010-05-06 rocky <address@hidden>
-
- * dbgr/common/init/bashdb.el, dbgr/common/init/kshdb.el,
- dbgr/common/init/pydbgr.el, dbgr/common/init/rbdbgr.el,
- test/Makefile.am, test/test-dbgr.el, test/test-regexp-rbdbgr.el:
- common/init/rbdbgr.el: prompt pattern has changed Makefile.am:
- wasn't testing rbdbgr reset: Add more provide's in init files.
-
-2010-03-20 rocky <address@hidden>
-
- * dbgr/pydbgr/Makefile.am: Forgot one python->pydbgr
-
-2010-03-19 R. Bernstein <address@hidden>
-
- * dbgr.el, dbgr/gdb/gdb.el, dbgr/pydbgr/pydbgr.el,
- dbgr/rbdbgr/rbdbgr.el, dbgr/rdebug/rdebug.el: Add "dbgr-" prefix to
- keep namespace separate from other standalones, e.g. dbg-gdb vs gdb.
-
-2010-03-19 rocky <address@hidden>
-
- * configure.ac: One more python->pydbgr
-
-2010-03-19 R. Bernstein <address@hidden>
-
- * dbgr.el, dbgr/Makefile.am, dbgr/gdb/core.el,
- dbgr/gdb/gdb-core.el, dbgr/gdb/gdb-track-mode.el, dbgr/gdb/gdb.el,
- dbgr/gdb/track-mode.el, dbgr/pydbgr/.gitignore,
- dbgr/pydbgr/Makefile.am, dbgr/pydbgr/core.el,
- dbgr/pydbgr/pydbgr.el, dbgr/pydbgr/track-mode.el,
- dbgr/python/.gitignore, dbgr/python/Makefile.am,
- dbgr/python/pydbgr-core.el, dbgr/python/pydbgr-track-mode.el,
- dbgr/python/pydbgr.el, test/Makefile.am,
- test/test-regexp-pydbgr.el, test/test-regexp-python.el: directory
- python -> pydbgr. Debugger-specific file anme simplifications.
-
-2010-03-19 R. Bernstein <address@hidden>
-
- * configure.ac, dbgr.el, dbgr/Makefile.am, dbgr/bp.el,
- dbgr/buffer.el, dbgr/cmdbuf.el, dbgr/cmds.el,
- dbgr/common/.gitignore, dbgr/common/Makefile.am, dbgr/common/bp.el,
- dbgr/common/buffer.el, dbgr/common/cmdbuf.el, dbgr/common/cmds.el,
- dbgr/common/core.el, dbgr/common/custom.el, dbgr/common/file.el,
- dbgr/common/fringe.el, dbgr/common/helper.el, dbgr/common/init.el,
- dbgr/common/init/.gitignore, dbgr/common/init/Makefile.am,
- dbgr/common/init/bashdb.el, dbgr/common/init/gdb.el,
- dbgr/common/init/kshdb.el, dbgr/common/init/pydb.el,
- dbgr/common/init/pydbgr.el, dbgr/common/init/rbdbgr.el,
- dbgr/common/init/rdebug.el, dbgr/common/init/remake.el,
- dbgr/common/init/zshdb.el, dbgr/common/key.el, dbgr/common/loc.el,
- dbgr/common/lochist.el, dbgr/common/menu.el, dbgr/common/regexp.el,
- dbgr/common/reset.el, dbgr/common/send.el, dbgr/common/shortkey.el,
- dbgr/common/srcbuf.el, dbgr/common/track-mode.el,
- dbgr/common/track.el, dbgr/common/window.el, dbgr/core.el,
- dbgr/custom.el, dbgr/file.el, dbgr/fringe.el, dbgr/gdb/gdb-core.el,
- dbgr/gdb/gdb-track-mode.el, dbgr/gdb/gdb.el, dbgr/helper.el,
- dbgr/init.el, dbgr/init/.gitignore, dbgr/init/Makefile.am,
- dbgr/init/bashdb.el, dbgr/init/gdb.el, dbgr/init/kshdb.el,
- dbgr/init/pydb.el, dbgr/init/pydbgr.el, dbgr/init/rbdbgr.el,
- dbgr/init/rdebug.el, dbgr/init/remake.el, dbgr/init/zshdb.el,
- dbgr/key.el, dbgr/loc.el, dbgr/lochist.el, dbgr/menu.el,
- dbgr/python/pydbgr-core.el, dbgr/python/pydbgr-track-mode.el,
- dbgr/python/pydbgr.el, dbgr/rbdbgr/cmds.el, dbgr/rbdbgr/core.el,
- dbgr/rbdbgr/rbdbgr.el, dbgr/rbdbgr/track-mode.el,
- dbgr/rdebug/cmds.el, dbgr/rdebug/core.el, dbgr/rdebug/rdebug.el,
- dbgr/rdebug/track-mode.el, dbgr/regexp.el, dbgr/reset.el,
- dbgr/send.el, dbgr/shortkey.el, dbgr/srcbuf.el, dbgr/track-mode.el,
- dbgr/track.el, dbgr/window.el, test/test-bp.el,
- test/test-cmdbuf.el, test/test-core.el, test/test-file.el,
- test/test-helper.el, test/test-loc.el, test/test-lochist.el,
- test/test-regexp-gdb.el, test/test-regexp-python.el,
- test/test-regexp-rbdbgr.el, test/test-regexp-rdebug.el,
- test/test-regexp.el, test/test-send.el, test/test-shortkey.el,
- test/test-srcbuf.el, test/test-track.el: All common code now pushed
- to common directory one level don. First part an overall filesystem
- reorganization. Later on we will remove init, and rename python to
- pydbgr, and add pydb.
-
-2010-03-13 rocky <address@hidden>
-
- * dbgr/key.el, dbgr/lochist.el, dbgr/rdebug/.gitignore,
- dbgr/rdebug/Makefile: key.el: add key to set breakpoints lochist.el:
- larger default history ring .gitignore, Makefile: is derived from
- Makefile.am
-
-2010-03-12 R. Bernstein <address@hidden>
-
- * dbgr/gdb/gdb-track-mode.el, dbgr/python/pydbgr-track-mode.el,
- dbgr/rbdbgr/track-mode.el, dbgr/rdebug/track-mode.el,
- test/Makefile.am, test/test-track-mode.el, test/test-track.el: Base
- the specific debugger track-mode-maps on the generic track-mode map.
- Start a track-mode unit test.
-
-2010-03-04 R. Bernstein <address@hidden>
-
- * configure.ac, dbgr.el, dbgr/Makefile.am, dbgr/init/rdebug.el,
- dbgr/rbdbgr/.gitignore, dbgr/rbdbgr/Makefile.am,
- dbgr/rbdbgr/cmds.el, dbgr/rbdbgr/core.el, dbgr/rbdbgr/rbdbgr.el,
- dbgr/rbdbgr/track-mode.el, dbgr/rdebug/.gitignore,
- dbgr/rdebug/Makefile, dbgr/rdebug/Makefile.am, dbgr/rdebug/cmds.el,
- dbgr/rdebug/core.el, dbgr/rdebug/elc-stamp, dbgr/rdebug/rdebug.el,
- dbgr/rdebug/track-mode.el, dbgr/ruby/.gitignore,
- dbgr/ruby/Makefile.am, dbgr/ruby/cmds.el, dbgr/ruby/core.el,
- dbgr/ruby/rbdbgr.el, dbgr/ruby/track-mode.el, test/test-core.el:
- Start rdebug. Will probably reorganize directories down the line.
-
-2010-01-31 rocky <address@hidden>
-
- * dbgr/cmdbuf.el, dbgr/cmds.el, dbgr/key.el, dbgr/menu.el,
- dbgr/ruby/core.el, dbgr/ruby/rbdbgr.el, dbgr/ruby/track-mode.el,
- dbgr/track.el, test/test-core.el: Move forward on breakpoints. Add
- breakpoint list to cmdbuf and menu items for breakpoint track.el Reduce
use of depreciated fields in cmdbuf ruby/*.el: simplify names.
-
-2010-01-31 rocky <address@hidden>
-
- * dbgr/ruby/cmds.el, dbgr/ruby/core.el, dbgr/ruby/rbdbgr-core.el,
- dbgr/ruby/rbdbgr-track-mode.el, dbgr/ruby/track-mode.el: Move
- forward towards handling breakpoints: Keep a list of breakpoints in
- cmdbuf, add menu item to set a breakpoint ruby/*: simplify names
track.el: reduce use of depricated loc-regex,
- file-group, line-group fields.
-
-2010-01-30 rocky <address@hidden>
-
- * dbgr/cmdbuf.el, dbgr/init/rbdbgr.el, dbgr/track.el: Start to
- remove dbgr-cmdbuf-info loc-regexp, file-group and line-group. Add
- pat for in rbdbgr a deleted breakpoint.
-
-2010-01-27 rocky <address@hidden>
-
- * dbgr.el: dbr.el: dbgr-loaded-features is a command.
-
-2010-01-27 R. Bernstein <address@hidden>
-
- * dbgr.el, dbgr/bp.el, test/Makefile.am, test/test-bp.el,
- test/test-dbgr.el: dbgr.el test-dbgr.el: Add ability to get list of
- feature loaded with dbgr and unload them. This makes it possible to
- reload dbgr without leaving the Emacs. bp.el: More work needed on
- testing.
-
-2010-01-27 rocky <address@hidden>
-
- * dbgr/core.el, dbgr/gdb/gdb.el, dbgr/python/pydbgr.el,
- dbgr/reset.el, dbgr/ruby/rbdbgr.el: Add reset by default to
- dbg-exec-shell.
-
-2010-01-26 rocky <address@hidden>
-
- * dbgr/reset.el: Start a reset routine.
-
-2010-01-26 rocky <address@hidden>
-
- * dbgr/cmdbuf.el, dbgr/track.el, test/test-cmdbuf.el,
- test/test-track.el: cmdbuf.el: Save source buffers associated with a
- given command buffer. track.el: ditto. dbgr-track-from-region():
- check that cmdbuf is a cmdbuf.
-
-2010-01-24 rocky <address@hidden>
-
- * dbgr/core.el, dbgr/gdb/gdb.el: gdb.el: expand script filename.
- core.el: docstring fix.
-
-2010-01-24 rocky <address@hidden>
-
- * dbgr.el, dbgr/gdb/.gitignore, dbgr/init/gdb.el, dbgr/loc.el,
- dbgr/regexp.el: Add fields for address, and character offset.
-
-2010-01-21 R. Bernstein <address@hidden>
-
- * dbgr/gdb/gdb-track-mode.el, dbgr/track.el: Tolerate missing source
- file. Need to do better though between file.el:
- dbgr-file-loc-from-line and dbgr/track.el
-
-2010-01-20 rocky <address@hidden>
-
- * configure.ac: Administrivia
-
-2010-01-20 rocky <address@hidden>
-
- * dbgr/Makefile.am, dbgr/gdb/.gitignore, dbgr/gdb/Makefile.am,
- dbgr/gdb/gdb-core.el, dbgr/gdb/gdb-track-mode.el, dbgr/gdb/gdb.el:
- Fill out more gdb interaction via dbgr.
-
-2010-01-18 rocky <address@hidden>
-
- * dbgr/loc.el, test/test-regexp-gdb.el: loc.el: add place holder for
- column number test-regexp-gdb.el: start unit test for gdb.
-
-2010-01-18 R. Bernstein <address@hidden>
-
- * dbgr/init/gdb.el: Start gdb mode.
-
-2010-01-09 rocky <address@hidden>
-
- * dbgr/bp.el, dbgr/track.el, test/test-track.el: Breakpont fixes.
- Show only one breakpoint icon in margin. Store breakpoint number as
- a number, not a string. Show breakpoint in help string. Add a
- dbgr-track-bp-loc test.
-
-2010-01-02 rocky <address@hidden>
-
- * dbgr/init/bashdb.el, dbgr/init/kshdb.el, dbgr/init/zshdb.el: Add
- breakpoint tracking regexp.
-
-2010-01-01 rocky <address@hidden>
-
- * dbgr/init/rdebug.el: Add breakpoint regexp for rdebug.
-
-2010-01-01 rocky <address@hidden>
-
- * test/test-regexp-rbdbgr.el, test/test-regexp-rdebug.el,
- test/test-regexp-ruby.el: Add breakpoint tracking for rdebug.
-
-2010-01-01 rocky <address@hidden>
-
- * test/Makefile: Makefile is derived
-
-2010-01-01 rocky <address@hidden>
-
- * dbgr/track.el: Remove erroneous message.
-
-2010-01-01 rocky <address@hidden>
-
- * dbgr/bp.el, dbgr/file.el, dbgr/init/rbdbgr.el, dbgr/loc.el,
- dbgr/regexp.el, dbgr/track.el, test/test-bp.el,
- test/test-regexp-ruby.el, test/test-track.el: Attempt to move
- forward in tracking breakpoints setting.
-
-2009-12-28 rocky <address@hidden>
-
- * dbgr/bp.el, dbgr/brkpt.el: Add breakpoint handling test.
-
-2009-12-28 rocky <address@hidden>
-
- * dbgr/brkpt.el: More display/remove cleanup.
-
-2009-12-27 rocky <address@hidden>
-
- * dbgr/brkpt.el: Small improvements (?) towards getting breakpoint
- icons working.
-
-2009-12-27 rocky <address@hidden>
-
- * Makefile.am, configure.ac, dbgr/Makefile.am, dbgr/brkpt.el,
- dbgr/fringe.el, test/.gitignore, test/Makefile, test/Makefile.am:
- Start working on breakpoint icons. "make test" works inside dbgr
- directory.
-
-2009-12-22 rocky <address@hidden>
-
- * dbgr/cmds.el, dbgr/send.el, dbgr/window.el, test/test-send.el:
- Some debugger commands prompt. So we need to make sure we show the
- command buffer for those.
-
-2009-12-21 rocky <address@hidden>
-
- * dbgr/cmds.el, dbgr/custom.el, dbgr/key.el, dbgr/menu.el,
- dbgr/shortkey.el: Get menus under control. Works now in "short-key"
- mode. Help is provided too!
-
-2009-12-20 rocky <address@hidden>
-
- * dbgr/buffer.el, dbgr/cmds.el, dbgr/menu.el,
- dbgr/ruby/rbdbgr-track-mode.el, dbgr/shortkey.el,
- dbgr/track-mode.el: Start to add menu commands. gdb command "finish"
- added.
-
-2009-12-18 rocky <address@hidden>
-
- * autogen.sh: Don't overwrite elisp-comp.
-
-2009-12-16 rocky <address@hidden>
-
- * dbgr/loc.el: Use loc-changes-goto of new package loc-changes to
- find line number positions. loc-changes-goto is more tolerant of
- buffer modifications.
-
-2009-12-16 rocky <address@hidden>
-
- * .gitignore, Makefile.am, buffer.el, cmdbuf.el, cmds.el,
- configure.ac, core.el, custom.el, dbgr.el, dbgr/.gitignore,
- dbgr/Makefile.am, dbgr/buffer.el, dbgr/cmdbuf.el, dbgr/cmds.el,
- dbgr/core.el, dbgr/custom.el, dbgr/file.el, dbgr/fringe.el,
- dbgr/helper.el, dbgr/init.el, dbgr/init/.gitignore,
- dbgr/init/Makefile.am, dbgr/init/bashdb.el, dbgr/init/kshdb.el,
- dbgr/init/pydb.el, dbgr/init/pydbgr.el, dbgr/init/rbdbgr.el,
- dbgr/init/rdebug.el, dbgr/init/remake.el, dbgr/init/zshdb.el,
- dbgr/key.el, dbgr/loc.el, dbgr/lochist.el, dbgr/python/.gitignore,
- dbgr/python/Makefile.am, dbgr/python/pydbgr-core.el,
- dbgr/python/pydbgr-track-mode.el, dbgr/python/pydbgr.el,
- dbgr/regexp.el, dbgr/ruby/.gitignore, dbgr/ruby/Makefile.am,
- dbgr/ruby/rbdbgr-core.el, dbgr/ruby/rbdbgr-track-mode.el,
- dbgr/ruby/rbdbgr.el, dbgr/send.el, dbgr/shortkey.el,
- dbgr/srcbuf.el, dbgr/track-mode.el, dbgr/track.el, dbgr/window.el,
- file.el, fringe.el, helper.el, init.el, init/.gitignore,
- init/Makefile.am, init/bashdb.el, init/kshdb.el, init/pydb.el,
- init/pydbgr.el, init/rbdbgr.el, init/rdebug.el, init/remake.el,
- init/zshdb.el, key.el, loc.el, lochist.el, python/.gitignore,
- python/Makefile.am, python/pydbgr-core.el,
- python/pydbgr-track-mode.el, python/pydbgr.el, regexp.el,
- ruby/.gitignore, ruby/Makefile.am, ruby/rbdbgr-core.el,
- ruby/rbdbgr-track-mode.el, ruby/rbdbgr.el, send.el, shortkey.el,
- srcbuf.el, test/test-cmdbuf.el, test/test-core.el,
- test/test-file.el, test/test-helper.el, test/test-loc.el,
- test/test-lochist.el, test/test-regexp-python.el,
- test/test-regexp-ruby.el, test/test-regexp.el, test/test-send.el,
- test/test-shortkey.el, test/test-srcbuf.el, test/test-track.el,
- track-mode.el, track.el, window.el: dbgr.el - loads everything (via
- load-relative). Push dbgr source files into dbgr which is where
- they are installed. Cleaner this way.
-
-2009-12-14 rocky <address@hidden>
-
- * test/test-srcbuf.el, test/test-track.el: behave -> test-unit
-
-2009-12-13 rocky <address@hidden>
-
- * test/behave.el, test/test-cmdbuf.el, test/test-core.el,
- test/test-file.el, test/test-helper.el, test/test-loc.el,
- test/test-lochist.el, test/test-regexp-python.el,
- test/test-regexp-ruby.el, test/test-regexp.el, test/test-send.el,
- test/test-shortkey.el: Remove local behave.el in favor of new
- test-unit package.
-
-2009-12-10 rocky <address@hidden>
-
- * track.el: Give error message when track-from-region on a
- non-debugger command buffer.
-
-2009-12-10 rocky <address@hidden>
-
- * core.el, fringe.el, track-mode.el, track.el:
- dbgr-fringe-history-unset -> dbgr-fringe-erase-history-arrows. Also
- let it be used as a command. Update some docstrings.
-
-2009-12-10 rocky <address@hidden>
-
- * track.el: Make dbgr-track-from-region more interactive useful:
- call the location tracking routine adjust the display.
-
-2009-12-09 rocky <address@hidden>
-
- * AUTHORS, init/rdebug.el, track.el: rdebug.el: make more
- user-friendly for interactive dbgr-track-from-region calls.
-
-2009-12-08 rocky <address@hidden>
-
- * fringe.el, python/pydbgr.el, ruby/rbdbgr.el: Small changes.
-
-2009-12-06 rocky <address@hidden>
-
- * key.el, track-mode.el, track.el: track.el: Fix bug in
- dbgr-goto-line-for-loc-pat key.el, track-mode.el: temporary
- workaround for VMware keybinding mess up.
-
-2009-12-06 rocky <address@hidden>
-
- * init/rbdbgr.el, ruby/rbdbgr-track-mode.el, ruby/rbdbgr.el: Make
- rbdbgr-track-mode.el stand on its own.
-
-2009-11-29 rocky <address@hidden>
-
- * cmdbuf.el, cmds.el, core.el, key.el, send.el, srcbuf.el,
- test/test-send.el, track.el: Start adding flags to command-send to
- indicate whether to record history, and whether we have a
- frame-changing command. Do more error checking in command-send for
- running processes and so on. Add more commands and keys bindings to
- short-key. core.el: consider source and command buffer past history
*only* if
- it was run with the same debugger as we want to currently run.
-
-2009-11-29 rocky <address@hidden>
-
- * cmds.el, helper.el, key.el, send.el, test/test-send.el: Make gdb
- commands more short-key friendly - that is can be called from the
- source window. Add newer-frame: "<" and older frame ">".
-
-2009-11-29 rocky <address@hidden>
-
- * fringe.el, track-mode.el, track.el: Handle some error cases, and
- fix source tracking created in DRYing code. fringe.el: handle
- deleting the buffer we are trying to update the fringe arrow for
- track-mode.el: handle error case where we invoke dbgr-track-mode in
- a non-process buffer. track.el: need to switch to source buffer to
- query overlay arrow.
-
-2009-11-29 rocky <address@hidden>
-
- * shortkey.el, track.el, window.el: Keep command buffer position and
- source location position in sync when moving back in the history of
- positions. See docstring of dbgr-track-hist-fn-internal for which
- windows get displayed. DRY code a little.
-
-2009-11-29 rocky <address@hidden>
-
- * Makefile.am, cmdbuf.el, core.el, key.el, loc.el, shortkey.el,
- srcbuf.el, test/behave.el, test/test-file.el,
- test/test-shortkey.el, track-mode.el, track.el, window.el: Fix up
- and simplify short-key mode so the setting is saved in the process
- buffer and propagated to the source buffers encountered. key.el: add
's' for step. test/behave.el: add assert-raises! track-mode.el: use standard
name -setup instead of -body. Pass an
- explicit parameter. window.el: remove older, now-unused code.
-
-2009-11-27 rocky <address@hidden>
-
- * cmdbuf.el, cmds.el, file.el, loc.el, shortkey.el,
- test/test-cmdbuf.el, track.el, window.el: Bang on (source) window
- update and display. Less disruption of windows on update. Add
- variable in cmdbuf to track shortkey mode. file.el
(dbgr-file-line-count): remove bug. save-current isn't what
- we want. Use find-file-noselect so we don't disrupt current buffer.
cmdbuf.el, cmds,el: at ? to ends of boolean variables. loc.el: don't change
the selected buffer. test-cmdbuf.el: fix improper call to
dbgr-cmdbuf-info-cmd-args=
-
-2009-11-26 rocky <address@hidden>
-
- * cmdbuf.el: Remove spurious warning.
-
-2009-11-26 rocky <address@hidden>
-
- * Makefile.am, elisp-comp, helper.el, test/test-cmdbuf.el:
- elisp-comp: remove temp script. Makefile.am: Wasn't running cmdbuf
- test. helper.el: current best guess at a setter method.
-
-2009-11-25 rocky <address@hidden>
-
- * test/behave.el, test/test-send.el: behave.el: fix incorrect
- initializion of assert count. test-send.el: Check docstring is set
- on dbgr-define-command
-
-2009-11-24 rocky <address@hidden>
-
- * send.el, test/behave.el, test/test-send.el: send.el: docstring
- elaboration. test-send.el: Add test of dbgr-define-command. Show
- number of assertions run.
-
-2009-11-24 rocky <address@hidden>
-
- * ruby/rbdbgr.el: Need to use require-relative-list with prefix?
-
-2009-11-24 rocky <address@hidden>
-
- * track.el: Force going to the current source-code line when in the
- case that buffer is already visible. No doubt there will be more
- work on this.
-
-2009-11-23 rocky <address@hidden>
-
- * configure.ac: dbgr-loc.el -> dbgr.el
-
-2009-11-23 R. Bernstein <address@hidden>
-
- * core.el, python/pydbgr-track-mode.el, python/pydbgr.el,
- ruby/rbdbgr-track-mode.el, ruby/rbdbgr.el, track-mode.el: Deal with
- process sentinel as part of turning on dbgr-track-mode so that we
- catch process hangup dbgr-track-mode (as well as running the
- debugger from the outset).
-
-2009-11-23 R. Bernstein <address@hidden>
-
- * buffer.el, cmdbuf.el, core.el, lochist.el, srcbuf.el: docstring
- name regularization.
-
-2009-11-22 rocky <address@hidden>
-
- * buffer.el, cmdbuf.el, cmds.el, core.el, custom.el,
- dbgr-buffer.el, dbgr-cmdbuf.el, dbgr-cmds.el, dbgr-core.el,
- dbgr-custom.el, dbgr-file.el, dbgr-fringe.el, dbgr-helper.el,
- dbgr-init.el, dbgr-key.el, dbgr-loc.el, dbgr-lochist.el,
- dbgr-regexp.el, dbgr-send.el, dbgr-shortkey.el, dbgr-srcbuf.el,
- dbgr-track-mode.el, dbgr-track.el, dbgr-window.el, file.el,
- fringe.el, helper.el, init.el, init/bashdb.el, init/kshdb.el,
- init/pydb.el, init/pydbgr.el, init/rbdbgr.el, init/rdebug.el,
- init/remake.el, init/zshdb.el, key.el, loc.el, lochist.el,
- python/pydbgr-core.el, python/pydbgr-track-mode.el,
- python/pydbgr.el, regexp.el, ruby/rbdbgr-core.el,
- ruby/rbdbgr-track-mode.el, ruby/rbdbgr.el, send.el, shortkey.el,
- srcbuf.el, test/test-core.el, test/test-file.el,
- test/test-helper.el, test/test-loc.el, test/test-lochist.el,
- test/test-regexp.el, test/test-send.el, test/test-srcbuf.el,
- test/test-track.el, track-mode.el, track.el, window.el: Remove dbgr-
- from filenames, although the files still provide with a dbgr- prefix
- thanks to recent changes to load-relative.
-
-2009-11-22 rocky <address@hidden>
-
- * dbgr-buffer.el, dbgr-cmdbuf.el, dbgr-cmds.el, dbgr-helper.el,
- dbgr-key.el, dbgr-send.el, dbgr-shortkey.el, dbgr-track-mode.el,
- dbgr-track.el, dbgr-window.el: Bang on short-key mode. Add variable
- in command buffer which tell whether to add a cmmand to the history
- or and to end up in the command buffer. Bugs in dbgr-define-command
- fixed. provide-me used more often.
-
-2009-11-20 rocky <address@hidden>
-
- * dbgr-buffer.el, dbgr-cmdbuf.el, dbgr-core.el, dbgr-custom.el,
- dbgr-file.el, dbgr-helper.el, dbgr-key.el, dbgr-send.el,
- dbgr-shortkey.el, dbgr-srcbuf.el, dbgr-track.el: (provide 'xxx) ->
- (provide-me). This ensures we get it right. Start to fold in
- Anders' shortkey mode and keybindings and all that other great
- stuff.
-
-2009-11-20 rocky <address@hidden>
-
- * dbgr-send.el: dbgr-send-process: send a debugger command and
- redirect output to a temporary buffer. The hope is that this is will
- be a cleaner way to make a request and get an answer - no comint
- filters are involved.
-
-2009-11-20 R. Bernstein <address@hidden>
-
- * dbgr-core.el, dbgr-fringe.el, dbgr-track.el: Set fringe arrows for
- dedicated command buffers.
-
-2009-11-20 R. Bernstein <address@hidden>
-
- * test/test-lochist.el: Test changes since we no longer remove
- duplicate locations.
-
-2009-11-20 R. Bernstein <address@hidden>
-
- * dbgr-cmds.el, dbgr-fringe.el, dbgr-lochist.el,
- dbgr-track-mode.el, python/pydbgr-track-mode.el,
- ruby/rbdbgr-track-mode.el: dbgr-fringe.el: remove duplicate test.
- This needs to be done at a higher level. Empirically get fringe
- history access correct, until I better understand what's wrong.
- dbgr-cmds.el: add more gdb commands. Use them in the python and ruby
- debuggers.
-
-2009-11-20 rocky <address@hidden>
-
- * dbgr-fringe.el, dbgr-track.el: Don't set older marks if the are at
- the same position as newer ones.
-
-2009-11-20 rocky <address@hidden>
-
- * dbgr-cmdbuf.el, dbgr-core.el, dbgr-fringe.el, dbgr-loc.el,
- dbgr-srcbuf.el, dbgr-track-mode.el, dbgr-track.el,
- test/test-regexp.el: Add history of locations stopped (last 3) in
- the fringe. Also some associated simplification and cleanup around
- this code.
-
-2009-11-19 R. Bernstein <address@hidden>
-
- * dbgr-arrow.el, dbgr-buffer.el, dbgr-cmdbuf.el, dbgr-core.el,
- dbgr-fringe.el, dbgr-loc.el, dbgr-track.el: dbgr-arrow ->
- dbgr-fringe. Simplify a tad more.
-
-2009-11-19 rocky <address@hidden>
-
- * dbgr-arrow.el, dbgr-core.el, dbgr-loc.el, dbgr-track-mode.el,
- dbgr-track.el: Improve arrow interface to just the essentials.
- Remove arrow when leaving dbgr-track-mode.
-
-2009-11-19 rocky <address@hidden>
-
- * dbgr-arrow.el: Fringe arrow cleanup and simplification in advance
- of reworking to add a source buffer-local variable of ring of
- history positions and marking them in the fringe in both the source
- and command buffers. list of positions
-
-2009-11-19 rocky <address@hidden>
-
- * dbgr-arrow.el, ruby/rbdbgr-core.el: rbdbgr-core.el: fix invalid fn
- name dbgr-arrow.el: start allow location history in fringe.
-
-2009-11-18 rocky <address@hidden>
-
- * test/test-send.el, test/test-srcbuf.el: Attempt more realistic
- tests.
-
-2009-11-18 R. Bernstein <address@hidden>
-
- * dbgr-buffer.el, dbgr-cmdbuf.el, dbgr-init.el, dbgr-srcbuf.el,
- dbgr-track-mode.el, test/test-send.el: Bugs I probably would have
- caught if I had done more thorough unit testing.
-
-2009-11-18 R. Bernstein <address@hidden>
-
- * dbgr-core.el, init/Makefile.am: Small bugfix.
-
-2009-11-18 R. Bernstein <address@hidden>
-
- * Makefile.am, python/pydbgr-core.el, python/pydbgr-track-mode.el,
- python/pydbgr.el, ruby/rbdbgr-core.el, ruby/rbdbgr-track-mode.el,
- ruby/rbdbgr.el: Since elisp-comp has been fixed we can use
- require-relative-list in subdirectories. Reinstate compiling them.
- DRY code some.
-
-2009-11-18 rocky <address@hidden>
-
- * .gitignore, Makefile.am, dbgr-cmdbuf.el, dbgr-core.el,
- dbgr-init.el, dbgr-track-mode.el, elisp-comp,
- python/pydbgr-core.el, python/pydbgr-track-mode.el,
- python/pydbgr.el, ruby/rbdbgr-core.el, ruby/rbdbgr.el,
- test/test-send.el, test/test-track.el: Correct bugs in and clean up
- track-mode setting and debugger invocation. Suggested debugger
invocation command is now the last invocation
- unless the buffer has a better idea. elisp-comp: we now need our own
since we don't want to compile in a
- directory. Makefile.am: no subdirs until I have more time to go
- over this.
-
-2009-11-17 rocky <address@hidden>
-
- * Makefile.am, configure.ac, dbgr-cmdbuf.el, dbgr-core.el,
- dbgr-init.el, dbgr-regexp.el, dbgr-track.el, init/.gitignore,
- init/Makefile.am, init/bashdb.el, init/kshdb.el, init/pydb.el,
- init/pydbgr.el, init/rbdbgr.el, init/rdebug.el, init/remake.el,
- init/zshdb.el, python/pydbgr-core.el, python/pydbgr-regexp.el,
- python/pydbgr.el, ruby/rbdbgr-core.el, ruby/rbdbgr-regexp.el,
- ruby/rbdbgr-track-mode.el, ruby/rbdbgr.el, test/test-cmdbuf.el,
- test/test-regexp-python.el, test/test-regexp-ruby.el,
- test/test-regexp.el, test/test-send.el: Create a global hash which
- contains regular expression information for each of the debuggers.
- Each debugger has a regular expression to match a prompt location
- and a regular expression for the prompt string that comint uses.
- However there may be other regular expressions for things like stack
- traces. Part of a long-needed refactoring. More to follow. Expect
breakage.
-
-2009-11-17 R. Bernstein <address@hidden>
-
- * dbgr-cmdbuf.el, test/test-send.el: I think the bug in
- load-relative may have been the cause of some of the weirdness found
- here.
-
-2009-11-17 R. Bernstein <address@hidden>
-
- * dbgr-cmds.el, dbgr-send.el: Add dbgr-define-command and some
- common gdb-commands.
-
-2009-11-17 R. Bernstein <address@hidden>
-
- * dbgr-send.el, test/test-send.el: Don't issue message if we are in
- a command buffer Fill in test cases more.
-
-2009-11-17 rocky <address@hidden>
-
- * dbgr-send.el, test/test-send.el: Make dbgr-command interactive.
-
-2009-11-17 rocky <address@hidden>
-
- * Makefile.am, dbgr-send.el, test/test-send.el: Add
- dbgr-expand-format-string
-
-2009-11-17 rocky <address@hidden>
-
- * dbgr-arrow.el: dbgr-set-arrow: add optional indicator pair
-
-2009-11-16 rocky <address@hidden>
-
- * dbgr-arrow.el: Minor
-
-2009-11-16 rocky <address@hidden>
-
- * dbgr-core.el, python/pydbgr.el, ruby/rbdbgr.el: Hoist some common
- code. Missing a require in rbdbgr.el and remove an extra prvide in
- pydbgr.el
-
-2009-11-16 rocky <address@hidden>
-
- * dbgr-buffer.el, dbgr-cmdbuf.el, dbgr-core.el, dbgr-helper.el,
- dbgr-srcbuf.el, dbgr-track-mode.el, test/test-helper.el: Simpilify
- struct access even more by removing "dbgr-" prefix. I like things to
- look real simple.
-
-2009-11-16 rocky <address@hidden>
-
- * dbgr-buffer.el, dbgr-cmdbuf.el, dbgr-core.el, dbgr-srcbuf.el,
- python/pydbgr-core.el, ruby/rbdbgr-core.el: Push forward with
- simpler access to struct fields. pydbgr, rbdbgr: remove compilation
- bug/warning.
-
-2009-11-16 R. Bernstein <address@hidden>
-
- * dbgr-cmdbuf.el, dbgr-srcbuf.el, dbgr-track-mode.el,
- dbgr-track.el, python/pydbgr.el, ruby/rbdbgr.el: dbgr-cmdbuf: minor
- fixes. SMake more use simplified defstruct access, add dbgr-cmdbuf?
- rbdbgr: pass in pat-hash to get set correctly.
-
-2009-11-16 rocky <address@hidden>
-
- * dbgr-cmdbuf.el, dbgr-helper.el, dbgr-track.el, test/behave.el,
- test/test-cmdbuf.el, test/test-helper.el: dbgr-sget: start to
- simplify access to defstruct fields. More cmdbuf tests.
-
-2009-11-15 rocky <address@hidden>
-
- * dbgr-cmdbuf.el, dbgr-send.el, dbgr-track-mode.el, dbgr-track.el,
- python/pydbgr-core.el, python/pydbgr-regexp.el,
- python/pydbgr-track-mode.el, python/pydbgr.el,
- ruby/rbdbgr-regexp.el, ruby/rbdbgr-track-mode.el: dbgr-command-send
- now echos its output. prompt is set correctly for rbdbgr and pydbgr.
-
-2009-11-15 rocky <address@hidden>
-
- * Makefile.am, dbgr-buffer.el, dbgr-cmdbuf.el, dbgr-core.el,
- dbgr-helper.el, dbgr-regexp.el, dbgr-scriptbuf.el, dbgr-send.el,
- dbgr-srcbuf.el, dbgr-track-mode.el, dbgr-track.el,
- python/pydbgr-core.el, python/pydbgr-regexp.el, python/pydbgr.el,
- ruby/rbdbgr-core.el, ruby/rbdbgr-regexp.el, ruby/rbdbgr.el,
- test/test-scriptbuf.el, test/test-srcbuf.el: Bug fix: minibuffer
- history was not saving prior of debugger invocations. scriptbuf ->
- srcbuf.
-
-2009-11-15 rocky <address@hidden>
-
- * test/test-helper.el, test/test-regexp-ruby.el,
- test/test-regexp2.el: Add with-current-buffer-safe to guard against
- deleted buffers. Set/save comint-prompt-regexp. Correct debugger
- prompts which are not the same as location matching patterns.
- Workaround problem in loading pydbg/rbdbgr not pulling in all files.
- Include python regexp test.
-
-2009-11-15 rocky <address@hidden>
-
- * dbgr-buffer.el, dbgr-send.el: Start routines which allow us to
- send commands to the debugger process: dbgr-send-command. Right now
- though, It is not inserting into the buffer nor the output filter
- function to kick in.
-
-2009-11-15 rocky <address@hidden>
-
- * dbgr-buffer.el, dbgr-core.el, dbgr-file.el, dbgr-loc.el,
- dbgr-lochist.el, dbgr-track.el, dbgr-window.el: Start to use
- require-relative-list more. Note: require-relative-list has problems
- when used in subdirectories python or ruby. But for '.' -like
- require relative, it is fine.
-
-2009-11-15 rocky <address@hidden>
-
- * dbgr-buffer.el, dbgr-cmdbuf.el, dbgr-core.el, dbgr-file.el,
- dbgr-scriptbuf.el, dbgr-track.el, test/test-cmdbuf.el:
- dbg-buffer.el: Start buffer access routines Start to reduce
- declare-functions by getting definitions more directly.
-
-2009-11-14 rocky <address@hidden>
-
- * Makefile.am, dbgr-cmdbuf.el, dbgr-loc.el, dbgr-scriptbuf.el,
- test/test-cmdbuf.el, test/test-scriptbuf.el: Start cmdbuf tests. Add
- predicates to see if a buffer is a debugger script or command.
-
-2009-11-13 R. Bernstein <address@hidden>
-
- * Makefile.am, configure.ac, python/.gitignore, python/Makefile.am,
- ruby/Makefile.am: Fix up install so that we go to our own directory
- and have language-specific directories underneath that.
-
-2009-11-13 R. Bernstein <address@hidden>
-
- * python/.gitignore, python/Makefile.am, python/pydbgr.el,
- ruby/.gitignore, ruby/rbdbgr.el: Mostly administrivia.
-
-2009-11-13 rockyb <address@hidden>
-
- * dbgr-core.el, python/pydbgr-track-mode.el, python/pydbgr.el,
- ruby/rbdbgr.el: Sentinel should detect deleted buffers. comint
- output hooks were not installed in pydbgr and rbdbgr.
-
-2009-11-13 R. Bernstein <address@hidden>
-
- * Makefile.am, configure.ac, dbgr-track-mode.el, dbgr-track.el,
- python/pydbgr-core.el, python/pydbgr-regexp.el,
- python/pydbgr-track-mode.el, python/pydbgr.el, ruby/Makefile.am,
- ruby/rbdbgr-core.el, ruby/rbdbgr-regexp.el,
- ruby/rbdbgr-track-mode.el, ruby/rbdbgr.el: Add Makefiles in python
- and ruby. Remove byte-compile warnings in python and ruby.
- dbgr-track.el: goto-... -> dbgr-goto
-
-2009-11-13 rocky <address@hidden>
-
- * dbgr-arrow.el, dbgr-cmdbuf.el, dbgr-file.el, dbgr-helper.el,
- dbgr-loc.el, dbgr-lochist.el, dbgr-scriptbuf.el,
- dbgr-track-mode.el, dbgr-track.el, dbgr-window.el,
- python/pydbgr-core.el, python/pydbgr.el, ruby/rbdbgr-core.el,
- ruby/rbdbgr.el: Switch to using require-relative instead of
- load-realative.
-
-2009-11-13 rocky <address@hidden>
-
- * dbgr-cmdbuf.el, dbgr-core.el, dbgr-file.el, dbgr-loc.el,
- dbgr-lochist.el, dbgr-scriptbuf.el, dbgr-track-mode.el,
- dbgr-track.el, dbgr-window.el, python/pydbgr-core.el,
- python/pydbgr-track-mode.el, python/pydbgr.el, ruby/rbdbgr-core.el,
- ruby/rbdbgr-regexp.el, ruby/rbdbgr-track-mode.el, ruby/rbdbgr.el:
- Used in testing require-relative
-
-2009-11-11 rocky <address@hidden>
-
- * dbgr-cmdbuf.el, dbgr-core.el, dbgr-helper.el,
- python/pydbgr-core.el, python/pydbgr.el, ruby/rbdbgr-core.el,
- ruby/rbdbgr.el, test/test-scriptbuf.el: */*-core.el Common routine
- to query for command line. dbgr-cmdf.el: fix bugs in command-line
- retrieval.
-
-2009-11-11 R. Bernstein <address@hidden>
-
- * dbgr-cmdbuf.el, dbgr-scriptbuf.el, python/pydbgr-core.el,
- python/pydbgr.el, ruby/rbdbgr-core.el, ruby/rbdbgr.el: First cut at
- saving command arguments in script buffer. Much improved but More
- work needed.
-
-2009-11-11 R. Bernstein <address@hidden>
-
- * dbgr-cmdbuf.el, dbgr-core.el, dbgr-procbuf.el, dbgr-scriptbuf.el,
- dbgr-track-mode.el, dbgr-track.el, test/test-regexp.el,
- test/test-scriptbuf.el, test/test-track.el: procbuf -> cmdbuf
-
-2009-11-11 rocky <address@hidden>
-
- * dbgr-file.el, dbgr-helper.el, dbgr-procbuf.el, dbgr-scriptbuf.el,
- dbgr-track.el, dbgr-window.el, test/.gitignore, test/behave.el,
- test/test-helper.el, test/test-scriptbuf.el: behave.el: was not
- passing assertion message to assert-t Store debugger name inside
- script buffers. Command invocation to come... dbgr-window.el: add
- provide for my name. Start helper file. xx-p -> xx? because it is
- cooler.
-
-2009-11-10 rocky <address@hidden>
-
- * dbgr-loc.el, ruby/rbdbgr.el: dbgr-loc.el: fix M-up/down motion in
- command buffer to match mark ruby/rbdbgr.el: remove bogus
- (shell-mode).
-
-2009-11-10 R. Bernstein <address@hidden>
-
- * dbgr-file.el, dbgr-loc.el, dbgr-lochist.el, dbgr-procbuf.el,
- dbgr-track.el, test/test-file.el, test/test-load.el,
- test/test-loc.el, test/test-lochist.el: Move command process mark
- into location structure. More work is needed.
-
-2009-11-10 rocky <address@hidden>
-
- * dbgr-loc.el, dbgr-lochist.el, dbgr-procbuf.el, dbgr-track.el: Keep
- (historical) process buffer position in sync with historical source
- buffer position. Warning: this needs refactorization.
-
-2009-11-10 rocky <address@hidden>
-
- * dbgr-arrow.el: switch-buffer -> set-buffer so we don't mess up
- window positions.
-
-2009-11-09 rocky <address@hidden>
-
- * dbgr-core.el: dbgr-exec-shell Deal with nil directory in command
- invocation
-
-2009-11-09 R. Bernstein <address@hidden>
-
- * dbgr-core.el, dbgr-loc.el, dbgr-lochist.el, dbgr-procbuf.el,
- dbgr-regexp.el, dbgr-scriptbuf.el, dbgr-track.el: Remove
- byte-compile warnings.
-
-2009-11-09 R. Bernstein <address@hidden>
-
- * dbgr-track-mode.el, dbgr-track.el: Better load-relative uses and
- remove a failing require.
-
-2009-11-09 rocky <address@hidden>
-
- * ruby/rbdbgr-core.el, ruby/rbdbgr-regexp.el,
- ruby/rbdbgr-track-mode.el, ruby/rbdbgr.el: Use require-relative now.
-
-2009-11-09 rocky <address@hidden>
-
- * dbgr-core.el, dbgr-file.el, dbgr-procbuf.el, dbgr-track.el: Use
- load-relative with lists of files when possible.
-
-2009-11-09 rocky <address@hidden>
-
- * README, dbgr-core.el, dbgr-load.el, dbgr-loc.el,
- dbgr-track-mode.el, dbgr-track.el, test/behave.el: Start to use
- load-relative. dbgr-core.el: fix bug in dbgr-term-sentinal
-
-2009-11-08 rocky <address@hidden>
-
- * dbgr-core.el, dbgr-procbuf.el, dbgr-scriptbuf.el, dbgr-track.el,
- ruby/rbdbgr-core.el, test/test-scriptbuf.el: Clean up code with sets
- buffer-local variables in scriptbuf and procbuf. Although this is a
- big improvement, more work is needed.
-
-2009-11-08 rocky <address@hidden>
-
- * Makefile.am, dbgr-arrow.el, dbgr-core.el, dbgr-scriptbuf-var.el,
- dbgr-scriptbuf.el, dbgr-track.el, python/pydbgr-core.el,
- ruby/rbdbgr-core.el, test/test-scriptbuf.el: Set debugger
- buffer-local variables for command/process and source buffers. Set
- default directory in command buffer. Source buffer now has last
- command invocation and a pointer to the process buffer.
-
-2009-11-07 rocky <address@hidden>
-
- * dbgr-arrow.el, dbgr-core.el, dbgr-load.el, dbgr-loc.el,
- dbgr-procbuf-var.el, dbgr-procbuf.el, dbgr-scriptbuf-var.el,
- dbgr-track-mode.el, dbgr-track.el, test/test-regexp.el,
- test/test-track.el: Put overla/arrow/fringe arrow on current
- location in source window.
-
-2009-11-02 rocky <address@hidden>
-
- * dbgr-regexp.el, dbgr-track-mode.el, dbgr-track.el: dbgr-regexp.el:
- regexp bug fixes for rdebug. dbgr-track-mode.el: docstring typo
- dbgr-track.el: don't run hooks if dbgr-track-mode is not set.
-
-2009-11-02 R. Bernstein <address@hidden>
-
- * dbgr-file.el, dbgr-track.el, python/pydbgr-core.el,
- ruby/rbdbgr-core.el, ruby/rbdbgr-regexp.el: Keep history of pydbgr,
- rbdbgr invocations and modify minibuffer mode map to do filename
- completion. FIXME: need to DRY this code.
-
-2009-11-02 rocky <address@hidden>
-
- * dbgr-core.el, dbgr-scriptbuf-var.el, python/pydbgr.el,
- ruby/rbdbgr-core.el, ruby/rbdbgr.el: Save the last invocation as a
- buffer-local variable in the process buffer.
-
-2009-11-01 rocky <address@hidden>
-
- * test/behave.el, test/test-regexp-python.el: Add an optional
- message parmater on assert-... .
-
-2009-11-01 rocky <address@hidden>
-
- * test/behave.el: Tidy behave.el a little bit more.
-
-2009-11-01 rocky <address@hidden>
-
- * test/behave.el, test/test-core.el, test/test-file.el,
- test/test-load.el, test/test-loc.el, test/test-lochist.el,
- test/test-regexp-python.el, test/test-regexp.el,
- test/test-regexp2.el, test/test-track.el: behave.el: expect- =>
- assert- . DRY assert-t.
-
-2009-11-01 rocky <address@hidden>
-
- * dbgr-core.el, dbgr-track.el, python/pydbgr-core.el,
- python/pydbgr-regexp.el, python/pydbgr-track-mode.el,
- python/pydbgr.el, ruby/.gitignore, ruby/rbdbgr-core.el,
- ruby/rbdbgr-track-mode.el, test/test-regexp-python.el: Add a 2nd
- debugger. In the process DRY and make common some code.
-
-2009-10-31 rocky <address@hidden>
-
- * dbgr-core.el, dbgr-loc.el: Don't kill existing processes in
- processe buffers when rerunning the same command Showing location
- negotiates the buffers correctly now.
-
-2009-10-31 rocky <address@hidden>
-
- * dbgr-core.el, dbgr-file.el, dbgr-track-mode.el, dbgr-track.el,
- dbgr-window.el, ruby/rbdbgr-core.el, ruby/rbdbgr-track-mode.el,
- ruby/rbdbgr.el: rbdbgr via comint now works.
-
-2009-10-30 R. Bernstein <address@hidden>
-
- * dbgr-core.el, dbgr-file.el, ruby/rbdbgr.el: More work on term
- mode.
-
-2009-10-30 rocky <address@hidden>
-
- * Makefile.am, configure.ac, dbgr-core.el, dbgr-file.el,
- dbgr-regexp.el, dbgr-track-mode.el, dbgr-track.el, ruby/.gitignore,
- ruby/Makefile.am, ruby/rbdbgr-core.el, ruby/rbdbgr-regexp.el,
- ruby/rbdbgr-track-mode.el, ruby/rbdbgr.el, test/behave.el,
- test/test-core.el, test/test-track.el: For now rbdbgr uses term.el
- for its process buffer. However term.el doesn't have an output
- filter function - yet.
-
-2009-10-29 R. Bernstein <address@hidden>
-
- * dbgr-core.el, ruby/rbdbgr-core.el, test/test-core.el: More
- detailed command-line parsing. Warning - is in intermediate state.
-
-2009-10-29 R. Bernstein <address@hidden>
-
- * dbgr-core.el, ruby/rbdbgr-core.el, ruby/rbdbgr.el: Closer to
- having command rbdbgr working.
-
-2009-10-29 R. Bernstein <address@hidden>
-
- * dbgr-core.el: Start dbgr-exec-shell and dbgr-term-sential -
- creation of an eterm shell to run debugger in.
-
-2009-10-29 rocky <address@hidden>
-
- * dbgr-file.el, dbgr-track-mode.el, dbgr-track.el,
- ruby/rbdbgr-core.el, test/test-core.el, test/test-file.el,
- test/test-load.el, test/test-loc.el, test/test-lochist.el,
- test/test-regexp.el, test/test-regexp2.el, test/test-track.el: Use
- save-current-buffer. clean up dbgr-track-mode.el and misc small
- fixes.
-
-2009-10-29 rocky <address@hidden>
-
- * dbgr-core.el, dbgr-track-mode.el, ruby/rbdbgr-core.el,
- test/behave.el, test/gcd.rb, test/test-core.el, test/test-file.el,
- test/test-load.el, test/test-loc.el, test/test-lochist.el,
- test/test-regexp.el, test/test-regexp2.el: test/behave.el: add
- expect-equal, expect-t, expect-nil and show actual + expected on
- error dbgr-core.el: move option parsing here rbdbgr-core.el: fn-name
- typo; adjust for new dbgr-core test-core.el: add more
- rbdbgr-file-mode tests
-
-2009-10-28 rocky <address@hidden>
-
- * dbgr-track-mode.el, dbgr-track.el, ruby/rbdbgr-core.el,
- ruby/rbdbgr-regexp.el, ruby/rbdbgr-track-mode.el:
- dbgr-track-mode.el: simplify mode hook code by using
- define-minor-mode macro more effectively. dbgr-track.el: we'll see if
we can get away with not having dbg-info
- global. ruby/*.el: rbdbgr-track-mode now works again
-
-2009-10-28 rocky <address@hidden(none)>
-
- * dbgr-track-mode.el, dbgr-track.el, ruby/rbdbgr-track-mode.el:
- dbgr-track-mode sets status dynamically based on debugger name.
-
-2009-10-28 rockyb <address@hidden>
-
- * autogen.sh, configure.ac, dbgr-file.el, dbgr-load.el,
- dbgr-loc.el, dbgr-scriptbuf-var.el, dbgr-track-mode.el,
- dbgr-track.el, ruby/rbdbgr-core.el, test/test-core.el:
- dbgr-track-mode minimally works.
-
-2009-10-28 rockyb <address@hidden>
-
- * Start the Grand Unified Debugger Rewrite.
-
diff --git a/packages/realgud/INSTALL.md b/packages/realgud/INSTALL.md
deleted file mode 100644
index 3990d1c..0000000
--- a/packages/realgud/INSTALL.md
+++ /dev/null
@@ -1,15 +0,0 @@
-* Have `test-simple`, `loc-changes`, `cl-lib` and `load-relative` installed.
-* From inside emacs, evaluate:
-```lisp
- (compile (format "EMACSLOADPATH=:%s:%s:%s:%s ./autogen.sh"
(file-name-directory (locate-library "test-simple.elc")) (file-name-directory
(locate-library "load-relative.elc")) (file-name-directory (locate-library
"loc-changes.elc")) (file-name-directory (locate-library "realgud.elc")) ))
- ```
-
-After this you should be able to run:
-
- $ make # byte compile everything
- $ make check # run unit tests
- $ make install # may need to prefix with sudo
-
-
-Also you can run from the source directory by running `eval-current-buffer`
-when inside to top level `realgud.el` (that's the one that is in this folder).
diff --git a/packages/realgud/Makefile.am b/packages/realgud/Makefile.am
deleted file mode 100644
index f671e72..0000000
--- a/packages/realgud/Makefile.am
+++ /dev/null
@@ -1,17 +0,0 @@
-SUBDIRS = realgud
-
-lisp_files = realgud.el
-lisp_LISP = $(lisp_files)
-include common.mk
-
-#: Run all tests
-test: check
-
-check check-short:
- $(MAKE) -C test $@
-
-#: Run "make install" non-verbosely
-install-short:
- $(MAKE) install 2>&1 | $(RUBY) test/make-check-filter.rb
-
-.PHONY: test check check-short rmChangeLog
diff --git a/packages/realgud/NEWS b/packages/realgud/NEWS
deleted file mode 100644
index e69de29..0000000
diff --git a/packages/realgud/README.md b/packages/realgud/README.md
deleted file mode 100644
index dde134c..0000000
--- a/packages/realgud/README.md
+++ /dev/null
@@ -1,110 +0,0 @@
-[![Build Status][travis-image]][travis-url]
-[![MELPA][melpa-image]][melpa]
-[![MELPA Stable][melpa-stable-image]][melpa-stable]
-
-![RealGUD logo](etc/realgud-logo.png)
-
-**A extensible, modular GNU Emacs front-end for interacting with external
debuggers**, brought to you by **Rocky Bernstein**
(address@hidden(https://github.com/rocky)) and **Clément Pit-Claudel**
(address@hidden(https://github.com/cpitclaudel)).
-
-![RealGUD screenshot](etc/realgud.png)
-
-# Setup
-
-You can install RealGUD from [MELPA](http://melpa.org/#/getting-started), a
repository of Emacs packages. If you don't have MELPA set up, add the following
to your `.emacs` and restart Emacs:
-
-```elisp
-(require 'package)
-(add-to-list 'package-archives '("melpa" . "http://melpa.org/packages/") t)
-(package-initialize)
-```
-
-You can then run the following commands to install RealGUD:
-
-```
-M-x package-refresh-contents RET (to refresh your package database)
-M-x package-install RET realgud RET (to install and compile `realgud` and
its dependencies)
-```
-
-Alternatively, you can install RealGUD using
[el-get](http://www.emacswiki.org/emacs/el-get) or from source directly. See
[this article](https://github.com/realgud/realgud/wiki/How-to-Install) in our
wiki for more info.
-
-# Quick start
-
-Use `M-x load-library RET realgud RET` to load RealGUD.
-
-## Launching the debugger
-
-Open a source file, then use `M-x realgud:<debugger-name>` to start your
favorite debugger (for example, you can use `M-x realgud:pdb` to launch PDB, a
Python debugger). RealGUD opens two windows: the *command window* (showing the
debugger's REPL), and the *source window*, showing your code (with some
debuggers, such as `realgud:gdb`, this window does not appear until you type
`start` in the *command window*). An solid arrow `▶` indicates the current
line in the source window. Grayed [...]
-
-## Using the debugger
-
-All usual debugger commands work in the command window: for example, you can
type `n RET` in the command window to step forward one source line. But
RealGUD's power lies in the source window: in it, most single keys correspond
to a debugger action. For example, you can press `n` in the source window to
step forward.
-
-## Source window commands
-
-Here is a quick rundown of the most useful commands. “🐁” indicates mouse
commands (commands that can be run by clicking on a variable or in the
margins). Many of the commands are accessible from the tool bar
(`tool-bar-mode`) and the menu (`menu-bar-mode`).
-
-* **Motion commands**
-
- | Command | Action
|
- | --------------------------------------------- |
--------------------------------------------- |
- | <kbd>n</kbd>, <kbd>F10</kbd> | Next (aka “step over”,
“step through”) |
- | <kbd>s</kbd>, <kbd>SPC</kbd>, <kbd>F11</kbd> | Step (aka “step into”)
|
- | <kbd>f</kbd>, <kbd>S-F11</kbd> | Finish (aka “step out”,
“return”) |
- | <kbd>c</kbd>, <kbd>F5</kbd> | Continue (run to next
break point) |
-
-* **Using breakpoints**
-
- | Command | Action
|
- | --------------------------------------------- |
--------------------------------------------- |
- | <kbd>b</kbd>, <kbd>F9</kbd> | Set breakpoint 🐁
|
- | <kbd>D</kbd> | Clear breakpoint 🐁 (by
number) |
-
-* **Inspecting variables**
-
- | Command | Action
|
- | --------------------------------------------- |
--------------------------------------------- |
- | <kbd>mouse-2</kbd> (middle button) | Inspect variable under
cursor (in tooltip) 🐁 |
- | <kbd>e</kbd> | Evaluate expression
|
-
-* **Control commands**
-
- | Command | Action
|
- | --------------------------------------------- |
--------------------------------------------- |
- | <kbd>q</kbd>, <kbd>S-F5</kbd> | Quit
|
- | <kbd>R</kbd>, <kbd>r</kbd> | Run (aka “restart”)
|
- | <kbd>S</kbd> | Go to command window
|
-
-# Supported debuggers
-
-RealGUD supports [many external
debuggers](https://github.com/realgud/realgud/wiki/Debuggers-Supported). Help
us [support even
more](https://github.com/realgud/realgud/wiki/How-to-add-a-new-debugger)!
-
-# Advanced topics
-
-## Extra commands
-
-“⚙” indicates a work-in-progress (contributions welcome!)
-
-| Command | Action
|
-| -------------------------------------------- |
---------------------------------------------- |
-| <kbd>U</kbd> | Until (run to a greater
source line) |
-| <kbd>u</kbd>, <kbd>></kbd> | Up stack (move to older stack
frame) |
-| <kbd>d</kbd>, <kbd><</kbd> | Down stack (move to younger
stack frame) |
-| <kbd>X</kbd> | Clear breakpoint (by line)
|
-| <kbd>j</kbd> | Jump to current line ⚙
|
-| <kbd>-</kbd> | Disable breakpoint ⚙
|
-| <kbd>+</kbd> | Enable breakpoint ⚙
|
-
-## Tracking an existing debugger process
-
-Use `M-x realgud-track-mode` inside an existing
[shell](http://www.gnu.org/software/emacs/manual/html_node/emacs/Shell.html),
or [eshell](https://www.gnu.org/software/emacs/manual/html_mono/eshell.html)
buffer to track an already-running debugger process.
-
-### RealGUD's wiki
-
-Browse the [wiki](http://wiki.github.com/realgud/realgud/) for more
information about [setting
up](http://wiki.github.com/realgud/realgud/how-to-install), [using
realgud](http://wiki.github.com/realgud/realgud/how-to-use), [exploring
features](https://github.com/realgud/realgud/wiki/Features), and lots more.
-
-[travis-image]: https://api.travis-ci.org/realgud/realgud.svg?branch=master
-[travis-url]: https://travis-ci.org/realgud/realgud
-[melpa-stable-image]: http://stable.melpa.org/packages/realgud-badge.svg
-[melpa-stable]: http://stable.melpa.org/#/realgud
-[melpa-image]: http://melpa.org/packages/realgud-badge.svg
-[melpa]: http://melpa.org/#/realgud
diff --git a/packages/realgud/THANKS b/packages/realgud/THANKS
deleted file mode 100644
index 3bac612..0000000
--- a/packages/realgud/THANKS
+++ /dev/null
@@ -1,17 +0,0 @@
-Lars Andersen (expez) - Getting this packaged and put on to Melpa. Also the
new name, realgud, is basically his idea.
-
-Anders Lindgren - The inspiration behind in an earlier incarnation of this
code, ruby-debug. Ideas like short-key-mode are his.
-
-Nick Roberts - We used some of the code for the fringe icons from gdb-mi.
-
-NYC Emacs Meetup and Nicolas Dudebout - straightening me out on
set-keymap-parent
-
-Kilian Kilger - gdb fixes
-
-Sean Farley - ipdb support
-
-Clément Pit-Claudel - improvements, bug fixes, and emacs compliance too varied
to categorize.
- See git commits for details
-
-Stefan Monnier <address@hidden> - Elisp and ELPA guidance
-amelio-vazquez-reina - documentation
diff --git a/packages/realgud/autogen.sh b/packages/realgud/autogen.sh
deleted file mode 100755
index fce38da..0000000
--- a/packages/realgud/autogen.sh
+++ /dev/null
@@ -1,12 +0,0 @@
-#!/bin/sh
-# An autoconf setup script.
-# From inside emacs, make sure test-simple is installed and then
-# Press C-x C-e at the end of the next line run this script
-# (test-simple-run "EMACSLOADPATH=%s ./autogen.sh" (mapconcat 'identity
load-path ":"))
-ln -fs README.md README
-touch common.mk
-autoreconf -vi && \
-autoconf && {
- echo "Running configure with --enable-maintainer-mode $@"
- ./configure --enable-maintainer-mode $@
-}
diff --git a/packages/realgud/common.mk.in b/packages/realgud/common.mk.in
deleted file mode 100644
index 6c10f1d..0000000
--- a/packages/realgud/common.mk.in
+++ /dev/null
@@ -1,23 +0,0 @@
-MOSTLYCLEANFILES = *.elc
-
-short:
- $(MAKE) 2>&1 >/dev/null | ruby $(top_srcdir)/make-check-filter.rb
-
-%.short:
- $(MAKE) $(@:.short=) 2>&1 >/dev/null
-
-# This is the default rule, but we need to include an EMACLOADPATH
-.el.elc:
- if test "$(EMACS)" != "no"; then \
- am__dir=. am__subdir_includes=''; \
- case $@ in */*) \
- am__dir=`echo '$@' | sed 's,/[^/]*$$,,'`; \
- am__subdir_includes="-L $$am__dir -L $(srcdir)/$$am__dir"; \
- esac; \
- test -d "$$am__dir" || $(MKDIR_P) "$$am__dir" || exit 1; \
- EMACSLOADPATH=$(EMACSLOADPATH) $(EMACS) --batch \
- $(AM_ELCFLAGS) $(ELCFLAGS) \
- $$am__subdir_includes -L $(builddir) -L $(srcdir) \
- --eval "(defun byte-compile-dest-file (f) \"address@hidden")" \
- --eval "(unless (byte-compile-file \"$<\") (kill-emacs 1))"; \
- else :; fi
diff --git a/packages/realgud/configure.ac b/packages/realgud/configure.ac
deleted file mode 100644
index 8914c39..0000000
--- a/packages/realgud/configure.ac
+++ /dev/null
@@ -1,87 +0,0 @@
-dnl FIXME: pick up from realgud.el
-AC_INIT(emacs-realgud, 1.4.3,)
-AC_CONFIG_SRCDIR(realgud.el)
-AM_INIT_AUTOMAKE([foreign])
-AM_MAINTAINER_MODE
-
-AC_PATH_PROG([EMACS], [emacs], [emacs])
-AC_ARG_WITH(emacs, AC_HELP_STRING([--with-emacs],
- [location of emacs program]), EMACS=$withval)
-
-AC_MSG_NOTICE("Checking emacs version")
-$EMACS -batch -q --no-site-file -eval \
- '(if (<= emacs-major-version 23)
- (progn
- (error "You need GNU Emacs 24 or better.")
- (kill-emacs 1)
- )
- )'
-if test $? -ne 0 ; then
- AC_MSG_ERROR([Can't continue until above error is corrected.])
-fi
-
-if test "$NO_CHECK_EMACS_PACKAGES" = "" ; then
-AC_MSG_NOTICE("Checking prerequiste packages")
-$EMACS -batch -q --no-site-file -eval \
- '(dolist (package
- (quote (cl-lib loc-changes load-relative test-simple)))
- (require package))
- )'
-fi
-if test $? -ne 0 ; then
- AC_MSG_ERROR([Can't continue until above error is corrected.])
-fi
-
-##################################################################
-# See if --with-lispdir was set. If not, set it to a reasonable default
-# based on where bash thinks bashdb is supposed to be installed.
-##################################################################
-
-AM_MISSING_PROG(GIT2CL, git2cl, $missing_dir)
-
-# Check whether --with-lispdir was given.
-if test "${with_lispdir+set}" = set; then :
-else
- my_lispdir="${datadir}/emacs/site-lisp"
- if test "${my_lispdir+set}" = set; then :
- with_lispdir=$my_lispdir
- fi
-fi
-
-##
-## Find out where to install the debugger emacs lisp files
-##
-AM_PATH_LISPDIR
-lispdir_realgud=$lispdir/realgud
-AC_SUBST([lispdir])
-AC_SUBST([lispdir_realgud])
-
-AM_CONDITIONAL(INSTALL_EMACS_LISP, test "x$lispdir_realgud" != "x")
-
-AC_CONFIG_FILES([Makefile \
- common.mk \
- realgud/Makefile \
- realgud/common/Makefile \
- realgud/common/buffer/Makefile \
- realgud/debugger/Makefile \
- realgud/debugger/bashdb/Makefile \
- realgud/debugger/gdb/Makefile \
- realgud/debugger/gub/Makefile \
- realgud/debugger/ipdb/Makefile \
- realgud/debugger/jdb/Makefile \
- realgud/debugger/kshdb/Makefile \
- realgud/debugger/nodejs/Makefile \
- realgud/debugger/perldb/Makefile \
- realgud/debugger/pdb/Makefile \
- realgud/debugger/rdebug/Makefile \
- realgud/debugger/remake/Makefile \
- realgud/debugger/trepan/Makefile \
- realgud/debugger/trepan2/Makefile \
- realgud/debugger/trepan3k/Makefile \
- realgud/debugger/trepan.pl/Makefile \
- realgud/debugger/trepanjs/Makefile \
- realgud/debugger/zshdb/Makefile \
- realgud/lang/Makefile \
- test/Makefile \
- ])
-AC_OUTPUT
diff --git a/packages/realgud/cr_exceptions.txt
b/packages/realgud/cr_exceptions.txt
deleted file mode 100644
index e69de29..0000000
diff --git a/packages/realgud/elisp-comp b/packages/realgud/elisp-comp
deleted file mode 100755
index 8277552..0000000
--- a/packages/realgud/elisp-comp
+++ /dev/null
@@ -1,93 +0,0 @@
-#!/bin/sh
-# Copyright (C) 1995-2012 Free Software Foundation, Inc.
-
-scriptversion=2014-02-09.22; # UTC
-
-# Franc,ois Pinard <address@hidden>, 1995.
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2, or (at your option)
-# any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-# As a special exception to the GNU General Public License, if you
-# distribute this file as part of a program that contains a
-# configuration script generated by Autoconf, you may include it under
-# the same distribution terms that you use for the rest of that program.
-
-# This file is maintained in Automake, please report
-# bugs to <address@hidden> or send patches to
-# <address@hidden>.
-
-case $1 in
- '')
- echo "$0: No files. Try '$0 --help' for more information." 1>&2
- exit 1;
- ;;
- -h | --h*)
- cat <<\EOF
-Usage: elisp-comp [--help] [--version] FILES...
-
-This script byte-compiles all '.el' files listed as FILES using GNU
-Emacs, and put the resulting '.elc' files into the current directory,
-so disregarding the original directories used in '.el' arguments.
-
-This script manages in such a way that all Emacs LISP files to
-be compiled are made visible between themselves, in the event
-they require or load-library one another.
-
-Report bugs to <address@hidden>.
-EOF
- exit $?
- ;;
- -v | --v*)
- echo "elisp-comp $scriptversion"
- exit $?
- ;;
-esac
-
-if test -z "$EMACS" || test "$EMACS" = "t"; then
- # Value of "t" means we are running in a shell under Emacs.
- # Just assume Emacs is called "emacs".
- EMACS=emacs
-fi
-
-tempdir=elc.$$
-
-# Cleanup the temporary directory on exit.
-trap 'ret=$?; rm -rf "$tempdir" && exit $ret' 0
-do_exit='(exit $ret); exit $ret'
-trap "ret=129; $do_exit" 1
-trap "ret=130; $do_exit" 2
-trap "ret=141; $do_exit" 13
-trap "ret=143; $do_exit" 15
-
-# mkdir $tempdir
-# cp "$@" $tempdir
-
-(
- # cd $tempdir
- echo "(setq load-path (cons nil (cons \"$abs_srcdir\" load-path)))" > script
- $EMACS -batch -q -l script -f batch-byte-compile-if-not-done *.el || exit $?
- # mv *.elc ..
-) || exit $?
-
-(exit 0); exit 0
-
-# Local Variables:
-# mode: shell-script
-# sh-indentation: 2
-# eval: (add-hook 'write-file-hooks 'time-stamp)
-# time-stamp-start: "scriptversion="
-# time-stamp-format: "%:y-%02m-%02d.%02H"
-# time-stamp-time-zone: "UTC"
-# time-stamp-end: "; # UTC"
-# End:
diff --git a/packages/realgud/etc/.nosearch b/packages/realgud/etc/.nosearch
deleted file mode 100644
index e69de29..0000000
diff --git a/packages/realgud/etc/realgud-logo-square.png
b/packages/realgud/etc/realgud-logo-square.png
deleted file mode 100644
index d6a5d40..0000000
Binary files a/packages/realgud/etc/realgud-logo-square.png and /dev/null differ
diff --git a/packages/realgud/etc/realgud-logo.png
b/packages/realgud/etc/realgud-logo.png
deleted file mode 100644
index c1349ce..0000000
Binary files a/packages/realgud/etc/realgud-logo.png and /dev/null differ
diff --git a/packages/realgud/etc/realgud-logo.svg
b/packages/realgud/etc/realgud-logo.svg
deleted file mode 100644
index 99ad3fc..0000000
--- a/packages/realgud/etc/realgud-logo.svg
+++ /dev/null
@@ -1,106 +0,0 @@
-<?xml version="1.0" encoding="UTF-8" standalone="no"?>
-<svg
- xmlns:dc="http://purl.org/dc/elements/1.1/"
- xmlns:cc="http://creativecommons.org/ns#"
- xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
- xmlns:svg="http://www.w3.org/2000/svg"
- xmlns="http://www.w3.org/2000/svg"
- xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"
- xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"
- xml:space="preserve"
- id="svg4768"
- viewBox="0.171 0.201 2880.0002 640"
- height="60"
- width="270"
- version="1.0"
- inkscape:version="0.91 r"
- sodipodi:docname="realgud.svg"
- inkscape:export-filename="/home/clement/desktop/realgud.png"
- inkscape:export-xdpi="180"
- inkscape:export-ydpi="180"><sodipodi:namedview
- pagecolor="#ffffff"
- bordercolor="#666666"
- borderopacity="1"
- objecttolerance="10"
- gridtolerance="10"
- guidetolerance="10"
- inkscape:pageopacity="0"
- inkscape:pageshadow="2"
- inkscape:window-width="1920"
- inkscape:window-height="1030"
- id="namedview72"
- showgrid="false"
- inkscape:zoom="4"
- inkscape:cx="115.47042"
- inkscape:cy="38.714008"
- inkscape:window-x="0"
- inkscape:window-y="0"
- inkscape:window-maximized="1"
- inkscape:current-layer="svg4768"
- fit-margin-top="3"
- fit-margin-left="3"
- fit-margin-right="3"
- fit-margin-bottom="3" />
-<!-- Parts of this image extracted from GNU Emacs' icon (the white wave-like
shape) -->
-<defs
- id="defs4770" /><rect
- style="display:none;fill:none"
- id="rect4772"
- y="101.52715"
- x="-665.96661"
- height="512"
- width="512" /><g
- style="display:none"
- id="g4788"
- transform="translate(-666.13763,101.32614)"><g
- style="display:inline"
- id="g4790" /></g><g
- style="display:none"
- id="g4806"
- transform="translate(-666.13763,101.32614)"><g
- style="display:inline"
- id="g4808"><path
- style="display:none;fill:#050505"
- id="path4810"
- d="m 349.098,256.651 c -0.265,-0.254 37.637,27.605 39.421,25.012
6.362,-9.252 82.046,-93.137 84.784,-116.236 0.242,-2.003 -0.516,-4.096
-0.516,-4.096 0,0 -1.19,-0.144 -6.325,-4.314 -2.692,-2.192 -5.483,-4.581
-5.483,-4.581 -16.054,0.998 -57.885,41.559 -111.062,103.568"
- inkscape:connector-curvature="0" /></g></g><text
- xml:space="preserve"
-
style="font-style:normal;font-variant:normal;font-weight:500;font-stretch:normal;font-size:688.39953613px;line-height:125%;font-family:Ubuntu;-inkscape-font-specification:'Ubuntu
Medium';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"
- x="-25.458374"
- y="569.73444"
- id="text3492"
- sodipodi:linespacing="125%"><tspan
- sodipodi:role="line"
- id="tspan3494"
- x="-25.458374"
- y="569.73444"
-
style="font-style:normal;font-variant:normal;font-weight:500;font-stretch:normal;font-family:Ubuntu;-inkscape-font-specification:'Ubuntu
Medium';fill:#000000">R</tspan></text>
-<g
- id="g3515"
- transform="matrix(0.89624184,0,0,0.89624184,406.60585,174.82476)"
- inkscape:export-xdpi="349.85999"
- inkscape:export-ydpi="349.85999"><path
-
style="opacity:1;fill:#000000;fill-opacity:1;stroke:none;stroke-width:13.33816814;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
- id="path4235-9"
- d="m 501.09769,256.201 c 0,136.65118 -109.6574,247.42885
-244.92663,247.42885 -135.26924,0 -244.92675,-110.77767 -244.92675,-247.42886
0,-136.6512 109.65751,-247.4288435 244.92675,-247.4288435 135.26923,0
244.92663,110.7776435 244.92663,247.4288435 z"
- inkscape:connector-curvature="0" /><path
-
style="opacity:1;fill:#a40000;fill-opacity:1;stroke:#ffffff;stroke-width:13.33816814;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
- id="path4235"
- d="m 489.28614,256.20099 c 0,130.06122 -104.36919,235.49665
-233.11509,235.49665 -128.7459,0 -233.1152,-105.43543 -233.1152,-235.49665
0,-130.06122 104.3693,-235.496645 233.1152,-235.496645 128.7459,0
233.11509,105.435425 233.11509,235.496645 z"
- inkscape:connector-curvature="0" /><path
-
style="fill:#ffffff;fill-opacity:1;fill-rule:evenodd;stroke:#000000;stroke-width:0;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1"
- id="path4237"
- d="m 175.0003,422.31057 c 0,0 19.7385,1.39634 45.1312,-0.84159
10.2834,-0.9063 49.3267,-4.74128 78.5169,-11.14289 0,0 35.5899,-7.61669
54.6301,-14.63335 19.9225,-7.34185 30.7636,-13.57304 35.6433,-22.40243
-0.2128,-1.80907 1.5024,-8.22438 -7.685,-12.07788 -23.4887,-9.85199
-50.73,-8.06998 -104.6338,-9.21285 -59.7772,-2.05391 -79.6627,-12.05971
-90.2556,-20.11838 -10.1579,-8.17519 -5.05,-30.79254 38.4742,-50.71499
21.9244,-10.60898 107.8705,-30.18698 107.8705,-30.18698 -28.9451,-14 [...]
- inkscape:connector-curvature="0" /></g><text
- xml:space="preserve"
-
style="font-style:normal;font-variant:normal;font-weight:500;font-stretch:normal;font-size:688.3994751px;line-height:125%;font-family:Ubuntu;-inkscape-font-specification:'Ubuntu
Medium';letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"
- x="860.70557"
- y="569.73444"
- id="text3492-3"
- sodipodi:linespacing="125%"><tspan
- sodipodi:role="line"
- id="tspan3494-6"
- x="860.70557"
- y="569.73444"
-
style="font-style:normal;font-variant:normal;font-weight:500;font-stretch:normal;font-family:Ubuntu;-inkscape-font-specification:'Ubuntu
Medium';fill:#000000">alGUD</tspan></text>
-</svg>
diff --git a/packages/realgud/etc/realgud.png b/packages/realgud/etc/realgud.png
deleted file mode 100644
index 6e8c4e9..0000000
Binary files a/packages/realgud/etc/realgud.png and /dev/null differ
diff --git a/packages/realgud/etc/screenshot.el
b/packages/realgud/etc/screenshot.el
deleted file mode 100644
index ef19a46..0000000
--- a/packages/realgud/etc/screenshot.el
+++ /dev/null
@@ -1,100 +0,0 @@
-;;; Prepare a RealGUD screenshot
-
-;; Copyright (C) 2016 Free Software Foundation, Inc
-
-;; Author: Clément Pit--Claudel
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-;; Run ‘cask exec emacs -Q -L . -l etc/screenshot.el’ from the project's root
to
-;; build a screenshot.
-
-(defvar my/fringe-width 12)
-
-(defun my/cleanup ()
- (dolist (buffer (buffer-list))
- (kill-buffer buffer)))
-
-(defun my/prepare-UI ()
- "Prepare UI for taking a screenshot."
- (ido-mode)
- (tool-bar-mode)
- (menu-bar-mode -1)
- (scroll-bar-mode -1)
- (column-number-mode)
- (fringe-mode (cons my/fringe-width my/fringe-width))
- (blink-cursor-mode -1)
- (setq-default cursor-type 'bar
- split-width-threshold 80
- truncate-partial-width-windows t
- frame-title-format (format "RealGUD:PDB @ Emacs %s"
emacs-version)
- x-gtk-use-system-tooltips nil)
- (load-theme 'tango t)
- ;; (set-face-attribute 'tooltip nil :height 60)
- (set-face-attribute 'match nil :background "yellow1")
- (set-face-attribute 'default nil :family "Ubuntu Mono" :height 90)
- (set-face-attribute 'mode-line nil :foreground "gray60" :background "black")
- (set-face-attribute 'mode-line-inactive nil :foreground "gray60" :background
"#404045")
- (set-face-attribute 'mode-line-buffer-id nil :foreground "#eab700")
- (set-fontset-font t 'unicode "Ubuntu Mono")
- (set-frame-size nil 140 20)
- (redisplay t))
-
-(defun my/load-RealGUD ()
- "Load RealGUD."
- (package-initialize)
- (load-library "realgud")
- (setq realgud-bp-fringe-indicator-style
- '(realgud-bp-filled . realgud-bp-hollow)))
-
-(defvar my/source-buffer nil)
-(defvar my/command-buffer nil)
-
-(defun my/load-example ()
- "Prepare an example file and start the debugger."
- (save-window-excursion
- (find-file "realgud/common/fringe-utils.py")
- (setq my/source-buffer (current-buffer))
- (hl-line-mode 1)
- (realgud:pdb (format "python3 -m pdb %S" buffer-file-name))
- (sit-for 3) ;; Give PDB some time to start
- (setq my/command-buffer (current-buffer))
- (font-lock-add-keywords ;; Hide default directory
- nil `((,(regexp-quote default-directory) 0 '(face nil display "<demo>/")
append)) t)
- (font-lock-mode 1))
- (switch-to-buffer my/source-buffer)
- (set-window-buffer (split-window-horizontally) my/command-buffer))
-
-(defun my/prepare-screenshot-1 ()
- "Prepare for taking a screenshot."
- (my/prepare-UI)
- (my/load-RealGUD)
- (my/load-example)
- (with-current-buffer my/source-buffer
- (dolist (line '(4 12 17))
- (goto-char (point-min))
- (forward-line (1- line))
- (realgud:cmd-break nil)
- (sit-for 1)))
- (goto-char (point-min))
- (recenter-top-bottom 0)
- (realgud:cmd-next)
- (sit-for 1)
- (realgud:cmd-continue)
- (sit-for 1)
- (hl-line-highlight)
- (set-window-start (get-buffer-window my/command-buffer) 1)
- (message nil))
-
-(print default-directory)
-(run-with-idle-timer 0 nil #'my/prepare-screenshot-1)
diff --git a/packages/realgud/install-from-git.sh
b/packages/realgud/install-from-git.sh
deleted file mode 100755
index 76d5c3c..0000000
--- a/packages/realgud/install-from-git.sh
+++ /dev/null
@@ -1,105 +0,0 @@
-#!/bin/bash
-
-# This installs all realgud and its prerequisites. If you are lucky
-# you can just run this:
-#
-# bash ./install-from-git.sh
-#
-# However we do provide for some customization...
-#
-# 1. GIT PROTOCOL
-# ===============
-#
-# If your "git clone" can't handle the "http" protocol, you might be
-# able to use the "git" protocol. To do this set the GIT_PROTOCOL
-# variable like this:
-#
-# GIT_PROTOCOL=git sh ./install-from-git.sh
-#
-# 2. configure options (e.g --prefix)
-# ====================================
-
-# If you want to customize configuration parameters, for example,
-# choose where to install, you can pass configure options to this
-# script. For example:# can pass configure options.
-#
-# sh ./install-from-git.sh --prefix=/tmp
-#
-# 3. TO "sudo" or not to "sudo"?
-# ==============================
-# If you are running as root on a *Nix-like box, then there's no problem.
-#
-# If you are not running as root, "sudo" might be invoked to install
-# code. On systems that don't have a "sudo" command but need
-# filesystem permission, then you get by with setting SUDO_CMD to "su root-c"
-# For example:
-#
-# SUDO_CMD='su root -c' sh ./install-from-git.sh
-#
-# If you have sufficient filesystem permission (which is often the
-# case on Windows or cygwin) then you might not need or want sudo. So
-# here, set SUDO_CMD to a blank:
-#
-# SUDO_CMD=' ' sh ./install-from-git.sh
-#
-#
-# To finish here is an invocation using all 3 above options:
-# GIT_PROTOCOL='git' SUDO_CMD=' ' sh ./install-from-git.sh --prefix=/tmp
-
-GIT_PROTOCOL=${GIT_PROTOCOL:-https}
-MAKE=${MAKE:-make}
-
-# Run and echo a command
-run_cmd() {
- echo "--- Running command: $@"
- $@
- rc=$?
- echo "--- $@ exit status is $?"
- return $rc
-}
-
-# environment variable SUDO_CMD could be "sudo" or "su root -c" or " "
-# for don't need sudo
-
-if (( $(id -u) != 0)) ; then
- if [[ -z "$SUDO_CMD" ]] ; then
- need_sudo='sudo'
- if which $need_sudo >/dev/null 2>&1 ; then
- try_cmd=''
- else
- need_sudo='su root -c'
- try_cmd='su'
- fi
- else
- need_sudo="$SUDO_CMD"
- fi
-else
- need_sudo=''
- try_cmd=''
-fi
-
-for program in git make $try_cmd ; do
- if ! which $program >/dev/null 2>&1 ; then
- echo 2>&1 "Can't find program $program in $PATH"
- exit 1
- fi
-done
-
-cd /tmp
-for pkg in rocky/emacs-{test-simple,load-relative,loc-changes} realgud/realgud
; do
- echo '******************************************'
- echo Trying to install ${pkg}...
- echo '******************************************'
- pkg_short=$(basename $pkg)
- if [[ -d $pkg_short ]]; then
- run_cmd $need_sudo rm -fr $pkg_short
- fi
- run_cmd git clone ${GIT_PROTOCOL}://github.com/${pkg}.git
- (cd $pkg_short && \
- run_cmd $SHELL ./autogen.sh && \
- run_cmd ./configure $@ && \
- run_cmd ${MAKE} && \
- run_cmd ${MAKE} check && \
- run_cmd $need_sudo ${MAKE} install
- )
-done
diff --git a/packages/realgud/realgud-recursive-autoloads.el
b/packages/realgud/realgud-recursive-autoloads.el
deleted file mode 100644
index 63539c5..0000000
--- a/packages/realgud/realgud-recursive-autoloads.el
+++ /dev/null
@@ -1,1300 +0,0 @@
-;;; realgud-recursive-autoloads.el --- automatically extracted autoloads
-;;
-;;; Code:
-
-
-;;;### (autoloads nil "realgud/common/backtrace-mode"
"realgud/common/backtrace-mode.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/common/backtrace-mode.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/common/backtrace-mode" '("realgud-backtrace-mode-map"
"realgud-backtrace-mode" "realgud:frames-menu")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/common/backtrack-mode"
"realgud/common/backtrack-mode.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/common/backtrack-mode.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/common/backtrack-mode" '("realgud-backtrack-set-debugger"
"realgud-backtrack-mode" "realgud-backtrack-mode-map"
"realgud-backtrack-mode-vars")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/common/bp" "realgud/common/bp.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/common/bp.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/common/bp" '("realgud-bp-")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/common/bp-image-data"
"realgud/common/bp-image-data.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/common/bp-image-data.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/common/bp-image-data" '("realgud-bp-disabled-"
"realgud-bp-enabled-tiff-data" "realgud-bp-enabled-svg-data"
"realgud-bp-enabled-pbm-data" "realgud-bp-xpm-data")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/common/buffer/backtrace"
"realgud/common/buffer/backtrace.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/common/buffer/backtrace.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/common/buffer/backtrace" '("realgud-backtrace-" "realgud-goto-"
"realgud:backtrace-" "realgud-track-divert-string" "realgud-backtrace?")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/common/buffer/command"
"realgud/common/buffer/command.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/common/buffer/command.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/common/buffer/command" '("realgud-cmdbuf-"
"realgud:cmdbuf-buffers-describe" "realgud:cmdbuf-info-describe"
"realgud-cmdbuf?")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/common/buffer/helper"
"realgud/common/buffer/helper.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/common/buffer/helper.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/common/buffer/helper" '("realgud:srcbuf-info-describe"
"realgud-get-process" "realgud-get-srcbuf-from-cmdbuf"
"realgud-get-cmdbuf-from-srcbuf" "realgud-get-cmdbuf-from-backtrace")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/common/buffer/info"
"realgud/common/buffer/info.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/common/buffer/info.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/common/buffer/info" '("realgud:info-mode-hook" "realgud:info-mode"
"realgud-backtrace-info")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/common/buffer/source"
"realgud/common/buffer/source.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/common/buffer/source.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/common/buffer/source" '("realgud-srcbuf-" "realgud-srcbuf?")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/common/cmds" "realgud/common/cmds.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/common/cmds.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/common/cmds" '("realgud-safe-mode" "realgud:cmd-quit"
"realgud:cmd-terminate")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/common/core" "realgud/common/core.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/common/core.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/common/core" '("realgud-" "realgud:")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/common/custom" "realgud/common/custom.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/common/custom.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/common/custom" '("realgud-srcbuf-lock" "realgud-key-prefix")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/common/eval" "realgud/common/eval.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/common/eval.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/common/eval" '("realgud:tooltip-eval" "realgud:eval-process-output")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/common/file" "realgud/common/file.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/common/file.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/common/file" '("realgud-file-remap")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/common/fringe" "realgud/common/fringe.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/common/fringe.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/common/fringe" '("realgud-overlay-"
"realgud-fringe-erase-history-arrows" "realgud-fringe-history-set"
"realgud-fringe-set-arrow")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/common/helper" "realgud/common/helper.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/common/helper.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/common/helper" '("realgud-" "with-current-buffer-safe"
"buffer-killed?" "realgud:debugger-name-transform" "fn-p-to-fn?-alias")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/common/init" "realgud/common/init.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/common/init.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/common/init" '("realgud-line-number-face"
"realgud-backtrace-number-face" "realgud-file-name-face")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/common/key" "realgud/common/key.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/common/key.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/common/key" '("realgud-populate-src-buffer-map-plain"
"realgud-populate-common-keys" "realgud-populate-common-fn-keys-function"
"realgud-populate-common-fn-keys-standard")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/common/lang" "realgud/common/lang.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/common/lang.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/common/lang" '("realgud-suggest-lang-file" "realgud-lang-mode?"
"realgud:suggest-file-from-buffer")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/common/loc" "realgud/common/loc.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/common/loc.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/common/loc" '("realgud-loc?" "realgud-loc" "realgud:loc-describe")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/common/lochist" "realgud/common/lochist.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/common/lochist.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/common/lochist" '("realgud-loc-hist-" "realgud-loc-hist")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/common/menu" "realgud/common/menu.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/common/menu.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/common/menu" '("realgud-menu-item" "realgud-populate-debugger-menu")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/common/regexp" "realgud/common/regexp.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/common/regexp.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/common/regexp" '("realgud:regexp-captured-num"
"realgud:variable-basename-hash" "realgud-loc-pat" "realgud-pat-hash"
"realgud-command-hash")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/common/reset" "realgud/common/reset.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/common/reset.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/common/reset" '("realgud:reset")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/common/run" "realgud/common/run.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/common/run.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/common/run" '("realgud:run-debugger")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/common/send" "realgud/common/send.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/common/send.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/common/send" '("realgud:send-" "realgud-send-"
"comint-output-filter-orig" "realgud-expand-format" "realgud-command")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/common/shortkey" "realgud/common/shortkey.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/common/shortkey.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/common/shortkey" '("realgud:goto-loc-hist-" "realgud-short-key-"
"realgud:shortkey-mode-map" "realgud-get-short-key-mode-map"
"realgud-populate-src-buffer-map")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/common/track" "realgud/common/track.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/common/track.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/common/track" '("realgud-goto-line-for-" "realgud-track-"
"realgud:goto-" "realgud-short-key-on-tracing?" "realgud:track-set-debugger")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/common/track-mode"
"realgud/common/track-mode.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/common/track-mode.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/common/track-mode" '("realgud-track-mode" "realgud:tool-bar-map"
"realgud-track-mode-map" "realgud-track-mode-setup" "realgud-track-mode-vars")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/common/utils" "realgud/common/utils.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/common/utils.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/common/utils" '("realgud:strip" "realgud:flatten")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/common/window" "realgud/common/window.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/common/window.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/common/window" '("realgud:window-bt-undisturb-src"
"realgud-window-cmd-undisturb-src" "realgud-window-src-undisturb-cmd"
"realgud-window-src" "realgud-window-update-position")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/bashdb/bashdb"
"realgud/debugger/bashdb/bashdb.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/bashdb/bashdb.el
-
-(autoload 'realgud:bashdb "realgud/debugger/bashdb/bashdb" "\
-Invoke the bashdb shell debugger and start the Emacs user interface.
-
-String OPT-CMD-LINE specifies how to run bash. You will be prompted
-for a command line is one isn't supplied.
-
-OPT-CMD-LINE is treated like a shell string; arguments are
-tokenized by `split-string-and-unquote'. The tokenized string is
-parsed by `bashdb-parse-cmd-args' and path elements found by that
-are expanded using `realgud:expand-file-name-if-exists'.
-
-Normally, command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset. See `loc-changes-clear-buffer' to clear
-fringe and marginal icons.
-
-\(fn &optional OPT-CMD-LINE NO-RESET)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/bashdb/bashdb" '("realgud:bashdb-command-name" "bashdb")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/bashdb/core"
"realgud/debugger/bashdb/core.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/bashdb/core.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/bashdb/core" '("realgud:bashdb-" "bashdb-query-cmdline"
"bashdb-parse-cmd-args" "bashdb-suggest-invocation" "bashdb-reset")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/bashdb/init"
"realgud/debugger/bashdb/init.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/bashdb/init.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/bashdb/init" '("realgud:bashdb-pat-hash"
"realgud:bashdb-command-hash")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/bashdb/track-mode"
"realgud/debugger/bashdb/track-mode.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/bashdb/track-mode.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/bashdb/track-mode" '("bashdb-track-mode")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/gdb/core"
"realgud/debugger/gdb/core.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/gdb/core.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/gdb/core" '("realgud:gdb-")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/gdb/gdb" "realgud/debugger/gdb/gdb.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/gdb/gdb.el
-
-(autoload 'realgud:gdb "realgud/debugger/gdb/gdb" "\
-Invoke the gdb debugger and start the Emacs user interface.
-
-OPT-CMD-LINE is treated like a shell string; arguments are
-tokenized by `split-string-and-unquote'.
-
-Normally, command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset. See `loc-changes-clear-buffer' to clear
-fringe and marginal icons.
-
-\(fn &optional OPT-CMD-LINE NO-RESET)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/gdb/gdb" '("realgud:gdb-pid-associate"
"realgud:gdb-pid-command-buffer" "realgud:gdb-pid"
"realgud:gdb-find-command-buffer" "realgud:gdb-command-name")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/gdb/init"
"realgud/debugger/gdb/init.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/gdb/init.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/gdb/init" '("realgud:gdb-frame-num-regexp"
"realgud:gdb-frame-start-regexp" "realgud:gdb-frame-file-regexp"
"realgud:gdb-command-hash" "realgud:gdb-pat-hash")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/gdb/track-mode"
"realgud/debugger/gdb/track-mode.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/gdb/track-mode.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/gdb/track-mode" '("realgud:gdb-track-mode")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/gub/core"
"realgud/debugger/gub/core.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/gub/core.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/gub/core" '("realgud:gub-" "gub-query-cmdline"
"gub-parse-cmd-args" "gub-suggest-invocation" "gub-reset")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/gub/gub" "realgud/debugger/gub/gub.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/gub/gub.el
-
-(autoload 'realgud-gub "realgud/debugger/gub/gub" "\
-Invoke the Go SSA debugger, gub and start the Emacs user interface.
-
-String COMMAND-LINE specifies how to run gub.
-
-Normally command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset.
-
-\(fn &optional OPT-COMMAND-LINE NO-RESET)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/gub/gub" '("realgud:gub-command-name" "realgud-gub-fn"
"gub")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/gub/init"
"realgud/debugger/gub/init.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/gub/init.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/gub/init" '("realgud:gub-frame-" "realgud:gub-command-hash"
"realgud:gub-selected-frame-arrow" "realgud:gub-pat-hash")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/gub/track-mode"
"realgud/debugger/gub/track-mode.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/gub/track-mode.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/gub/track-mode" '("realgud:gub-goto-panic-location"
"realgud:gub-goto-location" "gub-track-mode")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/ipdb/core"
"realgud/debugger/ipdb/core.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/ipdb/core.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/ipdb/core" '("realgud:ipdb-" "ipdb-parse-" "ipdb-reset"
"ipdb-suggest-invocation" "ipdb-query-cmdline")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/ipdb/init"
"realgud/debugger/ipdb/init.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/ipdb/init.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/ipdb/init" '("realgud:ipdb-pat-hash"
"realgud:ipdb-command-hash")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/ipdb/ipdb"
"realgud/debugger/ipdb/ipdb.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/ipdb/ipdb.el
-
-(autoload 'realgud:ipdb "realgud/debugger/ipdb/ipdb" "\
-Invoke the ipdb Python debugger and start the Emacs user interface.
-
-String OPT-CMD-LINE specifies how to run ipdb. You will be prompted
-for a command line is one isn't supplied.
-
-OPT-COMMAND-LINE is treated like a shell string; arguments are
-tokenized by `split-string-and-unquote'. The tokenized string is
-parsed by `ipdb-parse-cmd-args' and path elements found by that
-are expanded using `realgud:expand-file-name-if-exists'.
-
-Normally, command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset. See `loc-changes-clear-buffer' to clear
-fringe and marginal icons.
-
-\(fn &optional OPT-CMD-LINE NO-RESET)" t nil)
-
-(autoload 'realgud:ipdb-remote "realgud/debugger/ipdb/ipdb" "\
-Invoke the ipdb Python debugger and start the Emacs user interface.
-
-String OPT-CMD-LINE specifies how to run ipdb. You will be prompted
-for a command line is one isn't supplied.
-
-OPT-COMMAND-LINE is treated like a shell string; arguments are
-tokenized by `split-string-and-unquote'. The tokenized string is
-parsed by `ipdb-parse-remote-cmd-args' and path elements found by that
-are expanded using `realgud:expand-file-name-if-exists'.
-
-Normally, command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset. See `loc-changes-clear-buffer' to clear
-fringe and marginal icons.
-
-\(fn &optional OPT-CMD-LINE NO-RESET)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/ipdb/ipdb" '("realgud:ipdb-command-name" "ipdb")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/ipdb/track-mode"
"realgud/debugger/ipdb/track-mode.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/ipdb/track-mode.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/ipdb/track-mode" '("ipdb-track-mode")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/jdb/backtrack-mode"
"realgud/debugger/jdb/backtrack-mode.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/jdb/backtrack-mode.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/jdb/backtrack-mode" '("realgud:jdb-goto-control-frame-line"
"jdb-backtrack-mode")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/jdb/core"
"realgud/debugger/jdb/core.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/jdb/core.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/jdb/core" '("realgud:jdb-" "jdb-reset"
"jdb-suggest-invocation")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/jdb/file"
"realgud/debugger/jdb/file.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/jdb/file.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/jdb/file" '("gud-jdb-")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/jdb/init"
"realgud/debugger/jdb/init.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/jdb/init.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/jdb/init" '("realgud:jdb-")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/jdb/jdb" "realgud/debugger/jdb/jdb.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/jdb/jdb.el
-
-(autoload 'realgud:jdb "realgud/debugger/jdb/jdb" "\
-Invoke the Java jdb debugger and start the Emacs user interface.
-
-String OPT-CMD-LINE is treated like a shell string; arguments are
-tokenized by `split-string-and-unquote'. The tokenized string is
-parsed by `jdb-parse-cmd-args' and path elements found by that
-are expanded using `expand-file-name'.
-
-Normally, command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset. See `loc-changes-clear-buffer' to clear
-fringe and marginal icons.
-
-\(fn &optional OPT-CMD-LINE NO-RESET)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/jdb/jdb" '("realgud:jdb-command-name" "jdb")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/jdb/track-mode"
"realgud/debugger/jdb/track-mode.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/jdb/track-mode.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/jdb/track-mode" '("realgud:jdb-track-mode"
"realgud:jdb-goto-control-frame-line" "realgud:jdb-goto-syntax-error-line")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/kshdb/core"
"realgud/debugger/kshdb/core.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/kshdb/core.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/kshdb/core" '("realgud:kshdb-" "kshdb-query-cmdline"
"kshdb-parse-cmd-args" "kshdb-suggest-invocation" "kshdb-reset")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/kshdb/init"
"realgud/debugger/kshdb/init.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/kshdb/init.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/kshdb/init" '("realgud:kshdb-pat-hash"
"realgud:kshdb-command-hash")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/kshdb/kshdb"
"realgud/debugger/kshdb/kshdb.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/kshdb/kshdb.el
-
-(autoload 'realgud:kshdb "realgud/debugger/kshdb/kshdb" "\
-Invoke the Korn shell debugger, kshdb, and start the Emacs user interface.
-
-String COMMAND-LINE specifies how to run kshdb.
-
-Normally command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset.
-
-\(fn &optional OPT-COMMAND-LINE NO-RESET)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/kshdb/kshdb" '("realgud:kshdb-command-name" "kshdb")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/kshdb/track-mode"
"realgud/debugger/kshdb/track-mode.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/kshdb/track-mode.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/kshdb/track-mode" '("kshdb-track-mode")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/nodejs/core"
"realgud/debugger/nodejs/core.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/nodejs/core.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/nodejs/core" '("realgud:nodejs-" "nodejs-query-cmdline"
"nodejs-parse-cmd-args")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/nodejs/init"
"realgud/debugger/nodejs/init.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/nodejs/init.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/nodejs/init" '("realgud:nodejs-frame-"
"realgud:nodejs-pat-hash" "realgud:nodejs-debugger-name"
"realgud:nodejs-command-hash")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/nodejs/nodejs"
"realgud/debugger/nodejs/nodejs.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/nodejs/nodejs.el
-
-(autoload 'realgud:nodejs "realgud/debugger/nodejs/nodejs" "\
-Invoke the nodejs shell debugger and start the Emacs user interface.
-
-String OPT-CMD-LINE specifies how to run nodejs.
-
-OPT-CMD-LINE is treated like a shell string; arguments are
-tokenized by `split-string-and-unquote'. The tokenized string is
-parsed by `nodejs-parse-cmd-args' and path elements found by that
-are expanded using `realgud:expand-file-name-if-exists'.
-
-Normally, command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset. See `loc-changes-clear-buffer' to clear
-fringe and marginal icons.
-
-\(fn &optional OPT-CMD-LINE NO-RESET)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/nodejs/nodejs" '("realgud:nodejs-command-name")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/nodejs/track-mode"
"realgud/debugger/nodejs/track-mode.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/nodejs/track-mode.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/nodejs/track-mode" '("realgud:nodejs-track-mode-internal"
"nodejs-track-mode")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/pdb/core"
"realgud/debugger/pdb/core.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/pdb/core.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/pdb/core" '("realgud:pdb-" "pdb-parse-" "pdb-reset"
"pdb-suggest-invocation" "pdb-query-cmdline")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/pdb/init"
"realgud/debugger/pdb/init.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/pdb/init.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/pdb/init" '("realgud:pdb-pat-hash"
"realgud:pdb-command-hash")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/pdb/pdb" "realgud/debugger/pdb/pdb.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/pdb/pdb.el
-
-(autoload 'realgud:pdb "realgud/debugger/pdb/pdb" "\
-Invoke the pdb Python debugger and start the Emacs user interface.
-
-String OPT-CMD-LINE specifies how to run pdb. You will be prompted
-for a command line is one isn't supplied.
-
-OPT-COMMAND-LINE is treated like a shell string; arguments are
-tokenized by `split-string-and-unquote'. The tokenized string is
-parsed by `pdb-parse-cmd-args' and path elements found by that
-are expanded using `realgud:expand-file-name-if-exists'.
-
-Normally, command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset. See `loc-changes-clear-buffer' to clear
-fringe and marginal icons.
-
-\(fn &optional OPT-CMD-LINE NO-RESET)" t nil)
-
-(autoload 'realgud:pdb-remote "realgud/debugger/pdb/pdb" "\
-Invoke the pdb Python debugger and start the Emacs user interface.
-
-String OPT-CMD-LINE specifies how to run pdb. You will be prompted
-for a command line is one isn't supplied.
-
-OPT-COMMAND-LINE is treated like a shell string; arguments are
-tokenized by `split-string-and-unquote'. The tokenized string is
-parsed by `pdb-parse-remote-cmd-args' and path elements found by that
-are expanded using `realgud:expand-file-name-if-exists'.
-
-Normally, command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset. See `loc-changes-clear-buffer' to clear
-fringe and marginal icons.
-
-\(fn &optional OPT-CMD-LINE NO-RESET)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/pdb/pdb" '("realgud:pdb-command-name" "pdb")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/pdb/track-mode"
"realgud/debugger/pdb/track-mode.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/pdb/track-mode.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/pdb/track-mode" '("pdb-track-mode")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/perldb/core"
"realgud/debugger/perldb/core.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/perldb/core.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/perldb/core" '("realgud:perldb-")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/perldb/init"
"realgud/debugger/perldb/init.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/perldb/init.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/perldb/init" '("realgud:perldb-loc-regexp"
"realgud:perldb-loc-noeval-regexp" "realgud:perldb-loc-eval-regexp"
"realgud:perldb-command-hash" "realgud:perldb-pat-hash")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/perldb/perldb"
"realgud/debugger/perldb/perldb.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/perldb/perldb.el
-
-(autoload 'realgud:perldb "realgud/debugger/perldb/perldb" "\
-Invoke the Perl debugger and start the Emacs user interface.
-
-String OPT-CMD-LINE specifies how to run nodejs.
-
-OPT-CMD-LINE is treated like a shell string; arguments are
-tokenized by `split-string-and-unquote'. The tokenized string is
-parsed by `perldb-parse-cmd-args' and path elements found by that
-are expanded using `realgud:expand-file-name-if-exists'.
-
-Normally, command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset. See `loc-changes-clear-buffer' to clear
-fringe and marginal icons.
-
-\(fn &optional OPT-CMD-LINE NO-RESET)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/perldb/perldb" '("realgud:perldb-command-name")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/perldb/track-mode"
"realgud/debugger/perldb/track-mode.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/perldb/track-mode.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/perldb/track-mode" '("perldb-track-mode")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/rdebug/core"
"realgud/debugger/rdebug/core.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/rdebug/core.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/rdebug/core" '("realgud:rdebug-" "rdebug-query-cmdline"
"rdebug-parse-cmd-args" "rdebug-suggest-invocation" "rdebug-reset")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/rdebug/init"
"realgud/debugger/rdebug/init.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/rdebug/init.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/rdebug/init" '("realgud-rdebug-pat-hash"
"realgud-rdebug-command-hash" "realgud-rdebug-frame-file-line-regexp"
"realgud-rdebug-frame-start-regexp" "realgud-rdebug-frame-num-regexp")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/rdebug/rdebug"
"realgud/debugger/rdebug/rdebug.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/rdebug/rdebug.el
-
-(autoload 'realgud:rdebug "realgud/debugger/rdebug/rdebug" "\
-Invoke the rdebug Ruby debugger and start the Emacs user interface.
-
-String OPT-CMD-LINE is treated like a shell string; arguments are
-tokenized by `split-string-and-unquote'. The tokenized string is
-parsed by `trepan8-parse-cmd-args' and path elements found by that
-are expanded using `realgud:expand-file-name-if-exists'.
-
-Normally, command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset. See `loc-changes-clear-buffer' to clear
-fringe and marginal icons.
-
-\(fn &optional OPT-CMD-LINE NO-RESET)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/rdebug/rdebug" '("realgud:rdebug-command-name"
"rdebug-get-script-name" "rdebug")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/rdebug/track-mode"
"realgud/debugger/rdebug/track-mode.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/rdebug/track-mode.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/rdebug/track-mode" '("rdebug-track-mode"
"rdebug-track-mode-internal")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/remake/core"
"realgud/debugger/remake/core.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/remake/core.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/remake/core" '("realgud:remake-" "remake-suggest-"
"remake-query-cmdline" "remake-parse-cmd-args" "remake-reset")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/remake/init"
"realgud/debugger/remake/init.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/remake/init.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/remake/init" '("realgud:remake-frame-"
"realgud:remake-command-hash" "realgud:remake-selected-frame-arrow"
"realgud:remake-pat-hash")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/remake/remake"
"realgud/debugger/remake/remake.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/remake/remake.el
-
-(autoload 'realgud:remake "realgud/debugger/remake/remake" "\
-See `realgud:remake' for details
-
-\(fn &optional OPT-CMD-LINE NO-RESET)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/remake/remake" '("realgud:remake-run-debugger"
"realgud:remake-command-name" "remake")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/remake/track-mode"
"realgud/debugger/remake/track-mode.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/remake/track-mode.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/remake/track-mode" '("remake-track-mode")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/trepan.pl/backtrack-mode"
-;;;;;; "realgud/debugger/trepan.pl/backtrack-mode.el" (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/trepan.pl/backtrack-mode.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/trepan.pl/backtrack-mode"
'("realgud:trepanpl-goto-control-frame-line" "trepanpl-backtrack-mode")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/trepan.pl/core"
"realgud/debugger/trepan.pl/core.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/trepan.pl/core.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/trepan.pl/core" '("realgud:trepanpl-")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/trepan.pl/init"
"realgud/debugger/trepan.pl/init.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/trepan.pl/init.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/trepan.pl/init" '("realgud:trepanpl-")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/trepan.pl/track-mode"
"realgud/debugger/trepan.pl/track-mode.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/trepan.pl/track-mode.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/trepan.pl/track-mode"
'("realgud:trepanpl-goto-syntax-error-line" "realgud:trepanpl-track-mode")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/trepan.pl/trepanpl"
"realgud/debugger/trepan.pl/trepanpl.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/trepan.pl/trepanpl.el
-
-(autoload 'realgud:trepan\.pl "realgud/debugger/trepan.pl/trepanpl" "\
-Invoke the trepan.pl Perl debugger and start the Emacs user interface.
-
-String OPT-CMD-LINE specifies how to run trepan.pl. You will be prompted
-for a command line is one isn't supplied.
-
-OPT-CMD-LINE is treated like a shell string; arguments are
-tokenized by `split-string-and-unquote'. The tokenized string is
-parsed by `realgud:trepanpl-parse-cmd-args' and path elements found by that
-are expanded using `realgud:expand-file-name-if-exists'.
-
-Normally, command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset. See `loc-changes-clear-buffer' to clear
-fringe and marginal icons.
-
-\(fn &optional OPT-CMD-LINE NO-RESET)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/trepan.pl/trepanpl" '("realgud:trepanpl-command-name"
"trepan.pl")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/trepan/backtrack-mode"
"realgud/debugger/trepan/backtrack-mode.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/trepan/backtrack-mode.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/trepan/backtrack-mode"
'("realgud:trepan-goto-control-frame-line" "trepan-backtrack-mode")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/trepan/core"
"realgud/debugger/trepan/core.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/trepan/core.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/trepan/core" '("realgud:trepan-" "trepan-reset"
"trepan-suggest-invocation")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/trepan/init"
"realgud/debugger/trepan/init.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/trepan/init.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/trepan/init" '("realgud:trepan-command-hash"
"realgud:trepan-debugger-name" "realgud:trepan-frame-file-regexp"
"realgud:trepan-selected-frame-indicator" "realgud:trepan-pat-hash")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/trepan/track-mode"
"realgud/debugger/trepan/track-mode.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/trepan/track-mode.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/trepan/track-mode" '("trepan-track-mode"
"realgud:trepan-goto-control-frame-line"
"realgud:trepan-goto-syntax-error-line")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/trepan/trepan"
"realgud/debugger/trepan/trepan.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/trepan/trepan.el
-
-(autoload 'realgud:trepan "realgud/debugger/trepan/trepan" "\
-Invoke the trepan Ruby debugger and start the Emacs user interface.
-
-String OPT-CMD-LINE is treated like a shell string; arguments are
-tokenized by `split-string-and-unquote'. The tokenized string is
-parsed by `trepan-parse-cmd-args' and path elements found by that
-are expanded using `expand-file-name'.
-
-Normally, command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset. See `loc-changes-clear-buffer' to clear
-fringe and marginal icons.
-
-\(fn &optional OPT-CMD-LINE NO-RESET)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/trepan/trepan" '("realgud:trepan-command-name" "trepan")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/trepan2/core"
"realgud/debugger/trepan2/core.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/trepan2/core.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/trepan2/core" '("realgud:trepan2-" "trepan2-query-cmdline"
"trepan2-parse-cmd-args" "trepan2-suggest-invocation" "trepan2-reset")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/trepan2/init"
"realgud/debugger/trepan2/init.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/trepan2/init.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/trepan2/init" '("realgud:trepan2-pat-hash"
"realgud:trepan2-command-hash")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/trepan2/track-mode"
"realgud/debugger/trepan2/track-mode.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/trepan2/track-mode.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/trepan2/track-mode" '("trepan2-track-mode")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/trepan2/trepan2"
"realgud/debugger/trepan2/trepan2.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/trepan2/trepan2.el
-
-(autoload 'realgud:trepan2 "realgud/debugger/trepan2/trepan2" "\
-Invoke the trepan2 Python debugger and start the Emacs user interface.
-
-String OPT-CMD-LINE is treated like a shell string; arguments are
-tokenized by `split-string-and-unquote'. The tokenized string is
-parsed by `trepan2-parse-cmd-args' and path elements found by that
-are expanded using `realgud:expand-file-name-if-exists'.
-
-Normally, command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset. See `loc-changes-clear-buffer' to clear
-fringe and marginal icons.
-
-\(fn &optional OPT-CMD-LINE NO-RESET)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/trepan2/trepan2" '("realgud:trepan2-command-name" "trepan2")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/trepan3k/core"
"realgud/debugger/trepan3k/core.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/trepan3k/core.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/trepan3k/core" '("realgud:trepan3k-" "trepan3k-query-cmdline"
"trepan3k-parse-cmd-args" "trepan3k-suggest-invocation" "trepan3k-reset")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/trepan3k/init"
"realgud/debugger/trepan3k/init.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/trepan3k/init.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/trepan3k/init" '("realgud:trepan3k-pat-hash"
"realgud:trepan3k-command-hash")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/trepan3k/track-mode"
"realgud/debugger/trepan3k/track-mode.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/trepan3k/track-mode.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/trepan3k/track-mode" '("trepan3k-track-mode")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/trepan3k/trepan3k"
"realgud/debugger/trepan3k/trepan3k.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/trepan3k/trepan3k.el
-
-(autoload 'realgud:trepan3k "realgud/debugger/trepan3k/trepan3k" "\
-Invoke the trepan3k Python debugger and start the Emacs user interface.
-
-String OPT-CMD-LINE is treated like a shell string; arguments are
-tokenized by `split-string-and-unquote'. The tokenized string is
-parsed by `trepan2-parse-cmd-args' and path elements found by that
-are expanded using `realgud:expand-file-name-if-exists'.
-
-Normally, command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset. See `loc-changes-clear-buffer' to clear
-fringe and marginal icons.
-
-\(fn &optional OPT-CMD-LINE NO-RESET)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/trepan3k/trepan3k" '("realgud:trepan3k-command-name"
"trepan3k")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/trepanjs/backtrack-mode"
-;;;;;; "realgud/debugger/trepanjs/backtrack-mode.el" (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/trepanjs/backtrack-mode.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/trepanjs/backtrack-mode"
'("realgud:trepanjs-goto-control-frame-line" "trepanjs-backtrack-mode")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/trepanjs/core"
"realgud/debugger/trepanjs/core.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/trepanjs/core.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/trepanjs/core" '("realgud:trepanjs-")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/trepanjs/init"
"realgud/debugger/trepanjs/init.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/trepanjs/init.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/trepanjs/init" '("realgud:trepanjs-frame-"
"realgud:trepanjs-pat-hash" "realgud:trepanjs-file-regexp"
"realgud:trepanjs-debugger-name" "realgud:trepanjs-command-hash")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/trepanjs/track-mode"
"realgud/debugger/trepanjs/track-mode.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/trepanjs/track-mode.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/trepanjs/track-mode"
'("realgud:trepanjs-goto-syntax-error-line" "trepanjs-track-mode")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/trepanjs/trepanjs"
"realgud/debugger/trepanjs/trepanjs.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/trepanjs/trepanjs.el
-
-(autoload 'realgud:trepanjs "realgud/debugger/trepanjs/trepanjs" "\
-Invoke the trepanjs Ruby debugger and start the Emacs user interface.
-
-String OPT-CMD-LINE is treated like a shell string; arguments are
-tokenized by `split-string-and-unquote'. The tokenized string is
-parsed by `trepanjs-parse-cmd-args' and path elements found by that
-are expanded using `expand-file-name'.
-
-Normally, command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset. See `loc-changes-clear-buffer' to clear
-fringe and marginal icons.
-
-\(fn &optional OPT-CMD-LINE NO-RESET)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/trepanjs/trepanjs" '("realgud:trepanjs-command-name"
"trepanjs")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/zshdb/core"
"realgud/debugger/zshdb/core.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/zshdb/core.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/zshdb/core" '("realgud:zshdb-" "zshdb-query-cmdline"
"zshdb-parse-cmd-args" "zshdb-suggest-invocation" "zshdb-reset")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/zshdb/init"
"realgud/debugger/zshdb/init.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/zshdb/init.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/zshdb/init" '("realgud:zshdb-pat-hash"
"realgud:zshdb-command-hash")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/zshdb/track-mode"
"realgud/debugger/zshdb/track-mode.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/zshdb/track-mode.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/zshdb/track-mode" '("zshdb-track-mode")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/debugger/zshdb/zshdb"
"realgud/debugger/zshdb/zshdb.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/debugger/zshdb/zshdb.el
-
-(autoload 'realgud:zshdb "realgud/debugger/zshdb/zshdb" "\
-Invoke the zshdb Z-shell debugger and start the Emacs user interface.
-
-String OPT-CMD-LINE specifies how to run zshdb.
-
-OPT-CMD-LINE is treated like a shell string; arguments are
-tokenized by `split-string-and-unquote'. The tokenized string is
-parsed by `zshdb-parse-cmd-args' and path elements found by that
-are expanded using `realgud:expand-file-name-if-exists'.
-
-Normally, command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset. See `loc-changes-clear-buffer' to clear
-fringe and marginal icons.
-
-\(fn &optional OPT-CMD-LINE NO-RESET)" t nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/debugger/zshdb/zshdb" '("realgud:zshdb-command-name" "zshdb")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/lang/js" "realgud/lang/js.el" (0 0
-;;;;;; 0 0))
-;;; Generated autoloads from realgud/lang/js.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/lang/js" '("realgud:js-backtrace-loc-pat" "realgud:js-term-escape")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/lang/perl" "realgud/lang/perl.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/lang/perl.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/lang/perl" '("realgud:perl-goto-errmsg-line"
"realgud-perl-populate-command-keys" "realgud-perl-ignore-file-re"
"realgud-perl-errmsg-loc-pat" "realgud-perl-carp-loc-pat")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/lang/posix-shell" "realgud/lang/posix-shell.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/lang/posix-shell.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/lang/posix-shell" '("realgud-shell-frame-" "realgud:POSIX-debugger-"
"realgud-shell-backtrace-loc-pat" "realgud-posix-shell-populate-command-keys")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/lang/python" "realgud/lang/python.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/lang/python.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/lang/python" '("realgud:python-trepan-" "realgud-python-"
"realgud:python-debugger-font-lock-keywords" "realgud-pytest-error-loc-pat"
"realgud:pytest-goto-errmsg-line")))
-
-;;;***
-
-;;;### (autoloads nil "realgud/lang/ruby" "realgud/lang/ruby.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from realgud/lang/ruby.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"realgud/lang/ruby" '("realgud:" "realgud-ruby-" "realgud-rubinius-"
"realgud-rspec-backtrace-loc-pat" "realgud-rails-backtrace-loc-pat")))
-
-;;;***
-
-;;;### (autoloads nil "test/test-common-helper" "test/test-common-helper.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from test/test-common-helper.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"test/test-common-helper" '("realgud-test-info")))
-
-;;;***
-
-;;;### (autoloads nil "test/test-gdb" "test/test-gdb.el" (0 0 0 0))
-;;; Generated autoloads from test/test-gdb.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"test/test-gdb" '("realgud:gdb-executable")))
-
-;;;***
-
-;;;### (autoloads nil "test/test-remake" "test/test-remake.el" (0
-;;;;;; 0 0 0))
-;;; Generated autoloads from test/test-remake.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"test/test-remake" '("realgud-exec-shell")))
-
-;;;***
-
-;;;### (autoloads nil "test/test-send" "test/test-send.el" (0 0 0
-;;;;;; 0))
-;;; Generated autoloads from test/test-send.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"test/test-send" '("setup")))
-
-;;;***
-
-;;;### (autoloads nil "test/test-srcbuf" "test/test-srcbuf.el" (0
-;;;;;; 0 0 0))
-;;; Generated autoloads from test/test-srcbuf.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"test/test-srcbuf" '("temp-cmdbuf" "setup")))
-
-;;;***
-
-;;;### (autoloads nil "test/test-track-mode" "test/test-track-mode.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from test/test-track-mode.el
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes
"test/test-track-mode" '("temp-cmdbuf" "setup")))
-
-;;;***
-
-;;;### (autoloads nil nil ("realgud/common/attach.el"
"realgud/common/follow.el"
-;;;;;; "test/bt-helper.el" "test/regexp-helper.el" "test/test-bashdb.el"
-;;;;;; "test/test-bp.el" "test/test-bt-pdb.el" "test/test-bt-rdebug.el"
-;;;;;; "test/test-bt-trepan.el" "test/test-bt-trepan2.el"
"test/test-bt-trepan3k.el"
-;;;;;; "test/test-bt-zshdb.el" "test/test-buf-bt.el" "test/test-buf-cmd.el"
-;;;;;; "test/test-core.el" "test/test-file.el" "test/test-gdb-core.el"
-;;;;;; "test/test-gub-core.el" "test/test-ipdb.el" "test/test-jdb.el"
-;;;;;; "test/test-lang.el" "test/test-loc-regexp-gub.el"
"test/test-loc-regexp-nodejs.el"
-;;;;;; "test/test-loc-regexp-trepan.el" "test/test-loc-regexp-trepanpl.el"
-;;;;;; "test/test-loc.el" "test/test-lochist.el" "test/test-nodejs.el"
-;;;;;; "test/test-pdb.el" "test/test-perldb.el" "test/test-rdebug.el"
-;;;;;; "test/test-realgud.el" "test/test-regexp-bashdb.el"
"test/test-regexp-gdb.el"
-;;;;;; "test/test-regexp-gub.el" "test/test-regexp-ipdb.el"
"test/test-regexp-jdb.el"
-;;;;;; "test/test-regexp-nodejs.el" "test/test-regexp-pdb.el"
"test/test-regexp-perldb.el"
-;;;;;; "test/test-regexp-rdebug.el" "test/test-regexp-remake.el"
-;;;;;; "test/test-regexp-ruby.el" "test/test-regexp-trepan.el"
"test/test-regexp-trepan2.el"
-;;;;;; "test/test-regexp-trepan3k.el" "test/test-regexp-trepanjs.el"
-;;;;;; "test/test-regexp-trepanpl.el" "test/test-regexp-zshdb.el"
-;;;;;; "test/test-regexp.el" "test/test-remake-core.el"
"test/test-shortkey.el"
-;;;;;; "test/test-track.el" "test/test-trepan2.el" "test/test-trepan3k.el"
-;;;;;; "test/test-trepanpl.el" "test/test-utils.el" "test/test-zshdb.el")
-;;;;;; (0 0 0 0))
-
-;;;***
-
-(provide 'realgud-recursive-autoloads)
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; realgud-recursive-autoloads.el ends here
diff --git a/packages/realgud/realgud.el b/packages/realgud/realgud.el
deleted file mode 100644
index d15b324..0000000
--- a/packages/realgud/realgud.el
+++ /dev/null
@@ -1,199 +0,0 @@
-;;; realgud.el --- A modular front-end for interacting with external debuggers
-
-;; Author: Rocky Bernstein <address@hidden>
-;; Version: 1.4.5
-;; Package-Type: multi
-;; Package-Requires: ((load-relative "1.2") (loc-changes "1.2") (test-simple
"1.2.0") (cl-lib "0.5") (emacs "24"))
-;; URL: http://github.com/realgud/realgud/
-;; Keywords: gdb, python, perl, go, bash, nodejs, zsh, bashdb, zshdb, remake,
make, trepan, perldb, pdb
-
-;; Copyright (C) 2015-2018 Free Software Foundation, Inc
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; A modular, extensible GNU Emacs front-end for interacting with
-;; external debuggers.
-;;
-;; Quick start: https://github.com/realgud/realgud/
-;;
-;; See URL `https://github.com/realgud/realgud/wiki/Features' for features, and
-;; URL `https://github.com/realgud/realgud/wiki/Debuggers-Supported' for
-;; debuggers we can handle.
-;;
-;; Once upon a time in an Emacs far far away and a programming-style
-;; deservedly banished, there was a monolithic Cathederal-like
-;; debugger front-end called gud. This interfaced with a number of
-;; debuggers, many now dead.[1] Is there anyone still alive that
-;; remembers sdb from UNIX/32V circa 1980?
-;;
-;; This isn't that. Here we make use of more modern programming
-;; practices, more numerous and smaller files, unit tests, and better
-;; use of Emacs primitives, e.g. buffer marks, buffer-local variables,
-;; structures, rings, hash tables. Although there is still much to be
-;; desired, this code is more scalable and suitable as a common base for
-;; an Emacs front-end to modern debuggers.
-;;
-;; Oh, and because global variables are largely banned, we can support
-;; several simultaneous debug sessions.
-
-;; RealGUD supports many external debuggers. See URL
-;; `https://github.com/realgud/realgud/wiki/Debuggers-Supported' for a
-;; list. However, if you don't see your favorite debugger, see URL
-;; `https://github.com/realgud/realgud/wiki/How-to-add-a-new-debugger/'
-;; for how you can add your own.
-
-;; The debugger is run out of a comint process buffer, or you can use
-;; a `realgud-track-mode' inside an existing comint shell, or eshell
-;; buffer.
-
-;; To install you will need a couple of other Emacs packages
-;; installed. If you install via melpa (`package-install') or
-;; `el-get', these will be pulled in automatically. See the
-;; installation instructions URL
-;; `https://github.com/realgud/realgud/wiki/How-to-Install' for all
-;; the ways to to install and more details on installation.
-
-;; [1] Four or more years in, as of 2018 realgud sports a number of
-;; old debuggers too. However we *mark* them as such, and move them
-;; out of the main code base. See for example:
-;; https://github.com/realgud/realgud-old-debuggers. So that's
-;; another difference: this code better *maintained*.
-
-;;; Code:
-
-;; Press C-x C-e at the end of the next line configure the program in
-;; for building via "make" to get set up.
-;; (compile (format "EMACSLOADPATH=:%s:%s:%s ./autogen.sh"
(file-name-directory (locate-library "test-simple.elc")) (file-name-directory
(locate-library "load-relative.elc")) (file-name-directory (locate-library
"loc-changes.elc"))))
-
-(require 'load-relative)
-
-(defgroup realgud nil
- "The Grand Cathedral Debugger rewrite"
- :group 'processes
- :group 'tools
- :version "24.3")
-
-;; FIXME: extend require-relative for "autoload".
-(defun realgud:load-features()
- (progn
- (require-relative-list
- '(
- "./realgud/common/track-mode"
- "./realgud/common/utils"
- "./realgud/debugger/bashdb/bashdb"
- "./realgud/debugger/gdb/gdb"
- "./realgud/debugger/gub/gub"
- "./realgud/debugger/ipdb/ipdb"
- "./realgud/debugger/jdb/jdb"
- "./realgud/debugger/kshdb/kshdb"
- "./realgud/debugger/nodejs/nodejs"
- "./realgud/debugger/pdb/pdb"
- "./realgud/debugger/perldb/perldb"
- "./realgud/debugger/rdebug/rdebug"
- "./realgud/debugger/remake/remake"
- "./realgud/debugger/trepan/trepan"
- "./realgud/debugger/trepanjs/trepanjs"
- "./realgud/debugger/trepan.pl/trepanpl"
- "./realgud/debugger/trepan2/trepan2"
- "./realgud/debugger/trepan3k/trepan3k"
- "./realgud/debugger/zshdb/zshdb"
- ) "realgud-")
- (realgud:loaded-features)
- )
- )
-
-(load-relative "./realgud/common/custom")
-
-(defun realgud-feature-starts-with(feature prefix)
- "realgud-strings-starts-with on stringified FEATURE and PREFIX."
- (declare (indent 1))
- (string-prefix-p (symbol-name feature) prefix)
- )
-
-(defun realgud:loaded-features()
- "Return a list of loaded debugger features. These are the features
-that start with 'realgud-' and 'realgud:'"
-
- (delq nil
- (mapcar (lambda (x) (and (string-match-p
"^\\(realgud:\\|realgud-\\)" (symbol-name x)) x))
- features)))
-
-(defun realgud:unload-features()
- "Remove all features loaded from this package. Used in
-`realgud:reload-features'. See that."
- (let ((removal-set (realgud:loaded-features)))
- (dolist (feature removal-set)
- (unload-feature feature t))
- removal-set)) ; return removed set
-
-(defun realgud:reload-features()
- "Reload all features loaded from this package. Useful if have
-changed some code or want to reload another version, say a newer
-development version and you already have this package loaded."
- (interactive "")
- (realgud:unload-features)
- (realgud:load-features)
- )
-
-;; Load everything.
-(realgud:load-features)
-
-
-;;; Autoloads-related code
-
-;; This section is needed because package.el doesn't recurse into
subdirectories
-;; when looking for autoload-able forms. As a workaround, we statically
-;; generate our own autoloads, and force Emacs to read them by adding an extra
-;; autoloded form.
-
-;;;###autoload
-(defconst realgud--recursive-autoloads-file-name
"realgud-recursive-autoloads.el"
- "Where to store autoloads for subdirectory contents.")
-
-;;;###autoload
-(defconst realgud--recursive-autoloads-base-directory
- (file-name-directory
- (if load-in-progress load-file-name
- buffer-file-name)))
-
-;;;###autoload
-(with-demoted-errors "Error in RealGUD's autoloads: %s"
- (load (expand-file-name realgud--recursive-autoloads-file-name
- realgud--recursive-autoloads-base-directory)
- t t))
-
-(defun realgud--rebuild-recursive-autoloads ()
- "Update RealGUD's recursive autoloads.
-This is needed because the package.el infrastructure doesn't
-process autoloads in subdirectories; instead we create an
-additional autoloads file of our own, and we load it from an
-autoloaded form. Maintainers should run this after adding
-autoloaded functions, and commit the resulting changes."
- (interactive)
- (let ((generated-autoload-file
- (expand-file-name realgud--recursive-autoloads-file-name
- realgud--recursive-autoloads-base-directory)))
- (when (file-exists-p generated-autoload-file)
- (delete-file generated-autoload-file))
- (dolist (name (with-no-warnings
- (directory-files-recursively
- realgud--recursive-autoloads-base-directory "" t)))
- (when (file-directory-p name)
- (update-directory-autoloads name)))))
-
-(provide-me)
-
-;;; realgud.el ends here
diff --git a/packages/realgud/realgud/.nosearch
b/packages/realgud/realgud/.nosearch
deleted file mode 100644
index d9771c7..0000000
--- a/packages/realgud/realgud/.nosearch
+++ /dev/null
@@ -1,11 +0,0 @@
-The default install-from-git.sh can install realgud into a site-lisp,
-e.g /usr/local/share/emacs-site-lisp.
-
-site-lisp directories and their subdirectories may be automatically
-added to load path, in particular in Debian
-/usr/local/share/emacs/site-lisp/ is added to load-path before emacs
-system directories. So realgud's common/buffer/info.el is loaded
-before emacs's info.el
-
-Adding this ".nosearch" file prevents emacs from adding realgud to the
-load-path.
diff --git a/packages/realgud/realgud/Makefile.am
b/packages/realgud/realgud/Makefile.am
deleted file mode 100644
index c87e282..0000000
--- a/packages/realgud/realgud/Makefile.am
+++ /dev/null
@@ -1,21 +0,0 @@
-# Directories to run recursive makes
-SUBDIRS = common debugger lang
-
-# lispdir needs to get set here because it seems
-# to automatically use the parent root. Not sure
-# why that is since none of the other subdirectories have this
-# problem.
-lispdir = ${datarootdir}/emacs/site-lisp/realgud
-
-# By default this is based off of $lispdir, but that
-# is set funny, so we'll be explicit about lispdir_realgud,
-# although in fact it isn't used.
-lispdir_realgud = ${datarootdir}/emacs/site-lisp/realgud
-
-# .nosearch isn't a lisp file, but we want it installed along with the
-# lisp files.
-lisp_LISP = .nosearch
-
-# Overwrite clean-lisp target so it doesn't remove .nosearch
-# Note: There are no lisp files in this directory
-clean-lisp:
diff --git a/packages/realgud/realgud/common/Makefile.am
b/packages/realgud/realgud/common/Makefile.am
deleted file mode 100644
index 673782e..0000000
--- a/packages/realgud/realgud/common/Makefile.am
+++ /dev/null
@@ -1,8 +0,0 @@
-SUBDIRS = buffer
-
-include $(top_srcdir)/common.mk
-lispdir = @lispdir_realgud@/$(notdir $(subdir))
-
-lisp_files = $(wildcard *.el)
-lisp_LISP = $(lisp_files)
-EXTRA_DIST = $(lisp_files)
diff --git a/packages/realgud/realgud/common/attach.el
b/packages/realgud/realgud/common/attach.el
deleted file mode 100644
index aefd62f..0000000
--- a/packages/realgud/realgud/common/attach.el
+++ /dev/null
@@ -1,68 +0,0 @@
-;; Copyright (C) 2015-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-;;; Emacs Commands to associate or attach a source buffer to a command
-;;; buffer and vice versa.
-
-(require 'load-relative)
-(require-relative-list '("buffer/command" "buffer/source")
- "realgud-buffer-")
-(require-relative-list '("shortkey") "realgud-")
-
-(declare-function realgud-cmdbuf-add-srcbuf 'realgud-buffer-command)
-(declare-function realgud-cmdbuf? 'realgud-buffer-command)
-(declare-function realgud-srcbuf-init-or-update 'realgud-source)
-(declare-function realgud-short-key-mode-setup 'realgud-shortkey)
-
-(defun realgud:attach-source-buffer(srcbuf)
- "Associate a source buffer with the current command buffer"
- (interactive "bsource buffer: ")
- (unless (realgud-cmdbuf?)
- (error "The command only works inside a command buffer"))
- (unless (get-buffer-process (current-buffer))
- (warn "Can't find a process for command buffer %s" (current-buffer)))
-
- (let* ((cmdbuf (current-buffer))
- (shortkey-mode? (realgud-sget 'cmdbuf-info 'src-shortkey?)))
- (if (stringp srcbuf) (setq srcbuf (get-buffer srcbuf)))
- (realgud-cmdbuf-add-srcbuf srcbuf)
- (realgud-srcbuf-init-or-update srcbuf cmdbuf)
- (if shortkey-mode?
- (with-current-buffer srcbuf
- (realgud-short-key-mode-setup 't))
- )
- )
- )
-
-(defun realgud:attach-command-buffer(cmdbuf)
- "Associate a command buffer with the current source buffer"
-
- (interactive "bcommand buffer: ")
- (if (stringp cmdbuf) (setq cmdbuf (get-buffer cmdbuf)))
- (let* ((srcbuf (current-buffer))
- (shortkey-mode?))
- (with-current-buffer cmdbuf
- (unless (realgud-cmdbuf?)
- (error "The buffer is not a command buffer"))
- (unless (get-buffer-process (current-buffer))
- (warn "Can't find a process for command buffer %s" (current-buffer)))
- (setq shortkey-mode? (realgud-sget 'cmdbuf-info 'src-shortkey?)))
- (realgud-cmdbuf-add-srcbuf srcbuf)
- (realgud-srcbuf-init-or-update srcbuf cmdbuf)
- (if shortkey-mode? (realgud-short-key-mode-setup 't)))
- )
-
-(provide-me "realgud-")
diff --git a/packages/realgud/realgud/common/backtrace-mode.el
b/packages/realgud/realgud/common/backtrace-mode.el
deleted file mode 100644
index 96fec26..0000000
--- a/packages/realgud/realgud/common/backtrace-mode.el
+++ /dev/null
@@ -1,118 +0,0 @@
-;; Copyright (C) 2015 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-;;; Debugger Backtrace buffer mode settings
-(require 'load-relative)
-(require-relative-list '("menu" "key") "realgud-")
-(require-relative-list '("buffer/command") "realgud-buffer-")
-
-(declare-function realgud-populate-debugger-menu 'realgud-menu)
-(declare-function realgud-populate-common-keys 'realgud-menu)
-(declare-function realgud-cmdbuf-pat 'realgud-menu)
-
-(defvar realgud:frames-menu nil
- "Frames menu in Backtrace menu.")
-
-;; (setq realgud:frames-menu
-;; (let ((map (make-sparse-keymap "Goto Specific Frames")))
-;; (define-key map [frames-menu]
-;; (list 'menu-item "Specific Frames" 'realgud:frames-menu))
-;; (realgud-menu-item map "Frame 1" 'realgud-goto-frame-1)
-;; (realgud-menu-item map "Frame 2" 'realgud-goto-frame-2)
-;; (realgud-menu-item map "Frame 3" 'realgud-goto-frame-3)
-;; )
-;; map)
-
-(defvar realgud-backtrace-mode-map
- (let ((map (realgud-populate-debugger-menu (make-sparse-keymap))))
- (suppress-keymap map)
- (realgud-populate-common-keys map)
- (define-key map "." 'realgud-backtrace-moveto-frame-selected)
- (define-key map "r" 'realgud:backtrace-init)
- (define-key map [double-mouse-1] 'realgud:follow-event)
- (define-key map [mouse-2] 'realgud:follow-event)
- (define-key map [enter] 'realgud:follow-event)
- (define-key map [mouse-3] 'realgud:follow-event)
- (define-key map [enter] 'realgud:follow-event)
- (define-key map [return] 'realgud:follow-point)
- (define-key map [up] 'realgud-backtrace-moveto-frame-prev)
- (define-key map [down] 'realgud-backtrace-moveto-frame-next)
- (define-key map "l" 'realgud-recenter-arrow)
-
- (define-key map [frames-menu]
- (list 'menu-item "Specific Frames" 'realgud:frames-menu))
-
- ;; FIXME: these can go to a common routine. See also shortkey.el and
- ;; key.el
- (define-key map "<" 'realgud:cmd-newer-frame)
- (define-key map ">" 'realgud:cmd-older-frame)
- (define-key map "d" 'realgud:cmd-newer-frame)
- (define-key map "u" 'realgud:cmd-older-frame)
- (define-key map "q" 'realgud:cmd-quit)
- (define-key map "C" 'realgud-window-cmd-undisturb-src)
- (define-key map "F" 'realgud:window-bt)
- (define-key map "I" 'realgud:cmdbuf-info-describe)
- (define-key map "S" 'realgud-window-src-undisturb-cmd)
-
- (define-key map "n" 'realgud-backtrace-moveto-frame-next)
- (define-key map "p" 'realgud-backtrace-moveto-frame-prev)
- (define-key map "0" 'realgud-goto-frame-n)
- (define-key map "1" 'realgud-goto-frame-n)
- (define-key map "2" 'realgud-goto-frame-n)
- (define-key map "3" 'realgud-goto-frame-n)
- (define-key map "4" 'realgud-goto-frame-n)
- (define-key map "5" 'realgud-goto-frame-n)
- (define-key map "6" 'realgud-goto-frame-n)
- (define-key map "7" 'realgud-goto-frame-n)
- (define-key map "8" 'realgud-goto-frame-n)
- (define-key map "9" 'realgud-goto-frame-n)
-
- ;; --------------------
- ;; The "Stack window" submenu.
- ;; (let ((submenu realgud:frames-menu))
- ;; (define-key-after map [menu-bar debugger stack]
- ;; (cons "Stack window" submenu)
- ;; 'placeholder))
- map)
- "Keymap to navigate realgud stack frames.
-
-\\{realgud-backtrace-mode-map}")
-
-(defun realgud-backtrace-mode (&optional cmdbuf)
- "Major mode for displaying the stack frames.
-\\{realgud-frames-mode-map}"
- (interactive)
- (kill-all-local-variables)
- (setq buffer-read-only 't)
- (setq major-mode 'realgud-backtrace-mode)
- (setq mode-name "Realgud Stack Frames")
- ;; (set (make-local-variable 'realgud-secondary-buffer) t)
- (setq mode-line-process 'realgud-mode-line-process)
- (use-local-map realgud-backtrace-mode-map)
-
- ;; FIXME: make buffer specific
- (if cmdbuf
- (let* ((font-lock-keywords
- (with-current-buffer cmdbuf
- (realgud-cmdbuf-pat "font-lock-keywords"))))
- (if font-lock-keywords
- (set (make-local-variable 'font-lock-defaults)
- (list font-lock-keywords)))
- ))
- ;; (run-mode-hooks 'realgud-backtrace-mode-hook)
- )
-
-(provide-me "realgud-")
diff --git a/packages/realgud/realgud/common/backtrack-mode.el
b/packages/realgud/realgud/common/backtrack-mode.el
deleted file mode 100644
index a4bbfc5..0000000
--- a/packages/realgud/realgud/common/backtrack-mode.el
+++ /dev/null
@@ -1,115 +0,0 @@
-;; Copyright (C) 2015-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-;; Used to parse programming-language backtrace-like tracks
-;; output. In contrast to track-mode, there doesn't have to be a
-;; process shell arround Compare with backtrace-mode.el which
-;; handles backtraces inside the debugger
-
-(require 'shell)
-
-(require 'load-relative)
-(require-relative-list
- '("core" "helper" "track" "loc" "lochist" "file"
- "fringe" "window" "regexp" "menu"
- "send" "shortkey") "realgud-")
-
-(require-relative-list '("buffer/command") "realgud-buffer-")
-
-(declare-function realgud:debugger-name-transform 'realgud-helper)
-(declare-function realgud-populate-debugger-menu 'realgud-menu)
-(declare-function realgud:track-set-debugger 'realgud-track)
-
-(defvar realgud-backtrack-mode-map
- (let ((map (make-sparse-keymap)))
- (define-key map [frames-menu]
- (list 'menu-item "Specific Frames" 'realgud:frames-menu))
- (define-key map [M-right] 'realgud-track-hist-newest)
- (define-key map [M-down] 'realgud-track-hist-newer)
- (define-key map [M-up] 'realgud-track-hist-older)
- (define-key map [M-print] 'realgud-track-hist-older)
- (define-key map [M-S-down] 'realgud-track-hist-newest)
- (define-key map [M-S-up] 'realgud-track-hist-oldest)
- (realgud-populate-debugger-menu map)
- map)
- "Keymap used in `realgud-backtrack-minor-mode'.")
-
-;; FIXME figure out if I can put this in something like a header file.
-;; FIXME: combine with realgud:track-set-debugger's completing read
-(defun realgud-backtrack-set-debugger (debugger-name)
- "Set debugger name This info is returned or nil if we can't find a
-debugger with that information"
- (interactive
- (list (completing-read "Debugger name: " realgud-pat-hash)))
- (let ((regexp-hash (gethash debugger-name realgud-pat-hash)))
- (if regexp-hash
- (let* ((base-variable-name
- (or (gethash debugger-name realgud:variable-basename-hash)
- debugger-name))
- (specific-track-mode (intern (concat base-variable-name
"-backtrack-mode")))
- )
- (if (and (not (eval specific-track-mode))
- (functionp specific-track-mode))
- (funcall specific-track-mode 't))
- )
- (progn
- (message "I Don't have %s listed as a debugger." debugger-name)
- nil)
- )))
-
-(define-minor-mode realgud-backtrack-mode
- "Minor mode for backtracking parsing."
- :init-value nil
- :global nil
- :group 'realgud
-
- :lighter
- (:eval (progn
- (concat " "
- (if (realgud-cmdbuf-info-set?)
- (realgud-sget 'cmdbuf-info 'debugger-name)
- "dbgr??"))))
-
- :keymap realgud-backtrack-mode-map
- ;; Setup/teardown
- )
-
-(defmacro realgud-backtrack-mode-vars (name)
- `(progn
- (defvar ,(intern (concat name "-backtrack-mode")) nil
- ,(format "Non-nil if using %s-backtrack-mode as a minor mode of some
other mode.
-Use the command `%s-track-mode' to toggle or set this variable." name name))
- (defvar ,(intern (concat name "-backtrack-mode-map")) (make-sparse-keymap)
- ,(format "Keymap used in `%s-backtrack-mode'." name))
- ))
-
-;; FIXME: The below could be a macro? I have a hard time getting
-;; macros right.
-(defun realgud-backtrack-mode-body(name)
- "Used in by custom debuggers: pydbgr, trepan, gdb, etc. NAME is
-the name of the debugger which is used to preface variables."
- (realgud:track-set-debugger name)
- (funcall (intern (concat "realgud-define-" name "-commands")))
- (if (intern (concat name "-backtrack-mode"))
- (progn
- (realgud-backtrack-mode 't)
- (run-mode-hooks (intern (concat name "-backtrack-mode-hook"))))
- (progn
- (realgud-backtrack-mode nil)
- )))
-
-(provide-me "realgud-")
diff --git a/packages/realgud/realgud/common/bp-image-data.el
b/packages/realgud/realgud/common/bp-image-data.el
deleted file mode 100644
index d0aaca3..0000000
--- a/packages/realgud/realgud/common/bp-image-data.el
+++ /dev/null
@@ -1,378 +0,0 @@
-;; Copyright (C) 2016 Free Software Foundation, Inc
-
-;; Authors: Clément Pit--Claudel, Nick Roberts <address@hidden>,
-;; Rocky Bernstein
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-;; Run ‘cask exec emacs -Q -L . -l etc/screenshot.el’ from the project's root
to
-;; build a screenshot.
-
-(require 'load-relative)
-
-(defconst realgud-bp-xpm-data
- "/* XPM */
-static char *magick[] = {
-/* columns rows colors chars-per-pixel */
-\"10 10 2 1\",
-\" c red\",
-\"+ c None\",
-/* pixels */
-\"+++ +++\",
-\"++ ++\",
-\"+ +\",
-\" \",
-\" \",
-\" \",
-\" \",
-\"+ +\",
-\"++ ++\",
-\"+++ +++\",
-};"
- "XPM data used for breakpoint enable and disable icon.")
-
-;; For seeing what above icon looks like:
-(if nil
- (progn
- (let ((image
- (find-image `((:type xpm :data
- ,realgud-bp-xpm-data
- :ascent 100 :pointer hand)))))
- (insert-image image)) ;; eval-last-sexp after previous ))
- (let ((image
- (find-image `((:type xpm :data
- ,realgud-bp-xpm-data
- :conversion disabled
- :ascent 100 :pointer hand)))))
- (insert-image image)) ;; eval-last-sexp after previous ))
- )
- )
-
-(defconst realgud-bp-enabled-pbm-data
- "P1
-10 10\",
-0 0 0 0 1 1 1 1 0 0 0 0
-0 0 0 1 1 1 1 1 1 0 0 0
-0 0 1 1 1 1 1 1 1 1 0 0
-0 1 1 1 1 1 1 1 1 1 1 0
-0 1 1 1 1 1 1 1 1 1 1 0
-0 1 1 1 1 1 1 1 1 1 1 0
-0 1 1 1 1 1 1 1 1 1 1 0
-0 0 1 1 1 1 1 1 1 1 0 0
-0 0 0 1 1 1 1 1 1 0 0 0
-0 0 0 0 1 1 1 1 0 0 0 0"
- "PBM data used for enabled breakpoint icon.")
-
-;; For seeing what above icon looks like:
-(if nil
- (let ((image
- (find-image `((:type pbm :data
- ,realgud-bp-enabled-pbm-data
- :ascent 100 :pointer hand)))))
- (insert-image image)) ;; eval-last-sexp after previous ))
- )
-
-(defconst realgud-bp-disabled-pbm-data
- "P1
-10 10\",
-1 1 1 1 0 0 0 0 1 1 1 1
-1 1 1 0 0 0 0 0 0 1 1 1
-1 1 0 0 0 0 0 0 0 0 1 1
-1 0 0 0 0 0 0 0 0 0 0 1
-1 0 0 0 0 0 0 0 0 0 0 1
-1 0 0 0 0 0 0 0 0 0 0 1
-1 0 0 0 0 0 0 0 0 0 0 1
-1 1 0 0 0 0 0 0 0 0 1 1
-1 1 1 0 0 0 0 0 0 1 1 1
-1 1 1 1 0 0 0 0 1 1 1 1"
- "PBM data used for disabled breakpoint icon.")
-
-;; For seeing what above icon looks like:
-(if nil
- (let ((image
- (find-image `((:type pbm :data
- ,realgud-bp-disabled-pbm-data
- :ascent 100 :pointer hand)))))
- (insert-image image)) ;; eval-last-sexp after previous ))
- )
-
-
-
-(defconst realgud-bp-enabled-svg-data
-"<?xml version='1.0' standalone='no'?>
-<!DOCTYPE svg PUBLIC '-//W3C//DTD SVG 20010904//EN'
- 'http://www.w3.org/TR/2001/REC-SVG-20010904/DTD/svg10.dtd'>
-<svg width='10' height='10'>
- <circle cx='0' cy='0' r='1' fill='none'/>
- <circle cx='1' cy='0' r='1' fill='none'/>
- <circle cx='2' cy='0' r='1' fill='none'/>
- <circle cx='3' cy='0' r='1' fill='red'/>
- <circle cx='4' cy='0' r='1' fill='red'/>
- <circle cx='5' cy='0' r='1' fill='red'/>
- <circle cx='6' cy='0' r='1' fill='red'/>
- <circle cx='7' cy='0' r='1' fill='none'/>
- <circle cx='8' cy='0' r='1' fill='none'/>
- <circle cx='9' cy='0' r='1' fill='none'/>
- <circle cx='0' cy='1' r='1' fill='none'/>
- <circle cx='1' cy='1' r='1' fill='none'/>
- <circle cx='2' cy='1' r='1' fill='red'/>
- <circle cx='3' cy='1' r='1' fill='red'/>
- <circle cx='4' cy='1' r='1' fill='red'/>
- <circle cx='5' cy='1' r='1' fill='red'/>
- <circle cx='6' cy='1' r='1' fill='red'/>
- <circle cx='7' cy='1' r='1' fill='red'/>
- <circle cx='8' cy='1' r='1' fill='none'/>
- <circle cx='9' cy='1' r='1' fill='none'/>
- <circle cx='0' cy='2' r='1' fill='none'/>
- <circle cx='1' cy='2' r='1' fill='red'/>
- <circle cx='2' cy='2' r='1' fill='red'/>
- <circle cx='3' cy='2' r='1' fill='red'/>
- <circle cx='4' cy='2' r='1' fill='red'/>
- <circle cx='5' cy='2' r='1' fill='red'/>
- <circle cx='6' cy='2' r='1' fill='red'/>
- <circle cx='7' cy='2' r='1' fill='red'/>
- <circle cx='8' cy='2' r='1' fill='red'/>
- <circle cx='9' cy='2' r='1' fill='none'/>
- <circle cx='0' cy='3' r='1' fill='red'/>
- <circle cx='1' cy='3' r='1' fill='red'/>
- <circle cx='2' cy='3' r='1' fill='red'/>
- <circle cx='3' cy='3' r='1' fill='red'/>
- <circle cx='4' cy='3' r='1' fill='red'/>
- <circle cx='5' cy='3' r='1' fill='red'/>
- <circle cx='6' cy='3' r='1' fill='red'/>
- <circle cx='7' cy='3' r='1' fill='red'/>
- <circle cx='8' cy='3' r='1' fill='red'/>
- <circle cx='9' cy='3' r='1' fill='red'/>
- <circle cx='0' cy='4' r='1' fill='red'/>
- <circle cx='1' cy='4' r='1' fill='red'/>
- <circle cx='2' cy='4' r='1' fill='red'/>
- <circle cx='3' cy='4' r='1' fill='red'/>
- <circle cx='4' cy='4' r='1' fill='red'/>
- <circle cx='5' cy='4' r='1' fill='red'/>
- <circle cx='6' cy='4' r='1' fill='red'/>
- <circle cx='7' cy='4' r='1' fill='red'/>
- <circle cx='8' cy='4' r='1' fill='red'/>
- <circle cx='9' cy='4' r='1' fill='red'/>
- <circle cx='0' cy='5' r='1' fill='red'/>
- <circle cx='1' cy='5' r='1' fill='red'/>
- <circle cx='2' cy='5' r='1' fill='red'/>
- <circle cx='3' cy='5' r='1' fill='red'/>
- <circle cx='4' cy='5' r='1' fill='red'/>
- <circle cx='5' cy='5' r='1' fill='red'/>
- <circle cx='6' cy='5' r='1' fill='red'/>
- <circle cx='7' cy='5' r='1' fill='red'/>
- <circle cx='8' cy='5' r='1' fill='red'/>
- <circle cx='9' cy='5' r='1' fill='red'/>
- <circle cx='0' cy='6' r='1' fill='red'/>
- <circle cx='1' cy='6' r='1' fill='red'/>
- <circle cx='2' cy='6' r='1' fill='red'/>
- <circle cx='3' cy='6' r='1' fill='red'/>
- <circle cx='4' cy='6' r='1' fill='red'/>
- <circle cx='5' cy='6' r='1' fill='red'/>
- <circle cx='6' cy='6' r='1' fill='red'/>
- <circle cx='7' cy='6' r='1' fill='red'/>
- <circle cx='8' cy='6' r='1' fill='red'/>
- <circle cx='9' cy='6' r='1' fill='red'/>
- <circle cx='0' cy='7' r='1' fill='none'/>
- <circle cx='1' cy='7' r='1' fill='red'/>
- <circle cx='2' cy='7' r='1' fill='red'/>
- <circle cx='3' cy='7' r='1' fill='red'/>
- <circle cx='4' cy='7' r='1' fill='red'/>
- <circle cx='5' cy='7' r='1' fill='red'/>
- <circle cx='6' cy='7' r='1' fill='red'/>
- <circle cx='7' cy='7' r='1' fill='red'/>
- <circle cx='8' cy='7' r='1' fill='red'/>
- <circle cx='9' cy='7' r='1' fill='none'/>
- <circle cx='0' cy='8' r='1' fill='none'/>
- <circle cx='1' cy='8' r='1' fill='none'/>
- <circle cx='2' cy='8' r='1' fill='red'/>
- <circle cx='3' cy='8' r='1' fill='red'/>
- <circle cx='4' cy='8' r='1' fill='red'/>
- <circle cx='5' cy='8' r='1' fill='red'/>
- <circle cx='6' cy='8' r='1' fill='red'/>
- <circle cx='7' cy='8' r='1' fill='red'/>
- <circle cx='8' cy='8' r='1' fill='none'/>
- <circle cx='9' cy='8' r='1' fill='none'/>
- <circle cx='0' cy='9' r='1' fill='none'/>
- <circle cx='1' cy='9' r='1' fill='none'/>
- <circle cx='2' cy='9' r='1' fill='none'/>
- <circle cx='3' cy='9' r='1' fill='red'/>
- <circle cx='4' cy='9' r='1' fill='red'/>
- <circle cx='5' cy='9' r='1' fill='red'/>
- <circle cx='6' cy='9' r='1' fill='red'/>
- <circle cx='7' cy='9' r='1' fill='none'/>
- <circle cx='8' cy='9' r='1' fill='none'/>
- <circle cx='9' cy='9' r='1' fill='none'/>
-</svg>")
-
-;; For seeing what above icon looks like:
-(if nil
- (let ((image
- (find-image `((:type svg :data
- ,realgud-bp-enabled-svg-data
- :ascent 100 :pointer hand)))))
- (insert-image image)) ;; eval-last-sexp after previous ))
- )
-
-(defconst realgud-bp-disabled-svg-data
-"<?xml version='1.0' standalone='no'?>
-<!DOCTYPE svg PUBLIC '-//W3C//DTD SVG 20010904//EN'
- 'http://www.w3.org/TR/2001/REC-SVG-20010904/DTD/svg10.dtd'>
-<svg width='10' height='10'>
- <circle cx='0' cy='0' r='1' fill='none'/>
- <circle cx='1' cy='0' r='1' fill='none'/>
- <circle cx='2' cy='0' r='1' fill='none'/>
- <circle cx='3' cy='0' r='1' fill='gray'/>
- <circle cx='4' cy='0' r='1' fill='gray'/>
- <circle cx='5' cy='0' r='1' fill='gray'/>
- <circle cx='6' cy='0' r='1' fill='gray'/>
- <circle cx='7' cy='0' r='1' fill='none'/>
- <circle cx='8' cy='0' r='1' fill='none'/>
- <circle cx='9' cy='0' r='1' fill='none'/>
- <circle cx='0' cy='1' r='1' fill='none'/>
- <circle cx='1' cy='1' r='1' fill='none'/>
- <circle cx='2' cy='1' r='1' fill='gray'/>
- <circle cx='3' cy='1' r='1' fill='gray'/>
- <circle cx='4' cy='1' r='1' fill='gray'/>
- <circle cx='5' cy='1' r='1' fill='gray'/>
- <circle cx='6' cy='1' r='1' fill='gray'/>
- <circle cx='7' cy='1' r='1' fill='gray'/>
- <circle cx='8' cy='1' r='1' fill='none'/>
- <circle cx='9' cy='1' r='1' fill='none'/>
- <circle cx='0' cy='2' r='1' fill='none'/>
- <circle cx='1' cy='2' r='1' fill='gray'/>
- <circle cx='2' cy='2' r='1' fill='gray'/>
- <circle cx='3' cy='2' r='1' fill='gray'/>
- <circle cx='4' cy='2' r='1' fill='gray'/>
- <circle cx='5' cy='2' r='1' fill='gray'/>
- <circle cx='6' cy='2' r='1' fill='gray'/>
- <circle cx='7' cy='2' r='1' fill='gray'/>
- <circle cx='8' cy='2' r='1' fill='gray'/>
- <circle cx='9' cy='2' r='1' fill='none'/>
- <circle cx='0' cy='3' r='1' fill='gray'/>
- <circle cx='1' cy='3' r='1' fill='gray'/>
- <circle cx='2' cy='3' r='1' fill='gray'/>
- <circle cx='3' cy='3' r='1' fill='gray'/>
- <circle cx='4' cy='3' r='1' fill='gray'/>
- <circle cx='5' cy='3' r='1' fill='gray'/>
- <circle cx='6' cy='3' r='1' fill='gray'/>
- <circle cx='7' cy='3' r='1' fill='gray'/>
- <circle cx='8' cy='3' r='1' fill='gray'/>
- <circle cx='9' cy='3' r='1' fill='gray'/>
- <circle cx='0' cy='4' r='1' fill='gray'/>
- <circle cx='1' cy='4' r='1' fill='gray'/>
- <circle cx='2' cy='4' r='1' fill='gray'/>
- <circle cx='3' cy='4' r='1' fill='gray'/>
- <circle cx='4' cy='4' r='1' fill='gray'/>
- <circle cx='5' cy='4' r='1' fill='gray'/>
- <circle cx='6' cy='4' r='1' fill='gray'/>
- <circle cx='7' cy='4' r='1' fill='gray'/>
- <circle cx='8' cy='4' r='1' fill='gray'/>
- <circle cx='9' cy='4' r='1' fill='gray'/>
- <circle cx='0' cy='5' r='1' fill='gray'/>
- <circle cx='1' cy='5' r='1' fill='gray'/>
- <circle cx='2' cy='5' r='1' fill='gray'/>
- <circle cx='3' cy='5' r='1' fill='gray'/>
- <circle cx='4' cy='5' r='1' fill='gray'/>
- <circle cx='5' cy='5' r='1' fill='gray'/>
- <circle cx='6' cy='5' r='1' fill='gray'/>
- <circle cx='7' cy='5' r='1' fill='gray'/>
- <circle cx='8' cy='5' r='1' fill='gray'/>
- <circle cx='9' cy='5' r='1' fill='gray'/>
- <circle cx='0' cy='6' r='1' fill='gray'/>
- <circle cx='1' cy='6' r='1' fill='gray'/>
- <circle cx='2' cy='6' r='1' fill='gray'/>
- <circle cx='3' cy='6' r='1' fill='gray'/>
- <circle cx='4' cy='6' r='1' fill='gray'/>
- <circle cx='5' cy='6' r='1' fill='gray'/>
- <circle cx='6' cy='6' r='1' fill='gray'/>
- <circle cx='7' cy='6' r='1' fill='gray'/>
- <circle cx='8' cy='6' r='1' fill='gray'/>
- <circle cx='9' cy='6' r='1' fill='gray'/>
- <circle cx='0' cy='7' r='1' fill='none'/>
- <circle cx='1' cy='7' r='1' fill='gray'/>
- <circle cx='2' cy='7' r='1' fill='gray'/>
- <circle cx='3' cy='7' r='1' fill='gray'/>
- <circle cx='4' cy='7' r='1' fill='gray'/>
- <circle cx='5' cy='7' r='1' fill='gray'/>
- <circle cx='6' cy='7' r='1' fill='gray'/>
- <circle cx='7' cy='7' r='1' fill='gray'/>
- <circle cx='8' cy='7' r='1' fill='gray'/>
- <circle cx='9' cy='7' r='1' fill='none'/>
- <circle cx='0' cy='8' r='1' fill='none'/>
- <circle cx='1' cy='8' r='1' fill='none'/>
- <circle cx='2' cy='8' r='1' fill='gray'/>
- <circle cx='3' cy='8' r='1' fill='gray'/>
- <circle cx='4' cy='8' r='1' fill='gray'/>
- <circle cx='5' cy='8' r='1' fill='gray'/>
- <circle cx='6' cy='8' r='1' fill='gray'/>
- <circle cx='7' cy='8' r='1' fill='gray'/>
- <circle cx='8' cy='8' r='1' fill='none'/>
- <circle cx='9' cy='8' r='1' fill='none'/>
- <circle cx='0' cy='9' r='1' fill='none'/>
- <circle cx='1' cy='9' r='1' fill='none'/>
- <circle cx='2' cy='9' r='1' fill='none'/>
- <circle cx='3' cy='9' r='1' fill='gray'/>
- <circle cx='4' cy='9' r='1' fill='gray'/>
- <circle cx='5' cy='9' r='1' fill='gray'/>
- <circle cx='6' cy='9' r='1' fill='gray'/>
- <circle cx='7' cy='9' r='1' fill='none'/>
- <circle cx='8' cy='9' r='1' fill='none'/>
- <circle cx='9' cy='9' r='1' fill='none'/>
-</svg>")
-
-;; For seeing what above icon looks like:
-(if nil
- (let ((image
- (find-image `((:type svg :data
- ,realgud-bp-disabled-svg-data
- :ascent 100 :pointer hand)))))
- (insert-image image)) ;; eval-last-sexp after previous ))
- )
-
-(defconst realgud-bp-enabled-tiff-data
-"II* ( ����������@@@@������������������������BBBB��������������������@@@@��������������������������������BBBB������������������������������������������������BBBB����������������������������������������������������������������������������������������������������������������������������
[...]
-
-
-
& f
4 < ( ) > D ? T R /tmp/address@hidden@���(address@hidden@@address@hidden&address@hidden
@<
-� @"
- "TIFF data used for breakpoint enabled icon.")
-
-;; For seeing what above icon looks like:
-(if nil
- (let ((image
- (find-image `((:type tiff :data
- ,realgud-bp-enabled-tiff-data
- :ascent 100 :pointer hand)))))
- (insert-image image)) ;; eval-last-sexp after previous ))
- )
-
-(defconst realgud-bp-disabled-tiff-data
-"II* � ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������
-
-
-
� � � � � ( ) > � ? � R /tmp/address@hidden@���(address@hidden@@address@hidden&address@hidden
@<
-� @"
- "TIFF data used for breakpoint disabled icon.")
-
-;; For seeing what above icon looks like:
-(if nil
- (let ((image
- (find-image `((:type tiff :data
- ,realgud-bp-disabled-tiff-data
- :ascent 100 :pointer hand)))))
- (insert-image image)) ;; eval-last-sexp after previous ))
- )
-
-
-(provide-me "realgud-")
diff --git a/packages/realgud/realgud/common/bp.el
b/packages/realgud/realgud/common/bp.el
deleted file mode 100644
index 6e685f1..0000000
--- a/packages/realgud/realgud/common/bp.el
+++ /dev/null
@@ -1,231 +0,0 @@
-;; Copyright (C) 2010, 2012-2015, 2017-2018 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-;; Code associated with breakpoints
-
-(require 'image)
-(require 'load-relative)
-(require-relative-list '("loc" "bp-image-data") "realgud-")
-
-(defun realgud-bp-remove-icons (&optional begin-pos end-pos bpnum)
- "Remove breakpoint icons (overlays) in BEGIN-POS .. END-POS.
-The default value for BEGIN-POS is `point'. The default value
-for END-POS is BEGIN-POS. When BPNUM is non-nil, only remove
-overlays with that breakpoint number.
-
-The way we determine if an overlay is ours is by inspecting the
-overlay for a realgud property."
- (interactive "r")
- (setq begin-pos (or begin-pos (point))
- end-pos (or end-pos begin-pos))
- (dolist (overlay (overlays-in begin-pos end-pos))
- (when (overlay-get overlay 'realgud)
- (when (or (null bpnum) (equal bpnum (overlay-get overlay
'realgud-bp-num)))
- (delete-overlay overlay)))))
-
-(defvar realgud-bp-enabled-icon nil
- "Icon for an enabled breakpoint in display margin.")
-
-(defvar realgud-bp-disabled-icon nil
- "Icon for a disabled breakpoint in display margin.")
-
-(defun realgud-set-bp-icons()
- "Load breakpoint icons, if needed."
- (when (display-images-p)
- (unless realgud-bp-enabled-icon
- (setq realgud-bp-enabled-icon
- (find-image `((:type xpm :data
- ,realgud-bp-xpm-data
- :ascent 100 :pointer hand)
- (:type svg :data
- ,realgud-bp-enabled-svg-data
- :ascent 100 :pointer hand)
- (:type tiff :data
- ,realgud-bp-enabled-tiff-data
- :ascent 100 :pointer hand)
- (:type pbm :data
- ,realgud-bp-enabled-pbm-data
- :ascent 100 :pointer hand)))))
- (unless realgud-bp-disabled-icon
- (setq realgud-bp-disabled-icon
- (find-image `((:type xpm :data
- ,realgud-bp-xpm-data
- :conversion disabled ; different than
'enabled'
- :ascent 100 :pointer hand)
- (:type svg :data
- ,realgud-bp-disabled-svg-data
- :ascent 100 :pointer hand)
- (:type tiff :data
- ,realgud-bp-disabled-tiff-data
- :ascent 100 :pointer hand)
- (:type pbm :data
- ,realgud-bp-disabled-pbm-data
- :ascent 100 :pointer hand)
- (:type svg :data
- ,realgud-bp-disabled-svg-data
- :ascent 100 :pointer hand)))))))
-
-(declare-function define-fringe-bitmap "fringe.c"
- (bitmap bits &optional height width align))
-
-(when (display-images-p)
- ;; Taken from gdb-mi
- (define-fringe-bitmap 'realgud-bp-filled
- "\x3c\x7e\xff\xff\xff\xff\x7e\x3c")
- (define-fringe-bitmap 'realgud-bp-hollow
- "\x3c\x42\x81\x81\x81\x81\x42\x3c"))
-
-(defgroup realgud-bp nil
- "RealGUD breakpoints UI"
- :group 'realgud
- :prefix 'realgud-bp-)
-
-(defface realgud-bp-enabled-face
- '((t :foreground "red" :weight bold))
- "Face for enabled breakpoints (in the fringe or margin)."
- :group 'realgud-bp)
-
-(defface realgud-bp-disabled-face
- '((t :foreground "grey" :weight bold))
- "Face for disabled breakpoints (in the fringe or margin).
-Only used in text terminals: fringe icons always use
-`realgud-bp-enabled-face'."
- :group 'realgud-bp)
-
-(defface realgud-bp-line-enabled-face
- '((t (:box (:color "red"))))
- "Face for lines with enabled breakpoints."
- :group 'realgud-bp)
-
-(defface realgud-bp-line-disabled-face
- '((t (:box (:color "grey"))))
- "Face for lines with disabled breakpoints."
- :group 'realgud-bp)
-
-(defcustom realgud-bp-fringe-indicator-style '(filled-rectangle .
hollow-rectangle)
- "Which fringe icon to use for breakpoints."
- :type '(choice (const :tag "Disc" (realgud-bp-filled . realgud-bp-hollow))
- (const :tag "Square" (filled-square . hollow-square))
- (const :tag "Rectangle" (filled-rectangle .
hollow-rectangle)))
- :group 'realgud-bp)
-
-(defcustom realgud-bp-use-fringe t
- "Whether to use the fringe to display breakpoints.
-If nil, use margins instead."
- :type '(boolean)
- :group 'realgud-bp)
-
-(defun realgud-bp--fringe-width ()
- "Compute width of left fringe."
- (let ((window (get-buffer-window (current-buffer))))
- (or left-fringe-width
- (and window (car (window-fringes window)))
- 0)))
-
-(defun realgud-bp-add-fringe-icon (overlay icon)
- "Add a fringe icon to OVERLAY.
-ICON is a symbol registered with `define-fringe-bitmap'."
- ;; Ensure that the fringe is wide enough
- (unless (>= (realgud-bp--fringe-width) 8)
- (set-fringe-mode `(8 . ,right-fringe-width)))
- ;; Add the fringe icon
- (let* ((fringe-spec `(left-fringe ,icon realgud-bp-enabled-face)))
- (overlay-put overlay 'before-string (propertize "x" 'display
fringe-spec))))
-
-(defun realgud-bp-add-margin-indicator (overlay text image face)
- "Add a margin breakpoint indicator to OVERLAY.
-TEXT is a string, IMAGE an IMAGE spec or nil; TEXT gets
-highlighted with FACE."
- ;; Ensure that the margin is large enough (Taken from gdb-mi)
- (when (< left-margin-width 2)
- (save-current-buffer
- (setq left-margin-width 2)
- (let ((window (get-buffer-window (current-buffer) 0)))
- (if window
- (set-window-margins
- window left-margin-width right-margin-width)))))
- ;; Add the margin string
- (let* ((indicator (or image (propertize text 'face face)))
- (spec `((margin left-margin) ,indicator)))
- (overlay-put overlay 'before-string (propertize text 'display spec))))
-
-(defun realgud-bp-put-icon (pos enable? bp-num &optional buf)
- "Add a breakpoint icon at POS according to breakpoint-display-style.
-Use the fringe if available, and the margin otherwise. Record
-breakpoint status ENABLE? and breakpoint number BP-NUM in
-overlay. BUF is the buffer that POS refers to; it defaults to
-the current buffer."
- (let* ((bp-text) (bp-face) (line-face) (margin-icon) (fringe-icon))
- (realgud-set-bp-icons)
- (if enable?
- (setq bp-text "B"
- bp-face 'realgud-bp-enabled-face
- line-face 'realgud-bp-line-enabled-face
- margin-icon realgud-bp-enabled-icon
- fringe-icon (car realgud-bp-fringe-indicator-style))
- (setq bp-text "b"
- bp-face 'realgud-bp-disabled-face
- line-face 'realgud-bp-line-disabled-face
- margin-icon realgud-bp-disabled-icon
- fringe-icon (cdr realgud-bp-fringe-indicator-style)))
- (let ((help-echo (format "%s%s: mouse-1 to clear" bp-text bp-num)))
- (setq bp-text (propertize bp-text 'help-echo help-echo)))
- (with-current-buffer (or buf (current-buffer))
- (realgud-bp-remove-icons pos (1+ pos) bp-num)
- (let* ((eol (save-excursion (goto-char pos) (point-at-eol)))
- (ov (make-overlay pos (1+ eol) (current-buffer) t nil)))
- (if (and realgud-bp-use-fringe (display-images-p))
- (realgud-bp-add-fringe-icon ov fringe-icon)
- (realgud-bp-add-margin-indicator ov bp-text margin-icon bp-face))
- (overlay-put ov 'face line-face)
- (overlay-put ov 'realgud t)
- (overlay-put ov 'realgud-bp-num bp-num)
- (overlay-put ov 'realgud-bp-enabled enable?)))))
-
-(defun realgud-bp-del-icon (pos &optional buf bpnum)
- "Delete breakpoint icon at POS.
-BUF is the buffer which pos refers to (default: current buffer).
-If BPNUM is non-nil, only remove overlays maching that breakpoint
-number."
- (with-current-buffer (or buf (current-buffer))
- (realgud-bp-remove-icons pos (1+ pos) bpnum)))
-
-(defun realgud-bp-add-info (loc)
- "Record bp information for location LOC."
- (if (realgud-loc? loc)
- (let* ((marker (realgud-loc-marker loc))
- (bp-num (realgud-loc-num loc)))
- (realgud-bp-put-icon marker t bp-num))))
-
-(defun realgud-bp-del-info (loc)
- "Remove bp information for location LOC."
- (if (realgud-loc? loc)
- (let* ((marker (realgud-loc-marker loc))
- (bp-num (realgud-loc-num loc)))
- (realgud-bp-del-icon marker (current-buffer) bp-num))))
-
-(defun realgud-bp-enable-disable-info (bp-num enable? loc buf)
- "Enable or disable bp with BP-NUM at location LOC in BUF."
- (if (realgud-loc? loc)
- (let* ((marker (realgud-loc-marker loc))
- (bp-num-check (realgud-loc-num loc)))
- (if (eq bp-num bp-num-check)
- (realgud-bp-put-icon marker enable? bp-num buf)
- (message "Internal error - bp number found %s doesn't match requested
%s"
- bp-num-check bp-num)
- ))))
-
-(provide-me "realgud-")
diff --git a/packages/realgud/realgud/common/buffer/Makefile.am
b/packages/realgud/realgud/common/buffer/Makefile.am
deleted file mode 100644
index c55e7db..0000000
--- a/packages/realgud/realgud/common/buffer/Makefile.am
+++ /dev/null
@@ -1,7 +0,0 @@
-include $(top_srcdir)/common.mk
-
-lispdir = @lispdir_realgud@/common/buffer
-
-lisp_files = $(wildcard *.el)
-lisp_LISP = $(lisp_files)
-EXTRA_DIST = $(lisp_files)
diff --git a/packages/realgud/realgud/common/buffer/backtrace.el
b/packages/realgud/realgud/common/buffer/backtrace.el
deleted file mode 100644
index 0a7908f..0000000
--- a/packages/realgud/realgud/common/buffer/backtrace.el
+++ /dev/null
@@ -1,491 +0,0 @@
-;;; Backtrace buffer
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; Copyright (C) 2015-2017 Free Software Foundation, Inc
-
-;; This program is free software: you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation, either version 3 of the
-;; License, or (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see
-;; <http://www.gnu.org/licenses/>.
-
-(require 'ansi-color)
-(require 'ring)
-(require 'load-relative)
-(eval-when-compile (require 'cl-lib))
-(require-relative-list
- '("../key" "helper" "../follow" "../loc") "realgud-")
-
-(require-relative-list
- '("command") "realgud-buffer-")
-
-(declare-function realgud-cmdbuf-debugger-name 'realgud-buffer-command)
-(declare-function realgud-cmdbuf? 'realgud-buffer-command)
-(declare-function realgud-cmdbuf-info-divert-output?= 'realgud-buffer-command)
-(declare-function realgud-backtrace-mode (cmdbuf))
-(declare-function realgud:cmd-backtrace (arg))
-(declare-function realgud-cmdbuf-pat(key))
-(declare-function realgud-cmdbuf-info-in-srcbuf?= (arg))
-(declare-function realgud-get-cmdbuf 'realgud-buffer-helper)
-(declare-function realgud:file-loc-from-line 'realgud-file)
-(declare-function buffer-killed? 'realgud-helper)
-(declare-function realgud:loc-describe 'realgud-loc)
-
-(cl-defstruct realgud-backtrace-info
- "debugger object/structure specific to a (top-level) program to be debugged."
- (cmdbuf nil) ;; buffer of the associated debugger process
- (cur-pos 0) ;; Frame we are at
- frame-ring ;; ring of marks in buffer of frame numbers. The
- ;; text at that marker has additional properties about the
- ;; frame
-)
-
-(declare-function realgud:cmd-frame 'realgud-buffer-command)
-(declare-function realgud-get-cmdbuf(&optional opt-buffer))
-(declare-function realgud-command 'realgud-send)
-
-(make-variable-buffer-local (defvar realgud-backtrace-info))
-
-;: FIXME: not picked up from track. Why?
-(defvar realgud-track-divert-string nil)
-
-(defvar realgud-goto-entry-acc "")
-
-(defun realgud-get-buffer-base-name(string)
- "Leading and ending * in string. For example:
- *shell<2>* -> shell<2>
- *foo shell* -> foo
- buffer.c -> buffer.c"
- (if (string-match "^[*]?\\([^*]+\\)[*]?$" string)
- (let ((string-sans-stars (match-string 1 string)))
- (if (string-match "\\(.+\\) shell" string-sans-stars)
- (match-string 1 string-sans-stars)
- string-sans-stars)
- )
- string
- )
-)
-
-(defun realgud:backtrace-describe (&optional buffer)
- (interactive "")
- (unless buffer (setq buffer (current-buffer)))
- (with-current-buffer buffer
- (let ((frames (realgud-backtrace-info-frame-ring realgud-backtrace-info))
- (frame)
- (loc)
- (i 0))
- (switch-to-buffer (get-buffer-create "*Describe*"))
- (while (and (< i (ring-length frames)) (setq frame (ring-ref frames i)))
- (insert (format "*** %d\n" i))
- (insert (format "%s\n" frame))
- (when (markerp frame)
- (with-current-buffer (marker-buffer frame)
- (goto-char frame)
- (setq loc (get-text-property (point) 'loc))
- )
- (when loc (realgud:loc-describe loc)))
- (setq i (1+ i))
- )
- )
- ))
-
-;; FIXME: create this in a new frame.
-(defun realgud:backtrace-init ()
- (interactive)
- (let ((buffer (current-buffer))
- (cmdbuf (realgud-get-cmdbuf))
- (process)
- )
- (with-current-buffer-safe cmdbuf
- (let ((frame-pat (realgud-cmdbuf-pat "debugger-backtrace"))
- (indicator-re (or (realgud-cmdbuf-pat "selected-frame-indicator")
- "->"))
- (selected-frame-num)
- (frame-pos-ring)
- (sleep-count 0)
- )
- (unless frame-pat
- (error "No 'debugger-backtrace' regular expression recorded for
debugger %s"
- (realgud-cmdbuf-debugger-name)))
- (setq process (get-buffer-process (current-buffer)))
- (realgud-cmdbuf-info-in-srcbuf?= (not (realgud-cmdbuf? buffer)))
- (realgud-cmdbuf-info-divert-output?= t)
- (setq realgud-track-divert-string nil)
- (realgud:cmd-backtrace 0)
- (while (and (eq 'run (process-status process))
- (null realgud-track-divert-string)
- (> 1000 (setq sleep-count (1+ sleep-count))))
- (sleep-for 0.001)
- )
- (if (>= sleep-count 1000)
- (message "Timeout on running debugger command")
- ;; else
- ;; (message "+++4 %s" realgud-track-divert-string)
- (let ((bt-buffer (get-buffer-create
- (format "*Backtrace %s*"
- (realgud-get-buffer-base-name
- (buffer-name)))))
- (divert-string realgud-track-divert-string)
- )
- (realgud-cmdbuf-info-bt-buf= bt-buffer)
- (with-current-buffer bt-buffer
- (setq buffer-read-only nil)
- (delete-region (point-min) (point-max))
- (if divert-string
- (let* ((triple
- (realgud:backtrace-add-text-properties
- frame-pat cmdbuf divert-string indicator-re))
- (string-with-props
- (ansi-color-filter-apply (car triple)))
- (frame-num-pos-list (cl-caddr triple))
- )
- (setq selected-frame-num (cadr triple))
- (insert string-with-props)
- ;; add marks for each position
- (realgud-backtrace-mode cmdbuf)
- (setq frame-pos-ring
- (make-ring (length frame-num-pos-list)))
- (dolist (pos frame-num-pos-list)
- (goto-char (1+ pos))
- (ring-insert-at-beginning frame-pos-ring (point-marker))
- )
- )
- )
- ;; realgud-backtrace-mode kills all local variables so
- ;; we set this after. Alternatively change realgud-backtrace-mode.
- (set (make-local-variable 'realgud-backtrace-info)
- (make-realgud-backtrace-info
- :cmdbuf cmdbuf
- :frame-ring frame-pos-ring
- ))
- (if selected-frame-num
- (realgud-backtrace-moveto-frame selected-frame-num))
- )
- )
- )
- )
- )
- (unless cmdbuf
- (message "Unable to find debugger command buffer for %s" buffer))
- )
- )
-
-(defun realgud-backtrace? ( &optional buffer)
- "Return true if BUFFER is a debugger command buffer."
- (with-current-buffer-safe
- (or buffer (current-buffer))
- (realgud-backtrace-info-set?)))
-
-
-(defalias 'realgud-backtrace-info? 'realgud-backtrace-info-p)
-
-(defun realgud-backtrace-info-set? ()
- "Return true if realgud-backtrace-info is set."
- (and (boundp 'realgud-backtrace-info)
- realgud-backtrace-info
- (realgud-backtrace-info? realgud-backtrace-info)))
-
-
-(defun realgud-backtrace-moveto-frame-selected ()
- "Set point to the selected frame."
- (interactive)
- (if (realgud-backtrace?)
- (let* ((cur-pos (realgud-sget 'backtrace-info 'cur-pos))
- (ring-size (ring-size (realgud-sget 'backtrace-info 'frame-ring)))
- )
- (if (and cur-pos (> ring-size 0))
- (realgud-backtrace-moveto-frame cur-pos)
- ;else
- (message "No frame information recorded")
- )
- )
- )
- )
-
-(defun realgud-backtrace-moveto-frame (num &optional _opt-buffer)
- (if (integerp num)
- (if (realgud-backtrace?)
- (let* ((ring (realgud-sget 'backtrace-info 'frame-ring))
- (marker (ring-ref ring num)))
- (setf (realgud-backtrace-info-cur-pos realgud-backtrace-info) num)
- (goto-char marker)
- )
- )
- ; else
- (message "frame number %s is not an integer" num)
- )
- )
-
-(defun realgud-backtrace-moveto-frame-next ()
- "Set point to the next frame. If we are at the end, wrap to the
-beginning. Note that we are just moving in the backtrace buffer,
-not updating the frame stack."
- (interactive)
- (if (realgud-backtrace?)
- (let* ((cur-pos (realgud-sget 'backtrace-info 'cur-pos))
- (ring-size (ring-size (realgud-sget 'backtrace-info 'frame-ring)))
- )
- (if (and cur-pos (> ring-size 0))
- (realgud-backtrace-moveto-frame (ring-plus1 cur-pos ring-size))
- ;else
- (message "No frame information recorded")
- )
- )
- )
- )
-
-(defun realgud-backtrace-moveto-frame-prev ()
- "Set point to the next frame. If we are at the beginning, wrap to the
-end. Note that we are just moving in the backtrace buffer,
-not updating the frame stack."
- (interactive)
- (if (realgud-backtrace?)
- (let* ((cur-pos (realgud-sget 'backtrace-info 'cur-pos))
- (ring-size (ring-size (realgud-sget 'backtrace-info 'frame-ring)))
- )
- (if (and cur-pos (> ring-size 0))
- (realgud-backtrace-moveto-frame (ring-minus1 cur-pos ring-size))
- ;else
- (message "No frame information recorded")
- )
- )
- )
- )
-
-(defun realgud-goto-frame-n-internal (keys)
- (if (and (stringp keys)
- (= (length keys) 1))
- (progn
- (setq realgud-goto-entry-acc (concat realgud-goto-entry-acc keys))
- ;; Try to find the longest suffix.
- (let ((acc realgud-goto-entry-acc))
- (while (not (string= acc ""))
- (if (not (realgud-goto-entry-try acc))
- (setq acc (substring acc 1))
- (realgud:cmd-frame (string-to-number acc))
- ;; Break loop.
- (setq acc "")))))
- (message "`realgud-goto-frame-n' must be bound to a number key")))
-
-;; FIXME: replace with ring.
-(defun realgud-goto-entry-try (str)
- "See if there is an entry with number STR. If not return nil."
- (goto-char (point-min))
- (if (re-search-forward (concat "^[^0-9]*\\(" str "\\)[^0-9]") nil t)
- (progn
- (goto-char (match-end 1))
- t)
- nil))
-
-
-;; The following is split in two to facilitate debugging.
-(defun realgud-goto-entry-n-internal (keys)
- (if (and (stringp keys)
- (= (length keys) 1))
- (progn
- (setq realgud-goto-entry-acc (concat realgud-goto-entry-acc keys))
- ;; Try to find the longest suffix.
- (let ((acc realgud-goto-entry-acc)
- (p (point)))
- (while (not (string= acc ""))
- (if (not (realgud-goto-entry-try acc))
- (setq acc (substring acc 1))
- (setq p (point))
- ;; Break loop.
- (setq acc "")))
- (goto-char p)))
- (message "`realgud-goto-entry-n' must be bound to a number key")))
-
-
-(defun realgud-goto-entry-n ()
- "Go to an entry number.
-
-Breakpoints, Display expressions and Stack Frames all have
-numbers associated with them which are distinct from line
-numbers. In a secondary buffer, this function is usually bound to
-a numeric key which will position you at that entry number. To
-go to an entry above 9, just keep entering the number. For
-example, if you press 1 and then 9, you should jump to entry
-1 (if it exists) and then 19 (if that exists). Entering any
-non-digit will start entry number from the beginning again."
- (interactive)
- (if (not (eq last-command 'realgud-goto-entry-n))
- (setq realgud-goto-entry-acc ""))
- (realgud-goto-entry-n-internal (this-command-keys)))
-
-(defun realgud-goto-frame ()
- "Go to the frame number. We get the frame number from the
-'frame-num property"
- (interactive)
- (if (realgud-backtrace?)
- (let ((frame-num (get-text-property (point) 'frame-num)))
- (if frame-num
- (realgud:cmd-frame frame-num)
- (message "No frame property found at this point")
- )
- )
- )
- )
-
-(defun realgud-goto-frame-1 ()
- "Go to the frame 1"
- (interactive)
- (if (realgud-backtrace?)
- (realgud:cmd-frame 1)
- )
- )
-
-(defun realgud-goto-frame-2 ()
- "Go to the frame 2"
- (interactive)
- (if (realgud-backtrace?)
- (realgud:cmd-frame 2)
- )
- )
-
-(defun realgud-goto-frame-3 ()
- "Go to the frame 3"
- (interactive)
- (if (realgud-backtrace?)
- (realgud:cmd-frame 3)
- )
- )
-
-(defun realgud-goto-frame-mouse (event)
- (interactive "e")
- (let* ((pos (posn-point (event-end event)))
- (frame-num (get-text-property pos 'frame-num)))
- (if (realgud-backtrace?)
- (if frame-num
- (realgud:cmd-frame frame-num)
- (message "No frame property found at this point")
- )
- )
- )
-)
-
-(defun realgud-goto-frame-n ()
- "Go to the frame number indicated by the accumulated numeric keys just
entered.
-
-This function is usually bound to a numeric key in a 'frame'
-secondary buffer. To go to an entry above 9, just keep entering
-the number. For example, if you press 1 and then 9, frame 1 is selected
-\(if it exists) and then frame 19 (if that exists). Entering any
-non-digit will start entry number from the beginning again."
- (interactive)
- (if (not (eq last-command 'realgud-goto-frame-n))
- (setq realgud-goto-entry-acc ""))
- (realgud-goto-frame-n-internal (this-command-keys)))
-
-(defun realgud:backtrace-add-text-properties(frame-pat cmdbuf &optional
opt-string
- frame-indicator-re)
- "Parse OPT-STRING or the current buffer and add frame properties: frame
number,
-filename, line number, whether the frame is selected as text properties."
-
- (let* ((string (or opt-string
- (buffer-substring (point-min) (point-max))
- ))
- (stripped-string (ansi-color-filter-apply string))
- (frame-regexp (realgud-loc-pat-regexp frame-pat))
- (frame-group-pat (realgud-loc-pat-num frame-pat))
- (file-group-pat (realgud-loc-pat-file-group frame-pat))
- (line-group-pat (realgud-loc-pat-line-group frame-pat))
- (alt-frame-num -1)
- (last-pos 0)
- (selected-frame-num nil)
- (frame-num-pos-list '())
- )
- (while (string-match frame-regexp stripped-string last-pos)
- (let ((frame-num-str) (frame-num) (line-num) (filename)
- ;; FIXME: Remove hack that group 1 is always the frame indicator.
- (frame-indicator
- (substring stripped-string (match-beginning 1) (match-end 1)))
- ;; From https://github.com/realgud/realgud/pull/192
- ;; Each frame of backtrace is searched via string-match
- ;; invocation and a position of the current frame is
- ;; updated via (setq last-pos (match-end 0)) in the end of
- ;; the loop. But somewhere in the body of the loop (I do
- ;; not know exactly where), there is another call to
- ;; string-match and it messes up all positions.
- (whole-match-begin (match-beginning 0))
- (whole-match-end (match-end 0))
- (frame-num-pos)
-
- )
- (if frame-group-pat
- (progn
- (setq frame-num-str
- (substring stripped-string
- (match-beginning frame-group-pat)
- (match-end frame-group-pat)))
- (setq frame-num (string-to-number frame-num-str))
- (setq frame-num-pos (match-beginning frame-group-pat))
- (cl-pushnew frame-num-pos frame-num-pos-list)
- (add-text-properties (match-beginning frame-group-pat)
- (match-end frame-group-pat)
- (list 'mouse-face 'highlight
- 'help-echo "mouse-2: goto this frame"
- 'frame frame-num)
- string)
- )
- ; else
- (progn
- (setq frame-num-str
- (substring stripped-string (match-beginning 0)
- (match-end 0)))
- (setq frame-num (cl-incf alt-frame-num))
- (setq frame-num-pos (match-beginning 0))
- (cl-pushnew frame-num-pos frame-num-pos-list)
- (add-text-properties (match-beginning 0) (match-end 0)
- (list 'mouse-face 'highlight
- 'help-echo "mouse-2: goto this frame"
- 'frame frame-num)
- string)
- )
- )
- (when file-group-pat
- (setq filename (substring stripped-string
- (match-beginning file-group-pat)
- (match-end file-group-pat)))
- (add-text-properties (match-beginning file-group-pat)
- (match-end file-group-pat)
- (list 'mouse-face 'highlight
- 'help-echo "mouse-2: goto this file"
- 'action 'realgud:follow-event
- 'file filename)
- string)
- )
- (when line-group-pat
- (let ((line-num-str (substring stripped-string
- (match-beginning line-group-pat)
- (match-end line-group-pat))))
- (setq line-num (string-to-number (or line-num-str "1")))
- ))
-
- (when (and (stringp filename) (numberp line-num))
- (let ((loc (realgud:file-loc-from-line filename line-num cmdbuf)))
- (put-text-property whole-match-begin whole-match-end
- 'loc loc string)
- ))
- (put-text-property whole-match-begin whole-match-end
- 'frame-num frame-num string)
- (setq last-pos whole-match-end)
-
- (if (string-match frame-indicator-re frame-indicator)
- (setq selected-frame-num frame-num))
- ))
-
- (list string selected-frame-num (nreverse frame-num-pos-list))
- )
- )
-
-(provide-me "realgud-buffer-")
diff --git a/packages/realgud/realgud/common/buffer/command.el
b/packages/realgud/realgud/common/buffer/command.el
deleted file mode 100644
index db159f8..0000000
--- a/packages/realgud/realgud/common/buffer/command.el
+++ /dev/null
@@ -1,482 +0,0 @@
-;; Copyright (C) 2015-2018 Free Software Foundation, Inc
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-;;; process-command buffer things
-
-(require 'load-relative)
-(require 'json)
-(require-relative-list
- '("../fringe" "../loc" "../lochist" "../regexp") "realgud-")
-(require-relative-list '("info") "realgud-buffer-")
-
-(declare-function realgud-get-cmdbuf 'realgud-buffer-helper)
-
-(eval-when-compile
- (byte-compile-disable-warning 'cl-functions)
- ;; Somehow disabling cl-functions causes the erroneous message:
- ;; Warning: the function `reduce' might not be defined at runtime.
- ;; FIXME: isolate, fix and/or report back to Emacs developers a bug
- (byte-compile-disable-warning 'unresolved)
- (defvar realgud-cmdbuf-info)
- )
-(require 'cl-lib)
-
-(defface debugger-running
- '((((class color) (min-colors 16) (background light))
- (:foreground "Green4" :weight bold))
- (((class color) (min-colors 88) (background dark))
- (:foreground "Green1" :weight bold))
- (((class color) (min-colors 16) (background dark))
- (:foreground "Green" :weight bold))
- (((class color)) (:foreground "green" :weight bold))
- (t (:weight bold)))
- "Face used to highlight debugger run information."
- :group 'realgud
- :version "24.3")
-
-(defface debugger-not-running
- '((t :inherit font-lock-warning-face))
- "Face used when debugger or process is not running."
- :group 'realgud
- :version "24.3")
-
-
-(cl-defstruct realgud-cmdbuf-info
- "The debugger object/structure specific to a process buffer."
- debugger-name ;; Name of debugger
- base-variable-name ;; prefix used in variables pertinent to this
- ;; debugger sometimes it is the same as the debugger
- ;; and sometimes it is different
- cmd-args ;; Command-line invocation arguments
- frame-switch? ;; Should the selected window be the source buffer or
- ;; command buffer?
- in-srcbuf? ;; If true, selected window should be the source buffer.
- ;; Otherwise, the command buffer?
- last-input-end ;; point where input last ended. Set from
- ;; comint-last-input-end
- prior-prompt-regexp ;; regular expression prompt (e.g.
- ;; comint-prompt-regexp) *before* setting
- ;; loc-regexp
- no-record? ;; Should we update the location history?
- in-debugger? ;; True if we think we are in a debugger
- src-shortkey? ;; Are source buffers in realgud-short-key mode?
- regexp-hash ;; hash table of regular expressions appropriate for
- ;; this debugger. Eventually loc-regexp, file-group
- ;; and line-group below will removed and stored here.
- srcbuf-list ;; list of source buffers we have stopped at
- bt-buf ;; backtrace buffer if it exists
- bp-list ;; list of breakpoints
- divert-output? ;; Output is part of a conversation between front-end
- ;; debugger.
- cmd-hash ;; Allows us to remap command names like
- ;; quit => quit!
- callback-loc-fn ;; If we need, as in the case of Java, to do
- ;; special handling to map output to a file
- ;; location, this is set to that special
- ;; function
- callback-eval-filter ;; If set, this function strip extraneous output
- ;; when evaluating an expression. For example,
- ;; some trepan debuggers expression values prefaced
with:
- ;; $DB::D[0] =
-
- ;; FIXME: REMOVE THIS and use regexp-hash
- loc-regexp ;; Location regular expression string
- file-group
- line-group
- alt-file-group
- alt-line-group
- text-group
- ignore-file-re
-
- loc-hist ;; ring of locations seen in the course of execution
- ;; see realgud-lochist
- starting-directory ;; directory where initial debug command was issued.
- ;; this can be used to resolve relative file names
- )
-(make-variable-buffer-local 'realgud-cmdbuf-info)
-(make-variable-buffer-local 'realgud-last-output-start)
-
-(defalias 'realgud-cmdbuf-info? 'realgud-cmdbuf-info-p)
-
-;; FIXME: figure out how to put in a loop.
-(realgud-struct-field-setter "realgud-cmdbuf-info" "bp-list")
-(realgud-struct-field-setter "realgud-cmdbuf-info" "bt-buf")
-(realgud-struct-field-setter "realgud-cmdbuf-info" "cmd-args")
-(realgud-struct-field-setter "realgud-cmdbuf-info" "last-input-end")
-(realgud-struct-field-setter "realgud-cmdbuf-info" "divert-output?")
-(realgud-struct-field-setter "realgud-cmdbuf-info" "frame-switch?")
-(realgud-struct-field-setter "realgud-cmdbuf-info" "in-srcbuf?")
-(realgud-struct-field-setter "realgud-cmdbuf-info" "no-record?")
-(realgud-struct-field-setter "realgud-cmdbuf-info" "prior-prompt-regexp")
-(realgud-struct-field-setter "realgud-cmdbuf-info" "src-shortkey?")
-(realgud-struct-field-setter "realgud-cmdbuf-info" "in-debugger?")
-(realgud-struct-field-setter "realgud-cmdbuf-info" "callback-loc-fn")
-(realgud-struct-field-setter "realgud-cmdbuf-info" "callback-eval-filter")
-(realgud-struct-field-setter "realgud-cmdbuf-info" "starting-directory")
-
-(defun realgud:cmdbuf-follow-buffer(event)
- (interactive "e")
- (let* ((pos (posn-point (event-end event)))
- (buffer (get-text-property pos 'buffer)))
- (find-file-other-window (buffer-file-name buffer))))
-
-(defun realgud:cmdbuf-buffers-describe (info)
- (let* ((buffer-list (realgud-cmdbuf-info-srcbuf-list info))
- (debugger-name (realgud-cmdbuf-info-debugger-name info))
- (file-remap-name (intern (format "realgud:%s-file-remap"
debugger-name)))
- (file-remap (and (boundp file-remap-name) (eval file-remap-name)))
- (filename)
- (remapped-filename)
- )
- (insert "** Source Buffers Seen (srcbuf-list)\n")
-
- (dolist (buffer buffer-list)
- (insert " - ")
- (put-text-property
- (insert-text-button
- (setq filename (buffer-name buffer))
- 'action 'realgud:cmdbuf-follow-buffer
- 'help-echo "mouse-2: visit this file")
- (point)
- 'buffer buffer)
- (when (setq remapped-filename (and file-remap (gethash filename
file-remap)))
- (insert (format "\tremapped to: %s" remapped-filename)))
- (insert "\n")
- )))
-
-;; FIXME: this is a cheat. We are inserting
-;; and afterwards inserting ""
-(defun realgud:cmdbuf-bp-list-describe (info)
- (let ((bp-list (realgud-cmdbuf-info-bp-list info)))
- (cond (bp-list
- (insert "** Breakpoint list (bp-list)\n")
- (dolist (loc bp-list "")
- (let ((bp-num (realgud-loc-num loc)))
- (insert (format "*** Breakpoint %d\n" bp-num))
- (realgud:org-mode-append-loc loc))))
- ;; Since we are inserting, the below in fact
- ;; inserts nothing. The string return is
- ;; aspirational for when this is fixed
- (t "\n")
- )))
-
-(defun realgud:org-mode-encode (header object)
- "Return an org-mode representation of OBJECT as an org-mode string."
- (format "%s%s" header
- (cond ((not object) "nil\n")
- ((stringp object) (format "%s\n" object))
- ((keywordp object) (json-encode-string
- (substring (symbol-name object) 1)))
- ((symbolp object) (json-encode-string
- (symbol-name object)))
- ((numberp object) (json-encode-number object))
- ((arrayp object) (json-encode-array object))
- ((hash-table-p object) (realgud:org-mode-encode-htable object))
- ;; ((listp object) (realgud:org-mode-encodelist object))
- (t (signal 'error (list object))))))
-
-(defun realgud:org-mode-encode-htable (hash-table)
- "Return an org-mode representation of HASH-TABLE as a s."
- (format "%s"
- (json-join
- (let (r)
- (maphash
- (lambda (k v)
- (push (format
- " - %s\t::\t%s" k (realgud:org-mode-encode v ""))
- r))
- hash-table)
- r)
- "")))
-
-(defun realgud:cmdbuf-info-describe (&optional buffer)
- "Display realgud-cmdcbuf-info fields of BUFFER.
-BUFFER is either a debugger command or source buffer. If BUFFER is not given
-the current buffer is used as a starting point.
-Information is put in an internal buffer called *Describe*."
- (interactive "")
- (setq buffer (realgud-get-cmdbuf buffer))
- (if buffer
- (with-current-buffer buffer
- (lexical-let ((info realgud-cmdbuf-info)
- (cmdbuf-name (buffer-name)))
- (if info
- (progn
- (switch-to-buffer (get-buffer-create "*Describe*"))
- (setq buffer-read-only 'nil)
- (delete-region (point-min) (point-max))
- ;;(insert "#+OPTIONS: H:2 num:nil toc:t \\n:nil ::t |:t
^:nil -:t f:t *:t tex:t d:(HIDE) tags:not-in-toc\n")
- (insert (format "#+TITLE: Debugger info for %s
-
-This is based on an org-mode buffer. Hit tab to expand/contract sections.
-\n"
- cmdbuf-name))
- (insert "** General Information (realgud-cmdbuf-info)\n")
- ;; (insert "** General Information (")
- ;; (insert-text-button
- ;; "realgud-cmdbuf-info"
- ;; ;; FIXME figure out how to set buffer to cmdbuf so we get
cmdbuf value
- ;; 'action (lambda(button) (describe-variable
'realgud-cmdbuf-info))
- ;; 'help-echo "mouse-2: help-on-variable")
- ;; (insert ")\n")
-
- (mapc 'insert
- (list
- (format " - Debugger name ::\t%s\n"
- (realgud-cmdbuf-info-debugger-name info))
- (format " - Command-line args ::\t%s\n"
- (json-encode (realgud-cmdbuf-info-cmd-args
info)))
- (format " - Starting directory ::\t%s\n"
- (realgud-cmdbuf-info-starting-directory info))
- (format " - Selected window should contain source? ::
%s\n"
- (realgud-cmdbuf-info-in-srcbuf? info))
- (format " - Last input end ::\t%s\n"
- (realgud-cmdbuf-info-last-input-end info))
- (format " - Source should go into short-key mode? ::
%s\n"
- (realgud-cmdbuf-info-src-shortkey? info))
- (format " - In debugger? ::\t%s\n"
- (realgud-cmdbuf-info-in-debugger? info))
-
- (realgud:org-mode-encode "\n*** Remap table for debugger
commands\n"
-
(realgud-cmdbuf-info-cmd-hash info))
- ;; (realgud:org-mode-encode "\n*** Backtrace buffer"
- ;;
(realgud-cmdbuf-info-bt-buf info))
- ;; (format " - Backtrace buffer ::\t%s\n"
- ;; (realgud-cmdbuf-info-bt-buf info))
- ))
- (insert "\n")
- (realgud:cmdbuf-bp-list-describe info)
- (insert "\n")
- (realgud:cmdbuf-buffers-describe info)
- (insert "\n")
- (realgud:loc-hist-describe (realgud-cmdbuf-info-loc-hist info))
- (insert "
-#+STARTUP: overview
- #+STARTUP: content
- #+STARTUP: showall
- #+STARTUP: showeverything
-")
- (goto-char (point-min))
- (realgud:info-mode)
- )
- (message "realgud-cmdbuf-info is nil")
- )
- ))
- (message "Buffer %s is not a debugger source or command buffer; nothing
done."
- (or buffer (current-buffer)))
- )
- )
-
-(defun realgud-cmdbuf? (&optional buffer)
- "Return true if BUFFER is a debugger command buffer."
- (with-current-buffer-safe
- (or buffer (current-buffer))
- (realgud-cmdbuf-info-set?)))
-
-(defun realgud-cmdbuf-info-set? ()
- "Return true if realgud-cmdbuf-info is set."
- (and (boundp 'realgud-cmdbuf-info)
- realgud-cmdbuf-info
- (realgud-cmdbuf-info? realgud-cmdbuf-info)))
-
-(defun realgud-cmdbuf-toggle-in-debugger? (&optional buffer)
- "Toggle state of whether we think we are in the debugger or not"
- (interactive "")
- (setq buffer (realgud-get-cmdbuf buffer))
- (if buffer
- (with-current-buffer buffer
- (realgud-cmdbuf-info-in-debugger?=
- (not (realgud-sget 'cmdbuf-info 'in-debugger?)))
- (message "Command buffer is in debugger?: %s\n"
- (realgud-cmdbuf-info-in-debugger? realgud-cmdbuf-info))
- (realgud-cmdbuf-mode-line-update)
- )
- (message "Buffer %s is not a debugger buffer; nothing done."
- (or buffer (current-buffer)))
- )
- )
-
-(defun realgud-cmdbuf-stay-in-source-toggle (&optional buffer)
- "Toggle state of whether we should stay in source code or not"
- (interactive "")
- (setq buffer (realgud-get-cmdbuf buffer))
- (if buffer
- (with-current-buffer buffer
- (realgud-cmdbuf-info-in-srcbuf?=
- (not (realgud-sget 'cmdbuf-info 'in-srcbuf?)))
- (message "Selected window should contain source?: %s\n"
- (realgud-cmdbuf-info-in-srcbuf? realgud-cmdbuf-info))
- )
- (message "Buffer %s is not a debugger buffer; nothing done."
- (or buffer (current-buffer)))
- )
- )
-
-(defun realgud-cmdbuf-add-srcbuf(srcbuf &optional cmdbuf)
- "Add SRCBUF to srcbuf-list field of INFO unless it is already included."
- (setq cmdbuf (or cmdbuf (current-buffer)))
- (if (realgud-cmdbuf? cmdbuf)
- (with-current-buffer-safe cmdbuf
- (unless (memq srcbuf (realgud-cmdbuf-info-srcbuf-list
realgud-cmdbuf-info))
- (setf (realgud-cmdbuf-info-srcbuf-list realgud-cmdbuf-info)
- (cons srcbuf (realgud-cmdbuf-info-srcbuf-list
realgud-cmdbuf-info))))
- )
- )
- )
-
-(defun realgud-cmdbuf-set-shortkey(&optional cmdbuf unset)
- (interactive "")
- (setq cmdbuf (or cmdbuf (current-buffer)))
- (if (realgud-cmdbuf? cmdbuf)
- (with-current-buffer-safe cmdbuf
- (setf (realgud-cmdbuf-info-src-shortkey? realgud-cmdbuf-info) (not
unset))
- (message "Set source to shortkey is now %s" (not unset))
- ))
- )
-
-(defun realgud-cmdbuf-command-string(cmd-buffer)
- "Get the command string invocation for this command buffer"
- (cond
- ((realgud-cmdbuf? cmd-buffer)
- (with-current-buffer cmd-buffer
- (let*
- ((cmd-args (realgud-sget 'cmdbuf-info 'cmd-args))
- (result (car cmd-args)))
- (and cmd-args
- (reduce (lambda(result x)
- (setq result (concat result " " x)))
- cmd-args)))))
- (t nil)))
-
-;; FIXME cmd-hash should not be optional. And while I am at it, remove
-;; parameters loc-regexp, file-group, and line-group which can be found
-;; inside pat-hash
-;;
-;; To do this however we need to fix up the caller
-;; realgud:track-set-debugger by changing realgud-pat-hash to store a hash
-;; rather than the loc, file, and line fields; those fields then get
-;; removed.
-
-(defun realgud-cmdbuf-init
- (cmd-buf debugger-name regexp-hash &optional cmd-hash base-variable-name
- starting-directory)
- "Initialize CMD-BUF for a working with a debugger.
-DEBUGGER-NAME is the name of the debugger; REGEXP-HASH are debugger-specific
-values set in the debugger's init.el."
- (with-current-buffer-safe cmd-buf
- (let ((realgud-loc-pat (gethash "loc" regexp-hash))
- (font-lock-keywords)
- )
- (setq realgud-cmdbuf-info
- (make-realgud-cmdbuf-info
- :in-srcbuf? nil
- :debugger-name debugger-name
- :base-variable-name (or base-variable-name debugger-name)
- :loc-regexp (realgud-sget 'loc-pat 'regexp)
- :file-group (realgud-sget 'loc-pat 'file-group)
- :line-group (realgud-sget 'loc-pat 'line-group)
- :alt-file-group (realgud-sget 'loc-pat 'alt-file-group)
- :alt-line-group (realgud-sget 'loc-pat 'alt-line-group)
- :text-group (realgud-sget 'loc-pat 'text-group)
- :ignore-file-re (realgud-sget 'loc-pat 'ignore-file-re)
- :loc-hist (make-realgud-loc-hist)
- :regexp-hash regexp-hash
- :bt-buf nil
- :last-input-end (point-max)
- :cmd-hash cmd-hash
- :src-shortkey? t
- :in-debugger? nil
- :callback-loc-fn (gethash "loc-callback-fn" regexp-hash)
- :callback-eval-filter (gethash "callback-eval-filter"
- regexp-hash)
- ))
- (setq font-lock-keywords (realgud-cmdbuf-pat "font-lock-keywords"))
- (if font-lock-keywords
- (set (make-local-variable 'font-lock-defaults)
- (list font-lock-keywords)))
- )
-
- (put 'realgud-cmdbuf-info 'variable-documentation
- "Debugger object for a process buffer."))
- )
-
-(defun realgud-cmdbuf-reset (cmd-buf)
- "nil out variable realgud-cmdbuf-info in CMD-BUF"
- (with-current-buffer-safe cmd-buf
- (setq realgud-cmdbuf-info nil)
- ))
-
-(defun realgud-cmdbuf-debugger-name (&optional cmd-buf)
- "Return the debugger name recorded in the debugger command-process buffer."
- (with-current-buffer-safe (or cmd-buf (current-buffer))
- (if (realgud-cmdbuf?)
- (realgud-sget 'cmdbuf-info 'debugger-name)
- nil))
- )
-
-(defun realgud-cmdbuf-pat(key)
- "Extract regexp stored under KEY in a realgud-cmdbuf via realgud-cmdbuf-info"
- (if (realgud-cmdbuf?)
- (let*
- ((debugger-name (realgud-cmdbuf-debugger-name))
- (regexp-hash (gethash debugger-name realgud-pat-hash))
- (loc-pat (gethash key regexp-hash)))
- loc-pat)
- nil))
-
-(defun realgud-cmdbuf-loc-hist(cmd-buf)
- "Return the history ring of locations that a debugger
-command-process buffer has stored."
- (with-current-buffer-safe cmd-buf
- (realgud-sget 'cmdbuf-info 'loc-hist))
-)
-
-(defun realgud-cmdbuf-src-marker(cmd-buf)
- "Return a marker to current source location stored in the history ring."
- (with-current-buffer cmd-buf
- (lexical-let* ((loc (realgud-loc-hist-item (realgud-cmdbuf-loc-hist
cmd-buf))))
- (and loc (realgud-loc-marker loc)))))
-
-(defun realgud-cmdbuf-mode-line-update (&optional opt-cmdbuf)
- "Force update of command buffer to include process status"
- (let ((cmdbuf (realgud-get-cmdbuf opt-cmdbuf))
- (debug-status)
- (status)
- (cmd-process)
- )
- (if (and cmdbuf (buffer-name cmdbuf))
- (with-current-buffer cmdbuf
- (setq cmd-process (get-buffer-process cmdbuf))
- (setq debug-status
- (if (realgud-sget 'cmdbuf-info 'in-debugger?)
- " debugger"
- ""))
- (setq status
- (if cmd-process
- (list (propertize
- (format ":%s%s"
- (process-status cmd-process) debug-status)
- 'face 'realgud-debugger-running))
- (list (propertize ":not running" 'face
- 'realgud-debugger-not-running))
- ))
- (setq mode-line-process status)
- ;; Force mode line redisplay soon.
- (force-mode-line-update))
- ))
- )
-
-
-(provide-me "realgud-buffer-")
diff --git a/packages/realgud/realgud/common/buffer/helper.el
b/packages/realgud/realgud/common/buffer/helper.el
deleted file mode 100644
index 97e73da..0000000
--- a/packages/realgud/realgud/common/buffer/helper.el
+++ /dev/null
@@ -1,181 +0,0 @@
-; Copyright (C) 2010, 2014 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-(require 'load-relative)
-(require-relative-list '("../fringe" "../helper" "../lochist")
- "realgud-")
-(require-relative-list '("command" "source" "backtrace") "realgud-buffer-")
-
-(declare-function realgud-backtrace? 'realgud-buffer-backtace)
-(declare-function realgud-cmdbuf? 'realgud-buffer-command)
-(declare-function realgud:loc-hist-describe 'realgud-lochist)
-(declare-function realgud-loc-hist-item 'realgud-lochist)
-(declare-function realgud-srcbuf? 'realgud-buffer-command)
-(declare-function buffer-killed? 'realgud-helper)
-
-(defvar realgud-cmdbuf-info)
-
-(defun realgud-get-cmdbuf-from-backtrace ( &optional opt-buffer)
- "Return the command buffer associated with source
-OPT-BUFFER or if that is ommited `current-buffer' which is
-assumed to be a source-code buffer."
- (let ((buffer (or opt-buffer (current-buffer))))
- (if (realgud-backtrace? buffer)
- (with-current-buffer-safe buffer
- (realgud-sget 'backtrace-info 'cmdbuf))
- nil)))
-
-(defun realgud-get-cmdbuf-from-srcbuf ( &optional opt-buffer)
- "Return the command buffer associated with source
-OPT-BUFFER or if that is ommited `current-buffer' which is
-assumed to be a source-code buffer."
- (let ((buffer (or opt-buffer (current-buffer))))
- (if (realgud-srcbuf? buffer)
- (with-current-buffer-safe buffer
- (realgud-sget 'srcbuf-info 'cmdproc))
- nil)))
-
-(defun realgud-get-srcbuf-from-cmdbuf ( &optional opt-buffer opt-loc)
- "Return the source-code buffer associated with command
-OPT-BUFFER or if that is ommited `current-buffer' which is
-assumed to be a process-command buffer."
- (let ((buffer (or opt-buffer (current-buffer))))
- (if (realgud-cmdbuf? buffer)
- (with-current-buffer-safe buffer
- (let ((loc
- (or opt-loc
- (realgud-loc-hist-item
- (realgud-cmdbuf-info-loc-hist realgud-cmdbuf-info)))))
- (if loc
- (marker-buffer (realgud-loc-marker loc))
- nil)
- ))
- nil)))
-
-(defun realgud-get-srcbuf( &optional opt-buffer opt-loc)
- "Return source-code buffer associated with OPT-BUFFER or
-`current-buffer' if that is omitted. nil is returned if we don't
-find anything. If we started out with a buffer that is set up to
-be a source-code buffer we will use that even though it might not
-be the source code buffer for the frame that the debugger is
-using. See also `realgud-get-current-srcbuf'."
-
- (let ((buffer (or opt-buffer (current-buffer))))
- (with-current-buffer-safe buffer
- (cond
- ;; Perhaps buffer is a source source-code buffer?
- ((realgud-srcbuf? buffer) buffer)
- ;; Perhaps buffer is a process-command buffer.
- ((realgud-cmdbuf? buffer)
- (realgud-get-srcbuf-from-cmdbuf buffer opt-loc))
- (t nil)))))
-
-(defun realgud-get-current-srcbuf( &optional opt-buffer)
- "Return the source-code buffer associated with OPT-BUFFER
-or `current-buffer' if that is omitted. nil is returned
-if we don't find anything."
-
- (let ((buffer (or opt-buffer (current-buffer))))
- (with-current-buffer-safe buffer
- (let ((cmdbuf
- (cond
- ((realgud-srcbuf? buffer)
- (realgud-get-cmdbuf-from-srcbuf buffer))
- ((realgud-cmdbuf? buffer)
- buffer)
- (t nil))))
- (if cmdbuf
- (realgud-get-srcbuf-from-cmdbuf cmdbuf)
- nil)))))
-
-(defun realgud-get-cmdbuf( &optional opt-buffer)
- "Return the command buffer associated with OPT-BUFFER
-or `current-buffer' if that is omitted. nil is returned
-if we don't find anything."
-
- (let ((buffer (or opt-buffer (current-buffer))))
- (with-current-buffer-safe buffer
- (cond
- ;; Perhaps buffer is a process-command buffer?
- ((realgud-cmdbuf? buffer) buffer)
- ;; Perhaps buffer is a source-code buffer?
- ((realgud-srcbuf? buffer)
- (realgud-get-cmdbuf-from-srcbuf buffer))
- ;; Perhaps buffer is a backtrace buffer?
- ((realgud-backtrace? buffer)
- (realgud-get-cmdbuf-from-backtrace buffer))
- (t nil)))))
-
-(defun realgud-get-backtrace-buf( &optional opt-buffer)
- "Return the backtrace buffer associated with
-OPT-BUFFER or if that is ommited `current-buffer'."
- (let* ((buffer (or opt-buffer (current-buffer)))
- (cmdbuf (realgud-get-cmdbuf buffer)))
- (with-current-buffer-safe cmdbuf
- (realgud-sget 'cmdbuf-info 'bt-buf)
- ))
- )
-
-(defun realgud-get-process (&optional opt-buffer)
- "Return the process buffer associated with OPT-BUFFER or
- `current-buffer' if that is omitted. nil is returned if
-we don't find anything."
- (let* ((buffer (or opt-buffer (current-buffer)))
- (cmdbuf (realgud-get-cmdbuf buffer)))
- (if cmdbuf
- (get-buffer-process cmdbuf)
- nil)
- )
-)
-
-(defun realgud:srcbuf-info-describe (&optional buffer)
- "Provide descriptive information of the buffer-local variable
-`realgud-srcbuf-info', a defstruct. BUFFER if given is the buffer to
-use to get the information from.
-"
- (interactive "")
- (setq buffer (realgud-get-srcbuf buffer))
- (if buffer
- (with-current-buffer buffer
- (let ((info realgud-srcbuf-info)
- (srcbuf-name (buffer-name))
- (a1 realgud-overlay-arrow1)
- (a2 realgud-overlay-arrow2)
- (a3 realgud-overlay-arrow3)
- )
- (switch-to-buffer (get-buffer-create "*Describe*"))
- (delete-region (point-min) (point-max))
- (mapc 'insert
- (list
- (format "srcbuf-info for %s\n" srcbuf-name)
- (format "Was previously read only?: %s\n"
- (realgud-srcbuf-info-was-read-only? info))
- (format "Command Process buffer: %s\n"
- (realgud-srcbuf-info-cmdproc info))
-
- ;; FIXME This info isn't part of the src info structure.
- (format "Overlay arrow 1: %s\n" a1)
- (format "Overlay arrow 2: %s\n" a2)
- (format "Overlay arrow 3: %s\n" a3)
- (format "Location history:\n")
- ))
- (realgud:loc-hist-describe (realgud-srcbuf-info-loc-hist info))
- )
- )
- (message "Buffer %s is not a debugger source buffer; nothing done."
- (or buffer (current-buffer)))
- )
- )
-
-(provide-me "realgud-buffer-")
diff --git a/packages/realgud/realgud/common/buffer/info.el
b/packages/realgud/realgud/common/buffer/info.el
deleted file mode 100644
index 246f302..0000000
--- a/packages/realgud/realgud/common/buffer/info.el
+++ /dev/null
@@ -1,64 +0,0 @@
-;; Copyright (C) 2015-2016 Free Software Foundation, Inc
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-;;; process-command buffer things
-
-;;; A mode based off of org mode to show debugger information
-
-(eval-when-compile (require 'cl-lib))
-(require 'org)
-
-(require 'load-relative)
-
-(cl-defstruct realgud-backtrace-info
- "debugger object/structure specific to debugger info."
- (cmdbuf nil) ;; buffer of the associated debugger process
-)
-
-;; Can't load because this causes a cyclic dependency on
-;; buffer/commands via cmd and buffer/commands uses us.
-;; (require-relative-list '("menu") "realgud-")
-
-;; FIXME: full definition is in menu.
-(defvar realgud:info-mode-map)
-
-(defcustom realgud:info-mode-hook '()
- "Hook for customizing realgud info mode."
- :type 'hook
- :group 'realgud)
-
-
-(define-derived-mode realgud:info-mode org-mode "Debugger Info"
- "Major mode for interacting realgud debugger information."
- (use-local-map realgud:info-mode-map)
- (setq buffer-read-only t)
- )
-
-;; FIXME:
-;; (defvar realgud:info-mode-map
-;; (realgud-populate-debugger-menu
-;; (make-sparse-keymap "Debugger")))
-
-;; (define-key realgud:info-mode-map [menu-bar debugger]
-;; (cons "Debugger" (realgud-populate-debugger-menu
-;; (make-sparse-keymap "Debugger"))))
-
-;; (define-key realgud:info-mode-map [menu-bar debugger backtrace]
-;; '("Backtrace" . realgud:window-bt))
-;;(define-key realgud:info-mode-map [menu-bar debugger command]
-;; '("Go to Command Buffer" . realgud-window-cmd-undisturb-src))
-;;(define-key realgud:info-mode-map [menu-bar debugger source]
-;; '("Go to Source Buffer" . realgud-window-src-undisturb-cmd))
-
-(provide-me "realgud-buffer-")
diff --git a/packages/realgud/realgud/common/buffer/source.el
b/packages/realgud/realgud/common/buffer/source.el
deleted file mode 100644
index c609e42..0000000
--- a/packages/realgud/realgud/common/buffer/source.el
+++ /dev/null
@@ -1,208 +0,0 @@
-;;; Copyright (C) 2010, 2012-2015, 2017 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-;;; source-code buffer code
-(eval-when-compile
- (defvar realgud-srcbuf-info) ;; is buffer local
- (defvar realgud-cmdbuf-info) ;; in the cmdbuf, this is buffer local
- )
-
-(require 'cl-lib)
-(require 'load-relative)
-(require-relative-list '("../helper" "../key") "realgud-")
-
-(declare-function realgud-populate-common-keys 'realgud-menu)
-(declare-function buffer-killed? 'realgud-helper)
-(declare-function buffer-loc-line-number? 'realgud-loc)
-(declare-function realgud-cmdbuf-add-srcbuf 'realgud-cmdbuf)
-(declare-function realgud-cmdbuf-info-bp-list 'realgud-cmdbuf)
-(declare-function realgud-cmdbuf? 'realgud-cmdbuf)
-(declare-function realgud-loc-marker 'realgud-loc)
-(declare-function realgud-loc-line-number 'realgud-loc)
-(declare-function realgud-loc-num 'realgud-loc)
-(declare-function make-realgud-loc-hist 'realgud-lochist)
-(declare-function realgud-get-srcbuf 'helper)
-(declare-function realgud-short-key-mode-setup 'realgud-shortkey)
-
-(cl-defstruct realgud-srcbuf-info
- "debugger object/structure specific to a (top-level) source program
-to be debugged."
- cmdproc ;; buffer of the associated debugger process
- cur-pos ;; If not nil, the debugger thinks we are currently
- ;; positioned at a corresponding place in the
- ;; program.
- short-key? ;; Was the source buffer previously in short-key
- ;; mode? Used to deterimine when short-key mode
- ;; changes state in a source buffer, so we need to
- ;; perform on/off actions.
- was-read-only? ;; Was buffer initially read only? (i.e. the original
- ;; value of the buffer's buffer-read-only
- ;; variable. Short-key-mode may change the read-only
- ;; state, so we need restore this value when leaving
- ;; short-key mode
- prev-local-map ;; Local map before enabling short-key-mode
-
- loc-hist ;; ring of locations seen
-
- ;; FILL IN THE FUTURE
- ;;(brkpt-alist '()) ;; alist of breakpoints the debugger has referring
- ;; to this buffer. Each item is (brkpt-name . marker)
- ;;
-)
-
-
-(defalias 'realgud-srcbuf-info? 'realgud-srcbuf-p)
-
-;; FIXME: figure out how to put in a loop.
-(realgud-struct-field-setter "realgud-srcbuf-info" "cmdproc")
-(realgud-struct-field-setter "realgud-srcbuf-info" "short-key?")
-(realgud-struct-field-setter "realgud-srcbuf-info" "was-read-only?")
-(realgud-struct-field-setter "realgud-srcbuf-info" "prev-local-map")
-
-(defun realgud-srcbuf-info-set? ()
- "Return non-nil if `realgud-srcbuf-info' is set."
- (and (bound-and-true-p realgud-srcbuf-info)
- (realgud-srcbuf-info? realgud-srcbuf-info)))
-
-(defun realgud-srcbuf? (&optional buffer)
- "Return non-nil if BUFFER is a debugger source buffer."
- (with-current-buffer-safe (or buffer (current-buffer))
- (and (realgud-srcbuf-info-set?)
- (not (buffer-killed? (realgud-sget 'srcbuf-info 'cmdproc)))
- )))
-
-(defun realgud--read-cmd-buf (prompt)
- "Read a command buffer, prompting with PROMPT."
- (let* ((cmd-bufs (cl-remove-if-not #'realgud-cmdbuf? (buffer-list)))
- (buf-names (mapcar #'buffer-name cmd-bufs))
- (default (car buf-names)))
- (when buf-names
- ;; Use completing-read instead of read-buffer: annoyingly, ido's
- ;; read-buffer ignores predicates.
- (setq prompt (format "%s (default: %s): " prompt default))
- (get-buffer (completing-read prompt buf-names nil t nil nil default)))))
-
-(defun realgud--ensure-attached (&optional src-buf)
- "Try to attach SRC-BUF to a command buffer.
-If SRC-BUF is already attached, do nothing. Otherwise, prompt
-the user for a command buffer to associate SRC-BUF to. Returns
-non-nil if association was successful. SRC-BUF defaults to
-current buffer."
- (setq src-buf (or src-buf (current-buffer)))
- (unless (realgud-srcbuf? src-buf)
- (let ((cmd-buf (realgud--read-cmd-buf "Command buffer to attach to")))
- (if cmd-buf
- (realgud-srcbuf-init src-buf cmd-buf)
- (message "No debugger process found to attach %s to" (buffer-name)))))
- (realgud-srcbuf? src-buf))
-
-(defun realgud-srcbuf-debugger-name (&optional src-buf)
- "Return the debugger name recorded in the debugger command-process buffer."
- (with-current-buffer-safe (or src-buf (current-buffer))
- (realgud-sget 'srcbuf-info 'debugger-name))
-)
-
-(defun realgud-srcbuf-loc-hist(src-buf)
- "Return the history ring of locations that a debugger process has stored."
- (with-current-buffer-safe src-buf
- (realgud-sget 'srcbuf-info 'loc-hist))
-)
-
-(declare-function fn-p-to-fn?-alias(sym))
-(fn-p-to-fn?-alias 'realgud-srcbuf-info-p)
-(declare-function realgud-srcbuf-info?(var))
-(declare-function realgud-cmdbuf-info-name(cmdbuf-info))
-
-;; FIXME: support a list of cmdprocs's since we want to allow
-;; a source buffer to potentially participate in several debuggers
-;; which might be active.
-(make-variable-buffer-local 'realgud-srcbuf-info)
-
-(defun realgud-srcbuf-init
- (src-buffer cmdproc-buffer)
- "Initialize SRC-BUFFER as a source-code buffer for a debugger.
-CMDPROC-BUFFER is the process-command buffer containing the
-debugger."
- (with-current-buffer cmdproc-buffer
- (set-buffer src-buffer)
- (set (make-local-variable 'realgud-srcbuf-info)
- (make-realgud-srcbuf-info
- :cmdproc cmdproc-buffer
- :loc-hist (make-realgud-loc-hist)))
- (put 'realgud-srcbuf-info 'variable-documentation
- "Debugger information for a buffer containing source code.")))
-
-(defun realgud-srcbuf-init-or-update (src-buffer cmdproc-buffer)
- "Call `realgud-srcbuf-init' for SRC-BUFFER update `realgud-srcbuf-info'
variables
-in it with those from CMDPROC-BUFFER"
- (realgud-cmdbuf-add-srcbuf src-buffer cmdproc-buffer)
- (with-current-buffer-safe src-buffer
- (realgud-populate-common-keys
- ;; use-local-map returns nil so e have to call (current-local-map)
- ;; again in this case.
- (or (current-local-map) (use-local-map (make-sparse-keymap))
- (current-local-map)))
- (if (realgud-srcbuf-info? realgud-srcbuf-info)
- (realgud-srcbuf-info-cmdproc= cmdproc-buffer)
- (realgud-srcbuf-init src-buffer cmdproc-buffer))))
-
-(defun realgud:cmdbuf-associate ()
- "Associate a command buffer with the current (source-code) buffer."
- ;; realgud-short-key-mode-setup will attempt to associate if needed.
- (realgud-short-key-mode-setup t))
-
-(defun realgud-srcbuf-bp-list(&optional buffer)
- "Return a list of breakpoint loc structures that reside in
-BUFFER. BUFFER should be an initialized source buffer."
- (let ((src-buffer (realgud-get-srcbuf buffer)))
- (if src-buffer
- (with-current-buffer src-buffer
- (let* ((info realgud-srcbuf-info)
- (cmdbuf (realgud-srcbuf-info-cmdproc info)))
- (with-current-buffer cmdbuf
- (let ((bp-list
- (realgud-cmdbuf-info-bp-list realgud-cmdbuf-info)))
- (delq nil
- (mapcar (lambda (loc)
- (cond ((eq src-buffer
- (marker-buffer (realgud-loc-marker
loc)))
- loc)
- (nil)))
- bp-list))
- )))))))
-
-(defun realgud-get-bpnum-from-line-num(line-num &optional buffer)
- "Find a breakpoint number associated with LINE-NUM in source code BUFFER.
-If none exists return nil"
- (let ((src-buffer (realgud-get-srcbuf buffer))
- (bp-num nil)
- (bp)
- (bp-list)
- )
- (if src-buffer
- (progn
- (setq bp-list (realgud-srcbuf-bp-list src-buffer))
- (while (and (not bp-num) bp-list)
- (setq bp (car bp-list))
- (setq bp-list (cdr bp-list))
- (if (eq line-num (realgud-loc-line-number bp))
- (setq bp-num (realgud-loc-num bp)))
- ))
- )
- bp-num))
-
-(provide-me "realgud-buffer-")
diff --git a/packages/realgud/realgud/common/cmds.el
b/packages/realgud/realgud/common/cmds.el
deleted file mode 100644
index 594b8a0..0000000
--- a/packages/realgud/realgud/common/cmds.el
+++ /dev/null
@@ -1,447 +0,0 @@
-;; Copyright (C) 2015-2017 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-(require 'load-relative)
-(require 'thingatpt)
-(require-relative-list '("send" "core") "realgud-")
-(require-relative-list '("buffer/command") "realgud-buffer-")
-(require-relative-list '("buffer/source") "realgud-buffer-")
-
-(declare-function buffer-killed? 'helper)
-(declare-function realgud-cmdbuf-info-in-srcbuf?= 'realgud-buffer-command)
-(declare-function realgud-cmdbuf? 'realgud-buffer-command)
-(declare-function realgud-command 'realgud-send)
-(declare-function realgud-get-cmdbuf 'realgud-buffer-helper)
-(declare-function realgud-get-command 'realgud-buffer-command)
-(declare-function realgud-get-bpnum-from-line-num 'realgud-buffer-source)
-
-(declare-function realgud:terminate 'realgud-core)
-(declare-function realgud:terminate-srcbuf 'realdgud-core)
-
-(defcustom realgud-safe-mode t
- "Confirm certain commands before running them.
-Similar to GDB's “set confirm”."
- :type 'boolean
- :group 'realgud)
-
-(defun realgud:prompt-if-safe-mode(message)
- "Ask use to confirm current command if in safe mode.
-Use MESSAGE plus a space as the prompt string. Do not confirm
-when command was run from a menu."
- (if (and realgud-safe-mode
- last-nonmenu-event
- (not (equal last-nonmenu-event '(tool-bar))))
- (when (y-or-n-p (concat message " "))
- (run-with-timer
- 0 nil #'message
- "Customize `realgud-safe-mode' to disable confirmation prompts.")
- t)
- t))
-
-(defun realgud:cmd--line-number-from-prefix-arg ()
- "Guess or read a line number based on prefix arg.
-Returns (nil) for current line, and a list whose car is the line
-number otherwise."
- (cond
- ((numberp current-prefix-arg)
- current-prefix-arg)
- ((consp current-prefix-arg)
- (let* ((min-line (save-excursion
- (goto-char (point-min))
- (line-number-at-pos)))
- (max-line (save-excursion
- (goto-char (point-max))
- (line-number-at-pos)))
- (prompt (format "Line number (%d..%d)? " min-line max-line))
- (picked-line 0))
- (while (not (<= min-line picked-line max-line))
- (setq picked-line (read-number prompt)))
- (list picked-line)))))
-
-(defmacro realgud:cmd--with-line-override (line &rest body)
- "Run BODY with %l format specifier bound to LINE.
-This is needed because going to LINE explicitly would interfere
-with other motion initiated by debugger messages."
- (declare (indent 1)
- (debug t))
- (let ((line-var (make-symbol "--line--")))
- `(let* ((,line-var ,line)
- (realgud-expand-format-overrides
- (cons (cons ?l (and ,line-var (number-to-string ,line-var)))
- realgud-expand-format-overrides)))
- ,@body)))
-
-(defconst realgud-cmd:default-hash
- (let ((hash (make-hash-table :test 'equal)))
- (puthash "backtrace" "backtrace" hash)
- (puthash "break" "break %X:%l" hash)
- (puthash "break_fn" "break %s" hash)
- (puthash "clear" "clear %l" hash)
- (puthash "continue" "continue" hash)
- (puthash "delete" "delete %p" hash)
- (puthash "delete_all" "delete" hash)
- (puthash "disable" "disable %p" hash)
- (puthash "disable_all" "disable" hash)
- (puthash "down" "down %p" hash)
- (puthash "enable" "enable %p" hash)
- (puthash "enable_all" "enable" hash)
- (puthash "eval" "eval %s" hash)
- (puthash "finish" "finish" hash)
- (puthash "frame" "frame %p" hash)
- (puthash "help" "help" hash)
- (puthash "jump" "jump %l" hash)
- (puthash "kill" "kill" hash)
- (puthash "next" "next %p" hash)
- (puthash "repeat-last" "\n" hash)
- (puthash "restart" "run" hash)
- (puthash "shell" "shell" hash)
- (puthash "step" "step %p" hash)
- (puthash "until" "until" hash)
- (puthash "up" "up %p" hash)
- hash)
- "Default hash of command name → debugger command.
-This is used as a fallback when the debugger-specific command
-hash does not specify a custom debugger command.")
-
-(defun realgud:cmd-run-command(arg cmd-name &optional
- default-cmd-template no-record?
- frame-switch? realgud-prompts?)
- "Run debugger command CMD-NAME.
-If CMD-NAME isn't set in the command buffer's command hash, use
-DEFAULT-CMD-TEMPLATE and fall back to looking CMD-NAME up in
-`realgud:cmd-get-cmd-hash'."
- (let* ((buffer (current-buffer))
- (cmdbuf (realgud-get-cmdbuf))
- (cmd-hash (with-current-buffer-safe cmdbuf
- (realgud-cmdbuf-info-cmd-hash realgud-cmdbuf-info)))
- (cmd (or (and (hash-table-p cmd-hash)
- (gethash cmd-name cmd-hash))
- default-cmd-template
- (gethash cmd-name realgud-cmd:default-hash))))
- (if (or (null cmd) (equal cmd "*not-implemented*"))
- (message "Command %s is not implemented for this debugger" cmd-name)
- (progn
- ;; Set flag to know which buffer to jump back to
- (with-current-buffer-safe cmdbuf
- (realgud-cmdbuf-info-in-srcbuf?= (not (realgud-cmdbuf? buffer))))
- ;; Run actual command
- (realgud-command cmd arg no-record? frame-switch? realgud-prompts?)
- ;; FIXME: Figure out how to update the position if the source
- ;; buffer is displayed.
- ;; (if frame-switch?
- ;; (let* ((src-buffer (realgud-get-srcbuf-from-cmdbuf cmdbuf))
- ;; (src-window (get-buffer-window src-buffer))
- ;; ))
- ;; (with-selected-window src-window
- ;; (message "recentering...")
- ;; (realgud-recenter-arrow)
- ;; ))
- )
- )
- ))
-
-(defun realgud:cmd-remap (arg cmd-name default-cmd-template
- &optional key no-record? frame-switch?
- realgud-prompts?)
- "Compatibility alias for `realgud:cmd-run-command'.
-ARG, CMD-NAME, DEFAULT-CMD-TEMPLATE are as in `realgud:cmd-run-command'.
-KEY is ignored. NO-RECORD?, FRAME-SWITCH?, REALGUD-PROMPTS? are
-as in `realgud:cmd-run-command'."
- (realgud:cmd-run-command arg cmd-name default-cmd-template
- no-record? frame-switch?
- realgud-prompts?))
-
-(make-obsolete 'realgud:cmd-remap 'realgud:cmd-run-command "1.3.1")
-
-(defun realgud:cmd-backtrace(arg)
- "Show the current call stack."
- (interactive "p")
- (realgud:cmd-run-command arg "backtrace")
- )
-
-(defun realgud:cmd-break (&optional line-number)
- "Set a breakpoint at the current line.
-With prefix argument LINE-NUMBER, prompt for line number."
- (interactive (realgud:cmd--line-number-from-prefix-arg))
- (realgud:cmd--with-line-override line-number
- (realgud:cmd-run-command line-number
"break")))
-
-(defun realgud:cmd-clear(&optional line-number)
- "Delete breakpoint at the current line.
-With prefix argument LINE-NUMBER, prompt for line number."
- (interactive (realgud:cmd--line-number-from-prefix-arg))
- (realgud:cmd--with-line-override line-number
- (realgud:cmd-run-command line-number
"clear")))
-
-(defun realgud:cmd-jump(&optional line-number)
- "Jump to current line.
-With prefix argument LINE-NUMBER, prompt for line number."
- (interactive (realgud:cmd--line-number-from-prefix-arg))
- (realgud:cmd--with-line-override line-number
- (realgud:cmd-run-command (line-number-at-pos) "jump")))
-
-(defun realgud:cmd-continue(&optional arg)
- "Continue execution.
-With prefix argument ARG, prompt for argument to \"continue\"
-command. In safe mode (or with prefix arg), confirm before
-running."
- (interactive (when (consp current-prefix-arg)
- (list (read-string "Continue args: " nil nil nil t))))
- (when (or arg (realgud:prompt-if-safe-mode
- "Continue to next breakpoint?"))
- (realgud:cmd-run-command arg "continue")))
-
-(defun realgud:bpnum-on-current-line()
- "Return number of one breakpoint on current line, if any.
-If none is found, return nil."
- (realgud-get-bpnum-from-line-num (line-number-at-pos)))
-
-(defun realgud:bpnum-from-prefix-arg()
- "Return number of one breakpoint on current line, if any.
-If none is found, or if `current-prefix-arg' is a cons (i.e. a
-C-u prefix arg), ask user for a breakpoint number. If
-`current-prefix-arg' is a number (i.e. a numeric prefix arg),
-return it unmodified."
- (let ((must-prompt (consp current-prefix-arg))
- (current-bp (realgud:bpnum-on-current-line)))
- (list
- (if (numberp current-prefix-arg)
- current-prefix-arg
- (or (and (not must-prompt) current-bp)
- (read-number "Breakpoint number: " current-bp))))))
-
-(defun realgud:cmd-delete(bpnum)
- "Delete breakpoint by number.
-Interactively, find breakpoint on current line, if any. With
-numeric prefix argument, delete breakpoint with that number
-instead. With prefix argument (C-u), or when no breakpoint can
-be found on the current line, prompt for a breakpoint number."
- (interactive (realgud:bpnum-from-prefix-arg))
- (realgud:cmd-run-command bpnum "delete"))
-
-(defun realgud:cmd-disable(bpnum)
- "Disable breakpoint BPNUM.
-Interactively, find breakpoint on current line, if any. With
-numeric prefix argument, disable breakpoint with that number
-instead. With prefix argument (C-u), or when no breakpoint can
-be found on the current line, prompt for a breakpoint number."
- (interactive (realgud:bpnum-from-prefix-arg))
- (realgud:cmd-run-command bpnum "disable"))
-
-(defun realgud:cmd-enable(bpnum)
- "Enable breakpoint BPNUM.
-Interactively, find breakpoint on current line, if any. With
-numeric prefix argument, enable breakpoint with that number
-instead. With prefix argument (C-u), or when no breakpoint can
-be found on the current line, prompt for a breakpoint number."
- (interactive (realgud:bpnum-from-prefix-arg))
- (realgud:cmd-run-command bpnum "enable"))
-
-(defun realgud-cmds--add-remove-bp (pos)
- "Add or delete breakpoint at POS."
- (save-excursion
- (goto-char pos)
- (let ((existing-bp-num (realgud:bpnum-on-current-line)))
- (if existing-bp-num
- (realgud:cmd-delete existing-bp-num)
- (realgud:cmd-break)))))
-
-(defun realgud-cmds--mouse-add-remove-bp (event)
- "Add or delete breakpoint on line pointed to by EVENT.
-EVENT should be a mouse click on the left fringe or margin."
- (interactive "e")
- (let* ((posn (event-end event))
- (pos (posn-point posn)))
- (when (numberp pos)
- (with-current-buffer (window-buffer (posn-window posn))
- (realgud-cmds--add-remove-bp pos)))))
-
-(defun realgud:cmd-eval(arg)
- "Evaluate an expression."
- (interactive "MEval expression: ")
- (realgud:cmd-run-command arg "eval")
-)
-
-(defun realgud:cmd-eval-region(start end)
- "Evaluate current region."
- (interactive "r")
- (let ((text (buffer-substring-no-properties start end)))
- (realgud:cmd-run-command text "eval")))
-
-(defun realgud:cmd-eval-dwim()
- "Eval the current region if active; otherwise, prompt."
- (interactive)
- (call-interactively (if (region-active-p)
- #'realgud:cmd-eval-region
- #'realgud:cmd-eval)))
-
-(defun realgud:cmd-eval-at-point()
- "Eval symbol under point."
- (interactive)
-
- (beginning-of-thing 'symbol)
- (set-mark-command 'nil)
- (end-of-thing 'symbol)
-
- (realgud:cmd-run-command
- (read-string "Eval: " (thing-at-point 'symbol))
- "eval"))
-
-(defun realgud:cmd-finish(&optional arg)
- "Run until the completion of the current stack frame.
-
-This command is often referred to as 'step out' as opposed to
-'step over' or 'step into'."
- (interactive "p")
- (realgud:cmd-run-command arg "finish")
-)
-
-(defun realgud:cmd-frame(arg)
- "Change the current frame number to the value of the numeric argument.
-If no argument specified use 0 or the most recent frame."
- (interactive "p")
- (realgud:cmd-run-command arg "frame" nil t t)
-)
-
-(defun realgud:cmd-kill()
- "Kill debugger process."
- (interactive)
- (realgud:cmd-run-command nil "kill" nil nil nil t))
-
-(defun realgud:cmd-newer-frame(&optional arg)
- "Move the current frame to a newer (more recent) frame.
-With a numeric argument move that many levels forward."
- (interactive "p")
- (realgud:cmd-run-command arg "down" nil t t)
-)
-
-(defun realgud:cmd-next(&optional count)
- "Step one source line at current call level.
-
-With numeric argument COUNT, step that many times. This command is
-often referred to as `step through' as opposed to `step into' or
-`step out'.
-
-The definition of `next' is debugger specific, so see the
-documentation of your debugger for a more complete definition of
-what is getting stepped."
- (interactive "p")
- (realgud:cmd-run-command count "next"))
-
-(defun realgud:cmd-next-no-arg()
- "Step one source line at current call level.
-
-The definition of 'next' is debugger specific so, see the
-debugger documentation for a more complete definition of what is
-getting stepped."
- (interactive)
- (realgud:cmd-next))
-
-(defun realgud:cmd-older-frame(&optional arg)
- "Move the current frame to an older (less recent) frame.
-With a numeric argument move that many levels back."
- (interactive "p")
- (realgud:cmd-run-command arg "up" nil t t)
-)
-
-(defun realgud:cmd-repeat-last()
- "Repeat the last command (or generally what <enter> does."
- (interactive)
- (realgud:cmd-run-command nil "repeat-last" nil t nil t))
-
-(defun realgud:cmd-restart()
- "Restart execution."
- (interactive)
- (if (realgud:prompt-if-safe-mode
- "Restart program?")
- (realgud:cmd-run-command nil "restart" nil t nil t)))
-
-(defun realgud:cmd-shell()
- "Drop to a shell."
- (interactive)
- (realgud:cmd-run-command nil "shell"))
-
-(defun realgud:cmd-step(&optional count)
- "Step one source line.
-
-With a numeric prefix argument COUNT, step that many times.
-This command is often referred to as `step into' as opposed to
-`step over' or `step out'.
-
-The definition of `step' is debugger specific, so see the
-documentation of your debugger for a more complete definition of
-what is getting stepped."
- (interactive "p")
- (realgud:cmd-run-command count "step"))
-
-(defun realgud:cmd-step-no-arg()
- "Step one source line.
-
-The definition of `step' is debugger specific, so see the
-documentation of your debugger for a more complete definition of
-what is getting stepped."
- (interactive)
- (realgud:cmd-step))
-
-(defun realgud:cmd-terminate ()
- "Gently terminate source and command buffers without possibly
-issuing a command to the underlying debuger. Use this if the
-underlying debugger has died or you want to get out of all
-shortkey modes in the source window and possibly restart
-debugging after editing source."
- (interactive)
- (realgud:terminate (current-buffer))
-)
-
-(defun realgud:cmd-until(&optional arg)
- "Run until the completion of the current stack frame.
-
-Continue until the current line. In some cases this is really
-two commands - setting a temporary breakpoint on the line and
-continuing execution."
- (interactive "p")
- (realgud:cmd-run-command arg "until")
-)
-
-(defun realgud:cmd-quit (&optional arg)
- "Gently terminate execution of the debugged program."
- (interactive "p")
- (if (realgud:prompt-if-safe-mode
- "Quit debugger?")
- (let ((buffer (current-buffer))
- (cmdbuf (realgud-get-cmdbuf))
- (cmd-hash)
- (cmd)
- )
- (if cmdbuf
- (progn
- (with-current-buffer cmdbuf
- (realgud-cmdbuf-info-in-srcbuf?= (not (realgud-cmdbuf? buffer)))
- (setq cmd-hash (realgud-cmdbuf-info-cmd-hash
realgud-cmdbuf-info))
- (unless (and cmd-hash (setq cmd (gethash "quit" cmd-hash)))
- (setq cmd "quit"))
- )
- (realgud-command cmd arg t)
- (if cmdbuf (realgud:terminate cmdbuf))
- )
- ;; else
- (realgud:terminate-srcbuf buffer)
- )
- )
- ))
-
-(provide-me "realgud-")
diff --git a/packages/realgud/realgud/common/core.el
b/packages/realgud/realgud/common/core.el
deleted file mode 100644
index 25de3d7..0000000
--- a/packages/realgud/realgud/common/core.el
+++ /dev/null
@@ -1,331 +0,0 @@
-;; Copyright (C) 2010-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; (require 'term)
-
-(if (< emacs-major-version 24)
- (error
- "You need at least Emacs 24 or greater to run this - you have version %d"
- emacs-major-version))
-
-(require 'comint)
-(require 'load-relative)
-(require 'loc-changes)
-(require-relative-list '("fringe" "helper" "lang" "reset")
- "realgud-")
-(require-relative-list '("buffer/command" "buffer/source") "realgud-buffer-")
-
-(declare-function comint-exec 'comint)
-(declare-function comint-mode 'comint)
-(declare-function realgud-bp-remove-icons 'realgud-bp)
-(declare-function realgud:suggest-file-from-buffer 'realgud-lang)
-(declare-function realgud-cmdbuf-args= 'realgud-buffer-command)
-(declare-function realgud-cmdbuf-command-string 'realgud-buffer-command)
-(declare-function realgud-cmdbuf-debugger-name 'realgud-buffer-command)
-(declare-function realgud-cmdbuf-info-bp-list= 'realgud-buffer-command)
-(declare-function realgud-cmdbuf-info-in-debugger?= 'realgud-buffer-command)
-(declare-function realgud-cmdbuf-info-starting-directory=
'realgud-buffer-command)
-(declare-function realgud-cmdbuf-mode-line-update 'realgud-buffer-command)
-(declare-function realgud-cmdbuf? 'realgud-helper)
-(declare-function realgud-command-string 'realgud-buffer-command)
-(declare-function realgud-fringe-erase-history-arrows 'realgud-buffer-command)
-(declare-function realgud-get-cmdbuf 'realgud-helper)
-(declare-function realgud:reset 'realgud-reset)
-(declare-function realgud-short-key-mode-setup 'realgud-shortkey)
-(declare-function realgud-srcbuf-command-string 'realgud-buffer-source)
-(declare-function realgud-srcbuf-debugger-name 'realgud-buffer-source)
-(declare-function realgud-srcbuf-init 'realgud-buffer-source)
-(declare-function realgud-srcbuf? 'realgud-buffer-source)
-(declare-function realgud-suggest-lang-file 'realgud-lang)
-
-(defvar realgud-srcbuf-info)
-(defvar starting-directory)
-
-(defun realgud:expand-file-name-if-exists (filename)
- "Return FILENAME expanded using `expand-file-name' if that name exists.
-Otherwise, just return FILENAME."
- (let* ((expanded-filename (expand-file-name filename))
- (result (cond ((file-exists-p expanded-filename)
- expanded-filename)
- ('t filename))))
- result)
-)
-
-(defun realgud-suggest-invocation
- (debugger-name _minibuffer-history lang-str lang-ext-regexp
- &optional last-resort)
- "Suggest a debugger command invocation. If the current buffer
-is a source file or process buffer previously set, then use the
-value of that the command invocations found by buffer-local
-variables. Otherwise, we try to find a suitable program file
-using LANG-STR and LANG-EXT-REGEXP."
- (let* ((buf (current-buffer))
- (filename)
- (cmd-str-cmdbuf (realgud-cmdbuf-command-string buf))
- )
- (cond
- ((and cmd-str-cmdbuf (equal debugger-name (realgud-cmdbuf-debugger-name
buf)))
- cmd-str-cmdbuf)
- ((setq filename (realgud:suggest-file-from-buffer lang-str))
- (concat debugger-name " " (shell-quote-argument filename)))
- (t (concat debugger-name " "
- (shell-quote-argument
- (realgud-suggest-lang-file lang-str lang-ext-regexp
last-resort))))
- )))
-
-(defun realgud-query-cmdline
- (suggest-invocation-fn
- minibuffer-local-map
- minibuffer-history
- &optional opt-debugger)
- "Prompt for a debugger command invocation to run.
-Analogous to `gud-query-cmdline'.
-
-If you happen to be in a debugger process buffer, the last command invocation
-for that first one suggested. Failing that, some amount of guessing is done
-to find a suitable file via SUGGEST-INVOCATION-FN.
-
-We also set filename completion and use a history of the prior
-dbgr invocations "
- (let ((debugger (or opt-debugger
- (realgud-sget 'srcbuf-info 'debugger-name))))
- (read-shell-command
- (format "Run %s (like this): " debugger) ;; prompt string
- (funcall suggest-invocation-fn debugger) ;; initial value
- minibuffer-history ;; history variable
- )))
-
-(defun realgud-parse-command-arg (args two-args opt-two-args)
- "Return a cons node where the car is a list containing the
-entire first option and the cdr is the remaining arguments from ARGS.
-
-We determine if an option has length one or two using the lists
-TWO-ARGS and OPT-TWO-ARGS. Both of these are list of 'options',
-that is strings without the leading dash. TWO-ARGS takes a
-mandatory additional argument. OPT-TWO-ARGS might take two
-arguments. The rule for an optional argument that we use is if
-the next parameter starts with a dash ('-'), it is not part of
-the preceeding parameter when that parameter is optional.
-
-NOTE: we don't check whether the first arguments of ARGS is an
-option by testing to see if it starts say with a dash. So on
-return the first argument is always removed.
-"
- (let ((arg (car args))
- (d-two-args (mapcar (lambda(x) (concat "-" x)) two-args))
- (d-opt-two-args (mapcar (lambda(x) (concat "-" x)) opt-two-args))
- (remaining (cdr args)))
- (cond
- ((member arg d-two-args)
- (if (not remaining)
- (progn
- (message "Expecting an argument after %s. Continuing anyway."
- arg)
- (cons (list arg) (list remaining)))
- (cons (list arg (car remaining)) (list (cdr remaining)))))
- ((member arg d-opt-two-args)
- (if (and remaining (not (string-match "^-" (car remaining))))
- (cons (list arg (car remaining)) (list (cdr remaining)))
- (cons (list arg) (list remaining))))
- (t (cons (list arg) (list remaining))))))
-
-(defun realgud:terminate-srcbuf (&optional srcbuf)
- "Resets source buffer."
- (interactive "bsource buffer: ")
- (if (stringp srcbuf) (setq srcbuf (get-buffer srcbuf)))
- (with-current-buffer srcbuf
- (realgud-fringe-erase-history-arrows)
- (realgud-bp-remove-icons (point-min) (point-max))
- (when (realgud-srcbuf?)
- (realgud-short-key-mode-setup nil)
- (redisplay)
- )
- (loc-changes-clear-buffer)
- ))
-
-(defun realgud:terminate (&optional buf)
- "Resets state in all buffers associated with source or command
-buffer BUF) This does things like remove fringe arrows breakpoint
-icons and resets short-key mode."
- (interactive "bbuffer: ")
- (if (stringp buf) (setq buf (get-buffer buf)))
- (let ((cmdbuf (realgud-get-cmdbuf buf)))
- (if cmdbuf
- (with-current-buffer cmdbuf
- (realgud-cmdbuf-info-in-debugger?= nil)
- (realgud-cmdbuf-info-bp-list= '())
- (realgud-cmdbuf-mode-line-update)
- (realgud-fringe-erase-history-arrows)
- (if realgud-cmdbuf-info
- (dolist (srcbuf (realgud-cmdbuf-info-srcbuf-list
realgud-cmdbuf-info))
- (if (realgud-srcbuf? srcbuf)
- (with-current-buffer srcbuf
- (realgud:terminate-srcbuf srcbuf)
- ))
- )
- )
- )
- (error "Buffer %s does not seem to be attached to a debugger"
- (buffer-name))
- )
- )
- )
-
-(defun realgud:kill-buffer-hook ()
- "When a realgud command buffer is killed, call `realgud:terminate' to
-clean up.
-Note that `realgud-term-sentinel' is not helpful here because
-the buffer and data associated with it are already gone."
- (when (realgud-cmdbuf?) (realgud:terminate (current-buffer)))
-)
-(add-hook 'kill-buffer-hook 'realgud:kill-buffer-hook)
-
-(defun realgud-term-sentinel (process string)
- "Called when PROCESS dies. We call `realgud:terminate' to clean up."
- (let ((cmdbuf (realgud-get-cmdbuf)))
- (if cmdbuf (realgud:terminate cmdbuf)))
- (message "That's all folks.... %s" string))
-
-(defun realgud:binary (file-name)
- "Return a whether FILE-NAME is executable or not or very large"
- (let* ((truename (file-chase-links file-name))
- (output (shell-command-to-string
- (format "file %s" truename)))
- (filesize (nth 7 (file-attributes truename)))
- )
- (cond
- ((string-match "ELF" output) t)
- ((and large-file-warning-threshold filesize
- (> filesize large-file-warning-threshold)) t)
- ('t nil))))
-
-
-(defun realgud-exec-shell (debugger-name script-filename program
- &optional no-reset &rest args)
- "Run the specified SCRIPT-FILENAME in under debugger DEBUGGER-NAME a
-comint process buffer. ARGS are the arguments passed to the
-PROGRAM. At the moment, no piping of input is allowed.
-
-SCRIPT-FILENAME will have local variable `realgud-script-info' set
-which contains the debugger name and debugger process-command
-buffer.
-
-Normally command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset."
-
- (let* ((non-nil-filename (or script-filename "+No filename+"))
- (current-directory
- (or (file-name-directory non-nil-filename)
- default-directory "./"))
- (cmdproc-buffer-name
- (replace-regexp-in-string
- "\s+" "\s"
- (format "*%s %s shell*"
- (file-name-nondirectory debugger-name)
- (file-name-nondirectory non-nil-filename))))
- (cmdproc-buffer (get-buffer-create cmdproc-buffer-name))
- (realgud-buf (current-buffer))
- (cmd-args (cons program args))
- (process (get-buffer-process cmdproc-buffer)))
-
- (with-current-buffer cmdproc-buffer
- ;; If the found command buffer isn't for the same debugger
- ;; invocation command, rename that and start a new one.
- ;;
- ;; For example: "bashdb /tmp/foo" does not match "bashdb
- ;; /etc/foo" even though they both canonicalize to the buffer
- ;; "*bashdb foo shell*"
- (when (and (realgud-cmdbuf?)
- (not
- (equal cmd-args
- (realgud-cmdbuf-info-cmd-args realgud-cmdbuf-info))
- ))
- (rename-uniquely)
- (setq cmdproc-buffer (get-buffer-create cmdproc-buffer-name))
- (setq process nil)
- ))
-
- (if (and process (eq 'run (process-status process)))
- cmdproc-buffer
- (with-current-buffer cmdproc-buffer
- (and (realgud-cmdbuf?) (not no-reset) (realgud:reset))
- (make-local-variable 'starting-directory)
- (setq starting-directory current-directory)
-
- (insert "Current directory: " current-directory "\n")
- (insert "Command: " (mapconcat 'identity cmd-args " ") "\n")
-
-
- ;; For term.el
- ;; (term-mode)
- ;; (set (make-local-variable 'term-term-name) realgud-term-name)
- ;; (make-local-variable 'realgud-parent-buffer)
- ;; (setq realgud-parent-buffer realgud-buf)
-
- ;; For comint.el.
- (comint-mode)
-
- ;; Making overlay-arrow-variable-list buffer local has to be
- ;; done after running commint mode. FIXME: find out why and if
- ;; this reason is justifyable. Also consider moving this somewhere
- ;; else.
- (make-local-variable 'overlay-arrow-variable-list)
- (make-local-variable 'realgud-overlay-arrow1)
- (make-local-variable 'realgud-overlay-arrow2)
- (make-local-variable 'realgud-overlay-arrow3)
-
- (condition-case failure
- (comint-exec cmdproc-buffer debugger-name program nil args)
- (error
- (let ((text (format "%S\n" failure)))
- (insert text)
- (message text)(sit-for 1)
- text)))
-
- (setq process (get-buffer-process cmdproc-buffer))
-
- (if (and process (eq 'run (process-status process)))
- (let ((src-buffer)
- (cmdline-list (cons program args)))
- ;; is this right?
- (when (and script-filename (file-exists-p script-filename)
- (not (realgud:binary script-filename)))
- (setq src-buffer (find-file-noselect script-filename))
- (point-max)
- (realgud-srcbuf-init src-buffer cmdproc-buffer))
- (process-put process 'buffer cmdproc-buffer))
- ;; else
- (let ((text
- (format
- "Failed to invoke debugger %s on program %s with args %s\n"
- debugger-name program (mapconcat 'identity args " "))))
- (with-current-buffer cmdproc-buffer (insert text))
- (message text)
- ))
- cmdproc-buffer))))
-
-;; Start of a term-output-filter for term.el
-(defun realgud-term-output-filter (process string)
- (let ((process-buffer (process-get process 'buffer)))
- (if process-buffer
- (save-current-buffer
- (set-buffer process-buffer)
- ;; (insert-before-markers (format "+++1 %s" string))
- (insert-before-markers string)))))
-
-(provide-me "realgud-")
diff --git a/packages/realgud/realgud/common/custom.el
b/packages/realgud/realgud/common/custom.el
deleted file mode 100644
index d429b23..0000000
--- a/packages/realgud/realgud/common/custom.el
+++ /dev/null
@@ -1,28 +0,0 @@
-;; Copyright (C) 2010 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-(require 'load-relative)
-
-(defcustom realgud-key-prefix "\C-x\C-a"
- "Prefix of all realgud commands valid in source buffers."
- :type 'string
- :group 'realgud)
-
-(defcustom realgud-srcbuf-lock t
- "Set source buffers read-only when the debugger is active.
-A setting of `nil` allows editing, but Short-Key-mode use may inhibit this."
- :type 'boolean
- :group 'realgud)
-
-(provide-me "realgud-")
diff --git a/packages/realgud/realgud/common/eval.el
b/packages/realgud/realgud/common/eval.el
deleted file mode 100644
index 1ba52a4..0000000
--- a/packages/realgud/realgud/common/eval.el
+++ /dev/null
@@ -1,101 +0,0 @@
-;; show expressions using tooltip
-
-;; Author: Rocky Bernstein <address@hidden>
-;; Version: 1.1
-;; Keywords: internal
-;; URL: http://github.com/rocky/emacs-load-relative
-;; Compatibility: GNU Emacs 24.x
-
-;; Copyright (C) 2015 Free Software Foundation, Inc
-
-;; This program is free software: you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation, either version 3 of the
-;; License, or (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see
-;; <http://www.gnu.org/licenses/>.
-
-(require 'tooltip)
-(require 'ansi-color)
-(require 'load-relative)
-
-(require-relative-list '("cmds" "helper" "utils") "realgud-")
-(require-relative-list '("buffer/command") "realgud-buffer-")
-
-(declare-function realgud:cmd-eval 'realgud-cmd)
-(declare-function realgud-get-cmdbuf 'realgud-helper)
-(declare-function realgud-cmdbuf-pat 'realgud-send)
-(declare-function realgud:strip 'realgud-utils)
-
-(make-variable-buffer-local
- (defvar realgud:process-filter-save nil
- "realgud saves/restores the previous process filter here"))
-
-(defun realgud:tooltip-eval (event)
- "Show tip for identifier or selection under the mouse.
-The mouse must either point at an identifier or inside a selected
-region for the tip window to be shown.
-
-This function must return nil if it doesn't handle EVENT."
- (interactive "e")
- (let ((process)
- (cmdbuf (realgud-get-cmdbuf))
- (process))
- (when (and (eventp event)
- cmdbuf
- (setq process (get-buffer-process cmdbuf))
- (posn-point (event-end event))
- )
- (let ((expr (tooltip-expr-to-print event)))
- (when expr
- (with-current-buffer cmdbuf
- (setq realgud:process-filter-save (process-filter process))
- (set-process-filter process 'realgud:eval-process-output))
- (realgud:cmd-eval expr)
- ))
- )))
-
-(defun realgud:eval-process-output (process output-str)
- "Process debugger output and show it in a tooltip window."
- (set-process-filter process
- (or realgud:process-filter-save 'comint-output-filter))
- (with-current-buffer (realgud-get-cmdbuf)
- (goto-char (process-mark process))
- (setq comint-last-input-end (process-mark process))
- (insert output-str)
- (set-marker (process-mark process) (point)))
- (setq comint-last-output-start
- (setq realgud-last-output-start (process-mark process)))
-
- (tooltip-show (realgud:eval-strip process output-str))
- )
-
-(defun realgud:eval-strip-default(prompt-regexp output-str)
- (realgud:strip
- (ansi-color-filter-apply
- (if (string-match prompt-regexp output-str)
- (substring output-str 0 (match-beginning 0))
- output-str))))
-
-
-(defun realgud:eval-strip(process output-str)
- "Return OUTPUT-STR with any prompt of PROCESS stripped from its end."
- (save-match-data
- (with-current-buffer (process-buffer process)
- (let* ((prompt-pat (realgud-cmdbuf-pat "prompt"))
- (prompt-regexp (realgud-loc-pat-regexp prompt-pat))
- (eval-filter (realgud-sget 'cmdbuf-info 'callback-eval-filter))
- )
- (if eval-filter
- (funcall eval-filter output-str)
- (realgud:eval-strip-default prompt-regexp output-str))
- ))))
-
-(provide-me "realgud-")
diff --git a/packages/realgud/realgud/common/file.el
b/packages/realgud/realgud/common/file.el
deleted file mode 100644
index f3694ba..0000000
--- a/packages/realgud/realgud/common/file.el
+++ /dev/null
@@ -1,150 +0,0 @@
-;; Copyright (C) 2010-2011, 2013-2014, 2016-2017 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-; Should realgud:file-loc-from-line be here or elsewhere?
-(require 'load-relative)
-(require 'compile) ;; for compilation-find-file
-(require-relative-list '("helper" "loc") "realgud-")
-
-(defvar realgud-file-remap (make-hash-table :test 'equal)
- "How to remap files we otherwise can't find in the
- filesystem. The hash key is the file string we saw, and the
- value is associated filesystem string presumably in the
- filesystem")
-
-
-(declare-function realgud:strip 'realgud)
-(declare-function realgud-loc-goto 'realgud-loc)
-(declare-function buffer-killed? 'helper)
-(declare-function compilation-find-file 'compile)
-
-(defcustom realgud-file-find-function 'compilation-find-file
- "Function to call when we can't easily find file"
- :type 'function
- :group 'realgud)
-
-(defun realgud:file-line-count(filename)
- "Return the number of lines in file FILENAME, or nil FILENAME can't be
-found"
- (if (file-exists-p filename)
- (let ((file-buffer (find-file-noselect filename)))
- (with-current-buffer-safe file-buffer
- (line-number-at-pos (point-max))))
- nil))
-
-(defun realgud:file-column-from-string(filename line-number source-text
- &optional no-strip-blanks)
- "Return the column of the first column position of SOURCE-TEXT
-at LINE-NUMBER or nil if it is not there"
- (condition-case nil
- (when (and source-text (file-exists-p filename))
- (let ((file-buffer (find-file-noselect filename)))
- (with-current-buffer-safe file-buffer
- (save-excursion
- (goto-char (point-min))
- (forward-line (1- line-number))
- (unless no-strip-blanks
- (setq source-text (realgud:strip source-text)))
- (when (search-forward source-text (point-at-eol))
- (goto-char (match-beginning 0))
- (current-column))))))
- (error nil)))
-
-;; FIXME: should allow column number to be passed in.
-(defun realgud:file-loc-from-line(filename line-number
- &optional cmd-marker source-text
bp-num
- ;; FIXME: remove ignore-file-re and
cover with
- ;; find-file-fn.
- ignore-file-re find-file-fn
directory)
- "Return a realgud-loc for FILENAME and LINE-NUMBER and the
-other optional position information.
-
-CMD-MARKER and BP-NUM get stored in the realgud-loc
-object. FIND-FILE-FN is a function which do special things to
-transform filename so it can be found. This could include
-searching classpaths (in Java), stripping leading and trailing
-blanks, or deliberately ignoring 'pseudo-file patterns like (eval
-1) of Perl and <string> of Python.
-
-If we're unable find the source code we return a string describing the
-problem as best as we can determine."
-
- (unless (and filename (file-readable-p filename))
- (if find-file-fn
- (setq filename (funcall find-file-fn filename))
- ;; FIXME: Remove the below by refactoring to use the above find-file-fn
- ;; else
- (if (and ignore-file-re (string-match ignore-file-re filename))
- (message "tracking ignored for pseudo-file %s" filename)
- ;; else
- (let ((remapped-filename))
- (if (gethash filename realgud-file-remap)
- (progn
- (setq remapped-filename (gethash filename realgud-file-remap))
- (if (file-exists-p remapped-filename)
- (setq filename remapped-filename)
- (remhash filename realgud-file-remap)))
- ;; else
- (let ((found-file (funcall realgud-file-find-function
(point-marker) filename directory)))
- (when found-file
- (setq remapped-filename (buffer-file-name found-file))
- (when (and remapped-filename (file-exists-p
remapped-filename))
- (puthash filename remapped-filename realgud-file-remap)
- (setq filename remapped-filename)
- ))
- )))
- )
- ;; FIXME: remove above -----------------------------------.
- ))
- (if filename
- (if (file-readable-p filename)
- (if (integerp line-number)
- (if (> line-number 0)
- (let ((line-count))
- (if (setq line-count (realgud:file-line-count filename))
- (if (> line-count line-number)
- (let* ((column-number
- (realgud:file-column-from-string filename
- line-number
-
source-text))
- (source-buffer (find-file-noselect filename))
- (source-mark))
-
- ;; And you thought we'd never get around to
- ;; doing something other than validation?
- (with-current-buffer source-buffer
- (goto-char (point-min))
- ;; FIXME also allow column number and byte
offset
- (forward-line (1- line-number))
- (make-realgud-loc
- :num bp-num
- :cmd-marker cmd-marker
- :filename filename
- :line-number line-number
- :column-number column-number
- :source-text source-text
- :marker (point-marker)
- )
- ))
- ;; else
- (format "File %s has only %d lines. (Line %d
requested.)"
- filename line-count line-number))
- (format "Problem getting line count for file `%s'"
filename)))
- (format "line number %s should be greater than 0" line-number))
- (format "%s is not an integer" line-number))
- ;; else
- (format "File named `%s' not readable" filename)))
- )
-
-(provide-me "realgud-")
diff --git a/packages/realgud/realgud/common/follow.el
b/packages/realgud/realgud/common/follow.el
deleted file mode 100644
index 65aa879..0000000
--- a/packages/realgud/realgud/common/follow.el
+++ /dev/null
@@ -1,50 +0,0 @@
-;; Copyright (C) 2015 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;;; Follows or goto's something
-(require 'load-relative)
-
-(declare-function realgud:cmd-frame 'realgud-cmds)
-
-(defun realgud:follow-mark(mark)
- (when (markerp mark)
- (let ((buffer (marker-buffer mark)))
- (set-buffer buffer)
- (set-window-point (display-buffer buffer) mark)
- (goto-char mark)
- )))
-
-
-(defun realgud:follow(pos)
- (interactive "%d")
- (let* ((mark (get-text-property pos 'mark))
- (filename (get-text-property pos 'file))
- (frame-num (get-text-property pos 'frame-num))
- )
- (cond ((markerp mark) (realgud:follow-mark mark) 't)
- ((stringp filename)
- (find-file-other-window filename))
- ((numberp frame-num) (realgud:cmd-frame frame-num))
- ('t (message "No location property found here")))
- ))
-
-(defun realgud:follow-point()
- (interactive)
- (realgud:follow (point)))
-
-(defun realgud:follow-event(event)
- (interactive "e")
- (realgud:follow (posn-point (event-end event))))
-
-(provide-me "realgud-")
diff --git a/packages/realgud/realgud/common/fringe-utils.py
b/packages/realgud/realgud/common/fringe-utils.py
deleted file mode 100755
index 784cdb0..0000000
--- a/packages/realgud/realgud/common/fringe-utils.py
+++ /dev/null
@@ -1,37 +0,0 @@
-#!/usr/bin/env python3
-
-def bit2char(byte, offset):
- return "X" if byte & (1 << offset) else " "
-
-def char2bit(char, offset):
- return (0 if char == " " else 1) << offset
-
-def decompile_bitmap(bmp_bytes):
- lines = []
- for b in bmp_bytes:
- lines.append("".join(bit2char(b, offset) for offset in range(8)))
- return lines
-
-def compile_bitmap(bmp_lines):
- bmp_bytes = []
- for line in bmp_lines:
- s = sum(char2bit(c, offset) for (offset, c) in enumerate(line))
- bmp_bytes.append(s.to_bytes(1, byteorder="big"))
- return b"".join(bmp_bytes)
-
-hollow_circle = [" XXXX ",
- " X X ",
- "X X",
- "X X",
- "X X",
- "X X",
- " X X ",
- " XXXX "]
-
-def print_compiled(bmp):
- print("".join(r'\x{:02x}'.format(b) for b in bmp))
-
-print("\n".join(decompile_bitmap(b"\x3c\x7e\xff\xff\xff\xff\x7e\x3c")))
-print_compiled(compile_bitmap(decompile_bitmap(b"\x3c\x7e\xff\xff\xff\xff\x7e\x3c")))
-print_compiled(compile_bitmap(hollow_circle))
-
diff --git a/packages/realgud/realgud/common/fringe.el
b/packages/realgud/realgud/common/fringe.el
deleted file mode 100644
index b3ee9eb..0000000
--- a/packages/realgud/realgud/common/fringe.el
+++ /dev/null
@@ -1,224 +0,0 @@
-;; Copyright (C) 2010, 2012, 2014-2016, 2018 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; Fringe marks for history of stopping points
-(require 'load-relative)
-(require-relative-list '("helper") "realgud-")
-
-(declare-function realgud-loc-hist-item-at 'realgud-lochist)
-(declare-function buffer-killed? 'helper)
-(declare-function realgud-loc-cmd-marker 'realgud-loc)
-(declare-function realgud:follow-mark 'realgud-follow)
-(declare-function realgud-loc-marker 'realgud-loc)
-
-;; Bitmap for hollow overlay-arrow in fringe
-(if (display-images-p)
- (define-fringe-bitmap 'hollow-right-triangle
- "\xe0\x90\x88\x84\x84\x88\x90\xe0"))
-
-(defface realgud-debugger-running
- '((((class color) (min-colors 16) (background light))
- (:foreground "Green4" :weight bold))
- (((class color) (min-colors 88) (background dark))
- (:foreground "Green1" :weight bold))
- (((class color) (min-colors 16) (background dark))
- (:foreground "Green" :weight bold))
- (((class color)) (:foreground "green" :weight bold))
- (t (:weight bold)))
- "Face used to highlight debugger run information."
- :group 'realgud
- :version "24.3")
-
-(defface realgud-debugger-not-running
- '((t :inherit font-lock-warning-face))
- "Face used when debugger or process is not running."
- :group 'realgud
- :version "24.3")
-
-
-;; FIXME: Figure out how to do this as a macro.
-
-(defface realgud-overlay-arrow1
- '((t :inherit realgud-debugger-running))
- "Realgud fringe face for current position indicator."
- :group 'realgud)
-
-(defface realgud-overlay-arrow2
- '((((background dark)) :foreground "white" :weight bold)
- (((background light)) :foreground "tan1" :weight bold))
- "Fringe face for current position."
- :group 'realgud)
-
-(defface realgud-overlay-arrow3
- '((((background dark)) :foreground "DimGray")
- (((background light)) :foreground "tan4"))
- "Fringe face for current position."
- :group 'realgud)
-
-
-(defvar realgud-overlay-arrow1 nil
- "Overlay arrow variable which contains the most recent debugger
-position.")
-(defvar realgud-overlay-arrow2 nil
- "Overlay arrow variable which contains the 2nd most recent debugger
-position.")
-(defvar realgud-overlay-arrow3 nil
- "Overlay arrow variable which contains the 3rd most recent debugger
-position.")
-
-;; FIXME: since overlay overlay-arrow-list can be global, and perhaps
-;; has to stay that way since some Emacs code may expect that, we
-;; should use different global overlay arrow variables for the
-;; different debuggers. E.g. trepan-overlay-arrow1,
-;; pyrealgud-overlay-arrow1 and so on. That way, if those debuggers are
-;; running concurrently, the fringe for one doesn't interfere with the
-;; fringe for another.
-
-;; Loop to set up fringe position markers.
-
-;; Here is an example of what each iteration does:
-;;
-;; (make-local-variable 'realgud-overlay-arrow1) ;; or 2, or 3
-;; (put 'realgud-overlay-arrow1 'overlay-arrow-string "=>" ;; or "2>", or
">3"
-;; (define-fringe-bitmap 'realgud-overlay-arrow1 "\xc0...")
-;; (add-to-list 'overlay-arrow-variable-list 'realgud-overlay-arrow1)
-
-(dolist (pair
- '( ("3" . "3>") ("2" . "2>") ("1" . "=>")))
- (let ((arrow-symbol (intern (concat "realgud-overlay-arrow" (car pair))))
- (arrow-bitmap (intern (concat "realgud-right-triangle" (car pair))))
- (arrow-face (intern (concat "realgud-overlay-arrow" (car pair)))))
- (make-local-variable arrow-symbol)
- (put arrow-symbol 'overlay-arrow-string (cdr pair))
- (if (display-images-p)
- (progn
- (define-fringe-bitmap arrow-bitmap "\xc0\xf0\xf8\xfc\xfc\xf8\xf0\xc0")
- (put arrow-symbol 'overlay-arrow-bitmap arrow-bitmap)
- (set-fringe-bitmap-face arrow-bitmap arrow-face)))
- (add-to-list 'overlay-arrow-variable-list arrow-symbol)))
-
-(defun realgud-fringe-set-arrow (overlay-arrow marker)
- "Set the fringe indicator or overlay arrow to MARKER. This is done
-for example to indicate a debugger position."
- (let ((position (marker-position marker)))
- (if position
- (with-current-buffer (marker-buffer marker)
- (save-excursion
- (save-restriction
- (widen)
- (progn
- (goto-char position)
- ;; We need to ignore field boundaries, so we use
- ;; forward-line rather than beginning-of-line.
- (forward-line 0)
- (set overlay-arrow (point-marker)))))))))
-
-(defun realgud-fringe-history-set (loc-hist &optional do-cmdbuf?)
- "Set arrows on the last positions we have stopped on."
- ;; FIXME DRY somehow
- (let* (
- (loc1 (realgud-loc-hist-item-at loc-hist 2))
- (loc2 (realgud-loc-hist-item-at loc-hist 1))
- (loc3 (realgud-loc-hist-item-at loc-hist 0))
- (mark1 (and loc3 (realgud-loc-marker loc3)))
- (mark2 (and loc2 (realgud-loc-marker loc2)))
- (mark3 (and loc1 (realgud-loc-marker loc1)))
- (cmd-mark1 (and loc3 (realgud-loc-cmd-marker loc3)))
- (cmd-mark2 (and loc2 (realgud-loc-cmd-marker loc2)))
- (cmd-mark3 (and loc1 (realgud-loc-cmd-marker loc1)))
- )
- (when (and loc3 (not (equal mark3 mark2)))
- (realgud-fringe-set-arrow 'realgud-overlay-arrow3 mark3)
- (if do-cmdbuf?
- (realgud-fringe-set-arrow 'realgud-overlay-arrow3 cmd-mark3)))
- (when (and loc2 (not (equal mark2 mark1)))
- (realgud-fringe-set-arrow 'realgud-overlay-arrow2 mark2)
- (if do-cmdbuf?
- (realgud-fringe-set-arrow 'realgud-overlay-arrow2 cmd-mark2)))
- (when loc1
- (realgud-fringe-set-arrow 'realgud-overlay-arrow1 mark1)
- (when (and do-cmdbuf? cmd-mark1)
- (realgud-fringe-set-arrow 'realgud-overlay-arrow1 cmd-mark1)
- (goto-char (marker-position cmd-mark1)))
- )
- ))
-
-(defun realgud-fringe-erase-history-arrows ()
- "Erase the history arrows from the fringe. You might want call
-this command interactively if you have conceptually stopped
-debugging and now find the fringe arrows distracting. But you
-don't want to kill the debugger process or quit a debugger
-session which should also erase those fringe arrows."
- (interactive)
- (setq realgud-overlay-arrow1 nil)
- (setq realgud-overlay-arrow2 nil)
- (setq realgud-overlay-arrow3 nil))
-
-(defun realgud-goto-arrow1()
- "Goto the position stored in realgud-overlay-arrow1"
- (interactive "")
- (if realgud-overlay-arrow1
- (realgud:follow-mark realgud-overlay-arrow1))
- )
-
-(defun realgud-goto-arrow2()
- "Goto the position stored in realgud-overlay-arrow2"
- (interactive "")
- (if realgud-overlay-arrow2
- (realgud:follow-mark realgud-overlay-arrow2))
- )
-
-
-(defun realgud-goto-arrow3()
- "Goto the position stored in realgud-overlay-arrow3"
- (interactive "")
- (if realgud-overlay-arrow3
- (realgud:follow-mark realgud-overlay-arrow3))
- )
-
-(defun realgud-recenter-arrow1()
- "If the current buffer contains realgud-overlay-arrow1 go to that position"
- (interactive "")
- (if (and realgud-overlay-arrow1
- (eq (marker-buffer realgud-overlay-arrow1) (current-buffer)))
- (goto-char realgud-overlay-arrow1))
- )
-
-(defun realgud-recenter-arrow(&optional opt-buffer)
- "If the current buffer contains realgud-overlay-arrows 1, 2 or 3
- recenter window to show that"
- (interactive "")
- (let ((buffer (or opt-buffer (current-buffer))))
- ;; We need to update in the order 3..1 so that if there are more than on
- ;; arrows in the same buffer the smaller number (e.g. arrow 1) is the
- ;; position we are at rather than the earlier one (e.g. arrow 3).
- (with-current-buffer-safe buffer
- (if (and realgud-overlay-arrow3
- (eq (marker-buffer realgud-overlay-arrow3) buffer))
- (realgud:follow-mark realgud-overlay-arrow3)
- )
- (if (and realgud-overlay-arrow2
- (eq (marker-buffer realgud-overlay-arrow2) buffer))
- (realgud:follow-mark realgud-overlay-arrow2)
- )
- (if (and realgud-overlay-arrow1
- (eq (marker-buffer realgud-overlay-arrow1) buffer))
- (realgud:follow-mark realgud-overlay-arrow1)
- )
- (redisplay)
- )
- ))
-
-
-(provide 'realgud-fringe)
diff --git a/packages/realgud/realgud/common/helper.el
b/packages/realgud/realgud/common/helper.el
deleted file mode 100644
index 95c61ec..0000000
--- a/packages/realgud/realgud/common/helper.el
+++ /dev/null
@@ -1,109 +0,0 @@
-;; Copyright (C) 2010, 2014, 2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-(eval-when-compile (require 'cl-lib)) ;For setf.
-
-;;; Miscellaneous utility functions
-(require 'load-relative)
-
-(defun fn-p-to-fn?-alias (fn-sym)
- "FN-SYM is assumed to be a symbol which is a function. If it
-ends in a 'p' or '-p', that suffix is stripped; in either case, a
-suffix with '?' is added this name is a new alias for that
-function FN-SYM."
- (if (and (symbolp fn-sym) (functionp fn-sym))
- (let*
- ((fn-str (symbol-name fn-sym))
- (new-fn-str
- (cond
- ((and (> (length fn-str) 2) (equal "-p" (substring fn-str -2)))
- (substring fn-str 0 -2))
- ((and (> (length fn-str) 1) (equal "p" (substring fn-str -1)))
- (substring fn-str 0 -1))
- (t fn-str)))
- (new-fn-sym (intern (concat new-fn-str "?"))))
- (defalias new-fn-sym fn-sym))))
-
-;; FIXME push the special casing into the debuggers themselves.
-(defun realgud:debugger-name-transform (debugger-name)
- "In some cases we need to prefix a short debugger name, like
-'gdb' with 'realgud:'. This does that."
- (let ((debugger-name-short
- (file-name-sans-extension (file-name-nondirectory debugger-name))))
- (cond
- ;; ((equal debugger-name-short "gdb") "realgud:gdb")
- ;; ((equal debugger-name-short "jdb") "realgud:jdb")
- ((equal debugger-name-short "tortoise") "gub")
- ((or (equal debugger-name "trepan.pl")
- (equal debugger-name-short "trepanpl"))
- "realgud:trepanpl")
- ('t debugger-name-short))))
-
-(defun buffer-killed? (buffer)
- "Return t if BUFFER is killed."
- (not (buffer-live-p buffer)))
-
-(defmacro with-current-buffer-safe (buffer &rest body)
- "Check that BUFFER is not nil and has not been deleted before
-calling `with-current-buffer'. If it has been deleted return
-nil."
- (declare (indent 1) (debug t))
- `(if (or (not ,buffer) (buffer-killed? ,buffer))
- nil
- (with-current-buffer ,buffer
- ,@body)))
-
-
-;; FIXME: prepend realgud- onto the beginning of struct-symbol
-(defmacro realgud-sget (struct-symbol struct-field)
- "Simplified access to a field of a `defstruct'
-variable. STRUCT-SYMBOL is a defstruct symbol name. STRUCT-FIELD
-is a field in that. Access (STRUCT-SYMBOL-STRUCT-FIELD STRUCT-SYMBOL)"
- (declare (indent 1) (debug t))
- `(let* ((realgud-symbol-str
- (concat "realgud-" (symbol-name ,struct-symbol)))
- (realgud-field-access
- (intern (concat realgud-symbol-str "-" (symbol-name,
struct-field)))))
- (funcall realgud-field-access (eval (intern realgud-symbol-str)))))
-
-
-(defmacro realgud-struct-field-setter (variable-name field)
- "Creates an defstruct setter method for field FIELD with
-of defstruct variable VARIABLE-NAME. For example:
-
- (realgud-struct-field-setter \"realgud-srcbuf-info\" \"short-key?\")
-gives:
- (defun realgud-srcbuf-info-short-key?=(value)
- (setf (realgud-srcbuf-info-short-key? realgud-srcbuf-info) value))
-"
- (declare (indent 1) (debug t))
- `(defun ,(intern (concat variable-name "-" field "=")) (value)
- ;; FIXME: figure out how to add docstring
- ;; ,(concat "Sets field" ,field " of " ,variable-name " to VALUE")
- (if ,(intern variable-name)
- (setf (,(intern (concat variable-name "-" field))
- ,(intern variable-name)) value))
- ))
-
-;; (defun realgud-struct-field (var-sym field-sym)
-;; (setq var-str (symbol-name var-sym))
-;; (setq field-str (symbol-name field-sym))
-;; (funcall (symbol-function (intern (concat var-str "-" field-str)))
-;; (eval (intern var-str))))
-
-(provide-me "realgud-")
-
-;; Local Variables:
-;; byte-compile-warnings: (not cl-functions)
-;; End:
diff --git a/packages/realgud/realgud/common/init.el
b/packages/realgud/realgud/common/init.el
deleted file mode 100644
index 7001d85..0000000
--- a/packages/realgud/realgud/common/init.el
+++ /dev/null
@@ -1,45 +0,0 @@
-;; Copyright (C) 2010, 2015 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-(require 'load-relative)
-
-(defface realgud-line-number
- '((t :inherit font-lock-variable-name-face))
- "Face for displaying line numbers in."
- :group 'realgud
- :version "23.4")
-
-(defvar realgud-line-number-face 'realgud-line-number
- "Face name to use for line numbers.")
-
-(defface realgud-file-name
- '((t :inherit font-lock-preprocessor-face))
- "Face for displaying file names."
- :group 'realgud
- :version "23.4")
-
-(defface realgud-backtrace-number
- '((t
- :foreground "black"
- :weight bold))
- "Fringe face for current position."
- :group 'realgud)
-
-(defvar realgud-backtrace-number-face 'realgud-backtrace-number
- "Face name to use for backtrace numbers.")
-
-(defvar realgud-file-name-face 'realgud-file-name
- "Face name to use for file names.")
-
-(provide-me "realgud-")
diff --git a/packages/realgud/realgud/common/key.el
b/packages/realgud/realgud/common/key.el
deleted file mode 100644
index bb5ed7c..0000000
--- a/packages/realgud/realgud/common/key.el
+++ /dev/null
@@ -1,137 +0,0 @@
-;; Author: Rocky Bernstein <address@hidden>
-;; Version: 1.1
-;; Keywords: internal
-;; URL: http://github.com/rocky/emacs-load-relative
-;; Compatibility: GNU Emacs 24.x
-
-;; Copyright (C) 2015, 2017 Free Software Foundation, Inc
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-(provide 'key)
-;;; key.el ends here
-
-(require 'load-relative)
-(require-relative "custom" nil "realgud-")
-
-(defcustom realgud-populate-common-fn-keys-function
- 'realgud-populate-common-fn-keys-standard
- "The function to call to populate key bindings common to all realgud windows.
-This includes the secondary windows, the debugger shell, and all
-realgud source buffers when the debugger is active.
-
-This variable can be bound to the following:
-
-* `realgud-populate-common-fn-keys-none' -- Don't bind any keys.
-* `realgud-populate-common-fn-keys-standard' -- Bind the function
-* Any other value is expected to be a callable function that takes one
- argument, the keymap, and populates it with suitable keys."
- :type 'function
- :group 'realgud)
-
-;; -------------------------------------------------------------------
-;; Key bindings
-;;
-
-(defun realgud-populate-common-fn-keys-standard (&optional map)
- "Bind the debugger function key layout used by many debuggers.
-
-\\{realgud-example-map-standard}"
- (define-key map [f5] 'realgud:cmd-continue)
- (define-key map [S-f5] 'realgud:cmd-quit)
- ;; (define-key map [f9] 'realgud-toggle-source-breakpoint)
- (define-key map [f9] 'realgud:cmd-break)
- ;; (define-key map [C-f9] 'realgud-toggle-source-breakpoint-enabled)
- (define-key map [f10] 'realgud:cmd-next)
- (define-key map [f11] 'realgud:cmd-step)
- (define-key map [S-f11] 'realgud:cmd-finish)
- (define-key map [M-down] 'realgud-track-hist-newer)
- (define-key map [A-down] 'realgud-track-hist-newer)
- (define-key map [M-kp-2] 'realgud-track-hist-newer)
- (define-key map [M-up] 'realgud-track-hist-older)
- (define-key map [A-up] 'realgud-track-hist-older)
- (define-key map [M-kp-8] 'realgud-track-hist-older)
- (define-key map [M-kp-up] 'realgud-track-hist-older)
- (define-key map [M-kp-down] 'realgud-track-hist-newer)
- (define-key map [M-print] 'realgud-track-hist-older)
- (define-key map [M-S-down] 'realgud-track-hist-newest)
- (define-key map [M-S-up] 'realgud-track-hist-oldest)
- (define-key map "\C-c " 'realgud:cmd-break)
- )
-
-(defun realgud-populate-common-fn-keys-none (&optional map)
- "Do not any debugger function keys"
- )
-
-;; TODO: add eclipse, and netbeans
-
-(defun realgud-populate-common-keys (map)
- "Define the keys that are used by all debugger buffers, including
-source-code buffers
-
-The variable `realgud-populate-common-fn-keys-function' controls the layout."
- (define-key map "\C-x\C-a\C-q" 'realgud-short-key-mode)
- (if realgud-populate-common-fn-keys-function
- (funcall realgud-populate-common-fn-keys-function map)))
-
-(defun realgud-populate-src-buffer-map-plain (map)
- "Bind ordinary text characters used in debugger source-code buffers.
-
-This does not touch change menus; for that see
`realgud-populate-debugger-menu'.
-Nor does it touch prefix keys; for that see `realgud-populate-keys-standard'"
- ;; Common Debugger functions
- (let ((prefix-map (make-sparse-keymap)))
- (define-key map "b" 'realgud:cmd-break)
- (define-key map "D" 'realgud:cmd-delete)
- (define-key map "X" 'realgud:cmd-clear)
- (define-key map "-" 'realgud:cmd-disable)
- (define-key map "+" 'realgud:cmd-enable)
- (define-key map "T" 'realgud:cmd-backtrace)
- (define-key map [delete] 'realgud:cmd-delete)
- (define-key map [enter] 'realgud:cmd-repeat-last)
- (define-key map (kbd "RET") 'realgud:cmd-repeat-last)
- (define-key map " " 'realgud:cmd-step)
- (define-key map "f" 'realgud:cmd-finish)
- (define-key map "n" 'realgud:cmd-next)
- (define-key map "q" 'realgud:cmd-quit)
- (define-key map "k" 'realgud:cmd-kill)
- (define-key map "r" 'realgud:cmd-restart)
- (define-key map "R" 'realgud:cmd-restart)
- (define-key map "s" 'realgud:cmd-step)
- (define-key map "!" 'realgud:cmd-shell)
-
- ;; FIXME: these can go to a common routine. See also shortkey.el
- ;; and backtrace-mode.el
- (define-key map "<" 'realgud:cmd-newer-frame)
- (define-key map ">" 'realgud:cmd-older-frame)
- (define-key map "d" 'realgud:cmd-newer-frame)
- (define-key map "u" 'realgud:cmd-older-frame)
- (define-key map "C" 'realgud-window-cmd-undisturb-src)
- (define-key map "F" 'realgud:window-bt)
- (define-key map "Q" 'realgud:cmd-terminate)
- (define-key map "S" 'realgud-window-src-undisturb-cmd)
- (define-key map "U" 'realgud:cmd-until)
-
- (define-key map [M-down] 'realgud-track-hist-newer)
- (define-key map [M-kp-2] 'realgud-track-hist-newer)
- (define-key map [M-up] 'realgud-track-hist-older)
- (define-key map [M-kp-8] 'realgud-track-hist-older)
- (define-key map [M-kp-up] 'realgud-track-hist-older)
- (define-key map [M-kp-down] 'realgud-track-hist-newer)
- (define-key map [M-print] 'realgud-track-hist-older)
- (define-key map [M-S-down] 'realgud-track-hist-newest)
- (define-key map [M-S-up] 'realgud-track-hist-oldest)
- ))
-
-(provide-me "realgud-")
diff --git a/packages/realgud/realgud/common/lang.el
b/packages/realgud/realgud/common/lang.el
deleted file mode 100644
index d3b4cb3..0000000
--- a/packages/realgud/realgud/common/lang.el
+++ /dev/null
@@ -1,111 +0,0 @@
-;; Copyright (C) 2010, 2012, 2014-2015 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;;; Programming language specific stuff.
-(require 'load-relative)
-
-(defun realgud-lang-mode? (filename lang-str)
- "Return true if FILENAME is a buffer we are visiting a buffer
-that is in LANG-STR mode. The test is just that the major mode
-starts LANG-STR."
- (let ((buffer (and filename (find-buffer-visiting filename)))
- (match-pos))
- (cond (buffer
- (save-current-buffer
- (set-buffer buffer)
- (setq match-pos
- (string-match (format "^%s-" lang-str)
- (format "%s" major-mode))))
- (and match-pos (= 0 match-pos)))
- ('t nil)
- ))
- )
-
-(defun realgud:suggest-file-from-buffer (lang-str &optional opt-buff-list)
- "Suggest the first in the buffer list for which test-func is
- 't. Typically this is used. To search for a buffer in one of
- the programming modes like Ruby or Python."
- (let ((file)
- (buff)
- (not-found 't)
- (buff-list (or opt-buff-list (buffer-list)))
- )
- (while (and not-found (setq buff (car-safe buff-list)))
- (setq buff-list (cdr buff-list))
- (setq file (buffer-file-name buff))
- (if (realgud-lang-mode? file lang-str)
- (setq not-found nil)
- ))
- (if not-found nil file)
- )
- )
-
-(defun realgud-suggest-lang-file (lang-str lang-ext-regexp &optional
last-resort)
- "Suggest a file to debug. We search for the the major mode for
-that programming language using we check filenames using
-LANG-EXT-REGEXP. For example, for ruby LANG-STR would be 'ruby'
-and LANG-EXT-REGEXP would be '\\.rb$'.
-
-Buffers and files are ranked with a priority. Higher is more
-priority and selected will be selected over lower-priorities.
-
-The first priority is given to the current buffer. If the major
-mode matches LANG-STR, then we are done. If not, we'll set
-priority 2 and we keep going. Then we will try files in the
-default-directory. Of those buffers we are visiting, we check the
-major mode. The first one we find we will return. Failing this,
-we see if the file is executable and has a LANG-EXT suffix. These
-have priority 8. Failing that, we'll go for just having a
-LANG-EXT suffix. These have priority 7. And other executable
-files that are not directories have priority 6 if they have the
-right LANG-EXT, otherwise they are priority 5.
-
-Within a given priority, we use the first one we find."
- (let* ((file)
- (file-list (directory-files default-directory))
- (priority 2)
- (is-not-directory)
- (result (buffer-file-name)))
- (unless (realgud-lang-mode? result lang-str)
- (while (and (setq file (car-safe file-list)) (< priority 8))
- (setq file-list (cdr file-list))
- (when (realgud-lang-mode? file lang-str)
- (setq result file)
- (setq priority
- (if (file-executable-p file)
- (setq priority 8)
- (setq priority 7))))
- ;; The file isn't in a language-mode buffer,
- ;; Check for an executable file with a language extension.
- (if (and file (file-executable-p file)
- (setq is-not-directory (not (file-directory-p file))))
- (if (and (string-match lang-ext-regexp file))
- (if (< priority 6)
- (progn
- (setq result file)
- (setq priority 6))))
- (when (and is-not-directory (< priority 5))
- ;; Found some sort of regular file.
- (setq result file)
- (setq priority 5))
- ))
- )
- (if (< priority 6)
- (if (setq file (realgud:suggest-file-from-buffer lang-str))
- (setq result file)
- (if last-resort (setq result last-resort))))
- result)
- )
-
-(provide-me "realgud-")
diff --git a/packages/realgud/realgud/common/loc.el
b/packages/realgud/realgud/common/loc.el
deleted file mode 100644
index f90436f..0000000
--- a/packages/realgud/realgud/common/loc.el
+++ /dev/null
@@ -1,200 +0,0 @@
-;; Copyright (C) 2015-2017 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-;; This describes a debugger location structure and has code for
-;; working with them.
-
-(eval-when-compile (require 'cl-lib))
-
-(require 'load-relative)
-(require 'loc-changes)
-(require-relative-list '("fringe" "follow") "realgud-")
-(require-relative-list '("buffer/source") "realgud-buffer-")
-
-;; FIXME: removed because of recursive loads
-;; (require-relative-list '("buffer/helper") "realgud-buffer-")
-
-(declare-function realgud:strip 'realgud)
-(declare-function realgud-get-cmdbuf-from-srcbuf 'realgud-buffer-helper)
-(declare-function realgud-srcbuf? 'realgud-buffer-source)
-
-(cl-defstruct realgud-loc
-"Our own location type. Even though a mark contains a
-file-name (via a buffer) and a line number (via an offset), we
-want to save the values that were seen/requested originally."
- num ;; If there is a number such as a breakpoint or frame
- ;; number associated with this location, this is set.
- ;; nil otherwise.
- filename
- line-number
- column-number ;; Column offset within line
- source-text ;; Source text if available
- marker ;; Position in source code
- cmd-marker ;; Position in command process buffer
-)
-
-(defalias 'realgud-loc? 'realgud-loc-p)
-
-;; The below function is generic and might be found in standard
-;; library. Or it might be moved someplace more generic.
-(defun realgud:buffer-line-no-props()
- "Returns a string containing the line that `point' is at,
-without buffer properties."
- (buffer-substring-no-properties (point-at-bol)
- (point-at-eol)))
-
-(defun realgud:loc-describe (loc)
- "Display realgud-cmdcbuf-info.
-Information is put in an internal buffer called *Describe*."
- (interactive "")
- (switch-to-buffer (get-buffer-create "*Describe*"))
- (realgud:org-mode-append-loc loc))
-
-(defun realgud:org-mode-append-loc (loc)
- "Display realgud-cmdcbuf-info.
-Information is put in an internal buffer called *Describe*."
- (let ((column-number (realgud-loc-column-number loc))
- (bp-num (realgud-loc-num loc))
- (source-text (realgud-loc-source-text loc))
- (filename (realgud-loc-filename loc)))
- (insert " - filename :: ")
- (put-text-property
- (insert-text-button filename
- 'action 'realgud:follow-event
- 'help-echo "mouse-2: go to this file")
- (point)
- 'file filename)
- (insert "\n")
- (mapc 'insert
- (list
- (format " - line number :: %s\n" (realgud-loc-line-number loc))
- (if bp-num
- (format " - brkpt num :: %s\n" (realgud-loc-num loc))
- "")
- (if column-number
- (format " - column number :: %s\n"
- (realgud-loc-column-number loc))
- "")
- (if source-text
- (format " - source text :: %s\n" (realgud-loc-source-text
loc))
- "")
- ))
- ;; Make locations clickable
- (insert " - source marker :: ")
- (put-text-property
- (insert-text-button (format "%s" (realgud-loc-marker loc))
- 'action 'realgud:follow-event
- 'help-echo "mouse-2: go to this source location")
- (point)
- 'mark (realgud-loc-marker loc))
-
- (insert "\n - cmdbuf marker :: ")
- (put-text-property
- (insert-text-button (format "%s" (realgud-loc-cmd-marker loc))
- 'action 'realgud:follow-event
- 'help-echo "mouse-2: go to this command-buffer
location")
- (point)
- 'mark (realgud-loc-cmd-marker loc))
- (insert "\n")
- )
- )
-
-
-(defun realgud-loc-current(&optional source-buffer cmd-marker)
- "Create a location object for the point in the current buffer.
- If SOURCE-BUFFER is not given, take the current buffer as the
- source buffer."
- (interactive "")
- (unless source-buffer
- (setq source-buffer (current-buffer)))
- (unless (realgud-srcbuf? source-buffer)
- (error "%s is not a realgud source buffer" source-buffer))
- (unless cmd-marker
- (setq cmd-marker
- (realgud-get-cmdbuf-from-srcbuf source-buffer))
- )
- (with-current-buffer source-buffer
- (let ((mark (point-marker))
- (text (realgud:buffer-line-no-props)))
- (make-realgud-loc
- :filename (buffer-file-name source-buffer)
- :column-number (current-column)
- :line-number (line-number-at-pos)
- :source-text text
- :marker mark
- :cmd-marker cmd-marker
- )
- )))
-
-(defun realgud-loc-marker=(loc marker)
- (setf (realgud-loc-marker loc) marker))
-
-(defun realgud-loc-goto(loc)
- "Position point in the buffer referred to by LOC. This may
-involve reading in a file. In the process, the marker inside LOC
-may be updated.
-
-If LOC is found, The buffer containing the location referred to,
-the source-code buffer, is returned. Otherwise, nil is returned."
- (if (realgud-loc? loc)
- (let* ((filename (realgud-loc-filename loc))
- (line-number (realgud-loc-line-number loc))
- (column-number (realgud-loc-column-number loc))
- (marker (realgud-loc-marker loc))
- (cmd-marker (realgud-loc-cmd-marker loc))
- (use-marker nil)
- (src-buffer (marker-buffer (or marker (make-marker)))))
- (if (and (not src-buffer) filename)
- (setq src-buffer (find-file-noselect filename)))
- (if cmd-marker
- (with-current-buffer (marker-buffer cmd-marker)
- (goto-char cmd-marker)))
- (if src-buffer
- (with-current-buffer src-buffer
- (when (and marker (marker-position marker))
- ;; A marker has been set in loc, so use that.
- (goto-char (marker-position marker))
- (setq use-marker 't)
- (let ((current-text (realgud:buffer-line-no-props))
- (loc-text (realgud-loc-source-text loc)))
- (unless (and loc-text
- (equal (realgud:strip current-text)
(realgud:strip loc-text)))
- (loc-changes-goto line-number)
- (setq current-text (realgud:buffer-line-no-props))
- (when (equal current-text loc-text)
- (message "Marked location needed updating")
- (setq use-marker nil))
- )))
- (if use-marker
- (goto-char (marker-position marker))
- ;; else
- ;; We don't have a position set in the source buffer
- ;; so find it and go there. We use `loc-changes-goto'
- ;; to find that spot. `loc-changes-goto' keeps a
- ;; record of the first time we went to that spot, so
- ;; in the face of buffer modifications, it may be more
- ;; reliable.
- (let ((src-marker))
- (loc-changes-goto line-number)
- (when column-number
- (move-to-column column-number))
- (setq src-marker (point-marker))
- (realgud-loc-marker= loc src-marker)
- ))))
- src-buffer )))
-
-(provide-me "realgud-")
diff --git a/packages/realgud/realgud/common/lochist.el
b/packages/realgud/realgud/common/lochist.el
deleted file mode 100644
index 088589f..0000000
--- a/packages/realgud/realgud/common/lochist.el
+++ /dev/null
@@ -1,145 +0,0 @@
-;; Copyright (C) 2010, 2012, 2014-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;;; Debugger location ring
-;;; Commentary:
-
-;; This file manages a ring of (recently stopped) positions to allow
-;; the programmer to move between them.
-
-;;; Code:
-
-(eval-when-compile (require 'cl-lib))
-(require 'ring)
-(require 'org)
-(require 'load-relative)
-(require-relative-list '("loc") "realgud-")
-
-(declare-function realgud:loc-describe 'realgud-loc)
-
-(defcustom realgud-loc-hist-size 20 ; For testing. Should really be larger.
- "Size of realgud's position history ring"
- :type 'integer
- :group 'realgud)
-
-(cl-defstruct realgud-loc-hist
- "A list of source-code positions recently encountered"
- (position -1)
- (ring (make-ring realgud-loc-hist-size)))
-
-(defun realgud:loc-hist-describe(loc-hist)
- "Format LOC-HIST values inside buffer *Describe*"
- (switch-to-buffer (get-buffer-create "*Describe*"))
- (org-mode)
- (insert "** Source Positions Stopped at (loc-hist)\n")
- (mapc 'insert
- (list
- (format " - buffer size :: %d\n" realgud-loc-hist-size)
- (format " - position :: %d\n"
- (realgud-loc-hist-position loc-hist))))
- (let ((locs (cddr (realgud-loc-hist-ring loc-hist)))
- (loc)
- (i 0))
- (while (and (< i (length locs)) (setq loc (elt locs i)) (realgud-loc? loc)
)
- (insert (format "*** %d\n" i))
- (realgud:loc-describe loc)
- (setq i (1+ i))
- )
- )
-)
-
-(defun realgud-loc-hist-item-at(loc-hist position)
- "Get the current item stored at POSITION of the ring
-component in LOC-HIST"
- (lexical-let ((ring (realgud-loc-hist-ring loc-hist)))
- (unless (ring-empty-p ring)
- (ring-ref ring position))))
-
-(defun realgud-loc-hist-item(loc-hist)
- "Get the current item of LOC-HIST at the position previously set"
- (realgud-loc-hist-item-at
- loc-hist
- (realgud-loc-hist-position loc-hist)))
-
-(defun realgud-loc-hist-add(loc-hist loc)
- "Add FRAME to LOC-HIST"
- ;; Switching frames shouldn't save a new ring
- ;; position. Also make sure no position is different.
- ;; Perhaps duplicates should be controlled by an option.
- (let* ((ring (realgud-loc-hist-ring loc-hist))
- (old-loc (realgud-loc-hist-item loc-hist)))
- (unless (and
- old-loc
- (equal (realgud-loc-filename old-loc)
- (realgud-loc-filename loc))
- (equal (realgud-loc-line-number old-loc)
- (realgud-loc-line-number loc))
- (equal (realgud-loc-column-number old-loc)
- (realgud-loc-column-number old-loc)))
- (setf (realgud-loc-hist-position loc-hist) 0)
- (ring-insert ring loc)
- )
- ))
-
-(defun realgud-loc-hist-clear(loc-hist)
- "Clear out all source locations in LOC-HIST"
- (lexical-let* ((ring (ring-ref (realgud-loc-hist-ring loc-hist)
- (realgud-loc-hist-position loc-hist)))
- (head (car ring)))
- (setf (realgud-loc-hist-position loc-hist) (- head 1))
- (while (not (ring-empty-p ring))
- (ring-remove ring))))
-
-(defun realgud-loc-hist-index(loc-hist)
- "Return the ring-index value of LOC-HIST"
- (lexical-let* (
- (ring (realgud-loc-hist-ring loc-hist))
- (head (car ring))
- (ringlen (cadr ring))
- (index (mod (+ ringlen head
- (- (realgud-loc-hist-position loc-hist)))
- ringlen)))
- (if (zerop index) ringlen index)
- ))
-
-(defun realgud-loc-hist-set (loc-hist position)
- "Set LOC-HIST to POSITION in the stopping history"
- (setf (realgud-loc-hist-position loc-hist) position))
-
-;; FIXME: add numeric arg?
-(defun realgud-loc-hist-newer (loc-hist)
- "Set LOC-HIST position to an newer position."
-
- (setf (realgud-loc-hist-position loc-hist)
- (ring-minus1 (realgud-loc-hist-position loc-hist)
- (ring-length (realgud-loc-hist-ring loc-hist)))))
-
-(defun realgud-loc-hist-newest (loc-hist)
- "Set LOC-HIST position to the newest position."
- (setf (realgud-loc-hist-position loc-hist) -1))
-
-;; FIXME: add numeric arg?
-(defun realgud-loc-hist-older (loc-hist)
- "Set LOC-HIST position to an older position."
- (setf (realgud-loc-hist-position loc-hist)
- (ring-plus1 (realgud-loc-hist-position loc-hist)
- (ring-length (realgud-loc-hist-ring loc-hist)))))
-
-(defun realgud-loc-hist-oldest (loc-hist)
- "Set LOC-HIST to the oldest stopping point."
- (lexical-let* ((ring (realgud-loc-hist-ring loc-hist))
- (head (car ring)))
- (setf (realgud-loc-hist-position loc-hist) head)))
-
-(provide-me "realgud-")
diff --git a/packages/realgud/realgud/common/menu.el
b/packages/realgud/realgud/common/menu.el
deleted file mode 100644
index 2d3209c..0000000
--- a/packages/realgud/realgud/common/menu.el
+++ /dev/null
@@ -1,183 +0,0 @@
-; Copyright (C) 2010-2011, 2015 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; -------------------------------------------------------------------
-;; Menu support.
-;;
-
-(require 'load-relative)
-
-;; We want the doc strings from gdb-like commands for our help
-;; menus.
-(require-relative-list '("cmds") "realgud-")
-
-;; Note: We want the key binding to show in the menu. However, our
-;; situation is a little bit complex:
-;;
-;; 1) We want the binding of the `common' man (i.e. the function key
-;; the user has selected.)
-;;
-;; 2) We want this even when the menu is disabled and the key isn't
-;; bound, typically when the debugger isn't running.
-;;
-;; This has been solved by setting up an explicit ":keys" properly.
-(defun realgud-menu-item (common-map name cmd &rest args)
- "Return a menu item entry with the correct key bindings.
-
-A command can be bound to a number of different key sequences. If
-the realgud common map contains a binding it is displayed in the
-menu. (The common map typically contains function key bindings.)"
- (let ((key-binding (where-is-internal cmd (list common-map) t))
- (hint '()))
- (if key-binding
- (setq hint (list :keys (key-description key-binding))))
- (append (list 'menu-item name cmd)
- hint
- args)))
-
-
-;; I had a *lot* of trouble with emacs keymaps and duplicate menus.
-;; Don't use set-parent-mode on any minor mode.
-;; It is possible that realgud-track-mode could be a derived major mode whose
parent
-;; is comint, but that seems drastic.
-;; Instead we take the various minor modes and add a debugger menu to that.
-(defun realgud-populate-debugger-menu (map)
- "Populate the 'Debugger' menu inside an existing menu (short-key or
track-mode)."
- (let ((debugger-map (make-sparse-keymap "Debugger")))
- (define-key map [menu-bar debugger] (cons "Debugger" debugger-map))
- (define-key debugger-map [command]
- (realgud-menu-item debugger-map "Go to Command Buffer"
- 'realgud-window-cmd-undisturb-src
- :enable '(and (realgud-get-process) (not
(realgud-cmdbuf?)))
- :help (documentation 'realgud-window-cmd-undisturb-src)
- ))
-
- (define-key debugger-map [source]
- (realgud-menu-item debugger-map "Go to Source Buffer"
- 'realgud-window-src-undisturb-cmd
- :enable '(and (realgud-get-process) (not
(realgud-srcbuf?)))
- :help (documentation 'realgud-window-src-undisturb-cmd)
- ))
-
- (define-key debugger-map [info]
- (realgud-menu-item debugger-map "Debugger Info"
- 'realgud:cmdbuf-info-describe
- :help (documentation 'realgud:cmdbuf-info-describe)
- ))
-
- (define-key debugger-map [backtrace]
- (realgud-menu-item debugger-map "Backtrace" 'realgud:window-bt
- :enable '(realgud-get-process)
- :help (documentation 'realgud:window-bt)
- ))
-
- (define-key debugger-map [arrow3]
- (realgud-menu-item debugger-map "Arrow 3" 'realgud-goto-arrow3
- :enable '(realgud-get-process)
- :help (documentation 'realgud-goto-arrow3)
- ))
-
- (define-key debugger-map [arrow2]
- (realgud-menu-item debugger-map "Arrow 2" 'realgud-goto-arrow2
- :enable '(realgud-get-process)
- :help (documentation 'realgud-goto-arrow2)
- ))
-
- (define-key debugger-map [arrow1]
- (realgud-menu-item debugger-map "Arrow 1" 'realgud-goto-arrow1
- :enable '(realgud-get-process)
- :help (documentation 'realgud-goto-arrow1)
- ))
-
- (define-key debugger-map [break]
- (realgud-menu-item debugger-map "Set Breakpoint" 'realgud:cmd-break
- :enable '(realgud-get-process)
- :help (documentation 'realgud:cmd-break)
- ))
-
- (define-key debugger-map [continue]
- (realgud-menu-item debugger-map "Continue" 'realgud:cmd-continue
- :enable '(realgud-get-process)
- :help (documentation 'realgud:cmd-continue)
- ))
-
- (define-key debugger-map [until]
- (realgud-menu-item debugger-map "Continue to Line" 'realgud:cmd-until
- :enable '(and (realgud-get-process)
realgud-short-key-mode)
- :help (documentation 'realgud:cmd-until)
- ))
-
- (define-key debugger-map [next]
- (realgud-menu-item debugger-map "Next (step through)" 'realgud:cmd-next
- :enable '(realgud-get-process)
- :help (documentation 'realgud:cmd-next)
- ))
-
- (define-key debugger-map [finish]
- (realgud-menu-item debugger-map "Finish (step out)" 'realgud:cmd-finish
- :enable '(realgud-get-process)
- :help (documentation 'realgud:cmd-finish)
- ))
-
- (define-key debugger-map [step]
- (realgud-menu-item debugger-map "Step (step into)" 'realgud:cmd-step
- :enable '(realgud-get-process)
- :help (documentation 'realgud:cmd-step)
- ))
-
- (define-key debugger-map [menu-bar debugger line1] '(menu-item "--"))
-
- (define-key debugger-map [down]
- (realgud-menu-item debugger-map "Down Stack" 'realgud:cmd-newer-frame
- :enable '(realgud-get-process)
- :help (documentation 'realgud:cmd-newer-frame)
- ))
-
- (define-key debugger-map [up]
- (realgud-menu-item debugger-map "Up Stack" 'realgud:cmd-older-frame
- :enable '(realgud-get-process)
- :help (documentation 'realgud:cmd-older-frame)
- ))
-
- (define-key debugger-map [menu-bar debugger line1] '(menu-item "--"))
-
- (define-key debugger-map [quit]
- (realgud-menu-item debugger-map "Quit" 'realgud:cmd-quit
- :enable '(realgud-get-process)
- :help (documentation 'realgud:cmd-quit)
- ))
-
- (define-key debugger-map [restart]
- (realgud-menu-item debugger-map "Restart" 'realgud:cmd-restart
- :enable '(realgud-get-process)
- :help (documentation 'realgud:cmd-restart)
- ))
-
- (define-key debugger-map [eval]
- (realgud-menu-item debugger-map "Evaluate region or string"
'realgud:cmd-eval-dwim
- :enable '(realgud-get-process)
- :help (documentation 'realgud:cmd-eval-dwim)
- ))
-
- (define-key debugger-map [Recenter]
- (realgud-menu-item debugger-map "Recenter" 'realgud-recenter-arrow
- :enable '(realgud-get-process)
- :help (documentation 'realgud-recenter-arrow)
- ))
- ;; Put them in the menu bar:
- (setq menu-bar-final-items (append '(debugger) menu-bar-final-items))
- map
- ))
-
-(provide-me "realgud-")
diff --git a/packages/realgud/realgud/common/regexp.el
b/packages/realgud/realgud/common/regexp.el
deleted file mode 100644
index e21de25..0000000
--- a/packages/realgud/realgud/common/regexp.el
+++ /dev/null
@@ -1,76 +0,0 @@
-;; Copyright (C) 2010-2011, 2014-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;;; FIXME - think of a better name.
-;;;
-;;; Debugger regular expressions for many kinds of
-;;; debuggers
-
-;;; Here we have hash tables used in each kind of debugger
-;;; and names for patterns matching fields in a location
-;;; structure
-
-;;; Code:
-
-;; -------------------------------------------------------------------
-;; Variables defining regular expressions (regexp:s).
-;;
-
-(eval-when-compile (require 'cl-lib))
-
-(cl-defstruct realgud-loc-pat
- "Information to match and extract position and other related information
typically
-output by a debugger inside a process shell"
- (num) ;; General number. Could be for example
- ;; breakpoint number,
- (string) ;; General string, Could be for example a list of
- ;; breakpoint number. Or can be used if for example
- ;; if we need more than one in a complicated re
- ;; where we can't assign a single number to a
- ;; file position as in Perl locations.
- (regexp) ;; a stack position, or thread number.
- (file-group) ;; Filename position in struct
- (line-group) ;; Line number position in struct
- (alt-file-group) ;; Used when regexp is too complicated and use \|
- ;; e.g. perldb file loc regexps
- (alt-line-group) ;; ditto
- (char-offset-group) ;; Character offset position in struct
- (instruction-address-group)
- (column-group)
- (ignore-file-re) ;; Some debuggers create pseudo files in eval strings
- ;; for example "(eval)" in Ruby and Perl
- (text-group) ;; Some source text that should found at position
- (class-group) ;; Java doesn't refer to files, but class names
- (event-group) ;; Stopping event, e.g.statement, breakpoint,
- ;; call, return, exception, etc.
-)
-
-(defconst realgud:regexp-captured-num "\\([0-9]+\\)")
-
-(defvar realgud-pat-hash (make-hash-table :test 'equal)
- "Hash key is the debugger name, a string. The values of a hash entry
- is a realgud-loc-pat struct")
-
-(defvar realgud-command-hash (make-hash-table :test 'equal)
- "Hash key is the debugger name, a string. The value of a hash
- entry is a hash table mapping cannonic command name
- debugger-specific command name. For example, for trepanning:
- 'quit' -> 'quit!'")
-
-(defvar realgud:variable-basename-hash (make-hash-table :test 'equal)
- "Hash key is the debugger name, a string. The value of a hash
- entry is the base name to use that variables of that debugger use.
- For example, for 'gdb' it is 'realgud:gdb'.")
-
-(provide 'realgud-regexp)
diff --git a/packages/realgud/realgud/common/reset.el
b/packages/realgud/realgud/common/reset.el
deleted file mode 100644
index 03f734b..0000000
--- a/packages/realgud/realgud/common/reset.el
+++ /dev/null
@@ -1,58 +0,0 @@
-;; Copyright (C) 2010, 2014, 2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; reset state on quit or restart
-
-(require 'load-relative)
-(require 'loc-changes)
-(require-relative-list '("bp" "fringe" "helper") "realgud-")
-(require-relative-list '("buffer/helper" "buffer/command" "buffer/source")
- "realgud-buffer-")
-
-(declare-function loc-changes-clear-buffer 'loc-changes)
-(declare-function realgud-bp-remove-icons 'realgud-buffer-command)
-(declare-function realgud-cmdbuf? 'realgud-buffer-command)
-(declare-function realgud-get-cmdbuf-from-srcbuf 'realgud-buffer-helper)
-(declare-function realgud-fringe-erase-history-arrows
- 'realgud-buffer-command)
-
-(defun realgud:reset (&optional opt-buffer)
- "Reset state prior to quitting or restarting"
- (interactive)
- (let* ((buf (or opt-buffer (current-buffer)))
- (cmdbuf
- (cond ((realgud-cmdbuf? buf) buf)
- ((realgud-get-cmdbuf-from-srcbuf buf))
- ('t nil))))
- (if cmdbuf
- (with-current-buffer cmdbuf
- (realgud-fringe-erase-history-arrows)
- (let ((buf-list (realgud-sget 'cmdbuf-info 'srcbuf-list)))
- (dolist (buf buf-list buf-list)
- (with-current-buffer buf
- (loc-changes-clear-buffer)
- (realgud-fringe-erase-history-arrows)
- ;; FIXME: iterate over specific breakpoints.
- (realgud-bp-remove-icons (point-min) (point-max))
- )
- (message "buffer %s" buf)
- ))
- (setq realgud-cmdbuf-info nil)
- )
- ;; else
- (error "Unable to find command buffer from %s" buf)
- ))
- )
-
-(provide-me "realgud-")
diff --git a/packages/realgud/realgud/common/run.el
b/packages/realgud/realgud/common/run.el
deleted file mode 100644
index b34a3f0..0000000
--- a/packages/realgud/realgud/common/run.el
+++ /dev/null
@@ -1,220 +0,0 @@
-;; Copyright (C) 2015-2017 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-; (require 'term)
-
-(require 'cl-lib)
-(require 'shell)
-(require 'load-relative)
-(require-relative-list '("core" "track" "utils") "realgud-")
-(require-relative-list '("buffer/command") "realgud-buffer-")
-
-(declare-function realgud-cmdbuf-info-in-debugger?= 'realgud-buffer-command)
-(declare-function realgud-cmdbuf-info-cmd-args= 'realgud-buffer-command)
-(declare-function realgud:track-set-debugger 'realgud-track)
-(declare-function realgud-cmdbuf-info-starting-directory=
'realgud-buffer-command)
-(declare-function realgud-parse-command-arg 'realgud-core)
-(declare-function realgud:expand-file-name-if-exists 'realgud-core)
-(declare-function realgud:flatten 'realgud-utils)
-
-(defvar starting-directory)
-
-(defun realgud:parse-cmd-args(args two-args opt-two-args interp-regexp
debugger-regexp
- path-args-list annotate-args)
- "Parse command line ARGS for the annotate level and name of script to debug.
-
-ARGS should contain a tokenized list of the command line to run.
-
-We return the a list containing:
-* the command processor (e.g. bash) and it's arguments if any - a list of
strings
-* the name of the debugger given (e.g. bashdb) and its arguments - a list of
strings.
- If there is no debugger, for example gdb, nodejs then nil is returned.
-* the script name and its arguments - list of strings
-* whether the annotate or emacs option was given ('-A', '--annotate' or
'--emacs) - a boolean
-
-The script name and options mentioning paths are file expanded
-
-For example for the following input
- (map 'list 'symbol-name
- '(bash --norc bashdb -l . --emacs ./gcd.sh a b))
-
-we might return:
- ((\"bash\" \"--norc\") (\"bashdb\" \"-l\" \"/tmp\" \"--emacs\")
(\"/tmp/gcd.sh\" \"a\" \"b\") t)
-
-Note that path elements have been expanded via `expand-file-name'.
-"
- ;; Parse the following kind of pattern:
- ;; [bash bash-options] bashdb bashdb-options script-name script-options
- (let (
- (pair)
- ;; Things returned
- (script-name nil)
- (debugger-name nil)
- (interpreter-args '())
- (debugger-args '())
- (script-args '())
- (annotate-p nil))
-
- (if (not (and args))
- ;; Got nothing: return '(nil, nil nil nil)
- (list interpreter-args debugger-args script-args annotate-p)
- ;; else
- ;; Strip off optional interpreter name
- (when (and interp-regexp
- (string-match interp-regexp
- (file-name-sans-extension
- (file-name-nondirectory (car args)))))
- (setq interpreter-args (list (pop args)))
-
- ;; Strip off compiler/intepreter-specific options
- (while (and args
- (string-match "^-" (car args)))
- (setq pair (realgud-parse-command-arg
- args two-args opt-two-args))
- (nconc interpreter-args (car pair))
- (setq args (cadr pair))))
-
- ;; Skip to the first non-option argument.
- (while (and args (not script-name))
- (let ((arg (car args)))
- (cond
- ;; path-like options
- ((member arg path-args-list)
- (setq arg (pop args))
- (nconc debugger-args
- (list arg (realgud:expand-file-name-if-exists
- (pop args)))))
- ;; Other options with arguments.
- ((string-match "^-" arg)
- (setq pair (realgud-parse-command-arg
- args two-args opt-two-args))
- (nconc debugger-args (car pair))
- (setq args (cadr pair)))
- ;; Anything else must be the script to debug.
- (t (setq script-name (realgud:expand-file-name-if-exists arg))
- (setq script-args (cons script-name (cdr args))))
- )))
- (list interpreter-args debugger-args script-args annotate-p))))
-
-(defun realgud:run-process(debugger-name script-filename cmd-args
- minibuffer-history
- &optional no-reset)
- "Runs `realgud-exec-shell' with DEBUGGER-NAME SCRIPT-FILENAME
-and CMD-ARGS. If this succeeds, we save CMD-ARGS in command-buffer
-for use if we want to restart. If we don't succeed in running
-the program, we will switch to the command buffer which shows
-details of the error. The command buffer or nil is returned.
-
-DEBUGGER-NAME is used in selecting the tracking mode inside the
-command buffer. The debugger name and SCRIPT-FILENAME are used in
-selecting a buffer name for the command buffer.
-
-Normally command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset."
-
- (let ((cmd-buf))
- (setq cmd-buf
- (apply 'realgud-exec-shell debugger-name script-filename
- (car cmd-args) no-reset (cdr cmd-args)))
- ;; FIXME: Is there probably is a way to remove the
- ;; below test and combine in condition-case?
- (let ((process (get-buffer-process cmd-buf)))
- (if (and process (eq 'run (process-status process)))
- (progn
- (switch-to-buffer cmd-buf)
- (realgud:track-set-debugger debugger-name)
- (realgud-cmdbuf-info-in-debugger?= 't)
- (realgud-cmdbuf-info-cmd-args= cmd-args)
- (when cmd-buf
- (switch-to-buffer cmd-buf)
- (when realgud-cmdbuf-info
- (let* ((info realgud-cmdbuf-info)
- (cmd-args (realgud-cmdbuf-info-cmd-args info))
- (cmd-str (mapconcat 'identity cmd-args " ")))
- (if (boundp 'starting-directory)
- (realgud-cmdbuf-info-starting-directory=
starting-directory))
- (set minibuffer-history
- (cl-remove-duplicates
- (cons cmd-str (eval minibuffer-history)) :from-end)
- ))
- )))
- ;; else
- (progn
- (if cmd-buf (switch-to-buffer cmd-buf))
- (message "Error running command: %s" (mapconcat 'identity cmd-args "
"))
- )
- )
- )
- cmd-buf
- )
- )
-
-(defun realgud:run-debugger (debugger-name query-cmdline-fn parse-cmd-args-fn
- minibuffer-history
- &optional opt-command-line
- no-reset opt-script-name)
- "Invoke the a debugger and start the Emacs user interface.
-
-String OPT-COMMAND-LINE specifies how to run DEBUGGER-NAME. You
-will be prompted for a command line using QUERY-CMDLINE-FN is one
-isn't supplied.
-
-OPT-COMMAND-LINE is treated like a shell string; arguments are
-tokenized by `split-string-and-unquote'. The tokenized string is
-parsed by PARSE-CMD-FN and path elements found by that
-are expanded using `expand-file-name'.
-
-If successful, The command buffer of the debugger process is returned.
-Otherwise nil is returned.
-"
- (let* ((cmd-str (or opt-command-line (funcall query-cmdline-fn
debugger-name)))
- (cmd-args (split-string-and-unquote cmd-str))
- (parsed-args (funcall parse-cmd-args-fn cmd-args))
- (script-args (caddr parsed-args))
- (script-name (or opt-script-name (car script-args)))
- (parsed-cmd-args
- (cl-remove-if 'nil (realgud:flatten parsed-args)))
- )
- (realgud:run-process debugger-name script-name parsed-cmd-args
- minibuffer-history no-reset)
- )
- )
-
-;; For name = trepan2 we produce:
-;;
-;; (defalias 'trepan2 'realgud:trepan2)
-;; (defvar realgud:trepan2-delayed-minibuffer-history nil
-;; "minibuffer history list for the command `realgud:trepan2-delayed'.")
-
-(defmacro realgud-deferred-invoke-setup (name)
- `(progn
- (defalias
- ',(intern (concat name "-delayed"))
- ',(intern (concat "realgud:" name "-delayed")))
- (defvar ,(intern (concat "realgud:" name "-delayed-minibuffer-history"))
nil
- ,(format "minibuffer history for the command `%s-delayed'" name))
- ))
-
-(provide-me "realgud:")
-
-;; Local Variables:
-;; byte-compile-warnings: (not cl-functions)
-;; End:
diff --git a/packages/realgud/realgud/common/send.el
b/packages/realgud/realgud/common/send.el
deleted file mode 100644
index 4c112c1..0000000
--- a/packages/realgud/realgud/common/send.el
+++ /dev/null
@@ -1,281 +0,0 @@
-;; Copyright (C) 2015-2016, 2018 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-(require 'comint)
-(require 'eshell)
-(require 'load-relative)
-(require-relative-list '("utils" "window") "realgud-")
-(require-relative-list '("buffer/helper") "realgud-buffer-")
-
-(declare-function realgud-get-cmdbuf 'realgud-buffer-helper)
-(declare-function realgud-window-cmd-undisturb-src 'realgud-window)
-(declare-function comint-goto-process-mark 'comint)
-(declare-function comint-send-input 'comint)
-(declare-function realgud:canonic-major-mode 'realgud-utils)
-
-(defun realgud:send-input ()
- "Sends command buffer line either to comint or eshell"
- (interactive)
- (let ((mode (realgud:canonic-major-mode)))
- (ignore-errors
- (cond ((eq mode 'eshell)
- (eshell-send-input))
- ((eq mode 'comint)
- (comint-send-input))
- ))))
-
-(defun realgud:send-command-common (process command-str)
- "Assume we are in a comint buffer. Insert COMMAND-STR and
-send that input onto the process."
- (if (eq 'run (process-status process))
- (let ((mode (realgud:canonic-major-mode)))
- (cond ((eq mode 'eshell)
- (goto-char eshell-last-output-end)
- (setq eshell-last-output-start
- (setq realgud-last-output-start (point-marker))))
- ((eq mode 'comint)
- (comint-check-proc (current-buffer))
- (comint-goto-process-mark)
- (setq comint-last-output-start
- (setq realgud-last-output-start (point-marker)))))
- (insert command-str)
- (realgud:send-input)
- )
- ;; else
- (message "Process %s not in `run' state; not issuing %s"
- process command-str)
- )
- )
-
-(defalias 'comint-output-filter-orig
- (symbol-function 'comint-output-filter))
-
-(defvar realgud-last-output-start)
-(defun fake-output-filter(process string)
- "A process output filter that saves the results into a temporary buffer."
- (with-current-buffer (get-buffer-create "*realgud-process-output-temp*")
- (goto-char (point-max))
- (set (make-local-variable 'realgud-last-output-start)
- (point-marker))
- (insert (concat "\n" string))
- (goto-char (point-max))))
-
-(defun realgud-send-command-process (process command-str)
- "Invoke debugger COMMAND adding that command and the
-results into the command buffer."
- (fset 'comint-output-filter (symbol-function 'fake-output-filter))
- (apply comint-input-sender (list process command-str))
- (sit-for 0.25) ;; FIXME with something better
- (fset 'comint-output-filter (symbol-function 'comint-output-filter-orig))
- )
-
-;; Here are some other possibilities for functions.
-;; Comint-specific: doesn't insert input into the buffer which is
-;; what gud-call does.
-;; (apply comint-input-sender (list proc command))
-;;
-;; Works on any process-oriented buffer, not just comint.
-;; (process-send-string (get-buffer-process (current-buffer))
-;; (concat command "\n"))
-
-
-(defun realgud-send-command (command &optional opt-send-fn opt-buffer)
- "Invoke the debugger COMMAND adding that command and the
-results into the command buffer."
- (let* ((cmdbuf (realgud-get-cmdbuf opt-buffer))
- (send-command-fn (or opt-send-fn (function
realgud:send-command-common)))
- )
- (if cmdbuf
- (with-current-buffer cmdbuf
- (let ((process (get-buffer-process cmdbuf)))
- (unless process
- (realgud-cmdbuf-info-in-debugger?= nil)
- (error "Command process buffer is not running")
- )
- (if (realgud-sget 'cmdbuf-info 'in-debugger?)
- (funcall send-command-fn process command)
- (error "Command buffer doesn't think a debugger is running - Use
`realgud-cmdbuf-toggle-in-debugger?' to toggle")
- )
- ))
- (error "Can't find command process buffer")
- )))
-
-(defun realgud-send-command-invisible (command-str)
- (realgud-send-command command-str (function realgud-send-command-process)))
-
-(defvar realgud-expand-format-overrides nil
- "An alist of overrides for `realgud-expand-format'.
-Each element should have the form (KEY . VALUE). Key should be a
-single-character escape accepted by `realgud-expand-format';
-value should be a string. Every time %KEY is encountered in te
-string, it will be replaced by VALUE instead of being processed
-as usual. If VALUE is nil, the override is ignored.")
-
-(defun realgud-expand-format (fmt-str &optional opt-str opt-buffer)
- "Expands commands format characters inside FMT-STR.
-OPT-STR is an optional string (used with %p and %s). Values are
-taken from current buffer, or OPT-BUFFER if non-nil. Some
-%-escapes in the string arguments are expanded. These are:
-
- %f -- Name without directory of current source file.
- %F -- Name without directory or extension of current source file.
- %x -- Name of current source file.
- %X -- Expanded name of current source file.
- %d -- Directory of current source file.
- %l -- Number of current source line.
- %c -- Fully qualified class name derived from the expression
- surrounding point.
- %p -- Value of OPT-STR, converted to string using `int-to-string'
- %q -- Value of OPT-STR with string escapes (as ksh, bash, and zsh do).
- %s -- Value of OPT-STR.
-
-%p and %s are replaced by an empty string if OPT-STR is nil."
- (let* ((buffer (or opt-buffer (current-buffer)))
- (srcbuf (realgud-get-srcbuf buffer))
- (src-file-name (and srcbuf (buffer-file-name srcbuf)))
- result)
- (while (and fmt-str
- (let ((case-fold-search nil))
- (string-match "\\([^%]*\\)%\\([dfFlpqxXs]\\)" fmt-str)))
- (let* ((key-str (match-string 2 fmt-str))
- (key (string-to-char key-str)))
- (setq result
- (concat
- result (match-string 1 fmt-str)
- (cond
- ((cdr (assq key realgud-expand-format-overrides)))
- ((eq key ?d)
- (or (and src-file-name
- (file-name-directory src-file-name))
- "*source-file-not-found-for-%d"))
- ((eq key ?f)
- (or (and src-file-name
- (file-name-nondirectory src-file-name))
- "*source-file-not-found-for-%f*"))
- ((eq key ?F)
- (or (and src-file-name
- (file-name-sans-extension
- (file-name-nondirectory src-file-name)))
- "*source-file-not-found-for-%F"))
- ((eq key ?l)
- (if srcbuf
- (with-current-buffer srcbuf
- (int-to-string
- (save-restriction
- (widen)
- (+ (count-lines (point-min) (point))
- (if (bolp) 1 0)))))
- "source-buffer-not-found-for-%l"))
-
- ((eq key ?p) (if opt-str (int-to-string opt-str) ""))
-
- ;; String with escapes. %q follows shell (ksh, bash, zsh)
- ;; The other possibility was Python's %r, !r or "repr".
- ;; That isn't as perfect a fit though.
- ((eq key ?q) (if opt-str
- (let ((print-escape-newlines t))
- (prin1-to-string opt-str))
- ""))
-
- ;; String
- ((eq key ?s) (or opt-str ""))
-
- ((eq key ?x)
- (or (and src-file-name src-file-name)
- "*source-file-not-found-for-%x"))
- ((eq key ?X)
- (or (and src-file-name (expand-file-name src-file-name))
- "*source-file-not-found-for-%X"))
-
- ;; ((eq key ?e)
- ;; (gud-find-expr))
- ;; ((eq key ?a)
- ;; (gud-read-address))
- ;; ((eq key ?c)
- ;; (gud-find-class srcbuf))
-
- (t key)))))
- (setq fmt-str (substring fmt-str (match-end 2))))
- ;; There might be text left in FMT-STR when the loop ends.
- (concat result fmt-str)))
-
-(defun realgud-command (fmt &optional arg no-record? frame-switch?
realgud-prompts?)
- "Sends a command to the process associated with the command
-buffer of the current buffer. A bit of checking is done before
-sending the command to make sure that we can find a command
-buffer, and that it has a running process associated with it.
-
-FMT is a string which may contain format characters that are
-expanded. See `realgud-expand-format' for a list of the format
-characters and their meanings.
-
-If NO-RECORD? is set, the command won't be recorded in the
-position history. This is often done in status and information
-gathering or frame setting commands and is generally *not* done
-in commands that continue execution.
-
-If FRAME-SWITCH? is set, the fringe overlay array icon is set to
-indicate the depth of the frame.
-
-If REALGUD-PROMPTS? is set, then then issuing the command will cause a
-debugger prompt.
-"
- (interactive "sCommand (may contain format chars): ")
- (let* ((command-str (realgud-expand-format fmt arg))
- (cmd-buff (realgud-get-cmdbuf))
- )
- (unless cmd-buff
- (error "Can't find command buffer for buffer %s" (current-buffer)))
-
- ;; Display the expanded command in the message area unless the
- ;; current buffer is the command buffer.
- (unless (realgud-cmdbuf?)
- (message "Command: %s" command-str))
-
- (with-current-buffer cmd-buff
- (let* ((process (get-buffer-process cmd-buff))
- (last-output-end (point-marker))
- (in-srcbuf? (realgud-sget 'cmdbuf-info 'in-srcbuf?))
- )
- (unless process
- (error "Can't find process for command buffer %s" cmd-buff))
- (unless (eq 'run (process-status process))
- (error "Process %s isn't running; status %s" process
- (process-status process)))
-
- (realgud-cmdbuf-info-no-record?= no-record?)
- (realgud-cmdbuf-info-frame-switch?= frame-switch?)
-
- ;; Down the line we may handle prompting in a more
- ;; sophisticated way. But for now, we handle this by forcing
- ;; display of the command buffer.
- (if realgud-prompts? (realgud-window-cmd-undisturb-src nil 't))
-
- (realgud-send-command command-str (function
realgud:send-command-common))
-
- ;; Wait for the process-mark to change before changing variables
- ;; that effect the hook processing.
- (while (and (eq 'run (process-status process))
- (equal last-output-end (process-mark process)))
- (sit-for 0))
-
- ;; Reset temporary hook-processing variables to their default state.
- (realgud-cmdbuf-info-no-record?= nil)
- (realgud-cmdbuf-info-frame-switch?= nil)
- ))))
-
-(provide-me "realgud-")
diff --git a/packages/realgud/realgud/common/shortkey.el
b/packages/realgud/realgud/common/shortkey.el
deleted file mode 100644
index 3483eed..0000000
--- a/packages/realgud/realgud/common/shortkey.el
+++ /dev/null
@@ -1,225 +0,0 @@
-;; Copyright (C) 2010-2015, 2017 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-(require 'load-relative)
-(require-relative-list '("cmds" "custom" "eval" "helper" "key" "lochist" "loc"
- "menu")
- "realgud-")
-(require-relative-list '("buffer/command" "buffer/helper" "buffer/source")
- "realgud-buffer-")
-
-(eval-when-compile
- (defvar realgud:tool-bar-map) ;; Fully defined in track-mode
-)
-
-
-(declare-function realgud-cmds--mouse-add-remove-bp 'realgud-cmds)
-(declare-function realgud-cmdbuf?
'realgud-buffer-command)
-(declare-function realgud:debugger-name-transform 'realgud-helper)
-(declare-function realgud-get-cmdbuf 'realgud-buffer-helper)
-(declare-function realgud:follow-mark 'realgud-follow)
-(declare-function realgud-loc-hist-item-at 'realgud-lochist)
-(declare-function realgud-cmdbuf-loc-hist 'realgud-command)
-(declare-function realgud-populate-debugger-menu 'realgud-menu)
-(declare-function realgud-populate-common-keys 'realgud-key)
-(declare-function realgud-populate-src-buffer-map-plain 'realgud-key)
-(declare-function realgud-srcbuf-info-short-key?=, 'realgud-source)
-(declare-function realgud-srcbuf-info-was-read-only?= 'realgud-source)
-(declare-function realgud-srcbuf-info-prev-local-map= 'realgud-source)
-(declare-function realgud-srcbuf? 'realgud-buffer-source)
-(declare-function realgud--ensure-attached 'realgud-buffer-source)
-(declare-function realgud-srcbuf-info-set? 'realgud-buffer-source)
-
-;; (defvar realgud::tool-bar-map) ;; fully defined in track-mode.el
-
-(defvar realgud:shortkey-mode-map
- (let ((map (make-sparse-keymap)))
- (suppress-keymap map)
- (realgud-populate-debugger-menu map)
- (realgud-populate-common-keys map)
- (realgud-populate-src-buffer-map-plain map)
- (define-key map "1" 'realgud-goto-arrow1)
- (define-key map "2" 'realgud-goto-arrow2)
- (define-key map "3" 'realgud-goto-arrow3)
- (define-key map "4" 'realgud:goto-loc-hist-4)
- (define-key map "5" 'realgud:goto-loc-hist-5)
- (define-key map "6" 'realgud:goto-loc-hist-6)
- (define-key map "7" 'realgud:goto-loc-hist-7)
- (define-key map "8" 'realgud:goto-loc-hist-8)
- (define-key map "9" 'realgud:goto-loc-hist-9)
- (define-key map "b" 'realgud:cmd-break)
- (define-key map "j" 'realgud:cmd-jump)
- (define-key map "c" 'realgud:cmd-continue)
- (define-key map "e" 'realgud:cmd-eval-dwim)
- (define-key map "E" 'realgud:cmd-eval-at-point)
- (define-key map "U" 'realgud:cmd-until)
- (define-key map [mouse-2] 'realgud:tooltip-eval)
- (define-key map [left-fringe mouse-1] #'realgud-cmds--mouse-add-remove-bp)
- (define-key map [left-margin mouse-1] #'realgud-cmds--mouse-add-remove-bp)
-
- ;; FIXME: these can go to a common routine
- (define-key map "<" 'realgud:cmd-newer-frame)
- (define-key map ">" 'realgud:cmd-older-frame)
- (define-key map "d" 'realgud:cmd-newer-frame)
- (define-key map "u" 'realgud:cmd-older-frame)
- (define-key map "l" 'realgud-recenter-arrow)
- (define-key map "C" 'realgud-window-cmd-undisturb-src)
- (define-key map "I" 'realgud:cmdbuf-info-describe)
- (define-key map "S" 'realgud-window-src-undisturb-cmd)
-
- (define-key map "R" 'realgud:cmd-restart)
- (define-key map "!" 'realgud:cmd-shell)
- (define-key map [insert] 'realgud-short-key-mode)
- (define-key map [(control x)(control q)] 'realgud-short-key-mode)
- map)
- "Keymap used in `realgud-short-key-mode'.")
-
-;; Implementation note: This is the mode that does all the work, it's
-;; local to the buffer that is affected.
-(define-minor-mode realgud-short-key-mode
- "Minor mode with short keys for source buffers for the `realgud' debugger.
-If `realgud-srcbuf-lock' is set, the buffer is read-only when the
-minor mode is active.
-
-\\{realgud:shortkey-mode-map}"
- :group 'realgud
- :global nil
- :init-value nil
- :lighter " ShortKeys"
- :keymap realgud:shortkey-mode-map
- ;; executed on activation/deactivation:
- (realgud-short-key-mode-setup realgud-short-key-mode))
-
-(defun realgud-get-short-key-mode-map (cmdbuf)
- (when (realgud-cmdbuf? cmdbuf)
- (with-current-buffer cmdbuf
- (let* ((info realgud-cmdbuf-info)
- (debugger-name (realgud-cmdbuf-info-debugger-name info))
- (base-variable-name
- (or (gethash debugger-name realgud:variable-basename-hash)
- debugger-name))
- (keymap-symbol
- (intern
- (replace-regexp-in-string
- "\\." ""
- (concat base-variable-name "-short-key-mode-map"))))
- (keymap (eval keymap-symbol))
- )
- (cond ((keymapp keymap) keymap)
- ('t nil))
- ))
- ))
-
-(defun realgud-short-key-mode-setup (mode-on?)
- "Set up or tear down `realgud-short-key-mode'.
-MODE-ON? is a boolean indicating whether the mode should be
-turned on or off."
- (setq realgud-short-key-mode mode-on?)
- ;; When enabling, try to find a command buffer to attach to.
- (when (and realgud-short-key-mode (not (realgud--ensure-attached)))
- (setq realgud-short-key-mode nil))
- ;; Now apply mode change
- (cond
- ;; Mode was just enabled
- (realgud-short-key-mode
- ;; Record info to restore it when disabling
- (unless (equal (realgud-sget 'srcbuf-info 'short-key?)
realgud-short-key-mode)
- (realgud-srcbuf-info-prev-local-map= (current-local-map))
- (realgud-srcbuf-info-was-read-only?= buffer-read-only))
- ;; Apply local map
- (let ((keymap (realgud-get-short-key-mode-map (realgud-get-cmdbuf))))
- (when keymap (use-local-map keymap)))
- ;; Finish setting up
- (set (make-local-variable 'tool-bar-map) realgud:tool-bar-map)
- (local-set-key [m-insert] #'realgud-short-key-mode)
- (setq buffer-read-only realgud-srcbuf-lock)
- (run-mode-hooks 'realgud-short-key-mode-hook))
- ;; Mode was just disabled
- (t
- (kill-local-variable 'tool-bar-map)
- (when (realgud-srcbuf-info-set?)
- ;; Restore previous state
- (use-local-map (realgud-sget 'srcbuf-info 'prev-local-map))
- (setq buffer-read-only (realgud-sget 'srcbuf-info 'was-read-only?)))))
- ;; Record state
- (when (realgud-srcbuf-info-set?)
- (realgud-srcbuf-info-short-key?= realgud-short-key-mode)))
-
-(defun realgud-short-key-mode-off ()
- "Turn off `realgud-short-key-mode' in all buffers."
- (interactive)
- (save-excursion
- (dolist (buf (buffer-list))
- (set-buffer buf)
- (when realgud-short-key-mode
- (realgud-short-key-mode -1)))))
-
-(defun realgud-populate-src-buffer-map (map)
- "Bind all common keys and menu used in src buffers.
-This includes the keys bound to `realgud-key-prefix' (typically C-x
-C-a)."
- (realgud-populate-src-buffer-map-plain map)
- (realgud-populate-common-keys map)
- (let ((prefix-map (make-sparse-keymap)))
- (realgud-populate-debugger-menu map)
- (realgud-populate-src-buffer-map-plain prefix-map)
- (define-key map realgud-key-prefix prefix-map)))
-
-(defun realgud:goto-loc-hist(num)
- "Go to position nth from the newest position."
- (let ((cmdbuf (realgud-get-cmdbuf)))
- (if cmdbuf
- (let* ((loc-hist (realgud-cmdbuf-loc-hist cmdbuf))
- (loc (realgud-loc-hist-item-at loc-hist (- num)))
- (loc-marker (realgud-loc-marker loc)))
- (realgud:follow-mark loc-marker))
- ;; else
- (message "No command buffer associated with this buffer")
- )))
-
-
-(defun realgud:goto-loc-hist-4 ()
- "Go to position 4th from the newest position."
- (interactive)
- (realgud:goto-loc-hist 4))
-
-(defun realgud:goto-loc-hist-5 ()
- "Go to position 5th from the newest position."
- (interactive)
- (realgud:goto-loc-hist 5))
-
-(defun realgud:goto-loc-hist-6 ()
- "Go to position 6th from the newest position."
- (interactive)
- (realgud:goto-loc-hist 6))
-
-(defun realgud:goto-loc-hist-7 ()
- "Go to position 7th from the newest position."
- (interactive)
- (realgud:goto-loc-hist 7))
-
-(defun realgud:goto-loc-hist-8 ()
- "Go to position 8th from the newest position."
- (interactive)
- (realgud:goto-loc-hist 8))
-
-(defun realgud:goto-loc-hist-9 ()
- "Go to position 9th from the newest position."
- (interactive)
- (realgud:goto-loc-hist 9))
-
-(provide-me "realgud-")
diff --git a/packages/realgud/realgud/common/track-mode.el
b/packages/realgud/realgud/common/track-mode.el
deleted file mode 100644
index 4ca2c63..0000000
--- a/packages/realgud/realgud/common/track-mode.el
+++ /dev/null
@@ -1,239 +0,0 @@
-;; Copyright (C) 2015-2017 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-;; tracks shell output
-
-(require 'shell)
-
-(require 'load-relative)
-(require-relative-list
- '("core" "helper" "track" "loc" "lochist" "file"
- "fringe" "window" "regexp" "menu" "backtrace-mode"
- "send" "shortkey" "utils") "realgud-")
-
-(require-relative-list '("buffer/command") "realgud-buffer-")
-
-;; FIXME figure out if I can put this in something like a header file.
-(declare-function realgud-fringe-erase-history-arrows 'realgud-buffer-command)
-(declare-function realgud:track-set-debugger 'realgud-track)
-(declare-function realgud-populate-debugger-menu 'realgud-menu)
-(declare-function realgud-cmdbuf-info-divert-output?= 'realgud-buffer-command)
-(declare-function realgud-cmdbuf-info-prior-prompt-regexp=
- 'realgud-buffer-command)
-(declare-function realgud-cmdbuf-info-set?
- 'realgud-buffer-command)
-(declare-function realgud:canonic-major-mode
- 'realgud-utils)
-(declare-function shell-mode 'shell)
-
-(defvar realgud-track-mode-map
- (let ((map (copy-keymap shell-mode-map)))
- (realgud-populate-debugger-menu map)
- (define-key map "\r" 'realgud:send-input)
- (define-key map [M-right] 'realgud-track-hist-newest)
- (define-key map [M-down] 'realgud-track-hist-newer)
- (define-key map [M-up] 'realgud-track-hist-older)
- (define-key map [M-print] 'realgud-track-hist-older)
- (define-key map [M-S-down] 'realgud-track-hist-newest)
- (define-key map [M-S-up] 'realgud-track-hist-oldest)
- (define-key map "\C-cS" 'realgud-window-src-undisturb-cmd)
- (define-key map (kbd "C-c !d") 'realgud:goto-debugger-loc-line)
- map)
- "Keymap used in `realgud-track-minor-mode'.
-
-\\{realgud-track-mode-map}")
-
-
-(defvar realgud:tool-bar-map
- (let ((map (make-sparse-keymap)))
- (dolist (x '((realgud:cmd-break . "gud/break")
- ;; (realgud:cmd-remove . "gud/remove")
- ;; (realgud:cmd-print . "gud/print")
- ;; (realgud:cmd-pstar . "gud/pstar")
- ;; (realgud:cmd-pp . "gud/pp")
- ;; (realgud:cmd-watch . "gud/watch")
- (realgud:cmd-restart . "gud/run")
- ;; (realgud:cmd-go . "gud/go")
- ;; (realgud:cmd-stop-subjob . "gud/stop")
- (realgud:cmd-continue . "gud/cont")
- (realgud:cmd-until . "gud/until")
- (realgud:cmd-next . "gud/next")
- (realgud:cmd-step . "gud/step")
- (realgud:cmd-finish . "gud/finish")
- ;; (realgud:cmd-nexti . "gud/nexti")
- ;; (realgud:cmd-stepi . "gud/stepi")
- (realgud:cmd-older-frame . "gud/up")
- (realgud:cmd-newer-frame . "gud/down")
- (realgud:cmdbuf-info-describe . "info"))
- map)
- (tool-bar-local-item-from-menu
- (car x) (cdr x) map realgud-track-mode-map)))
- "toolbar use when `realgud' interface is active"
- )
-
-(define-minor-mode realgud-track-mode
- "Minor mode for tracking debugging inside a process shell."
- :init-value nil
- :global nil
- :group 'realgud
-
- :lighter
- (:eval (progn
- (concat " "
- (if (realgud-cmdbuf-info-set?)
- (realgud-sget 'cmdbuf-info 'debugger-name)
- "dbgr??"))))
-
- :keymap realgud-track-mode-map
- ;; Setup/teardown
- (realgud-track-mode-setup realgud-track-mode)
- )
-
-;; FIXME: this should have been picked up by require'ing track.
-(defvar realgud-track-divert-string)
-
-(defun realgud-track-mode-setup (mode-on?)
- "Called when entering or leaving `realgud-track-mode'. Variable
-MODE-ON is a boolean which specifies if we are going into or out
-of this mode."
- (if mode-on?
- (let ((process (get-buffer-process (current-buffer))))
- (unless process
- (setq realgud-track-mode nil)
- (error "Can't find a process for buffer %s" (current-buffer)))
-
- (setq realgud-track-divert-string "")
- (setq realgud-track-mode 't)
-
- ;; FIXME: save and chain process-sentinel via
- ;; (process-sentinel (get-buffer-process (current-buffer)))
- (set-process-sentinel process 'realgud-term-sentinel)
- (unless (and (realgud-cmdbuf-info-set?)
- (realgud-sget 'cmdbuf-info 'debugger-name))
- (call-interactively 'realgud:track-set-debugger))
- (if (boundp 'comint-last-output-start)
- (progn
- (realgud-cmdbuf-info-prior-prompt-regexp= comint-prompt-regexp)
- (realgud-cmdbuf-info-divert-output?= nil)
- (let* ((regexp-hash
- (and (realgud-cmdbuf-info? realgud-cmdbuf-info)
- (realgud-sget 'cmdbuf-info 'regexp-hash)))
- (prompt-pat (and regexp-hash
- (gethash "prompt" regexp-hash))))
- (if prompt-pat
- (setq comint-prompt-regexp
- (realgud-loc-pat-regexp prompt-pat)))))
- (set-marker comint-last-output-start (point)))
-
- (set (make-local-variable 'tool-bar-map) realgud:tool-bar-map)
- (let ((mode (realgud:canonic-major-mode)))
- (cond ((eq mode 'eshell)
- (add-hook 'eshell-output-filter-functions
- 'realgud-track-eshell-output-filter-hook))
- ((eq mode 'comint)
- (add-hook 'comint-output-filter-functions
- 'realgud-track-comint-output-filter-hook))
- ))
- (run-mode-hooks 'realgud-track-mode-hook))
- ;; else
- (progn
- (if (and (boundp 'comint-last-output-start) realgud-cmdbuf-info)
- (setq comint-prompt-regexp
- (realgud-sget 'cmdbuf-info 'prior-prompt-regexp))
- )
- (kill-local-variable 'realgud:tool-bar-map)
- (realgud-fringe-erase-history-arrows)
- (let ((mode (realgud:canonic-major-mode)))
- (cond ((eq mode 'eshell)
- (remove-hook 'eshell-output-filter-functions
- 'realgud-track-eshell-output-filter-hook))
- ((eq mode 'comint)
- (remove-hook 'comint-output-filter-functions
- 'realgud-track-comint-output-filter-hook))
- ))
- (let* ((cmd-process (get-buffer-process (current-buffer)))
- (status (if cmd-process
- (list (propertize (format ":%s"
- (process-status cmd-process))
- 'face 'realgud-debugger-running))
- ""))
- )
- (setq mode-line-process status)
- ;; Force mode line redisplay soon.
- (force-mode-line-update)
- ;; FIXME: This is a workaround. Without this, we comint doesn't
- ;; process commands
- (unless (member 'comint-mode minor-mode-list) (comint-mode))
- )
-
- ;; FIXME: restore/unchain old process sentinels.
- )
- )
- )
-
-;; For name == "trepan", produces:
-;; (defvar trepan-track-mode nil
-;; "Non-nil if using trepan track-mode ... "
-;; (defvar trepan-track-mode-map (make-sparse-keymap))
-;; (defvar trepan-short-key-mode-map (make-sparse-keymap))
-;; (set-keymap-parent trepan-short-key-mode-map realgud-short-key-mode-map)
-(defmacro realgud-track-mode-vars (name)
- `(progn
- (defvar ,(intern (concat name "-track-mode")) nil
- ,(format "Non-nil if using %s-track-mode as a minor mode of some other
mode.
-Use the command `%s-track-mode' to toggle or set this variable." name name))
- (defvar ,(intern (concat name "-track-mode-map")) (make-sparse-keymap)
- ,(format "Keymap used in `%s-track-mode'." name))
- (defvar ,(intern (concat name "-short-key-mode-map"))
(make-sparse-keymap))
- ))
-
-;; FIXME: The below could be a macro? I have a hard time getting
-;; macros right.
-(defun realgud-track-mode-body(name)
- "Used in by custom debuggers: pydbgr, trepan, gdb, etc. NAME is
-the name of the debugger which is used to preface variables."
- (realgud:track-set-debugger name)
- (funcall (intern (concat "realgud-define-" name "-commands")))
- (if (intern (concat name "-track-mode"))
- (progn
- (setq realgud-track-mode 't)
- (run-mode-hooks (intern (concat name "-track-mode-hook"))))
- (progn
- (setq realgud-track-mode nil)
- )))
-
-(defun realgud:track-mode-disable()
- "Disable the debugger track-mode hook"
- (interactive "")
- (if realgud-track-mode
- (progn
- (setq realgud-track-mode nil)
- ;; FIXME: for some reason, disabling trak mode also
- ;; disables shell mode. Reinitialize it?
- (if (equal mode-name "Shell")
- (shell-mode))
- )
- (message "Debugger is not in track mode")))
-
-(defun realgud:track-mode-enable()
- "Enable the debugger track-mode hook"
- (interactive "")
- (if realgud-track-mode
- (message "Debugger track mode is already enabled.")
- (setq realgud-track-mode t))
- )
-
-(provide-me "realgud-")
diff --git a/packages/realgud/realgud/common/track.el
b/packages/realgud/realgud/common/track.el
deleted file mode 100644
index d081449..0000000
--- a/packages/realgud/realgud/common/track.el
+++ /dev/null
@@ -1,895 +0,0 @@
-;; Copyright (C) 2015-2017 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-(declare-function realgud:terminate &optional cmdbuf)
-
-(defconst realgud-track-char-range 10000
- "Max number of characters from end of buffer to search for stack entry.")
-
-;; Shell process buffers that we can hook into:
-(require 'esh-mode)
-(require 'ansi-color)
-(require 'comint)
-
-(require 'load-relative)
-(require-relative-list
- '("core" "file" "fringe"
- "helper" "init" "loc" "lochist"
- "regexp" "shortkey" "window" "utils"
- "bp"
- ) "realgud-")
-
-
-(require-relative-list
- '("buffer/command" "buffer/helper" "buffer/source") "realgud-buffer-")
-
-(defcustom realgud-short-key-on-tracing? nil
-"If non-nil, set short-key mode for any source buffer that is traced into"
- :type 'symbolp
- :group 'realgud)
-
-(defcustom realgud-eval-message-print-length 1000
-"If non-nil, truncate eval output into the echo area"
- :type 'symbolp
- :group 'realgud)
-
-(declare-function buffer-killed? 'realgud-helper)
-(declare-function fn-p-to-fn?-alias 'realgud-helper)
-(declare-function realgud-bp-add-info 'realgud-bp)
-(declare-function realgud-bp-del-info 'realgud-bp)
-(declare-function realgud-bp-enable-disable-info 'realgud-bp)
-(declare-function realgud-cmdbuf-add-srcbuf 'realgud-buffer-command)
-(declare-function realgud-cmdbuf-debugger-name 'realgud-buffer-command)
-(declare-function realgud-cmdbuf-info-bp-list= 'realgud-buffer-command)
-(declare-function realgud-cmdbuf-info-divert-output?= 'realgud-buffer-command)
-(declare-function realgud-cmdbuf-info-in-debugger? 'realgud-buffer-command)
-(declare-function realgud-cmdbuf-info-in-debugger?= 'realgud-buffer-command)
-(declare-function realgud-cmdbuf-info-last-input-end= 'realgud-buffer-command)
-(declare-function realgud-cmdbuf-init 'realgud-buffer-command)
-(declare-function realgud-cmdbuf-loc-hist 'realgud-buffer-command)
-(declare-function realgud-cmdbuf-mode-line-update 'realgud-buffer-command)
-(declare-function realgud-cmdbuf-mode-line-update 'realgud-buffer-command)
-(declare-function realgud-cmdbuf-pat 'realgud-buffer-command)
-(declare-function realgud-cmdbuf? 'realgud-buffer-command)
-(declare-function realgud-cmdbuf-info-in-srcbuf?= 'realgud-buffer-command)
-(declare-function realgud:debugger-name-transform 'realgud-helper)
-(declare-function realgud:terminate 'realgud-core)
-(declare-function realgud:file-loc-from-line 'realgud-file)
-(declare-function realgud-fringe-history-set 'realgud-fringe)
-(declare-function realgud-get-cmdbuf 'realgud-buffer-command)
-(declare-function realgud-get-srcbuf-from-cmdbuf 'realgud-buffer-helper)
-(declare-function realgud-loc-goto 'realgud-loc)
-(declare-function realgud-loc-hist-add 'realgud-lochist)
-(declare-function realgud-loc-hist-index 'realgud-lochist)
-(declare-function realgud-loc-hist-item 'realgud-lochist)
-(declare-function realgud-loc? 'realgud-loc)
-(declare-function realgud-short-key-mode-setup 'realgud-shortkey)
-(declare-function realgud-srcbuf-init-or-update 'realgud-source)
-(declare-function realgud-srcbuf-loc-hist 'realgud-source)
-(declare-function realgud-window-src 'realgud-window)
-(declare-function realgud-window-src-undisturb-cmd 'realgud-window)
-(declare-function realgud-window-update-position 'realgud-window)
-(declare-function realgud:join-string 'realgud-utils)
-
-(make-variable-buffer-local (defvar realgud-track-mode))
-(fn-p-to-fn?-alias 'realgud-loc-p)
-
-(defvar realgud-track-divert-string)
-(defvar starting-directory)
-
-(defun realgud-track-comint-output-filter-hook(text)
- "An output-filter hook custom for comint shells. Find
-location/s, if any, and run the action(s) associated with
-finding a new location/s. The parameter TEXT appears because it
-is part of the comint-output-filter-functions API. Instead we use
-marks set in buffer-local variables to extract text"
-
- ;; Instead of trying to piece things together from partial text
- ;; (which can be almost useless depending on Emacs version), we
- ;; monitor to the point where we have the next dbgr prompt, and then
- ;; check all text from comint-last-input-end to process-mark.
-
- ;; FIXME: Add unwind-protect?
- (if (and realgud-track-mode (realgud-cmdbuf? (current-buffer)))
- (let* ((cmd-buff (current-buffer))
- (cmd-mark (point-marker))
- (shortkey
- (realgud-cmdbuf-info-src-shortkey?
- realgud-cmdbuf-info))
- (curr-proc (get-buffer-process cmd-buff))
- (cmdbuf-last-output-end
- (realgud-cmdbuf-info-last-input-end realgud-cmdbuf-info))
- (last-output-end
- (if curr-proc
- (process-mark curr-proc)
- cmdbuf-last-output-end))
- (last-output-start (max comint-last-input-start
- (- last-output-end
realgud-track-char-range))))
- ;; Sometimes we get called twice and the second time nothing
- ;; changes. Guard against this.
- (unless (= last-output-start last-output-end)
- (unless (= last-output-end cmdbuf-last-output-end)
- (setq last-output-start (max last-output-start
- cmdbuf-last-output-end))
- )
- ;; Done with using old command buffer's last-input-end.
- ;; Update that for next time.
- (realgud-cmdbuf-info-last-input-end= last-output-start)
- (realgud:track-from-region last-output-start
- last-output-end cmd-mark cmd-buff
- shortkey 't))
- )
- )
- )
-
-(defun realgud-track-eshell-output-filter-hook()
- "An output-filter hook custom for eshell shells. Find
-location(s), if any, and run the action(s) associated with We use
-marks set in buffer-local variables to extract text"
-
- ;; FIXME: Add unwind-protect?
- (if realgud-track-mode
- (lexical-let* ((cmd-buff (current-buffer))
- (cmd-mark (point-marker))
- (shortkey
- (realgud-cmdbuf-info-src-shortkey?
- realgud-cmdbuf-info))
- (loc (realgud:track-from-region
- eshell-last-output-start
- eshell-last-output-end cmd-mark cmd-buff
- shortkey)))
- (realgud-track-loc-action loc cmd-buff 't shortkey))
- ))
-
-(defun realgud-track-term-output-filter-hook(text)
- "An output-filter hook custom for ansi-term shells. Find
-location/s, if any, and run the action(s) associated with
-finding a new location/s. The parameter TEXT appears because it
-is part of the comint-output-filter-functions API. Instead we use
-marks set in buffer-local variables to extract text"
- (if (and realgud-track-mode (realgud-cmdbuf? (current-buffer)))
- (realgud-track-loc text (point-marker))
- ))
-
-(defun realgud:track-complain-if-not-in-cmd-buffer (&optional buf errorp)
- "Complain if BUF (default: current buffer) is not a command buffer.
-With non-nil ERRORP, raise an exception. Otherwise, print a
-message."
- (setq buf (or buf (current-buffer)))
- (unless (realgud-cmdbuf? buf)
- (funcall (if errorp #'error #'message)
- "Buffer %s is not a debugger command buffer" buf)
- t))
-
-(defun realgud:get-output-command(text)
- "Splits the TEXT by newline."
- (car (split-string text "\n")))
-
-(defun realgud:get-eval-output(text)
- "Gets the output stripping the command and debugger prompt from the TEXT."
- (realgud:join-string (butlast (cdr (split-string text "\n"))) "\n"))
-
-(defun realgud:get-command-name(command-name)
- "Gets the COMMAND-NAME for this particular debugger."
- (gethash command-name (buffer-local-value 'realgud-command-name-hash
(current-buffer))))
-
-(defun realgud:eval-command-p(text)
- "Checks the TEXT if the command that was ran was an eval command."
- (let ((cmd-name (realgud:get-command-name "eval")))
- (and (stringp cmd-name) (string-prefix-p (realgud:get-command-name
"eval") (realgud:get-output-command text)))))
-
-(defun realgud:truncate-eval-message(text)
- "Truncates the TEXT to the size of realgud-eval-message-print-length."
- (if (< realgud-eval-message-print-length (length text))
- (substring text 0 realgud-eval-message-print-length)
- text))
-
-(defun realgud:message-eval-results(text)
- "Output the TEXT to the message area."
- (message (realgud:truncate-eval-message (realgud:get-eval-output text))))
-
-(defun realgud:track-from-region(from to &optional cmd-mark opt-cmdbuf
- shortkey-on-tracing? no-warn-if-no-match?)
- "Find and position a buffer at the location found in the marked region.
-
-You might want to use this function interactively after marking a
-region in a debugger-tracked shell buffer (see `realgud-track-mode')
-or a more dedicated debugger command buffer.
-
-The marked region location should match the regexp found in the
-buffer-local variable `realgud-cmdbuf-info' structure under the
-field loc-regexp. You can see what this is by
-evaluating (realgud-cmdbuf-info-loc-regexp realgud-cmdbuf-info)"
-
- (interactive "r")
- (if (> from to) (psetq to from from to))
- (let* ((text (buffer-substring-no-properties from to))
- (loc (realgud-track-loc text cmd-mark))
- ;; If we see a selected frame number, it is stored
- ;; in frame-num. Otherwise, nil.
- (frame-num)
- (text-sans-loc)
- (cmdbuf (or opt-cmdbuf (current-buffer)))
- )
- (unless (realgud:track-complain-if-not-in-cmd-buffer cmdbuf t)
- (if (realgud:eval-command-p text)
- (realgud:message-eval-results text))
-
- (if (not (equal "" text))
- (with-current-buffer cmdbuf
- (if (realgud-sget 'cmdbuf-info 'divert-output?)
- (realgud-track-divert-prompt text cmdbuf to))
- ;; FIXME: instead of these fixed filters,
- ;; put into a list and iterate over that.
- (realgud-track-termination? text)
- (setq text-sans-loc (or (realgud-track-loc-remaining text) text))
- (setq frame-num (realgud-track-selected-frame text))
- (if (and frame-num (not loc))
- (setq loc (realgud-track-loc-from-selected-frame
- text cmd-mark)))
-
- (realgud:track-handle-breakpoints text-sans-loc cmd-mark cmdbuf)
-
- (if loc
- (let ((selected-frame
- (or (not frame-num)
- (eq frame-num (realgud-cmdbuf-pat
"top-frame-num")))))
- (realgud-track-loc-action loc cmdbuf (not selected-frame)
- shortkey-on-tracing?)
- (realgud-cmdbuf-info-in-debugger?= 't)
- (realgud-cmdbuf-mode-line-update)))
-
- )
- )
- )
- )
- )
-
-(defun realgud:track-handle-breakpoints (text-sans-loc cmd-mark cmdbuf)
- (realgud:track-add-breakpoint text-sans-loc cmd-mark cmdbuf)
- (realgud:track-remove-breakpoints text-sans-loc cmd-mark cmdbuf))
-
-(defun realgud:track-add-breakpoint (text-sans-loc cmd-mark cmdbuf)
- "Add a breakpoint fringe in source window if BP-LOC."
- (realgud-track-bp-enable-disable text-sans-loc
- (realgud-cmdbuf-pat "brkpt-enable")
- 't)
-
- (let ((bp-loc (realgud-track-bp-loc text-sans-loc cmd-mark cmdbuf)))
- (if bp-loc
- (let ((src-buffer (realgud-loc-goto bp-loc)))
- (realgud-cmdbuf-add-srcbuf src-buffer cmdbuf)
- (with-current-buffer src-buffer
- (realgud-bp-add-info bp-loc))))))
-
-(defun realgud:track-remove-breakpoints (text-sans-loc cmd-mark cmdbuf)
- "Remove all breakpoints in source window found in BP-LOCS."
- (realgud-track-bp-enable-disable text-sans-loc
- (realgud-cmdbuf-pat "brkpt-disable")
- nil)
-
- (dolist (bp-loc (realgud-track-bp-delete text-sans-loc cmd-mark cmdbuf))
- (let ((src-buffer (realgud-loc-goto bp-loc)))
- (realgud-cmdbuf-add-srcbuf src-buffer cmdbuf)
- (with-current-buffer src-buffer
- (realgud-bp-del-info bp-loc)))))
-
-(defun realgud-track-hist-fn-internal(fn)
- "Update both command buffer and a source buffer to reflect the
-selected location in the location history. If we started in a
-command buffer, we stay in a command buffer. Moving inside a
-command buffer always shows the corresponding source
-file. However it is possible in shortkey mode to show only the
-source code window, even the commmand buffer is updated albeit
-unshown."
-
- (let ((cmdbuf (realgud-get-cmdbuf (current-buffer))))
- (if cmdbuf
- (let* ((loc-hist (realgud-cmdbuf-loc-hist cmdbuf))
- (window (selected-window))
- (position (funcall fn loc-hist))
- (stay-in-cmdbuf?
- (or (eq (current-buffer) cmdbuf)
- (with-current-buffer cmdbuf
- (not (realgud-sget 'cmdbuf-info 'in-srcbuf?)))))
- (loc (realgud-loc-hist-item loc-hist))
- (srcbuf (realgud-get-srcbuf-from-cmdbuf cmdbuf loc))
- )
- (set-buffer (realgud-loc-goto loc))
-
- ;; Make sure command buffer is updated
- (realgud-window-update-position cmdbuf
- (realgud-loc-cmd-marker loc))
-
- ;; FIXME turn into fn. combine with realgud-track-loc-action.
- (if stay-in-cmdbuf?
- (let ((cmd-window (realgud-window-src-undisturb-cmd srcbuf)))
- (if cmd-window (select-window cmd-window)))
- (realgud-window-src srcbuf)
- )
-
- ;; Make sure source buffer is updated
- (realgud-window-update-position srcbuf
- (realgud-loc-marker loc))
-
- (message "history position %s line %s"
- (realgud-loc-hist-index loc-hist)
- (realgud-loc-line-number loc))
- (select-window window)))
- ))
-
-;; FIXME: Can we dry code more via a macro?
-(defun realgud-track-hist-newer()
- (interactive)
- (realgud-track-hist-fn-internal 'realgud-loc-hist-newer))
-
-(defun realgud-track-hist-newest()
- (interactive)
- (realgud-track-hist-fn-internal 'realgud-loc-hist-newest))
-
-(defun realgud-track-hist-older()
- (interactive)
- (realgud-track-hist-fn-internal 'realgud-loc-hist-older))
-
-(defun realgud-track-hist-oldest()
- (interactive)
- (realgud-track-hist-fn-internal 'realgud-loc-hist-oldest))
-
-(defun realgud-track-loc-action (loc cmdbuf &optional not-selected-frame
- shortkey-on-tracing?)
- "If loc is valid, show loc and do whatever actions we do for
-encountering a new loc."
- (if (realgud-loc? loc)
- (let*
- ((cmdbuf-loc-hist (realgud-cmdbuf-loc-hist cmdbuf))
- (cmdbuf-local-overlay-arrow?
- (with-current-buffer cmdbuf
- (local-variable-p 'overlay-arrow-variable-list)))
- (stay-in-cmdbuf?
- (with-current-buffer cmdbuf
- (not (realgud-sget 'cmdbuf-info 'in-srcbuf?))))
- (shortkey-mode?
- (with-current-buffer cmdbuf
- (realgud-sget 'cmdbuf-info 'src-shortkey?)))
- (srcbuf)
- (srcbuf-loc-hist)
- )
-
- (setq srcbuf (realgud-loc-goto loc))
- (realgud-srcbuf-init-or-update srcbuf cmdbuf)
- (setq srcbuf-loc-hist (realgud-srcbuf-loc-hist srcbuf))
- (realgud-cmdbuf-add-srcbuf srcbuf cmdbuf)
-
- (with-current-buffer srcbuf
- (realgud-short-key-mode-setup
- (and shortkey-on-tracing?
- (or realgud-short-key-on-tracing? shortkey-mode?))
- ))
-
- ;; Do we need to go back to the process/command buffer because other
- ;; output-filter hooks run after this may assume they are in that
- ;; buffer? If so, we may have to use set-buffer rather than
- ;; switch-to-buffer in some cases.
- (set-buffer cmdbuf)
-
- (unless (realgud-sget 'cmdbuf-info 'no-record?)
- (realgud-loc-hist-add srcbuf-loc-hist loc)
- (realgud-loc-hist-add cmdbuf-loc-hist loc)
- (realgud-fringe-history-set cmdbuf-loc-hist
cmdbuf-local-overlay-arrow?)
- )
-
- ;; FIXME turn into fn. combine with realgud-track-hist-fn-internal
- (if stay-in-cmdbuf?
- (let ((cmd-window (realgud-window-src-undisturb-cmd srcbuf)))
- (with-current-buffer srcbuf
- (if (and (boundp 'realgud-overlay-arrow1)
- (markerp realgud-overlay-arrow1))
- (progn
- ;; Doesn't work
- ;; (if not-selected-frame
- ;; (set-fringe-bitmap-face 'hollow-right-triangle
- ;;
'realgud-overlay-arrow1)
- ;; ; else
- ;; (set-fringe-bitmap-face 'realgud-right-triangle1
- ;; 'realgud-overlay-arrow1)
- ;; )
- (realgud-window-update-position srcbuf
realgud-overlay-arrow1)))
- )
- (if cmd-window (select-window cmd-window)))
- ; else
- (with-current-buffer srcbuf
- (realgud-window-src srcbuf)
- (realgud-window-update-position srcbuf realgud-overlay-arrow1))
- ;; reset 'in-srcbuf' to allow the command buffer to keep point focus
- ;; when used directly. 'in-srcbuf' is set 't' early in the stack
- ;; (prior to common command code, e.g. this) when any command is run
- ;; from a source buffer
- (with-current-buffer cmdbuf
- (realgud-cmdbuf-info-in-srcbuf?= nil))
- )
- ))
- )
-
-(defun realgud-track-loc(text cmd-mark &optional opt-regexp opt-file-group
- opt-line-group no-warn-on-no-match?
- opt-ignore-file-re)
- "Do regular-expression matching to find a file name and line number inside
-string TEXT. If we match, we will turn the result into a realgud-loc struct.
-Otherwise return nil."
-
- ;; NOTE: realgud-cmdbuf-info is a buffer variable local to the process
running
- ;; the debugger. It contains a realgud-cmdbuf-info "struct". In that struct
are
- ;; the fields loc-regexp, file-group, line-group, alt-file-group, and
alt-line-group.
- ;;
- ;; By setting the the fields of realgud-cmdbuf-info appropriately, we
- ;; can accomodate a family of debuggers -- one at a time -- for the
- ;; buffer process.
-
- (unless (realgud:track-complain-if-not-in-cmd-buffer)
- (let
- ((loc-regexp (or opt-regexp
- (realgud-sget 'cmdbuf-info 'loc-regexp)))
- (file-group (or opt-file-group
- (realgud-sget 'cmdbuf-info 'file-group)))
- (line-group (or opt-line-group
- (realgud-sget 'cmdbuf-info 'line-group)))
- (alt-file-group (realgud-sget 'cmdbuf-info 'alt-file-group))
- (alt-line-group (realgud-sget 'cmdbuf-info 'alt-line-group))
- (text-group (realgud-sget 'cmdbuf-info 'text-group))
- (ignore-file-re (or opt-ignore-file-re
- (realgud-sget 'cmdbuf-info 'ignore-file-re)))
- (callback-loc-fn (realgud-sget 'cmdbuf-info 'callback-loc-fn))
- )
- (if loc-regexp
- (if (string-match loc-regexp text)
- (let* ((filename (or (match-string file-group text)
- (match-string alt-file-group text)))
- (line-str (or (match-string line-group text)
- (match-string alt-line-group text)))
- (source-str (and text-group
- (match-string text-group text)))
- (lineno (string-to-number (or line-str "1")))
- (directory
- (cond ((boundp 'starting-directory) starting-directory)
- (t nil)))
- )
- (when source-str
- (setq source-str (ansi-color-filter-apply
- source-str)))
- (cond (callback-loc-fn
- (funcall callback-loc-fn text
- filename lineno source-str
- ignore-file-re cmd-mark))
- ('t
- (unless line-str
- (message "line number not found -- using 1"))
- (if (and filename lineno)
- (realgud:file-loc-from-line filename lineno
- cmd-mark
- source-str nil
- ignore-file-re
- nil
- directory
- )
- ;; else
- nil)))))
- ;; else
- (and (message
- (concat "Buffer variable for regular expression pattern not"
- " given and not passed as a parameter"))
- nil)))
- )
- )
-
-(defun realgud-track-bp-loc(text &optional cmd-mark cmdbuf ignore-file-re)
- "Do regular-expression matching to find a file name and line number inside
-string TEXT. If we match, we will turn the result into a realgud-loc struct.
-Otherwise return nil. CMD-MARK is set in the realgud-loc object created.
-"
-
- ; NOTE: realgud-cmdbuf-info is a buffer variable local to the process
- ; running the debugger. It contains a realgud-cmdbuf-info "struct". In
- ; that struct is the regexp hash to match positions. By setting the
- ; the fields of realgud-cmdbuf-info appropriately we can accomodate a
- ; family of debuggers -- one at a time -- for the buffer process.
-
- (setq cmdbuf (or cmdbuf (current-buffer)))
- (with-current-buffer cmdbuf
- (unless (realgud:track-complain-if-not-in-cmd-buffer cmdbuf t)
- (let* ((loc-pat (realgud-cmdbuf-pat "brkpt-set"))
- (shortkey-mode? (realgud-sget 'cmdbuf-info 'src-shortkey?)))
- (if loc-pat
- (let ((bp-num-group (realgud-loc-pat-num loc-pat))
- (loc-regexp (realgud-loc-pat-regexp loc-pat))
- (file-group (realgud-loc-pat-file-group loc-pat))
- (line-group (realgud-loc-pat-line-group loc-pat))
- (text-group (realgud-loc-pat-text-group loc-pat))
- (ignore-file-re (realgud-loc-pat-ignore-file-re loc-pat))
- (callback-loc-fn (realgud-sget 'cmdbuf-info 'callback-loc-fn))
- )
- (if loc-regexp
- (if (string-match loc-regexp text)
- (let* ((bp-num (match-string bp-num-group text))
- (filename (match-string file-group text))
- (line-str (match-string line-group text))
- (source-str (and text-group (match-string
text-group text)))
- (lineno (string-to-number (or line-str "1")))
- )
- (cond (callback-loc-fn
- (funcall callback-loc-fn text
- filename lineno source-str
- ignore-file-re cmd-mark))
-
- ('t
- (unless line-str
- (message "line number not found -- using 1"))
- (if (and filename lineno)
- (let* ((directory
- (cond ((boundp 'starting-directory)
starting-directory)
- (t nil)))
- (srcbuf)
- (loc-or-error
- (realgud:file-loc-from-line
- filename lineno
- cmd-mark
- source-str
- (string-to-number bp-num)
- ignore-file-re nil directory
- )))
- (if (stringp loc-or-error)
- (progn
- (message loc-or-error)
- ;; set to return nil
- nil)
- ;; else
- (let ((loc loc-or-error)
- (bp-list (realgud-sget
'cmdbuf-info 'bp-list)))
-
- ;; Add src buffer mentioned and set it
possibly to go into shortkey mode
- (setq srcbuf (realgud-loc-goto loc))
- (realgud-cmdbuf-add-srcbuf srcbuf
cmdbuf)
- (realgud-srcbuf-init-or-update srcbuf
cmdbuf)
- (with-current-buffer srcbuf
- (realgud-short-key-mode-setup
- (or realgud-short-key-on-tracing?
shortkey-mode?)
- ))
-
- ;; Add breakpoint to list of
breakpoints
- (with-current-buffer-safe
(marker-buffer (realgud-loc-marker loc))
-
(realgud-bp-add-info loc))
-
- (unless (member loc bp-list)
- (realgud-cmdbuf-info-bp-list= (cons
loc bp-list)))
-
- ;; Set to return location
- loc-or-error))))
- nil))))
- nil))
- nil))
- )
- )
- )
-
-(defun realgud-track-bp-delete(text &optional cmd-mark cmdbuf ignore-file-re)
- "Do regular-expression matching to see if a breakpoint has been
-deleted inside string TEXT. Return a list of breakpoint locations
-of the breakpoints found in command buffer."
-
- ; NOTE: realgud-cmdbuf-info is a buffer variable local to the process
- ; running the debugger. It contains a realgud-cmdbuf-info "struct". In
- ; that struct is the regexp hash to match positions. By setting the
- ; the fields of realgud-cmdbuf-info appropriately we can accomodate a
- ; family of debuggers -- one at a time -- for the buffer process.
-
- (setq cmdbuf (or cmdbuf (current-buffer)))
- (with-current-buffer cmdbuf
- (unless (realgud:track-complain-if-not-in-cmd-buffer cmdbuf t)
- (let* ((loc-pat (realgud-cmdbuf-pat "brkpt-del")))
- (when loc-pat
- (let ((bp-num-group (realgud-loc-pat-num loc-pat))
- (loc-regexp (realgud-loc-pat-regexp loc-pat)))
- (when (and loc-regexp (string-match loc-regexp text))
- (let* ((bp-nums-str (match-string bp-num-group text))
- (bp-num-strs (split-string bp-nums-str "[^0-9]+" t))
- (bp-nums (mapcar #'string-to-number bp-num-strs))
- (info realgud-cmdbuf-info)
- (all-bps (realgud-cmdbuf-info-bp-list info))
- (found-locs nil))
- (dolist (loc all-bps)
- (when (memq (realgud-loc-num loc) bp-nums)
- (push loc found-locs)
- ;; Remove loc from breakpoint list
- (realgud-cmdbuf-info-bp-list=
- (remove loc (realgud-cmdbuf-info-bp-list info)))))
- ;; return the locations
- found-locs))))))))
-
-(defun realgud-track-bp-enable-disable(text loc-pat enable? &optional cmdbuf)
- "Do regular-expression matching see if a breakpoint has been enabled or
disabled inside
-string TEXT. If we match, we will do the action to the breakpoint found and
return the
-breakpoint location. Otherwise return nil.
-"
- (setq cmdbuf (or cmdbuf (current-buffer)))
- (with-current-buffer cmdbuf
- (if (realgud-cmdbuf?)
- (let* ((found-loc nil))
- (if loc-pat
- (let ((bp-num-group (realgud-loc-pat-num loc-pat))
- (loc-regexp (realgud-loc-pat-regexp loc-pat)))
- (if (and loc-regexp (string-match loc-regexp text))
- (let* ((bp-num (string-to-number (match-string bp-num-group
text)))
- (info realgud-cmdbuf-info)
- (bp-list (realgud-cmdbuf-info-bp-list info))
- (loc)
- )
- (while (and (not found-loc) (setq loc (car-safe bp-list)))
- (setq bp-list (cdr bp-list))
- (when (eq (realgud-loc-num loc) bp-num)
- (setq found-loc loc)
- (let ((src-buffer (realgud-loc-goto loc)))
- (realgud-cmdbuf-add-srcbuf src-buffer cmdbuf)
- (with-current-buffer src-buffer
- (realgud-bp-enable-disable-info bp-num enable?
loc src-buffer)
- )))
- )
- ;; return the location:
- found-loc)
- nil))
- nil))
- (and (message "Current buffer %s is not a debugger command buffer"
- (current-buffer)) nil)
- )
- )
-)
-
-(defun realgud-track-loc-remaining(text)
- "Return the portion of TEXT starting with the part after the
-loc-regexp pattern"
- (if (realgud-cmdbuf?)
- (let* ((loc-pat (realgud-cmdbuf-pat "loc"))
- (loc-regexp (realgud-loc-pat-regexp loc-pat))
- )
- (if loc-regexp
- (if (string-match loc-regexp text)
- (substring text (match-end 0))
- nil)
- nil))
- nil)
- )
-
-(defun realgud-track-selected-frame(text)
- "Return a selected frame number found in TEXT or nil if none found."
- (if (realgud-cmdbuf?)
- (let ((selected-frame-pat (realgud-cmdbuf-pat "selected-frame"))
- (frame-num-regexp)
- )
- (if (and selected-frame-pat
- (setq frame-num-regexp (realgud-loc-pat-regexp
- selected-frame-pat)))
- (if (string-match frame-num-regexp text)
- (let ((frame-num-group (realgud-loc-pat-num
selected-frame-pat)))
- (string-to-number (match-string frame-num-group text)))
- nil)
- nil))
- nil)
- )
-
-
-(defun realgud-track-loc-from-selected-frame(text cmd-mark &optional
- opt-regexp opt-ignore-file-re)
- "Return a selected frame number found in TEXT or nil if none found."
- (if (realgud-cmdbuf?)
- (let ((selected-frame-pat (realgud-cmdbuf-pat "selected-frame"))
- (frame-num-regexp)
- (ignore-file-re (or opt-ignore-file-re
- (realgud-sget 'cmdbuf-info 'ignore-file-re))))
- (if (and selected-frame-pat
- (setq frame-num-regexp (realgud-loc-pat-regexp
- selected-frame-pat)))
- (if (string-match frame-num-regexp text)
- (let* ((file-group (realgud-loc-pat-file-group
selected-frame-pat))
- (line-group (realgud-loc-pat-line-group
selected-frame-pat))
- (filename (match-string file-group text))
- (lineno (string-to-number (match-string line-group
text))))
- (if (and filename lineno)
- (realgud:file-loc-from-line filename lineno
- cmd-mark nil nil
ignore-file-re)
- nil))
- nil)
- nil))
- nil))
-
-(defun realgud-track-termination?(text)
- "Return 't and call `realgud:terminate' we we have a termination message"
- (if (realgud-cmdbuf?)
- (let ((termination-re (realgud-cmdbuf-pat "termination"))
- )
- (if (and termination-re (string-match termination-re text))
- (progn
- (realgud:terminate (current-buffer))
- 't)
- nil)
- )
- )
- )
-
-(defun realgud-track-divert-prompt(text cmdbuf to)
- "Return a cons node of the part before the prompt-regexp and the part
- after the prompt-regexp-prompt. If not found return nil."
- (with-current-buffer cmdbuf
- ;; (message "+++3 %s, buf: %s" text (buffer-name))
- (if (realgud-cmdbuf?)
- (let* ((prompt-pat (realgud-cmdbuf-pat "prompt"))
- (prompt-regexp (realgud-loc-pat-regexp prompt-pat))
- )
- (if prompt-regexp
- (if (string-match prompt-regexp text)
- (progn
- (setq realgud-track-divert-string
- (substring text 0 (match-beginning 0)))
- ;; We've got desired output, so reset divert output.
- (realgud-cmdbuf-info-divert-output?= nil)
- (cond ((search-backward-regexp prompt-regexp)
- (kill-region realgud-last-output-start (point))
- (goto-char (point-max)))
- ('t (kill-region realgud-last-output-start to)))
- )
- ))
- )
- )
- )
- )
-
-(defun realgud-goto-line-for-loc-pat (pt &optional opt-realgud-loc-pat)
- "Display the location mentioned in line described by
-PT. OPT-REALGUD-LOC-PAT is used to get regular-expresion pattern
-matching information. If not supplied we use the current buffer's \"location\"
-pattern found via realgud-cmdbuf information. nil is returned if we can't
-find a location. non-nil if we can find a location.
-"
- (interactive "d")
- (save-excursion
- (goto-char pt)
- (let*
- ((cmdbuf (current-buffer))
- (cmd-mark (point-marker))
- (curr-proc (get-buffer-process cmdbuf))
- (start (line-beginning-position))
- (end (line-end-position))
- (loc-pat (or opt-realgud-loc-pat (realgud-cmdbuf-pat "loc")))
- (loc)
- )
- (unless (and loc-pat (realgud-loc-pat-p loc-pat))
- (error "Can't find location information for %s" cmdbuf))
- (setq loc (realgud-track-loc (buffer-substring-no-properties start end)
- cmd-mark
- (realgud-loc-pat-regexp loc-pat)
- (realgud-loc-pat-file-group loc-pat)
- (realgud-loc-pat-line-group loc-pat)
- nil
- (realgud-loc-pat-ignore-file-re loc-pat)
- ))
- (if (stringp loc)
- (message loc)
- (if loc (or (realgud-track-loc-action loc cmdbuf) 't)
- nil))
- ))
- )
-
-(defun realgud:populate-command-hash(key value)
- "Adds a KEY and VALUE to the realgud-command-name-hash the command name to a
debugger specific command."
- (puthash key
- (replace-regexp-in-string "%.*" "" (car (split-string value " ")))
- realgud-command-name-hash))
-
-(defun realgud-set-command-name-hash-to-buffer-local (command-hash)
- "Sets the eval string as a buffer local variable from the COMMAND-HASH."
- (set (make-local-variable 'realgud-command-name-hash) (make-hash-table :test
'equal))
- (maphash 'realgud:populate-command-hash command-hash))
-
-(defun realgud:track-set-debugger (debugger-name)
- "Set debugger name and information associated with that
-debugger for the buffer process. This info is returned or nil if
-we can't find a debugger with that information.`.
-"
- ;; FIXME: turn into fn which can be used by realgud-backtrack-set-debugger
- (interactive
- (list (completing-read "Debugger name: " realgud-pat-hash)))
- (let* ((base-variable-name
- (or (gethash debugger-name realgud:variable-basename-hash)
- debugger-name))
- (regexp-hash (gethash debugger-name realgud-pat-hash))
- (command-hash (gethash debugger-name realgud-command-hash))
- )
- (unless regexp-hash
- ;; FIXME: phase out realgud:debugger-name-transform
- (setq base-variable-name (realgud:debugger-name-transform debugger-name))
- (setq regexp-hash (gethash base-variable-name realgud-pat-hash))
- (setq command-hash (gethash base-variable-name realgud-command-hash))
- )
-
- (realgud-set-command-name-hash-to-buffer-local command-hash)
-
- (if regexp-hash
- (let* (
- (mode-name (concat " " (capitalize base-variable-name) "-Track"))
- (specific-track-mode (intern (concat base-variable-name
"-track-mode")))
- )
- (realgud-cmdbuf-init (current-buffer)
- debugger-name regexp-hash
- command-hash base-variable-name)
- (if (and (not (eval specific-track-mode))
- (functionp specific-track-mode))
- (funcall specific-track-mode 't))
- )
- (progn
- (message "I don't have %s listed as a debugger." debugger-name)
- nil)
- )))
-
-;; FIXME: need better name for this and next fn.
-(defun realgud-goto-line-for-pt-and-type (pt type pat-hash)
- "Position the source code at the location that is matched by
-PAT-HASH with key TYPE. The line at PT is used as the string
-to match against and has location info embedded in it"
- (realgud-goto-line-for-loc-pat pt (gethash type pat-hash)))
-
-
-(defun realgud-goto-line-for-pt (pt pattern-key)
- "Position the source code at the location indicated by a
-pattern found in the command buffer with pattern-key
-PATTERN-KEY. (PATTERN-KEY is something like 'debugger-backtrace'
-or 'loc'.) The line at PT is used as the string to match against
-and has location info embedded in it"
- (interactive "d")
- (unless (realgud-cmdbuf?)
- (error "You need to be in a debugger command buffer to run this"))
- (let* ((debugger-name (realgud-cmdbuf-debugger-name))
- (debugger-pat-hash (gethash debugger-name realgud-pat-hash)))
- (realgud-goto-line-for-pt-and-type pt pattern-key debugger-pat-hash)
- )
- )
-
-(defun realgud:goto-debugger-backtrace-line (pt)
- "Position the source code at the location indicated by matching a
-command buffer's debugger backtrace pattern against the line at PT."
- (interactive "d")
- (unless (realgud-goto-line-for-pt pt "debugger-backtrace")
- (message "Line didn't match a debugger backtrace location.")
- ))
-
-(defun realgud:goto-lang-backtrace-line (pt)
- "Position the source code at the location indicated by matching a
-command buffer's programming-language backtrace pattern against the line at
PT."
- (interactive "d")
- (unless (realgud-goto-line-for-pt pt "lang-backtrace")
- (message "Line didn't match a programming-language backtrace location.")
- ))
-
-(defun realgud:goto-debugger-loc-line (pt)
- "Position the source-code at the location indicated by matching a
-command buffer's debugger location pattern against the line at PT."
- (interactive "d")
- (unless (realgud-goto-line-for-pt pt "loc")
- (message "Line didn't match a debugger location indicator line.")
- ))
-
-(provide-me "realgud-")
-
-;; Local Variables:
-;; byte-compile-warnings: (not cl-functions)
-;; End:
diff --git a/packages/realgud/realgud/common/utils.el
b/packages/realgud/realgud/common/utils.el
deleted file mode 100644
index 9a6d8d3..0000000
--- a/packages/realgud/realgud/common/utils.el
+++ /dev/null
@@ -1,67 +0,0 @@
-;; Copyright (C) 2016-2017 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-(require 'load-relative)
-(require 'comint)
-(require 'eshell)
-
-(defun realgud:strip (str)
- "Remove leading and tailing whitespace from STR."
- (while (string-match "\\`\n+\\|^\\s-+\\|\\s-+$\\|\n+\\'"
- str)
- (setq str (replace-match "" t t str)))
- str)
-
-;; From http://rosettacode.org/wiki/Flatten_a_list#Emacs_Lisp
-(defun realgud:flatten (mylist)
- (cond
- ((null mylist) nil)
- ((atom mylist) (list mylist))
- (t
- (append (realgud:flatten (car mylist)) (realgud:flatten (cdr mylist))))))
-
-(if (or (< emacs-major-version 24)
- (and (= emacs-major-version 24) (<= emacs-minor-version 3)))
- ;; From
- ;;
https://stackoverflow.com/questions/12999530/is-there-a-function-that-joins-a-string-into-a-delimited-string
- (defun realgud:join-string (list joiner)
- (mapconcat 'identity list joiner))
- (progn
- (require 'subr-x)
- (defalias 'realgud:join-string 'string-join)))
-
-(defun realgud:canonic-major-mode()
- "Return
- - 'eshell if we are in eshell-mode,
- - 'comint if the major comint-mode or shell-mode
-Or raise an error if neither."
-
- (cond ((eq major-mode 'eshell-mode)
- 'eshell)
- ((or (eq major-mode 'comint-mode) (eq major-mode 'shell-mode))
- 'comint)
- ('t (error "We can only handle comint, shell, or eshell buffers"))
- ))
-
-(defun realgud:remove-ansi-schmutz()
- "Remove ASCII escape sequences that node.js 'decorates' in
-prompts and interactive output with"
- (interactive "")
- (add-to-list
- 'comint-preoutput-filter-functions
- (lambda (output)
- (replace-regexp-in-string "\033\\[[0-9]*[GKJhl]" "" output)))
- )
-
-
-(provide-me "realgud-")
diff --git a/packages/realgud/realgud/common/window.el
b/packages/realgud/realgud/common/window.el
deleted file mode 100644
index e922094..0000000
--- a/packages/realgud/realgud/common/window.el
+++ /dev/null
@@ -1,180 +0,0 @@
-;; Copyright (C) 2010, 2014-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-(require 'load-relative)
-(require-relative-list '("helper") "realgud-")
-(require-relative-list '("buffer/helper") "realgud-buffer-")
-
-(declare-function realgud:backtrace-init 'realgud-buffer-helper)
-(declare-function realgud-get-backtrace-buf 'realgud-buffer-helper)
-(declare-function realgud-get-cmdbuf 'realgud-buffer-helper)
-(declare-function realgud-get-srcbuf 'realgud-buffer-helper)
-(declare-function buffer-killed? 'realgud-helper)
-
-(declare-function one-window-p(bool))
-
-(defun realgud-window-update-position (buffer marker)
- "Update BUFFER to position specified with MARKER.
-We assume MARKER points inside BUFFER"
- (with-current-buffer buffer
- (goto-char marker)
- (let ((window (get-buffer-window buffer)))
- (if window (set-window-point window marker))
- )))
-
-
-(defun realgud-window-src ( &optional opt-buffer )
- "Make sure the source buffer is displayed in a window
-We don't care if the command buffer is also displayed.
-See also `realgud-window-src-undisturb-cmd'"
- (let* ((buffer (or opt-buffer (current-buffer)))
- (src-buffer (realgud-get-srcbuf buffer))
- (src-window (get-buffer-window src-buffer 'visible))
- (window (selected-window)))
- (if src-buffer
- (unless (and src-window (not (window-minibuffer-p)))
- (set-window-buffer window src-buffer))
- )
- ))
-
-(defun realgud-window-src-undisturb-cmd ( &optional opt-buffer )
- "Make sure the source buffers is displayed in windows without
-disturbing the command window if it is also displayed. Returns
-the command window
-See also `realgud-window-src'"
- (interactive)
- (let* ((buffer (or opt-buffer (current-buffer)))
- (src-buffer (realgud-get-srcbuf buffer))
- (src-window (get-buffer-window src-buffer))
- (cmd-buffer (realgud-get-cmdbuf buffer))
- (cmd-window (get-buffer-window cmd-buffer))
- (window (selected-window))
- )
- (if src-buffer
- (unless src-window
- (setq src-window
- (if (eq window cmd-window)
- ;; FIXME: generalize what to do here.
- (if (one-window-p 't)
- (split-window)
- (next-window window 'no-minibuf))
- window))
- (set-window-buffer src-window src-buffer))
- )
- (select-window src-window)
- cmd-window)
- )
-
-(defun realgud-window-cmd-undisturb-src ( &optional opt-buffer switch?)
- "Make sure the source buffer is displayed in windows without
-disturbing the command window if it is also displayed. Returns
-the source window.
-See also `realgud-window-src'"
- (interactive)
- (let* ((buffer (or opt-buffer (current-buffer)))
- (src-buffer (realgud-get-srcbuf buffer))
- (src-window (get-buffer-window src-buffer))
- (cmd-buffer (realgud-get-cmdbuf buffer))
- (cmd-window (get-buffer-window cmd-buffer))
- (window (selected-window))
- )
- (when cmd-buffer
- (unless cmd-window
- (setq cmd-window
- (if (eq window src-window)
- ;; FIXME: generalize what to do here.
- (if (one-window-p 't)
- (split-window)
- (next-window window 'no-minibuf))
- window))
- (set-window-buffer cmd-window cmd-buffer)
- )
- (if switch?
- (and (select-window cmd-window)
- (switch-to-buffer cmd-buffer)))
-
- )
- (select-window cmd-window)
- src-window)
- )
-
-(defun realgud:window-bt-undisturb-src ( &optional opt-buffer switch?)
- "Make sure the backtrace buffer is displayed in windows without
-disturbing the source window if it is also displayed. Returns
-the source window
-See also `realgud-window-src'"
- (interactive)
- (let* ((buffer (or opt-buffer (current-buffer)))
- (src-buffer (realgud-get-srcbuf buffer))
- (src-window (get-buffer-window src-buffer))
- (cmd-buffer (realgud-get-cmdbuf buffer))
- (cmd-window (get-buffer-window cmd-buffer))
- (bt-buffer (realgud-get-backtrace-buf cmd-buffer))
- (bt-window (get-buffer-window bt-buffer))
- (window (selected-window))
- )
- (when cmd-buffer
- (unless bt-window
- (setq bt-window
- (if (eq window src-window)
- ;; FIXME: generalize what to do here.
- (if (one-window-p 't)
- (split-window)
- (next-window window 'no-minibuf))
- window))
- (set-window-buffer bt-window bt-buffer)
- )
- (if switch?
- (and (select-window bt-window)
- (switch-to-buffer bt-buffer)))
-
- )
- src-window)
- )
-
-(defun realgud:window-bt()
- "Refresh backtrace information and display that in a buffer"
- (interactive)
- (with-current-buffer-safe (realgud-get-cmdbuf)
- (realgud:backtrace-init)
- (realgud:window-bt-undisturb-src)
- )
- )
-
-
-;; (defun realgud-window-src-and-cmd ( &optional opt-buffer )
-;; "Make sure the source buffers is displayed in windows without
-;; disturbing the command window if it is also displayed. Returns
-;; the command window
-;; See also `realgud-window-src-window'"
-;; (interactive)
-;; (let* ((buffer (or opt-buffer (current-buffer)))
-;; (src-buffer (realgud-get-srcbuf buffer))
-;; (src-window (get-buffer-window src-buffer))
-;; (cmd-buffer (realgud-get-cmdbuf buffer))
-;; (cmd-window (get-buffer-window cmd-buffer))
-;; (window (selected-window))
-;; )
-;; (if src-buffer
-;; (unless src-window
-;; (setq src-window
-;; (if (eq window cmd-window)
-;; (if (one-window-p 't) (split-window) (next-window window))
-;; window))
-;; (set-window-buffer src-window src-buffer))
-;; )
-;; cmd-window)
-;; )
-
-(provide-me "realgud-")
diff --git a/packages/realgud/realgud/debugger/Makefile.am
b/packages/realgud/realgud/debugger/Makefile.am
deleted file mode 100644
index 5f7a769..0000000
--- a/packages/realgud/realgud/debugger/Makefile.am
+++ /dev/null
@@ -1,8 +0,0 @@
-SUBDIRS = \
- bashdb gdb gub ipdb jdb kshdb nodejs \
- pdb perldb rdebug remake \
- trepan trepan2 trepan3k trepan.pl trepanjs \
- zshdb
-EXTRA_DIST = common.mk
-
-.PHONY: check all
diff --git a/packages/realgud/realgud/debugger/bashdb/Makefile.am
b/packages/realgud/realgud/debugger/bashdb/Makefile.am
deleted file mode 100644
index e6c68b4..0000000
--- a/packages/realgud/realgud/debugger/bashdb/Makefile.am
+++ /dev/null
@@ -1,5 +0,0 @@
-include ../common.mk
-
-lisp_files = $(wildcard *.el)
-lisp_LISP = $(lisp_files)
-EXTRA_DIST = $(lisp_files)
diff --git a/packages/realgud/realgud/debugger/bashdb/bashdb.el
b/packages/realgud/realgud/debugger/bashdb/bashdb.el
deleted file mode 100644
index 9853b01..0000000
--- a/packages/realgud/realgud/debugger/bashdb/bashdb.el
+++ /dev/null
@@ -1,108 +0,0 @@
-;; Copyright (C) 2015-2016, 2018 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-;; `bashdb' Main interface to bashdb via Emacs
-(require 'load-relative)
-(require-relative-list '("../../common/helper") "realgud-")
-(require-relative-list '("../../common/run") "realgud:")
-(require-relative-list '("core" "track-mode") "realgud:bashdb-")
-
-;; This is needed, or at least the docstring part of it is needed to
-;; get the customization menu to work in Emacs 24.
-(defgroup realgud:bashdb nil
- "The realgud interface to bashdb"
- :group 'realgud
- :version "24.3")
-
-;; -------------------------------------------------------------------
-;; User-definable variables
-;;
-
-(defcustom realgud:bashdb-command-name
- ;;"bashdb --emacs 3"
- "bashdb"
- "File name for executing the bash debugger and command options.
-This should be an executable on your path, or an absolute file name."
- :type 'string
- :group 'realgud:bashdb)
-
-;; -------------------------------------------------------------------
-;; The end.
-;;
-
-(declare-function bashdb-track-mode 'realgud-bashdb-track-mode)
-(declare-function bashdb-query-cmdline 'realgud:bashdb-core)
-(declare-function bashdb-parse-cmd-args 'realgud:bashdb-core)
-(declare-function realgud:run-debugger 'realgud:run)
-
-;;;###autoload
-(defun realgud:bashdb (&optional opt-cmd-line no-reset)
- "Invoke the bashdb shell debugger and start the Emacs user interface.
-
-String OPT-CMD-LINE specifies how to run bash. You will be prompted
-for a command line is one isn't supplied.
-
-OPT-CMD-LINE is treated like a shell string; arguments are
-tokenized by `split-string-and-unquote'. The tokenized string is
-parsed by `bashdb-parse-cmd-args' and path elements found by that
-are expanded using `realgud:expand-file-name-if-exists'.
-
-Normally, command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset. See `loc-changes-clear-buffer' to clear
-fringe and marginal icons.
-"
- (interactive)
- (realgud:run-debugger "bashdb"
- 'bashdb-query-cmdline
- 'bashdb-parse-cmd-args
- 'realgud:bashdb-minibuffer-history
- opt-cmd-line no-reset)
- )
-
-(defun realgud:bashdb-large (&optional opt-cmd-line no-reset)
- "Use this is the program you are debugging is large, say over 1,000 lines or
so.
-"
- (interactive)
- (let ((cmd-buf
- (realgud:run-debugger "bashdb"
- 'bashdb-query-cmdline
- 'bashdb-parse-cmd-args
- 'realgud:bashdb-minibuffer-history
- opt-cmd-line no-reset)
- ))
- (if cmd-buf
- (let ((process (get-buffer-process cmd-buf)))
- (if (and process (eq 'run (process-status process)))
- (with-current-buffer cmd-buf
- (sleep-for 1)
- (realgud-command "frame 0" nil nil nil)
- )))
- )
- ))
-
-
-;;;###autoload
-(defalias 'bashdb 'realgud:bashdb)
-
-;;;###autoload
-(defalias 'bashdb-large 'realgud:bashdb-large)
-
-(provide-me "realgud-")
diff --git a/packages/realgud/realgud/debugger/bashdb/core.el
b/packages/realgud/realgud/debugger/bashdb/core.el
deleted file mode 100644
index 155b09b..0000000
--- a/packages/realgud/realgud/debugger/bashdb/core.el
+++ /dev/null
@@ -1,197 +0,0 @@
-;; Copyright (C) 2015-2017 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-(require 'load-relative)
-(require-relative-list '("../../common/track" "../../common/core")
- "realgud-")
-(require-relative-list '("init") "realgud:bashdb-")
-
-(declare-function realgud:expand-file-name-if-exists 'realgud-core)
-(declare-function realgud-parse-command-arg 'realgud-core)
-(declare-function realgud-query-cmdline 'realgud-core)
-(declare-function realgud-suggest-invocation 'realgud-core)
-
-;; FIXME: I think the following could be generalized and moved to
-;; realgud-... probably via a macro.
-(defvar realgud:bashdb-minibuffer-history nil
- "minibuffer history list for the command `realgud:bashdb'.")
-
-(easy-mmode-defmap bashdb-minibuffer-local-map
- '(("\C-i" . comint-dynamic-complete-filename))
- "Keymap for minibuffer prompting of bashdb startup command."
- :inherit minibuffer-local-map)
-
-;; FIXME: I think this code and the keymaps and history
-;; variable chould be generalized, perhaps via a macro.
-(defun bashdb-query-cmdline (&optional opt-debugger)
- (realgud-query-cmdline
- 'bashdb-suggest-invocation
- bashdb-minibuffer-local-map
- 'realgud:bashdb-minibuffer-history
- opt-debugger))
-
-;;; FIXME: DRY this with other *-parse-cmd-args routines
-(defun bashdb-parse-cmd-args (orig-args)
- "Parse command line ORIG-ARGS for the annotate level and name of script to
debug.
-
-ORIG-ARGS should contain a tokenized list of the command line to run.
-
-We return the a list containing:
-* the command processor (e.g. bash) and it's arguments if any - a list of
strings
-* the name of the debugger given (e.g. bashdb) and its arguments - a list of
strings
-* the script name and its arguments - list of strings
-* whether the annotate or emacs option was given ('-A', '--annotate' or
'--emacs) - a boolean
-
-The script name and options mentioning paths are file expanded
-
-For example for the following input
- (map 'list 'symbol-name
- '(bash --norc bashdb -l . --emacs ./gcd.sh a b))
-
-we might return:
- ((\"bash\" \"--norc\") (\"bashdb\" \"-l\" \"/tmp\" \"--emacs\")
(\"/tmp/gcd.sh\" \"a\" \"b\") t)
-
-Note that path elements have been expanded via
`realgud:expand-file-name-if-exists'.
-"
-
- ;; Parse the following kind of pattern:
- ;; [bash bash-options] bashdb bashdb-options script-name script-options
- (let (
- (args orig-args)
- (pair) ;; temp return from
- ;; bash doesn't have any optional two-arg options
- (bash-opt-two-args '())
- (bash-two-args '("o" "c"))
-
- ;; One dash is added automatically to the below, so
- ;; h is really -h and -host is really --host.
- (bashdb-two-args '("A" "-annotate" "l" "-library"
- "c" "-command" "-t" "-tty"
- "x" "-eval-command"))
- (bashdb-opt-two-args '())
- (interp-regexp
- (if (member system-type (list 'windows-nt 'cygwin 'msdos))
- "^bash*\\(.exe\\)?$"
- "^bash*$"))
- (bashdb-two-arg-name)
- (debugger-flag nil) ;; 't if "bash --debugger" given
-
- ;; Things returned
- (script-name nil)
- (debugger-name nil)
- (interpreter-args '())
- (debugger-args '())
- (script-args '())
- (annotate-p nil))
-
- (if (not (and args))
- ;; Got nothing: return '(nil, nil)
- (list interpreter-args debugger-args script-args annotate-p)
- ;; else
- ;; Strip off optional "bash" or "bash4" etc.
- (when (string-match interp-regexp
- (file-name-sans-extension
- (file-name-nondirectory (car args))))
- (setq interpreter-args (list (pop args)))
-
- ;; Strip off bash-specific options
- (while (and args
- (string-match "^-" (car args)))
- (setq pair (realgud-parse-command-arg
- args bash-two-args bash-opt-two-args))
- (if (equal "--debugger" (caar pair))
- (setq debugger-flag 't))
- (nconc interpreter-args (car pair))
- (setq args (cadr pair))))
-
- ;; Remove "bashdb" from "bashdb --bashdb-options script
- ;; --script-options"
- (unless debugger-flag
- (setq debugger-name (file-name-sans-extension
- (file-name-nondirectory (car args))))
- (unless (string-match "^bashdb$" debugger-name)
- (message
- "Expecting debugger name `%s' to be `bashdb'"
- debugger-name))
- (setq debugger-args (list (pop args)))
- )
-
- ;; Skip to the first non-option argument.
- (while (and args (not script-name))
- (let ((arg (car args)))
- (cond
- ;; Annotation or emacs option with level number.
- ((member arg '("--annotate" "-A" "--emacs"))
- (setq annotate-p t)
- (nconc debugger-args (list (pop args))))
- ;; Combined annotation and level option.
- ((string-match "^--annotate=[0-9]" arg)
- (nconc debugger-args (list (pop args)) )
- (setq annotate-p t))
- ;; Library option
- ((member arg '("--library" "-l"))
- (setq arg (pop args))
- (nconc debugger-args
- (list arg (realgud:expand-file-name-if-exists
- (pop args)))))
- ;; Other options with arguments.
- ((string-match "^-" arg)
- (setq pair (realgud-parse-command-arg
- args bashdb-two-args bashdb-opt-two-args))
- (nconc debugger-args (car pair))
- (setq args (cadr pair)))
- ;; Anything else must be the script to debug.
- (t (setq script-name (realgud:expand-file-name-if-exists arg))
- (setq script-args (cons script-name (cdr args))))
- )))
- (list interpreter-args debugger-args script-args annotate-p))))
-
-;; To silence Warning: reference to free variable
-(defvar realgud:bashdb-command-name)
-
-(defun bashdb-suggest-invocation (debugger-name)
- "Suggest a bashdb command invocation via `realgud-suggest-invocaton'"
- (realgud-suggest-invocation (or debugger-name realgud:bashdb-command-name)
- realgud:bashdb-minibuffer-history
- "sh" "\\.\\(?:ba\\)?sh$"
- realgud:bashdb-command-name))
-
-(defun bashdb-reset ()
- "Bashdb cleanup - remove debugger's internal buffers (frame,
-breakpoints, etc.)."
- (interactive)
- ;; (bashdb-breakpoint-remove-all-icons)
- (dolist (buffer (buffer-list))
- (when (string-match "\\*bashdb-[a-z]+\\*" (buffer-name buffer))
- (let ((w (get-buffer-window buffer)))
- (when w
- (delete-window w)))
- (kill-buffer buffer))))
-
-;; (defun bashdb-reset-keymaps()
-;; "This unbinds the special debugger keys of the source buffers."
-;; (interactive)
-;; (setcdr (assq 'bashdb-debugger-support-minor-mode minor-mode-map-alist)
-;; bashdb-debugger-support-minor-mode-map-when-deactive))
-
-
-(defun realgud:bashdb-customize ()
- "Use `customize' to edit the settings of the `bashdb' debugger."
- (interactive)
- (customize-group 'realgud:bashdb))
-
-(provide-me "realgud:bashdb-")
diff --git a/packages/realgud/realgud/debugger/bashdb/init.el
b/packages/realgud/realgud/debugger/bashdb/init.el
deleted file mode 100644
index e527b2d..0000000
--- a/packages/realgud/realgud/debugger/bashdb/init.el
+++ /dev/null
@@ -1,110 +0,0 @@
-;; Copyright (C) 2015-2017 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-;; Regular expressions for Bash shell debugger: bashdb
-
-(eval-when-compile (require 'cl-lib)) ;For setf.
-(require 'load-relative)
-(require-relative-list '("../../common/regexp"
- "../../common/loc"
- "../../common/init")
- "realgud-")
-(require-relative-list '("../../lang/posix-shell") "realgud-lang-")
-
-(defvar realgud:bashdb-pat-hash)
-(declare-function make-realgud-loc-pat (realgud-loc))
-
-(defvar realgud:bashdb-pat-hash (make-hash-table :test 'equal)
- "Hash key is the what kind of pattern we want to match:
-backtrace, prompt, etc. The values of a hash entry is a
-realgud-loc-pat struct")
-
-;; Regular expression that describes a bashdb location generally shown
-;; before a command prompt.
-;; For example:
-;; (/etc/init.d/apparmor:35):
-(setf (gethash "loc" realgud:bashdb-pat-hash) realgud:POSIX-debugger-loc-pat)
-
-;; Top frame number
-(setf (gethash "top-frame-num" realgud:bashdb-pat-hash) 0)
-
-;; Regular expression that describes a bashdb command prompt
-;; For example:
-;; bashdb<10>
-;; bashdb<(5)>
-;; bashdb<<1>>
-(setf (gethash "prompt" realgud:bashdb-pat-hash)
- (make-realgud-loc-pat
- :regexp (format "^bashdb[<]+[(]*%s[)]*[>]+ "
- realgud:regexp-captured-num)
- :num 1
- ))
-
-;; realgud-loc-pat that describes a "breakpoint set" line
-(setf (gethash "brkpt-set" realgud:bashdb-pat-hash)
- realgud:POSIX-debugger-brkpt-set-pat)
-
-;; realgud-loc-pat that describes a debugger "delete" (breakpoint) response.
-;; For example:
-;; Deleted breakpoint 1.
-(setf (gethash "brkpt-del" realgud:bashdb-pat-hash)
- realgud:POSIX-debugger-brkpt-del-pat)
-
-;; realgud-loc-pat that describes a debugger "disable" (breakpoint) response.
-;; For example:
-;; Breakpoint entry 4 disabled.
-(setf (gethash "brkpt-disable" realgud:bashdb-pat-hash)
- realgud:POSIX-debugger-brkpt-disable-pat)
-
-;; realgud-loc-pat that describes a debugger "enable" (breakpoint) response.
-;; For example:
-;; Breakpoint entry 4 enabled.
-(setf (gethash "brkpt-enable" realgud:bashdb-pat-hash)
- realgud:POSIX-debugger-brkpt-enable-pat)
-
-;; realgud-loc-pat that describes a debugger "backtrace" command line.
-;; For example:
-;; ->0 in file `../bashdb/test/example/subshell.sh' at line 6
-;; ##1 source("../bashdb/shell.sh") called from file `/bin/bashdb' at line
140
-;; ##2 main() called from file `/bin/bashdb' at line 0
-(setf (gethash "debugger-backtrace" realgud:bashdb-pat-hash)
- realgud:POSIX-debugger-backtrace-pat)
-
-;; realgud-loc-pat for a termination message.
-(setf (gethash "termination" realgud:bashdb-pat-hash)
- "^bashdb: That's all, folks...\n")
-
-(setf (gethash "font-lock-keywords" realgud:bashdb-pat-hash)
- realgud:POSIX-debugger-font-lock-keywords)
-
-(setf (gethash "bashdb" realgud-pat-hash) realgud:bashdb-pat-hash)
-
-(defvar realgud:bashdb-command-hash (make-hash-table :test 'equal)
- "Hash key is command name like 'quit' and the value is
- the bashdb command to use, like 'quit!'")
-
-(setf (gethash "bashdb" realgud-command-hash) realgud:bashdb-command-hash)
-
-(setf (gethash "clear" realgud:bashdb-command-hash) "clear %l")
-(setf (gethash "eval" realgud:bashdb-command-hash) "eval %s")
-(setf (gethash "quit" realgud:bashdb-command-hash) "quit")
-(setf (gethash "until" realgud:bashdb-command-hash) "continue %l")
-
-;; Unsupported features:
-(setf (gethash "jump" realgud:bashdb-command-hash) "*not-implemented*")
-
-(provide-me "realgud:bashdb-")
diff --git a/packages/realgud/realgud/debugger/bashdb/track-mode.el
b/packages/realgud/realgud/debugger/bashdb/track-mode.el
deleted file mode 100644
index d01d6c7..0000000
--- a/packages/realgud/realgud/debugger/bashdb/track-mode.el
+++ /dev/null
@@ -1,73 +0,0 @@
-;; Copyright (C) 2012-2016 Free Software Foundation, Inc
-
-;; Author: Free Software Foundation, Inc
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; Bash Debugger tracking in a comint or eshell buffer.
-
-(require 'load-relative)
-(require-relative-list '(
- "../../common/cmds"
- "../../common/menu"
- "../../common/track"
- "../../common/track-mode"
- )
- "realgud-")
-(require-relative-list '("core" "init") "realgud:bashdb-")
-(require-relative "../../lang/posix-shell" nil "realgud-lang-")
-
-(declare-function realgud-track-mode 'realgud-track-mode)
-(declare-function realgud-track-mode-hook 'realgud-track-mode)
-(declare-function realgud-track-mode-setup 'realgud-track-mode)
-(declare-function realgud:track-set-debugger 'realgud-track-mode)
-(declare-function realgud-posix-shell-populate-command-keys
- 'realgud-lang-posix-shell)
-
-(realgud-track-mode-vars "bashdb")
-
-(defun bashdb-track-mode-hook()
- (if bashdb-track-mode
- (progn
- (use-local-map bashdb-track-mode-map)
- (message "using bashdb mode map")
- )
- (message "bashdb track-mode-hook disable called"))
-)
-
-(define-minor-mode bashdb-track-mode
- "Minor mode for tracking bashdb source locations inside a process shell via
realgud. bashdb is a Bash debugger. See URL `http://bashdb.sf.net'.
-
-If called interactively with no prefix argument, the mode is toggled. A prefix
argument, captured as ARG, enables the mode if the argument is positive, and
disables it otherwise.
-
-\\{bashdb-track-mode-map}"
- :init-value nil
- ;; :lighter " bashdb" ;; mode-line indicator from realgud-track is
sufficient.
- ;; The minor mode bindings.
- :global nil
- :group 'realgud:bashdb
- :keymap bashdb-track-mode-map
-
- (realgud:track-set-debugger "bashdb")
- (if bashdb-track-mode
- (progn
- (realgud-track-mode-setup 't)
- (bashdb-track-mode-hook))
- (progn
- (setq realgud-track-mode nil)
- ))
-)
-
-(define-key bashdb-short-key-mode-map "T" 'realgud:cmd-backtrace)
-
-(provide-me "realgud:bashdb-")
diff --git a/packages/realgud/realgud/debugger/common.mk
b/packages/realgud/realgud/debugger/common.mk
deleted file mode 100644
index b09deeb..0000000
--- a/packages/realgud/realgud/debugger/common.mk
+++ /dev/null
@@ -1,3 +0,0 @@
-include $(top_srcdir)/common.mk
-
-lispdir = @lispdir_realgud@/debugger/$(notdir $(subdir))
diff --git a/packages/realgud/realgud/debugger/gdb/Makefile.am
b/packages/realgud/realgud/debugger/gdb/Makefile.am
deleted file mode 100644
index e6c68b4..0000000
--- a/packages/realgud/realgud/debugger/gdb/Makefile.am
+++ /dev/null
@@ -1,5 +0,0 @@
-include ../common.mk
-
-lisp_files = $(wildcard *.el)
-lisp_LISP = $(lisp_files)
-EXTRA_DIST = $(lisp_files)
diff --git a/packages/realgud/realgud/debugger/gdb/core.el
b/packages/realgud/realgud/debugger/gdb/core.el
deleted file mode 100644
index 50b8ce3..0000000
--- a/packages/realgud/realgud/debugger/gdb/core.el
+++ /dev/null
@@ -1,223 +0,0 @@
-;; Copyright (C) 2015-2017 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-(require 'load-relative)
-(require-relative-list '("../../common/track"
- "../../common/core"
- "../../common/lang")
- "realgud-")
-
-(declare-function realgud:expand-file-name-if-exists 'realgud-core)
-(declare-function realgud-lang-mode? 'realgud-lang)
-(declare-function realgud-parse-command-arg 'realgud-core)
-(declare-function realgud-query-cmdline 'realgud-core)
-
-;; FIXME: I think the following could be generalized and moved to
-;; realgud-... probably via a macro.
-(defvar realgud:gdb-minibuffer-history nil
- "minibuffer history list for the command `gdb'.")
-
-(easy-mmode-defmap realgud:gdb-minibuffer-local-map
- '(("\C-i" . comint-dynamic-complete-filename))
- "Keymap for minibuffer prompting of gud startup command."
- :inherit minibuffer-local-map)
-
-;; FIXME: I think this code and the keymaps and history
-;; variable chould be generalized, perhaps via a macro.
-(defun realgud:gdb-query-cmdline (&optional opt-debugger)
- (realgud-query-cmdline
- 'realgud:gdb-suggest-invocation
- realgud:gdb-minibuffer-local-map
- 'realgud:gdb-minibuffer-history
- opt-debugger))
-
-(defun realgud:gdb-parse-cmd-args (orig-args)
- "Parse command line ARGS for the annotate level and name of script to debug.
-
-ORIG_ARGS should contain a tokenized list of the command line to run.
-
-We return the a list containing
-* the name of the debugger given (e.g. gdb) and its arguments - a list of
strings
-* nil (a placeholder in other routines of this ilk for a debugger
-* the script name and its arguments - list of strings
-* whether the annotate or emacs option was given ('-A', '--annotate' or
'--emacs) - a boolean
-
-For example for the following input
- (map 'list 'symbol-name
- '(gdb --tty /dev/pts/1 -cd ~ --emacs ./gcd.py a b))
-
-we might return:
- ((\"gdb\" \"--tty\" \"/dev/pts/1\" \"-cd\" \"home/rocky\' \"--emacs\") nil
\"(/tmp/gcd.py a b\") 't\")
-
-Note that path elements have been expanded via `expand-file-name'.
-"
-
- ;; Parse the following kind of pattern:
- ;; gdb gdb-options script-name script-options
- (let (
- (args orig-args)
- (pair) ;; temp return from
-
- ;; One dash is added automatically to the below, so
- ;; h is really -h and -host is really --host.
- (gdb-two-args '("x" "-command" "b" "-exec"
- "cd" "-pid" "-core" "-directory"
- "-annotate"
- "i" "-interpreter"
- "se" "-symbols" "-tty"))
- ;; gdb doesn't optionsl 2-arg options.
- (gdb-opt-two-args '())
-
- ;; Things returned
- (script-name nil)
- (debugger-name nil)
- (debugger-args '())
- (script-args '())
- (annotate-p nil))
-
- (if (not (and args))
- ;; Got nothing: return '(nil nil nil nil)
- (list debugger-args nil script-args annotate-p)
- ;; else
- (progn
-
- ;; Remove "gdb" from "gdb --gdb-options script
- ;; --script-options"
- (setq debugger-name (file-name-sans-extension
- (file-name-nondirectory (car args))))
- (unless (string-match "^gdb.*" debugger-name)
- (message
- "Expecting debugger name `%s' to be `gdb'"
- debugger-name))
- (setq debugger-args (list (pop args)))
-
- ;; Skip to the first non-option argument.
- (while (and args (not script-name))
- (let ((arg (car args)))
- (cond
- ;; Annotation or emacs option with level number.
- ((or (member arg '("--annotate" "-A"))
- (equal arg "--emacs"))
- (setq annotate-p t)
- (nconc debugger-args (list (pop args) (pop args))))
- ;; Combined annotation and level option.
- ((string-match "^--annotate=[0-9]" arg)
- (nconc debugger-args (list (pop args) (pop args)) )
- (setq annotate-p t))
- ((string-match "^--interpreter=" arg)
- (warn "realgud doesn't support the --interpreter option; option
ignored")
- (setq args (cdr args)))
- ((equal "-i" arg)
- (warn "realgud doesn't support the -i option; option ignored")
- (setq args (cddr args)))
- ;; path-argument options
- ((member arg '("-cd" ))
- (setq arg (pop args))
- (nconc debugger-args
- (list arg (realgud:expand-file-name-if-exists
- (pop args)))))
- ;; Options with arguments.
- ((string-match "^-" arg)
- (setq pair (realgud-parse-command-arg
- args gdb-two-args gdb-opt-two-args))
- (nconc debugger-args (car pair))
- (setq args (cadr pair)))
- ;; Anything else must be the script to debug.
- (t (setq script-name (realgud:expand-file-name-if-exists arg))
- (setq script-args (cons script-name (cdr args))))
- )))
- (list debugger-args nil script-args annotate-p)))))
-
-(defvar realgud:gdb-command-name)
-
-(defun realgud:gdb-executable (file-name)
- "Return a priority for whether FILE-NAME is likely we can run gdb on"
- (let ((output (shell-command-to-string
- (format "file %s" (file-chase-links file-name)))))
- (cond
- ((string-match "ASCII" output) 2)
- ((string-match "ELF" output) 7)
- ((string-match "executable" output) 6)
- ('t 5))))
-
-(defun realgud:gdb-suggest-invocation (&optional debugger-name)
- "Suggest a gdb command invocation. Here is the priority we use:
-* an executable file with the name of the current buffer stripped of its
extension
-* any executable file in the current directory with no extension
-* the last invocation in gdb:minibuffer-history
-* any executable in the current directory
-When all else fails return the empty string."
- (let* ((file-list (directory-files default-directory))
- (priority 2)
- (best-filename nil)
- (try-filename (file-name-base (or (buffer-file-name) "gdb"))))
- (when (member try-filename (directory-files default-directory))
- (setq best-filename try-filename)
- (setq priority (+ (realgud:gdb-executable try-filename) 2)))
-
- ;; FIXME: I think a better test would be to look for
- ;; c-mode in the buffer that have a corresponding executable
- (while (and (setq try-filename (car-safe file-list)) (< priority 8))
- (setq file-list (cdr file-list))
- (if (and (file-executable-p try-filename)
- (not (file-directory-p try-filename)))
- (if (equal try-filename (file-name-sans-extension try-filename))
- (progn
- (setq best-filename try-filename)
- (setq priority (1+ (realgud:gdb-executable best-filename))))
- ;; else
- (progn
- (setq best-filename try-filename)
- (setq priority (realgud:gdb-executable best-filename))
- ))
- ))
- (if (< priority 8)
- (cond
- (realgud:gdb-minibuffer-history
- (car realgud:gdb-minibuffer-history))
- ((equal priority 7)
- (concat "gdb " best-filename))
- (t "gdb "))
- ;; else
- (concat "gdb " best-filename))
- ))
-
-(defun realgud:gdb-reset ()
- "Gdb cleanup - remove debugger's internal buffers (frame,
-breakpoints, etc.)."
- (interactive)
- ;; (gdb-breakpoint-remove-all-icons)
- (dolist (buffer (buffer-list))
- (when (string-match "\\*gdb-[a-z]+\\*" (buffer-name buffer))
- (let ((w (get-buffer-window buffer)))
- (when w
- (delete-window w)))
- (kill-buffer buffer))))
-
-;; (defun gdb-reset-keymaps()
-;; "This unbinds the special debugger keys of the source buffers."
-;; (interactive)
-;; (setcdr (assq 'gdb-debugger-support-minor-mode minor-mode-map-alist)
-;; gdb-debugger-support-minor-mode-map-when-deactive))
-
-
-(defun realgud:gdb-customize ()
- "Use `customize' to edit the settings of the `realgud:gdb' debugger."
- (interactive)
- (customize-group 'realgud:gdb))
-
-(provide-me "realgud:gdb-")
diff --git a/packages/realgud/realgud/debugger/gdb/gdb.el
b/packages/realgud/realgud/debugger/gdb/gdb.el
deleted file mode 100644
index 4c2853f..0000000
--- a/packages/realgud/realgud/debugger/gdb/gdb.el
+++ /dev/null
@@ -1,141 +0,0 @@
-;; Copyright (C) 2015-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-;; `realgud:gdb' Main interface to gdb via Emacs
-(require 'load-relative)
-(require-relative-list '("../../common/helper" "../../common/utils")
- "realgud-")
-
-(require-relative-list '("../../common/buffer/command"
- "../../common/buffer/source")
- "realgud-buffer-")
-
-(require-relative-list '("core" "track-mode") "realgud:gdb-")
-
-(declare-function realgud-cmdbuf? 'realgud-buffer-command)
-(declare-function realgud:cmdbuf-associate 'realgud-buffer-source)
-(declare-function realgud-parse-command-arg 'realgud-core)
-
-;; This is needed, or at least the docstring part of it is needed to
-;; get the customization menu to work in Emacs 24.
-(defgroup realgud:gdb nil
- "The realgud interface to gdb"
- :group 'realgud
- :version "24.3")
-
-;; -------------------------------------------------------------------
-;; User definable variables
-;;
-
-(defcustom realgud:gdb-command-name
- ;;"gdb --emacs 3"
- "gdb"
- "File name for executing the and command options.
-This should be an executable on your path, or an absolute file name."
- :type 'string
- :group 'realgud:gdb)
-
-(declare-function realgud:gdb-track-mode 'realgud:gdb-track-mode)
-(declare-function realgud-command 'realgud:gdb-core)
-(declare-function realgud:gdb-parse-cmd-args 'realgud:gdb-core)
-(declare-function realgud:gdb-query-cmdline 'realgud:gdb-core)
-(declare-function realgud:run-process 'realgud-core)
-(declare-function realgud:flatten 'realgud-utils)
-
-;; -------------------------------------------------------------------
-;; The end.
-;;
-
-(defun realgud:gdb-pid-command-buffer (pid)
- "Return the command buffer used when gdb -p PID is invoked"
- (format "*gdb %d shell*" pid)
- )
-
-(defun realgud:gdb-find-command-buffer (pid)
- "Find the among current buffers a buffer that is a realgud command buffer
-running gdb on process number PID"
- (let ((find-cmd-buf (realgud:gdb-pid-command-buffer pid)))
- (dolist (buf (buffer-list))
- (if (and (equal find-cmd-buf (buffer-name buf))
- (realgud-cmdbuf? buf)
- (get-buffer-process buf))
- (return buf)))))
-
-(defun realgud:gdb-pid (pid)
- "Start debugging gdb process with pid PID."
- (interactive "nEnter the pid that gdb should attach to: ")
- (realgud:gdb (format "%s -p %d" realgud:gdb-command-name pid))
- ;; FIXME: should add code to test if attach worked.
- )
-
-(defun realgud:gdb-pid-associate (pid)
- "Start debugging gdb process with pid PID and associate the
-current buffer to that realgud command buffer."
- (interactive "nEnter the pid that gdb should attach to and associate the
current buffer to: ")
- (let* ((command-buf)
- (source-buf (current-buffer))
- )
- (realgud:gdb-pid pid)
- (setq command-buf (realgud:gdb-find-command-buffer pid))
- (if command-buf
- (with-current-buffer source-buf
- (realgud:cmdbuf-associate))
- )))
-
-;;;###autoload
-(defun realgud:gdb (&optional opt-cmd-line no-reset)
- "Invoke the gdb debugger and start the Emacs user interface.
-
-OPT-CMD-LINE is treated like a shell string; arguments are
-tokenized by `split-string-and-unquote'.
-
-Normally, command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset. See `loc-changes-clear-buffer' to clear
-fringe and marginal icons.
-"
-
- (interactive)
- (let* ((cmd-str (or opt-cmd-line (realgud:gdb-query-cmdline "gdb")))
- (cmd-args (split-string-and-unquote cmd-str))
- (parsed-args (realgud:gdb-parse-cmd-args cmd-args))
- (script-args (caddr parsed-args))
- (script-name (or (car script-args) ""))
- (parsed-cmd-args
- (cl-remove-if-not 'stringp (realgud:flatten parsed-args)))
- (cmd-buf (realgud:run-process realgud:gdb-command-name
- script-name parsed-cmd-args
- 'realgud:gdb-minibuffer-history
- nil))
- )
- (if cmd-buf
- (let ((process (get-buffer-process cmd-buf)))
- (if (and process (eq 'run (process-status process)))
- (with-current-buffer cmd-buf
- (realgud-command "set annotate 1" nil nil nil)
- )))
- )
- ))
-
-(provide-me "realgud-")
-
-;; Local Variables:
-;; byte-compile-warnings: (not cl-functions)
-;; End:
diff --git a/packages/realgud/realgud/debugger/gdb/init.el
b/packages/realgud/realgud/debugger/gdb/init.el
deleted file mode 100644
index e2c4a80..0000000
--- a/packages/realgud/realgud/debugger/gdb/init.el
+++ /dev/null
@@ -1,145 +0,0 @@
-;; Copyright (C) 2015-2017 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-;;; gdb debugger
-
-(eval-when-compile (require 'cl-lib))
-
-(require 'load-relative)
-(require-relative-list '("../../common/regexp" "../../common/loc") "realgud-")
-
-(defvar realgud-pat-hash)
-(declare-function make-realgud-loc-pat (realgud-loc))
-
-(defvar realgud:gdb-pat-hash (make-hash-table :test 'equal)
- "hash key is the what kind of pattern we want to match:
-backtrace, prompt, etc. the values of a hash entry is a
-realgud-loc-pat struct")
-
-(declare-function make-realgud-loc "realgud-loc" (a b c d e f))
-
-(defconst realgud:gdb-frame-file-regexp
- (format "\\(.+\\):%s" realgud:regexp-captured-num))
-
-;; Regular expression that describes a lldb location generally shown
-;; before a command prompt. NOTE: we assume annotate 1!
-;; For example:
-;; /src/build/ruby-2.1.5/main.c:24:454:beg:0x55555557659f
-(setf (gethash "loc" realgud:gdb-pat-hash)
- (make-realgud-loc-pat
- :regexp (format "^%s:%s:beg:0x\\([0-9a-f]+\\)"
- realgud:gdb-frame-file-regexp
realgud:regexp-captured-num)
- :file-group 1
- :line-group 2
- :char-offset-group 3))
-
-;; Regular expression that describes a gdb prompt
-;; For example:
-;; (gdb)
-(setf (gethash "prompt" realgud:gdb-pat-hash)
- (make-realgud-loc-pat
- :regexp "^(gdb) "
- ))
-
-;; Regular expression that describes a "breakpoint set" line
-;; For example:
-;; Breakpoint 1, main (argc=1, argv=0x7fffffffdbd8) at main.c:24
-(setf (gethash "brkpt-set" realgud:gdb-pat-hash)
- (make-realgud-loc-pat
- :regexp (format "^Breakpoint %s at 0x\\([0-9a-f]*\\): file \\(.+\\),
line %s.\n"
- realgud:regexp-captured-num realgud:regexp-captured-num)
- :num 1
- :file-group 3
- :line-group 4))
-
-;; Regular expression that describes a debugger "delete" (breakpoint)
-;; response.
-;; For example:
-;; Deleted breakpoint 1
-;; Deleted breakpoints 1 2 3 4
-(setf (gethash "brkpt-del" realgud:gdb-pat-hash)
- (make-realgud-loc-pat
- :regexp "^Deleted breakpoints? \\(\\([0-9]+ *\\)+\\)\n"
- :num 1))
-
-(defconst realgud:gdb-frame-start-regexp
- "\\(?:^\\|\n\\)")
-
-(defconst realgud:gdb-frame-num-regexp
- (format "#%s " realgud:regexp-captured-num))
-
-;; Regular expression that describes a gdb "backtrace" command line.
-;; For example:
-;; #0 main (argc=2, argv=0xbffff564, envp=0xbffff570) at main.c:935
-;; #1 0xb7e9f4a5 in *__GI___strdup (s=0xbffff760 "/tmp/remake/remake") at
strdup.c:42
-;; #2 0x080593ac in main (argc=2, argv=0xbffff5a4, envp=0xbffff5b0)
-;; at main.c:952
-;; #46 0xb7f51b87 in vm_call_cfunc (th=0x804d188, reg_cfp=0xb7ba9e88, num=0,
-;; recv=157798080, blockptr=0x0, me=0x80d12a0) at vm_insnhelper.c:410
-
-(setf (gethash "debugger-backtrace" realgud:gdb-pat-hash)
- (make-realgud-loc-pat
- :regexp (concat realgud:gdb-frame-start-regexp
- realgud:gdb-frame-num-regexp
- "\\(?:.\\|\\(?:[\n] \\)\\)+[ ]+at "
- realgud:gdb-frame-file-regexp
- )
- :num 1
- :file-group 2
- :line-group 3)
- )
-
-(setf (gethash "font-lock-keywords" realgud:gdb-pat-hash)
- '(
- ;; #2 0x080593ac in main (argc=2, argv=0xbffff5a4, envp=0xbffff5b0)
- ;; at main.c:952
- ("[ \n]+at \\(.*\\):\\([0-9]+\\)"
- (1 realgud-file-name-face)
- (2 realgud-line-number-face))
-
- ;; The frame number and first type name, if present.
- ;; E.g. =>#0 Makefile.in at /tmp/Makefile:216
- ;; ---^
- ( "#\\(?:^\\|\n\\)\\([0-9]+\\) "
- (1 realgud-backtrace-number-face))
- ))
-
-(setf (gethash "gdb" realgud-pat-hash) realgud:gdb-pat-hash)
-
-;; Prefix used in variable names (e.g. short-key-mode-map) for
-;; this debugger
-
-(setf (gethash "gdb" realgud:variable-basename-hash) "realgud:gdb")
-
-(defvar realgud:gdb-command-hash (make-hash-table :test 'equal)
- "Hash key is command name like 'continue' and the value is
- the gdb command to use, like 'continue'")
-
-(setf (gethash "break" realgud:gdb-command-hash) "break %X:%l")
-(setf (gethash "clear" realgud:gdb-command-hash) "clear %X:%l")
-(setf (gethash "continue" realgud:gdb-command-hash) "continue")
-(setf (gethash "delete" realgud:gdb-command-hash) "delete %p")
-(setf (gethash "eval" realgud:gdb-command-hash) "print %s")
-(setf (gethash "quit" realgud:gdb-command-hash) "quit")
-(setf (gethash "run" realgud:gdb-command-hash) "run")
-(setf (gethash "step" realgud:gdb-command-hash) "step %p")
-
-(setf (gethash "gdb" realgud-command-hash) realgud:gdb-command-hash)
-
-(setf (gethash "gdb" realgud-pat-hash) realgud:gdb-pat-hash)
-
-(provide-me "realgud:gdb-")
diff --git a/packages/realgud/realgud/debugger/gdb/track-mode.el
b/packages/realgud/realgud/debugger/gdb/track-mode.el
deleted file mode 100644
index 9497657..0000000
--- a/packages/realgud/realgud/debugger/gdb/track-mode.el
+++ /dev/null
@@ -1,74 +0,0 @@
-;;; track-mode.el ---
-
-;; Copyright (C) 2015-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-;; gdb tracking a comint or eshell buffer.
-
-(require 'load-relative)
-(require-relative-list '(
- "../../common/cmds"
- "../../common/menu"
- "../../common/track"
- "../../common/track-mode"
- )
- "realgud-")
-(require-relative-list '("core" "init") "realgud:gdb-")
-
-(realgud-track-mode-vars "realgud:gdb")
-
-(declare-function realgud-track-mode 'realgud-track-mode)
-(declare-function realgud:track-mode-hook 'realgud-track-mode)
-(declare-function realgud:track-mode-enable 'realgud-track-mode)
-(declare-function realgud-track-mode-setup 'realgud-track-mode)
-(declare-function realgud:track-set-debugger 'realgud-track-mode)
-
-(define-key realgud:gdb-track-mode-map
- (kbd "C-c !b") 'realgud:goto-debugger-backtrace-line)
-
-(defun realgud:gdb-track-mode-hook()
- (use-local-map realgud:gdb-track-mode-map)
- (realgud-track-mode-setup 't)
- (message "realgud:gdb track-mode-hook called")
-)
-
-(define-minor-mode realgud:gdb-track-mode
- "Minor mode for tracking gdb inside a process shell via realgud.
-
-If called interactively with no prefix argument, the mode is toggled. A prefix
argument, captured as ARG, enables the mode if the argument is positive, and
disables it otherwise.
-
-Key bindings:
-\\{realgud:gdb-track-mode-map}
-"
- :init-value nil
- ;; :lighter " gdb" ;; mode-line indicator from realgud-track is sufficient.
- ;; The minor mode bindings.
- :global nil
- :group 'realgud:gdb
- :keymap realgud:gdb-track-mode-map
- (if realgud:gdb-track-mode
- (progn
- (realgud:track-set-debugger "gdb")
- (realgud:gdb-track-mode-hook)
- (realgud:track-mode-enable))
- (progn
- (setq realgud-track-mode nil)
- ))
-)
-
-(provide-me "realgud:gdb-")
-;;; track-mode.el ends here
diff --git a/packages/realgud/realgud/debugger/gub/Makefile.am
b/packages/realgud/realgud/debugger/gub/Makefile.am
deleted file mode 100644
index e6c68b4..0000000
--- a/packages/realgud/realgud/debugger/gub/Makefile.am
+++ /dev/null
@@ -1,5 +0,0 @@
-include ../common.mk
-
-lisp_files = $(wildcard *.el)
-lisp_LISP = $(lisp_files)
-EXTRA_DIST = $(lisp_files)
diff --git a/packages/realgud/realgud/debugger/gub/core.el
b/packages/realgud/realgud/debugger/gub/core.el
deleted file mode 100644
index df444b7..0000000
--- a/packages/realgud/realgud/debugger/gub/core.el
+++ /dev/null
@@ -1,181 +0,0 @@
-;; Copyright (C) 2013-2014, 2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-(require 'load-relative)
-(require-relative-list '("../../common/track" "../../common/lang"
- "../../common/core") "realgud-")
-(require-relative-list '("init") "realgud:gub-")
-
-(declare-function realgud-query-cmdline 'realgud-core)
-(declare-function realgud-suggest-invocation 'realgud-core)
-(declare-function realgud-lang-mode? 'realgud-lang)
-
-;; FIXME: I think the following could be generalized and moved to
-;; realgud-... probably via a macro.
-(defvar realgud:gub-minibuffer-history nil
- "minibuffer history list for the command `gub'.")
-
-(easy-mmode-defmap gub-minibuffer-local-map
- '(("\C-i" . comint-dynamic-complete-filename))
- "Keymap for minibuffer prompting of gud startup command."
- :inherit minibuffer-local-map)
-
-;; FIXME: I think this code and the keymaps and history
-;; variable chould be generalized, perhaps via a macro.
-(defun gub-query-cmdline (&optional opt-debugger)
- (realgud-query-cmdline
- 'gub-suggest-invocation
- gub-minibuffer-local-map
- 'realgud:gub-minibuffer-history
- opt-debugger))
-
-(defun gub-parse-cmd-args (orig-args)
- "Parse command line ARGS for the name of script to debug and its args.
-
-ARGS should contain a tokenized list of the command line to run.
-
-We return the a list containing
-
-- the command processor (e.g. gub.sh) and it's arguments if any - a list of
strings
-For example for the following input
- \'./gub.sh --gub=\"-I\" -- ./gcd.go a b\'
-
-we might return:
- (gub (\"-gub=-I\") (./gcd.rb a b))
-
-NOTE: the above should have each item listed in quotes.
-"
-
- (let (
- (args orig-args)
- (interp-regexp ".*\\(^gub\.sh\\|tortoise\\)$")
-
- ;; Things returned
- (gub-name "gub.sh")
- (gub-args '())
- (go-prog-and-args '())
- )
-
- (if (not (and args))
- ;; Got nothing
- (list gub-name gub-args go-prog-and-args)
- ;; else
- ;; Strip off "gub.sh"
- (when (string-match interp-regexp
- (file-name-nondirectory (car args)))
- (setq gub-name (pop args))
- )
-
- ;; parse options
- (while args
- (let ((arg (pop args)))
- (cond
- ((string-match "^-[-]?gub=" arg)
- (setq gub-args (nconc gub-args (list arg))))
-
- ((string-match "^-run" arg)
- (setq gub-args (nconc gub-args (list arg))))
-
- ((string-match "^-interp=SS" arg)
- (setq gub-args (nconc gub-args (list arg))))
-
- ((equal arg "--")) ;; Ignore
-
- ;; Anything else add to gub-args
- ('t (setq go-prog-and-args (nconc go-prog-and-args (list arg))))
- ))))
- (list gub-name gub-args go-prog-and-args)
- ))
-
-(defconst realgud:gub-auto-suffix-regexp
- "\\.go$"
- "Go file suffix"
-)
-
-(defun gub-suggest-file-priority(filename)
- (let ((priority 2)
- (is-not-directory)
- )
- (if (realgud-lang-mode? filename "go")
- (progn
- (if (string-match realgud:gub-auto-suffix-regexp filename)
- (setq priority 5)
- (setq priority 7))
- ))
- priority
- )
-)
-
-;; To silence Warning: reference to free variable
-(defvar realgud:gub-command-name)
-
-(defun gub-suggest-invocation (debugger-name)
- "Suggest a command invocation via `realgud-suggest-invocaton'"
- (realgud-suggest-invocation (or debugger-name realgud:gub-command-name)
- realgud:gub-minibuffer-history
- "go" "\\.go$"))
-
-;; Convert a command line as would be typed normally to run a script
-;; into one that invokes an Emacs-enabled debugging session.
-;; "--debugger" in inserted as the first switch.
-
-(defun realgud:gub-massage-args (command-line)
- (let* ((new-args (list "--debugger"))
- (args (split-string-and-unquote command-line))
- (program (car args))
- (seen-e nil)
- (shift (lambda ()
- (setq new-args (cons (car args) new-args))
- (setq args (cdr args)))))
-
- ;; Pass all switches and -e scripts through.
- (while (and args
- (string-match "^-" (car args))
- (not (equal "-" (car args)))
- (not (equal "--" (car args))))
- (funcall shift))
-
- (if (or (not args)
- (string-match "^-" (car args)))
- (error "Can't use stdin as the script to debug"))
- ;; This is the program name.
- (funcall shift)
-
- (while args
- (funcall shift))
-
- (nreverse new-args)
- )
- )
-
-(defun gub-reset ()
- "Gub cleanup - remove debugger's internal buffers (frame,
-breakpoints, etc.)."
- (interactive)
- ;; (gub-breakpoint-remove-all-icons)
- (dolist (buffer (buffer-list))
- (when (string-match "\\*gub-[a-z]+\\*" (buffer-name buffer))
- (let ((w (get-buffer-window buffer)))
- (when w
- (delete-window w)))
- (kill-buffer buffer))))
-
-;; (defun gub-reset-keymaps()
-;; "This unbinds the special debugger keys of the source buffers."
-;; (interactive)
-;; (setcdr (assq 'gub-debugger-support-minor-mode minor-mode-map-alist)
-;; gub-debugger-support-minor-mode-map-when-deactive))
-
-
-(defun realgud:gub-customize ()
- "Use `customize' to edit the settings of the `gub' debugger."
- (interactive)
- (customize-group 'realgud:gub))
-
-(provide-me "realgud:gub-")
diff --git a/packages/realgud/realgud/debugger/gub/gub.el
b/packages/realgud/realgud/debugger/gub/gub.el
deleted file mode 100644
index 5338501..0000000
--- a/packages/realgud/realgud/debugger/gub/gub.el
+++ /dev/null
@@ -1,87 +0,0 @@
-;; Copyright (C) 2015 Free Software Foundation, Inc
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software: you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation, either version 3 of the
-;; License, or (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see
-;; <http://www.gnu.org/licenses/>.
-
-;; `gub' Main interface to Go gub via Emacs
-(require 'load-relative)
-(require-relative-list '("../../common/helper") "realgud-")
-(require-relative-list '("../../common/track") "realgud-")
-(require-relative-list '("core" "track-mode") "realgud:gub-")
-
-(eval-when-compile (require 'cl-lib))
-
-;; This is needed, or at least the docstring part of it is needed to
-;; get the customization menu to work in Emacs 24.
-(defgroup realgud:gub nil
- "The realgud interface to the Go SSA interpreter debugger, gub"
- :group 'realgud
- :version "23.4")
-
-;; -------------------------------------------------------------------
-;; User definable variables
-;;
-
-(defcustom realgud:gub-command-name
- "tortoise -run -gub= -interp=SS --"
- "File name for executing the Go SSA interpreter/debugger, gub, and command
options.
-This should be an executable on your path, or an absolute file name."
- :type 'string
- :group 'realgud:gub)
-
-(declare-function gub-query-cmdline 'realgud-gub-core)
-(declare-function gub-parse-cmd-args 'realgud-gub-core)
-(declare-function realgud:run-process 'realgud-core)
-
-
-(defun realgud-gub-fn (&optional opt-command-line no-reset)
- "See `realgud-gub' for details"
-
- (let* ((cmd-str (or opt-command-line (gub-query-cmdline "gub")))
- (cmd-args (split-string-and-unquote cmd-str))
- (parsed-args (gub-parse-cmd-args cmd-args))
- (gub-program (car parsed-args))
- (gub-args (cadr parsed-args))
- (go-prog-and-args (caddr parsed-args))
- (script-filename (car go-prog-and-args))
- (cmd-buf))
- (realgud:run-process gub-program script-filename cmd-args
- 'gub-track-mode no-reset)
- )
- )
-
-;;;###autoload
-(defun realgud-gub (&optional opt-command-line no-reset)
- "Invoke the Go SSA debugger, gub and start the Emacs user interface.
-
-String COMMAND-LINE specifies how to run gub.
-
-Normally command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset."
-
-
- (interactive)
- (realgud-gub-fn opt-command-line no-reset)
- )
-
-;;;###autoload
-(defalias 'gub 'realgud-gub)
-
-(provide-me "realgud-")
-;;; gub.el ends here
diff --git a/packages/realgud/realgud/debugger/gub/init.el
b/packages/realgud/realgud/debugger/gub/init.el
deleted file mode 100644
index f244267..0000000
--- a/packages/realgud/realgud/debugger/gub/init.el
+++ /dev/null
@@ -1,206 +0,0 @@
-;; Copyright (C) 2015-2016 Free Software Foundation, Inc
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software: you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation, either version 3 of the
-;; License, or (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see
-;; <http://www.gnu.org/licenses/>.
-
-;; Regular expressions for Go SSA debugger: gub
-
-(eval-when-compile (require 'cl-lib)) ;For setf.
-
-(require 'load-relative)
-(require-relative-list '("../../common/regexp"
- "../../common/loc"
- "../../common/init")
- "realgud-")
-
-(defvar realgud-pat-hash)
-(declare-function make-realgud-loc-pat (realgud-loc))
-
-(defvar realgud:gub-pat-hash (make-hash-table :test 'equal)
- "Hash key is the what kind of pattern we want to match:
-backtrace, prompt, etc. The values of a hash entry is a
-realgud-loc-pat struct")
-
-;; Regular expression that describes a gub location generally shown
-;; before a command prompt.
-;; For example:
-;; interp/testdata/square.go:16:2-17
-(setf (gethash "loc" realgud:gub-pat-hash)
- (make-realgud-loc-pat
- :regexp
-
"\\(?:^\\|\n\\)\\(\\(?:[a-zA-Z]:\\)?[a-zA-Z0-9_/.\\\\][-a-zA-Z0-9_/.\\\\
]*\\.go\\):\\([0-9]+\\)"
- :file-group 1
- :line-group 2))
-
-;; Regular expression that describes a Go backtrace line.
-;; For example:
-;; ssa-interp/interp/interp.go:202 (0x506c84)
-;; visitInstr: *fr.get(instr.Addr).(*Value) = copyVal(fr.get(instr.Val))
-;; sa-interp/interp/interp.go:604 (0x50b5b1)
-;; runFrame: switch visitInstr(fr, instr) {
-(setf (gethash "lang-backtrace" realgud:gub-pat-hash)
- (make-realgud-loc-pat
- :regexp
-
"\\(?:^\\|\n\\)\\(\\(?:[a-zA-Z]:\\)?[a-zA-Z0-9_/.\\\\][-a-zA-Z0-9_/.\\\\]*\\.go\\):\\([0-9]+\\)"
- :file-group 1
- :line-group 2))
-
-
-;; Regular expression that describes a gub location generally shown
-;; before a command prompt.
-;; For example:
-;; gub[1]:
-;; address@hidden:
-(setf (gethash "prompt" realgud:gub-pat-hash)
- (make-realgud-loc-pat
- :regexp (format "^gub\\[%s\\(?:@%s\\)?\\]: "
- realgud:regexp-captured-num
- realgud:regexp-captured-num)
- :num 1
- ))
-
-;; Regular expression that describes a "breakpoint set" line
-(setf (gethash "brkpt-set" realgud:gub-pat-hash)
- (make-realgud-loc-pat
- :regexp (format
- "^Breakpoint %s set\\(?:in function \\) in file
\\([a-zA-Z0-9_/.\\\\][-a-zA-Z0-9_/.\\\\ ]*\\.go\\) line %s, column %s"
- realgud:regexp-captured-num realgud:regexp-captured-num
- realgud:regexp-captured-num)
- :num 1
- :file-group 2
- :line-group 3
- :char-offset-group 4))
-
-;; Regular expression that describes a debugger "delete" (breakpoint) response.
-;; For example:
-;; Deleted breakpoint 1.
-(setf (gethash "brkpt-del" realgud:gub-pat-hash)
- (make-realgud-loc-pat
- :regexp (format
- "^Deleted breakpoint %s\n"
- realgud:regexp-captured-num)
- :num 1))
-
-;; Regular expression describes general location. In contrast to loc
-;; which triggers automatically, we bind this to a key like C-c !s
-;; For example:
-;; interp/testdata/square.go:16:2-17
-; ^^^^^^ spaces
-(setf (gethash "general-location" realgud:gub-pat-hash)
- (make-realgud-loc-pat
- :regexp
- (format
- "\\(?:^\\|\n\\)[
\t]*\\(\\(?:[a-zA-Z]:\\)?[a-zA-Z0-9_/.\\\\][-a-zA-Z0-9_/.\\\\ ]*\\.go\\):%s"
realgud:regexp-captured-num)
- :file-group 1
- :line-group 2))
-
-(defconst realgud:gub-selected-frame-arrow "=>"
-"String that describes which frame is selected in a debugger
-backtrace listing.")
-(defconst realgud:gub-frame-arrow (format "\\(%s\\| \\)"
- realgud:gub-selected-frame-arrow))
-(defconst realgud:gub-frame-num-regexp
- (format " #%s " realgud:regexp-captured-num))
-
-(defconst realgud:gub-frame-file-regexp
- (format " at \\(.*\\):%s" realgud:regexp-captured-num))
-
-
-;; Regular expression that describes a debugger "backtrace" command line.
-;; For example:
-;; => #0 square(n)
-;; #1 main()
-(setf (gethash "debugger-backtrace" realgud:gub-pat-hash)
- (make-realgud-loc-pat
- :regexp (concat "^"
- realgud:gub-frame-arrow
- realgud:gub-frame-num-regexp
- "\\(.*\\)"
- realgud:gub-frame-file-regexp
- )
- :num 2
- :file-group 4
- :line-group 5)
- )
-
-(setf (gethash "selected-frame-indicator" realgud:gub-pat-hash)
- realgud:gub-selected-frame-arrow)
-
-;; Regular expression that describes a Go backtrace line
-;; For example:
-;; /usr/local/go/src/pkg/runtime/panic.c:482 (0x805c956)
-;; ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^-^^^-----------
-(setf (gethash "lang-backtrace" realgud:gub-pat-hash)
- (make-realgud-loc-pat
- :regexp "^\\(/.+\\):\\([0-9]+\\) \\((0x[0-9a-f]+)\\)?$"
- :file-group 1
- :line-group 2))
-
-;; Regular expression that describes a Go runtime panic
-;; For example:
-;; /tmp/github.com/rocky/ssa-interp/eval/selectorexpr.go:18 +0x9f
-;;^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^-^^------
-(setf (gethash "panic-backtrace" realgud:gub-pat-hash)
- (make-realgud-loc-pat
- :regexp (format "^[ \t]*\\(/.+\\):%s \\(+0x[0-9a-f]+\\)?$"
- realgud:regexp-captured-num)
- :file-group 1
- :line-group 2))
-
-;; Regular expression for a termination message.
-(setf (gethash "termination" realgud:gub-pat-hash)
- "^gub: That's all, folks...\n")
-
-(setf (gethash "font-lock-keywords" realgud:gub-pat-hash)
- '(
- ;; File name and line number
- ;; E.g. =>#0 Makefile.in at /tmp/Makefile:216
- ;; ---^^^^^^^^^^^^^-^^^
- (" at \\(.*\\):\\([0-9]+\\)"
- (1 realgud-file-name-face)
- (2 realgud-line-number-face))
-
- ;; The frame number and first type name, if present.
- ;; E.g. =>#0 Makefile.in at /tmp/Makefile:216
- ;; ---^
- ("#\\([0-9]+\\) "
- (1 realgud-backtrace-number-face))
- ))
-
-(setf (gethash "gub" realgud-pat-hash) realgud:gub-pat-hash)
-
-;; Prefix used in variable names (e.g. short-key-mode-map) for
-;; this debugger
-
-(setf (gethash "tortoise" realgud:variable-basename-hash) "realgud:gub")
-
-(defvar realgud:gub-command-hash (make-hash-table :test 'equal)
- "Hash key is command name like 'quit' and the value is
- the gub command to use, like 'q'")
-
-(setf (gethash "backtrace" realgud:gub-command-hash) "backtrace")
-(setf (gethash "break" realgud:gub-command-hash) "break %l")
-(setf (gethash "continue" realgud:gub-command-hash) "continue")
-;;(setf (gethash "eval" realgud:gub-command-hash) "x %s")
-(setf (gethash "quit" realgud:gub-command-hash) "quit")
-(setf (gethash "restart" realgud:gub-command-hash) "R")
-(setf (gethash "run" realgud:gub-command-hash) "R")
-(setf (gethash "step" realgud:gub-command-hash) "step")
-(setf (gethash "next" realgud:gub-command-hash) "next")
-(setf (gethash "until" realgud:gub-command-hash) "until %l")
-(setf (gethash "gub" realgud-command-hash) realgud:gub-command-hash)
-
-
-(provide-me "realgud:gub-")
diff --git a/packages/realgud/realgud/debugger/gub/track-mode.el
b/packages/realgud/realgud/debugger/gub/track-mode.el
deleted file mode 100644
index b48bb0c..0000000
--- a/packages/realgud/realgud/debugger/gub/track-mode.el
+++ /dev/null
@@ -1,85 +0,0 @@
-;; Copyright (C) 2013-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;;; Golang SSA gub tracking a comint buffer.
-
-(require 'load-relative)
-(require-relative-list '(
- "../../common/cmds"
- "../../common/menu"
- "../../common/track"
- "../../common/track-mode"
- )
- "realgud-")
-(require-relative-list '("core" "init") "realgud:gub-")
-
-(realgud-track-mode-vars "gub")
-
-(declare-function realgud-goto-line-for-pt 'realgud-track-mode)
-(declare-function realgud-track-mode 'realgud-track-mode)
-(declare-function realgud:track-set-debugger 'realgud-track-mode)
-(declare-function realgud-track-mode-setup 'realgud-track-mode)
-
-(defun realgud:gub-goto-location (pt)
- "Display the location mentioned in a location
-described by PT."
- (interactive "d")
- (realgud-goto-line-for-pt pt "general-location"))
-
-
-(defun realgud:gub-goto-panic-location (pt)
- "Display the location mentioned in a location
-described by PT."
- (interactive "d")
- (realgud-goto-line-for-pt pt "panic-backtrace"))
-
-
-(define-key gub-track-mode-map
- (kbd "C-c !!") 'realgud:goto-lang-backtrace-line)
-(define-key gub-track-mode-map
- (kbd "C-c !b") 'realgud:goto-debugger-backtrace-line)
-(define-key gub-track-mode-map
- (kbd "C-c !s") 'realgud:gub-goto-location)
-(define-key gub-track-mode-map
- (kbd "C-c !p") 'realgud:gub-goto-panic-location)
-
-(defun gub-track-mode-hook()
- (if gub-track-mode
- (progn
- (use-local-map gub-track-mode-map)
- (message "using gub mode map")
- )
- (message "gub track-mode-hook disable called"))
-)
-
-(define-minor-mode gub-track-mode
- "Minor mode for tracking gub source locations inside a process shell via
realgud. gub is a Go language debugger.
-
-If called interactively with no prefix argument, the mode is toggled. A prefix
argument, captured as ARG, enables the mode if the argument is positive, and
disables it otherwise.
-
-\\{gub-track-mode-map}
-"
- :init-value nil
- ;; :lighter " gub" ;; mode-line indicator from realgud-track is sufficient.
- ;; The minor mode bindings.
- :global nil
- :group 'realgud:gub
- :keymap gub-track-mode-map
-
- (realgud:track-set-debugger "gub")
- (if gub-track-mode
- (progn
- (realgud-track-mode-setup 't)
- (gub-track-mode-hook))
- (progn
- (setq realgud-track-mode nil)
- ))
-)
-
-(provide-me "realgud:gub-")
diff --git a/packages/realgud/realgud/debugger/ipdb/Makefile.am
b/packages/realgud/realgud/debugger/ipdb/Makefile.am
deleted file mode 100644
index e6c68b4..0000000
--- a/packages/realgud/realgud/debugger/ipdb/Makefile.am
+++ /dev/null
@@ -1,5 +0,0 @@
-include ../common.mk
-
-lisp_files = $(wildcard *.el)
-lisp_LISP = $(lisp_files)
-EXTRA_DIST = $(lisp_files)
diff --git a/packages/realgud/realgud/debugger/ipdb/core.el
b/packages/realgud/realgud/debugger/ipdb/core.el
deleted file mode 100644
index 12939f2..0000000
--- a/packages/realgud/realgud/debugger/ipdb/core.el
+++ /dev/null
@@ -1,255 +0,0 @@
-;; Copyright (C) 2016-2017 Free Software Foundation, Inc
-
-;; Author: Sean Farley <address@hidden>, Rocky Bernstein (address@hidden)
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.or/licenses/>.
-
-
-(require 'comint)
-(require 'load-relative)
-(require-relative-list '("../../common/track"
- "../../common/core"
- "../../common/lang")
- "realgud-")
-(require-relative-list '("init") "realgud:ipdb-")
-
-
-(declare-function realgud-lang-mode? 'realgud-lang)
-(declare-function realgud-parse-command-arg 'realgud-core)
-(declare-function realgud-query-cmdline 'realgud-core)
-(declare-function realgud-suggest-invocation 'realgud-core)
-(declare-function realgud-get-cmdbuf 'realgud-buffer-helper)
-
-;; FIXME: I think the following could be generalized and moved to
-;; realgud-... probably via a macro.
-(defvar realgud:ipdb-minibuffer-history nil
- "minibuffer history list for the command `ipdb'.")
-
-(defvar realgud:ipdb-remote-minibuffer-history nil
- "minibuffer history list for the command `ipdb-remote'.")
-
-(easy-mmode-defmap ipdb-minibuffer-local-map
- '(("\C-i" . comint-dynamic-complete-filename))
- "Keymap for minibuffer prompting of debugger startup command."
- :inherit minibuffer-local-map)
-
-;; FIXME: I think this code and the keymaps and history
-;; variable chould be generalized, perhaps via a macro.
-(defun ipdb-query-cmdline (&optional opt-debugger)
- (realgud-query-cmdline
- 'ipdb-suggest-invocation
- ipdb-minibuffer-local-map
- 'realgud:ipdb-minibuffer-history
- opt-debugger))
-
-;; FIXME: I think this code and the keymaps and history
-;; variable chould be generalized, perhaps via a macro.
-(defun ipdb-remote-query-cmdline ()
- (realgud-query-cmdline
- 'ipdb-suggest-invocation
- ipdb-minibuffer-local-map
- 'realgud:ipdb-remote-minibuffer-history
- "telnet"))
-
-(defun ipdb-parse-cmd-args (orig-args)
- "Parse command line ORIG-ARGS for the annotate level and name of script to
debug.
-
-ORIG-ARGS should contain a tokenized list of the command line to run.
-
-We return the a list containing:
-* the command processor (e.g. python) and it's arguments if any - a list of
strings
-* the name of the debugger given (e.g. ipdb) and its arguments - a list of
strings
-* the script name and its arguments - list of strings
-* whether the annotate or emacs option was given ('-A', '--annotate' or
'--emacs) - a boolean
-
-For example for the following input:
- (map 'list 'symbol-name
- '(python2.6 -O -Qold ./gcd.py a b))
-
-we might return:
- ((\"python2.6\" \"-O\" \"-Qold\") (\"ipdb\") (\"/tmp/gcd.py\" \"a\" \"b\")
nil)
-
-Note that the script name path has been expanded via `expand-file-name'.
-"
-
- ;; Parse the following kind of pattern:
- ;; [python python-options] ipdb ipdb-options script-name script-options
- (let (
- (args orig-args)
- (pair) ;; temp return from
- (python-opt-two-args '())
- ;; Python doesn't have mandatory 2-arg options in our sense,
- ;; since the two args can be run together, e.g. "-C/tmp" or "-C /tmp"
- ;;
- (python-two-args '())
- ;; ipdb doesn't have any arguments
- (ipdb-two-args '())
- (ipdb-opt-two-args '())
- (interp-regexp
- (if (member system-type (list 'windows-nt 'cygwin 'msdos))
- "^python[-0-9.]*\\(.exe\\)?$"
- "^python[-0-9.]*$"))
-
- ;; Things returned
- (annotate-p nil)
- (debugger-args '())
- (debugger-name nil)
- (interpreter-args '())
- (script-args '())
- (script-name nil)
- )
-
- (if (not (and args))
- ;; Got nothing: return '(nil, nil)
- (list interpreter-args debugger-args script-args annotate-p)
- ;; else
- ;; Strip off optional "python" or "python182" etc.
- (when (string-match interp-regexp
- (file-name-sans-extension
- (file-name-nondirectory (car args))))
- (setq interpreter-args (list (pop args)))
-
- ;; Strip off Python-specific options
- (while (and args
- (string-match "^-" (car args)))
- (setq pair (realgud-parse-command-arg
- args python-two-args python-opt-two-args))
- (nconc interpreter-args (car pair))
- (setq args (cadr pair))))
-
- ;; Remove "ipdb" from "ipdb --ipdb-options script
- ;; --script-options"
- (setq debugger-name (file-name-sans-extension
- (file-name-nondirectory (car args))))
- (unless (string-match "^\\(ipdb\\|cli.py\\)$" debugger-name)
- (message
- "Expecting debugger name `%s' to be `ipdb' or `cli.py'"
- debugger-name))
- (setq debugger-args (list (pop args)))
-
- ;; Skip to the first non-option argument.
- (while (and args (not script-name))
- (let ((arg (car args)))
- (cond
- ;; Options with arguments.
- ((string-match "^-" arg)
- (setq pair (realgud-parse-command-arg
- args ipdb-two-args ipdb-opt-two-args))
- (nconc debugger-args (car pair))
- (setq args (cadr pair)))
- ;; Anything else must be the script to debug.
- (t (setq script-name (expand-file-name arg))
- (setq script-args (cons script-name (cdr args))))
- )))
- (list interpreter-args debugger-args script-args annotate-p))))
-
-(defun ipdb-parse-remote-cmd-args (orig-args)
- "Parse command line ORIG-ARGS
-ORIG-ARGS should contain a tokenized list of the command line to run.
-
-We return the a list containing:
-* the command processor (e.g. python) and it's arguments if any - a list of
strings
-* the name of the debugger given (e.g. ipdb) and its arguments - a list of
strings
-* the script name and its arguments - list of strings
-* nil
-
-For example for the following input:
- (map 'list 'symbol-name
- '(telnet localhost 6900))
-
-we might return:
- ((\"telnet\" \"localhost\" \"6900\") nil nil nil)
-
-Note that the script name path has been expanded via `expand-file-name'.
-"
- (list orig-args '("ipdb") nil nil nil)
- )
-
- ;; To silence Warning: reference to free variable
-(defvar realgud:ipdb-command-name)
-
-(defun ipdb-remote-suggest-invocation (debugger-name)
- "Suggest an ipdb command invocation via `realgud-suggest-invocaton'"
- "telnet 127.0.0.1 4000")
-
-(defun ipdb-suggest-invocation (debugger-name)
- "Suggest a ipdb command invocation via `realgud-suggest-invocaton'"
- (realgud-suggest-invocation (or debugger-name realgud:ipdb-command-name)
- realgud:ipdb-minibuffer-history
- "python" "\\.py"))
-
-(defun ipdb-reset ()
- "Ipdb cleanup - remove debugger's internal buffers (frame,
-breakpoints, etc.)."
- (interactive)
- ;; (ipdb-breakpoint-remove-all-icons)
- (dolist (buffer (buffer-list))
- (when (string-match "\\*ipdb-[a-z]+\\*" (buffer-name buffer))
- (let ((w (get-buffer-window buffer)))
- (when w
- (delete-window w)))
- (kill-buffer buffer))))
-
-;; (defun ipdb-reset-keymaps()
-;; "This unbinds the special debugger keys of the source buffers."
-;; (interactive)
-;; (setcdr (assq 'ipdb-debugger-support-minor-mode minor-mode-map-alist)
-;; ipdb-debugger-support-minor-mode-map-when-deactive))
-
-(defconst realgud:ipdb-complete-script
- (concat
- "from IPython import get_ipython;"
- "comp = '''%s''';"
- "prefix, candidates = get_ipython().Completer.complete(line_buffer = comp);"
- "print(';'.join([prefix] + candidates))"))
-
-(defun realgud:ipdb-backend-complete ()
- "Send a command to the ipdb buffer and parse the output.
-
-The idea here is to rely on the
-`comint-redirect-send-command-to-process' function to send a
-python command `realgud:ipdb-complete-script' that will return
-the completions for the given input."
- (interactive)
- (let ((buffer (current-buffer))
- (cmdbuf (realgud-get-cmdbuf))
- (process (get-buffer-process (current-buffer)))
- (start-pos (save-excursion (comint-goto-process-mark) (point)))
- (end-pos (point)))
-
- ;; get the input string
- (when (> end-pos start-pos)
- (let* ((input-str (buffer-substring-no-properties start-pos end-pos))
- (command-str (format realgud:ipdb-complete-script input-str))
- (output-str (with-temp-buffer
- (comint-redirect-send-command-to-process
- command-str (current-buffer) process nil t)
- ;; Wait for the process to complete
- (with-current-buffer (process-buffer process)
- (while (null comint-redirect-completed)
- (accept-process-output nil 0 5))) ;; wait 5ms
- (buffer-substring (point-min) (1- (point-max)))))
- (output-values (split-string output-str ";"))
- (prefix (car output-values)))
- (list (- end-pos (length prefix)) end-pos (cdr output-values))))))
-
-(defun realgud:ipdb-completion-at-point ()
- (let ((ipdb (realgud:ipdb-backend-complete)))
- (when ipdb
- (list (nth 0 ipdb)
- (nth 1 ipdb)
- (nth 2 ipdb)
- :exclusive 'yes))))
-
-(defun realgud:ipdb-customize ()
- "Use `customize' to edit the settings of the `ipdb' debugger."
- (interactive)
- (customize-group 'realgud:ipdb))
-
-(provide-me "realgud:ipdb-")
diff --git a/packages/realgud/realgud/debugger/ipdb/init.el
b/packages/realgud/realgud/debugger/ipdb/init.el
deleted file mode 100644
index cdcfce2..0000000
--- a/packages/realgud/realgud/debugger/ipdb/init.el
+++ /dev/null
@@ -1,136 +0,0 @@
-;; Copyright (C) 2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-;; Author: Sean Farley <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-;; Stock Python debugger ipdb
-
-(eval-when-compile (require 'cl-lib)) ;For setf.
-
-(require 'load-relative)
-(require-relative-list '("../../common/regexp"
- "../../common/loc"
- "../../common/init")
- "realgud-")
-(require-relative-list '("../../lang/python") "realgud-lang-")
-
-(defvar realgud-pat-hash)
-(declare-function make-realgud-loc-pat (realgud-loc))
-
-(defvar realgud:ipdb-pat-hash (make-hash-table :test 'equal)
- "Hash key is the what kind of pattern we want to match:
-backtrace, prompt, etc. The values of a hash entry is a
-realgud-loc-pat struct")
-
-(declare-function make-realgud-loc "realgud-loc" (a b c d e f))
-
-;; realgud-loc-pat that describes a ipdb location generally shown
-;; before a command prompt.
-;;
-;; Program-location lines look like this:
-;; > /usr/bin/zonetab2pot.py(15)<module>()
-;; or MS Windows:
-;; > c:\\mydirectory\\gcd.py(10)<module>
-(setf (gethash "loc" realgud:ipdb-pat-hash)
- (make-realgud-loc-pat
- :regexp "^> \\(\\(?:[a-zA-Z]:\\)?[-a-zA-Z0-9_/.\\\\ ]+\\)(\\([0-9]+\\))"
- :file-group 1
- :line-group 2))
-
-(setf (gethash "prompt" realgud:ipdb-pat-hash)
- (make-realgud-loc-pat
- :regexp "^ipdb[>] "
- ))
-
-;; realgud-loc-pat that describes a Python backtrace line.
-(setf (gethash "lang-backtrace" realgud:ipdb-pat-hash)
- realgud-python-backtrace-loc-pat)
-
-;; realgud-loc-pat that describes location in a pytest error
-(setf (gethash "pytest-error" realgud:ipdb-pat-hash)
- realgud-pytest-error-loc-pat)
-
-;; Regular expression that describes location in a flake8 message
-(setf (gethash "flake8-msg" realgud:ipdb-pat-hash)
- realgud-flake8-msg-loc-pat)
-
-;; realgud-loc-pat that describes a "breakpoint set" line. For example:
-;; Breakpoint 1 at /usr/bin/ipdb:7
-(setf (gethash "brkpt-set" realgud:ipdb-pat-hash)
- (make-realgud-loc-pat
- :regexp "^Breakpoint \\([0-9]+\\) at[
\t\n]+\\(.+\\):\\([0-9]+\\)\\(\n\\|$\\)"
- :num 1
- :file-group 2
- :line-group 3))
-
-;; realgud-loc-pat that describes a "delete breakpoint" line
-;; Python 3 includes a file name and line number; Python 2 doesn't
-(setf (gethash "brkpt-del" realgud:ipdb-pat-hash)
- (make-realgud-loc-pat
- :regexp "^Deleted breakpoint \\([0-9]+\\)"
- :num 1))
-
-(setf (gethash "font-lock-keywords" realgud:ipdb-pat-hash)
- '(
- ;; The frame number and first type name, if present.
- ("^\\(->\\|##\\)\\([0-9]+\\) \\(<module>\\)?
*\\([a-zA-Z_][a-zA-Z0-9_]*\\)(\\(.+\\))?"
- (2 realgud-backtrace-number-face)
- (4 font-lock-function-name-face nil t)) ; t means optional.
-
- ;; Parameter sequence, E.g. gcd(a=3, b=5)
- ;; ^^^^^^^^^
- ("(\\(.+\\))"
- (1 font-lock-variable-name-face))
-
- ;; File name. E.g file '/test/gcd.py'
- ;; ------^^^^^^^^^^^^-
- ("[ \t]+file '\\([^ ]+*\\)'"
- (1 realgud-file-name-face))
-
- ;; Line number. E.g. at line 28
- ;; ---------^^
- ("[ \t]+at line \\([0-9]+\\)$"
- (1 realgud-line-number-face))
-
- ;; Function name.
- ("\\<\\([a-zA-Z_][a-zA-Z0-9_]*\\)\\.\\([a-zA-Z_][a-zA-Z0-9_]*\\)"
- (1 font-lock-type-face)
- (2 font-lock-function-name-face))
- ;; (ipdb-frames-match-current-line
- ;; (0 ipdb-frames-current-frame-face append))
- ))
-
-(setf (gethash "ipdb" realgud-pat-hash) realgud:ipdb-pat-hash)
-
-(defvar realgud:ipdb-command-hash (make-hash-table :test 'equal)
- "Hash key is command name like 'finish' and the value is
-the ipdb command to use, like 'return'")
-
-(setf (gethash "ipdb" realgud-command-hash) realgud:ipdb-command-hash)
-
-;; Mappings between ipdb-specific names and GUD names
-(setf (gethash "finish" realgud:ipdb-command-hash) "return")
-(setf (gethash "kill" realgud:ipdb-command-hash) "quit")
-(setf (gethash "backtrace" realgud:ipdb-command-hash) "where")
-;; Clear in Python does both the usual “delete” and “clear”
-(setf (gethash "delete" realgud:ipdb-command-hash) "clear %p")
-(setf (gethash "clear" realgud:ipdb-command-hash) "clear %X:%l")
-(setf (gethash "eval" realgud:ipdb-command-hash) "pp %s")
-
-;; Unsupported features:
-(setf (gethash "shell" realgud:ipdb-command-hash) "*not-implemented*")
-(setf (gethash "frame" realgud:ipdb-command-hash) "*not-implemented*")
-
-(provide-me "realgud:ipdb-")
diff --git a/packages/realgud/realgud/debugger/ipdb/ipdb.el
b/packages/realgud/realgud/debugger/ipdb/ipdb.el
deleted file mode 100644
index 23ba2ad..0000000
--- a/packages/realgud/realgud/debugger/ipdb/ipdb.el
+++ /dev/null
@@ -1,123 +0,0 @@
-;; Copyright (C) 2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-;; Author: Sean Farley <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-;; `ipdb' Main interface to ipdb via Emacs
-(require 'load-relative)
-(require-relative-list '("core" "track-mode") "realgud:ipdb-")
-(require-relative-list '("../../common/run") "realgud:")
-(require-relative-list '("core" "track-mode") "realgud:ipdb-")
-
-;; This is needed, or at least the docstring part of it is needed to
-;; get the customization menu to work in Emacs 24.
-(defgroup realgud:ipdb nil
- "The realgud interface to the Python ipdb debugger"
- :group 'realgud
- :version "24.3")
-
-;; -------------------------------------------------------------------
-;; User-definable variables
-;;
-
-(defcustom realgud:ipdb-command-name
- "ipdb"
- "File name for executing the stock Python debugger and command options.
-This should be an executable on your path, or an absolute file name."
- :type 'string
- :group 'realgud:ipdb)
-;; -------------------------------------------------------------------
-;; The end.
-;;
-
-(declare-function ipdb-track-mode 'realgud:ipdb-track)
-(declare-function ipdb-query-cmdline 'realgud:ipdb-core)
-(declare-function ipdb-parse-cmd-args 'realgud:ipdb-core)
-(declare-function realgud:ipdb-completion-at-point 'realgud:ipdb-core)
-(declare-function realgud:run-debugger 'realgud:run)
-
-;;;###autoload
-(defun realgud:ipdb (&optional opt-cmd-line no-reset)
- "Invoke the ipdb Python debugger and start the Emacs user interface.
-
-String OPT-CMD-LINE specifies how to run ipdb. You will be prompted
-for a command line is one isn't supplied.
-
-OPT-COMMAND-LINE is treated like a shell string; arguments are
-tokenized by `split-string-and-unquote'. The tokenized string is
-parsed by `ipdb-parse-cmd-args' and path elements found by that
-are expanded using `realgud:expand-file-name-if-exists'.
-
-Normally, command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset. See `loc-changes-clear-buffer' to clear
-fringe and marginal icons.
-"
- (interactive)
- (let ((cmd-buf (realgud:run-debugger "ipdb" 'ipdb-query-cmdline
- 'ipdb-parse-cmd-args
- 'realgud:ipdb-minibuffer-history
- opt-cmd-line no-reset))
- )
- (add-hook 'completion-at-point-functions
- 'realgud:ipdb-completion-at-point nil t)
- (with-current-buffer cmd-buf
- (add-hook 'completion-at-point-functions
- 'realgud:ipdb-completion-at-point nil t)
- )
- cmd-buf)
- )
-
-
-;;;###autoload
-(defun realgud:ipdb-remote (&optional opt-cmd-line no-reset)
- "Invoke the ipdb Python debugger and start the Emacs user interface.
-
-String OPT-CMD-LINE specifies how to run ipdb. You will be prompted
-for a command line is one isn't supplied.
-
-OPT-COMMAND-LINE is treated like a shell string; arguments are
-tokenized by `split-string-and-unquote'. The tokenized string is
-parsed by `ipdb-parse-remote-cmd-args' and path elements found by that
-are expanded using `realgud:expand-file-name-if-exists'.
-
-Normally, command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset. See `loc-changes-clear-buffer' to clear
-fringe and marginal icons.
-"
- (interactive)
- (let ((cmd-buf (realgud:run-debugger "ipdb" 'ipdb-remote-query-cmdline
- 'ipdb-parse-remote-cmd-args
- 'realgud:ipdb-remote-minibuffer-history
- opt-cmd-line no-reset "remote-ipdb"))
- )
- (add-hook 'completion-at-point-functions
- 'realgud:ipdb-completion-at-point nil t)
- cmd-buf)
- )
-
-
-;;;###autoload
-(defalias 'ipdb 'realgud:ipdb)
-
-(provide-me "realgud-")
diff --git a/packages/realgud/realgud/debugger/ipdb/track-mode.el
b/packages/realgud/realgud/debugger/ipdb/track-mode.el
deleted file mode 100644
index b723a07..0000000
--- a/packages/realgud/realgud/debugger/ipdb/track-mode.el
+++ /dev/null
@@ -1,77 +0,0 @@
-;; Copyright (C) 2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-;; Author: Sean Farley <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-;; Python "ipdb" Debugger tracking a comint buffer.
-
-(require 'load-relative)
-(require-relative-list '(
- "../../common/cmds"
- "../../common/menu"
- "../../common/track"
- "../../common/track-mode"
- )
- "realgud-")
-(require-relative-list '("core" "init") "realgud:ipdb-")
-
-(realgud-track-mode-vars "ipdb")
-
-(declare-function realgud-track-mode 'realgud-track-mode)
-(declare-function realgud-track-mode-setup 'realgud-track-mode)
-(declare-function realgud:track-set-debugger 'realgud-track-mode)
-(declare-function realgud-python-populate-command-keys 'realgud-lang-python)
-(declare-function realgud:ipdb-completion-at-point 'realgud:ipdb-core)
-
-(realgud-python-populate-command-keys ipdb-track-mode-map)
-
-(defun ipdb-track-mode-hook()
- (if ipdb-track-mode
- (progn
- (use-local-map ipdb-track-mode-map)
- (add-hook 'completion-at-point-functions
- 'realgud:ipdb-completion-at-point nil t)
- (message "using ipdb mode map")
- )
- (message "ipdb track-mode-hook disable called")
- )
-)
-
-(define-minor-mode ipdb-track-mode
- "Minor mode for tracking ipdb source locations inside a process shell via
realgud. ipdb is a Python debugger based on ipython.
-
-If called interactively with no prefix argument, the mode is toggled. A prefix
argument, captured as ARG, enables the mode if the argument is positive, and
disables it otherwise.
-
-a process shell.
-
-\\{ipdb-track-mode-map}
-"
- :init-value nil
- ;; :lighter " ipdb" ;; mode-line indicator from realgud-track is
sufficient.
- ;; The minor mode bindings.
- :global nil
- :group 'realgud:ipdb
- :keymap ipdb-track-mode-map
- (realgud:track-set-debugger "ipdb")
- (if ipdb-track-mode
- (progn
- (realgud-track-mode-setup 't)
- (ipdb-track-mode-hook))
- (progn
- (setq realgud-track-mode nil)
- ))
-)
-
-(provide-me "realgud:ipdb-")
diff --git a/packages/realgud/realgud/debugger/jdb/Makefile.am
b/packages/realgud/realgud/debugger/jdb/Makefile.am
deleted file mode 100644
index 2c88842..0000000
--- a/packages/realgud/realgud/debugger/jdb/Makefile.am
+++ /dev/null
@@ -1,5 +0,0 @@
-include $(srcdir)/../common.mk
-
-lisp_files = $(wildcard *.el)
-lisp_LISP = $(lisp_files)
-EXTRA_DIST = $(lisp_files)
diff --git a/packages/realgud/realgud/debugger/jdb/README
b/packages/realgud/realgud/debugger/jdb/README
deleted file mode 100644
index d37044a..0000000
--- a/packages/realgud/realgud/debugger/jdb/README
+++ /dev/null
@@ -1,2 +0,0 @@
-Supporting JDB is going to be a mess.
-Consider using something else. Eclipse anyone?
diff --git a/packages/realgud/realgud/debugger/jdb/backtrack-mode.el
b/packages/realgud/realgud/debugger/jdb/backtrack-mode.el
deleted file mode 100644
index 1454edc..0000000
--- a/packages/realgud/realgud/debugger/jdb/backtrack-mode.el
+++ /dev/null
@@ -1,78 +0,0 @@
-;; Copyright (C) 2015-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-;; Mode for parsing various kinds of backtraces found in Java
-
-(require 'load-relative)
-(require-relative-list '(
- "../../common/cmds"
- "../../common/menu"
- "../../common/track-mode"
- "../../common/backtrack-mode"
- )
- "realgud-")
-(require-relative-list '("core" "init") "realgud:jdb-")
-(require-relative-list '("../../lang/ruby") "realgud-lang-")
-
-(realgud-backtrack-mode-vars "jdb")
-(set-keymap-parent jdb-backtrack-mode-map realgud-backtrack-mode-map)
-
-(declare-function realgud-backtrack-mode
'realgud-common-backtrack-mode)
-(declare-function realgud-backtrack-set-debugger
'realgud-common-backtrack-mode)
-(declare-function realgud-goto-line-for-pt
'realgud-common-backtrack-mode)
-(declare-function realgud:ruby-populate-command-keys 'realgud-lang-ruby)
-
-(defun realgud:jdb-goto-control-frame-line (pt)
- "Display the location mentioned by a control-frame line
-described by PT."
- (interactive "d")
- (realgud-goto-line-for-pt pt "control-frame"))
-
-(realgud:ruby-populate-command-keys jdb-backtrack-mode-map)
-(define-key jdb-backtrack-mode-map
- (kbd "C-c !c") 'realgud:jdb-goto-control-frame-line)
-
-(define-minor-mode jdb-backtrack-mode
- "Minor mode for tracking ruby debugging inside a file which may not have
process shell.
-
-\\{jdb-backtrack-mode-map}"
- :init-value nil
- ;; :lighter " jdb" ;; mode-line indicator from realgud-track is sufficient.
- ;; The minor mode bindings.
- :global nil
- :group 'realgud:jdb
- :keymap jdb-backtrack-mode-map
-
- (realgud-backtrack-set-debugger "jdb")
- (if jdb-backtrack-mode
- (progn
- (realgud-backtrack-mode 't)
- (run-mode-hooks (intern (jdb-backtrack-mode-hook))))
- (progn
- (realgud-backtrack-mode nil)
- ))
-)
-
-(defun jdb-backtrack-mode-hook()
- (if jdb-backtrack-mode
- (progn
- (use-local-map jdb-backtrack-mode-map)
- (message "using jdb mode map")
- )
- (message "jdb backtrack-mode-hook disable called"))
-)
-
-(provide-me "realgud:jdb-")
diff --git a/packages/realgud/realgud/debugger/jdb/core.el
b/packages/realgud/realgud/debugger/jdb/core.el
deleted file mode 100644
index 2d8b543..0000000
--- a/packages/realgud/realgud/debugger/jdb/core.el
+++ /dev/null
@@ -1,190 +0,0 @@
-;; Copyright (C) 2014, 2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; We use gud to handle the classpath-to-filename mapping
-(require 'gud)
-(require 'compile) ;; for compilation-find-file
-
-(require 'load-relative)
-(require-relative-list '("../../common/track"
- "../../common/core"
- "../../common/file"
- "../../common/lang"
- "../../common/utils")
- "realgud-")
-(require-relative-list '("init") "realgud:jdb-")
-
-(declare-function realgud:strip 'realgud-utils)
-(declare-function realgud:expand-file-name-if-exists 'realgud-core)
-(declare-function realgud-parse-command-arg 'realgud-core)
-(declare-function realgud-query-cmdline 'realgud-core)
-(declare-function realgud-suggest-invocation 'realgud-core)
-(declare-function realgud:file-loc-from-line 'realgud-file)
-
-;; FIXME: I think the following could be generalized and moved to
-;; realgud-... probably via a macro.
-(defvar realgud:jdb-minibuffer-history nil
- "minibuffer history list for the command `realgud:jdb'.")
-
-(easy-mmode-defmap jdb-minibuffer-local-map
- '(("\C-i" . comint-dynamic-complete-filename))
- "Keymap for minibuffer prompting of gud startup command."
- :inherit minibuffer-local-map)
-
-;; FIXME: I think this code and the keymaps and history
-;; variable chould be generalized, perhaps via a macro.
-(defun realgud:jdb-query-cmdline (&optional opt-debugger)
- (realgud-query-cmdline
- 'jdb-suggest-invocation
- jdb-minibuffer-local-map
- 'realgud:jdb-minibuffer-history
- opt-debugger))
-
-(defun realgud:jdb-dot-to-slash (str)
- "Change '.' to '/' in STR but chop off from the last . to the end. For
example
-ca.mgcill.rocky.snpEff.main => ca/mcgill/rocky/snpEff"
- ;;(setq str (replace-regexp-in-string "\\([^\\.]+\\.\\)[^\\.]+$" "\\1"
str))
- ;;(setq str (replace-regexp-in-string "\\.$" "" str))
- (setq str (replace-regexp-in-string "\\." "/" str))
- str)
-
-(defvar realgud:jdb-file-remap (make-hash-table :test 'equal)
- "How to remap Java files in jdb when we otherwise can't find in
- the filesystem. The hash key is the file string we saw, and the
- value is associated filesystem string presumably in the
- filesystem")
-
-(defun realgud:jdb-find-file(filename)
- "A find-file specific for java/jdb. We use `gdb-jdb-find-source' to map a
-name to a filename. Failing that we can add on .java to the name. Failing that
-we will prompt for a mapping and save that in `realgud:jdb-file-remap' when
-that works."
- (let* ((transformed-file)
- (stripped-filename (realgud:strip filename))
- (gud-jdb-filename (gud-jdb-find-source stripped-filename))
- )
- (cond
- ((and gud-jdb-filename (file-exists-p gud-jdb-filename))
- gud-jdb-filename)
- ((file-exists-p (setq transformed-file (concat stripped-filename
".java")))
- transformed-file)
- ('t
- (if (gethash stripped-filename realgud:jdb-file-remap)
- (let ((remapped-filename))
- (setq remapped-filename (gethash stripped-filename
realgud:jdb-file-remap))
- (if (file-exists-p remapped-filename)
- remapped-filename
- ;; else
- (and (remhash filename realgud-file-remap) nil)))
- ;; else
- (let ((remapped-filename)
- (guess-filename (realgud:jdb-dot-to-slash filename)))
- (setq remapped-filename
- (buffer-file-name
- (compilation-find-file (point-marker) guess-filename
- nil "%s.java")))
- (when (and remapped-filename (file-exists-p remapped-filename))
- (puthash stripped-filename remapped-filename realgud:jdb-file-remap)
- remapped-filename
- ))
- ))
- ))
- )
-
-(defun realgud:jdb-loc-fn-callback(text filename lineno source-str
- ignore-file-re cmd-mark)
- (realgud:file-loc-from-line filename lineno
- cmd-mark source-str nil
- ignore-file-re 'realgud:jdb-find-file))
-
-(defun realgud:jdb-parse-cmd-args (orig-args)
- "Parse command line ARGS for the annotate level and name of script to debug.
-
-ORIG-ARGS should contain a tokenized list of the command line to run.
-
-We return the a list containing
-
-* the command debugger (e.g. jdb)
-
-* debugger command rguments if any - a list of strings
-
-* the script name and its arguments - list of strings
-
-For example for the following input
- '(\"jdb\" \"-classpath . ./TestMe.java a b\"))
-
-we might return:
- (\"jdb\" nil \"TestMe\"))
-
-Note that the script name path has been expanded via `expand-file-name'.
-"
-
- ;; Parse the following kind of pattern:
- ;; [ruby ruby-options] jdb jdb-options script-name script-options
- (let (
- (args orig-args)
- (interp-regexp
- (if (member system-type (list 'windows-nt 'cygwin 'msdos))
- "^jdb*\\(.exe\\)?$"
- "^jdb*$"))
- (jdb-name)
- ;;
- ;; One dash is added automatically to the below, so
- ;; attach is really -attach
- (jdb-two-args '("attach" "sourcepath" "classpath" "dbgtrace"))
-
- ;; Things returned
- (debugger-args '())
- (program-args '()))
-
- (if (not (and args))
- ;; Got nothing: return '(nil nil nil)
- (list jdb-name nil debugger-args program-args)
- ;; else
- ;; Strip off optional "jdb" or "jdb.exe" etc.
- (when (string-match interp-regexp (car args))
- (setq jdb-name (car args))
- (setq program-args (nconc program-args (cdr args))))
-
- (list jdb-name debugger-args program-args))))
-
-;; To silence Warning: reference to free variable
-(defvar realgud:jdb-command-name)
-
-(defun jdb-suggest-invocation (debugger-name)
- "Suggest a jdb command invocation via `realgud-suggest-invocaton'"
- (realgud-suggest-invocation (or debugger-name realgud:jdb-command-name)
- realgud:jdb-minibuffer-history
- "java" "\\.java$" "jdb"))
-
-(defun jdb-reset ()
- "Jdb cleanup - remove debugger's internal buffers (frame,
-breakpoints, etc.)."
- (interactive)
- ;; (jdb-breakpoint-remove-all-icons)
- (dolist (buffer (buffer-list))
- (when (string-match "\\*jdb-[a-z]+\\*" (buffer-name buffer))
- (let ((w (get-buffer-window buffer)))
- (when w
- (delete-window w)))
- (kill-buffer buffer))))
-
-;; (defun jdb-reset-keymaps()
-;; "This unbinds the special debugger keys of the source buffers."
-;; (interactive)
-;; (setcdr (assq 'jdb-debugger-support-minor-mode minor-mode-map-alist)
-;; jdb-debugger-support-minor-mode-map-when-deactive))
-
-
-(defun realgud:jdb-customize ()
- "Use `customize' to edit the settings of the `jdb' debugger."
- (interactive)
- (customize-group 'realgud:jdb))
-
-(provide-me "realgud:jdb-")
diff --git a/packages/realgud/realgud/debugger/jdb/file.el
b/packages/realgud/realgud/debugger/jdb/file.el
deleted file mode 100644
index 388478a..0000000
--- a/packages/realgud/realgud/debugger/jdb/file.el
+++ /dev/null
@@ -1,241 +0,0 @@
-;; Copyright (C) 2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;; Association list of fully qualified class names (package + class name)
-;; and their source files.
-(defvar gud-jdb-class-source-alist nil
- "Association list of fully qualified class names and source files.")
-
-;; This is used to hold a source file during analysis.
-(defvar gud-jdb-analysis-buffer nil)
-
-(defvar gud-jdb-classpath-string nil
- "Holds temporary classpath values.")
-
-(defun gud-jdb-build-source-files-list (path extn)
- "Return a list of java source files (absolute paths).
-PATH gives the directories in which to search for files with
-extension EXTN. Normally EXTN is given as the regular expression
- \"\\.java$\" ."
- (apply 'nconc (mapcar (lambda (d)
- (when (file-directory-p d)
- (directory-files d t extn nil)))
- path)))
-
-;; Move point past whitespace.
-(defun gud-jdb-skip-whitespace ()
- (skip-chars-forward " \n\r\t\014"))
-
-;; Move point past a "// <eol>" type of comment.
-(defun gud-jdb-skip-single-line-comment ()
- (end-of-line))
-
-;; Move point past a "/* */" or "/** */" type of comment.
-(defun gud-jdb-skip-traditional-or-documentation-comment ()
- (forward-char 2)
- (catch 'break
- (while (not (eobp))
- (if (eq (following-char) ?*)
- (progn
- (forward-char)
- (if (not (eobp))
- (if (eq (following-char) ?/)
- (progn
- (forward-char)
- (throw 'break nil)))))
- (forward-char)))))
-
-;; Move point past any number of consecutive whitespace chars and/or comments.
-(defun gud-jdb-skip-whitespace-and-comments ()
- (gud-jdb-skip-whitespace)
- (catch 'done
- (while t
- (cond
- ((looking-at "//")
- (gud-jdb-skip-single-line-comment)
- (gud-jdb-skip-whitespace))
- ((looking-at "/\\*")
- (gud-jdb-skip-traditional-or-documentation-comment)
- (gud-jdb-skip-whitespace))
- (t (throw 'done nil))))))
-
-;; Move point past things that are id-like. The intent is to skip regular
-;; id's, such as class or interface names as well as package and interface
-;; names.
-(defun gud-jdb-skip-id-ish-thing ()
- (skip-chars-forward "^ /\n\r\t\014,;{"))
-
-;; Move point past a string literal.
-(defun gud-jdb-skip-string-literal ()
- (forward-char)
- (while (not (cond
- ((eq (following-char) ?\\)
- (forward-char))
- ((eq (following-char) ?\042))))
- (forward-char))
- (forward-char))
-
-;; Move point past a character literal.
-(defun gud-jdb-skip-character-literal ()
- (forward-char)
- (while
- (progn
- (if (eq (following-char) ?\\)
- (forward-char 2))
- (not (eq (following-char) ?\')))
- (forward-char))
- (forward-char))
-
-;; Move point past the following block. There may be (legal) cruft before
-;; the block's opening brace. There must be a block or it's the end of life
-;; in petticoat junction.
-(defun gud-jdb-skip-block ()
-
- ;; Find the beginning of the block.
- (while
- (not (eq (following-char) ?{))
-
- ;; Skip any constructs that can harbor literal block delimiter
- ;; characters and/or the delimiters for the constructs themselves.
- (cond
- ((looking-at "//")
- (gud-jdb-skip-single-line-comment))
- ((looking-at "/\\*")
- (gud-jdb-skip-traditional-or-documentation-comment))
- ((eq (following-char) ?\042)
- (gud-jdb-skip-string-literal))
- ((eq (following-char) ?\')
- (gud-jdb-skip-character-literal))
- (t (forward-char))))
-
- ;; Now at the beginning of the block.
- (forward-char)
-
- ;; Skip over the body of the block as well as the final brace.
- (let ((open-level 1))
- (while (not (eq open-level 0))
- (cond
- ((looking-at "//")
- (gud-jdb-skip-single-line-comment))
- ((looking-at "/\\*")
- (gud-jdb-skip-traditional-or-documentation-comment))
- ((eq (following-char) ?\042)
- (gud-jdb-skip-string-literal))
- ((eq (following-char) ?\')
- (gud-jdb-skip-character-literal))
- ((eq (following-char) ?{)
- (setq open-level (+ open-level 1))
- (forward-char))
- ((eq (following-char) ?})
- (setq open-level (- open-level 1))
- (forward-char))
- (t (forward-char))))))
-
-;; Find the package and class definitions in Java source file FILE. Assumes
-;; that FILE contains a legal Java program. BUF is a scratch buffer used
-;; to hold the source during analysis.
-(defun gud-jdb-analyze-source (buf file)
- (let ((l nil))
- (set-buffer buf)
- (insert-file-contents file nil nil nil t)
- (goto-char 0)
- (catch 'abort
- (let ((p ""))
- (while (progn
- (gud-jdb-skip-whitespace)
- (not (eobp)))
- (cond
-
- ;; Any number of semi's following a block is legal. Move point
- ;; past them. Note that comments and whitespace may be
- ;; interspersed as well.
- ((eq (following-char) ?\073)
- (forward-char))
-
- ;; Move point past a single line comment.
- ((looking-at "//")
- (gud-jdb-skip-single-line-comment))
-
- ;; Move point past a traditional or documentation comment.
- ((looking-at "/\\*")
- (gud-jdb-skip-traditional-or-documentation-comment))
-
- ;; Move point past a package statement, but save the PackageName.
- ((looking-at "package")
- (forward-char 7)
- (gud-jdb-skip-whitespace-and-comments)
- (let ((s (point)))
- (gud-jdb-skip-id-ish-thing)
- (setq p (concat (buffer-substring s (point)) "."))
- (gud-jdb-skip-whitespace-and-comments)
- (if (eq (following-char) ?\073)
- (forward-char))))
-
- ;; Move point past an import statement.
- ((looking-at "import")
- (forward-char 6)
- (gud-jdb-skip-whitespace-and-comments)
- (gud-jdb-skip-id-ish-thing)
- (gud-jdb-skip-whitespace-and-comments)
- (if (eq (following-char) ?\073)
- (forward-char)))
-
- ;; Move point past the various kinds of ClassModifiers.
- ((looking-at "public")
- (forward-char 6))
- ((looking-at "abstract")
- (forward-char 8))
- ((looking-at "final")
- (forward-char 5))
-
- ;; Move point past a ClassDeclaration, but save the class
- ;; Identifier.
- ((looking-at "class")
- (forward-char 5)
- (gud-jdb-skip-whitespace-and-comments)
- (let ((s (point)))
- (gud-jdb-skip-id-ish-thing)
- (setq
- l (nconc l (list (concat p (buffer-substring s (point)))))))
- (gud-jdb-skip-block))
-
- ;; Move point past an interface statement.
- ((looking-at "interface")
- (forward-char 9)
- (gud-jdb-skip-block))
-
- ;; Anything else means the input is invalid.
- (t
- (message "Error parsing file %s." file)
- (throw 'abort nil))))))
- l))
-
-(defun gud-jdb-build-class-source-alist-for-file (file)
- (mapcar
- (lambda (c)
- (cons c file))
- (gud-jdb-analyze-source gud-jdb-analysis-buffer file)))
-
-;; Return an alist of fully qualified classes and the source files
-;; holding their definitions. SOURCES holds a list of all the source
-;; files to examine.
-(defun gud-jdb-build-class-source-alist (sources)
- (setq gud-jdb-analysis-buffer (get-buffer-create " *gud-jdb-scratch*"))
- (prog1
- (apply
- 'nconc
- (mapcar
- 'gud-jdb-build-class-source-alist-for-file
- sources))
- (kill-buffer gud-jdb-analysis-buffer)
- (setq gud-jdb-analysis-buffer nil)))
diff --git a/packages/realgud/realgud/debugger/jdb/init.el
b/packages/realgud/realgud/debugger/jdb/init.el
deleted file mode 100644
index b29602a..0000000
--- a/packages/realgud/realgud/debugger/jdb/init.el
+++ /dev/null
@@ -1,234 +0,0 @@
-;; Copyright (C) 2014-2017 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-(eval-when-compile (require 'cl-lib)) ;For setf.
-
-(require 'load-relative)
-(require-relative-list '("../../common/regexp"
- "../../common/loc"
- "../../common/init")
- "realgud-")
-
-(require-relative-list '("../../lang/java") "realgud-lang-")
-
-(defvar realgud-pat-hash)
-(declare-function make-realgud-loc-pat (realgud-loc))
-
-(defconst realgud:jdb-identifier "[A-Za-z_][A-Za-z0-9_.]+"
-"Regexp string that matches a Java identifier possily with class
-name. For example java.lang.Class.getDeclaredMethods")
-
-(defvar realgud:jdb-pat-hash (make-hash-table :test 'equal)
- "Hash key is the what kind of pattern we want to match:
-backtrace, prompt, etc. The values of a hash entry is a
-realgud-loc-pat struct")
-
-(setf (gethash "loc-callback-fn" realgud:jdb-pat-hash)
'realgud:jdb-loc-fn-callback)
-
-;; realgud-loc-pat that describes a jdb location generally shown
-;; before a command prompt. For example:
-;; Breakpoint hit: "thread=main", TestMe.main(), line=7 bci=0
-;; Step completed: "thread=main", TestMe.<init>(), line=15 bci=0
-
-(setf (gethash "loc" realgud:jdb-pat-hash)
- (make-realgud-loc-pat
- :regexp "\\(?:Breakpoint hit\\|Step completed\\): \"thread=.+\",
\\(.+\\)?[.]\\(.+\\)(), line=\\([0-9]+\\)
bci=\\([0-9]+\\)\\(?:\n\\([0-9]+\\)\\(.*\\)\\)?"
- :file-group 1
- :line-group 3
- :text-group 6))
-
-;; realgud-loc-pat that describes a jdb command prompt
-;; For example:
-;; main[1]
-;; main[2]
-;; >
-;; FIXME: I think the pattern is thread-name[stack-level]
-;; Here, we only deal with main.
-(setf (gethash "prompt" realgud:jdb-pat-hash)
- (make-realgud-loc-pat
- :regexp "^\\(?:main\\[\\([0-9]+\\)\\]\\|>\\) "
- :num 1
- ))
-
-;; realgud-loc-pat that describes a Java syntax error line.
-;; (setf (gethash "syntax-error" realgud:jdb-pat-hash)
-;; realgud-java-syntax-error-pat)
-
-;; realgud-loc-pat that describes a Java backtrace line.
-;; For example:
-;; [1] ca.snpEffect.commandLine.SnpEff.run (SnpEff.java:7)
-(setf (gethash "lang-backtrace" realgud:jdb-pat-hash)
- (make-realgud-loc-pat
- ;; FIXME: use realgud:jdb-identifier
- :regexp "^\\(?:[ ]*[\\[0-9\\]+]\\) \\([A-Za-z_.][A-Za-z0-9.]+\\)
(\\([A-Za-z_.][A-Za-z0-9.]+\\):\\([0-9]+\\))"
- :file-group 1
- :line-group 2))
-
-;; realgud-loc-pat that describes a "breakpoint set" line.
-;; For example:
-;; Set breakpoint TestMe:7
-(setf (gethash "brkpt-set" realgud:jdb-pat-hash)
- (make-realgud-loc-pat
- :regexp "^Set breakpoint \\(.+\\):\\([0-9]+\\)"
- :num 1
- :line-group 2))
-
-;; realgud-loc-pat that describes a debugger "delete" (breakpoint) response.
-;; For example:
-;; Removed: breakpoint TestMe:7
-(setf (gethash "brkpt-del" realgud:jdb-pat-hash)
- (make-realgud-loc-pat
- :regexp "^Removed breakpoint \\(.+\\):\\([0-9]+\\)\n"
- :line-group 1))
-
-(defconst realgud:jdb-selected-frame-indicator "-->"
-"String that describes which frame is selected in a debugger
-backtrace listing.")
-
-(defconst realgud:jdb-frame-file-regexp
- "[ \t\n]+in file \\([^ \n]+\\)")
-
-(defconst realgud:jdb-debugger-name "jdb" "Name of debugger")
-
-;; Top frame number
-(setf (gethash "top-frame-num" realgud:jdb-pat-hash) 0)
-
-;; realgud-loc-pat that describes a debugger "selected" frame in
-;; a frame-motion command.
-;; For example:
-;; --> #1 [1] TestMe.main (TestMe.java:7)
-;; Rocky: sometimes I am not getting the frame indicator.
-(setf (gethash "selected-frame" realgud:jdb-pat-hash)
- (make-realgud-loc-pat
- :regexp
- (format "^%s #\\([0-9]+\\) .*%s"
- realgud:jdb-selected-frame-indicator
- realgud:jdb-frame-file-regexp)
- :num 1))
-
-;; realgud-loc-pat that describes a jdb backtrace line.
-;; For example:
-;; [1] TestMe.main (TestMe.java:7)
-;; [2] java.lang.Class.privateGetDeclaredMethods (Class.java:2,570)
-;; [3] java.lang.Class.getMethod0 (Class.java:2,813)
-;; [4] java.lang.Class.getMethod (Class.java:1,663)
-;; [5] sun.launcher.LauncherHelper.getMainMethod (LauncherHelper.java:494)
-;; [6] sun.launcher.LauncherHelper.checkAndLoadMain (LauncherHelper.java:486)
-(setf (gethash "debugger-backtrace" realgud:jdb-pat-hash)
- (make-realgud-loc-pat
- :regexp "^\\(?:[\t ]*[\\[[0-9]+\\]
\\)\\([A-Za-z_.][A-Za-z0-9.]+\\):\\([0-9]+\\)"
- :file-group 1
- :line-group 2))
-
-;; Regular expression that describes location in a maven error
-(setf (gethash "maven-error" realgud:jdb-pat-hash)
- realgud-maven-error-loc-pat)
-
-(setf (gethash "font-lock-keywords" realgud:jdb-pat-hash)
- '(
- ;; The frame number and first type name, if present.
- ;; FIXME: use realgud:jdb-identifier
- ("^\\(-->\\| \\)? #\\([0-9]+\\) \\([A-Z]+\\)
*\\([A-Z_][a-zA-Z0-9_]*\\)[#]\\([a-zA-Z_][a-zA-Z_[0-9]]*\\)?"
- (2 realgud-backtrace-number-face)
- (3 font-lock-keyword-face) ; e.g. METHOD, TOP
- (4 font-lock-constant-face) ; e.g. Object
- (5 font-lock-function-name-face nil t)) ; t means optional
- ;; Instruction sequence
- ("<\\(.+\\)>"
- (1 font-lock-variable-name-face))
- ;; "::Type", which occurs in class name of function and in parameter
list.
- ;; Parameter sequence
- ("(\\(.+\\))"
- (1 font-lock-variable-name-face))
- ;; "::Type", which occurs in class name of function and in parameter
list.
- ("::\\([a-zA-Z_][a-zA-Z0-9_]*\\)"
- (1 font-lock-type-face))
- ;; File name.
- ("[ \t]+in file \\([^ ]+*\\)"
- (1 realgud-file-name-face))
- ;; Line number.
- ("[ \t]+at line \\([0-9]+\\)$"
- (1 realgud-line-number-face))
- ;; Function name.
- ("\\<\\([a-zA-Z_][a-zA-Z0-9_]*\\)\\.\\([a-zA-Z_][a-zA-Z0-9_]*\\)"
- (1 font-lock-type-face)
- (2 font-lock-function-name-face))
- ;; (jdb-frames-match-current-line
- ;; (0 jdb-frames-current-frame-face append))
- ))
-
-;; (setf (gethash "font-lock-keywords" realgud:jdb-pat-hash)
-;; '(
-;; ;; The frame number and first type name, if present.
-;; ((concat realgud:jdb-frame-start-regexp " "
-;; realgud:jdb-frame-num-regexp " "
-;; "\\([A-Z]+\\)
*\\([A-Z_][a-zA-Z0-9_]*\\)[#]\\([a-zA-Z_][a-zA-Z_[0-9]]*\\)?")
-;; (2 realgud-backtrace-number-face)
-;; (3 font-lock-keyword-face) ; e.g. METHOD, TOP
-;; (4 font-lock-constant-face) ; e.g. Object
-;; (5 font-lock-function-name-face nil t)) ; t means optional
-;; ;; Instruction sequence
-;; ("<\\(.+\\)>"
-;; (1 font-lock-variable-name-face))
-;; ;; "::Type", which occurs in class name of function and in
-;; ;; parameter list. Parameter sequence
-;; ("(\\(.+\\))"
-;; (1 font-lock-variable-name-face))
-;; ;; "::Type", which occurs in class name of function and in
-;; ;; parameter list.
-;; ("::\\([a-zA-Z_][a-zA-Z0-9_]*\\)"
-;; (1 font-lock-type-face))
-;; ;; File name.
-;; (realgud:jdb-frame-file-regexp (1 realgud-file-name-face))
-;; ;; Line number.
-;; (realgud:jdb-frame-line-regexp (1 realgud-line-number-face))
-;; ;; Function name.
-;; ("\\<\\([a-zA-Z_][a-zA-Z0-9_]*\\)\\.\\([a-zA-Z_][a-zA-Z0-9_]*\\)"
-;; (1 font-lock-type-face)
-;; (2 font-lock-function-name-face))
-;; ;; (jdb-frames-match-current-line
-;; ;; (0 jdb-frames-current-frame-face append))
-;; ))
-
-;; realgud-loc-pat for a termination message.
-(setf (gethash "termination" realgud:jdb-pat-hash)
- "^The application exited\n")
-
-(setf (gethash realgud:jdb-debugger-name realgud-pat-hash)
realgud:jdb-pat-hash)
-
-(defvar realgud:jdb-command-hash (make-hash-table :test 'equal)
- "Hash key is command name like 'quit' and the value is
- the jdb command to use, like 'quit!'")
-
-(setf (gethash realgud:jdb-debugger-name
- realgud-command-hash) realgud:jdb-command-hash)
-
-;; Prefix used in variable names (e.g. short-key-mode-map) for
-;; this debugger
-
-(setf (gethash "jdb" realgud:variable-basename-hash) "realgud:jdb")
-
-
-(setf (gethash "backtrace" realgud:jdb-command-hash) "where")
-
-;; For these we need to deal with java classpaths.
-;; Also jdb is pretty sucky when it comes to giving an prompt that
-;; we can write a regex for. So we don't even know often when there
-;; is a prompt!
-(setf (gethash "break" realgud:jdb-command-hash) "*not-implemented*")
-(setf (gethash "clear" realgud:jdb-command-hash) "*not-implemented*")
-(setf (gethash "restart" realgud:jdb-command-hash) "*not-implemented*")
-
-(setf (gethash "continue" realgud:jdb-command-hash) "cont")
-(setf (gethash "finish" realgud:jdb-command-hash) "step up")
-(setf (gethash "up" realgud:jdb-command-hash) "up\C-Mwhere")
-(setf (gethash "down" realgud:jdb-command-hash) "down\C-Mwhere")
-
-
-(provide-me "realgud:jdb-")
diff --git a/packages/realgud/realgud/debugger/jdb/jdb.el
b/packages/realgud/realgud/debugger/jdb/jdb.el
deleted file mode 100644
index 047dd51..0000000
--- a/packages/realgud/realgud/debugger/jdb/jdb.el
+++ /dev/null
@@ -1,111 +0,0 @@
-;; Copyright (C) 2014-2017 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; `jdb' Main interface to jdb via Emacs
-
-(require 'gud) ;; For class-path and source-path handling
-
-(require 'load-relative)
-(require-relative-list '("../../common/run") "realgud:")
-(require-relative-list '("../../common/helper" "../../common/utils")
- "realgud-")
-(require-relative-list '("core" "track-mode") "realgud:jdb-")
-
-(declare-function realgud:jdb-query-cmdline 'realgud:jdb-core)
-(declare-function realgud:jdb-parse-cmd-args 'realgud:jdb-core)
-(declare-function realgud:run-process 'realgud:core)
-(declare-function realgud:flatten 'realgud-utils)
-
-
-;; This is needed, or at least the docstring part of it is needed to
-;; get the customization menu to work in Emacs 24.
-(defgroup realgud:jdb nil
- "The realgud interface to the Java's jdb debugger"
- :group 'java
- :group 'realgud
- :version "24.3")
-
-;; -------------------------------------------------------------------
-;; User-definable variables
-;;
-
-(defcustom realgud:jdb-command-name
- ;;"jdb --emacs 3"
- "jdb"
- "File name for executing the Java debugger and command options.
-This should be an executable on your path, or an absolute file name."
- :type 'string
- :group 'realgud:jdb)
-
-;;;###autoload
-(defun realgud:jdb (&optional opt-cmd-line no-reset)
- "Invoke the Java jdb debugger and start the Emacs user interface.
-
-String OPT-CMD-LINE is treated like a shell string; arguments are
-tokenized by `split-string-and-unquote'. The tokenized string is
-parsed by `jdb-parse-cmd-args' and path elements found by that
-are expanded using `expand-file-name'.
-
-Normally, command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset. See `loc-changes-clear-buffer' to clear
-fringe and marginal icons.
-"
- (interactive)
-
- (setq gud-jdb-classpath nil)
- (setq gud-jdb-sourcepath nil)
- ;; Set gud-jdb-classpath from the CLASSPATH environment variable,
- ;; if CLASSPATH is set.
- (setq gud-jdb-classpath-string (or (getenv "CLASSPATH") "."))
- (if gud-jdb-classpath-string
- (setq gud-jdb-classpath
- (gud-jdb-parse-classpath-string gud-jdb-classpath-string)))
-
- (setq gud-jdb-class-source-alist
- (gud-jdb-build-class-source-alist
- (setq gud-jdb-source-files
- (gud-jdb-build-source-files-list gud-jdb-directories
- "\\.java$"))))
- (fset 'gud-jdb-find-source 'gud-jdb-find-source-file)
-
-
- ;; reset for future invocations
- (setq gud-jdb-classpath-string nil)
-
- (let* (
- (cmd-str (or opt-cmd-line (realgud:jdb-query-cmdline "jdb")))
- (cmd-args (split-string-and-unquote cmd-str))
- (parsed-args (realgud:jdb-parse-cmd-args cmd-args))
- (script-args (caddr parsed-args))
- (script-name (car script-args))
- (parsed-cmd-args
- (cl-remove-if 'nil (realgud:flatten parsed-args)))
- (cmd-buf (realgud:run-process "jdb" script-name parsed-cmd-args
- 'realgud:jdb-track-mode-hook no-reset))
- )
- (if cmd-buf
- (with-current-buffer cmd-buf
- (set (make-local-variable 'realgud:jdb-file-remap)
- (make-hash-table :test 'equal))
- )
- )
- )
- )
-
-;;;###autoload
-(defalias 'jdb 'realgud:jdb)
-(provide-me "realgud-")
-
-;; Local Variables:
-;; byte-compile-warnings: (not cl-functions)
-;; End:
diff --git a/packages/realgud/realgud/debugger/jdb/track-mode.el
b/packages/realgud/realgud/debugger/jdb/track-mode.el
deleted file mode 100644
index 567cc74..0000000
--- a/packages/realgud/realgud/debugger/jdb/track-mode.el
+++ /dev/null
@@ -1,93 +0,0 @@
-;; Copyright (C) 2015-2017 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; Java "jdb" Debugger tracking a comint or eshell buffer.
-
-(require 'load-relative)
-(require-relative-list '(
- "../../common/cmds"
- "../../common/menu"
- "../../common/track"
- "../../common/track-mode"
- )
- "realgud-")
-(require-relative-list '("core" "init") "realgud:jdb-")
-(require-relative-list '("../../lang/java") "realgud-lang-")
-
-(declare-function realgud-track-mode 'realgud-track-mode)
-(declare-function realgud-track-mode-hook 'realgud-track-mode)
-(declare-function realgud-track-mode-setup 'realgud-track-mode)
-(declare-function realgud:track-set-debugger 'realgud-track-mode)
-(declare-function realgud-goto-line-for-pt 'realgud-track-mode)
-(declare-function realgud-java-populate-command-keys 'realgud-lang-java)
-
-(realgud-track-mode-vars "realgud:jdb")
-;;(defvaralias 'jdb-short-key-mode-map 'realgud:jdb-short-key-mode-map)
-;;(defvaralias 'jdb-track-mode 'realgud:track-mode)
-
-(realgud-java-populate-command-keys realgud:jdb-track-mode-map)
-
-
-(define-key realgud-track-mode-map
- (kbd "C-c !!") 'realgud:goto-lang-backtrace-line)
-(define-key realgud-track-mode-map
- (kbd "C-c !b") 'realgud:goto-debugger-backtrace-line)
-
-(defun realgud:jdb-goto-control-frame-line (pt)
- "Display the location mentioned by a control-frame line
-described by PT."
- (interactive "d")
- (realgud-goto-line-for-pt pt "control-frame"))
-
-(defun realgud:jdb-goto-syntax-error-line (pt)
- "Display the location mentioned in a Syntax error line
-described by PT."
- (interactive "d")
- (realgud-goto-line-for-pt pt "syntax-error"))
-
-(define-key realgud:jdb-track-mode-map
- (kbd "C-c !c") 'realgud:jdb-goto-control-frame-line)
-(define-key realgud:jdb-track-mode-map
- (kbd "C-c !s") 'realgud:jdb-goto-syntax-error-line)
-
-(defun realgud:jdb-track-mode-hook()
- (if realgud:jdb-track-mode
- (progn
- (use-local-map realgud:jdb-track-mode-map)
- (message "using realgud:jdb-track-mode-map"))
- ;; else
- (progn
- (setq realgud-track-mode nil)
- ))
-)
-
-(define-minor-mode realgud:jdb-track-mode
- "Minor mode for tracking jdb source locations inside a process shell via
realgud. jdb is a Ruby debugger.
-
-If called interactively with no prefix argument, the mode is toggled. A prefix
argument, captured as ARG, enables the mode if the argument is positive, and
disables it otherwise.
-
-\\{realgud:jdb-track-mode-map}
-"
- :init-value nil
- ;; :lighter " jdb" ;; mode-line indicator from realgud-track is sufficient.
- ;; The minor mode bindings.
- :global nil
- :group 'realgud:jdb
- :keymap realgud:jdb-track-mode-map
- (realgud:track-set-debugger "jdb")
- (if realgud:jdb-track-mode
- (progn
- (realgud-track-mode-setup 't)
- (realgud:jdb-track-mode-hook))
- (progn
- (setq realgud-track-mode nil)
- ))
-)
-
-(provide-me "realgud:jdb-")
diff --git a/packages/realgud/realgud/debugger/kshdb/Makefile.am
b/packages/realgud/realgud/debugger/kshdb/Makefile.am
deleted file mode 100644
index e6c68b4..0000000
--- a/packages/realgud/realgud/debugger/kshdb/Makefile.am
+++ /dev/null
@@ -1,5 +0,0 @@
-include ../common.mk
-
-lisp_files = $(wildcard *.el)
-lisp_LISP = $(lisp_files)
-EXTRA_DIST = $(lisp_files)
diff --git a/packages/realgud/realgud/debugger/kshdb/core.el
b/packages/realgud/realgud/debugger/kshdb/core.el
deleted file mode 100644
index a9dd6a8..0000000
--- a/packages/realgud/realgud/debugger/kshdb/core.el
+++ /dev/null
@@ -1,175 +0,0 @@
-;; Copyright (C) 2010, 2014-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-(require 'load-relative)
-(require-relative-list '("../../common/track" "../../common/core") "realgud-")
-(require-relative-list '("init") "realgud:kshdb-")
-
-(declare-function realgud:expand-file-name-if-exists 'realgud-core)
-(declare-function realgud-parse-command-arg 'realgud-core)
-(declare-function realgud-query-cmdline 'realgud-core)
-(declare-function realgud-suggest-invocation 'realgud-core)
-
-;; FIXME: I think the following could be generalized and moved to
-;; realgud-... probably via a macro.
-(defvar realgud:kshdb-minibuffer-history nil
- "minibuffer history list for the command `kshdb'.")
-
-(easy-mmode-defmap kshdb-minibuffer-local-map
- '(("\C-i" . comint-dynamic-complete-filename))
- "Keymap for minibuffer prompting of gud startup command."
- :inherit minibuffer-local-map)
-
-;; FIXME: I think this code and the keymaps and history
-;; variable chould be generalized, perhaps via a macro.
-(defun kshdb-query-cmdline (&optional opt-debugger)
- (realgud-query-cmdline
- 'kshdb-suggest-invocation
- kshdb-minibuffer-local-map
- 'realgud:kshdb-minibuffer-history
- opt-debugger))
-
-;;; FIXME: DRY this with other *-parse-cmd-args routines
-(defun kshdb-parse-cmd-args (orig-args)
- "Parse command line ARGS for the annotate level and name of script to debug.
-
-ARGS should contain a tokenized list of the command line to run.
-
-We return the a list containing
-- the command processor (e.g. kshdb) and it's arguments if any - a list of
strings
-- the name of the debugger given (e.g. kshdb) and its arguments - a list of
strings
-- the script name and its arguments - list of strings
-- whether the annotate or emacs option was given ('-A', '--annotate' or
'--emacs) - a boolean
-
-For example for the following input
- (map 'list 'symbol-name
- '(ksh -W -C /tmp kshdb --emacs ./gcd.rb a b))
-
-we might return:
- ((ksh -W -C) (kshdb --emacs) (./gcd.rb a b) 't)
-
-NOTE: the above should have each item listed in quotes.
-"
-
- ;; Parse the following kind of pattern:
- ;; [ksh ksh-options] kshdb kshdb-options script-name script-options
- (let (
- (args orig-args)
- (pair) ;; temp return from
- ;; ksh doesn't have any optional two-arg options
- (ksh-opt-two-args '())
- (ksh-two-args '("o" "c"))
-
- ;; One dash is added automatically to the below, so
- ;; h is really -h and -host is really --host.
- (kshdb-two-args '("A" "-annotate" "l" "-library"
- "-highlight" "-no-highlight"
- "c" "-command" "-t" "-tty"
- "x" "-eval-command"))
- (kshdb-opt-two-args '())
- (interp-regexp
- (if (member system-type (list 'windows-nt 'cygwin 'msdos))
- "^ksh*\\(.exe\\)?$"
- "^ksh*$"))
-
- ;; Things returned
- (script-name nil)
- (debugger-name nil)
- (interpreter-args '())
- (debugger-args '())
- (script-args '())
- (annotate-p nil))
-
- (if (not (and args))
- ;; Got nothing: return '(nil, nil)
- (list interpreter-args debugger-args script-args annotate-p)
- ;; else
- ;; Strip off optional "ruby" or "ruby182" etc.
- (when (string-match interp-regexp
- (file-name-sans-extension
- (file-name-nondirectory (car args))))
- (setq interpreter-args (list (pop args)))
-
- ;; Strip off Ruby-specific options
- (while (and args
- (string-match "^-" (car args)))
- (setq pair (realgud-parse-command-arg
- args ksh-two-args ksh-opt-two-args))
- (nconc interpreter-args (car pair))
- (setq args (cadr pair))))
-
- ;; Remove "kshdb" from "kshdb --kshdb-options script
- ;; --script-options"
- (setq debugger-name (file-name-sans-extension
- (file-name-nondirectory (car args))))
- (unless (string-match "^kshdb$" debugger-name)
- (message
- "Expecting debugger name `%s' to be `kshdb'"
- debugger-name))
- (setq debugger-args (list (pop args)))
-
- ;; Skip to the first non-option argument.
- (while (and args (not script-name))
- (let ((arg (car args)))
- (cond
- ;; Annotation or emacs option with level number.
- ((or (member arg '("--annotate" "-A"))
- (equal arg "--emacs"))
- (setq annotate-p t)
- (nconc debugger-args (list (pop args))))
- ;; Combined annotation and level option.
- ((string-match "^--annotate=[0-9]" arg)
- (nconc debugger-args (list (pop args)) )
- (setq annotate-p t))
- ;; Options with arguments.
- ((string-match "^-" arg)
- (setq pair (realgud-parse-command-arg
- args kshdb-two-args kshdb-opt-two-args))
- (nconc debugger-args (car pair))
- (setq args (cadr pair)))
- ;; Anything else must be the script to debug.
- (t (setq script-name (realgud:expand-file-name-if-exists arg))
- (setq script-args (cons script-name (cdr args))))
- )))
- (list interpreter-args debugger-args script-args annotate-p))))
-
-;;To silence Warning: reference to free variable
-(defvar realgud:kshdb-command-name)
-
-(defun kshdb-suggest-invocation (debugger-name)
- "Suggest a kshdb command invocation via `realgud-suggest-invocaton'"
- (realgud-suggest-invocation (or debugger-name realgud:kshdb-command-name)
- realgud:kshdb-minibuffer-history
- "sh" "\\.\\(?:k\\)?sh$"))
-
-(defun kshdb-reset ()
- "Kshdb cleanup - remove debugger's internal buffers (frame,
-breakpoints, etc.)."
- (interactive)
- ;; (kshdb-breakpoint-remove-all-icons)
- (dolist (buffer (buffer-list))
- (when (string-match "\\*kshdb-[a-z]+\\*" (buffer-name buffer))
- (let ((w (get-buffer-window buffer)))
- (when w
- (delete-window w)))
- (kill-buffer buffer))))
-
-;; (defun kshdb-reset-keymaps()
-;; "This unbinds the special debugger keys of the source buffers."
-;; (interactive)
-;; (setcdr (assq 'kshdb-debugger-support-minor-mode minor-mode-map-alist)
-;; kshdb-debugger-support-minor-mode-map-when-deactive))
-
-
-(defun realgud:kshdb-customize ()
- "Use `customize' to edit the settings of the `kshdb' debugger."
- (interactive)
- (customize-group 'realgud:kshdb))
-
-(provide-me "realgud:kshdb-")
diff --git a/packages/realgud/realgud/debugger/kshdb/init.el
b/packages/realgud/realgud/debugger/kshdb/init.el
deleted file mode 100644
index ed4281c..0000000
--- a/packages/realgud/realgud/debugger/kshdb/init.el
+++ /dev/null
@@ -1,126 +0,0 @@
-;; Copyright (C) 2010-2011, 2016-2017 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;;Regular expressions for Korn shell debugger: kshdb
-
-(eval-when-compile (require 'cl-lib)) ;For setf.
-
-(require 'load-relative)
-(require-relative-list '("../../common/regexp"
- "../../common/loc"
- "../../common/init")
- "realgud-")
-(require-relative-list '("../../lang/posix-shell") "realgud-lang-")
-
-(defvar realgud-pat-hash)
-(declare-function make-realgud-loc-pat (realgud-loc))
-
-(defvar realgud:kshdb-pat-hash (make-hash-table :test 'equal)
- "Hash key is the what kind of pattern we want to match:
-backtrace, prompt, etc. The values of a hash entry is a
-realgud-loc-pat struct")
-
-;; Top frame number
-(setf (gethash "top-frame-num" realgud:kshdb-pat-hash) 0)
-
-;; Regular expression that describes a kshdb location generally shown
-;; before a command prompt.
-;; For example:
-;; (/etc/init.d/apparmor:35):
-(setf (gethash "loc" realgud:kshdb-pat-hash)
- (make-realgud-loc-pat
- :regexp "\\(^\\|\n\\)(\\([^:]+\\):\\([0-9]*\\))"
- :file-group 2
- :line-group 3))
-
-;; For example:
-;; kshdb<10>
-;; kshdb<(5)>
-;; kshdb<<1>>
-(setf (gethash "prompt" realgud:kshdb-pat-hash)
- (make-realgud-loc-pat
- :regexp "^kshdb[<]+[(]*\\([0-9]+\\)[)]*[>]+ "
- :num 1
- ))
-
-;; Regular expression that describes a "breakpoint set" line
-(setf (gethash "brkpt-set" realgud:kshdb-pat-hash)
- (make-realgud-loc-pat
- :regexp "^Breakpoint \\([0-9]+\\) set in file \\(.+\\), line
\\([0-9]+\\).\n"
- :num 1
- :file-group 2
- :line-group 3))
-
-;; Regular expression that describes a debugger "delete" (breakpoint) response.
-;; For example:
-;; Removed 1 breakpoint(s).
-(setf (gethash "brkpt-del" realgud:kshdb-pat-hash)
- (make-realgud-loc-pat
- :regexp "^Removed \\([0-9]+\\) breakpoints(s).\n"
- :num 1))
-
-;; Regular expression that describes a debugger "backtrace" command line.
-;; For example:
-;; ->0 in file `/etc/apparmor/fns' at line 24
-;; ##1 /etc/apparmor/fns called from file `/etc/init.d/apparmor' at line 35
-;; ##2 /etc/init.d/apparmor called from file `/usr/bin/kshdb' at line 129
-(setf (gethash "debugger-backtrace" realgud:kshdb-pat-hash)
- (make-realgud-loc-pat
- :regexp (concat realgud-shell-frame-start-regexp
- realgud-shell-frame-num-regexp "[ ]?"
- "\\(.*\\)"
- realgud-shell-frame-file-regexp
- "\\(?:" realgud-shell-frame-line-regexp "\\)?"
- )
- :num 2
- :file-group 4
- :line-group 5)
- )
-
-;; Regular expression that for a termination message.
-(setf (gethash "termination" realgud:kshdb-pat-hash)
- "^kshdb: That's all, folks...\n")
-
-(setf (gethash "font-lock-keywords" realgud:kshdb-pat-hash)
- '(
- ;; The frame number and first type name, if present.
- ;; E.g. ->0 in file `/etc/init.d/apparmor' at line 35
- ;; --^-
- ("^\\(->\\|##\\)\\([0-9]+\\) "
- (2 realgud-backtrace-number-face))
-
- ;; File name.
- ;; E.g. ->0 in file `/etc/init.d/apparmor' at line 35
- ;; ---------^^^^^^^^^^^^^^^^^^^^-
- ("[ \t]+\\(in\\|from\\) file `\\(.+\\)'"
- (2 realgud-file-name-face))
-
- ;; File name.
- ;; E.g. ->0 in file `/etc/init.d/apparmor' at line 35
- ;; --------^^
- ;; Line number.
- ("[ \t]+at line \\([0-9]+\\)$"
- (1 realgud-line-number-face))
- ;; (trepan-frames-match-current-line
- ;; (0 trepan-frames-current-frame-face append))
- ))
-
-(setf (gethash "kshdb" realgud-pat-hash) realgud:kshdb-pat-hash)
-
-(defvar realgud:kshdb-command-hash (make-hash-table :test 'equal)
- "hash key is command name like 'quit' and the value is
- the trepan command to use, like 'quit!'")
-
-;; (setf (gethash "quit" realgud:kshdb-command-hash) "quit!")
-
-(setf (gethash "kshdb" realgud-pat-hash) realgud:kshdb-pat-hash)
-(setf (gethash "clear" realgud:kshdb-command-hash) "clear %l")
-(setf (gethash "eval" realgud:kshdb-command-hash) "eval %s")
-
-(provide-me "realgud:kshdb-")
diff --git a/packages/realgud/realgud/debugger/kshdb/kshdb.el
b/packages/realgud/realgud/debugger/kshdb/kshdb.el
deleted file mode 100644
index 397d832..0000000
--- a/packages/realgud/realgud/debugger/kshdb/kshdb.el
+++ /dev/null
@@ -1,71 +0,0 @@
-;; Copyright (C) 2011, 2014-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; `kshdb' Main interface to kshdb via Emacs
-(require 'load-relative)
-(require-relative-list '("../../common/helper") "realgud-")
-(require-relative-list '("../../common/track") "realgud-")
-(require-relative-list '("core" "track-mode") "realgud:kshdb-")
-;; This is needed, or at least the docstring part of it is needed to
-;; get the customization menu to work in Emacs 24.
-(defgroup realgud:kshdb nil
- "The realgud interface to the Korn shell debugger, kshdb"
- :group 'realgud
- :version "24.3")
-
-;; -------------------------------------------------------------------
-;; User definable variables
-;;
-
-(defcustom realgud:kshdb-command-name
- ;;"kshdb --emacs 3"
- "kshdb"
- "File name for executing the kshdb and its command options.
-This should be an executable on your path, or an absolute file name."
- :type 'string
- :group 'realgud:kshdb)
-
-(declare-function kshdb-track-mode (bool))
-(declare-function kshdb-query-cmdline 'realgud:kshdb-core)
-(declare-function kshdb-parse-cmd-args 'realgud:kshdb-core)
-(declare-function realgud:run-process 'realgud-run)
-
-;; -------------------------------------------------------------------
-;; The end.
-;;
-
-;;;###autoload
-(defun realgud:kshdb (&optional opt-command-line no-reset)
- "Invoke the Korn shell debugger, kshdb, and start the Emacs user interface.
-
-String COMMAND-LINE specifies how to run kshdb.
-
-Normally command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset."
- (interactive)
- (let* ((cmd-str (or opt-command-line (kshdb-query-cmdline "kshdb")))
- (cmd-args (split-string-and-unquote cmd-str))
- (parsed-args (kshdb-parse-cmd-args cmd-args))
- (script-args (cdr cmd-args))
- (script-name (car script-args))
- (cmd-buf))
- (realgud:run-process "kshdb" script-name cmd-args
- 'realgud:kshdb-minibuffer-history
- no-reset)
- ))
-
-;;;###autoload
-(defalias 'kshdb 'realgud:kshdb)
-(provide-me "realgud-")
-
-;;; kshdb.el ends here
diff --git a/packages/realgud/realgud/debugger/kshdb/track-mode.el
b/packages/realgud/realgud/debugger/kshdb/track-mode.el
deleted file mode 100644
index a80da63..0000000
--- a/packages/realgud/realgud/debugger/kshdb/track-mode.el
+++ /dev/null
@@ -1,72 +0,0 @@
-;; Copyright (C) 2015-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-;;; "kshdb" Debugger tracking a comint or eshell buffer.
-
-(require 'load-relative)
-(require-relative-list '(
- "../../common/cmds"
- "../../common/menu"
- "../../common/track"
- "../../common/track-mode"
- )
- "realgud-")
-(require-relative-list '("core" "init") "realgud:kshdb-")
-
-(declare-function realgud:track-set-debugger 'realgud-track-mode)
-(declare-function realgud-track-mode-setup 'realgud-track-mode)
-(declare-function realgud-posix-shell-populate-command-keys
- 'realgud-lang-posix-shell)
-
-(realgud-track-mode-vars "kshdb")
-(realgud-posix-shell-populate-command-keys kshdb-track-mode-map)
-
-(declare-function realgud-track-mode(bool))
-
-(defun kshdb-track-mode-hook()
- (if kshdb-track-mode
- (progn
- (use-local-map kshdb-track-mode-map)
- (message "using kshdb mode map")
- )
- (message "kshdb track-mode-hook disable called"))
-)
-
-(define-minor-mode kshdb-track-mode
- "Minor mode for tracking kshdb source locations inside a process shell via
realgud. kshdb is a Korn Shell debugger.
-
-If called interactively with no prefix argument, the mode is toggled. A prefix
argument, captured as ARG, enables the mode if the argument is positive, and
disables it otherwise.
-
-\\{kshdb-track-mode-map}
-"
- :init-value nil
- ;; :lighter " kshdb" ;; mode-line indicator from realgud-track is
sufficient.
- ;; The minor mode bindings.
- :global nil
- :group 'kshdb
- :keymap kshdb-track-mode-map
-
- (realgud:track-set-debugger "kshdb")
- (if kshdb-track-mode
- (progn
- (realgud-track-mode 't)
- (kshdb-track-mode-hook))
- (progn
- (realgud-track-mode nil)
- ))
-)
-
-(provide-me "realgud:kshdb-")
diff --git a/packages/realgud/realgud/debugger/nodejs/Makefile.am
b/packages/realgud/realgud/debugger/nodejs/Makefile.am
deleted file mode 100644
index e6c68b4..0000000
--- a/packages/realgud/realgud/debugger/nodejs/Makefile.am
+++ /dev/null
@@ -1,5 +0,0 @@
-include ../common.mk
-
-lisp_files = $(wildcard *.el)
-lisp_LISP = $(lisp_files)
-EXTRA_DIST = $(lisp_files)
diff --git a/packages/realgud/realgud/debugger/nodejs/core.el
b/packages/realgud/realgud/debugger/nodejs/core.el
deleted file mode 100644
index c60af97..0000000
--- a/packages/realgud/realgud/debugger/nodejs/core.el
+++ /dev/null
@@ -1,166 +0,0 @@
-;; Copyright (C) 2015-2017 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-(require 'load-relative)
-(require-relative-list '("../../common/track" "../../common/core")
- "realgud-")
-(require-relative-list '("init") "realgud:nodejs-")
-
-(declare-function realgud:expand-file-name-if-exists 'realgud-core)
-(declare-function realgud-parse-command-arg 'realgud-core)
-(declare-function realgud-query-cmdline 'realgud-core)
-(declare-function realgud-suggest-invocation 'realgud-core)
-
-;; FIXME: I think the following could be generalized and moved to
-;; realgud-... probably via a macro.
-(defvar realgud:nodejs-minibuffer-history nil
- "minibuffer history list for the command `nodejs'.")
-
-(easy-mmode-defmap realgud:nodejs-minibuffer-local-map
- '(("\C-i" . comint-dynamic-complete-filename))
- "Keymap for minibuffer prompting of nodejs startup command."
- :inherit minibuffer-local-map)
-
-;; FIXME: I think this code and the keymaps and history
-;; variable chould be generalized, perhaps via a macro.
-(defun nodejs-query-cmdline (&optional opt-debugger)
- (realgud-query-cmdline
- 'realgud:nodejs-suggest-invocation
- realgud:nodejs-minibuffer-local-map
- 'realgud:nodejs-minibuffer-history
- opt-debugger))
-
-;;; FIXME: DRY this with other *-parse-cmd-args routines
-(defun nodejs-parse-cmd-args (orig-args)
- "Parse command line ORIG-ARGS for the name of script to debug.
-
-ORIG-ARGS should contain a tokenized list of the command line to run.
-
-We return the a list containing
-* the name of the debugger given (e.g. nodejs) and its arguments - a list of
strings
-* the script name and its arguments - list of strings
-
-For example for the following input:
- (map 'list 'symbol-name
- '(node --interactive --debugger-port 5858 /tmp nodejs ./gcd.js a b))
-
-we might return:
- ((\"node\" \"--interactive\" \"--debugger-port\" \"5858\") nil
(\"/tmp/gcd.js\" \"a\" \"b\"))
-
-Note that path elements have been expanded via `expand-file-name'.
-"
-
- ;; Parse the following kind of pattern:
- ;; node nodejs-options script-name script-options
- (let (
- (args orig-args)
- (pair) ;; temp return from
- (node-two-args '("-debugger_port" "C" "D" "i" "l" "m" "-module" "x"))
- ;; node doesn't have any optional two-arg options
- (node-opt-two-args '())
-
- ;; One dash is added automatically to the below, so
- ;; h is really -h and -debugger_port is really --debugger_port.
- (nodejs-two-args '("-debugger_port"))
- (nodejs-opt-two-args '())
-
- ;; Things returned
- (script-name nil)
- (debugger-name nil)
- (interpreter-args '())
- (script-args '())
- )
- (if (not (and args))
- ;; Got nothing: return '(nil, nil, nil)
- (list interpreter-args nil script-args)
- ;; else
- (progn
- ;; Remove "nodejs" (or "nodemon" or "node") from invocation like:
- ;; nodejs --nodejs-options script --script-options
- (setq debugger-name (file-name-sans-extension
- (file-name-nondirectory (car args))))
- (unless (string-match "^node\\(?:js\\|mon\\)?$" debugger-name)
- (message
- "Expecting debugger name `%s' to be `node', `nodemon', or `nodejs'"
- debugger-name))
- (setq interpreter-args (list (pop args)))
-
- ;; Skip to the first non-option argument.
- (while (and args (not script-name))
- (let ((arg (car args)))
- (cond
- ((equal "debug" arg)
- (nconc interpreter-args (list arg))
- (setq args (cdr args))
- )
-
- ;; Options with arguments.
- ((string-match "^-" arg)
- (setq pair (realgud-parse-command-arg
- args nodejs-two-args nodejs-opt-two-args))
- (nconc interpreter-args (car pair))
- (setq args (cadr pair)))
- ;; Anything else must be the script to debug.
- (t (setq script-name (realgud:expand-file-name-if-exists arg))
- (setq script-args (cons script-name (cdr args))))
- )))
- (list interpreter-args nil script-args)))
- ))
-
-;; To silence Warning: reference to free variable
-(defvar realgud:nodejs-command-name)
-
-(defun realgud:nodejs-suggest-invocation (debugger-name)
- "Suggest a nodejs command invocation via `realgud-suggest-invocaton'"
- (realgud-suggest-invocation realgud:nodejs-command-name
- realgud:nodejs-minibuffer-history
- "js" "\\.js$"))
-
-(defun realgud:nodejs-remove-ansi-shmutz()
- "Remove ASCII escape sequences that node.js 'decorates' in
-prompts and interactive output with"
- (add-to-list
- 'comint-preoutput-filter-functions
- (lambda (output)
- (replace-regexp-in-string "\033\\[[0-9]+[GKJ]" "" output)))
- )
-
-(defun realgud:nodejs-reset ()
- "Nodejs cleanup - remove debugger's internal buffers (frame,
-breakpoints, etc.)."
- (interactive)
- ;; (nodejs-breakpoint-remove-all-icons)
- (dolist (buffer (buffer-list))
- (when (string-match "\\*nodejs-[a-z]+\\*" (buffer-name buffer))
- (let ((w (get-buffer-window buffer)))
- (when w
- (delete-window w)))
- (kill-buffer buffer))))
-
-;; (defun nodejs-reset-keymaps()
-;; "This unbinds the special debugger keys of the source buffers."
-;; (interactive)
-;; (setcdr (assq 'nodejs-debugger-support-minor-mode minor-mode-map-alist)
-;; nodejs-debugger-support-minor-mode-map-when-deactive))
-
-
-(defun realgud:nodejs-customize ()
- "Use `customize' to edit the settings of the `nodejs' debugger."
- (interactive)
- (customize-group 'realgud:nodejs))
-
-(provide-me "realgud:nodejs-")
diff --git a/packages/realgud/realgud/debugger/nodejs/init.el
b/packages/realgud/realgud/debugger/nodejs/init.el
deleted file mode 100644
index a095dec..0000000
--- a/packages/realgud/realgud/debugger/nodejs/init.el
+++ /dev/null
@@ -1,185 +0,0 @@
-;; Copyright (C) 2015-2016, 2018 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-;;; "node debug" debugger
-
-;;; Note: this code is obsolete. FIXME: Move into another repository
-;;; Regular expressions for nodejs Javascript debugger.
-
-(eval-when-compile (require 'cl-lib)) ;For setf.
-
-(require 'load-relative)
-(require-relative-list '("../../common/regexp"
- "../../common/loc"
- "../../common/init")
- "realgud-")
-(require-relative-list '("../../lang/js") "realgud-lang-")
-
-(defvar realgud:nodejs-pat-hash)
-(declare-function make-realgud-loc-pat (realgud-loc))
-
-(defvar realgud:nodejs-pat-hash (make-hash-table :test 'equal)
- "Hash key is the what kind of pattern we want to match:
-backtrace, prompt, etc. The values of a hash entry is a
-realgud-loc-pat struct")
-
-;; before a command prompt.
-;; For example:
-;; break in /home/indutny/Code/git/indutny/myscript.js:1
-(setf (gethash "loc" realgud:nodejs-pat-hash)
- (make-realgud-loc-pat
- :regexp (format
- "\\(?:%s\\)*\\(?:break\\|exception\\) in %s:%s"
- realgud:js-term-escape "\\([^:]+\\)"
- realgud:regexp-captured-num)
- :file-group 1
- :line-group 2))
-
-;; Regular expression that describes a node-debug command prompt
-;; For example:
-;; debug>
-(setf (gethash "prompt" realgud:nodejs-pat-hash)
- (make-realgud-loc-pat
- :regexp (format "^\\(?:%s\\)*debug> " realgud:js-term-escape)
- ))
-
-;; Regular expression that describes a "breakpoint set" line
-;;
-;; (setf (gethash "brkpt-set" realgud:nodejs-pat-hash)
-;; (make-realgud-loc-pat
-;; :regexp "^[*] \\([0-9]+\\) "
-;; :line-group 1))
-
-;; Regular expression that describes a V8 backtrace line.
-;; For example:
-;; at repl:1:7
-;; at Interface.controlEval
(/src/external-vcs/github/trepanjs/lib/interface.js:352:18)
-;; at REPLServer.b [as eval] (domain.js:183:18)
-(setf (gethash "lang-backtrace" realgud:nodejs-pat-hash)
- realgud:js-backtrace-loc-pat)
-
-;; Regular expression that describes a debugger "delete" (breakpoint)
-;; response.
-;; For example:
-;; Removed 1 breakpoint(s).
-(setf (gethash "brkpt-del" realgud:nodejs-pat-hash)
- (make-realgud-loc-pat
- :regexp (format "^Removed %s breakpoint(s).\n"
- realgud:regexp-captured-num)
- :num 1))
-
-
-(defconst realgud:nodejs-frame-start-regexp "\\(?:^\\|\n\\)\\(?:#\\)")
-(defconst realgud:nodejs-frame-num-regexp realgud:regexp-captured-num)
-(defconst realgud:nodejs-frame-module-regexp "[^ \t\n]+")
-(defconst realgud:nodejs-frame-file-regexp "[^ \t\n]+")
-
-;; Regular expression that describes a node-debug location generally shown
-;; Regular expression that describes a debugger "backtrace" command line.
-;; For example:
-;; #0 module.js:380:17
-;; #1 dbgtest.js:3:9
-;; #2 Module._compile module.js:456:26
-;; #3 Module._extensions..js module.js:474:10
-;; #4 Module.load module.js:356:32
-;; #5 Module._load module.js:312:12
-;; #6 Module.runMain module.js:497:10
-; ;#7 timers.js:110:15
-(setf (gethash "debugger-backtrace" realgud:nodejs-pat-hash)
- (make-realgud-loc-pat
- :regexp (concat realgud:nodejs-frame-start-regexp
- realgud:nodejs-frame-num-regexp " "
- "\\(?:" realgud:nodejs-frame-module-regexp " \\)?"
- "\\(" realgud:nodejs-frame-file-regexp "\\)"
- ":"
- realgud:regexp-captured-num
- ":"
- realgud:regexp-captured-num
- )
- :num 1
- :file-group 2
- :line-group 3
- :char-offset-group 4))
-
-(defconst realgud:nodejs-debugger-name "nodejs" "Name of debugger")
-
-;; ;; Regular expression that for a termination message.
-;; (setf (gethash "termination" realgud:nodejs-pat-hash)
-;; "^nodejs: That's all, folks...\n")
-
-(setf (gethash "font-lock-keywords" realgud:nodejs-pat-hash)
- '(
- ;; The frame number and first type name, if present.
- ;; E.g. ->0 in file `/etc/init.d/apparmor' at line 35
- ;; --^-
- ("^\\(->\\|##\\)\\([0-9]+\\) "
- (2 realgud-backtrace-number-face))
-
- ;; File name.
- ;; E.g. ->0 in file `/etc/init.d/apparmor' at line 35
- ;; ---------^^^^^^^^^^^^^^^^^^^^-
- ("[ \t]+\\(in\\|from\\) file `\\(.+\\)'"
- (2 realgud-file-name-face))
-
- ;; File name.
- ;; E.g. ->0 in file `/etc/init.d/apparmor' at line 35
- ;; --------^^
- ;; Line number.
- ("[ \t]+at line \\([0-9]+\\)$"
- (1 realgud-line-number-face))
- ))
-
-(setf (gethash realgud:nodejs-debugger-name realgud-pat-hash)
- realgud:nodejs-pat-hash)
-
-;; Prefix used in variable names (e.g. short-key-mode-map) for
-;; this debugger
-
-(setf (gethash "nodejs" realgud:variable-basename-hash)
- "nodejs")
-
-(defvar realgud:nodejs-command-hash (make-hash-table :test 'equal)
- "Hash key is command name like 'finish' and the value is
- the nodejs command to use, like 'out'")
-
-(setf (gethash realgud:nodejs-debugger-name
- realgud-command-hash)
- realgud:nodejs-command-hash)
-
-(setf (gethash "backtrace" realgud:nodejs-command-hash) "backtrace")
-(setf (gethash "break" realgud:nodejs-command-hash)
- "setBreakpoint('%X',%l)")
-(setf (gethash "continue" realgud:nodejs-command-hash) "cont")
-(setf (gethash "quit" realgud:nodejs-command-hash) "quit")
-(setf (gethash "finish" realgud:nodejs-command-hash) "out")
-(setf (gethash "shell" realgud:nodejs-command-hash) "repl")
-(setf (gethash "eval" realgud:nodejs-command-hash) "exec(%q)")
-
-;; We need aliases for step and next because the default would
-;; do step 1 and nodejs doesn't handle this. And if it did,
-;; it would probably look like step(1).
-(setf (gethash "step" realgud:nodejs-command-hash) "step")
-(setf (gethash "next" realgud:nodejs-command-hash) "next")
-
-;; Unsupported features:
-(setf (gethash "jump" realgud:nodejs-command-hash) "*not-implemented*")
-(setf (gethash "up" realgud:nodejs-command-hash) "*not-implemented*")
-(setf (gethash "down" realgud:nodejs-command-hash) "*not-implemented*")
-(setf (gethash "frame" realgud:nodejs-command-hash) "*not-implemented*")
-
-
-(provide-me "realgud:nodejs-")
diff --git a/packages/realgud/realgud/debugger/nodejs/nodejs.el
b/packages/realgud/realgud/debugger/nodejs/nodejs.el
deleted file mode 100644
index 055d004..0000000
--- a/packages/realgud/realgud/debugger/nodejs/nodejs.el
+++ /dev/null
@@ -1,87 +0,0 @@
-;; Copyright (C) 2014-2016, 2018 Free Software Foundation, Inc
-
-;; Author: Free Software Foundation, Inc
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; `nodejs' Main interface to nodejs debugger via Emacs
-(require 'load-relative)
-(require-relative-list '("../../common/helper") "realgud-")
-(require-relative-list '("../../common/run") "realgud:")
-(require-relative-list '("core" "track-mode") "realgud:nodejs-")
-(require-relative-list '("../../lang/js") "realgud-lang-")
-
-(declare-function realgud:run-debugger 'realgud:run)
-
-;; This is needed, or at least the docstring part of it is needed to
-;; get the customization menu to work in Emacs 24.
-(defgroup realgud:nodejs nil
- "The realgud interface to the nodejs debugger"
- :group 'realgud
- :version "24.3")
-
-;; -------------------------------------------------------------------
-;; User-definable variables
-;;
-
-(defcustom realgud:nodejs-command-name
- "node debug"
- "File name for executing the Javascript debugger and command options.
-This should be an executable on your path, or an absolute file name."
- :type 'string
- :group 'realgud:nodejs)
-
-;; -------------------------------------------------------------------
-;; The end.
-;;
-
-(declare-function nodejs-track-mode 'realgud-nodejs-track-mode)
-(declare-function nodejs-query-cmdline 'realgud:nodejs-core)
-(declare-function nodejs-parse-cmd-args 'realgud:nodejs-core)
-
-;;;###autoload
-(defun realgud:nodejs (&optional opt-cmd-line no-reset)
- "Invoke the nodejs shell debugger and start the Emacs user interface.
-
-String OPT-CMD-LINE specifies how to run nodejs.
-
-OPT-CMD-LINE is treated like a shell string; arguments are
-tokenized by `split-string-and-unquote'. The tokenized string is
-parsed by `nodejs-parse-cmd-args' and path elements found by that
-are expanded using `realgud:expand-file-name-if-exists'.
-
-Normally, command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset. See `loc-changes-clear-buffer' to clear
-fringe and marginal icons.
-"
- (interactive)
- (let ((cmd-buf
- (realgud:run-debugger "nodejs"
- 'nodejs-query-cmdline 'nodejs-parse-cmd-args
- 'realgud:nodejs-minibuffer-history
- opt-cmd-line no-reset)))
- ;; (if cmd-buf
- ;; (with-current-buffer cmd-buf
- ;; ;; FIXME should allow customization whether to do or not
- ;; ;; and also only do if hook is not already there.
- ;; (realgud:remove-ansi-schmutz)
- ;; )
- ;; )
- ))
-
-;; Note: There is already a nodejs command in `nodejs-repl'.
-
-;;;###autoload
-(defalias 'realgud:node-debug 'realgud:nodejs)
-
-;;;###autoload
-(defalias 'node-debug 'realgud:nodejs)
-
-(provide-me "realgud-")
diff --git a/packages/realgud/realgud/debugger/nodejs/track-mode.el
b/packages/realgud/realgud/debugger/nodejs/track-mode.el
deleted file mode 100644
index 2c4c88c..0000000
--- a/packages/realgud/realgud/debugger/nodejs/track-mode.el
+++ /dev/null
@@ -1,90 +0,0 @@
-;; Copyright (C) 2015-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-;;; nodejs tracking a comint buffer.
-
-(require 'load-relative)
-(require-relative-list '(
- "../../common/cmds"
- "../../common/menu"
- "../../common/track"
- "../../common/track-mode"
- "../../common/utils"
- )
- "realgud-")
-(require-relative-list '("core" "init") "realgud:nodejs-")
-;; (require-relative-list '("../../lang/js") "realgud-lang-")
-
-(declare-function realgud:track-set-debugger 'realgud-track-mode)
-(declare-function realgud-track-mode-setup 'realgud-track-mode)
-(declare-function realgud:remove-ansi-schmutz 'realgud:utils)
-
-(realgud-track-mode-vars "nodejs")
-
-(declare-function realgud-track-mode(bool))
-
-(defun nodejs-track-mode-hook()
- (if nodejs-track-mode
- (progn
- (use-local-map nodejs-track-mode-map)
- (realgud:remove-ansi-schmutz)
- (message "using nodejs mode map")
- )
- (message "nodejs track-mode-hook disable called"))
-)
-
-(define-minor-mode nodejs-track-mode
- "Minor mode for tracking nodejs source locations inside a nodejs shell via
realgud.
-
-If called interactively with no prefix argument, the mode is toggled. A prefix
argument, captured as ARG, enables the mode if the argument is positive, and
disables it otherwise.
-
-\\{nodejs-track-mode-map}"
- :init-value nil
- ;; :lighter " nodejs" ;; mode-line indicator from realgud-track is
sufficient.
- ;; The minor mode bindings.
- :global nil
- :group 'realgud:nodejs
-
- :keymap nodejs-track-mode-map
-
- (realgud:track-set-debugger "nodejs")
- (realgud:nodejs-track-mode-internal)
-)
-
-(defun realgud:nodejs-track-mode-internal (&optional arg)
- (realgud:track-set-debugger "nodejs")
- (if nodejs-track-mode
- (progn
- (realgud-track-mode-setup 't)
- (nodejs-track-mode-hook))
- (progn
- (setq realgud-track-mode nil)
- ))
- )
-
-;; ;; Debugger commands that nodejs doesn't have
-;; (define-key nodejs-track-mode-map
-;; [remap realgud:cmd-newer-frame] 'undefined)
-;; (define-key nodejs-track-mode-map
-;; [remap realgud:cmd-older-frame] 'undefined)
-(define-key nodejs-short-key-mode-map
- [remap realgud:cmd-step] 'realgud:cmd-step-no-arg)
-(define-key nodejs-short-key-mode-map
- [remap realgud:cmd-step] 'realgud:cmd-step-no-arg)
-(define-key nodejs-short-key-mode-map
- [remap realgud:cmd-next] 'realgud:cmd-next-no-arg)
-
-(provide-me "realgud:nodejs-")
diff --git a/packages/realgud/realgud/debugger/pdb/Makefile.am
b/packages/realgud/realgud/debugger/pdb/Makefile.am
deleted file mode 100644
index e6c68b4..0000000
--- a/packages/realgud/realgud/debugger/pdb/Makefile.am
+++ /dev/null
@@ -1,5 +0,0 @@
-include ../common.mk
-
-lisp_files = $(wildcard *.el)
-lisp_LISP = $(lisp_files)
-EXTRA_DIST = $(lisp_files)
diff --git a/packages/realgud/realgud/debugger/pdb/core.el
b/packages/realgud/realgud/debugger/pdb/core.el
deleted file mode 100644
index 3d80fb9..0000000
--- a/packages/realgud/realgud/debugger/pdb/core.el
+++ /dev/null
@@ -1,208 +0,0 @@
-;; Copyright (C) 2014-2017 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-(require 'load-relative)
-(require-relative-list '("../../common/track"
- "../../common/core"
- "../../common/lang")
- "realgud-")
-(require-relative-list '("init") "realgud:pdb-")
-
-
-(declare-function realgud:expand-file-name-if-exists 'realgud-core)
-(declare-function realgud-lang-mode? 'realgud-lang)
-(declare-function realgud-parse-command-arg 'realgud-core)
-(declare-function realgud-query-cmdline 'realgud-core)
-(declare-function realgud-suggest-invocation 'realgud-core)
-
-;; FIXME: I think the following could be generalized and moved to
-;; realgud-... probably via a macro.
-(defvar realgud:pdb-minibuffer-history nil
- "minibuffer history list for the command `pdb'.")
-
-(defvar realgud:pdb-remote-minibuffer-history nil
- "minibuffer history list for the command `pdb-remote'.")
-
-(easy-mmode-defmap pdb-minibuffer-local-map
- '(("\C-i" . comint-dynamic-complete-filename))
- "Keymap for minibuffer prompting of debugger startup command."
- :inherit minibuffer-local-map)
-
-;; FIXME: I think this code and the keymaps and history
-;; variable chould be generalized, perhaps via a macro.
-(defun pdb-query-cmdline (&optional opt-debugger)
- (realgud-query-cmdline
- 'pdb-suggest-invocation
- pdb-minibuffer-local-map
- 'realgud:pdb-minibuffer-history
- opt-debugger))
-
-;; FIXME: I think this code and the keymaps and history
-;; variable chould be generalized, perhaps via a macro.
-(defun pdb-remote-query-cmdline (not-used)
- (realgud-query-cmdline
- 'pdb-remote-suggest-invocation
- pdb-minibuffer-local-map
- 'realgud:pdb-remote-minibuffer-history
- "telnet"))
-
-(defun pdb-parse-cmd-args (orig-args)
- "Parse command line ORIG-ARGS for the annotate level and name of script to
debug.
-
-ORIG-ARGS should contain a tokenized list of the command line to run.
-
-We return the a list containing:
-* the command processor (e.g. python) and it's arguments if any - a list of
strings
-* the name of the debugger given (e.g. pdb) and its arguments - a list of
strings
-* the script name and its arguments - list of strings
-* whether the annotate or emacs option was given ('-A', '--annotate' or
'--emacs) - a boolean
-
-For example for the following input:
- (map 'list 'symbol-name
- '(python2.6 -O -Qold ./gcd.py a b))
-
-we might return:
- ((\"python2.6\" \"-O\" \"-Qold\") (\"pdb\") (\"/tmp/gcd.py\" \"a\" \"b\")
nil)
-
-Note that the script name path has been expanded via `expand-file-name'.
-"
-
- ;; Parse the following kind of pattern:
- ;; [python python-options] pdb pdb-options script-name script-options
- (let (
- (args orig-args)
- (pair) ;; temp return from
- (python-opt-two-args '())
- ;; Python doesn't have mandatory 2-arg options in our sense,
- ;; since the two args can be run together, e.g. "-C/tmp" or "-C /tmp"
- ;;
- (python-two-args '())
- ;; pdb doesn't have any arguments
- (pdb-two-args '())
- (pdb-opt-two-args '())
- (interp-regexp
- (if (member system-type (list 'windows-nt 'cygwin 'msdos))
- "^python[-0-9.]*\\(.exe\\)?$"
- "^python[-0-9.]*$"))
-
- ;; Things returned
- (annotate-p nil)
- (debugger-args '())
- (debugger-name nil)
- (interpreter-args '())
- (script-args '())
- (script-name nil)
- )
-
- (if (not (and args))
- ;; Got nothing: return '(nil, nil)
- (list interpreter-args debugger-args script-args annotate-p)
- ;; else
- ;; Strip off optional "python" or "python182" etc.
- (when (string-match interp-regexp
- (file-name-sans-extension
- (file-name-nondirectory (car args))))
- (setq interpreter-args (list (pop args)))
-
- ;; Strip off Python-specific options
- (while (and args
- (string-match "^-" (car args)))
- (setq pair (realgud-parse-command-arg
- args python-two-args python-opt-two-args))
- (nconc interpreter-args (car pair))
- (setq args (cadr pair))))
-
- ;; Remove "pdb" from "pdb --pdb-options script
- ;; --script-options"
- (setq debugger-name (file-name-sans-extension
- (file-name-nondirectory (car args))))
- (unless (string-match "^\\(pdb\\|cli.py\\)$" debugger-name)
- (message
- "Expecting debugger name `%s' to be `pdb' or `cli.py'"
- debugger-name))
- (setq debugger-args (list (pop args)))
-
- ;; Skip to the first non-option argument.
- (while (and args (not script-name))
- (let ((arg (car args)))
- (cond
- ;; Options with arguments.
- ((string-match "^-" arg)
- (setq pair (realgud-parse-command-arg
- args pdb-two-args pdb-opt-two-args))
- (nconc debugger-args (car pair))
- (setq args (cadr pair)))
- ;; Anything else must be the script to debug.
- (t (setq script-name (realgud:expand-file-name-if-exists arg))
- (setq script-args (cons script-name (cdr args))))
- )))
- (list interpreter-args debugger-args script-args annotate-p))))
-
-(defun pdb-parse-remote-cmd-args (orig-args)
- "Parse command line ORIG-ARGS
-ORIG-ARGS should contain a tokenized list of the command line to run.
-
-We return the a list containing:
-* the command processor (e.g. python) and it's arguments if any - a list of
strings
-* the name of the debugger given (e.g. pdb) and its arguments - a list of
strings
-* the script name and its arguments - list of strings
-* nil
-
-For example for the following input:
- (map 'list 'symbol-name
- '(telnet localhost 6900))
-
-we might return:
- ((\"telnet\" \"localhost\" \"6900\") nil nil nil)
-
-Note that the script name path has been expanded via `expand-file-name'.
-"
- (list orig-args nil nil nil)
- )
-
- ;; To silence Warning: reference to free variable
-(defvar realgud:pdb-command-name)
-
-(defun pdb-remote-suggest-invocation (debugger-name)
- "Suggest a pdb command invocation via `realgud-suggest-invocaton'"
- "telnet 127.0.0.1 4000"
- )
-
-
-(defun pdb-suggest-invocation (debugger-name)
- "Suggest a pdb command invocation via `realgud-suggest-invocaton'"
- (realgud-suggest-invocation realgud:pdb-command-name
- realgud:pdb-minibuffer-history
- "python" "\\.py"))
-
-(defun pdb-reset ()
- "Pdb cleanup - remove debugger's internal buffers (frame,
-breakpoints, etc.)."
- (interactive)
- ;; (pdb-breakpoint-remove-all-icons)
- (dolist (buffer (buffer-list))
- (when (string-match "\\*pdb-[a-z]+\\*" (buffer-name buffer))
- (let ((w (get-buffer-window buffer)))
- (when w
- (delete-window w)))
- (kill-buffer buffer))))
-
-;; (defun pdb-reset-keymaps()
-;; "This unbinds the special debugger keys of the source buffers."
-;; (interactive)
-;; (setcdr (assq 'pdb-debugger-support-minor-mode minor-mode-map-alist)
-;; pdb-debugger-support-minor-mode-map-when-deactive))
-
-
-(defun realgud:pdb-customize ()
- "Use `customize' to edit the settings of the `pdb' debugger."
- (interactive)
- (customize-group 'realgud:pdb))
-
-(provide-me "realgud:pdb-")
diff --git a/packages/realgud/realgud/debugger/pdb/init.el
b/packages/realgud/realgud/debugger/pdb/init.el
deleted file mode 100644
index cf0f743..0000000
--- a/packages/realgud/realgud/debugger/pdb/init.el
+++ /dev/null
@@ -1,137 +0,0 @@
-;; Copyright (C) 2015-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-;; Stock Python debugger pdb
-
-(eval-when-compile (require 'cl-lib)) ;For setf.
-
-(require 'load-relative)
-(require-relative-list '("../../common/regexp"
- "../../common/loc"
- "../../common/init")
- "realgud-")
-(require-relative-list '("../../lang/python") "realgud-lang-")
-
-(defvar realgud-pat-hash)
-(declare-function make-realgud-loc-pat (realgud-loc))
-
-(defvar realgud:pdb-pat-hash (make-hash-table :test 'equal)
- "Hash key is the what kind of pattern we want to match:
-backtrace, prompt, etc. The values of a hash entry is a
-realgud-loc-pat struct")
-
-(declare-function make-realgud-loc "realgud-loc" (a b c d e f))
-
-;; Regular expression that describes a pdb location generally shown
-;; before a command prompt.
-;;
-;; Program-location lines look like this:
-;; > /usr/bin/zonetab2pot.py(15)<module>()
-;; or MS Windows:
-;; > c:\\mydirectory\\gcd.py(10)<module>
-(setf (gethash "loc" realgud:pdb-pat-hash)
- (make-realgud-loc-pat
- :regexp "^> \\(\\(?:[a-zA-Z]:\\)?[-a-zA-Z0-9_/.\\\\ ]+\\)(\\([0-9]+\\))"
- :file-group 1
- :line-group 2))
-
-(setf (gethash "prompt" realgud:pdb-pat-hash)
- (make-realgud-loc-pat
- :regexp "^[(]+Pdb[)]+ "
- ))
-
-;; Regular expression that describes a Python backtrace line.
-(setf (gethash "lang-backtrace" realgud:pdb-pat-hash)
- realgud-python-backtrace-loc-pat)
-
-;; Regular expression that describes location in a pytest error
-(setf (gethash "pytest-error" realgud:pdb-pat-hash)
- realgud-pytest-error-loc-pat)
-
-;; Regular expression that describes location in a flake8 message
-(setf (gethash "flake8-msg" realgud:pdb-pat-hash)
- realgud-flake8-msg-loc-pat)
-
-;; Regular expression that describes a "breakpoint set" line. For example:
-;; Breakpoint 1 at /usr/bin/pdb:7
-(setf (gethash "brkpt-set" realgud:pdb-pat-hash)
- (make-realgud-loc-pat
- :regexp "^Breakpoint \\([0-9]+\\) at[
\t\n]+\\(.+\\):\\([0-9]+\\)\\(\n\\|$\\)"
- :num 1
- :file-group 2
- :line-group 3))
-
-;; Regular expression that describes a "delete breakpoint" line
-;; Python 3 includes a file name and line number; Python 2 doesn't
-(setf (gethash "brkpt-del" realgud:pdb-pat-hash)
- (make-realgud-loc-pat
- :regexp "^Deleted breakpoint \\([0-9]+\\)"
- :num 1))
-
-(setf (gethash "font-lock-keywords" realgud:pdb-pat-hash)
- '(
- ;; The frame number and first type name, if present.
- ("^\\(->\\|##\\)\\([0-9]+\\) \\(<module>\\)?
*\\([a-zA-Z_][a-zA-Z0-9_]*\\)(\\(.+\\))?"
- (2 realgud-backtrace-number-face)
- (4 font-lock-function-name-face nil t)) ; t means optional.
-
- ;; Parameter sequence, E.g. gcd(a=3, b=5)
- ;; ^^^^^^^^^
- ("(\\(.+\\))"
- (1 font-lock-variable-name-face))
-
- ;; File name. E.g file '/test/gcd.py'
- ;; ------^^^^^^^^^^^^-
- ("[ \t]+file '\\([^ ]+*\\)'"
- (1 realgud-file-name-face))
-
- ;; Line number. E.g. at line 28
- ;; ---------^^
- ("[ \t]+at line \\([0-9]+\\)$"
- (1 realgud-line-number-face))
-
- ;; Function name.
- ("\\<\\([a-zA-Z_][a-zA-Z0-9_]*\\)\\.\\([a-zA-Z_][a-zA-Z0-9_]*\\)"
- (1 font-lock-type-face)
- (2 font-lock-function-name-face))
- ;; (pdb-frames-match-current-line
- ;; (0 pdb-frames-current-frame-face append))
- ))
-
-(setf (gethash "pdb" realgud-pat-hash) realgud:pdb-pat-hash)
-
-
-(defvar realgud:pdb-command-hash (make-hash-table :test 'equal)
- "Hash key is command name like 'finish' and the value is
-the pdb command to use, like 'return'")
-
-(setf (gethash "pdb" realgud-command-hash) realgud:pdb-command-hash)
-
-;; Mappings between PDB-specific names and GUD names
-(setf (gethash "finish" realgud:pdb-command-hash) "return")
-(setf (gethash "kill" realgud:pdb-command-hash) "quit")
-(setf (gethash "backtrace" realgud:pdb-command-hash) "where")
-;; Clear in Python does both the usual “delete” and “clear”
-(setf (gethash "delete" realgud:pdb-command-hash) "clear %p")
-(setf (gethash "clear" realgud:pdb-command-hash) "clear %X:%l")
-;; Use ‘!’ instead of ‘p’, since ‘p’ only works for expressions, not statements
-(setf (gethash "eval" realgud:pdb-command-hash) "!%s")
-
-;; Unsupported features:
-(setf (gethash "shell" realgud:pdb-command-hash) "*not-implemented*")
-(setf (gethash "frame" realgud:pdb-command-hash) "*not-implemented*")
-
-(provide-me "realgud:pdb-")
diff --git a/packages/realgud/realgud/debugger/pdb/pdb.el
b/packages/realgud/realgud/debugger/pdb/pdb.el
deleted file mode 100644
index 8f1b74d..0000000
--- a/packages/realgud/realgud/debugger/pdb/pdb.el
+++ /dev/null
@@ -1,138 +0,0 @@
-;; Copyright (C) 2015-2017 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-;; `pdb' Main interface to pdb via Emacs
-
-(require 'python) ; for python-shell-interpreter
-(require 'load-relative)
-(require-relative-list '("core" "track-mode") "realgud:pdb-")
-(require-relative-list '("../../common/run") "realgud:")
-(require-relative-list '("core" "track-mode") "realgud:pdb-")
-
-;; This is needed, or at least the docstring part of it is needed to
-;; get the customization menu to work in Emacs 24.
-(defgroup realgud:pdb nil
- "The realgud interface to the Python pdb debugger"
- :group 'realgud
- :version "24.3")
-
-;; -------------------------------------------------------------------
-;; User-definable variables
-;;
-
-(defcustom realgud:pdb-command-name
- "pdb"
- "File name for executing the stock Python debugger and command options.
-This should be an executable on your path, or an absolute file name."
- :type 'string
- :group 'realgud:pdb)
-;; -------------------------------------------------------------------
-;; The end.
-;;
-
-(declare-function pdb-track-mode 'realgud:pdb-track)
-(declare-function pdb-query-cmdline 'realgud:pdb-core)
-(declare-function pdb-parse-cmd-args 'realgud:pdb-core)
-(declare-function realgud:run-debugger 'realgud:run)
-(declare-function realgud:run-process 'realgud:core)
-(declare-function realgud:flatten 'realgud-utils)
-
-;;;###autoload
-(defun realgud:pdb (&optional opt-cmd-line no-reset)
- "Invoke the pdb Python debugger and start the Emacs user interface.
-
-String OPT-CMD-LINE specifies how to run pdb. You will be prompted
-for a command line is one isn't supplied.
-
-OPT-COMMAND-LINE is treated like a shell string; arguments are
-tokenized by `split-string-and-unquote'. The tokenized string is
-parsed by `pdb-parse-cmd-args' and path elements found by that
-are expanded using `realgud:expand-file-name-if-exists'.
-
-Normally, command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset. See `loc-changes-clear-buffer' to clear
-fringe and marginal icons.
-"
- (interactive)
- (realgud:run-debugger "pdb" 'pdb-query-cmdline
- 'pdb-parse-cmd-args
- 'realgud:pdb-minibuffer-history
- opt-cmd-line no-reset)
- )
-
-
-;;;###autoload
-(defun realgud:pdb-remote (&optional opt-cmd-line no-reset)
- "Invoke the pdb Python debugger and start the Emacs user interface.
-
-String OPT-CMD-LINE specifies how to run pdb. You will be prompted
-for a command line is one isn't supplied.
-
-OPT-COMMAND-LINE is treated like a shell string; arguments are
-tokenized by `split-string-and-unquote'. The tokenized string is
-parsed by `pdb-parse-remote-cmd-args' and path elements found by that
-are expanded using `realgud:expand-file-name-if-exists'.
-
-Normally, command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset. See `loc-changes-clear-buffer' to clear
-fringe and marginal icons.
-"
- (interactive)
- (realgud:run-debugger "pdb" 'pdb-remote-query-cmdline
- 'pdb-parse-remote-cmd-args
- 'realgud:pdb-remote-minibuffer-history
- opt-cmd-line no-reset "remote-pdb")
- )
-
-
-;;;###autoload
-(defalias 'pdb 'realgud:pdb)
-
-;;;###autoload
-(defun realgud:pdb-delayed ()
- "This is like `pdb', but assumes inside the program to be debugged, you
-have a call to the debugger somewhere, e.g. 'from trepan.api import debug;
debug()'.
-Therefore we invoke python rather than the debugger initially.
-
-"
- (interactive)
- (let* ((initial-debugger python-shell-interpreter)
- (actual-debugger "pdb")
- (cmd-str (pdb-query-cmdline initial-debugger))
- (cmd-args (split-string-and-unquote cmd-str))
- ;; XXX: python gets registered as the interpreter rather than
- ;; a debugger, and the debugger position (nth 1) is missing:
- ;; the script-args takes its place.
- (parsed-args (pdb-parse-cmd-args cmd-args))
- (script-args (nth 1 parsed-args))
- (script-name (car script-args))
- (parsed-cmd-args
- (cl-remove-if 'nil (realgud:flatten parsed-args))))
- (realgud:run-process actual-debugger script-name parsed-cmd-args
- 'realgud:pdb-minibuffer-history)))
-
-(realgud-deferred-invoke-setup "pdb")
-
-(provide-me "realgud-")
diff --git a/packages/realgud/realgud/debugger/pdb/track-mode.el
b/packages/realgud/realgud/debugger/pdb/track-mode.el
deleted file mode 100644
index b18172f..0000000
--- a/packages/realgud/realgud/debugger/pdb/track-mode.el
+++ /dev/null
@@ -1,73 +0,0 @@
-;; Copyright (C) 2015-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-;; Python "pdb" Debugger tracking a comint buffer.
-
-(require 'load-relative)
-(require-relative-list '(
- "../../common/cmds"
- "../../common/menu"
- "../../common/track"
- "../../common/track-mode"
- )
- "realgud-")
-(require-relative-list '("core" "init") "realgud:pdb-")
-
-(realgud-track-mode-vars "pdb")
-
-(declare-function realgud-track-mode 'realgud-track-mode)
-(declare-function realgud-track-mode-setup 'realgud-track-mode)
-(declare-function realgud:track-set-debugger 'realgud-track-mode)
-(declare-function realgud-python-populate-command-keys 'realgud-lang-python)
-
-(realgud-python-populate-command-keys pdb-track-mode-map)
-
-(defun pdb-track-mode-hook()
- (if pdb-track-mode
- (progn
- (use-local-map pdb-track-mode-map)
- (message "using pdb mode map")
- )
- (message "pdb track-mode-hook disable called")
- )
-)
-
-(define-minor-mode pdb-track-mode
- "Minor mode for tracking pdb source locations inside a process shell via
realgud. pdb is the stock Python debugger.
-
-If called interactively with no prefix argument, the mode is toggled. A prefix
argument, captured as ARG, enables the mode if the argument is positive, and
disables it otherwise.
-
-a process shell.
-
-\\{pdb-track-mode-map}
-"
- :init-value nil
- ;; :lighter " pdb" ;; mode-line indicator from realgud-track is sufficient.
- ;; The minor mode bindings.
- :global nil
- :group 'realgud:pdb
- :keymap pdb-track-mode-map
- (realgud:track-set-debugger "pdb")
- (if pdb-track-mode
- (progn
- (realgud-track-mode-setup 't)
- (pdb-track-mode-hook))
- (progn
- (setq realgud-track-mode nil)
- ))
-)
-
-(provide-me "realgud:pdb-")
diff --git a/packages/realgud/realgud/debugger/perldb/Makefile.am
b/packages/realgud/realgud/debugger/perldb/Makefile.am
deleted file mode 100644
index e6c68b4..0000000
--- a/packages/realgud/realgud/debugger/perldb/Makefile.am
+++ /dev/null
@@ -1,5 +0,0 @@
-include ../common.mk
-
-lisp_files = $(wildcard *.el)
-lisp_LISP = $(lisp_files)
-EXTRA_DIST = $(lisp_files)
diff --git a/packages/realgud/realgud/debugger/perldb/core.el
b/packages/realgud/realgud/debugger/perldb/core.el
deleted file mode 100644
index 04f6f0c..0000000
--- a/packages/realgud/realgud/debugger/perldb/core.el
+++ /dev/null
@@ -1,151 +0,0 @@
-;; Copyright (C) 2011, 2013-2014, 2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-(require 'load-relative)
-(require-relative-list '("../../common/track"
- "../../common/core"
- "../../common/lang")
- "realgud-")
-(require-relative-list '("init") "realgud:perldb-")
-
-(declare-function realgud-lang-mode? 'realgud-lang)
-(declare-function realgud:expand-file-name-if-exists 'realgud-core)
-(declare-function realgud-parse-command-arg 'realgud-core)
-(declare-function realgud-query-cmdline 'realgud-core)
-(declare-function realgud-suggest-invocation 'realgud-core)
-
-;; FIXME: I think the following could be generalized and moved to
-;; realgud-... probably via a macro.
-(defvar realgud:perldb-minibuffer-history nil
- "minibuffer history list for the command `perldb'.")
-
-(easy-mmode-defmap realgud:perldb-minibuffer-local-map
- '(("\C-i" . comint-dynamic-complete-filename))
- "Keymap for minibuffer prompting of perldb startup command."
- :inherit minibuffer-local-map)
-
-;; FIXME: I think this code and the keymaps and history
-;; variable chould be generalized, perhaps via a macro.
-(defun realgud:perldb-query-cmdline (&optional opt-debugger)
- (realgud-query-cmdline
- 'realgud:perldb-suggest-invocation
- realgud:perldb-minibuffer-local-map
- 'realgud:perldb-minibuffer-history
- opt-debugger))
-
-;;; FIXME: DRY this with other *-parse-cmd-args routines
-(defun realgud:perldb-parse-cmd-args (orig-args)
- "Parse command line ARGS for the annotate level and name of script to debug.
-
-ORIG-ARGS should contain a tokenized list of the command line to run.
-
-We return the a list containing
-
-* the command processor (e.g. perl) and it's arguments if any - a
- list of strings
-
-* the script name and its arguments - list of strings
-
-For example for the following input:
- (map 'list 'symbol-name
- '(perl -W -C /tmp -d ./gcd.pl a b))
-
-we might return:
- ((\"perl\" \"-W\" \"-C\" \"-d\") nil (\"/tmp/gcd.pl\" \"a\" \"b\"))
-
-Note that path elements have been expanded via
`realgud:expand-file-name-if-exists'.
-"
-
- ;; Parse the following kind of pattern:
- ;; [perl perl-options] perldb perldb-options script-name script-options
- (let (
- (args orig-args)
- (pair) ;; temp return from
- (perl-opt-two-args '("0" "C" "D" "i" "l" "m" "-module" "x"))
- ;; Perl doesn't have mandatory 2-arg options in our sense,
- ;; since the two args can be run together, e.g. "-C/tmp" or "-C /tmp"
- ;;
- (perl-two-args '())
- ;; One dash is added automatically to the below, so
- ;; h is really -h and -host is really --host.
- (perldb-two-args '("e" "E"))
- (perldb-opt-two-args '())
- (interp-regexp
- (if (member system-type (list 'windows-nt 'cygwin 'msdos))
- "^perl\\(?:5[0-9.]*\\)\\(.exe\\)?$"
- "^perl\\(?:5[0-9.]*\\)?$"))
-
- ;; Things returned
- (script-name nil)
- (debugger-name nil)
- (interpreter-args '())
- (script-args '())
- )
-
- (if (not (and args))
- ;; Got nothing
- (list interpreter-args nil script-args)
- ;; else
- ;; Remove "perl" or "perl5.10.1" etc.
- (when (string-match interp-regexp
- (file-name-sans-extension
- (file-name-nondirectory (car args))))
- (setq interpreter-args (list (pop args)))
-
- ;; Skip to the first non-option argument
- (while (and args (not script-name))
- (let ((arg (car args)))
- (cond
- ;; Options with arguments.
- ((string-match "^-" (car args))
- (setq pair (realgud-parse-command-arg
- args perl-two-args perl-opt-two-args))
- (nconc interpreter-args (car pair))
- (setq args (cadr pair)))
- ;; Anything else must be the script to debug.
- (t (setq script-name (realgud:expand-file-name-if-exists arg))
- (setq script-args (cons script-name (cdr args))))
- )))
- (list interpreter-args nil script-args)))
- ))
-
-; # To silence Warning: reference to free variable
-(defvar realgud:perldb-command-name)
-
-(defun realgud:perldb-suggest-invocation (debugger-name)
- "Suggest a perldb command invocation via `realgud-suggest-invocaton'"
- (realgud-suggest-invocation realgud:perldb-command-name
- realgud:perldb-minibuffer-history
- "perl" "\\.pl$"))
-
-(defun realgud:perldb-reset ()
- "Perldb cleanup - remove debugger's internal buffers (frame,
-breakpoints, etc.)."
- (interactive)
- ;; (perldb-breakpoint-remove-all-icons)
- (dolist (buffer (buffer-list))
- (when (string-match "\\*perldb-[a-z]+\\*" (buffer-name buffer))
- (let ((w (get-buffer-window buffer)))
- (when w
- (delete-window w)))
- (kill-buffer buffer))))
-
-;; (defun perldb-reset-keymaps()
-;; "This unbinds the special debugger keys of the source buffers."
-;; (interactive)
-;; (setcdr (assq 'perldb-debugger-support-minor-mode minor-mode-map-alist)
-;; perldb-debugger-support-minor-mode-map-when-deactive))
-
-
-(defun realgud:perldb-customize ()
- "Use `customize' to edit the settings of the `perldb' debugger."
- (interactive)
- (customize-group 'realgud:perldb))
-
-(provide-me "realgud:perldb-")
diff --git a/packages/realgud/realgud/debugger/perldb/init.el
b/packages/realgud/realgud/debugger/perldb/init.el
deleted file mode 100644
index 42dbedf..0000000
--- a/packages/realgud/realgud/debugger/perldb/init.el
+++ /dev/null
@@ -1,145 +0,0 @@
-;;; Copyright (C) 2011, 2014-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-;;; Regular expressions for nodejs Javascript debugger.
-;;; Stock Perl debugger perldb
-
-(eval-when-compile (require 'cl-lib)) ;For setf.
-
-(require 'load-relative)
-(require-relative-list '("../../common/regexp" "../../common/loc") "realgud-")
-(require-relative-list '("../../lang/perl") "realgud-lang-")
-
-(defvar realgud-pat-hash)
-(declare-function make-realgud-loc-pat (realgud-loc))
-
-(defvar realgud:perldb-pat-hash (make-hash-table :test 'equal)
- "Hash key is the what kind of pattern we want to match:
-lang-backtrace, prompt, etc. The values of a hash entry is a
-realgud-loc-pat struct")
-
-(declare-function make-realgud-loc "realgud-loc" (a b c d e f))
-
-;; Program-location lines look like these:
-;; File::Basename::dirname(/usr/share/perl/5.16.0/File/Basename.pm:284):
-;; File::Basename::dirname(/usr/share/perl/5.16.0/File/Basename.pm:284):
my $path;
-;; main::(/usr/bin/latex2html:102):
-;; main::(/usr/bin/latex2html:102): @ARGV=2;
-;; main::CODE(0x9407ac8)(l2hconf.pm:6):;;
-;; main::((eval 8)[/tmp/eval.pl:2]:1):
-;;
-;; And what are complications MS Windows adds?
-
-;; Hnadle eval form first, e.g.:
-;; main::((eval 8)[/tmp/eval.pl:2]:1):
-
-(defconst realgud:perldb-loc-eval-regexp
- (format "(eval [0-9]+)\\[\\(.+\\):%s\\]"
- realgud:regexp-captured-num))
-
-;; Hnadle non eval form
-;; main::CODE(0x9407ac8)(l2hconf.pm:6):;;
-
-(defconst realgud:perldb-loc-noeval-regexp
- (format "\\(?:CODE(0x[0-9a-h]+)\\)?(\\(.+\\):%s):\\(?:\t\\(.*\\)\\)?\n"
- realgud:regexp-captured-num))
-
-;; Note that eval form has to come before non-eval form as the non-eval
-;; form encompases the eval form. The two clauses makes it hard
-;; to match file and line positions, so we ned to result to the
-;; "alt" forms of file and lines as well as the non-alt formes
-(defconst realgud:perldb-loc-regexp
- (format "\\(?:%s\\)\\|\\(?:%s\\)"
- realgud:perldb-loc-eval-regexp realgud:perldb-loc-noeval-regexp))
-
-;; Regular expression that describes a perldb location generally shown
-;; before a command prompt. We include matching the source text so we
-;; can save that.
-(setf (gethash "loc" realgud:perldb-pat-hash)
- (make-realgud-loc-pat
- :regexp realgud:perldb-loc-regexp
- :alt-file-group 1
- :alt-line-group 2
- :file-group 3
- :line-group 4
- :text-group 5))
-
-;; perldb debugger prompt.
-;; Examples:
-;; DB<4>
-;; [pid=6489->6502] DB<1>
-;;
-(setf (gethash "prompt" realgud:perldb-pat-hash)
- (make-realgud-loc-pat
- :regexp "\\(?:\\[pid=[0-9]+->[0-9]+\\]\\)? DB<\\([0-9]+\\)> "
- :num 1
- ))
-
-;; Regular expression that describes a Perl debugger backtrace line.
-;; $ = main::top_navigation_panel called from file `./latex2html' line 7400
-;; $ = main::BEGIN() called from file `(eval 19)[/usr/bin/latex2html:126]'
line 2
-(setf (gethash "debugger-backtrace" realgud:perldb-pat-hash)
- (make-realgud-loc-pat
- :regexp "\s+called from file `\\(.+\\)' line \\([0-9]+\\)"
- :file-group 1
- :line-group 2))
-
-;; Regular expression that describes location in a Perl errmsg
-(setf (gethash "perl-errmsg" realgud:perldb-pat-hash)
- realgud-perl-errmsg-loc-pat)
-
-;; Regular expression that describes a Perl Carp backtrace line.
-;; at /tmp/foo.pl line 7
-;; main::__ANON__('Illegal division by zero at /tmp/foo.pl line 4.\x{a}')
called at /tmp/foo.pl line 4
-;; main::foo(3) called at /tmp/foo.pl line 8
-(setf (gethash "lang-backtrace" realgud:perldb-pat-hash)
- realgud-perl-carp-loc-pat)
-
-(defvar realgud:perldb-command-hash (make-hash-table :test 'equal)
- "Hash key is command name like 'quit' and the value is
- the perldb command to use, like 'q'")
-
-(setf (gethash "font-lock-keywords" realgud:perldb-pat-hash)
- '(
- ("\s+called from file `\\(.+\\)' line \\([0-9]+\\)"
- (1 realgud-file-name-face)
- (2 realgud-line-number-face))
- ))
-
-
-(setf (gethash "perldb" realgud-pat-hash) realgud:perldb-pat-hash)
-
-(setf (gethash "backtrace" realgud:perldb-command-hash) "T")
-(setf (gethash "break" realgud:perldb-command-hash) "b %l")
-(setf (gethash "clear" realgud:perldb-command-hash) "B %l")
-(setf (gethash "continue" realgud:perldb-command-hash) "c")
-(setf (gethash "eval" realgud:perldb-command-hash) "x %s")
-(setf (gethash "quit" realgud:perldb-command-hash) "q")
-(setf (gethash "restart" realgud:perldb-command-hash) "R")
-(setf (gethash "run" realgud:perldb-command-hash) "R")
-(setf (gethash "step" realgud:perldb-command-hash) "s")
-(setf (gethash "next" realgud:perldb-command-hash) "n")
-(setf (gethash "until" realgud:perldb-command-hash) "c %l")
-(setf (gethash "perldb" realgud-command-hash) realgud:perldb-command-hash)
-
-;; Unsupported features:
-(setf (gethash "frame" realgud:perldb-command-hash) "*not-implemented*")
-(setf (gethash "shell" realgud:perldb-command-hash) "*not-implemented*")
-(setf (gethash "up" realgud:perldb-command-hash) "*not-implemented*")
-(setf (gethash "down" realgud:perldb-command-hash) "*not-implemented*")
-(setf (gethash "jump" realgud:perldb-command-hash) "*not-implemented*")
-(setf (gethash "kill" realgud:perldb-command-hash) "*not-implemented*")
-
-(provide-me "realgud:perldb-")
diff --git a/packages/realgud/realgud/debugger/perldb/perldb.el
b/packages/realgud/realgud/debugger/perldb/perldb.el
deleted file mode 100644
index c74ad9f..0000000
--- a/packages/realgud/realgud/debugger/perldb/perldb.el
+++ /dev/null
@@ -1,70 +0,0 @@
-;; Copyright (C) 2011, 2014-2017 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; `perldb' Main interface to perl debugger via Emacs
-(require 'load-relative)
-(require-relative-list '("../../common/helper") "realgud-")
-(require-relative-list '("../../common/run") "realgud:")
-(require-relative-list '("core" "track-mode") "realgud:perldb-")
-
-(declare-function realgud:run-debugger 'realgud:run)
-
-;; This is needed, or at least the docstring part of it is needed to
-;; get the customization menu to work in Emacs 24.
-(defgroup realgud:perldb nil
- "The realgud interface to the Perl debugger, perldb"
- :group 'realgud
- :version "24.3")
-
-;; -------------------------------------------------------------------
-;; User-definable variables
-;;
-
-(defcustom realgud:perldb-command-name
- "perl -d"
- "Option to needed to run the Perl debugger"
- :type 'string
- :group 'realgud:perldb)
-
-;; -------------------------------------------------------------------
-;; The end.
-;;
-
-(declare-function realgud:perldb-query-cmdline 'realgud:perldb-core)
-(declare-function realgud:perldb-parse-cmd-args 'realgud:perldb-core)
-
-;;;###autoload
-(defun realgud:perldb (&optional opt-cmd-line no-reset)
- "Invoke the Perl debugger and start the Emacs user interface.
-
-String OPT-CMD-LINE specifies how to run nodejs.
-
-OPT-CMD-LINE is treated like a shell string; arguments are
-tokenized by `split-string-and-unquote'. The tokenized string is
-parsed by `perldb-parse-cmd-args' and path elements found by that
-are expanded using `realgud:expand-file-name-if-exists'.
-
-Normally, command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset. See `loc-changes-clear-buffer' to clear
-fringe and marginal icons.
-"
- (interactive)
- (realgud:run-debugger "perldb"
- 'realgud:perldb-query-cmdline
- 'realgud:perldb-parse-cmd-args
- 'realgud:perldb-minibuffer-history
- opt-cmd-line no-reset))
-
-;; (defalias 'perldb 'realgud:perldb)
-
-(provide-me "realgud-")
diff --git a/packages/realgud/realgud/debugger/perldb/track-mode.el
b/packages/realgud/realgud/debugger/perldb/track-mode.el
deleted file mode 100644
index ce80a23..0000000
--- a/packages/realgud/realgud/debugger/perldb/track-mode.el
+++ /dev/null
@@ -1,79 +0,0 @@
-;; Copyright (C) 2015-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-;; Stock Perl Debugger "perldb5" tracking a comint or eshell buffer.
-
-(require 'load-relative)
-(require-relative-list '(
- "../../common/cmds"
- "../../common/menu"
- "../../common/track"
- "../../common/track-mode"
- )
- "realgud-")
-(require-relative-list '("core" "init") "realgud:perldb-")
-(require-relative-list '("../../lang/perl") "realgud-lang-")
-
-(realgud-track-mode-vars "perldb")
-
-(declare-function realgud-perl-populate-command-keys
- 'realgud:perldb)
-(declare-function realgud-track-mode 'realgud-track-mode)
-(declare-function realgud-track-mode-setup realgud-track-mode)
-(declare-function realgud:track-set-debugger 'realgud-track-mode)
-
-(realgud-perl-populate-command-keys perldb-track-mode-map )
-
-(defun perldb-track-mode-hook()
- (if perldb-track-mode
- (progn
- (use-local-map perldb-track-mode-map)
- (message "using perldb mode map")
- )
- (message "perldb track-mode-hook disable called"))
-)
-
-(define-minor-mode perldb-track-mode
- "Minor mode for tracking perl5db source locations inside a process shell via
realgud. perl5db is the stock Perl debugger.
-
-If called interactively with no prefix argument, the mode is toggled. A prefix
argument, captured as ARG, enables the mode if the argument is positive, and
disables it otherwise.
-
-\\{perldb-track-mode-map}
-"
- :init-value nil
- ;; :lighter " perldb" ;; mode-line indicator from realgud-track is
sufficient.
- ;; The minor mode bindings.
- :global nil
- :group 'realgud:perldb
- :keymap perldb-track-mode-map
-
- (realgud:track-set-debugger "perldb")
- (if perldb-track-mode
- (progn
- (realgud-track-mode-setup 't)
- (perldb-track-mode-hook))
- (progn
- (setq realgud-track-mode nil)
- ))
-)
-
-;; Perldb doesn't have stack switching commands.
-(define-key perldb-short-key-mode-map
- [remap realgud:cmd-newer-frame] 'undefined)
-(define-key perldb-short-key-mode-map
- [remap realgud:cmd-older-frame] 'undefined)
-
-(provide-me "realgud:perldb-")
diff --git a/packages/realgud/realgud/debugger/rdebug/Makefile.am
b/packages/realgud/realgud/debugger/rdebug/Makefile.am
deleted file mode 100644
index e6c68b4..0000000
--- a/packages/realgud/realgud/debugger/rdebug/Makefile.am
+++ /dev/null
@@ -1,5 +0,0 @@
-include ../common.mk
-
-lisp_files = $(wildcard *.el)
-lisp_LISP = $(lisp_files)
-EXTRA_DIST = $(lisp_files)
diff --git a/packages/realgud/realgud/debugger/rdebug/core.el
b/packages/realgud/realgud/debugger/rdebug/core.el
deleted file mode 100644
index 18d13f3..0000000
--- a/packages/realgud/realgud/debugger/rdebug/core.el
+++ /dev/null
@@ -1,172 +0,0 @@
-;; Copyright (C) 2010, 2015-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-(require 'load-relative)
-(require-relative-list '("../../common/track"
- "../../common/core"
- "../../common/lang")
- "realgud-")
-(require-relative-list '("init") "realgud-rdebug-")
-
-(declare-function realgud:expand-file-name-if-exists 'realgud-core)
-(declare-function realgud-lang-mode? 'realgud-lang)
-(declare-function realgud-parse-command-arg 'realgud-core)
-(declare-function realgud-query-cmdline 'realgud-core)
-(declare-function realgud-suggest-invocation 'realgud-core)
-
-;; FIXME: I think the following could be generalized and moved to
-;; realgud-... probably via a macro.
-(defvar realgud:rdebug-minibuffer-history nil
- "minibuffer history list for the command `rdebug'.")
-
-(easy-mmode-defmap rdebug-minibuffer-local-map
- '(("\C-i" . comint-dynamic-complete-filename))
- "Keymap for minibuffer prompting of gud startup command."
- :inherit minibuffer-local-map)
-
-;; FIXME: I think this code and the keymaps and history
-;; variable chould be generalized, perhaps via a macro.
-(defun rdebug-query-cmdline (&optional opt-debugger)
- (realgud-query-cmdline
- 'rdebug-suggest-invocation
- rdebug-minibuffer-local-map
- 'realgud:rdebug-minibuffer-history
- opt-debugger))
-
-(defun rdebug-parse-cmd-args (orig-args)
- "Parse command line ARGS for the annotate level and name of script to debug.
-
-ARGS should contain a tokenized list of the command line to run.
-
-We return the a list containing
-- the command processor (e.g. ruby) and it's arguments if any - a list of
strings
-- the name of the debugger given (e.g. rdebug) and its arguments - a list of
strings
-- the script name and its arguments - list of strings
-- whether the annotate or emacs option was given ('-A', '--annotate' or
'--emacs) - a boolean
-
-For example for the following input
- (map 'list 'symbol-name
- '(ruby1.9 -W -C /tmp rdebug --emacs ./gcd.rb a b))
-
-we might return:
- ((ruby1.9 -W -C) (rdebug --emacs) (./gcd.rb a b) 't)
-
-NOTE: the above should have each item listed in quotes.
-"
-
- ;; Parse the following kind of pattern:
- ;; [ruby ruby-options] rdebug rdebug-options script-name script-options
- (let (
- (args orig-args)
- (pair) ;; temp return from
- (ruby-opt-two-args '("0" "C" "e" "E" "F" "i"))
- ;; Ruby doesn't have mandatory 2-arg options in our sense,
- ;; since the two args can be run together, e.g. "-C/tmp" or "-C /tmp"
- ;;
- (ruby-two-args '())
- ;; One dash is added automatically to the below, so
- ;; h is really -h and -host is really --host.
- (rdebug-two-args '("h" "-host" "p" "-port"
- "I" "-include" "-r" "-require"))
- (rdebug-opt-two-args '())
-
- ;; Things returned
- (script-name nil)
- (debugger-name nil)
- (interpreter-args '())
- (debugger-args '())
- (script-args '())
- (annotate-p nil))
-
- (if (not (and args))
- ;; Got nothing: return '(nil, nil)
- (list interpreter-args debugger-args script-args annotate-p)
- ;; else
- ;; Strip off optional "ruby" or "ruby182" etc.
- (when (string-match "^ruby[-0-9]*$"
- (file-name-sans-extension
- (file-name-nondirectory (car args))))
- (setq interpreter-args (list (pop args)))
-
- ;; Strip off Ruby-specific options
- (while (and args
- (string-match "^-" (car args)))
- (setq pair (realgud-parse-command-arg
- args ruby-two-args ruby-opt-two-args))
- (nconc interpreter-args (car pair))
- (setq args (cadr pair))))
-
- ;; Remove "rdebug" from "rdebug --rdebug-options script
- ;; --script-options"
- (setq debugger-name (file-name-sans-extension
- (file-name-nondirectory (car args))))
- (unless (string-match "^rdebug$" debugger-name)
- (message
- "Expecting debugger name `%s' to be `rdebug'"
- debugger-name))
- (setq debugger-args (list (pop args)))
-
- ;; Skip to the first non-option argument.
- (while (and args (not script-name))
- (let ((arg (car args)))
- (cond
- ;; Annotation or emacs option with level number.
- ((or (member arg '("--annotate" "-A"))
- (equal arg "--emacs"))
- (setq annotate-p t)
- (nconc debugger-args (list (pop args))))
- ;; Combined annotation and level option.
- ((string-match "^--annotate=[0-9]" arg)
- (nconc debugger-args (list (pop args)) )
- (setq annotate-p t))
- ;; Options with arguments.
- ((string-match "^-" arg)
- (setq pair (realgud-parse-command-arg
- args rdebug-two-args rdebug-opt-two-args))
- (nconc debugger-args (car pair))
- (setq args (cadr pair)))
- ;; Anything else must be the script to debug.
- (t (setq script-name (realgud:expand-file-name-if-exists arg))
- (setq script-args (cons script-name (cdr args))))
- )))
- (list interpreter-args debugger-args script-args annotate-p))))
-
-(defvar realgud:rdebug-command-name)
-(defun rdebug-suggest-invocation (debugger-name)
- "Suggest a rdebug command invocation via `realgud-suggest-invocaton'"
- (realgud-suggest-invocation realgud:rdebug-command-name
- realgud:rdebug-minibuffer-history
- "ruby" "\\.rb$"
- realgud:rdebug-command-name))
-
-(defun rdebug-reset ()
- "Rdebug cleanup - remove debugger's internal buffers (frame,
-breakpoints, etc.)."
- (interactive)
- ;; (rdebug-breakpoint-remove-all-icons)
- (dolist (buffer (buffer-list))
- (when (string-match "\\*rdebug-[a-z]+\\*" (buffer-name buffer))
- (let ((w (get-buffer-window buffer)))
- (when w
- (delete-window w)))
- (kill-buffer buffer))))
-
-;; (defun rdebug-reset-keymaps()
-;; "This unbinds the special debugger keys of the source buffers."
-;; (interactive)
-;; (setcdr (assq 'rdebug-debugger-support-minor-mode minor-mode-map-alist)
-;; rdebug-debugger-support-minor-mode-map-when-deactive))
-
-
-(defun realgud:rdebug-customize ()
- "Use `customize' to edit the settings of the `rdebug' debugger."
- (interactive)
- (customize-group 'realgud:rdebug))
-
-(provide-me "realgud-rdebug-")
diff --git a/packages/realgud/realgud/debugger/rdebug/init.el
b/packages/realgud/realgud/debugger/rdebug/init.el
deleted file mode 100644
index 4b4a024..0000000
--- a/packages/realgud/realgud/debugger/rdebug/init.el
+++ /dev/null
@@ -1,143 +0,0 @@
-;; Copyright (C) 2010, 2011, 2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; Ruby 1.8 debugger: ruby-debug (rdebug)
-
-(eval-when-compile (require 'cl-lib)) ;For stef.
-
-(require 'load-relative)
-(require-relative-list '("../../common/regexp" "../../common/loc") "realgud-")
-(require-relative-list '("../../lang/ruby") "realgud-lang-")
-
-(defvar realgud-pat-hash)
-(declare-function make-realgud-loc-pat (realgud-loc))
-
-(defvar realgud-rdebug-pat-hash (make-hash-table :test 'equal)
- "Hash key is the what kind of pattern we want to match:
-backtrace, prompt, etc. The values of a hash entry is a
-realgud-loc-pat struct")
-
-;; Regular expression that describes a rdebug location generally shown
-;; before a command prompt.
-;; For example:
-;; /usr/lib/ruby/1.8/rubygems/custom_require.rb:31 # in Emacs
-;; /usr/bin/irb:12
-(setf (gethash "loc" realgud-rdebug-pat-hash)
- (make-realgud-loc-pat
- :regexp "\\(?:source
\\)?\\(\\(?:[a-zA-Z]:\\)?\\(?:.+\\)\\):\\([0-9]+\\).*\\(?:\n\\|$\\)"
- :file-group 1
- :line-group 2
- :ignore-file-re "(eval)"
- ))
-
-;; Regular expression that describes a rdebug command prompt
-;; For example:
-;; (rdb:1)
-(setf (gethash "prompt" realgud-rdebug-pat-hash)
- (make-realgud-loc-pat
- :regexp "^(rdb:[0-9]+) "
- ))
-
-;; Regular expression that describes a Ruby backtrace line.
-(setf (gethash "lang-backtrace" realgud-rdebug-pat-hash)
- realgud-ruby-backtrace-loc-pat)
-
-;; Regular expression that describes a ruby $! backtrace
-(setf (gethash "dollar-bang-backtrace" realgud-rdebug-pat-hash)
- realgud-ruby-dollar-bang-loc-pat)
-
-;; Regular expression that describes a rdebug "breakpoint set" line
-;; For example:
-;; Breakpoint 1 file /test/gcd.rb, line 6
-;; -----------^------^^^^^^^^^^^^-------^
-(setf (gethash "brkpt-set" realgud-rdebug-pat-hash)
- (make-realgud-loc-pat
- :regexp "^Breakpoint \\([0-9]+\\) file \\(.+\\), line \\([0-9]+\\)\n"
- :num 1
- :file-group 2
- :line-group 3))
-
-(defconst realgud-rdebug-frame-file-line-regexp
- "[ \t\n]+at line \\(.*\\):\\([0-9]+\\)$")
-
-(defconst realgud-rdebug-frame-start-regexp realgud:trepan-frame-start-regexp)
-(defconst realgud-rdebug-frame-num-regexp realgud:trepan-frame-num-regexp)
-
-;; Regular expression that describes a Ruby $! string
-(setf (gethash "dollar-bang" realgud-rdebug-pat-hash)
- realgud-ruby-dollar-bang-loc-pat)
-
-;; Regular expression that describes a Ruby $! string
-(setf (gethash "rails-backtrace" realgud-rdebug-pat-hash)
- realgud-rails-backtrace-loc-pat)
-
-;; Regular expression that describes a debugger "backtrace" command line.
-;; e.g.
-;; --> #0 at line /usr/bin/irb:12
-;; #1 main.__script__ at /tmp/fact.rb:1
-;; #1 main.__script__ at /tmp/fact.rb:1
-;; #0 IRB.start(ap_path#String) at line /usr/lib/ruby/1.8/irb.rb:52
-(setf (gethash "debugger-backtrace" realgud-rdebug-pat-hash)
- (make-realgud-loc-pat
- :regexp (concat realgud-rdebug-frame-start-regexp " "
- realgud-rdebug-frame-num-regexp
- "\\(?: \\(?:\\(.+\\)(\\(.*\\))\\)\\)?"
- realgud-rdebug-frame-file-line-regexp
- )
- :num 2
- :file-group 5
- :line-group 6)
- )
-
-(setf (gethash "font-lock-keywords" realgud-rdebug-pat-hash)
- '(
- ;; Parameters and first type entry. E.g Object.gcd(a#Fixnum, b#Fixnum)
- ;; ^-^^^^^^ ^-^^^^^^
- ("\\<\\([a-zA-Z_][a-zA-Z0-9_]*\\)#\\([a-zA-Z_][a-zA-Z0-9_]*\\)\\>"
- (1 font-lock-variable-name-face)
- (2 font-lock-constant-face))
-
- ;; "::Type", which occurs in class name of function and in
- ;; parameter list.
- ("::\\([a-zA-Z_][a-zA-Z0-9_]*\\)"
- (1 font-lock-type-face))
-
- ;; The frame number and first type name, if present.
- ;; E.g. --> #0 Object.gcd(a#Fixnum, b#Fixnum)
- ;; -----^-^^^^^^.^^^
- ("^\\(-->\\)? *#\\([0-9]+\\) *\\(\\([a-zA-Z_][a-zA-Z0-9_]*\\)[.:]\\)?"
- (2 realgud-backtrace-number-face)
- (4 font-lock-constant-face nil t)) ; t means optional.
-
- ;; File name and line number. E.g. at line /test/gcd.rb:6
- ;; -------^^^^^^^^^^^^^-^
- ("at line \\(.*\\):\\([0-9]+\\)$"
- (1 realgud-file-name-face)
- (2 realgud-line-number-face))
-
- ;; Function name.
- ("\\<\\([a-zA-Z_][a-zA-Z0-9_]*\\)\\.\\([a-zA-Z_][a-zA-Z0-9_]*\\)"
- (1 font-lock-type-face)
- (2 font-lock-function-name-face))
- ;; (rdebug-frames-match-current-line
- ;; (0 rdebug-frames-current-frame-face append))
- ))
-
-
-(setf (gethash "rdebug" realgud-pat-hash) realgud-rdebug-pat-hash)
-
-(defvar realgud-rdebug-command-hash (make-hash-table :test 'equal)
- "Hash key is command name like 'quit' and the value is
- the trepanx command to use, like 'quit!'")
-
-(setf (gethash "quit" realgud-rdebug-command-hash) "quit!")
-(setf (gethash "shell" realgud-rdebug-command-hash) "irb")
-(setf (gethash "rdebug" realgud-command-hash) realgud-rdebug-command-hash)
-
-(provide-me "realgud-rdebug-")
diff --git a/packages/realgud/realgud/debugger/rdebug/rdebug.el
b/packages/realgud/realgud/debugger/rdebug/rdebug.el
deleted file mode 100644
index 3abd307..0000000
--- a/packages/realgud/realgud/debugger/rdebug/rdebug.el
+++ /dev/null
@@ -1,124 +0,0 @@
-;; Copyright (C) 2010-2011, 2014-2015 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; `rdebug' Main interface to rdebug via Emacs
-(require 'load-relative)
-(require-relative-list '("../../common/helper"
- "../../common/track") "realgud-")
-(require-relative-list '("core" "track-mode") "realgud-rdebug-")
-;; This is needed, or at least the docstring part of it is needed to
-;; get the customization menu to work in Emacs 24.
-(defgroup realgud:rdebug nil
- "The realgud interface to the Ruby debugger, rdebug"
- :group 'realgud
- :version "24.3")
-
-(declare-function rdebug-query-cmdline 'realgud-rdebug-core)
-(declare-function rdebug-parse-cmd-args 'realgud-rdebug-core)
-(declare-function realgud:run-debugger 'realgud:run)
-
-;; -------------------------------------------------------------------
-;; User definable variables
-;;
-
-(defcustom realgud:rdebug-command-name
- ;;"rdebug --emacs 3"
- "rdebug"
- "File name for executing the Ruby debugger and command options.
-This should be an executable on your path, or an absolute file name."
- :type 'string
- :group 'realgud:rdebug)
-
-(declare-function rdebug-track-mode (bool))
-
-;; -------------------------------------------------------------------
-;; The end.
-;;
-
-(defun rdebug-get-script-name (args)
- "Parse command line ARGS.
-
-ARGS is a list of strings containing the rdebug command name. We
-return a list containing the script name, and whether the
-annotate option was set is returned.
-
-Initially annotate should be set to nil. Argument ARGS contains
-a tokenized list of the command line."
- ;; Parse the following:
- ;;
- ;; [ruby ruby-options] rdebug rdebug-options script-name script-options
- (and args
- (let ((name nil)
- (annotate-p nil))
- ;; Strip of optional "ruby" or "ruby182" etc.
- (when (string-match "^ruby[0-9]*$"
- (file-name-sans-extension
- (file-name-nondirectory (car args))))
- (pop args)
- (while (and args
- (string-match "^-" (car args)))
- (if (member (car args) '("-e" "-r" "-I" "-C" "-F" "-K"))
- (pop args))
- (pop args)))
- ;; Remove "rdebug" from "rdebug --rdebug-options script
- ;; --script-options"
- (pop args)
- ;; Skip to the first non-option argument.
- (while (and args
- (not name))
- (let ((arg (pop args)))
- (cond
- ;; Annotation or emacs option with level number.
- ((or (member arg '("--annotate" "-A"))
- (equal arg "--emacs"))
- (setq annotate-p t)
- (pop args))
- ;; Combined annotation and level option.
- ((string-match "^--annotate=[0-9]" arg)
- (setq annotate-p t))
- ;; Options with arguments.
- ((member arg '("-h" "--host" "-p" "--port"
- "-I" "--include" "-r" "--require"))
- (pop args))
- ((string-match "^-" arg)
- nil)
- (t
- (setq name arg)))))
- (and name
- (list name annotate-p)))))
-
-
-;;;###autoload
-(defun realgud:rdebug (&optional opt-cmd-line no-reset)
- "Invoke the rdebug Ruby debugger and start the Emacs user interface.
-
-String OPT-CMD-LINE is treated like a shell string; arguments are
-tokenized by `split-string-and-unquote'. The tokenized string is
-parsed by `trepan8-parse-cmd-args' and path elements found by that
-are expanded using `realgud:expand-file-name-if-exists'.
-
-Normally, command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset. See `loc-changes-clear-buffer' to clear
-fringe and marginal icons.
-"
- (interactive)
- (realgud:run-debugger "rdebug" 'rdebug-query-cmdline
- 'rdebug-parse-cmd-args
- 'realgud:rdebug-minibuffer-history
- opt-cmd-line no-reset)
- )
-
-
-;;;###autoload
-(defalias 'rdebug 'realgud:rdebug)
-(provide-me "realgud-")
diff --git a/packages/realgud/realgud/debugger/rdebug/track-mode.el
b/packages/realgud/realgud/debugger/rdebug/track-mode.el
deleted file mode 100644
index 87d6986..0000000
--- a/packages/realgud/realgud/debugger/rdebug/track-mode.el
+++ /dev/null
@@ -1,70 +0,0 @@
-;; Copyright (C) 2010, 2012, 2015-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;;; Ruby "rdebug" Debugger tracking a comint or eshell buffer.
-
-(require 'load-relative)
-(require-relative-list '(
- "../../common/cmds"
- "../../common/menu"
- "../../common/track"
- "../../common/track-mode"
- )
- "realgud-")
-(require-relative-list '("core" "init") "realgud-rdebug-")
-(require-relative-list '("../../lang/ruby") "realgud-lang-")
-
-(realgud-track-mode-vars "rdebug")
-
-(declare-function realgud:ruby-populate-command-keys 'realgud-track-lang-ruby)
-(declare-function realgud-track-mode 'realgud-track-mode)
-(declare-function realgud-track-mode-hook 'realgud-track-mode)
-(declare-function realgud-track-mode-setup 'realgud-track-mode)
-(declare-function realgud:track-set-debugger 'realgud-track-mode)
-
-(realgud:ruby-populate-command-keys rdebug-track-mode-map)
-
-(defun rdebug-track-mode-hook()
- (if rdebug-track-mode
- (progn
- (use-local-map rdebug-track-mode-map)
- (message "using rdebug mode map")
- )
- (message "rdebug track-mode-hook disable called"))
-)
-
-(define-minor-mode rdebug-track-mode
- "Minor mode for tracking rdebug source locations inside a process shell via
realgud. rdebug is a Ruby debugger.
-
-If called interactively with no prefix argument, the mode is toggled. A prefix
argument, captured as ARG, enables the mode if the argument is positive, and
disables it otherwise.
-
-\\{rdebug-track-mode-map}
-"
- :init-value nil
- ;; :lighter " rdebug" ;; mode-line indicator from realgud-track is
sufficient.
- ;; The minor mode bindings.
- :global nil
- :group 'realgud:rdebug
- :keymap rdebug-track-mode-map
- (rdebug-track-mode-internal rdebug-track-mode)
-)
-
-;; Broken out as a function for debugging
-(defun rdebug-track-mode-internal (&optional arg)
- (realgud:track-set-debugger "rdebug")
- (if rdebug-track-mode
- (progn
- (realgud-track-mode-setup 't)
- (rdebug-track-mode-hook))
- (progn
- (setq realgud-track-mode nil)
- ))
-)
-
-(provide-me "realgud-rdebug-")
diff --git a/packages/realgud/realgud/debugger/remake/Makefile.am
b/packages/realgud/realgud/debugger/remake/Makefile.am
deleted file mode 100644
index e6c68b4..0000000
--- a/packages/realgud/realgud/debugger/remake/Makefile.am
+++ /dev/null
@@ -1,5 +0,0 @@
-include ../common.mk
-
-lisp_files = $(wildcard *.el)
-lisp_LISP = $(lisp_files)
-EXTRA_DIST = $(lisp_files)
diff --git a/packages/realgud/realgud/debugger/remake/core.el
b/packages/realgud/realgud/debugger/remake/core.el
deleted file mode 100644
index 632363c..0000000
--- a/packages/realgud/realgud/debugger/remake/core.el
+++ /dev/null
@@ -1,249 +0,0 @@
-;; Copyright (C) 2011, 2014-2017 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-(require 'load-relative)
-(require-relative-list '("../../common/track" "../../common/core"
"../../common/lang")
- "realgud-")
-(require-relative-list '("../../common/buffer/command")
- "realgud-buffer-")
-(require-relative-list '("init") "realgud:remake-")
-
-(declare-function realgud:expand-file-name-if-exists 'realgud-core)
-(declare-function realgud-parse-command-arg 'realgud-core)
-(declare-function realgud-query-cmdline 'realgud-core)
-(declare-function realgud-suggest-invocation 'realgud-core)
-(declare-function realgud-lang-mode? 'realgud-lang)
-(declare-function realgud-cmdbuf-command-string
- 'realgud-buffer-command)
-(declare-function realgud-cmdbuf-debugger-name
- 'realgud-buffer-command)
-;; FIXME: I think the following could be generalized and moved to
-;; realgud-... probably via a macro.
-(defvar realgud:remake-minibuffer-history nil
- "minibuffer history list for the command `remake'.")
-
-(easy-mmode-defmap remake-minibuffer-local-map
- '(("\C-i" . comint-dynamic-complete-filename))
- "Keymap for minibuffer prompting of gud startup command."
- :inherit minibuffer-local-map)
-
-;; FIXME: I think this code and the keymaps and history
-;; variable chould be generalized, perhaps via a macro.
-(defun remake-query-cmdline (&optional opt-debugger)
- (realgud-query-cmdline
- 'remake-suggest-invocation
- remake-minibuffer-local-map
- 'realgud:remake-minibuffer-history
- opt-debugger))
-
-(defun remake-parse-cmd-args (orig-args)
- "Parse command line ARGS for the annotate level and name of script to debug.
-
-ARGS should contain a tokenized list of the command line to run.
-
-We return the a list containing
-
-- the command processor (e.g. make)
-- the Makefile name
-- command args (which includes the makefile name)
-
-For example for the following input
- '(\"remake\" \"-x\" \"/tmp/Makefile\")
-
-we might return:
- (\"remake\" \"/tmp/Makefile\" (\"-x\" \"/tmp/Makefile\"))
-
-"
-
- (let (
- (args orig-args)
- (interp-regexp
- (if (member system-type (list 'windows-nt 'cygwin 'msdos))
- "^\\(re\\)?make*\\(.exe\\)?$"
- "^\\(re\\)?make*$"))
-
- ;; Things returned
- (remake-name nil)
- (makefile-name nil)
- (remake-args '())
- )
-
- (if (not (and args))
- ;; Got nothing
- (list remake-name makefile-name remake-args)
- ;; else
- ;; Strip off "make" or "remake" etc.
- (when (string-match interp-regexp
- (file-name-sans-extension
- (file-name-nondirectory (car args))))
- (setq remake-name (pop args))
- )
-
- ;; parse options
- (while args
- (let ((arg (pop args)))
- (cond
- ((member arg '("--file" "--makefile" "-f"))
- (setq remake-args (nconc remake-args (list arg)))
- (setq makefile-name (realgud:expand-file-name-if-exists
- (pop args)))
- (setq remake-args (nconc remake-args
- (list (format "%s" makefile-name)))))
-
- ;; Anything else add to remake-args
- ('t (setq remake-args (nconc remake-args (list arg))))
- )))
- (list remake-name makefile-name remake-args))))
-
-(defconst realgud:remake-auto-suffix-regexp
- "\\.\\(am\\|in\\)$"
- "Common automake and autoconf Makefile suffixes"
-)
-
-(defconst realgud:remake-makefile-regexp
- "\\(^[Mm]akefile$\\|\\.Makefile$\\|\\.mk\\)$"
- "Regular expression matching common Makefile names"
-)
-
-(defun remake-suggest-file-priority(filename)
- (let ((priority 2)
- (is-not-directory)
- )
- (if (realgud-lang-mode? filename "makefile")
- (progn
- (if (string-match realgud:remake-makefile-regexp filename)
- (setq priority 8)
- (if (string-match realgud:remake-auto-suffix-regexp filename)
- (setq priority 5)
- (setq priority 7)))
- ))
- ;; The file isn't in a makefile-mode buffer,
- ;; Check for an executable file with a .mk extension.
- (if (setq is-not-directory (not (file-directory-p filename)))
- (if (and (string-match realgud:remake-makefile-regexp filename))
- (if (< priority 6)
- (progn
- (setq priority 6)))))
- priority
- )
-)
-
-(defun remake-suggest-Makefile ()
- "Suggest a Makefile to debug.
-
-The first priority is given to the current buffer. If the major
-mode matches GNUMakefile and doesn't end in .am or .in, then we
-are done. If not, we'll set priority 2 (a low or easily
-overridden priority) and we keep going. Then we will try files
-in the default-directory. Of those that we are visiting we check
-the major mode. There are demerits for a file ending in .in or
-.am which are used by 'configure' and 'automake' respectively.
-
-If the current buffer isn't a success, we see if the file matches
-REGEXP. These have priority 9, 8 or 7 depending on whether there
-is a .in or .am sufifx and there is a REGEXP match'. Within a
-given priority, we use the first one we find."
- (let* ((file)
- (file-list (directory-files default-directory))
- (priority 2)
- (is-not-directory)
- (result (buffer-file-name)))
- (if (not (realgud-lang-mode? result "makefile"))
- (progn
- (while (and (setq file (car-safe file-list)) (< priority 8))
- (setq file-list (cdr file-list))
- (let ((try-priority (remake-suggest-file-priority file)))
- (if (> try-priority priority)
- (progn
- (setq priority try-priority)
- (setq result file)))
- ))
- ))
- result)
- )
-
-;; To silence Warning: reference to free variable
-(defvar realgud:remake-command-name)
-
-;; Note opt-debugger is not used. It has to be there because
-;; realgud-suggest-invocation passes an argument.
-(defun remake-suggest-invocation (&optional opt-debugger)
- "Suggest a remake command invocation via `realgud-suggest-invocaton'"
-
- (let* ((buf (current-buffer))
- (debugger-name realgud:remake-command-name)
- (cmd-str-cmdbuf (realgud-cmdbuf-command-string buf))
- )
- (cond
- ((and cmd-str-cmdbuf (equal debugger-name (realgud-cmdbuf-debugger-name
buf)))
- cmd-str-cmdbuf)
- ((and minibuffer-history (listp minibuffer-history))
- (car minibuffer-history))
- (t (concat debugger-name " --debugger -f "
- (remake-suggest-Makefile)))
- )))
-
-;; Convert a command line as would be typed normally to run a script
-;; into one that invokes an Emacs-enabled debugging session.
-;; "--debugger" in inserted as the first switch.
-
-(defun realgud:remake-massage-args (command-line)
- (let* ((new-args (list "--debugger"))
- (args (split-string-and-unquote command-line))
- (program (car args))
- (seen-e nil)
- (shift (lambda ()
- (setq new-args (cons (car args) new-args))
- (setq args (cdr args)))))
-
- ;; Pass all switches and -e scripts through.
- (while (and args
- (string-match "^-" (car args))
- (not (equal "-" (car args)))
- (not (equal "--" (car args))))
- (funcall shift))
-
- (if (or (not args)
- (string-match "^-" (car args)))
- (error "Can't use stdin as the script to debug"))
- ;; This is the program name.
- (funcall shift)
-
- (while args
- (funcall shift))
-
- (nreverse new-args)
- )
- )
-
-(defun remake-reset ()
- "Remake cleanup - remove debugger's internal buffers (frame,
-breakpoints, etc.)."
- (interactive)
- ;; (remake-breakpoint-remove-all-icons)
- (dolist (buffer (buffer-list))
- (when (string-match "\\*remake-[a-z]+\\*" (buffer-name buffer))
- (let ((w (get-buffer-window buffer)))
- (when w
- (delete-window w)))
- (kill-buffer buffer))))
-
-;; (defun remake-reset-keymaps()
-;; "This unbinds the special debugger keys of the source buffers."
-;; (interactive)
-;; (setcdr (assq 'remake-debugger-support-minor-mode minor-mode-map-alist)
-;; remake-debugger-support-minor-mode-map-when-deactive))
-
-
-(defun realgud:remake-customize ()
- "Use `customize' to edit the settings of the `remake' debugger."
- (interactive)
- (customize-group 'realgud:remake))
-
-(provide-me "realgud:remake-")
diff --git a/packages/realgud/realgud/debugger/remake/init.el
b/packages/realgud/realgud/debugger/remake/init.el
deleted file mode 100644
index 0c650cf..0000000
--- a/packages/realgud/realgud/debugger/remake/init.el
+++ /dev/null
@@ -1,154 +0,0 @@
-;; Copyright (C) 2011, 2014, 2016 Free Software Foundation, Inc
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-;;; Regular expressions for GNU Make debugger: remake
-
-(eval-when-compile (require 'cl-lib)) ;For setf.
-
-(require 'load-relative)
-(require-relative-list '("../../common/regexp"
- "../../common/loc"
- "../../common/init")
- "realgud-")
-
-(defvar realgud-pat-hash)
-(declare-function make-realgud-loc-pat (realgud-loc))
-
-(defvar realgud:remake-pat-hash (make-hash-table :test 'equal)
- "Hash key is the what kind of pattern we want to match:
-backtrace, prompt, etc. The values of a hash entry is a
-realgud-loc-pat struct")
-
-;; Top frame number
-(setf (gethash "top-frame-num" realgud:remake-pat-hash) 0)
-
-;; realgud-loc-pat that describes a remake location generally shown
-;; before a command prompt.
-;; For example:
-;; -- (emacs-dbgr/realgud/debugger/Makefile:168)
-(setf (gethash "loc" realgud:remake-pat-hash)
- (make-realgud-loc-pat
- :regexp "\\(?:^\\|\n\\)\\(?:..
\\)?(\\(\\(?:[a-zA-Z]:\\)?[-a-zA-Z0-9_/.\\\\
]+\\):\\([0-9]+\\))\\(?:\n\\(.*?\\)\n\\)?"
- :file-group 1
- :line-group 2
- :text-group 3))
-
-;; For example:
-;; remake<10>
-;; remake<<1>>
-(setf (gethash "prompt" realgud:remake-pat-hash)
- (make-realgud-loc-pat
- :regexp "^remake[<]+\\([0-9]+\\)[>]+ "
- :num 1
- ))
-
-;; realgud-loc-pat that describes a "breakpoint set" line
-(setf (gethash "brkpt-set" realgud:remake-pat-hash)
- (make-realgud-loc-pat
- :regexp "^Breakpoint \\([0-9]+\\) on target \\([^:]*\\): file \\(.+\\),
line \\([0-9]+\\).\n"
- :num 1
- :file-group 3
- :line-group 4))
-
-;; realgud-loc-pat that describes a debugger "delete" (breakpoint) response.
-;; For example:
-;; Removed 1 breakpoint(s).
-(setf (gethash "brkpt-del" realgud:remake-pat-hash)
- (make-realgud-loc-pat
- :regexp "^Breakpoint \\([0-9]+\\) on target .* cleared\n"
- :num 1))
-
-(defconst realgud:remake-selected-frame-arrow "=>"
-"String that describes which frame is selected in a debugger
-backtrace listing.")
-(defconst realgud:remake-frame-arrow (format "\\(%s\\| \\)"
- realgud:remake-selected-frame-arrow))
-(defconst realgud:remake-frame-num-regexp
- "#\\([0-9]+\\) ")
-
-(defconst realgud:remake-frame-file-regexp " at \\(.*\\):\\([0-9]+\\)")
-
-;; realgud-loc-pat that describes a remake "backtrace" command line.
-;; For example:
-;; #0 Makefile.in at /tmp/Makefile:216
-;; #1 Makefile at /tmp/Makefile:230
-(setf (gethash "lang-backtrace" realgud:remake-pat-hash)
- (make-realgud-loc-pat
- :regexp (concat "^"
- realgud:remake-frame-num-regexp
- "\\(.*\\)"
- realgud:remake-frame-file-regexp
- )
- :num 1
- :file-group 3
- :line-group 4)
- )
-
-;; realgud-loc-pat that describes a debugger "backtrace" command line.
-;; For example:
-;; =>#0 Makefile.in at /tmp/Makefile:216
-;; #1 Makefile at /tmp/Makefile:230
-(setf (gethash "debugger-backtrace" realgud:remake-pat-hash)
- (make-realgud-loc-pat
- :regexp (concat "^"
- realgud:remake-frame-arrow
- realgud:remake-frame-num-regexp
- "\\(.*\\)"
- realgud:remake-frame-file-regexp
- )
- :num 2
- :file-group 4
- :line-group 5)
- )
-
-;; realgud-loc-pat that describes which frame is selected in
-;; a debugger backtrace listing.
-(setf (gethash "selected-frame-indicator" realgud:remake-pat-hash)
- realgud:remake-selected-frame-arrow)
-
-;; Regular expression for a termination message.
-(setf (gethash "termination" realgud:remake-pat-hash)
- "^remake: That's all, folks...\n")
-
-(setf (gethash "font-lock-keywords" realgud:remake-pat-hash)
- '(
- ;; ;; File name and line number
- ;; ;; E.g. =>#0 Makefile.in at /tmp/Makefile:216
- ;; ;; ----^^^^^^^^^^^^^^^^^
- (" at \\(.*\\):\\([0-9]+\\)"
- (1 realgud-file-name-face)
- (2 realgud-line-number-face))
-
- ;; The frame number and first type name, if present.
- ;; E.g. =>#0 Makefile.in at /tmp/Makefile:216
- ;; ---^
- ("#\\([0-9]+\\) "
- (1 realgud-backtrace-number-face))
- ))
-
-(setf (gethash "remake" realgud-pat-hash) realgud:remake-pat-hash)
-
-(defvar realgud:remake-command-hash (make-hash-table :test 'equal)
- "Hash key is command name like 'quit' and the value is
- the remake command to use, like 'q'")
-
-(setf (gethash "break" realgud:remake-command-hash) "break %l")
-(setf (gethash "eval" realgud:remake-command-hash) "expand %s")
-(setf (gethash "remake" realgud-command-hash) realgud:remake-command-hash)
-
-;; Unsupported features:
-(setf (gethash "jump" realgud:remake-command-hash) "*not-implemented*")
-
-(provide-me "realgud:remake-")
diff --git a/packages/realgud/realgud/debugger/remake/remake.el
b/packages/realgud/realgud/debugger/remake/remake.el
deleted file mode 100644
index e07cb1b..0000000
--- a/packages/realgud/realgud/debugger/remake/remake.el
+++ /dev/null
@@ -1,90 +0,0 @@
-;; Copyright (C) 2015-2017 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-;; `remake' Main interface to remake via Emacs
-(require 'load-relative)
-(require-relative-list '("../../common/helper") "realgud-")
-(require-relative-list '("../../common/track") "realgud-")
-(require-relative-list '("../../common/run") "realgud:")
-(require-relative-list '("core" "track-mode") "realgud:remake-")
-;; This is needed, or at least the docstring part of it is needed to
-;; get the customization menu to work in Emacs 24.
-(defgroup realgud:remake nil
- "The realgud interface to the GNU Make debugger"
- :group 'realgud
- :group 'make
- :version "24.3")
-
-(eval-when-compile (require 'cl-lib))
-
-(declare-function remake-query-cmdline 'realgud:remake-core)
-(declare-function remake-parse-cmd-args 'realgud:remake-core)
-(declare-function realgud:run-debugger 'realgud:run)
-(declare-function realgud:run-process 'realgud:run)
-
-(defun realgud:remake-run-debugger (&optional opt-command-line
- no-reset)
- "Invoke the a debugger and start the Emacs user interface.
-
-String OPT-COMMAND-LINE specifies how to run DEBUGGER-NAME. You
-will be prompted for a command line using QUERY-CMDLINE-FN is one
-isn't supplied.
-
-OPT-COMMAND-LINE is treated like a shell string; arguments are
-tokenized by `split-string-and-unquote'. The tokenized string is
-parsed by PARSE-CMD-FN and path elements found by that
-are expanded using `expand-file-name'.
-
-If successful, The command buffer of the debugger process is returned.
-Otherwise nil is returned.
-"
- (let* ((cmd-str (or opt-command-line (remake-query-cmdline "remake")))
- (cmd-args (split-string-and-unquote cmd-str))
- (parsed-args (remake-parse-cmd-args cmd-args))
- (debugger (car parsed-args))
- (script-args (cl-caddr parsed-args))
- (script-name (cadr parsed-args))
- )
- (realgud:run-process debugger script-name cmd-args
- realgud:remake-minibuffer-history no-reset)
- )
- )
-
-;; -------------------------------------------------------------------
-;; User definable variables
-;;
-
-(defcustom realgud:remake-command-name
- ;;"remake --emacs 3"
- "remake"
- "File name for executing the GNU make debugger, remake, and command options.
-This should be an executable on your path, or an absolute file name."
- :type 'string
- :group 'realgud:remake)
-
-;;;###autoload
-(defun realgud:remake (&optional opt-cmd-line no-reset)
- "See `realgud:remake' for details"
- (interactive)
- (realgud:remake-run-debugger opt-cmd-line no-reset)
- )
-
-;;;###autoload
-(defalias 'remake 'realgud:remake)
-
-(provide-me "realgud-")
-;;; remake.el ends here
diff --git a/packages/realgud/realgud/debugger/remake/track-mode.el
b/packages/realgud/realgud/debugger/remake/track-mode.el
deleted file mode 100644
index 2bc649f..0000000
--- a/packages/realgud/realgud/debugger/remake/track-mode.el
+++ /dev/null
@@ -1,69 +0,0 @@
-;; Copyright (C) 2012, 2014-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;;; GNU Make Debugger tracking a comint buffer.
-
-(require 'load-relative)
-(require-relative-list '(
- "../../common/cmds"
- "../../common/menu"
- "../../common/track"
- "../../common/track-mode"
- )
- "realgud-")
-(require-relative-list '("core" "init") "realgud:remake-")
-
-(declare-function realgud:track-set-debugger 'realgud-track-mode)
-(declare-function realgud-track-mode-setup 'realgud-track-mode)
-(declare-function realgud:track-set-debugger 'realgud-track-mode)
-
-(realgud-track-mode-vars "remake")
-
-(define-key remake-track-mode-map
- (kbd "C-c !!") 'realgud:goto-lang-backtrace-line)
-(define-key remake-track-mode-map
- (kbd "C-c !b") 'realgud:goto-debugger-backtrace-line)
-
-(defun remake-track-mode-hook()
- (if remake-track-mode
- (progn
- (use-local-map remake-track-mode-map)
- (message "using remake mode map")
- )
- (message "remake track-mode-hook disable called"))
-)
-
-(define-minor-mode remake-track-mode
- "Minor mode for tracking remake source locations inside a process shell via
realgud. remake is a GNU Make debugger.
-
-If called interactively with no prefix argument, the mode is toggled. A prefix
argument, captured as ARG, enables the mode if the argument is positive, and
disables it otherwise.
-
-\\{remake-track-mode-map}
-"
- "Minor mode for tracking ruby debugging inside a process shell."
- :init-value nil
- ;; :lighter " remake" ;; mode-line indicator from realgud-track is
sufficient.
- ;; The minor mode bindings.
- :global nil
- :group 'realgud:remake
- :keymap remake-track-mode-map
-
- (realgud:track-set-debugger "remake")
- (if remake-track-mode
- (progn
- (realgud-track-mode-setup 't)
- (remake-track-mode-hook))
- (progn
- (setq realgud-track-mode nil)
- ))
-)
-
-(define-key remake-short-key-mode-map "T" 'realgud:cmd-backtrace)
-
-(provide-me "realgud:remake-")
diff --git a/packages/realgud/realgud/debugger/trepan.pl/Makefile.am
b/packages/realgud/realgud/debugger/trepan.pl/Makefile.am
deleted file mode 100644
index 2c88842..0000000
--- a/packages/realgud/realgud/debugger/trepan.pl/Makefile.am
+++ /dev/null
@@ -1,5 +0,0 @@
-include $(srcdir)/../common.mk
-
-lisp_files = $(wildcard *.el)
-lisp_LISP = $(lisp_files)
-EXTRA_DIST = $(lisp_files)
diff --git a/packages/realgud/realgud/debugger/trepan.pl/backtrack-mode.el
b/packages/realgud/realgud/debugger/trepan.pl/backtrack-mode.el
deleted file mode 100644
index 7f7728b..0000000
--- a/packages/realgud/realgud/debugger/trepan.pl/backtrack-mode.el
+++ /dev/null
@@ -1,73 +0,0 @@
-;; Copyright (C) 2011, 2014, 2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;;; Mode for parsing various kinds of backtraces found in Perl
-
-(require 'load-relative)
-(require-relative-list '(
- "../../common/cmds"
- "../../common/menu"
- "../../common/track-mode"
- "../../common/backtrack-mode"
- )
- "realgud-")
-(require-relative-list '("core" "init") "realgud:trepanpl-")
-(require-relative-list '("../../lang/perl") "realgud-lang-")
-
-(declare-function realgud-goto-line-for-pt
- 'realgud-track-mode)
-(declare-function realgud-backtrack-set-debugger
- 'realgud-common-backtrack-mode)
-(declare-function realgud-perl-populate-command-keys
- 'realgud-lang-perl)
-
-(realgud-backtrack-mode-vars "trepanpl")
-(set-keymap-parent trepanpl-backtrack-mode-map realgud-backtrack-mode-map)
-
-(declare-function realgud-backtrack-mode(bool))
-
-(defun realgud:trepanpl-goto-control-frame-line (pt)
- "Display the location mentioned by a control-frame line
-described by PT."
- (interactive "d")
- (realgud-goto-line-for-pt pt "control-frame"))
-
-(realgud-perl-populate-command-keys trepanpl-backtrack-mode-map)
-(define-key trepanpl-backtrack-mode-map
- (kbd "C-c !c") 'realgud:trepanpl-goto-control-frame-line)
-
-(define-minor-mode trepanpl-backtrack-mode
- "Minor mode for tracking ruby debugging inside a file which may not have
process shell."
- :init-value nil
- ;; :lighter " trepanpl" ;; mode-line indicator from realgud-track is
sufficient.
- ;; The minor mode bindings.
- :global nil
- :group 'realgud:trepanpl
- :keymap trepanpl-backtrack-mode-map
-
- (realgud-backtrack-set-debugger "trepan.pl")
- (if trepanpl-backtrack-mode
- (progn
- (realgud-backtrack-mode 't)
- (run-mode-hooks (intern (trepanpl-backtrack-mode-hook))))
- (progn
- (realgud-backtrack-mode nil)
- ))
-)
-
-(defun trepanpl-backtrack-mode-hook()
- (if trepanpl-backtrack-mode
- (progn
- (use-local-map trepanpl-backtrack-mode-map)
- (message "using trepanpl mode map")
- )
- (message "trepan.pl backtrack-mode-hook disable called"))
-)
-
-(provide-me "realgud:trepanpl-")
diff --git a/packages/realgud/realgud/debugger/trepan.pl/core.el
b/packages/realgud/realgud/debugger/trepan.pl/core.el
deleted file mode 100644
index bcd979c..0000000
--- a/packages/realgud/realgud/debugger/trepan.pl/core.el
+++ /dev/null
@@ -1,182 +0,0 @@
-;; Copyright (C) 2011-2012, 2014, 2016-2017 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-(require 'load-relative)
-(require-relative-list '("../../common/track"
- "../../common/core"
- "../../common/eval"
- "../../common/lang")
- "realgud-")
-(require-relative-list '("init") "realgud:trepanpl-")
-
-(declare-function realgud:eval-strip-default 'realgud-eval)
-(declare-function realgud:expand-file-name-if-exists 'realgud-core)
-(declare-function realgud-parse-command-arg 'realgud-core)
-(declare-function realgud-query-cmdline 'realgud-core)
-(declare-function realgud-suggest-invocation 'realgud-core)
-
-;; FIXME: I think the following could be generalized and moved to
-;; realgud-... probably via a macro.
-(defvar realgud:trepanpl-minibuffer-history nil
- "minibuffer history list for the command `realgud:trepan.pl'.")
-
-(easy-mmode-defmap realgud:trepanpl-minibuffer-local-map
- '(("\C-i" . comint-dynamic-complete-filename))
- "Keymap for minibuffer prompting of trepanpl startup command."
- :inherit minibuffer-local-map)
-
-(defun realgud:trepanpl-eval-filter-callback(output-str)
- (realgud:eval-strip-default realgud:trepanpl-prompt-regexp
- (if (string-match realgud:trepanpl-eval-result-prefix-regexp output-str)
- (substring output-str (match-end 0))
- output-str)))
-
-;; FIXME: I think this code and the keymaps and history
-;; variable chould be generalized, perhaps via a macro.
-(defun realgud:trepanpl-query-cmdline (&optional opt-debugger)
- (realgud-query-cmdline
- 'realgud:trepanpl-suggest-invocation
- realgud:trepanpl-minibuffer-local-map
- 'realgud:trepanpl-minibuffer-history
- opt-debugger))
-
-;;; FIXME: DRY this with other *-parse-cmd-args routines
-(defun realgud:trepanpl-parse-cmd-args (orig-args)
- "Parse command line ORIG-ARGS for the annotate level and name of script to
debug.
-
-ORIG_ARGS should contain a tokenized list of the command line to run.
-
-We return the a list containing:
-* the command processor (e.g. perl) and it's arguments if any - a list of
strings
-* the name of the debugger given (e.g. trepan.pl) and its arguments - a list
of strings
-* the script name and its arguments - list of strings
-
-For example for the following input:
- (map 'list 'symbol-name
- '(perl5.10 -w -I . trepan.pl --cd . ./gcd.pl a b))
-
-we might return:
- ((\"perl\" \"-w\" \"-I\" \"/tmp\") (\"trepan.pl\" \"cd\" \"/tmp\")
(\"/tmp/gcd.pl\" \"a\" \"b\"))
-
-Note that the script name path has been expanded via `expand-file-name'.
-"
-
- ;; Parse the following kind of pattern:
- ;; [perl perl-options] trepanpl trepanpl-options script-name script-options
- (let (
- (args orig-args)
- (pair) ;; temp return from
- (perl-opt-two-args '("0" "C" "D" "i" "I" "l" "m" "-module" "x"))
- ;; Perl doesn't have mandatory 2-arg options in our sense,
- ;; since the two args can be run together, e.g. "-C/tmp" or "-C /tmp"
- ;;
- (perl-two-args '())
- ;; One dash is added automatically to the below, so
- ;; h is really -h and -host is really --host.
- (trepanpl-two-args '("h" "-host" "p" "-port"
- "I" "-include"))
- (trepanpl-opt-two-args '())
- (interp-regexp
- (if (member system-type (list 'windows-nt 'cygwin 'msdos))
- "^perl\\(?:5[0-9.]*\\)\\(.exe\\)?$"
- "^perl\\(?:5[0-9.]*\\)?$"))
-
- ;; Things returned
- (script-name nil)
- (debugger-name nil)
- (interpreter-args '())
- (debugger-args '())
- (script-args '())
- (annotate-p nil))
-
- (if (not (and args))
- ;; Got nothing: return '(nil, nil)
- (list interpreter-args debugger-args script-args annotate-p)
- ;; else
- ;; Strip off optional "perl" or "perl5.10.1" etc.
- (when (string-match interp-regexp
- (file-name-sans-extension
- (file-name-nondirectory (car args))))
- (setq interpreter-args (list (pop args)))
-
- ;; Strip off optional "perl" or "perl5.10.1" etc.
- (while (and args
- (string-match "^-" (car args)))
- (setq pair (realgud-parse-command-arg
- args perl-two-args perl-opt-two-args))
- (nconc interpreter-args (car pair))
- (setq args (cadr pair))))
-
- ;; Remove "trepan.pl" from "trepan.pl --trepan.pl-options script
- ;; --script-options"
- (setq debugger-name (file-name-nondirectory (car args)))
- (unless (string-match "^trepan.pl$" debugger-name)
- (message
- "Expecting debugger name `%s' to be `trepan.pl'"
- debugger-name))
- (setq debugger-args (list (pop args)))
-
- ;; Skip to the first non-option argument.
- (while (and args (not script-name))
- (let ((arg (car args)))
- (cond
- ((member arg
- '("--cmddir" "--batch" "--cd" "--include" "-I" "--module"
"-M"
- "-c" "--command"))
- (setq arg (pop args))
- (nconc debugger-args
- (list arg (expand-file-name (pop args)))))
- ;; Other options with arguments.
- ((string-match "^-" arg)
- (setq pair (realgud-parse-command-arg
- args trepanpl-two-args trepanpl-opt-two-args))
- (nconc debugger-args (car pair))
- (setq args (cadr pair)))
- ;; Anything else must be the script to debug.
- (t (setq script-name (realgud:expand-file-name-if-exists arg))
- (setq script-args (cons script-name (cdr args))))
- )))
- (list interpreter-args debugger-args script-args))
- ))
-
-; # To silence Warning: reference to free variable
-(defvar realgud:trepanpl-command-name)
-
-(defun realgud:trepanpl-suggest-invocation (debugger-name)
- "Suggest a trepanpl command invocation via `realgud-suggest-invocaton'"
- (realgud-suggest-invocation (or debugger-name realgud:trepanpl-command-name)
- realgud:trepanpl-minibuffer-history
- "perl" "\\.pl$" "trepan.pl"))
-
-(defun realgud:trepanpl-reset ()
- "Trepanpl cleanup - remove debugger's internal buffers (frame,
-breakpoints, etc.)."
- (interactive)
- ;; (trepanpl-breakpoint-remove-all-icons)
- (dolist (buffer (buffer-list))
- (when (string-match "\\*trepanpl-[a-z]+\\*" (buffer-name buffer))
- (let ((w (get-buffer-window buffer)))
- (when w
- (delete-window w)))
- (kill-buffer buffer))))
-
-;; (defun trepanpl-reset-keymaps()
-;; "This unbinds the special debugger keys of the source buffers."
-;; (interactive)
-;; (setcdr (assq 'trepanpl-debugger-support-minor-mode minor-mode-map-alist)
-;; trepanpl-debugger-support-minor-mode-map-when-deactive))
-
-
-(defun realgud:trepanpl-customize ()
- "Use `customize' to edit the settings of the
-`realgud:trepan.pl' debugger."
- (interactive)
- (customize-group 'realgud:trepanpl))
-
-(provide-me "realgud:trepanpl-")
diff --git a/packages/realgud/realgud/debugger/trepan.pl/init.el
b/packages/realgud/realgud/debugger/trepan.pl/init.el
deleted file mode 100644
index f3bf383..0000000
--- a/packages/realgud/realgud/debugger/trepan.pl/init.el
+++ /dev/null
@@ -1,281 +0,0 @@
-;; Copyright (C) 2015-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-;; Trepanning Perl debugger
-(eval-when-compile (require 'cl-lib)) ;For setf.
-
-(require 'load-relative)
-(require-relative-list '("../../common/regexp"
- "../../common/loc"
- "../../common/init")
- "realgud-")
-(require-relative-list '("../../lang/perl") "realgud-lang-")
-
-(defvar realgud-pat-hash)
-(declare-function make-realgud-loc-pat (realgud-loc))
-
-(defvar realgud:trepanpl-pat-hash (make-hash-table :test 'equal)
- "Hash key is the what kind of pattern we want to match:
-backtrace, prompt, etc. The values of a hash entry is a
-realgud-loc-pat struct")
-
-;; Regular expression that describes a trepan.pl location generally shown
-;; before a command prompt. We include matching the source text so we
-;; can save that.
-;;
-;; Program-location lines look like this:
-;; -- File::Basename::(/usr/share/perl/5.14/File/Basename.pm:284 @0x8918b70)
-;; my $dirname = dirname(__FILE__);
-;;
-;; or for an eval'd expression:
-;; -- main::((eval 1189)[/tmp/test.pl:2] remapped /tmp/JLlH.pl:1 @0xadcbda0)
-;; $x = 1 + 2;
-;;
-;; or at a function call without the Perl OpCode position or source text:
-;; -> main::(example/gcd.pl:8)
-
-(setf (gethash "loc" realgud:trepanpl-pat-hash)
- (make-realgud-loc-pat
- :regexp (format ".. \\(?:.+::\\)?(\\(?:.+ \\(?:via\\|remapped\\)
\\)?\\(.+\\):%s\\(?: @0x[0-9a-f]+\\)?)\\(?:\n\\(.*?\\)\n\\)?"
- realgud:regexp-captured-num)
- :file-group 1
- :line-group 2
- :text-group 3
- :ignore-file-re realgud-perl-ignore-file-re)
- )
-
-(defconst realgud:trepanpl-frame-start-regexp
- "\\(^\\|\n\\)\\(?:-->\\| \\) #")
-
-;; Regular expression that describes a trepanpl command prompt
-;; For example:
-;; (trepanpl):
-;; ((trepanpl)):
-;; (address@hidden):
-;; (address@hidden):
-(defconst realgud:trepanpl-prompt-regexp
- "^(+trepanpl\\(@[0-9]+\\|@main\\)?)+: ")
-
-(setf (gethash "prompt" realgud:trepanpl-pat-hash)
- (make-realgud-loc-pat
- :regexp realgud:trepanpl-prompt-regexp
- ))
-
-(defconst realgud:trepanpl-eval-result-prefix-regexp
- "^\\$DB::D\\[[0-9]+\\] = ")
-
-(setf (gethash "prompt" realgud:trepanpl-pat-hash)
- (make-realgud-loc-pat
- :regexp realgud:trepanpl-prompt-regexp
- ))
-
-
-(defconst realgud:trepanpl-frame-num-regexp
- realgud:regexp-captured-num)
-
-;; Regular expression that describes a Perl backtrace line.
-;; For example:
-;; --> #0 @ = File::Basename::fileparse('/usr/local/bin/trepan.pl') in
-;; file `/usr/share/perl/5.18.2/File/Basename.pm' at line 107
-;; #1 @ = File::Basename::dirname('/usr/local/bin/trepan.pl') in
-;; file `/usr/share/perl/5.18.2/File/Basename.pm' at line 294
-;; #2 file `/usr/local/bin/trepan.pl' at line 11
-(setf (gethash "debugger-backtrace" realgud:trepanpl-pat-hash)
- (make-realgud-loc-pat
- :regexp (concat
- realgud:trepanpl-frame-start-regexp
- realgud:trepanpl-frame-num-regexp
- "\\(?: address@hidden = .* in\\)?"
- "[\n\t ]+?file `"
- "\\(.*\\)' at line "
- realgud:regexp-captured-num)
- :num 2
- :file-group 3
- :line-group 4
- :ignore-file-re realgud-perl-ignore-file-re)
- )
-
-;; Regular expression that describes location in a Perl errmsg
-(setf (gethash "perl-errmsg" realgud:trepanpl-pat-hash)
- realgud-perl-errmsg-loc-pat)
-
-;; Regular expression that describes a Perl Carp backtrace line.
-;; at /tmp/foo.pl line 7
-;; main::__ANON__('Illegal division by zero at /tmp/foo.pl line 4.\x{a}')
called at /tmp/foo.pl line 4
-;; main::foo(3) called at /tmp/foo.pl line 8
-(setf (gethash "lang-backtrace" realgud:trepanpl-pat-hash)
- realgud-perl-carp-loc-pat)
-
-;; Regular expression that describes a "breakpoint set" line.
-;; For example:
-;; Breakpoint 1 set in (eval 1177)[/Eval.pm:94] at line 5"
-;; Breakpoint 2 set in /tmp/File/Basename.pm at line 215
-(setf (gethash "brkpt-set" realgud:trepanpl-pat-hash)
- (make-realgud-loc-pat
- :regexp (format "^Breakpoint %s set in[\n\t ]+\\(.+\\)[ \t\n]+at line
\\([0-9]+\\)"
- realgud:regexp-captured-num)
- :num 1
- :file-group 2
- :line-group 3
- :ignore-file-re realgud-perl-ignore-file-re)
- )
-
-;; Regular expression that describes a debugger "delete" (breakpoint) response.
-;; For example:
-;; Deleted breakpoint 1.
-(setf (gethash "brkpt-del" realgud:trepanpl-pat-hash)
- (make-realgud-loc-pat
- :regexp (format "^Deleted breakpoint %s\n"
- realgud:regexp-captured-num)
- :num 1))
-
-;; Regular expression that describes a debugger "disable" (breakpoint)
response.
-;; For example:
-;; Breakpoint entry 4 disabled.
-(setf (gethash "brkpt-disable" realgud:trepanpl-pat-hash)
- (make-realgud-loc-pat
- :regexp (format "^Breakpoint %s disabled"
- realgud:regexp-captured-num)
- :num 1))
-
-;; Regular expression that describes a debugger "enable" (breakpoint) response.
-;; For example:
-;; Breakpoint 4 enabled.
-(setf (gethash "brkpt-enable" realgud:trepanpl-pat-hash)
- (make-realgud-loc-pat
- :regexp (format "^Breakpoint %s enabled"
- realgud:regexp-captured-num)
- :num 1))
-
-(defconst realgud:trepanpl-selected-frame-indicator "-->"
-"String that describes which frame is selected in a debugger
-backtrace listing.")
-
-(defconst realgud:trepanpl-frame-file-regexp
- "[ \t\n]+in file \\([^ \n]+\\)")
-
-(defconst realgud:trepanpl-debugger-name "trepan.pl" "Name of debugger")
-
-;; Top frame number
-(setf (gethash "top-frame-num" realgud:trepanpl-pat-hash) 0)
-
-;; realgud-loc-pat that describes a debugger "selected" frame in in
-;; a frame-motion command.
-;; For example:
-;; --> #1 TOP Object#<top /usr/local/bin/irb> in file /usr/local/bin/ipl at
line 9
-(setf (gethash "selected-frame" realgud:trepanpl-pat-hash)
- (make-realgud-loc-pat
- :regexp
- (format "^%s #\\([0-9]+\\) .*%s"
- realgud:trepanpl-selected-frame-indicator
- realgud:trepanpl-frame-file-regexp)
- :num 1))
-
-;; Regular expression that for a termination message.
-(setf (gethash "termination" realgud:trepanpl-pat-hash)
- "^trepan.pl: That's all, folks...\n")
-
-(setf (gethash "font-lock-keywords" realgud:trepanpl-pat-hash)
- '(
- ;; The frame number and first type name, if present.
- ("^\\(-->\\| \\)? #\\([0-9]+\\) \\([A-Z]+\\)
*\\([A-Z_][a-zA-Z0-9_]*\\)[#]\\([a-zA-Z_][a-zA-Z_[0-9]]*\\)?"
- (2 realgud-backtrace-number-face)
- (3 font-lock-keyword-face) ; e.g. METHOD, TOP
- (4 font-lock-constant-face) ; e.g. Object
- (5 font-lock-function-name-face nil t)) ; t means optional
- ;; Instruction sequence
- ("<\\(.+\\)>"
- (1 font-lock-variable-name-face))
- ;; "::Type", which occurs in class name of function and in parameter
list.
- ;; Parameter sequence
- ("(\\(.+\\))"
- (1 font-lock-variable-name-face))
- ;; "::Type", which occurs in class name of function and in parameter
list.
- ("::\\([a-zA-Z_][a-zA-Z0-9_]*\\)"
- (1 font-lock-type-face))
- ;; File name.
- ("[ \t]+in file \\([^ ]+*\\)"
- (1 realgud-file-name-face))
- ;; Line number.
- ("[ \t]+at line \\([0-9]+\\)$"
- (1 realgud-line-number-face))
- ;; Function name.
- ("\\<\\([a-zA-Z_][a-zA-Z0-9_]*\\)\\.\\([a-zA-Z_][a-zA-Z0-9_]*\\)"
- (1 font-lock-type-face)
- (2 font-lock-function-name-face))
- ;; (trepanpl-frames-match-current-line
- ;; (0 trepanpl-frames-current-frame-face append))
- ))
-
-;; (setf (gethash "font-lock-keywords" realgud:trepanpl-pat-hash)
-;; '(
-;; ;; The frame number and first type name, if present.
-;; ((concat realgud:trepanpl-frame-start-regexp " "
-;; realgud:trepanpl-frame-num-regexp " "
-;; "\\([A-Z]+\\)
*\\([A-Z_][a-zA-Z0-9_]*\\)[#]\\([a-zA-Z_][a-zA-Z_[0-9]]*\\)?")
-;; (2 realgud-backtrace-number-face)
-;; (3 font-lock-keyword-face) ; e.g. METHOD, TOP
-;; (4 font-lock-constant-face) ; e.g. Object
-;; (5 font-lock-function-name-face nil t)) ; t means optional
-;; ;; Instruction sequence
-;; ("<\\(.+\\)>"
-;; (1 font-lock-variable-name-face))
-;; ;; "::Type", which occurs in class name of function and in
-;; ;; parameter list. Parameter sequence
-;; ("(\\(.+\\))"
-;; (1 font-lock-variable-name-face))
-;; ;; "::Type", which occurs in class name of function and in
-;; ;; parameter list.
-;; ("::\\([a-zA-Z_][a-zA-Z0-9_]*\\)"
-;; (1 font-lock-type-face))
-;; ;; File name.
-;; (realgud:trepanpl-frame-file-regexp (1 realgud-file-name-face))
-;; ;; Line number.
-;; (realgud:trepanpl-frame-line-regexp (1 realgud-line-number-face))
-;; ;; Function name.
-;; ("\\<\\([a-zA-Z_][a-zA-Z0-9_]*\\)\\.\\([a-zA-Z_][a-zA-Z0-9_]*\\)"
-;; (1 font-lock-type-face)
-;; (2 font-lock-function-name-face))
-;; ;; (trepanpl-frames-match-current-line
-;; ;; (0 trepanpl-frames-current-frame-face append))
-;; ))
-
-(setf (gethash "callback-eval-filter" realgud:trepanpl-pat-hash)
- 'realgud:trepanpl-eval-filter-callback)
-
-(setf (gethash realgud:trepanpl-debugger-name realgud-pat-hash)
realgud:trepanpl-pat-hash)
-
-;; Prefix used in variable names (e.g. short-key-mode-map) for
-;; this debugger
-
-(setf (gethash "trepan.pl" realgud:variable-basename-hash) "realgud:trepanpl")
-
-(defvar realgud:trepanpl-command-hash (make-hash-table :test 'equal)
- "Hash key is command name like 'quit' and the value is
- the trepanpl command to use, like 'quit!'")
-
-(setf (gethash "break" realgud:trepanpl-command-hash) "break %x %l")
-(setf (gethash "eval" realgud:trepanpl-command-hash) "eval %s")
-(setf (gethash "quit" realgud:trepanpl-command-hash) "quit!")
-(setf (gethash "until" realgud:trepanpl-command-hash) "continue %l")
-(setf (gethash realgud:trepanpl-debugger-name
- realgud-command-hash) realgud:trepanpl-command-hash)
-
-;; Unsupported features:
-(setf (gethash "jump" realgud:trepanpl-command-hash) "*not-implemented*")
-
-(provide-me "realgud:trepanpl-")
diff --git a/packages/realgud/realgud/debugger/trepan.pl/track-mode.el
b/packages/realgud/realgud/debugger/trepan.pl/track-mode.el
deleted file mode 100644
index d29add5..0000000
--- a/packages/realgud/realgud/debugger/trepan.pl/track-mode.el
+++ /dev/null
@@ -1,81 +0,0 @@
-;; Copyright (C) 2011-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; Perl trepanning Debugger tracking a comint buffer.
-
-(require 'load-relative)
-(require-relative-list '(
- "../../common/cmds"
- "../../common/menu"
- "../../common/track"
- "../../common/track-mode"
- )
- "realgud-")
-(require-relative-list '("core" "init") "realgud:trepanpl-")
-(require-relative-list '("../../lang/perl") "realgud-lang-")
-
-(realgud-track-mode-vars "realgud:trepanpl")
-
-(declare-function realgud-goto-line-for-pt 'realgud-track-mode)
-(declare-function realgud-track-mode 'realgud-track-mode)
-(declare-function realgud-track-mode-setup 'realgud-track-mode)
-(declare-function realgud:track-mode-hook 'realgud-track-mode)
-(declare-function realgud:track-set-debugger 'realgud-track-mode)
-(declare-function realgud-perl-populate-command-keys 'realgud-lang-perl)
-
-
-(defun realgud:trepanpl-goto-syntax-error-line (pt)
- "Display the location mentioned in a Syntax error line
-described by PT."
- (interactive "d")
- (realgud-goto-line-for-pt pt "syntax-error"))
-
-(define-key realgud:trepanpl-track-mode-map
- (kbd "C-c !s") 'realgud:trepanpl-goto-syntax-error-line)
-
-(realgud-perl-populate-command-keys realgud:trepanpl-track-mode-map)
-
-(defun realgud:trepanpl-track-mode-hook()
- (if realgud:trepanpl-track-mode
- (progn
- (use-local-map realgud:trepanpl-track-mode-map)
- (message "using trepanpl mode map")
- )
- (message "trepan.pl track-mode-hook disable called"))
-)
-
-(define-minor-mode realgud:trepanpl-track-mode
- "Minor mode for tracking trepan.pl source locations inside a
-process shell via realgud. trepan.pl is a Perl debugger see URL
-`https://metacpan.org/pod/Devel::Trepan'.
-
-If called interactively with no prefix argument, the mode is
-toggled. A prefix argument, captured as ARG, enables the mode if
-the argument is positive, and disables it otherwise.
-"
- :init-value nil
- ;; :lighter " trepanpl" ;; mode-line indicator from realgud-track is
sufficient.
- ;; The minor mode bindings.
- :global nil
- :group 'realgud:trepanpl
- :keymap realgud:trepanpl-track-mode-map
-
- (realgud:track-set-debugger "trepan.pl")
- (if realgud:trepanpl-track-mode
- (progn
- (realgud-track-mode-setup 't)
- (realgud:trepanpl-track-mode-hook))
- (progn
- (setq realgud-track-mode nil)
- ))
-)
-
-(define-key realgud:trepanpl-short-key-mode-map "T" 'realgud:cmd-backtrace)
-
-(provide-me "realgud:trepanpl-")
diff --git a/packages/realgud/realgud/debugger/trepan.pl/trepanpl.el
b/packages/realgud/realgud/debugger/trepan.pl/trepanpl.el
deleted file mode 100644
index 689c03d..0000000
--- a/packages/realgud/realgud/debugger/trepan.pl/trepanpl.el
+++ /dev/null
@@ -1,74 +0,0 @@
-;; Copyright (C) 2011, 2014, 2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; `trepanpl' Main interface to trepanpl via Emacs
-(require 'load-relative)
-(require-relative-list '("../../common/helper") "realgud-")
-(require-relative-list '("../../common/track") "realgud-")
-(require-relative-list '("../../common/run") "realgud:")
-(require-relative-list '("core" "track-mode") "realgud:trepanpl-")
-
-;; This is needed, or at least the docstring part of it is needed to
-;; get the customization menu to work in Emacs 24.
-(defgroup realgud:trepanpl nil
- "The realgud interface to the Perl \"trepanning\" debugger"
- :group 'perl
- :group 'realgud
- :version "24.3")
-
-;; -------------------------------------------------------------------
-;; User definable variables
-;;
-
-(defcustom realgud:trepanpl-command-name
- "trepan.pl"
- "File name for executing the Perl debugger and command options.
-This should be an executable on your path, or an absolute file name."
- :type 'string
- :group 'realgud:trepanpl)
-
-;; -------------------------------------------------------------------
-;; The end.
-;;
-
-(declare-function realgud:trepanpl-track-mode 'realgud-trepanpl-track)
-(declare-function realgud:trepanpl-query-cmdline 'realgud-trepanpl-core)
-(declare-function realgud:trepanpl-parse-cmd-args 'realgud-trepanpl-core)
-(declare-function realgud:run-debugger 'realgud:run)
-
-;;;###autoload
-(defun realgud:trepan.pl (&optional opt-cmd-line no-reset)
- "Invoke the trepan.pl Perl debugger and start the Emacs user interface.
-
-String OPT-CMD-LINE specifies how to run trepan.pl. You will be prompted
-for a command line is one isn't supplied.
-
-OPT-CMD-LINE is treated like a shell string; arguments are
-tokenized by `split-string-and-unquote'. The tokenized string is
-parsed by `realgud:trepanpl-parse-cmd-args' and path elements found by that
-are expanded using `realgud:expand-file-name-if-exists'.
-
-Normally, command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset. See `loc-changes-clear-buffer' to clear
-fringe and marginal icons.
-"
- (interactive)
- (realgud:run-debugger "trepan.pl" 'realgud:trepanpl-query-cmdline
- 'realgud:trepanpl-parse-cmd-args
- 'realgud:trepanpl-minibuffer-history
- opt-cmd-line no-reset))
-
-;;;###autoload
-(defalias 'trepan.pl 'realgud:trepan.pl)
-(provide-me "realgud-")
-;;; trepanpl.el ends here
diff --git a/packages/realgud/realgud/debugger/trepan/Makefile.am
b/packages/realgud/realgud/debugger/trepan/Makefile.am
deleted file mode 100644
index 2c88842..0000000
--- a/packages/realgud/realgud/debugger/trepan/Makefile.am
+++ /dev/null
@@ -1,5 +0,0 @@
-include $(srcdir)/../common.mk
-
-lisp_files = $(wildcard *.el)
-lisp_LISP = $(lisp_files)
-EXTRA_DIST = $(lisp_files)
diff --git a/packages/realgud/realgud/debugger/trepan/backtrack-mode.el
b/packages/realgud/realgud/debugger/trepan/backtrack-mode.el
deleted file mode 100644
index d92b6b7..0000000
--- a/packages/realgud/realgud/debugger/trepan/backtrack-mode.el
+++ /dev/null
@@ -1,80 +0,0 @@
-;; Copyright (C) 2015-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-;;; Mode for parsing various kinds of backtraces found in Ruby
-
-(require 'load-relative)
-(require-relative-list '(
- "../../common/cmds"
- "../../common/menu"
- "../../common/track-mode"
- "../../common/backtrack-mode"
- )
- "realgud-")
-(require-relative-list '("core" "init") "realgud:trepan-")
-(require-relative-list '("../../lang/ruby") "realgud-lang-")
-
-(realgud-backtrack-mode-vars "trepan")
-(set-keymap-parent trepan-backtrack-mode-map realgud-backtrack-mode-map)
-
-(declare-function realgud-backtrack-mode
'realgud-common-backtrack-mode)
-(declare-function realgud-backtrack-set-debugger
'realgud-common-backtrack-mode)
-(declare-function realgud-goto-line-for-pt
'realgud-common-backtrack-mode)
-(declare-function realgud:ruby-populate-command-keys 'realgud-lang-ruby)
-
-(defun realgud:trepan-goto-control-frame-line (pt)
- "Display the location mentioned by a control-frame line
-described by PT."
- (interactive "d")
- (realgud-goto-line-for-pt pt "control-frame"))
-
-(realgud:ruby-populate-command-keys trepan-backtrack-mode-map)
-(define-key trepan-backtrack-mode-map
- (kbd "C-c !c") 'realgud:trepan-goto-control-frame-line)
-
-(define-minor-mode trepan-backtrack-mode
- "Minor mode for tracking ruby debugging inside a file which may not have
process shell.
-
-\\{trepan-backtrack-mode-map}
-"
- :init-value nil
- ;; :lighter " trepan" ;; mode-line indicator from realgud-track is
sufficient.
- ;; The minor mode bindings.
- :global nil
- :group 'realgud:trepan
- :keymap trepan-backtrack-mode-map
-
- (realgud-backtrack-set-debugger "trepan")
- (if trepan-backtrack-mode
- (progn
- (realgud-backtrack-mode 't)
- (run-mode-hooks (intern (trepan-backtrack-mode-hook))))
- (progn
- (realgud-backtrack-mode nil)
- ))
-)
-
-(defun trepan-backtrack-mode-hook()
- (if trepan-backtrack-mode
- (progn
- (use-local-map trepan-backtrack-mode-map)
- (message "using trepan mode map")
- )
- (message "trepan backtrack-mode-hook disable called"))
-)
-
-(provide-me "realgud:trepan-")
diff --git a/packages/realgud/realgud/debugger/trepan/core.el
b/packages/realgud/realgud/debugger/trepan/core.el
deleted file mode 100644
index a844208..0000000
--- a/packages/realgud/realgud/debugger/trepan/core.el
+++ /dev/null
@@ -1,242 +0,0 @@
-;; Copyright (C) 2010, 2012, 2014-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-(require 'compile) ;; for compilation-find-file
-(require 'load-relative)
-(require-relative-list '("../../common/track"
- "../../common/core"
- "../../common/lang")
- "realgud-")
-(require-relative-list '("init") "realgud:trepan-")
-
-(declare-function realgud:strip 'realgud)
-(declare-function realgud:expand-file-name-if-exists 'realgud-core)
-(declare-function realgud-parse-command-arg 'realgud-core)
-(declare-function realgud-query-cmdline 'realgud-core)
-(declare-function realgud-suggest-invocation 'realgud-core)
-(declare-function realgud:file-loc-from-line 'realgud-file)
-
-;; FIXME: I think the following could be generalized and moved to
-;; realgud-... probably via a macro.
-(defvar realgud:trepan-minibuffer-history nil
- "minibuffer history list for the command `realgud:trepan'.")
-
-(easy-mmode-defmap trepan-minibuffer-local-map
- '(("\C-i" . comint-dynamic-complete-filename))
- "Keymap for minibuffer prompting of gud startup command."
- :inherit minibuffer-local-map)
-
-(defvar realgud:trepan-file-remap (make-hash-table :test 'equal)
- "How to remap Python files in trepan when we otherwise can't
- find in the filesystem. The hash key is the file string we saw,
- and the value is associated filesystem string presumably in the
- filesystem")
-
-;; FIXME: this code could be generalized and put in a common place.
-(defun realgud:trepan-find-file(filename)
- "A find-file specific for trepan. We strip off trailing
-blanks. Failing that we will prompt for a mapping and save that
-in variable `realgud:trepan-file-remap' when that works. In the
-future, we may also consult RUBYPATH."
- (let* ((transformed-file)
- (stripped-filename (realgud:strip filename))
- ;; (ignore-file-re)
- )
- (cond
- ((file-exists-p filename) filename)
- ((file-exists-p stripped-filename) stripped-filename)
- ;; ((string-match ((ignore-file-re filename)
- ;; (message "tracking ignored for psuedo-file: %s" filename) nil)
- ('t
- ;; FIXME search RUBYLIB if not absolute file?
- (if (gethash filename realgud-file-remap)
- (let ((remapped-filename))
- (setq remapped-filename (gethash filename
realgud:trepan-file-remap))
- (if (file-exists-p remapped-filename)
- remapped-filename
- ;; else
- (and (remhash filename realgud-file-remap)) nil)
- ;; else
- (let ((remapped-filename))
- (setq remapped-filename
- (buffer-file-name
- (compilation-find-file (point-marker) stripped-filename
- nil "%s.rb")))
- (when (and remapped-filename (file-exists-p remapped-filename))
- (puthash filename remapped-filename realgud-file-remap)
- remapped-filename
- ))
- ))
- ))
- ))
-
-(defun realgud:trepan-loc-fn-callback(text filename lineno source-str
- ignore-file-re cmd-mark)
- (realgud:file-loc-from-line filename lineno
- cmd-mark source-str nil nil
- 'realgud:trepan-find-file))
-
-;; FIXME: I think this code and the keymaps and history
-;; variable chould be generalized, perhaps via a macro.
-(defun realgud:trepan-query-cmdline (&optional opt-debugger)
- (realgud-query-cmdline
- 'trepan-suggest-invocation
- trepan-minibuffer-local-map
- 'realgud:trepan-minibuffer-history
- opt-debugger))
-
-(defun realgud:trepan-parse-cmd-args (orig-args)
- "Parse command line ARGS for the annotate level and name of script to debug.
-
-ORIG-ARGS should contain a tokenized list of the command line to run.
-
-We return the a list containing
-
-* the command processor (e.g. ruby) and it's arguments if any - a
- list of strings
-
-* the name of the debugger given (e.g. trepan) and its arguments
- - a list of strings
-
-* the script name and its arguments - list of strings
-
-* whether the annotate or emacs option was given ('-A',
- '--annotate' or '--emacs) - a boolean
-
-For example for the following input
- (map 'list 'symbol-name
- '(ruby1.9 -W -C /tmp trepan --emacs ./gcd.rb a b))
-
-we might return:
- ((ruby1.9 -W -C) (trepan --emacs) (./gcd.rb a b) 't)
-
-Note that the script name path has been expanded via `expand-file-name'.
-"
-
- ;; Parse the following kind of pattern:
- ;; [ruby ruby-options] trepan trepan-options script-name script-options
- (let (
- (args orig-args)
- (pair) ;; temp return from
- (ruby-opt-two-args '("0" "C" "e" "E" "F" "i"))
- ;; Ruby doesn't have mandatory 2-arg options in our sense,
- ;; since the two args can be run together, e.g. "-C/tmp" or "-C /tmp"
- ;;
- (ruby-two-args '())
- ;; One dash is added automatically to the below, so
- ;; h is really -h and -host is really --host.
- (trepan-two-args '("h" "-host" "p" "-port"
- "I" "-include" "-r" "-require"))
- (trepan-opt-two-args '())
- (interp-regexp
- (if (member system-type (list 'windows-nt 'cygwin 'msdos))
- "^ruby[-0-9]*\\(.exe\\)?$"
- "^ruby[-0-9]*$"))
-
- ;; Things returned
- (script-name nil)
- (debugger-name nil)
- (interpreter-args '())
- (debugger-args '())
- (script-args '())
- (annotate-p nil))
-
- (if (not (and args))
- ;; Got nothing: return '(nil, nil)
- (list interpreter-args debugger-args script-args annotate-p)
- ;; else
- ;; Strip off optional "ruby" or "ruby182" etc.
- (when (string-match interp-regexp
- (file-name-sans-extension
- (file-name-nondirectory (car args))))
- (setq interpreter-args (list (pop args)))
-
- ;; Strip off Ruby-specific options
- (while (and args
- (string-match "^-" (car args)))
- (setq pair (realgud-parse-command-arg
- args ruby-two-args ruby-opt-two-args))
- (nconc interpreter-args (car pair))
- (setq args (cadr pair))))
-
- ;; Remove "trepan" from "trepan --trepan-options script
- ;; --script-options"
- (setq debugger-name (file-name-sans-extension
- (file-name-nondirectory (car args))))
- (unless (string-match "^trepan$" debugger-name)
- (message
- "Expecting debugger name `%s' to be `trepan'"
- debugger-name))
- (setq debugger-args (list (pop args)))
-
- ;; Skip to the first non-option argument.
- (while (and args (not script-name))
- (let ((arg (car args)))
- (cond
- ;; Annotation or emacs option with level number.
- ((or (member arg '("--annotate" "-A"))
- (equal arg "--emacs"))
- (setq annotate-p t)
- (nconc debugger-args (list (pop args))))
- ;; Combined annotation and level option.
- ((string-match "^--annotate=[0-9]" arg)
- (nconc debugger-args (list (pop args)) )
- (setq annotate-p t))
- ;; path-argument options
- ((member arg '("--include" "-I" "--require" "-I"))
- (setq arg (pop args))
- (nconc debugger-args
- (list arg (realgud:expand-file-name-if-exists
- (pop args)))))
- ;; Options with arguments.
- ((string-match "^-" arg)
- (setq pair (realgud-parse-command-arg
- args trepan-two-args trepan-opt-two-args))
- (nconc debugger-args (car pair))
- (setq args (cadr pair)))
- ;; Anything else must be the script to debug.
- (t (setq script-name (realgud:expand-file-name-if-exists arg))
- (setq script-args (cons script-name (cdr args))))
- )))
- (list interpreter-args debugger-args script-args annotate-p))))
-
-;; To silence Warning: reference to free variable
-(defvar realgud:trepan-command-name)
-
-(defun trepan-suggest-invocation (debugger-name)
- "Suggest a trepan command invocation via `realgud-suggest-invocaton'"
- (realgud-suggest-invocation realgud:trepan-command-name
- realgud:trepan-minibuffer-history
- "ruby" "\\.rb$" "trepan"))
-
-(defun trepan-reset ()
- "Trepan cleanup - remove debugger's internal buffers (frame,
-breakpoints, etc.)."
- (interactive)
- ;; (trepan-breakpoint-remove-all-icons)
- (dolist (buffer (buffer-list))
- (when (string-match "\\*trepan-[a-z]+\\*" (buffer-name buffer))
- (let ((w (get-buffer-window buffer)))
- (when w
- (delete-window w)))
- (kill-buffer buffer))))
-
-;; (defun trepan-reset-keymaps()
-;; "This unbinds the special debugger keys of the source buffers."
-;; (interactive)
-;; (setcdr (assq 'trepan-debugger-support-minor-mode minor-mode-map-alist)
-;; trepan-debugger-support-minor-mode-map-when-deactive))
-
-
-(defun realgud:trepan-customize ()
- "Use `customize' to edit the settings of the `trepan' debugger."
- (interactive)
- (customize-group 'realgud:trepan))
-
-(provide-me "realgud:trepan-")
diff --git a/packages/realgud/realgud/debugger/trepan/init.el
b/packages/realgud/realgud/debugger/trepan/init.el
deleted file mode 100644
index f66e3e8..0000000
--- a/packages/realgud/realgud/debugger/trepan/init.el
+++ /dev/null
@@ -1,230 +0,0 @@
-;; Copyright (C) 2010, 2014-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-;; Ruby Trepanning debugger
-(eval-when-compile (require 'cl-lib)) ;For setf.
-
-(require 'load-relative)
-(require-relative-list '("../../common/regexp"
- "../../common/loc"
- "../../common/init")
- "realgud-")
-(require-relative-list '("../../lang/ruby") "realgud-lang-")
-
-(defvar realgud-pat-hash)
-(declare-function make-realgud-loc-pat (realgud-loc))
-
-(defvar realgud:trepan-pat-hash (make-hash-table :test 'equal)
- "Hash key is the what kind of pattern we want to match:
-backtrace, prompt, etc. The values of a hash entry is a
-realgud-loc-pat struct")
-
-(setf (gethash "loc-callback-fn" realgud:trepan-pat-hash)
'realgud:trepan-loc-fn-callback)
-
-;; Regular expression that describes a trepan location generally shown
-;; before a command prompt.
-;; For example:
-;; -- (/tmp/linecache.rb:64)
-;; C> (/tmp/eval.rb:2)
-(setf (gethash "loc" realgud:trepan-pat-hash)
- (make-realgud-loc-pat
- :regexp ".. (\\(?:.+ \\(?:via\\|remapped\\)
\\)?\\(.+\\):\\([0-9]+\\)\\(?: @[0-9]+\\)?)\\(?:\n\\(.*?\\)\n\\)?"
- :file-group 1
- :line-group 2
- :text-group 3
- :ignore-file-re "(eval: .*)"
- ))
-
-;; Regular expression that describes a trepan command prompt
-;; For example:
-;; (trepan):
-;; ((trepan)):
-;; (address@hidden):
-;; (address@hidden):
-(setf (gethash "prompt" realgud:trepan-pat-hash)
- (make-realgud-loc-pat
- :regexp "^(+trepan\\(@[0-9]+\\|@main\\)?)+: "
- ))
-
-;; Regular expression that describes a Ruby YARV 1.9 syntax error line.
-(setf (gethash "syntax-error" realgud:trepan-pat-hash)
- realgud-ruby-YARV-syntax-error-pat)
-
-;; Regular expression that describes a Ruby YARV backtrace line.
-;; For example:
-;; from /ruby/gems/2.2.0/gems/fog-1.32.0/lib/fog/digitalocean.rb:1:in
`<top (required)>'
-;; from /Users/fog-1.32.0/lib/fog.rb:28:in `require'
-(setf (gethash "lang-backtrace" realgud:trepan-pat-hash)
- realgud-ruby-backtrace-loc-pat)
-
-;; realgud-loc-pat that describes a ruby $! backtrace
-(setf (gethash "dollar-bang-backtrace" realgud:trepan-pat-hash)
- realgud-ruby-dollar-bang-loc-pat)
-
-;; realgud-loc-pat that describes a "breakpoint set" line.
-;; For example:
-;; Breakpoint 1 set at VM offset 2 of instruction sequence "require",
-;; line 29 in file <internal:lib/rubygems/custom_require>.
-;; Breakpoint 2 set at VM offset 29 of instruction sequence "<top /xx.rb>",
-;; line 64 in file /src/external-vcs/linecache/trunk/lib/linecache.rb.
-(setf (gethash "brkpt-set" realgud:trepan-pat-hash)
- (make-realgud-loc-pat
- :regexp "^Breakpoint \\([0-9]+\\) set at .*[\n\t ]+line \\([0-9]+\\)[
\t\n]+in file \\(.+\\)."
- :num 1
- :file-group 3
- :line-group 2))
-
-;; realgud-loc-pat that describes a debugger "delete" (breakpoint) response.
-;; For example:
-;; Deleted breakpoint 1.
-(setf (gethash "brkpt-del" realgud:trepan-pat-hash)
- (make-realgud-loc-pat
- :regexp "^Deleted breakpoint \\([0-9]+\\).\n"
- :num 1))
-
-(defconst realgud:trepan-selected-frame-indicator "-->"
-"String that describes which frame is selected in a debugger
-backtrace listing.")
-
-(defconst realgud:trepan-frame-file-regexp
- "[ \t\n]+in file \\([^ \n]+\\)")
-
-(defconst realgud:trepan-debugger-name "trepan" "Name of debugger")
-
-;; Top frame number
-(setf (gethash "top-frame-num" realgud:trepan-pat-hash) 0)
-
-;; realgud-loc-pat that describes a debugger "selected" frame in in
-;; a frame-motion command.
-;; For example:
-;; --> #1 TOP Object#<top /usr/local/bin/irb> in file /usr/local/bin/irb at
line 9
-(setf (gethash "selected-frame" realgud:trepan-pat-hash)
- (make-realgud-loc-pat
- :regexp
- (format "^%s #\\([0-9]+\\) .*%s"
- realgud:trepan-selected-frame-indicator
- realgud:trepan-frame-file-regexp)
- :num 1))
-
-(setf (gethash "control-frame" realgud:trepan-pat-hash)
- (make-realgud-loc-pat
- :regexp "^c:\\([0-9]+\\) p:\\([0-9]+\\) s:\\([0-9]+\\) b:\\([0-9]+\\)
l:\\([0-9a-f]+\\) d:\\([0-9a-f]+\\) \\([A-Z]+\\) \\(.+\\):\\([0-9]+\\)"
- :file-group 8
- :line-group 9))
-
-;; realgud-loc-pat that describes a Ruby $! string
-(setf (gethash "dollar-bang" realgud:trepan-pat-hash)
- realgud-ruby-dollar-bang-loc-pat)
-
-;; realgud-loc-pat that describes debugger "backtrace" command line.
-;; e.g.
-;; --> #0 METHOD Object#require(path) in file <internal:lib/require> at line 28
-;; #1 TOP Object#<top /tmp/linecache.rb> in file /tmp/linecache.rb
-(setf (gethash "debugger-backtrace" realgud:trepan-pat-hash)
- (make-realgud-loc-pat
- :regexp (concat realgud:trepan-frame-start-regexp " "
- realgud:trepan-frame-num-regexp " "
- "\\([A-Z]+\\) *\\([A-Z_][a-zA-Z0-9_]*\\)[#]\\(.*\\)"
- realgud:trepan-frame-file-regexp
- "\\(?:" realgud:trepan-frame-line-regexp "\\)?"
- )
- :num 2
- :file-group 6
- :line-group 7)
- )
-
-;; realgud-loc-pat that for a termination message.
-(setf (gethash "termination" realgud:trepan-pat-hash)
- "^trepan: That's all, folks...\n")
-
-(setf (gethash "font-lock-keywords" realgud:trepan-pat-hash)
- '(
- ;; The frame number and first type name, if present.
- ("^\\(-->\\| \\)? #\\([0-9]+\\) \\([A-Z]+\\)
*\\([A-Z_][a-zA-Z0-9_]*\\)[#]\\([a-zA-Z_][a-zA-Z_[0-9]]*\\)?"
- (2 realgud-backtrace-number-face)
- (3 font-lock-keyword-face) ; e.g. METHOD, TOP
- (4 font-lock-constant-face) ; e.g. Object
- (5 font-lock-function-name-face nil t)) ; t means optional
- ;; Instruction sequence
- ("<\\(.+\\)>"
- (1 font-lock-variable-name-face))
- ;; "::Type", which occurs in class name of function and in parameter
list.
- ;; Parameter sequence
- ("(\\(.+\\))"
- (1 font-lock-variable-name-face))
- ;; "::Type", which occurs in class name of function and in parameter
list.
- ("::\\([a-zA-Z_][a-zA-Z0-9_]*\\)"
- (1 font-lock-type-face))
- ;; File name.
- ("[ \t]+in file \\([^ ]+*\\)"
- (1 realgud-file-name-face))
- ;; Line number.
- ("[ \t]+at line \\([0-9]+\\)$"
- (1 realgud-line-number-face))
- ;; Function name.
- ("\\<\\([a-zA-Z_][a-zA-Z0-9_]*\\)\\.\\([a-zA-Z_][a-zA-Z0-9_]*\\)"
- (1 font-lock-type-face)
- (2 font-lock-function-name-face))
- ;; (trepan-frames-match-current-line
- ;; (0 trepan-frames-current-frame-face append))
- ))
-
-;; (setf (gethash "font-lock-keywords" realgud:trepan-pat-hash)
-;; '(
-;; ;; The frame number and first type name, if present.
-;; ((concat realgud:trepan-frame-start-regexp " "
-;; realgud:trepan-frame-num-regexp " "
-;; "\\([A-Z]+\\)
*\\([A-Z_][a-zA-Z0-9_]*\\)[#]\\([a-zA-Z_][a-zA-Z_[0-9]]*\\)?")
-;; (2 realgud-backtrace-number-face)
-;; (3 font-lock-keyword-face) ; e.g. METHOD, TOP
-;; (4 font-lock-constant-face) ; e.g. Object
-;; (5 font-lock-function-name-face nil t)) ; t means optional
-;; ;; Instruction sequence
-;; ("<\\(.+\\)>"
-;; (1 font-lock-variable-name-face))
-;; ;; "::Type", which occurs in class name of function and in
-;; ;; parameter list. Parameter sequence
-;; ("(\\(.+\\))"
-;; (1 font-lock-variable-name-face))
-;; ;; "::Type", which occurs in class name of function and in
-;; ;; parameter list.
-;; ("::\\([a-zA-Z_][a-zA-Z0-9_]*\\)"
-;; (1 font-lock-type-face))
-;; ;; File name.
-;; (realgud:trepan-frame-file-regexp (1 realgud-file-name-face))
-;; ;; Line number.
-;; (realgud:trepan-frame-line-regexp (1 realgud-line-number-face))
-;; ;; Function name.
-;; ("\\<\\([a-zA-Z_][a-zA-Z0-9_]*\\)\\.\\([a-zA-Z_][a-zA-Z0-9_]*\\)"
-;; (1 font-lock-type-face)
-;; (2 font-lock-function-name-face))
-;; ;; (trepan-frames-match-current-line
-;; ;; (0 trepan-frames-current-frame-face append))
-;; ))
-
-(setf (gethash realgud:trepan-debugger-name realgud-pat-hash)
realgud:trepan-pat-hash)
-
-(defvar realgud:trepan-command-hash (make-hash-table :test 'equal)
- "Hash key is command name like 'quit' and the value is
- the trepan command to use, like 'quit!'")
-
-(setf (gethash "quit" realgud:trepan-command-hash) "quit!")
-(setf (gethash "shell" realgud:trepan-command-hash) "irb")
-(setf (gethash realgud:trepan-debugger-name
- realgud-command-hash) realgud:trepan-command-hash)
-
-(provide-me "realgud:trepan-")
diff --git a/packages/realgud/realgud/debugger/trepan/track-mode.el
b/packages/realgud/realgud/debugger/trepan/track-mode.el
deleted file mode 100644
index f5fafb2..0000000
--- a/packages/realgud/realgud/debugger/trepan/track-mode.el
+++ /dev/null
@@ -1,94 +0,0 @@
-;; Copyright (C) 2010, 2012-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;;; Ruby "trepan" Debugger tracking a comint or eshell buffer.
-
-(require 'load-relative)
-(require-relative-list '(
- "../../common/cmds"
- "../../common/menu"
- "../../common/track"
- "../../common/track-mode"
- )
- "realgud-")
-(require-relative-list '("core" "init") "realgud:trepan-")
-(require-relative-list '("../../lang/ruby") "realgud-lang-")
-
-(declare-function realgud-track-mode 'realgud-track-mode)
-(declare-function realgud-track-mode-hook 'realgud-track-mode)
-(declare-function realgud-track-mode-setup 'realgud-track-mode)
-(declare-function realgud:track-set-debugger 'realgud-track-mode)
-(declare-function realgud-goto-line-for-pt 'realgud-track-mode)
-
-(realgud-track-mode-vars "trepan")
-
-(define-key realgud-track-mode-map
- (kbd "C-c !!") 'realgud:goto-lang-backtrace-line)
-(define-key realgud-track-mode-map
- (kbd "C-c !b") 'realgud:goto-debugger-backtrace-line)
-
-(declare-function realgud:ruby-populate-command-keys 'realgud-lang-ruby)
-
-(defun realgud:trepan-goto-control-frame-line (pt)
- "Display the location mentioned by a control-frame line
-described by PT."
- (interactive "d")
- (realgud-goto-line-for-pt pt "control-frame"))
-
-(defun realgud:trepan-goto-syntax-error-line (pt)
- "Display the location mentioned in a Syntax error line
-described by PT."
- (interactive "d")
- (realgud-goto-line-for-pt pt "syntax-error"))
-
-(realgud:ruby-populate-command-keys trepan-track-mode-map)
-
-(define-key trepan-track-mode-map
- (kbd "C-c !c") 'realgud:trepan-goto-control-frame-line)
-(define-key trepan-track-mode-map
- (kbd "C-c !s") 'realgud:trepan-goto-syntax-error-line)
-
-(defun trepan-track-mode-hook()
- (if trepan-track-mode
- (progn
- (use-local-map trepan-track-mode-map)
- (message "using trepan mode map")
- )
- (message "trepan track-mode-hook disable called"))
-)
-
-(define-minor-mode trepan-track-mode
- "Minor mode for tracking trepan source locations inside a process shell via
realgud. trepan is a Ruby debugger.
-
-If called interactively with no prefix argument, the mode is toggled. A prefix
argument, captured as ARG, enables the mode if the argument is positive, and
disables it otherwise.
-
-\\{trepan-track-mode-map}
-"
- :init-value nil
- ;; :lighter " trepan" ;; mode-line indicator from realgud-track is
sufficient.
- ;; The minor mode bindings.
- :global nil
- :group 'realgud:trepan
- :keymap trepan-track-mode-map
- (realgud:track-set-debugger "trepan")
- (if trepan-track-mode
- (progn
- (realgud-track-mode-setup 't)
- (trepan-track-mode-hook))
- (progn
- (setq realgud-track-mode nil)
- ))
-)
-
-(provide-me "realgud:trepan-")
diff --git a/packages/realgud/realgud/debugger/trepan/trepan.el
b/packages/realgud/realgud/debugger/trepan/trepan.el
deleted file mode 100644
index d98c129..0000000
--- a/packages/realgud/realgud/debugger/trepan/trepan.el
+++ /dev/null
@@ -1,72 +0,0 @@
-;; Copyright (C) 2010-2011, 2013-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; `trepan' Main interface to trepan via Emacs
-(require 'load-relative)
-(require-relative-list '("../../common/helper") "realgud-")
-(require-relative-list '("../../common/run") "realgud:")
-(require-relative-list '("core" "track-mode") "realgud:trepan-")
-
-(declare-function realgud:trepan-query-cmdline 'realgud:trepan-core)
-(declare-function realgud:trepan-parse-cmd-args 'realgud:trepan-core)
-(declare-function realgud:run-debugger 'realgud:run)
-
-;; This is needed, or at least the docstring part of it is needed to
-;; get the customization menu to work in Emacs 24.
-(defgroup realgud:trepan nil
- "The realgud interface to the Ruby 1.9.2 1.9.3 \"trepanning\" debugger"
- :group 'ruby
- :group 'realgud
- :version "24.3")
-
-;; -------------------------------------------------------------------
-;; User-definable variables
-;;
-
-(defcustom realgud:trepan-command-name
- ;;"trepan --emacs 3"
- "trepan"
- "File name for executing the Ruby debugger and command options.
-This should be an executable on your path, or an absolute file name."
- :type 'string
- :group 'realgud:trepan)
-
-;;;###autoload
-(defun realgud:trepan (&optional opt-cmd-line no-reset)
- "Invoke the trepan Ruby debugger and start the Emacs user interface.
-
-String OPT-CMD-LINE is treated like a shell string; arguments are
-tokenized by `split-string-and-unquote'. The tokenized string is
-parsed by `trepan-parse-cmd-args' and path elements found by that
-are expanded using `expand-file-name'.
-
-Normally, command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset. See `loc-changes-clear-buffer' to clear
-fringe and marginal icons.
-"
- (interactive)
- (realgud:run-debugger "trepan" 'realgud:trepan-query-cmdline
- 'realgud:trepan-parse-cmd-args
- 'realgud:trepan-minibuffer-history
- opt-cmd-line no-reset)
- )
-
-;;;###autoload
-(defalias 'trepan 'realgud:trepan)
-(provide-me "realgud-")
-;;; trepan.el ends here
diff --git a/packages/realgud/realgud/debugger/trepan2/Makefile.am
b/packages/realgud/realgud/debugger/trepan2/Makefile.am
deleted file mode 100644
index e6c68b4..0000000
--- a/packages/realgud/realgud/debugger/trepan2/Makefile.am
+++ /dev/null
@@ -1,5 +0,0 @@
-include ../common.mk
-
-lisp_files = $(wildcard *.el)
-lisp_LISP = $(lisp_files)
-EXTRA_DIST = $(lisp_files)
diff --git a/packages/realgud/realgud/debugger/trepan2/core.el
b/packages/realgud/realgud/debugger/trepan2/core.el
deleted file mode 100644
index 00651d7..0000000
--- a/packages/realgud/realgud/debugger/trepan2/core.el
+++ /dev/null
@@ -1,241 +0,0 @@
-;; Copyright (C) 2010-2012, 2014-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-(require 'compile) ;; for compilation-find-file
-(require 'load-relative)
-(require-relative-list '("../../common/track"
- "../../common/core"
- "../../common/file"
- "../../common/lang")
- "realgud-")
-(require-relative-list '("init") "realgud:trepan2-")
-
-(declare-function realgud:strip 'realgud)
-(declare-function realgud:expand-file-name-if-exists 'realgud-core)
-(declare-function realgud-parse-command-arg 'realgud-core)
-(declare-function realgud-query-cmdline 'realgud-core)
-(declare-function realgud-suggest-invocation 'realgud-core)
-(declare-function realgud:file-loc-from-line 'realgud-file)
-
-;; FIXME: I think the following could be generalized and moved to
-;; realgud-... probably via a macro.
-(defvar realgud:trepan2-minibuffer-history nil
- "minibuffer history list for the command `realgud:trepan2'.")
-
-(easy-mmode-defmap trepan2-minibuffer-local-map
- '(("\C-i" . comint-dynamic-complete-filename))
- "Keymap for minibuffer prompting of gud startup command."
- :inherit minibuffer-local-map)
-
-(defvar realgud:trepan2-file-remap (make-hash-table :test 'equal)
- "How to remap Python files in trepan2 when we otherwise can't
- find in the filesystem. The hash key is the file string we saw,
- and the value is associated filesystem string presumably in the
- filesystem")
-
-;; FIXME: this code could be generalized and put in a common place.
-(defun realgud:trepan2-find-file(filename)
- "A find-file specific for python/trepan. We strip off trailing
-blanks. Failing that we will prompt for a mapping and save that
-in variable `realgud:trepan2-file-remap' when that works. In the future,
-we may also consult PYTHONPATH."
- (let* ((transformed-file)
- (stripped-filename (realgud:strip filename))
- (ignore-file-re realgud-python-ignore-file-re)
- )
- (cond
- ((file-exists-p filename) filename)
- ((file-exists-p stripped-filename) stripped-filename)
- ((string-match ignore-file-re filename)
- (message "tracking ignored for psuedo-file: %s" filename) nil)
- ('t
- ;; FIXME search PYTHONPATH if not absolute file
- (if (gethash filename realgud-file-remap)
- (let ((remapped-filename))
- (setq remapped-filename (gethash filename
realgud:trepan2-file-remap))
- (if (file-exists-p remapped-filename)
- remapped-filename
- ;; else
- (and (remhash filename realgud-file-remap)) nil)
- ;; else
- (let ((remapped-filename))
- (setq remapped-filename
- (buffer-file-name
- (compilation-find-file (point-marker) stripped-filename
- nil "%s.py")))
- (when (and remapped-filename (file-exists-p remapped-filename))
- (puthash filename remapped-filename realgud-file-remap)
- remapped-filename
- ))
- ))
- ))
- ))
-
-(defun realgud:trepan2-loc-fn-callback(text filename lineno source-str
- ignore-file-re cmd-mark)
- (realgud:file-loc-from-line filename lineno
- cmd-mark source-str nil nil
- 'realgud:trepan2-find-file))
-
-;; FIXME: I think this code and the keymaps and history
-;; variable chould be generalized, perhaps via a macro.
-(defun trepan2-query-cmdline (&optional opt-debugger)
- (realgud-query-cmdline
- 'trepan2-suggest-invocation
- trepan2-minibuffer-local-map
- 'realgud:trepan2-minibuffer-history
- opt-debugger))
-
-(defun trepan2-parse-cmd-args (orig-args)
- "Parse command line ARGS for the annotate level and name of script to debug.
-
-ORIG-ARGS should contain a tokenized list of the command line to run.
-
-We return the a list containing
-- the command processor (e.g. python) and it's arguments if any - a list of
strings
-- the name of the debugger given (e.g. trepan2) and its arguments - a list of
strings
-- the script name and its arguments - list of strings
-- whether the annotate or emacs option was given ('-A', '--annotate' or
'--emacs) - a boolean
-
-For example for the following input
- (map 'list 'symbol-name
- '(python2.6 -O -Qold --emacs ./gcd.py a b))
-
-we might return:
- ((python2.6 -O -Qold) (trepan2 --emacs) (./gcd.py a b) 't)
-
-NOTE: the above should have each item listed in quotes.
-"
-
- ;; Parse the following kind of pattern:
- ;; [python python-options] trepan2 trepan2-options script-name
script-options
- (let (
- (args orig-args)
- (pair) ;; temp return from
- (python-opt-two-args '("c" "m" "Q" "W"))
- ;; Python doesn't have mandatory 2-arg options in our sense,
- ;; since the two args can be run together, e.g. "-C/tmp" or "-C /tmp"
- ;;
- (python-two-args '())
- ;; One dash is added automatically to the below, so
- ;; h is really -h and -host is really --host.
- (trepan2-two-args '("x" "-command" "e" "-execute"
- "o" "-output" "t" "-target"
- "a" "-annotate"))
- (trepan2-opt-two-args '())
- (interp-regexp
- (if (member system-type (list 'windows-nt 'cygwin 'msdos))
- "^python[-0-9.]*\\(.exe\\)?$"
- "^python[-0-9.]*$"))
-
- ;; Things returned
- (annotate-p nil)
- (debugger-args '())
- (debugger-name nil)
- (interpreter-args '())
- (script-args '())
- (script-name nil)
- )
-
- (if (not (and args))
- ;; Got nothing: return '(nil, nil)
- (list interpreter-args debugger-args script-args annotate-p)
- ;; else
- ;; Strip off optional "python" or "python182" etc.
- (when (string-match interp-regexp
- (file-name-sans-extension
- (file-name-nondirectory (car args))))
- (setq interpreter-args (list (pop args)))
-
- ;; Strip off Python-specific options
- (while (and args
- (string-match "^-" (car args)))
- (setq pair (realgud-parse-command-arg
- args python-two-args python-opt-two-args))
- (nconc interpreter-args (car pair))
- (setq args (cadr pair))))
-
- ;; Remove "trepan2" from "trepan2 --trepan2-options script
- ;; --script-options"
- (setq debugger-name (file-name-sans-extension
- (file-name-nondirectory (car args))))
- (unless (string-match "^\\(trepan2\\|cli.py\\)$" debugger-name)
- (message
- "Expecting debugger name `%s' to be `trepan2' or `cli.py'"
- debugger-name))
- (setq debugger-args (list (pop args)))
-
- ;; Skip to the first non-option argument.
- (while (and args (not script-name))
- (let ((arg (car args)))
- (cond
- ;; Annotation or emacs option with level number.
- ((or (member arg '("--annotate" "-A"))
- (equal arg "--emacs"))
- (setq annotate-p t)
- (nconc debugger-args (list (pop args))))
- ;; Combined annotation and level option.
- ((string-match "^--annotate=[0-9]" arg)
- (nconc debugger-args (list (pop args)) )
- (setq annotate-p t))
- ;; Options with arguments.
- ((string-match "^-" arg)
- (setq pair (realgud-parse-command-arg
- args trepan2-two-args trepan2-opt-two-args))
- (nconc debugger-args (car pair))
- (setq args (cadr pair)))
- ;; Anything else must be the script to debug.
- (t (setq script-name (realgud:expand-file-name-if-exists arg))
- (setq script-args (cons script-name (cdr args))))
- )))
- (list interpreter-args debugger-args script-args annotate-p))))
-
-;; To silence Warning: reference to free variable
-(defvar realgud:trepan2-command-name)
-
-(defun trepan2-suggest-invocation (debugger-name)
- "Suggest a trepan2 command invocation via `realgud-suggest-invocaton'"
- (realgud-suggest-invocation (or debugger-name realgud:trepan2-command-name)
- realgud:trepan2-minibuffer-history
- "python" "\\.py"
- realgud:trepan2-command-name))
-
-(defun trepan2-reset ()
- "Trepan2 cleanup - remove debugger's internal buffers (frame,
-breakpoints, etc.)."
- (interactive)
- ;; (trepan2-breakpoint-remove-all-icons)
- (dolist (buffer (buffer-list))
- (when (string-match "\\*trepan2-[a-z]+\\*" (buffer-name buffer))
- (let ((w (get-buffer-window buffer)))
- (when w
- (delete-window w)))
- (kill-buffer buffer))))
-
-;; (defun trepan2-reset-keymaps()
-;; "This unbinds the special debugger keys of the source buffers."
-;; (interactive)
-;; (setcdr (assq 'trepan2-debugger-support-minor-mode minor-mode-map-alist)
-;; trepan2-debugger-support-minor-mode-map-when-deactive))
-
-
-(defun realgud:trepan2-customize ()
- "Use `customize' to edit the settings of the `trepan2' debugger."
- (interactive)
- (customize-group 'realgud:trepan2))
-
-(provide-me "realgud:trepan2-")
diff --git a/packages/realgud/realgud/debugger/trepan2/init.el
b/packages/realgud/realgud/debugger/trepan2/init.el
deleted file mode 100644
index 62221e1..0000000
--- a/packages/realgud/realgud/debugger/trepan2/init.el
+++ /dev/null
@@ -1,120 +0,0 @@
-;; Copyright (C) 2010-2012, 2014-2017 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; trepan2: Python 2.5 - 2.7; for 3.0+ see trepan3k
-
-(eval-when-compile (require 'cl-lib)) ;For setf.
-
-(require 'load-relative)
-(require-relative-list '("../../common/regexp"
- "../../common/loc"
- "../../common/init")
- "realgud-")
-(require-relative-list '("../../lang/python") "realgud-lang-")
-
-(defvar realgud-pat-hash)
-(declare-function make-realgud-loc-pat (realgud-loc))
-
-(defvar realgud:trepan2-pat-hash (make-hash-table :test 'equal)
- "Hash key is the what kind of pattern we want to match:
-backtrace, prompt, etc. The values of a hash entry is a
-realgud-loc-pat struct")
-
-(declare-function make-realgud-loc 'realgud-loc)
-
-(setf (gethash "loc-callback-fn" realgud:trepan2-pat-hash)
'realgud:trepan2-loc-fn-callback)
-
-;; Regular expression that describes a trepan2 location generally shown
-;; before a command prompt.
-;;
-;; For example:
-;; (/usr/bin/zonetab2pot.py:15 @3): <module>
-;; (/usr/bin/zonetab2pot.py:15 remapped <string>): <module>
-;; or MS Windows:
-;; (c:\\mydirectory\\gcd.py:10): <module>
-(setf (gethash "loc" realgud:trepan2-pat-hash)
- realgud:python-trepan-loc-pat)
-
-;; Regular expression that describes a trepan2 prompt.
-;; Note: the prompt in nested debugging
-;; For example:
-;; (trepan2)
-;; ((trepan2))
-(setf (gethash "prompt" realgud:trepan2-pat-hash)
- (make-realgud-loc-pat
- :regexp "^(+trepan2)+ "
- ))
-
-;; Regular expression that describes a trepan2 backtrace line.
-;; For example:
-;; ->0 get_distribution(dist='trepan==0.3.9')
-;; called from file '/python2.7/dist-packages/pkg_res.py' at line 341
-;; ##1 load_entry_point(dist='tr=0.3.9', group='console_scripts', name='tr')
-;; called from file '/python2.7/dist-packages/pkg_res.py' at line 351
-;; ##2 <module> exec()
-
-(setf (gethash "debugger-backtrace" realgud:trepan2-pat-hash)
- realgud:python-trepan-backtrace-pat)
-
-;; Regular expression that describes a Python backtrace line.
-(setf (gethash "lang-backtrace" realgud:trepan2-pat-hash)
- realgud-python-backtrace-loc-pat)
-
-;; Regular expression that describes location in a pytest error
-(setf (gethash "pytest-error" realgud:trepan2-pat-hash)
- realgud-pytest-error-loc-pat)
-
-;; Regular expression that describes location in a flake8 message
-(setf (gethash "flake8-msg" realgud:trepan2-pat-hash)
- realgud-flake8-msg-loc-pat)
-
-;; Regular expression that describes a "breakpoint set" line
-(setf (gethash "brkpt-set" realgud:trepan2-pat-hash)
- realgud:python-trepan-brkpt-set-pat)
-
-;; Regular expression that describes a "delete breakpoint" line
-(setf (gethash "brkpt-del" realgud:trepan2-pat-hash)
- realgud:python-trepan-brkpt-del-pat)
-
-;; Regular expression that describes a debugger "disable" (breakpoint)
response.
-;; For example:
-;; Breakpoint 4 disabled.
-(setf (gethash "brkpt-disable" realgud:trepan2-pat-hash)
- realgud:python-trepan-brkpt-disable-pat)
-
-;; Regular expression that describes a debugger "enable" (breakpoint) response.
-;; For example:
-;; Breakpoint 4 enabled.
-(setf (gethash "brkpt-enable" realgud:trepan2-pat-hash)
- realgud:python-trepan-brkpt-disable-pat)
-
-;; Regular expression for a termination message.
-(setf (gethash "termination" realgud:trepan2-pat-hash)
- "^trepan2: That's all, folks...\n")
-
-(setf (gethash "font-lock-keywords" realgud:trepan2-pat-hash)
- realgud:python-debugger-font-lock-keywords)
-
-(setf (gethash "trepan2" realgud-pat-hash) realgud:trepan2-pat-hash)
-
-(defvar realgud:trepan2-command-hash (make-hash-table :test 'equal)
- "Hash key is command name like 'shell' and the value is
- the trepan2 command to use, like 'python'")
-
-(setf (gethash "eval" realgud:trepan2-command-hash) "eval %s")
-(setf (gethash "shell" realgud:trepan2-command-hash) "python")
-(setf (gethash "until" realgud:trepan2-command-hash) "continue %l")
-
-;; If your version of trepan2 doesn't support "quit!",
-;; get a more recent version of trepan2
-(setf (gethash "quit" realgud:trepan2-command-hash) "quit!")
-
-(setf (gethash "trepan2" realgud-command-hash) realgud:trepan2-command-hash)
-
-(provide-me "realgud:trepan2-")
diff --git a/packages/realgud/realgud/debugger/trepan2/track-mode.el
b/packages/realgud/realgud/debugger/trepan2/track-mode.el
deleted file mode 100644
index d10bde5..0000000
--- a/packages/realgud/realgud/debugger/trepan2/track-mode.el
+++ /dev/null
@@ -1,77 +0,0 @@
-;; Copyright (C) 2010-2012, 2014-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-;;
-;; Python "trepan2" Debugger tracking in a comint or eshell buffer.
-
-(require 'load-relative)
-(require-relative-list '(
- "../../common/cmds"
- "../../common/menu"
- "../../common/track"
- "../../common/track-mode"
- )
- "realgud-")
-(require-relative-list '("core" "init") "realgud:trepan2-")
-(require-relative-list '("../../lang/python") "realgud-lang-")
-
-(declare-function realgud-track-mode 'realgud-track-mode)
-(declare-function realgud-track-mode-hook 'realgud-track-mode)
-(declare-function realgud-track-mode-setup 'realgud-track-mode)
-(declare-function realgud:track-set-debugger 'realgud-track-mode)
-(declare-function realgud-python-populate-command-keys 'realgud-lang-python)
-
-(realgud-track-mode-vars "trepan2")
-
-(realgud-python-populate-command-keys trepan2-track-mode-map)
-
-(defun trepan2-track-mode-hook()
- (if trepan2-track-mode
- (progn
- (use-local-map trepan2-track-mode-map)
- (message "using trepan2 mode map")
- )
- (message "trepan2 track-mode-hook disable called")
- )
-)
-
-(define-minor-mode trepan2-track-mode
- "Minor mode for tracking trepan2 source locations inside a process shell via
realgud. trepan2 is a Python debugger. See URL
`https://github.com/rocky/emacs-dbgr/rocky/python2-trepan/'.
-
-If called interactively with no prefix argument, the mode is toggled. A prefix
argument, captured as ARG, enables the mode if the argument is positive, and
disables it otherwise.
-
-\\{trepan2-track-mode-map}
-"
- :init-value nil
- ;; :lighter " trepan2" ;; mode-line indicator from realgud-track is
sufficient.
- ;; The minor mode bindings.
- :global nil
- :group 'realgud:trepan2
- :keymap trepan2-track-mode-map
-
- (realgud:track-set-debugger "trepan2")
- (if trepan2-track-mode
- (progn
- (realgud-track-mode-setup 't)
- (trepan2-track-mode-hook))
- (progn
- (setq realgud-track-mode nil)
- ))
-)
-
-(define-key trepan2-short-key-mode-map "T" 'realgud:cmd-backtrace)
-
-(provide-me "realgud:trepan2-")
diff --git a/packages/realgud/realgud/debugger/trepan2/trepan2.el
b/packages/realgud/realgud/debugger/trepan2/trepan2.el
deleted file mode 100644
index 3b12bb3..0000000
--- a/packages/realgud/realgud/debugger/trepan2/trepan2.el
+++ /dev/null
@@ -1,103 +0,0 @@
-;; Copyright (C) 2010-2012, 2014-2017 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; Main interface to trepan2 via Emacs
-
-(require 'python) ; for python-shell-interpreter
-(require 'load-relative)
-(require-relative-list '("../../common/helper") "realgud-")
-(require-relative-list '("../../common/run") "realgud:")
-(require-relative-list '("core" "track-mode") "realgud:trepan2-")
-
-;; This is needed, or at least the docstring part of it is needed to
-;; get the customization menu to work in Emacs 24.
-(defgroup realgud:trepan2 nil
- "The realgud interface to the Python trepan2 debugger"
- :group 'realgud
- :group 'python
- :version "24.2")
-
-(declare-function trepan2-query-cmdline 'realgud:trepan2-core)
-(declare-function trepan2-parse-cmd-args 'realgud:trepan2-core)
-(declare-function trepan2-track-mode 'realgud:pydbgr-track-mode)
-(declare-function realgud:run-debugger 'realgud:run)
-(declare-function realgud:run-process 'realgud:core)
-(declare-function realgud:flatten 'realgud-utils)
-
-;; -------------------------------------------------------------------
-;; User-definable variables
-;;
-
-(defcustom realgud:trepan2-command-name
- ;;"trepan2 --emacs 3"
- "trepan2"
- "File name for executing the Python debugger and command options.
-This should be an executable on your path, or an absolute file name."
- :type 'string
- :group 'realgud:trepan2)
-
-
-;; -------------------------------------------------------------------
-;; The end.
-;;
-
-;;;###autoload
-(defalias 'trepan2 'realgud:trepan2)
-
-;;;###autoload
-(defun realgud:trepan2 (&optional opt-cmd-line no-reset)
- "Invoke the trepan2 Python debugger and start the Emacs user interface.
-
-String OPT-CMD-LINE is treated like a shell string; arguments are
-tokenized by `split-string-and-unquote'. The tokenized string is
-parsed by `trepan2-parse-cmd-args' and path elements found by that
-are expanded using `realgud:expand-file-name-if-exists'.
-
-Normally, command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset. See `loc-changes-clear-buffer' to clear
-fringe and marginal icons.
-"
- (interactive)
- (realgud:run-debugger "trepan2"
- 'trepan2-query-cmdline
- 'trepan2-parse-cmd-args
- 'realgud:trepan2-minibuffer-history
- opt-cmd-line no-reset)
- )
-
-;;;###autoload
-(defun realgud:trepan2-delayed ()
- "This is like `trepan2', but assumes inside the program to be debugged, you
-have a call to the debugger somewhere, e.g. 'from trepan.api import debug;
debug()'.
-Therefore we invoke python rather than the debugger initially.
-
-"
- (interactive)
- (let* ((initial-debugger python-shell-interpreter)
- (actual-debugger "trepan2")
- (cmd-str (trepan2-query-cmdline initial-debugger))
- (cmd-args (split-string-and-unquote cmd-str))
- ;; XXX: python gets registered as the interpreter rather than
- ;; a debugger, and the debugger position (nth 1) is missing:
- ;; the script-args takes its place.
- (parsed-args (trepan2-parse-cmd-args cmd-args))
- (script-args (nth 1 parsed-args))
- (script-name (car script-args))
- (parsed-cmd-args
- (cl-remove-if 'nil (realgud:flatten parsed-args))))
- (realgud:run-process actual-debugger script-name parsed-cmd-args
- 'realgud:trepan2-minibuffer-history)))
-
-(realgud-deferred-invoke-setup "trepan2")
-
-(provide-me "realgud-")
diff --git a/packages/realgud/realgud/debugger/trepan3k/Makefile.am
b/packages/realgud/realgud/debugger/trepan3k/Makefile.am
deleted file mode 100644
index e6c68b4..0000000
--- a/packages/realgud/realgud/debugger/trepan3k/Makefile.am
+++ /dev/null
@@ -1,5 +0,0 @@
-include ../common.mk
-
-lisp_files = $(wildcard *.el)
-lisp_LISP = $(lisp_files)
-EXTRA_DIST = $(lisp_files)
diff --git a/packages/realgud/realgud/debugger/trepan3k/core.el
b/packages/realgud/realgud/debugger/trepan3k/core.el
deleted file mode 100644
index d7f14f8..0000000
--- a/packages/realgud/realgud/debugger/trepan3k/core.el
+++ /dev/null
@@ -1,187 +0,0 @@
-;; Copyright (C) 2010, 2012-2017 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-;;
-(require 'load-relative)
-(require-relative-list '("../../common/track"
- "../../common/core"
- "../../common/lang")
- "realgud-")
-(require-relative-list '("init") "realgud:trepan3k-")
-
-(declare-function realgud:expand-file-name-if-exists 'realgud-core)
-(declare-function realgud-parse-command-arg 'realgud-core)
-(declare-function realgud-query-cmdline 'realgud-core)
-(declare-function realgud-suggest-invocation 'realgud-core)
-
-;; FIXME: I think the following could be generalized and moved to
-;; realgud-... probably via a macro.
-(defvar realgud:trepan3k-minibuffer-history nil
- "minibuffer history list for the command `realgud:trepan3k'.")
-
-(easy-mmode-defmap trepan3k-minibuffer-local-map
- '(("\C-i" . comint-dynamic-complete-filename))
- "Keymap for minibuffer prompting of gud startup command."
- :inherit minibuffer-local-map)
-
-;; FIXME: I think this code and the keymaps and history
-;; variable chould be generalized, perhaps via a macro.
-(defun trepan3k-query-cmdline (&optional opt-debugger)
- (realgud-query-cmdline
- 'trepan3k-suggest-invocation
- trepan3k-minibuffer-local-map
- 'realgud-trepan3k-minibuffer-history
- opt-debugger))
-
-(defun trepan3k-parse-cmd-args (orig-args)
- "Parse command line ARGS for the annotate level and name of script to debug.
-
-ARGS should contain a tokenized list of the command line to run.
-
-We return the a list containing
-- the command processor (e.g. python) and it's arguments if any - a list of
strings
-- the name of the debugger given (e.g. trepan3k) and its arguments - a list of
strings
-- the script name and its arguments - list of strings
-- whether the annotate or emacs option was given ('-A', '--annotate' or
'--emacs) - a boolean
-
-For example for the following input
- (map 'list 'symbol-name
- '(python2.6 -O -Qold --emacs ./gcd.py a b))
-
-we might return:
- ((python2.6 -O -Qold) (trepan3k --emacs) (./gcd.py a b) 't)
-
-NOTE: the above should have each item listed in quotes.
-"
-
- ;; Parse the following kind of pattern:
- ;; [python python-options] trepan3k trepan3k-options script-name
script-options
- (let (
- (args orig-args)
- (pair) ;; temp return from
- (python-opt-two-args '("c" "m" "Q" "W"))
- ;; Python doesn't have mandatory 2-arg options in our sense,
- ;; since the two args can be run together, e.g. "-C/tmp" or "-C /tmp"
- ;;
- (python-two-args '())
- ;; One dash is added automatically to the below, so
- ;; h is really -h and -host is really --host.
- (trepan3k-two-args '("x" "-command" "e" "-execute"
- "o" "-output" "t" "-target"
- "a" "-annotate"))
- (trepan3k-opt-two-args '())
- (interp-regexp
- (if (member system-type (list 'windows-nt 'cygwin 'msdos))
- "^python[-0-9.]*\\(.exe\\)?$"
- "^python[-0-9.]*$"))
-
- ;; Things returned
- (annotate-p nil)
- (debugger-args '())
- (debugger-name nil)
- (interpreter-args '())
- (script-args '())
- (script-name nil)
- )
-
- (if (not (and args))
- ;; Got nothing: return '(nil, nil)
- (list interpreter-args debugger-args script-args annotate-p)
- ;; else
- ;; Strip off optional "python" or "python182" etc.
- (when (string-match interp-regexp
- (file-name-sans-extension
- (file-name-nondirectory (car args))))
- (setq interpreter-args (list (pop args)))
-
- ;; Strip off Python-specific options
- (while (and args
- (string-match "^-" (car args)))
- (setq pair (realgud-parse-command-arg
- args python-two-args python-opt-two-args))
- (nconc interpreter-args (car pair))
- (setq args (cadr pair))))
-
- ;; Remove "trepan3k" from "trepan3k --trepan3k-options script
- ;; --script-options"
- (setq debugger-name (file-name-sans-extension
- (file-name-nondirectory (car args))))
- (unless (string-match "^\\(trepan3k\\|cli.py\\)$" debugger-name)
- (message
- "Expecting debugger name `%s' to be `trepan3k' or `cli.py'"
- debugger-name))
- (setq debugger-args (list (pop args)))
-
- ;; Skip to the first non-option argument.
- (while (and args (not script-name))
- (let ((arg (car args)))
- (cond
- ;; Annotation or emacs option with level number.
- ((or (member arg '("--annotate" "-A"))
- (equal arg "--emacs"))
- (setq annotate-p t)
- (nconc debugger-args (list (pop args))))
- ;; Combined annotation and level option.
- ((string-match "^--annotate=[0-9]" arg)
- (nconc debugger-args (list (pop args)) )
- (setq annotate-p t))
- ;; Options with arguments.
- ((string-match "^-" arg)
- (setq pair (realgud-parse-command-arg
- args trepan3k-two-args trepan3k-opt-two-args))
- (nconc debugger-args (car pair))
- (setq args (cadr pair)))
- ;; Anything else must be the script to debug.
- (t (setq script-name (realgud:expand-file-name-if-exists arg))
- (setq script-args (cons script-name (cdr args))))
- )))
- (list interpreter-args debugger-args script-args annotate-p))))
-
-;; To silence Warning: reference to free variable
-(defvar realgud:trepan3k-command-name)
-
-(defun trepan3k-suggest-invocation (debugger-name)
- "Suggest a trepan3k command invocation via `realgud-suggest-invocaton'"
- (realgud-suggest-invocation (or debugger-name realgud:trepan3k-command-name)
- realgud:trepan3k-minibuffer-history
- "python" "\\.py"
- realgud:trepan3k-command-name))
-
-(defun trepan3k-reset ()
- "Trepan3k cleanup - remove debugger's internal buffers (frame,
-breakpoints, etc.)."
- (interactive)
- ;; (trepan3k-breakpoint-remove-all-icons)
- (dolist (buffer (buffer-list))
- (when (string-match "\\*trepan3k-[a-z]+\\*" (buffer-name buffer))
- (let ((w (get-buffer-window buffer)))
- (when w
- (delete-window w)))
- (kill-buffer buffer))))
-
-;; (defun trepan3k-reset-keymaps()
-;; "This unbinds the special debugger keys of the source buffers."
-;; (interactive)
-;; (setcdr (assq 'trepan3k-debugger-support-minor-mode minor-mode-map-alist)
-;; trepan3k-debugger-support-minor-mode-map-when-deactive))
-
-
-(defun realgud:trepan3k-customize ()
- "Use `customize' to edit the settings of the `trepan3k' debugger."
- (interactive)
- (customize-group 'realgud:trepan3k))
-
-(provide-me "realgud:trepan3k-")
diff --git a/packages/realgud/realgud/debugger/trepan3k/init.el
b/packages/realgud/realgud/debugger/trepan3k/init.el
deleted file mode 100644
index a13da4d..0000000
--- a/packages/realgud/realgud/debugger/trepan3k/init.el
+++ /dev/null
@@ -1,127 +0,0 @@
-;; Copyright (C) 2010-2018 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-;; trepan3k: Python 3.2 and beyond
-
-(eval-when-compile (require 'cl-lib)) ;For setf.
-
-(require 'load-relative)
-(require-relative-list '("../../common/regexp"
- "../../common/loc"
- "../../common/init")
- "realgud-")
-(require-relative-list '("../../lang/python") "realgud-lang-")
-
-(defvar realgud-pat-hash)
-(declare-function make-realgud-loc-pat (realgud-loc))
-
-(defvar realgud:trepan3k-pat-hash (make-hash-table :test 'equal)
- "Hash key is the what kind of pattern we want to match:
-backtrace, prompt, etc. The values of a hash entry is a
-realgud-loc-pat struct")
-
-(declare-function make-realgud-loc 'realgud-loc)
-
-;; realgud-loc-pat that describes a trepan3k location generally shown
-;; before a command prompt.
-;;
-;; For example:
-;; (/usr/bin/zonetab2pot.py:15): <module>
-;; (/usr/bin/zonetab2pot.py:15 remapped <string>): <module>
-;; or MS Windows:
-;; (c:\\mydirectory\\gcd.py:10): <module>
-(setf (gethash "loc" realgud:trepan3k-pat-hash)
- realgud:python-trepan-loc-pat)
-
-;; Regular expression that describes a trepan3k prompt.
-;; Note: the prompt in nested debugging
-;; For example:
-;; (trepan3)
-;; ((trepan3k))
-(setf (gethash "prompt" realgud:trepan3k-pat-hash)
- (make-realgud-loc-pat
- :regexp "^(+trepan3k+) "
- ))
-
-;; realgud-loc-pat that describes a trepan3k backtrace line.
-;; For example:
-;; ->0 get_distribution(dist='trepan==0.3.9')
-;; called from file '/python2.7/dist-packages/pkg_res.py' at line 341
-;; ##1 load_entry_point(dist='tr=0.3.9', group='console_scripts', name='tr')
-;; called from file '/python2.7/dist-packages/pkg_res.py' at line 351
-;; ##2 <module> exec()
-
-(setf (gethash "debugger-backtrace" realgud:trepan3k-pat-hash)
- realgud:python-trepan-backtrace-pat)
-
-;; realgud-loc-pat that describes a Python backtrace line.
-(setf (gethash "lang-backtrace" realgud:trepan3k-pat-hash)
- realgud-python-backtrace-loc-pat)
-
-;; realgud-loc-pat that describes location in a pytest error
-(setf (gethash "pytest-error" realgud:trepan3k-pat-hash)
- realgud-pytest-error-loc-pat)
-
-;; Regular expression that describes location in a flake8 message
-(setf (gethash "flake8-msg" realgud:trepan3k-pat-hash)
- realgud-flake8-msg-loc-pat)
-
-;; realgud-loc-pat that describes a "breakpoint set" line
-(setf (gethash "brkpt-set" realgud:trepan3k-pat-hash)
- realgud:python-trepan-brkpt-set-pat)
-
-;; realgud-loc-pat that describes a "delete breakpoint" line
-(setf (gethash "brkpt-del" realgud:trepan3k-pat-hash)
- realgud:python-trepan-brkpt-del-pat)
-
-;; realgud-loc-pat that describes a debugger "disable" (breakpoint) response.
-;; For example:
-;; Breakpoint 4 disabled.
-(setf (gethash "brkpt-disable" realgud:trepan3k-pat-hash)
- realgud:python-trepan-brkpt-disable-pat)
-
-;; realgud-loc-pat that describes a debugger "enable" (breakpoint) response.
-;; For example:
-;; Breakpoint 4 enabled.
-(setf (gethash "brkpt-enable" realgud:trepan3k-pat-hash)
- realgud:python-trepan-brkpt-enable-pat)
-
-;; realgud-loc-pat for a termination message.
-(setf (gethash "termination" realgud:trepan3k-pat-hash)
- "^trepan3k: That's all, folks...\n")
-
-(setf (gethash "font-lock-keywords" realgud:trepan3k-pat-hash)
- realgud:python-debugger-font-lock-keywords)
-
-(setf (gethash "trepan3k" realgud-pat-hash) realgud:trepan3k-pat-hash)
-
-(defvar realgud:trepan3k-command-hash (make-hash-table :test 'equal)
- "Hash key is command name like 'shell' and the value is
- the trepan3k command to use, like 'python'")
-
-(setf (gethash "eval" realgud:trepan3k-command-hash) "eval %s")
-(setf (gethash "pprint" realgud:trepan3k-command-hash) "pp %s")
-(setf (gethash "shell" realgud:trepan3k-command-hash) "python")
-(setf (gethash "until" realgud:trepan3k-command-hash) "continue %l")
-
-;; If your version of trepan3k doesn't support "quit!",
-;; get a more recent version of trepan3k
-(setf (gethash "quit" realgud:trepan3k-command-hash) "quit!")
-
-(setf (gethash "trepan3k" realgud-command-hash) realgud:trepan3k-command-hash)
-
-(provide-me "realgud:trepan3k-")
diff --git a/packages/realgud/realgud/debugger/trepan3k/track-mode.el
b/packages/realgud/realgud/debugger/trepan3k/track-mode.el
deleted file mode 100644
index d7473cd..0000000
--- a/packages/realgud/realgud/debugger/trepan3k/track-mode.el
+++ /dev/null
@@ -1,77 +0,0 @@
-;; Copyright (C) 2015-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-;; Python "trepan3k" Debugger tracking a comint buffer.
-
-(require 'load-relative)
-(require-relative-list '(
- "../../common/cmds"
- "../../common/menu"
- "../../common/track"
- "../../common/track-mode"
- )
- "realgud-")
-(require-relative-list '("core" "init") "realgud:trepan3k-")
-(require-relative-list '("../../lang/python") "realgud-lang-")
-
-(declare-function realgud-track-mode 'realgud-track-mode)
-(declare-function realgud-track-mode-hook 'realgud-track-mode)
-(declare-function realgud-track-mode-setup 'realgud-track-mode)
-(declare-function realgud:track-set-debugger 'realgud-track-mode)
-(declare-function realgud-python-populate-command-keys 'realgud-lang-python)
-
-(realgud-track-mode-vars "trepan3k")
-
-(declare-function realgud-track-mode(bool))
-
-(realgud-python-populate-command-keys trepan3k-track-mode-map)
-
-(defun trepan3k-track-mode-hook()
- (if trepan3k-track-mode
- (progn
- (use-local-map trepan3k-track-mode-map)
- (message "using trepan3k mode map")
- )
- (message "trepan3k track-mode-hook disable called")
- )
-)
-
-(define-minor-mode trepan3k-track-mode
- "Minor mode for tracking trepan3k source locations inside a process shell
via realgud. trepan3k is a Python debugger. See URL
`http://code.google.com/p/python3-trepan/'.
-
-If called interactively with no prefix argument, the mode is toggled. A prefix
argument, captured as ARG, enables the mode if the argument is positive, and
disables it otherwise.
-
-\\{trepan3k-track-mode-map}
-"
- :init-value nil
- ;; :lighter " trepan3k" ;; mode-line indicator from realgud-track is
sufficient.
- ;; The minor mode bindings.
- :global nil
- :group 'realgud:trepan3k
- :keymap trepan3k-track-mode-map
- (realgud:track-set-debugger "trepan3k")
- (if trepan3k-track-mode
- (progn
- (realgud-track-mode-setup 't)
- (trepan3k-track-mode-hook))
- (progn
- (setq realgud-track-mode nil)
- ))
-)
-
-(define-key trepan3k-short-key-mode-map "T" 'realgud:cmd-backtrace)
-
-(provide-me "realgud:trepan3k-")
diff --git a/packages/realgud/realgud/debugger/trepan3k/trepan3k.el
b/packages/realgud/realgud/debugger/trepan3k/trepan3k.el
deleted file mode 100644
index 2b473e4..0000000
--- a/packages/realgud/realgud/debugger/trepan3k/trepan3k.el
+++ /dev/null
@@ -1,100 +0,0 @@
-;; Copyright (C) 2010-2014, 2016-2017 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-(require 'python) ; for python-shell-interpreter
-(require 'load-relative)
-(require-relative-list '("../../common/helper") "realgud-")
-(require-relative-list '("../../common/run") "realgud:")
-(require-relative-list '("core" "track-mode") "realgud:trepan3k-")
-
-;; This is needed, or at least the docstring part of it is needed to
-;; get the customization menu to work in Emacs 24.
-(defgroup realgud:trepan3k nil
- "The realgud interface to the Python debugger, trepan3k"
- :group 'realgud
- :group 'python
- :version "24.3")
-
-(declare-function trepan3k-query-cmdline 'realgud:trepan3k-core)
-(declare-function trepan3k-parse-cmd-args 'realgud:trepan3k-core)
-(declare-function realgud:run-debugger 'realgud:run)
-(declare-function realgud:run-process 'realgud:core)
-(declare-function realgud:flatten 'realgud-utils)
-
-;; -------------------------------------------------------------------
-;; User-definable variables
-;;
-
-(defcustom realgud:trepan3k-command-name
- ;;"trepan3k --emacs 3"
- "trepan3k"
- "File name for executing the Python debugger and command options.
-This should be an executable on your path, or an absolute file name."
- :type 'string
- :group 'realgud:trepan3k)
-
-(declare-function trepan3k-track-mode (bool))
-
-;; -------------------------------------------------------------------
-;; The end.
-;;
-
-;;;###autoload
-(defun realgud:trepan3k (&optional opt-cmd-line no-reset)
- "Invoke the trepan3k Python debugger and start the Emacs user interface.
-
-String OPT-CMD-LINE is treated like a shell string; arguments are
-tokenized by `split-string-and-unquote'. The tokenized string is
-parsed by `trepan3k-parse-cmd-args' and path elements found by that
-are expanded using `realgud:expand-file-name-if-exists'.
-
-Normally, command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset. See `loc-changes-clear-buffer' to clear
-fringe and marginal icons.
-"
- (interactive)
- (realgud:run-debugger "trepan3k"
- 'trepan3k-query-cmdline
- 'trepan3k-parse-cmd-args
- 'realgud:trepan3k-minibuffer-history
- opt-cmd-line no-reset)
- )
-
-;;;###autoload
-(defalias 'trepan3k 'realgud:trepan3k)
-
-;;;###autoload
-(defun realgud:trepan3k-delayed ()
- "This is like `trepan3k', but assumes inside the program to be debugged, you
-have a call to the debugger somewhere, e.g. 'from trepan.api import debug;
debug()'.
-Therefore we invoke python rather than the debugger initially.
-"
- (interactive)
- (let* ((initial-debugger python-shell-interpreter)
- (actual-debugger "trepan3k")
- (cmd-str (trepan3k-query-cmdline initial-debugger))
- (cmd-args (split-string-and-unquote cmd-str))
- ;; XXX: python gets registered as the interpreter rather than
- ;; a debugger, and the debugger position (nth 1) is missing:
- ;; the script-args takes its place.
- (parsed-args (trepan3k-parse-cmd-args cmd-args))
- (script-args (nth 1 parsed-args))
- (script-name (car script-args))
- (parsed-cmd-args
- (cl-remove-if 'nil (realgud:flatten parsed-args))))
- (realgud:run-process actual-debugger script-name parsed-cmd-args
- 'realgud:trepan3k-deferred-minibuffer-history)))
-
-(realgud-deferred-invoke-setup "trepan3k")
-
-(provide-me "realgud-")
diff --git a/packages/realgud/realgud/debugger/trepanjs/Makefile.am
b/packages/realgud/realgud/debugger/trepanjs/Makefile.am
deleted file mode 100644
index 2c88842..0000000
--- a/packages/realgud/realgud/debugger/trepanjs/Makefile.am
+++ /dev/null
@@ -1,5 +0,0 @@
-include $(srcdir)/../common.mk
-
-lisp_files = $(wildcard *.el)
-lisp_LISP = $(lisp_files)
-EXTRA_DIST = $(lisp_files)
diff --git a/packages/realgud/realgud/debugger/trepanjs/backtrack-mode.el
b/packages/realgud/realgud/debugger/trepanjs/backtrack-mode.el
deleted file mode 100644
index 0732dc5..0000000
--- a/packages/realgud/realgud/debugger/trepanjs/backtrack-mode.el
+++ /dev/null
@@ -1,80 +0,0 @@
-;; Copyright (C) 2015-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-;;; Mode for parsing various kinds of backtraces found in JavaScript
-
-(require 'load-relative)
-(require-relative-list '(
- "../../common/cmds"
- "../../common/menu"
- "../../common/track-mode"
- "../../common/backtrack-mode"
- )
- "realgud-")
-(require-relative-list '("core" "init") "realgud:trepanjs-")
-(require-relative-list '("../../lang/ruby") "realgud-lang-")
-
-(realgud-backtrack-mode-vars "trepanjs")
-(set-keymap-parent trepanjs-backtrack-mode-map realgud-backtrack-mode-map)
-
-(declare-function realgud-backtrack-mode
'realgud-common-backtrack-mode)
-(declare-function realgud-backtrack-set-debugger
'realgud-common-backtrack-mode)
-(declare-function realgud-goto-line-for-pt
'realgud-common-backtrack-mode)
-(declare-function realgud:ruby-populate-command-keys 'realgud-lang-ruby)
-
-(defun realgud:trepanjs-goto-control-frame-line (pt)
- "Display the location mentioned by a control-frame line
-described by PT."
- (interactive "d")
- (realgud-goto-line-for-pt pt "control-frame"))
-
-(realgud:ruby-populate-command-keys trepanjs-backtrack-mode-map)
-(define-key trepanjs-backtrack-mode-map
- (kbd "C-c !c") 'realgud:trepanjs-goto-control-frame-line)
-
-(define-minor-mode trepanjs-backtrack-mode
- "Minor mode for tracking ruby debugging inside a file which may not have
process shell.
-
-\\{trepanjs-backtrack-mode-map}
-"
- :init-value nil
- ;; :lighter " trepanjs" ;; mode-line indicator from realgud-track is
sufficient.
- ;; The minor mode bindings.
- :global nil
- :group 'realgud:trepanjs
- :keymap trepanjs-backtrack-mode-map
-
- (realgud-backtrack-set-debugger "trepanjs")
- (if trepanjs-backtrack-mode
- (progn
- (realgud-backtrack-mode 't)
- (run-mode-hooks (intern (trepanjs-backtrack-mode-hook))))
- (progn
- (realgud-backtrack-mode nil)
- ))
-)
-
-(defun trepanjs-backtrack-mode-hook()
- (if trepanjs-backtrack-mode
- (progn
- (use-local-map trepanjs-backtrack-mode-map)
- (message "using trepanjs mode map")
- )
- (message "trepanjs backtrack-mode-hook disable called"))
-)
-
-(provide-me "realgud:trepanjs-")
diff --git a/packages/realgud/realgud/debugger/trepanjs/core.el
b/packages/realgud/realgud/debugger/trepanjs/core.el
deleted file mode 100644
index 122cb44..0000000
--- a/packages/realgud/realgud/debugger/trepanjs/core.el
+++ /dev/null
@@ -1,158 +0,0 @@
-;; Copyright (C) 2015-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-(require 'load-relative)
-(require-relative-list '("../../common/track"
- "../../common/core"
- "../../common/lang")
- "realgud-")
-(require-relative-list '("init") "realgud:trepanjs-")
-
-(declare-function realgud:expand-file-name-if-exists 'realgud-core)
-(declare-function realgud-parse-command-arg 'realgud-core)
-(declare-function realgud-query-cmdline 'realgud-core)
-(declare-function realgud-suggest-invocation 'realgud-core)
-
-;; FIXME: I think the following could be generalized and moved to
-;; realgud-... probably via a macro.
-(defvar realgud:trepanjs-minibuffer-history nil
- "minibuffer history list for the command `realgud:trepanjs'.")
-
-(easy-mmode-defmap realgud:trepanjs-minibuffer-local-map
- '(("\C-i" . comint-dynamic-complete-filename))
- "Keymap for minibuffer prompting of trepanjs startup command."
- :inherit minibuffer-local-map)
-
-;; FIXME: I think this code and the keymaps and history
-;; variable chould be generalized, perhaps via a macro.
-(defun realgud:trepanjs-query-cmdline (&optional opt-debugger)
- (realgud-query-cmdline
- 'realgud:trepanjs-suggest-invocation
- realgud:trepanjs-minibuffer-local-map
- 'realgud:trepanjs-minibuffer-history
- opt-debugger))
-
-(defun realgud:trepanjs-parse-cmd-args (orig-args)
- "Parse command line ARGS for the name of script to debug.
-
-ORIG-ARGS should contain a tokenized list of the command line to run.
-
-We return the a list containing
-* the name of the debugger given (e.g. trepanjs) and its arguments - a list of
strings
-* the script name and its arguments - list of strings
-
-For example for the following input:
- (map 'list 'symbol-name
- '(trepanjs --no-highlight --port 5858 /tmp trepanjs ./gcd.js a b))
-
-we might return:
- ((\"trepanjs\" \"--no-highlight\" \"--port\" \"5858\") nil (\"/tmp/gcd.js\"
\"a\" \"b\"))
-
-Note that path elements have been expanded via `expand-file-name'.
-"
-
- ;; Parse the following kind of pattern:
- ;; node trepanjs-options script-name script-options
- (let (
- (args orig-args)
- (pair) ;; temp return from
- (node-two-args '("-max-stack-size"))
- ;; node doesn't have any optional two-arg options
- (node-opt-two-args '())
-
- ;; One dash is added automatically to the below, so
- ;; p is really -p and -port is really --port.
- (trepanjs-two-args '("-port" "-host" "-pid" "p"))
- (trepanjs-opt-two-args '())
-
- ;; Things returned
- (script-name nil)
- (debugger-name nil)
- (interpreter-args '())
- (script-args '())
- )
- (if (not (and args))
- ;; Got nothing: return '(nil, nil, nil)
- (list interpreter-args nil script-args)
- ;; else
- (progn
- ;; Remove "trepanjs" (or "nodemon" or "node") from invocation like:
- ;; trepanjs --trepanjs-options script --script-options
- (setq debugger-name (file-name-sans-extension
- (file-name-nondirectory (car args))))
- (unless (string-match "^node\\(?:js\\|mon\\)?$" debugger-name)
- (message
- "Expecting debugger name `%s' to be `node', `nodemon', or `trepanjs'"
- debugger-name))
- (setq interpreter-args (list (pop args)))
-
- ;; Skip to the first non-option argument.
- (while (and args (not script-name))
- (let ((arg (car args)))
- (cond
- ((equal "debug" arg)
- (nconc interpreter-args (list arg))
- (setq args (cdr args))
- )
-
- ;; Options with arguments.
- ((string-match "^-" arg)
- (setq pair (realgud-parse-command-arg
- args trepanjs-two-args trepanjs-opt-two-args))
- (nconc interpreter-args (car pair))
- (setq args (cadr pair)))
- ;; Anything else must be the script to debug.
- (t (setq script-name (realgud:expand-file-name-if-exists arg))
- (setq script-args (cons script-name (cdr args))))
- )))
- (list interpreter-args nil script-args)))
- ))
-
-;; To silence Warning: reference to free variable
-(defvar realgud:trepanjs-command-name)
-
-(defun realgud:trepanjs-suggest-invocation (debugger-name)
- "Suggest a trepanjs command invocation via `realgud-suggest-invocaton'"
- (realgud-suggest-invocation realgud:trepanjs-command-name
- realgud:trepanjs-minibuffer-history
- "js" "\\.js$"))
-
-(defun realgud:trepanjs-reset ()
- "Trepanjs cleanup - remove debugger's internal buffers (frame,
-breakpoints, etc.)."
- (interactive)
- ;; (trepanjs-breakpoint-remove-all-icons)
- (dolist (buffer (buffer-list))
- (when (string-match "\\*trepanjs-[a-z]+\\*" (buffer-name buffer))
- (let ((w (get-buffer-window buffer)))
- (when w
- (delete-window w)))
- (kill-buffer buffer))))
-
-;; (defun trepanjs-reset-keymaps()
-;; "This unbinds the special debugger keys of the source buffers."
-;; (interactive)
-;; (setcdr (assq 'trepanjs-debugger-support-minor-mode minor-mode-map-alist)
-;; trepanjs-debugger-support-minor-mode-map-when-deactive))
-
-
-(defun realgud:trepanjs-customize ()
- "Use `customize' to edit the settings of the `trepanjs' debugger."
- (interactive)
- (customize-group 'realgud:trepanjs))
-
-(provide-me "realgud:trepanjs-")
diff --git a/packages/realgud/realgud/debugger/trepanjs/init.el
b/packages/realgud/realgud/debugger/trepanjs/init.el
deleted file mode 100644
index 881fcff..0000000
--- a/packages/realgud/realgud/debugger/trepanjs/init.el
+++ /dev/null
@@ -1,162 +0,0 @@
-;; Copyright (C) 2015-2016, 2018 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-;;; Regular expressions for nodejs Javascript debugger.
-
-(eval-when-compile (require 'cl-lib)) ;For setf.
-
-(require 'load-relative)
-(require-relative-list '("../../common/regexp"
- "../../common/loc"
- "../../common/init")
- "realgud-")
-(require-relative-list '("../../lang/js") "realgud-lang-")
-
-(defvar realgud:trepanjs-pat-hash (make-hash-table :test 'equal)
- "Hash key is the what kind of pattern we want to match:
-backtrace, prompt, etc. The values of a hash entry is a
-realgud-loc-pat struct")
-
-(declare-function make-realgud-loc-pat (realgud-loc))
-
-(defconst realgud:trepanjs-file-regexp "\\([^ \t\n]+\\)\\(?: \\[.*\\]\\)?")
-
-;; realgud-loc-pat that describes a trepanjs location generally shown
-;; before a command prompt.
-;; For example:
-;; break in /home/indutny/Code/git/indutny/myscript.js:1
-;; exception in /usr/lib/nodejs/module.js [module.js]:362
-(setf (gethash "loc" realgud:trepanjs-pat-hash)
- (make-realgud-loc-pat
- :regexp (format
- "\\(?:%s\\)*\\(?:break\\|exception\\|call\\) in %s at line
%s:%s"
- realgud:js-term-escape realgud:trepanjs-file-regexp
- realgud:regexp-captured-num
- realgud:regexp-captured-num)
- :file-group 1
- :line-group 2
- :char-offset-group 3
- ))
-
-;; realgud-loc-pat that describes a trepanjs command prompt
-;; For example:
-;; (trepanjs):
-(setf (gethash "prompt" realgud:trepanjs-pat-hash)
- (make-realgud-loc-pat
- :regexp (format "^\\(?:%s\\)*(+trepanjs)+ " realgud:js-term-escape)
- ))
-
-;; realgud-loc-pat that describes a "breakpoint set" line
-;; For example:
-;; Breakpoint 2 set in file /tmp/gcd.js, line 2.
-;; Breakpoint 3 set in file /usr/lib/nodejs/module.js [module.js], line 380.
-(setf (gethash "brkpt-set" realgud:trepanjs-pat-hash)
- (make-realgud-loc-pat
- :regexp (format "^Breakpoint %s set in file %s, line %s.\n"
- realgud:regexp-captured-num
- realgud:trepanjs-file-regexp
- realgud:regexp-captured-num)
- :num 1
- :file-group 2
- :line-group 3))
-
-;; realgud-loc-pat that describes a debugger "delete" (breakpoint) response.
-;; For example:
-;; Deleted breakpoint 1
-(setf (gethash "brkpt-del" realgud:trepanjs-pat-hash)
- (make-realgud-loc-pat
- :regexp "^Deleted breakpoint \\(\\([0-9]+ *\\)+\\)\n"
- :num 1))
-
-;; realgud-loc-pat that describes a V8 backtrace line.
-;; For example:
-;; at repl:1:7
-;; at Interface.controlEval
(/src/external-vcs/github/trepanjs/lib/interface.js:352:18)
-;; at REPLServer.b [as eval] (domain.js:183:18)
-(setf (gethash "lang-backtrace" realgud:trepanjs-pat-hash)
- realgud:js-backtrace-loc-pat)
-
-;; realgud-loc-pat that describes a debugger "delete" (breakpoint)
-;; response.
-;; For example:
-;; Deleted breakpoint 1.
-(setf (gethash "brkpt-del" realgud:trepanjs-pat-hash)
- (make-realgud-loc-pat
- :regexp (format "^Deleted breakpoint %s.\n"
- realgud:regexp-captured-num)
- :num 1))
-
-
-(defconst realgud:trepanjs-frame-start-regexp "\\(?:^\\|\n\\)\\(?: #\\)")
-(defconst realgud:trepanjs-frame-num-regexp realgud:regexp-captured-num)
-(defconst realgud:trepanjs-frame-module-regexp "[^ \t\n]+")
-
-;; realgud-loc-pat that describes debugger "backtrace" command line.
-;; e.g.
-;; ## require called from file /usr/lib/nodejs/module.js [module.js] at line
380:17
-;; ## in file /src/external-vcs/github/trepanjs/example/gcd.js
[/src/external-vcs/github/trepanjs/example/gcd.js] at line 2:12
-(setf (gethash "debugger-backtrace" realgud:trepanjs-pat-hash)
- (make-realgud-loc-pat
- :regexp (concat realgud:trepanjs-frame-start-regexp " "
- realgud:regexp-captured-num " "
- "\\(?:" realgud:trepanjs-frame-module-regexp "[
\t\n]+called from file "
- realgud:trepanjs-file-regexp
- "\\)\\| in file "
- realgud:regexp-captured-num
- "\\)"
- "at line \\(" realgud:regexp-captured-num "\\):"
- realgud:regexp-captured-num
- )
- :num 1
- :file-group 2
- :line-group 3
- :char-offset-group 4
- ))
-
-(defconst realgud:trepanjs-debugger-name "trepanjs" "Name of debugger")
-
-;; Top frame number
-(setf (gethash "top-frame-num" realgud:trepanjs-pat-hash) 0)
-
-;; realgud-loc-pat that for a termination message.
-(setf (gethash "termination" realgud:trepanjs-pat-hash)
- "^trepanjs: That's all, folks...\n")
-
-(setf (gethash realgud:trepanjs-debugger-name realgud-pat-hash)
realgud:trepanjs-pat-hash)
-
-(defvar realgud:trepanjs-command-hash (make-hash-table :test 'equal)
- "Hash key is command name like 'quit' and the value is
- the trepanjs command to use, like 'quit!'")
-
-(setf (gethash realgud:trepanjs-debugger-name
- realgud-command-hash) realgud:trepanjs-command-hash)
-
-(setf (gethash "break" realgud:trepanjs-command-hash)
- "setBreakpoint(%l)")
-(setf (gethash "clear" realgud:trepanjs-command-hash)
- "clearBreakpoint('%X', %l)")
-(setf (gethash "delete" realgud:trepanjs-command-hash)
- "clearBreakpoint('%X', %l)")
-;; We need aliases for step and next because the default would
-;; do step 1 and trepanjs doesn't handle this. Or when it does,
-;; it will probably look like step(1)
-(setf (gethash "eval" realgud:trepanjs-command-hash) "eval(%q)")
-(setf (gethash "quit" realgud:trepanjs-command-hash) "quit()")
-
-;; Unsupported features:
-(setf (gethash "kill" realgud:trepanjs-command-hash) "*not-implemented*")
-
-(provide-me "realgud:trepanjs-")
diff --git a/packages/realgud/realgud/debugger/trepanjs/track-mode.el
b/packages/realgud/realgud/debugger/trepanjs/track-mode.el
deleted file mode 100644
index 7a4d847..0000000
--- a/packages/realgud/realgud/debugger/trepanjs/track-mode.el
+++ /dev/null
@@ -1,90 +0,0 @@
-;; Copyright (C) 2015-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-;;; "trepanjs" Debugger tracking a comint or eshell buffer.
-
-(require 'load-relative)
-(require-relative-list '(
- "../../common/cmds"
- "../../common/menu"
- "../../common/track"
- "../../common/track-mode"
- "../../common/utils"
- )
- "realgud-")
-(require-relative-list '("core" "init") "realgud:trepanjs-")
-;; (require-relative-list '("../../lang/js") "realgud-lang-")
-
-(declare-function realgud-track-mode 'realgud-track-mode)
-(declare-function realgud-track-mode-hook 'realgud-track-mode)
-(declare-function realgud-track-mode-setup 'realgud-track-mode)
-(declare-function realgud:track-set-debugger 'realgud-track-mode)
-(declare-function realgud-goto-line-for-pt 'realgud-track-mode)
-(declare-function realgud:remove-ansi-schmutz 'realgud:utils)
-
-(realgud-track-mode-vars "trepanjs")
-
-(define-key realgud-track-mode-map
- (kbd "C-c !!") 'realgud:goto-lang-backtrace-line)
-(define-key realgud-track-mode-map
- (kbd "C-c !b") 'realgud:goto-debugger-backtrace-line)
-
-(declare-function realgud:ruby-populate-command-keys 'realgud-lang-ruby)
-
-(defun realgud:trepanjs-goto-syntax-error-line (pt)
- "Display the location mentioned in a Syntax error line
-described by PT."
- (interactive "d")
- (realgud-goto-line-for-pt pt "syntax-error"))
-
-(define-key trepanjs-track-mode-map
- (kbd "C-c !s") 'realgud:trepanjs-goto-syntax-error-line)
-
-(defun trepanjs-track-mode-hook()
- (if trepanjs-track-mode
- (progn
- (use-local-map trepanjs-track-mode-map)
- (realgud:remove-ansi-schmutz)
- (message "using trepanjs mode map")
- )
- (message "trepanjs track-mode-hook disable called"))
-)
-
-(define-minor-mode trepanjs-track-mode
- "Minor mode for tracking trepanjs source locations inside a process shell
via realgud. trepanjs is a Ruby debugger.
-
-If called interactively with no prefix argument, the mode is toggled. A prefix
argument, captured as ARG, enables the mode if the argument is positive, and
disables it otherwise.
-
-\\{trepanjs-track-mode-map}
-"
- :init-value nil
- ;; :lighter " trepanjs" ;; mode-line indicator from realgud-track is
sufficient.
- ;; The minor mode bindings.
- :global nil
- :group 'realgud:trepanjs
- :keymap trepanjs-track-mode-map
- (realgud:track-set-debugger "trepanjs")
- (if trepanjs-track-mode
- (progn
- (realgud-track-mode-setup 't)
- (trepanjs-track-mode-hook))
- (progn
- (setq realgud-track-mode nil)
- ))
-)
-
-(provide-me "realgud:trepanjs-")
diff --git a/packages/realgud/realgud/debugger/trepanjs/trepanjs.el
b/packages/realgud/realgud/debugger/trepanjs/trepanjs.el
deleted file mode 100644
index 1093fc7..0000000
--- a/packages/realgud/realgud/debugger/trepanjs/trepanjs.el
+++ /dev/null
@@ -1,85 +0,0 @@
-;; Copyright (C) 2015-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-;;; Regular expressions for nodejs Javascript debugger.
-
-;; `trepanjs' Main interface to trepanjs via Emacs
-(require 'load-relative)
-(require-relative-list '("../../common/helper") "realgud-")
-(require-relative-list '("../../common/run") "realgud:")
-(require-relative-list '("../../common/utils") "realgud-")
-(require-relative-list '("core" "track-mode") "realgud:trepanjs-")
-(require-relative-list '("../../lang/js") "realgud-lang-")
-
-(declare-function realgud:trepanjs-query-cmdline 'realgud:trepanjs-core)
-(declare-function realgud:trepanjs-parse-cmd-args 'realgud:trepanjs-core)
-(declare-function realgud:run-debugger 'realgud:run)
-
-;; This is needed, or at least the docstring part of it is needed to
-;; get the customization menu to work in Emacs 24.
-(defgroup realgud:trepanjs nil
- "The realgud interface to the Ruby 1.9.2 1.9.3 \"trepanjsning\" debugger"
- :group 'ruby
- :group 'realgud
- :version "24.3")
-
-;; -------------------------------------------------------------------
-;; User-definable variables
-;;
-
-(defcustom realgud:trepanjs-command-name
- ;;"trepanjs --emacs 3"
- "trepanjs"
- "File name for executing the Ruby debugger and command options.
-This should be an executable on your path, or an absolute file name."
- :type 'string
- :group 'realgud:trepanjs)
-
-;;;###autoload
-(defun realgud:trepanjs (&optional opt-cmd-line no-reset)
- "Invoke the trepanjs Ruby debugger and start the Emacs user interface.
-
-String OPT-CMD-LINE is treated like a shell string; arguments are
-tokenized by `split-string-and-unquote'. The tokenized string is
-parsed by `trepanjs-parse-cmd-args' and path elements found by that
-are expanded using `expand-file-name'.
-
-Normally, command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset. See `loc-changes-clear-buffer' to clear
-fringe and marginal icons.
-"
- (interactive)
- (let ((cmd-buf
- (realgud:run-debugger "trepanjs" 'realgud:trepanjs-query-cmdline
- 'realgud:trepanjs-parse-cmd-args
- 'realgud:trepanjs-minibuffer-history
- opt-cmd-line no-reset)))
- ;; (if cmd-buf
- ;; (with-current-buffer cmd-buf
- ;; ;; FIXME should allow customization whether to do or not
- ;; ;; and also only do if hook is not already there.
- ;; (realgud:remove-ansi-schmutz)
- ;; )
- ;; )
- ))
-
-(defalias 'trepanjs 'realgud:trepanjs)
-(provide-me "realgud-")
-;;; trepanjs.el ends here
diff --git a/packages/realgud/realgud/debugger/zshdb/Makefile.am
b/packages/realgud/realgud/debugger/zshdb/Makefile.am
deleted file mode 100644
index e6c68b4..0000000
--- a/packages/realgud/realgud/debugger/zshdb/Makefile.am
+++ /dev/null
@@ -1,5 +0,0 @@
-include ../common.mk
-
-lisp_files = $(wildcard *.el)
-lisp_LISP = $(lisp_files)
-EXTRA_DIST = $(lisp_files)
diff --git a/packages/realgud/realgud/debugger/zshdb/core.el
b/packages/realgud/realgud/debugger/zshdb/core.el
deleted file mode 100644
index 912c0ed..0000000
--- a/packages/realgud/realgud/debugger/zshdb/core.el
+++ /dev/null
@@ -1,191 +0,0 @@
-;; Copyright (C) 2010-2011, 2014-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-(require 'load-relative)
-(require-relative-list '("../../common/track" "../../common/core")
- "realgud-")
-(require-relative-list '("init") "realgud:zshdb-")
-
-(declare-function realgud:expand-file-name-if-exists 'realgud-core)
-(declare-function realgud-parse-command-arg 'realgud-core)
-(declare-function realgud-query-cmdline 'realgud-core)
-(declare-function realgud-suggest-invocation 'realgud-core)
-(declare-function realgud-lang-mode? 'realgud-lang)
-
-;; FIXME: I think the following could be generalized and moved to
-;; realgud-... probably via a macro.
-(defvar realgud:zshdb-minibuffer-history nil
- "minibuffer history list for the command `realgud:zshdb'.")
-
-(easy-mmode-defmap zshdb-minibuffer-local-map
- '(("\C-i" . comint-dynamic-complete-filename))
- "Keymap for minibuffer prompting of zshdb startup command."
- :inherit minibuffer-local-map)
-
-;; FIXME: I think this code and the keymaps and history
-;; variable chould be generalized, perhaps via a macro.
-(defun zshdb-query-cmdline (&optional opt-debugger)
- (realgud-query-cmdline
- 'zshdb-suggest-invocation
- zshdb-minibuffer-local-map
- 'realgud:zshdb-minibuffer-history
- opt-debugger))
-
-;;; FIXME: DRY this with other *-parse-cmd-args routines
-(defun zshdb-parse-cmd-args (orig-args)
- "Parse command line ORIG-ARGS for the annotate level and name of script to
debug.
-
-ORIG-ARGS should contain a tokenized list of the command line to run.
-
-We return the a list containing
-* the command processor (e.g. zshdb) and it's arguments if any - a list of
strings
-* the name of the debugger given (e.g. zshdb) and its arguments - a list of
strings
-* the script name and its arguments - list of strings
-* whether the annotate or emacs option was given ('-A', '--annotate' or
'--emacs) - a boolean
-
-For example for the following input
- (map 'list 'symbol-name
- '(zsh -b /usr/local/bin/zshdb -A -L . ./gcd.sh a b))
-
-we might return:
- ((\"zsh\" \"-b\") (\"/usr/local/bin/zshdb\" \"-A\") (\"-L\" \"/tmp\"
\"/tmp/gcd.sh\" \"a\" \"b\") 't)
-
-Note that path elements have been expanded via
`realgud:expand-file-name-if-exists'.
-"
-
- ;; Parse the following kind of pattern:
- ;; [zsh zsh-options] zshdb zshdb-options script-name script-options
- (let (
- (args orig-args)
- (pair) ;; temp return from
- ;; zsh doesn't have any optional two-arg options
- (zsh-opt-two-args '())
- (zsh-two-args '("o" "c"))
-
- ;; One dash is added automatically to the below, so
- ;; h is really -h and -host is really --host.
- (zshdb-two-args '("A" "-annotate" "l" "-library"
- "c" "-command" "-t" "-tty"
- "x" "-eval-command"))
- (zshdb-opt-two-args '())
- (interp-regexp
- (if (member system-type (list 'windows-nt 'cygwin 'msdos))
- "^zsh*\\(.exe\\)?$"
- "^zsh*$"))
-
- ;; Things returned
- (script-name nil)
- (debugger-name nil)
- (interpreter-args '())
- (debugger-args '())
- (script-args '())
- (annotate-p nil))
-
- (if (not (and args))
- ;; Got nothing: return '(nil, nil)
- (list interpreter-args debugger-args script-args annotate-p)
- ;; else
- ;; Strip off optional "zsh" or "zsh.exe" etc.
- (when (string-match interp-regexp
- (file-name-sans-extension
- (file-name-nondirectory (car args))))
- (setq interpreter-args (list (pop args)))
-
- ;; Strip off zsh-specific options
- (while (and args
- (string-match "^-" (car args)))
- (setq pair (realgud-parse-command-arg
- args zsh-two-args zsh-opt-two-args))
- (nconc interpreter-args (car pair))
- (setq args (cadr pair))))
-
- ;; Remove "zshdb" from "zshdb --zshdb-options script
- ;; --script-options"
- (setq debugger-name (file-name-sans-extension
- (file-name-nondirectory (car args))))
- (unless (string-match "^zshdb$" debugger-name)
- (message
- "Expecting debugger name `%s' to be `zshdb'"
- debugger-name))
- (setq debugger-args (list (pop args)))
-
- ;; Skip to the first non-option argument.
- (while (and args (not script-name))
- (let ((arg (car args)))
- (cond
- ;; Annotation or emacs option with level number.
- ((or (member arg '("--annotate" "-A"))
- (equal arg "--emacs"))
- (setq annotate-p t)
- (nconc debugger-args (list (pop args))))
- ;; Combined annotation and level option.
- ((string-match "^--annotate=[0-9]" arg)
- (nconc debugger-args (list (pop args)) )
- (setq annotate-p t))
- ;; Library option
- ((member arg '("--library" "-l"))
- (setq arg (pop args))
- (nconc debugger-args
- (list arg (realgud:expand-file-name-if-exists
- (pop args)))))
- ;; Other options with arguments.
- ((string-match "^-" arg)
- (setq pair (realgud-parse-command-arg
- args zshdb-two-args zshdb-opt-two-args))
- (nconc debugger-args (car pair))
- (setq args (cadr pair)))
- ;; Anything else must be the script to debug.
- (t (setq script-name (realgud:expand-file-name-if-exists arg))
- (setq script-args (cons script-name (cdr args))))
- )))
- (list interpreter-args debugger-args script-args annotate-p))))
-
-;; To silence Warning: reference to free variable
-(defvar realgud:zshdb-command-name)
-
-(defun zshdb-suggest-invocation (debugger-name)
- "Suggest a zshdb command invocation via `realgud-suggest-invocaton'"
- (realgud-suggest-invocation (or debugger-name realgud:zshdb-command-name)
- realgud:zshdb-minibuffer-history
- "sh" "\\.\\(?:z\\)?sh$"))
-
-(defun realgud:zshdb-remove-ansi-schmutz()
- "Remove ASCII escape sequences that node.js 'decorates' in
-prompts and interactive output with"
- (add-to-list
- 'comint-preoutput-filter-functions
- (lambda (output)
- (replace-regexp-in-string "\033\\[\\?[0-9]+[GKJhl]" "" output)))
- )
-
-(defun zshdb-reset ()
- "Zshdb cleanup - remove debugger's internal buffers (frame,
-breakpoints, etc.)."
- (interactive)
- ;; (zshdb-breakpoint-remove-all-icons)
- (dolist (buffer (buffer-list))
- (when (string-match "\\*zshdb-[a-z]+\\*" (buffer-name buffer))
- (let ((w (get-buffer-window buffer)))
- (when w
- (delete-window w)))
- (kill-buffer buffer))))
-
-;; (defun zshdb-reset-keymaps()
-;; "This unbinds the special debugger keys of the source buffers."
-;; (interactive)
-;; (setcdr (assq 'zshdb-debugger-support-minor-mode minor-mode-map-alist)
-;; zshdb-debugger-support-minor-mode-map-when-deactive))
-
-
-(defun realgud:zshdb-customize ()
- "Use `customize' to edit the settings of the `zshdb' debugger."
- (interactive)
- (customize-group 'realgud:zshdb))
-
-(provide-me "realgud:zshdb-")
diff --git a/packages/realgud/realgud/debugger/zshdb/init.el
b/packages/realgud/realgud/debugger/zshdb/init.el
deleted file mode 100644
index 3fac621..0000000
--- a/packages/realgud/realgud/debugger/zshdb/init.el
+++ /dev/null
@@ -1,106 +0,0 @@
-;; Copyright (C) 2015-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-(eval-when-compile (require 'cl-lib)) ;For setf.
-
-(require 'load-relative)
-(require-relative-list '("../../common/regexp"
- "../../common/loc"
- "../../common/init")
- "realgud-")
-(require-relative-list '("../../lang/posix-shell") "realgud-lang-")
-
-(defvar realgud:zshdb-pat-hash)
-(declare-function make-realgud-loc-pat (realgud-loc))
-
-(defvar realgud:zshdb-pat-hash (make-hash-table :test 'equal)
- "Hash key is the what kind of pattern we want to match:
-backtrace, prompt, etc. The values of a hash entry is a
-realgud-loc-pat struct")
-
-;; realgud-loc-pat that describes a zshdb location generally shown
-;; before a command prompt.
-;; For example:
-;; (/etc/init.d/apparmor:35):
-(setf (gethash "loc" realgud:zshdb-pat-hash) realgud:POSIX-debugger-loc-pat)
-
-;; realgud-loc-pat that describes a zshdb command prompt
-;; For example:
-;; zshdb<10>
-;; zshdb<(5)>
-;; zshdb<<1>>
-(setf (gethash "prompt" realgud:zshdb-pat-hash)
- (make-realgud-loc-pat
- :regexp (format "^zshdb[<]+[(]*%s[)]*[>]+ "
- realgud:regexp-captured-num)
- :num 1
- ))
-
-;; realgud-loc-pat that describes a "breakpoint set" line.
-(setf (gethash "brkpt-set" realgud:zshdb-pat-hash)
- realgud:POSIX-debugger-brkpt-set-pat)
-
-;; realgud-loc-pat that describes a debugger "delete" (breakpoint) response.
-;; For example:
-;; Deleted breakpoint 1.
-(setf (gethash "brkpt-del" realgud:zshdb-pat-hash)
- realgud:POSIX-debugger-brkpt-del-pat)
-
-;; realgud-loc-pat that describes a debugger "disable" (breakpoint) response.
-;; For example:
-;; Breakpoint entry 4 disabled.
-(setf (gethash "brkpt-disable" realgud:zshdb-pat-hash)
- realgud:POSIX-debugger-brkpt-disable-pat)
-
-;; realgud-loc-pat that describes a debugger "enable" (breakpoint) response.
-;; For example:
-;; Breakpoint entry 4 enabled.
-(setf (gethash "brkpt-enable" realgud:zshdb-pat-hash)
- realgud:POSIX-debugger-brkpt-enable-pat)
-
-;; realgud-loc-pat that describes a debugger "backtrace" command line.
-;; For example:
-;; ->0 in file `/etc/apparmor/fns' at line 24
-;; ##1 /etc/apparmor/fns called from file `/etc/init.d/apparmor' at line 35
-;; ##2 /etc/init.d/apparmor called from file `/usr/bin/zshdb' at line 129
-(setf (gethash "debugger-backtrace" realgud:zshdb-pat-hash)
- realgud:POSIX-debugger-backtrace-pat)
-
-;; realgud-loc-pat that for a termination message.
-(setf (gethash "termination" realgud:zshdb-pat-hash)
- "^zshdb: That's all, folks...\n")
-
-(setf (gethash "font-lock-keywords" realgud:zshdb-pat-hash)
- realgud:POSIX-debugger-font-lock-keywords)
-
-(setf (gethash "zshdb" realgud-pat-hash) realgud:zshdb-pat-hash)
-
-(defvar realgud:zshdb-command-hash (make-hash-table :test 'equal)
- "Hash key is command name like 'quit' and the value is
- the zshdb command to use, like 'quit!'")
-
-(setf (gethash "zshdb" realgud-command-hash) realgud:zshdb-command-hash)
-
-(setf (gethash "clear" realgud:zshdb-command-hash) "clear %l")
-(setf (gethash "eval" realgud:zshdb-command-hash) "eval %s")
-(setf (gethash "quit" realgud:zshdb-command-hash) "quit")
-(setf (gethash "until" realgud:zshdb-command-hash) "continue %l")
-
-;; Unsupported features:
-(setf (gethash "jump" realgud:zshdb-command-hash) "*not-implemented*")
-
-(provide-me "realgud:zshdb-")
diff --git a/packages/realgud/realgud/debugger/zshdb/track-mode.el
b/packages/realgud/realgud/debugger/zshdb/track-mode.el
deleted file mode 100644
index 9025a06..0000000
--- a/packages/realgud/realgud/debugger/zshdb/track-mode.el
+++ /dev/null
@@ -1,71 +0,0 @@
-;; Copyright (C) 2012, 2014-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;;; "zshdb" Debugger tracking a comint buffer.
-
-(require 'load-relative)
-(require-relative-list '(
- "../../common/cmds"
- "../../common/menu"
- "../../common/track"
- "../../common/track-mode"
- )
- "realgud-")
-(require-relative-list '("core" "init") "realgud:zshdb-")
-(require-relative "../../lang/posix-shell" nil "realgud-lang-")
-
-(declare-function realgud:track-set-debugger 'realgud-track-mode)
-(declare-function realgud-track-mode-setup 'realgud-track-mode)
-(declare-function realgud-posix-shell-populate-command-keys
- 'realgud-lang-posix-shell)
-(declare-function realgud:zshdb-remove-ansi-schmutz 'realgud:zshdb-core)
-
-(realgud-track-mode-vars "zshdb")
-(realgud-posix-shell-populate-command-keys zshdb-track-mode-map)
-
-(declare-function realgud-track-mode(bool))
-
-
-(defun zshdb-track-mode-hook()
- (if zshdb-track-mode
- (progn
- (use-local-map zshdb-track-mode-map)
- (realgud:zshdb-remove-ansi-schmutz)
- (message "using zshdb mode map")
- )
- (message "zshdb track-mode-hook disable called"))
-)
-
-(define-minor-mode zshdb-track-mode
- "Minor mode for tracking zshdb source locations inside a process shell via
realgud. zshdb is a zsh debugger.
-
-If called interactively with no prefix argument, the mode is toggled. A prefix
argument, captured as ARG, enables the mode if the argument is positive, and
disables it otherwise.
-
-\\{zshdb-track-mode-map}
-"
- :init-value nil
- ;; :lighter " zshdb" ;; mode-line indicator from realgud-track is
sufficient.
- ;; The minor mode bindings.
- :global nil
- :group 'realgud:zshdb
- :keymap zshdb-track-mode-map
-
- (realgud:track-set-debugger "zshdb")
- (if zshdb-track-mode
- (progn
- (realgud-track-mode-setup 't)
- (zshdb-track-mode-hook))
- (progn
- (setq realgud-track-mode nil)
- ))
-)
-
-(define-key zshdb-short-key-mode-map "T" 'realgud:cmd-backtrace)
-
-(provide-me "realgud:zshdb-")
diff --git a/packages/realgud/realgud/debugger/zshdb/zshdb.el
b/packages/realgud/realgud/debugger/zshdb/zshdb.el
deleted file mode 100644
index 362ed39..0000000
--- a/packages/realgud/realgud/debugger/zshdb/zshdb.el
+++ /dev/null
@@ -1,89 +0,0 @@
-;; Copyright (C) 2011, 2014-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; `zshdb' Main interface to zshdb via Emacs
-(require 'load-relative)
-(require-relative-list '("../../common/helper") "realgud-")
-(require-relative-list '("../../common/track") "realgud-")
-(require-relative-list '("../../common/run") "realgud:")
-(require-relative-list '("core" "track-mode") "realgud:zshdb-")
-
-(declare-function zshdb-track-mode (bool))
-(declare-function zshdb-query-cmdline 'realgud:zshdb-core)
-(declare-function zshdb-parse-cmd-args 'realgud:zshdb-core)
-
-;; This is needed, or at least the docstring part of it is needed to
-;; get the customization menu to work in Emacs 24.
-(defgroup realgud:zshdb nil
- "The realgud interface to the Zsh debugger, zshdb"
- :group 'realgud
- :version "24.3")
-
-;; -------------------------------------------------------------------
-;; User definable variables
-;;
-
-(defcustom realgud:zshdb-command-name
- ;;"zshdb --emacs 3"
- "zshdb"
- "File name for executing the zshdb and its command options.
-This should be an executable on your path, or an absolute file name."
- :type 'string
- :group 'realgud:zshdb)
-
-(declare-function zshdb-track-mode (bool))
-
-;; -------------------------------------------------------------------
-;; The end.
-;;
-
-(declare-function zshdb-track-mode 'realgud-zshdb-track-mode)
-(declare-function zshdb-query-cmdline 'realgud:zshdb-core)
-(declare-function zshdb-parse-cmd-args 'realgud:zshdb-core)
-(declare-function realgud:run-debugger 'realgud:run)
-
-; ### FIXME: DRY with other top-level routines
-;;;###autoload
-(defun realgud:zshdb (&optional opt-cmd-line no-reset)
- "Invoke the zshdb Z-shell debugger and start the Emacs user interface.
-
-String OPT-CMD-LINE specifies how to run zshdb.
-
-OPT-CMD-LINE is treated like a shell string; arguments are
-tokenized by `split-string-and-unquote'. The tokenized string is
-parsed by `zshdb-parse-cmd-args' and path elements found by that
-are expanded using `realgud:expand-file-name-if-exists'.
-
-Normally, command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
-discover that the buffer has prior command-buffer information and
-NO-RESET is nil, then that information which may point into other
-buffers and source buffers which may contain marks and fringe or
-marginal icons is reset. See `loc-changes-clear-buffer' to clear
-fringe and marginal icons.
-"
- (interactive)
- (let ((cmd-buf
- (realgud:run-debugger realgud:zshdb-command-name 'zshdb-query-cmdline
- 'zshdb-parse-cmd-args
- 'realgud:zshdb-minibuffer-history
- opt-cmd-line no-reset)))
- ;; (if cmd-buf
- ;; (with-current-buffer cmd-buf
- ;; ;; FIXME should allow customization whether to do or not
- ;; ;; and also only do if hook is not already there.
- ;; (realgud:zshdb-remove-ansi-schmutz)
- ;; )
- ;; )
- ))
-
-;;;###autoload
-(defalias 'zshdb 'realgud:zshdb)
-
-(provide-me "realgud-")
diff --git a/packages/realgud/realgud/lang/Makefile.am
b/packages/realgud/realgud/lang/Makefile.am
deleted file mode 100644
index a6f5e4c..0000000
--- a/packages/realgud/realgud/lang/Makefile.am
+++ /dev/null
@@ -1,5 +0,0 @@
-lispdir = @lispdir_realgud@/$(notdir $(subdir))
-lisp_files := $(wildcard *.el)
-lisp_LISP = $(lisp_files)
-EXTRA_DIST = $(lisp_files)
-MOSTLYCLEANFILES = *.elc
diff --git a/packages/realgud/realgud/lang/java.el
b/packages/realgud/realgud/lang/java.el
deleted file mode 100644
index da0e54a..0000000
--- a/packages/realgud/realgud/lang/java.el
+++ /dev/null
@@ -1,47 +0,0 @@
-;; Copyright (C) 2017 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-;;; Common Java constants and regular expressions.
-(require 'load-relative)
-(require-relative-list '("../common/regexp" "../common/loc" "../common/track")
- "realgud-")
-
-(declare-function realgud-goto-line-for-pt 'realgud-track)
-
-(defun realgud-java-populate-command-keys (&optional map)
- "Bind the debugger function key layout used by many debuggers.
-
-\\{realgud-example-map-standard}"
- (define-key map (kbd "C-c !m") 'realgud:goto-maven-errmsg-line)
- )
-
-
-(defconst realgud-maven-error-loc-pat
- (make-realgud-loc-pat
- :regexp "^\\[\\(?:ERROR\\|WARNING\\)\\]
\\(.*\\):\\[\\([0-9][0-9]*\\),\\([0-9][0-9]*\\)\\]"
- :file-group 1
- :line-group 2
- :char-offset-group 3)
- "A realgud-loc-pat struct that describes a maven error or warning line"
- )
-
-(defun realgud:goto-maven-errmsg-line (pt)
- "Display the location mentioned by the maven error at PT."
- (interactive "d")
- (realgud-goto-line-for-pt pt "maven-error"))
-
-(provide-me "realgud-lang-")
diff --git a/packages/realgud/realgud/lang/js.el
b/packages/realgud/realgud/lang/js.el
deleted file mode 100644
index 8d19847..0000000
--- a/packages/realgud/realgud/lang/js.el
+++ /dev/null
@@ -1,41 +0,0 @@
-;; Copyright (C) 2015-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-(require 'load-relative)
-(require-relative-list '("../common/regexp" "../common/loc" "../common/track")
- "realgud-")
-
-(defconst realgud:js-term-escape "[[0-9]+[GKJ]"
- "Escape sequence regular expression pattern trepanjs often puts
- in around prompts")
-
-(declare-function realgud-goto-line-for-pt 'realgud-track)
-
-;; Regular expression that describes a Perl Carp backtrace line.
-;; at /tmp/foo.pl line 7
-;; main::__ANON__('Illegal division by zero at /tmp/foo.pl line 4.\x{a}')
called at /tmp/foo.pl line 4
-;; main::foo(3) called at /tmp/foo.pl line 8
-(defconst realgud:js-backtrace-loc-pat
- (make-realgud-loc-pat
- :regexp (format "^\\(?:[\t ]+at \\)?\\([^:]+\\) (\\(.*\\):%s:%s)"
- realgud:regexp-captured-num realgud:regexp-captured-num)
- :file-group 2
- :line-group 3
- :char-offset-group 4)
- "A realgud-loc-pat struct that describes a V8 backtrace location")
-
-(provide-me "realgud-lang-")
diff --git a/packages/realgud/realgud/lang/perl.el
b/packages/realgud/realgud/lang/perl.el
deleted file mode 100644
index cad3374..0000000
--- a/packages/realgud/realgud/lang/perl.el
+++ /dev/null
@@ -1,60 +0,0 @@
-;; Copyright (C) 2011, 2014, 2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;;; Common Perl constants and regular expressions.
-(require 'load-relative)
-(require-relative-list '("../common/regexp" "../common/loc" "../common/track")
- "realgud-")
-
-(declare-function realgud-goto-line-for-pt 'realgud-track)
-
-;; Regular expression that describes a Perl Carp backtrace line.
-;; at /tmp/foo.pl line 7
-;; main::__ANON__('Illegal division by zero at /tmp/foo.pl line 4.\x{a}')
called at /tmp/foo.pl line 4
-;; main::foo(3) called at /tmp/foo.pl line 8
-(defconst realgud-perl-carp-loc-pat
- (make-realgud-loc-pat
- :regexp (concat
- "\\(?:^\\|
-\\)"
- "\\(?:[ \t]+\\(?:\\|.* called \\)at \\(.*\\) line
\\([0-9]+\\)\\)")
- :file-group 1
- :line-group 2)
- "A realgud-loc-pat struct that describes a line used in a Carp message" )
-
-(defconst realgud-perl-errmsg-loc-pat
- (make-realgud-loc-pat
- :regexp (concat
- " at \\(.+\\) line \\([0-9]+\\).$")
- :file-group 1
- :line-group 2)
- "A realgud-loc-pat struct that describes a line used in an error message" )
-
-;; Regular expression that pseudo-files in caller. For example:
-;; (eval 1006)[../example/eval.pl:5]
-(defconst realgud-perl-ignore-file-re "(eval [0-9]+)\\(\\[.+\\]\\)?"
- "Regular expression that pseudo-files of caller()")
-
-;; FIXME: there is probably a less redundant way to do the following
-;; FNS.
-(defun realgud:perl-goto-errmsg-line (pt)
- "Display the location mentioned by the Perl error message described by PT."
- (interactive "d")
- (realgud-goto-line-for-pt pt "perl-errmsg"))
-
-(defun realgud-perl-populate-command-keys (&optional map)
- "Bind the debugger function key layout used by many debuggers.
-
-\\{realgud-example-map-standard}"
- (define-key map (kbd "C-c !b") 'realgud:goto-debugger-backtrace-line)
- (define-key map (kbd "C-c !!") 'realgud:goto-lang-backtrace-line)
- (define-key map (kbd "C-c !e") 'realgud:perl-goto-errmsg-line)
- )
-
-(provide-me "realgud-lang-")
diff --git a/packages/realgud/realgud/lang/posix-shell.el
b/packages/realgud/realgud/lang/posix-shell.el
deleted file mode 100644
index 1ef2313..0000000
--- a/packages/realgud/realgud/lang/posix-shell.el
+++ /dev/null
@@ -1,150 +0,0 @@
-;; Copyright (C) 2015-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-;;
-;; Common POSIX-Shell like constants and regular expressions.
-;; Actually a lot of this is not about POSIX shell as it is about the
-;; common-ness of bashdb, zshdb, and kshdb. But since those are the
-;; *only* debuggers I know of for POSIX shells, it's not too much of
-;; a stretch to think of this as for all "shell".
-
-(require 'load-relative)
-(require-relative-list '("../common/regexp" "../common/loc"
- "../common/track" "../common/send")
- "realgud-")
-
-(defconst realgud-shell-backtrace-loc-pat
- (make-realgud-loc-pat
- :regexp "^[ \t]+from \\([^:]+\\):\\([0-9]+\\)\\(?: in `.*'\\)?"
- :file-group 1
- :line-group 2)
- "A realgud-loc-pat struct that describes a Shell backtrace (or
-traceback) line." )
-
-(defconst realgud-shell-frame-start-regexp
- "\\(?:^\\|\n\\)\\(->\\|##\\)")
-
-(defconst realgud-shell-frame-num-regexp
- realgud:regexp-captured-num)
-
-(defconst realgud-shell-frame-file-regexp
- "[ \t\n]+\\(?:in\\|from\\) file `\\(.+\\)'")
-
-(defconst realgud-shell-frame-line-regexp
- (format "[ \t\n]+at line %s\\(?:\n\\|$\\)" realgud:regexp-captured-num))
-
-(defun realgud-posix-shell-populate-command-keys (&optional map)
- "Bind the debugger function key layout used by many debuggers.
-
-\\{realgud-example-map-standard}"
- (define-key map (kbd "C-c !b") 'realgud:goto-debugger-backtrace-line)
- (define-key map (kbd "C-c !!") 'realgud:goto-lang-backtrace-line)
- )
-
-;; Regular expression that describes a bashdb/zshdb location generally shown
-;; before a command prompt.
-;; For example:
-;; (/etc/init.d/apparmor:35):
-(defconst realgud:POSIX-debugger-loc-pat
- (make-realgud-loc-pat
- :regexp "\\(?:^\\|\n\\)(\\([^:]+\\):\\([0-9]*\\)):\\(?:\n\\(.+\\)\\)?"
- :file-group 1
- :line-group 2
- :text-group 3)
- "A realgud-loc-pat struct that describes a POSIX shell debugger
- location line.")
-
-;; Regular expression that describes a debugger "backtrace" command line.
-;; For example:
-;; ->0 in file `/etc/apparmor/fns' at line 24
-;; ##1 /etc/apparmor/fns called from file `/etc/init.d/apparmor' at line 35
-;; ##2 /etc/init.d/apparmor called from file `/usr/bin/zshdb' at line 129
-(defconst realgud:POSIX-debugger-backtrace-pat
- (make-realgud-loc-pat
- :regexp (concat realgud-shell-frame-start-regexp
- realgud-shell-frame-num-regexp "[ ]?"
- "\\(.*\\)"
- realgud-shell-frame-file-regexp
- "\\(?:" realgud-shell-frame-line-regexp "\\)?"
- )
- :num 2
- :file-group 4
- :line-group 5)
- "A realgud-loc-pat struct that describes a Python trepan
- backtrace location line." )
-
-;; Regular expression that describes a "breakpoint set" line
-(defconst realgud:POSIX-debugger-brkpt-set-pat
- (make-realgud-loc-pat
- :regexp (format "^Breakpoint \\([0-9]+\\) set in file \\(.+\\), line %s.\n"
- realgud:regexp-captured-num)
- :num 1
- :file-group 2
- :line-group 3))
-
-;; Regular expression that describes a debugger "delete" (breakpoint) response.
-;; For example:
-;; Removed 1 breakpoint(s).
-(defconst realgud:POSIX-debugger-brkpt-del-pat
- (make-realgud-loc-pat
- :regexp (format "^Deleted breakpoint %s\n"
- realgud:regexp-captured-num)
- :num 1))
-
-;; Regular expression that describes a debugger "disable" (breakpoint)
response.
-;; For example:
-;; Breakpoint entry 4 disabled.
-(defconst realgud:POSIX-debugger-brkpt-disable-pat
- (make-realgud-loc-pat
- :regexp (format "^Breakpoint entry %s disabled."
- realgud:regexp-captured-num)
- :num 1))
-
-;; Regular expression that describes a debugger "enable" (breakpoint) response.
-;; For example:
-;; Breakpoint entry 4 enabled.
-(defconst realgud:POSIX-debugger-brkpt-enable-pat
- (make-realgud-loc-pat
- :regexp (format "^Breakpoint entry %s enabled."
- realgud:regexp-captured-num)
- :num 1))
-
-(defconst realgud:POSIX-debugger-font-lock-keywords
- '(
- ;; The frame number and first type name, if present.
- ;; E.g. ->0 in file `/etc/init.d/apparmor' at line 35
- ;; --^-
- ("^\\(->\\|##\\)\\([0-9]+\\) "
- (2 realgud-backtrace-number-face))
-
- ;; File name.
- ;; E.g. ->0 in file `/etc/init.d/apparmor' at line 35
- ;; ---------^^^^^^^^^^^^^^^^^^^^-
- ("[ \t]+\\(in\\|from\\) file `\\(.+\\)'"
- (2 realgud-file-name-face))
-
- ;; File name.
- ;; E.g. ->0 in file `/etc/init.d/apparmor' at line 35
- ;; --------^^
- ;; Line number.
- ("[ \t]+at line \\([0-9]+\\)$"
- (1 realgud-line-number-face))
- ;; (trepan-frames-match-current-line
- ;; (0 trepan-frames-current-frame-face append))
- ))
-
-(provide-me "realgud-lang-")
diff --git a/packages/realgud/realgud/lang/python.el
b/packages/realgud/realgud/lang/python.el
deleted file mode 100644
index d575d36..0000000
--- a/packages/realgud/realgud/lang/python.el
+++ /dev/null
@@ -1,196 +0,0 @@
-;; Copyright (C) 2011, 2014-2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-;;; Common Python constants and regular expressions.
-(require 'load-relative)
-(require-relative-list '("../common/regexp" "../common/loc" "../common/track")
- "realgud-")
-
-(declare-function realgud-goto-line-for-pt 'realgud-track)
-
-(defconst realgud-python-backtrace-loc-pat
- (make-realgud-loc-pat
- :regexp "^[ \t]+File \"\\(.+\\)\", line \\([0-9]+\\)"
- :file-group 1
- :line-group 2)
- "A realgud-loc-pat struct that describes a Python backtrace (or
-traceback) line." )
-
-;; Regular expression that pseudo-files in caller. For example:
-;; <string>
-(defconst realgud-python-ignore-file-re "<string>"
- "Regular expression that pseudo-files of caller()")
-
-(defun realgud-python-populate-command-keys (&optional map)
- "Bind the debugger function key layout used by many debuggers.
-
-\\{realgud-example-map-standard}"
- (define-key map (kbd "C-c !b") 'realgud:goto-debugger-backtrace-line)
- (define-key map (kbd "C-c !!") 'realgud:goto-lang-backtrace-line)
- (define-key map (kbd "C-c !e") 'realgud:pytest-goto-errmsg-line)
- (define-key map (kbd "C-c !8") 'realgud:flake8-goto-msg-line)
- )
-
-
-;; Things common to the trepan Python debuggers
-
-(defconst realgud:python-trepan-frame-start-regexp
- "\\(?:^\\|\n\\)\\(->\\|##\\)")
-
-(defconst realgud:python-trepan-frame-num-regexp
- "\\([0-9]+\\)")
-
-;; Regular expression that describes a trepan2/3k location generally shown
-;; before a command prompt.
-;;
-;; For example:
-;; (/usr/bin/zonetab2pot.py:15 @10): <module>
-;; (/usr/bin/zonetab2pot.py:15 remapped <string>): <module>
-;; or MS Windows:
-;; (c:\\mydirectory\\gcd.py:10): <module>
-
-(defconst realgud:python-trepan-loc-pat
- (make-realgud-loc-pat
- :regexp "^(\\(\\(?:[a-zA-Z]:\\)?[-a-zA-Z0-9_/.\\\\
]+\\):\\([0-9]+\\)\\(?: @[0-9]+\\)?\\(?: remapped .*?\\)?):
\\(?:<module>\\)?\\(?:\n.. [0-9]+ \\(.*?\\)\n\\)?"
- :file-group 1
- :line-group 2
- :text-group 3
- :ignore-file-re realgud-python-ignore-file-re)
- "A realgud-loc-pat struct that describes a Python trepan
- location line." )
-
-;; Regular expression that describes a trepan2/3k backtrace line.
-;; For example:
-;; ->0 get_distribution(dist='trepan==0.3.9')
-;; called from file '/python2.7/dist-packages/pkg_res.py' at line 341
-;; ##1 load_entry_point(dist='tr=0.3.9', group='console_scripts', name='tr')
-;; called from file '/python2.7/dist-packages/pkg_res.py' at line 351
-;; ##2 <module> exec()
-
-(defconst realgud:python-trepan-backtrace-pat
- (make-realgud-loc-pat
- :regexp (concat
- realgud:python-trepan-frame-start-regexp
- realgud:python-trepan-frame-num-regexp "[ ]"
- "\\(?:.*?)\\)\\(?:[\n\t ]+?\\)"
- "\\(?:called from file \\)?'\\([^:]+?\\)' at line \\([0-9]+\\)")
- :num 2
- :file-group 3
- :line-group 4
- :ignore-file-re realgud-python-ignore-file-re)
- "A realgud-loc-pat struct that describes a Python trepan
- backtrace location line." )
-
-;; Regular expression that describes a "breakpoint set" line
-(defconst realgud:python-trepan-brkpt-set-pat
- (make-realgud-loc-pat
- :regexp "^Breakpoint \\([0-9]+\\) set at line \\([0-9]+\\)[ \t\n]+of file[
\t\n]+\\(.+\\)\\(\n\\|$\\)"
- :num 1
- :file-group 3
- :line-group 2))
-
-;; Regular expression that describes a debugger "delete" (breakpoint) response.
-(defconst realgud:python-trepan-brkpt-del-pat
- (make-realgud-loc-pat
- :regexp "^Deleted breakpoint \\([0-9]+\\)\n"
- :num 1))
-
-;; Regular expression that describes a debugger "disable" (breakpoint)
response.
-;; For example:
-;; Breakpoint entry 4 disabled.
-(defconst realgud:python-trepan-brkpt-disable-pat
- (make-realgud-loc-pat
- :regexp (format "^Breakpoint %s disabled"
- realgud:regexp-captured-num)
- :num 1))
-
-;; Regular expression that describes a debugger "enable" (breakpoint) response.
-;; For example:
-;; Breakpoint entry 4 enabled.
-(defconst realgud:python-trepan-brkpt-enable-pat
- (make-realgud-loc-pat
- :regexp (format "^Breakpoint %s enabled"
- realgud:regexp-captured-num)
- :num 1))
-
-(defconst realgud:python-debugger-font-lock-keywords
- '(
- ;; The frame number and first type name, if present.
- ("^\\(->\\|##\\)\\([0-9]+\\) \\(<module>\\)?
*\\([a-zA-Z_][a-zA-Z0-9_]*\\)(\\(.+\\))?"
- (2 realgud-backtrace-number-face)
- (4 font-lock-function-name-face nil t)) ; t means optional.
-
- ;; Parameter sequence, E.g. gcd(a=3, b=5)
- ;; ^^^^^^^^^
- ("(\\(.+\\))"
- (1 font-lock-variable-name-face))
-
- ;; File name. E.g file '/test/gcd.py'
- ;; ------^^^^^^^^^^^^-
- ("[ \t]+file '\\([^ ]+*\\)'"
- (1 realgud-file-name-face))
-
- ;; Line number. E.g. at line 28
- ;; ---------^^
- ("[ \t]+at line \\([0-9]+\\)$"
- (1 realgud-line-number-face))
-
- ;; Function name.
- ("\\<\\([a-zA-Z_][a-zA-Z0-9_]*\\)\\.\\([a-zA-Z_][a-zA-Z0-9_]*\\)"
- (1 font-lock-type-face)
- (2 font-lock-function-name-face))
- ;; (trepan2-frames-match-current-line
- ;; (0 trepan2-frames-current-frame-face append))
- ))
-
-(defconst realgud-pytest-error-loc-pat
- (make-realgud-loc-pat
- :regexp "^\\(.*\\):\\([0-9]+\\): in "
- :file-group 1
- :line-group 2)
- "A realgud-loc-pat struct that describes a Pytest error line"
- )
-
-
-;; FIXME: there is probably a less redundant way to do the following
-;; FNS.
-(defun realgud:pytest-goto-errmsg-line (pt)
- "Display the location mentioned by the pytest error at PT."
- (interactive "d")
- (realgud-goto-line-for-pt pt "pytest-error"))
-
-
-(defconst realgud-flake8-msg-loc-pat
- (make-realgud-loc-pat
- :regexp "^\\(.*\\):\\([0-9]+\\):\\([0-9]+\\): [EFWCN]\\([0-9]+\\) "
- :file-group 1
- :line-group 2
- :char-offset-group 3
- )
- "A realgud-loc-pat struct that describes a flake8 warning or error line"
- )
-
-
-;; FIXME: there is probably a less redundant way to do the following
-;; FNS.
-(defun realgud:flake8-goto-msg-line (pt)
- "Display the location mentioned by the flake8 warning or error."
- (interactive "d")
- (realgud-goto-line-for-pt pt "flake8-msg"))
-
-
-(provide-me "realgud-lang-")
diff --git a/packages/realgud/realgud/lang/ruby.el
b/packages/realgud/realgud/lang/ruby.el
deleted file mode 100644
index 9e4699e..0000000
--- a/packages/realgud/realgud/lang/ruby.el
+++ /dev/null
@@ -1,131 +0,0 @@
-;; Copyright (C) 2010, 2014, 2016 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <address@hidden>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; Common Ruby constants and regular expressions.
-(require 'load-relative)
-(require-relative-list '("../common/regexp" "../common/loc" "../common/track")
- "realgud-")
-
-(declare-function realgud-goto-line-for-pt 'realgud-track)
-
-(defconst realgud-rails-backtrace-loc-pat
- (make-realgud-loc-pat
- :regexp "^\\([^:]+\\):\\([0-9]+\\)\\(?:[:]in `.*'\\)?"
- :file-group 1
- :line-group 2)
- "A realgud-loc-pat struct that describes a Rails backtrace (or
-traceback) line." )
-
-(defconst realgud-rspec-backtrace-loc-pat
- (make-realgud-loc-pat
- :regexp "^[ ]*# \\([^:]+\\):\\([0-9]+\\)\\(?:[:]in `.*'\\)?"
- :file-group 1
- :line-group 2)
- "A realgud-loc-pat struct that describes an rspec backtrace (or
-traceback) line." )
-
-;; Regular expression that describes a Ruby YARV 1.9 syntax error line.
-;; SyntaxError: /tmp/columnize.rb:270: syntax error, unexpected $end, ...
-(defconst realgud-ruby-YARV-syntax-error-pat
- (make-realgud-loc-pat
- :regexp "^SyntaxError: \\([^:]+\\):\\([0-9]+\\): syntax error"
- :file-group 1
- :line-group 2)
- "A realgud-loc-pat struct that describes a Ruby YARV syntax error message")
-
-(defconst realgud-ruby-backtrace-loc-pat
- (make-realgud-loc-pat
- :regexp "^[ \t]+from \\([^:]+\\):\\([0-9]+\\)\\(?: in `.*'\\)?"
- :file-group 1
- :line-group 2)
- "A realgud-loc-pat struct that describes a Ruby backtrace (or
-traceback) line." )
-
-(defconst realgud-rubinius-backtrace-loc-pat
- (make-realgud-loc-pat
- :regexp "^\\(?:\\[0;3[1-4]m\\)?[ \t]+.* at \\([^:]+\\):\\([0-9]+\\)"
- :file-group 1
- :line-group 2)
- "A realgud-loc-pat struct that describes a Rubinius backtrace (or
-traceback) line." )
-
-(defconst realgud-rubinius-Xagent-backtrace-loc-pat
- (make-realgud-loc-pat
- :regexp "^\\(?:\\[0;3[1-4]m\\)?0x[a-f0-9]\\{8\\}: .* in
\\([^:]+\\):\\([0-9]+\\) ([+][0-9]+)"
- :file-group 1
- :line-group 2)
- "A realgud-loc-pat struct that describes a Rubinius Xagent backtrace (or
-traceback) line." )
-
-(defconst realgud-ruby-dollar-bang-loc-pat
- (make-realgud-loc-pat
- :regexp "^[ \t]*[[]?\\(.+\\):\\([0-9]+\\):in `.*'"
- :file-group 1
- :line-group 2)
- "A realgud-loc-pat that struct that describes a Ruby $! string."
-)
-
-;; FIXME: there is probably a less redundant way to do the following
-;; FNS.
-(defun realgud:rails-goto-backtrace-line (pt)
- "Display the location mentioned by the Rails backtrace line
-described by PT."
- (interactive "d")
- (realgud-goto-line-for-pt pt "rails-backtrace"))
-
-;; FIXME: there is probably a less redundant way to do the following
-;; FNS.
-(defun realgud:rspec-goto-backtrace-line (pt)
- "Display the location mentioned by the Rails backtrace line
-described by PT."
- (interactive "d")
- (realgud-goto-line-for-pt pt "rspec-backtrace"))
-
-(defun realgud:rubinius-goto-Xagent-backtrace-line (pt)
- "Display the location mentioned by the Rubinius Xagent- backtrace line
-described by PT."
- (interactive "d")
- (realgud-goto-line-for-pt pt "rubinius-backtrace-Xagent"))
-
-(defun realgud:ruby-goto-backtrace-line (pt)
- "Display the location mentioned by the Ruby backtrace line
-described by PT."
- (interactive "d")
- (realgud-goto-line-for-pt pt "lang-backtrace"))
-
-(defun realgud:ruby-goto-dollar-bang-line (pt)
- "Display the location mentioned by the Ruby backtrace line
-described by PT."
- (interactive "d")
- (realgud-goto-line-for-pt pt "dollar-bang-backtrace"))
-
-(defun realgud:ruby-populate-command-keys (&optional map)
- "Bind the debugger function key layout used by many debuggers.
-
-\\{realgud-example-map-standard}"
- (define-key map (kbd "C-c !l") 'realgud:goto-lang-backtrace-line)
- (define-key map (kbd "C-c !!") 'realgud:ruby-goto-dollar-bang-line)
- (define-key map (kbd "C-c !b") 'realgud:goto-debugger-backtrace-line)
- (define-key map (kbd "C-c !r") 'realgud:rails-goto-backtrace-line)
- (define-key map (kbd "C-c !s") 'realgud:rspec-goto-backtrace-line)
- )
-
-
-;; Some things common to all trepan debuggers (Rubinius and Ruby 1.9.2)
-(defconst realgud:trepan-frame-start-regexp
- "\\(?:^\\|\n\\)\\(-->\\| \\)")
-
-(defconst realgud:trepan-frame-num-regexp
- "#\\([0-9]+\\)")
-
-(defconst realgud:trepan-frame-line-regexp
- "[ \t\n]+at line \\([0-9]+\\)\\(?:\n\\|$\\)")
-
-
-(provide-me "realgud-lang-")
diff --git a/packages/realgud/test/.gitignore b/packages/realgud/test/.gitignore
deleted file mode 100644
index 8903d9c..0000000
--- a/packages/realgud/test/.gitignore
+++ /dev/null
@@ -1,6 +0,0 @@
-/*.elc
-/*~
-/.python-version
-/HelloWorld.class
-/Makefile
-/Makefile.in
diff --git a/packages/realgud/test/.nosearch b/packages/realgud/test/.nosearch
deleted file mode 100644
index e69de29..0000000
diff --git a/packages/realgud/test/HelloWorld.java
b/packages/realgud/test/HelloWorld.java
deleted file mode 100644
index 27a5485..0000000
--- a/packages/realgud/test/HelloWorld.java
+++ /dev/null
@@ -1,6 +0,0 @@
-public class HelloWorld {
- public static void main(String[] args) {
- String msg = "Hello, World!";
- System.out.println(msg); // Display the string.
- }
-}
diff --git a/packages/realgud/test/Makefile.am
b/packages/realgud/test/Makefile.am
deleted file mode 100644
index f53fd0d..0000000
--- a/packages/realgud/test/Makefile.am
+++ /dev/null
@@ -1,74 +0,0 @@
-include $(top_srcdir)/common.mk
-
-lisp_files = $(wildcard *.el)
-lisp_LISP = $(lisp_files)
-EXTRA_DIST = $(lisp_files)
-
-PHONY=check test all check-elget test-elget help
-
-#: overall help on running the make targets
-help:
- @echo "The main function of this Makefile is to facilitate running
tests."
- @echo
- @echo "To run all of the tests, use targets \"test\", \"check\" or
\"check-short\"."
- @echo "For example:"
- @echo
- @echo " make check"
- @echo "or:"
- @echo " make check-short"
- @echo
- @echo "The -short target uses a filter written in Ruby to remove
extreanous output."
- @echo
- @echo "To run a specific test like test-srcbuf.el, change \".el\" to"
- @echo "\".run\". For example:"
- @echo
- @echo " make test-srcbuf.run"
- @echo
- @echo "Tests can also be run via the Emacs el-get package and this
loads dependent emacs "
- @echo "package, like load-relative. To do this, use targets,
\"check-elget\","
- @echo "\"test-elget\", or \"check-short-elget\"."
- @echo
- @echo "To run a specific test like test-srcbuf.el via el-get change
\".el\""
- @echo "to \".elrun\" For example:"
- @echo
- @echo " make test-srcbuf.elrun"
-
-
-#: same thing as "check"
-test: check
-
-#: same thing as "check-elget"
-test-elget: check-elget
-
-test_files := $(wildcard test-*.el)
-
-CHECK_FILES = $(notdir $(test_files:.el=.run))
-EL_GET_CHECK_FILES = $(notdir $(test_files:.el=.elrun))
-
-#: Run all tests
-check: $(CHECK_FILES)
-
-#: Run all tests via el-get
-check-elget: $(EL_GET_CHECK_FILES)
-
-#: Run all tests with minimum verbosity
-check-short:
- $(MAKE) check 2>&1 | ruby make-check-filter.rb
-
-#: Run all tests with minimum verbosity via el-get
-check-short-elget:
- $(MAKE) check-elget 2>&1 | ruby make-check-filter.rb
-
-test-%.run:
- (cd $(top_srcdir)/test && EMACSLOADPATH=$(EMACSLOADPATH) $(EMACS)
--batch --no-site-file --no-splash --load $(@:.run=.el))
-
-#: Run tests using el-get to specify external Lisp dependencies
-test-%.elrun:
- (cd $(top_srcdir)/test && $(EMACS) --batch --no-site-file --no-splash
--load ../el-get-install.el --load $(@:.elrun=.el))
-
-install-lispLISP: $(lisp_LISP) $(ELCFILES)
-
-# Whatever it is you want to do, it should be forwarded to the
-# to top-level directories
-# %:
-# $(MAKE) -C .. $@
diff --git a/packages/realgud/test/bt-helper.el
b/packages/realgud/test/bt-helper.el
deleted file mode 100644
index a9f63d8..0000000
--- a/packages/realgud/test/bt-helper.el
+++ /dev/null
@@ -1,47 +0,0 @@
-(require 'test-simple)
-(require 'font-lock)
-
-(load-file "../realgud/common/buffer/command.el")
-(load-file "../realgud/common/buffer/backtrace.el")
-(load-file "../realgud/common/backtrace-mode.el")
-
-(declare-function realgud-backtrace-mode 'realgud-backtrace-mode)
-(declare-function realgud-cmdbuf-init 'realgud-buffer-command)
-
-(eval-when-compile
- (defvar temp-cmdbuf)
- (defvar temp-bt)
- (defvar realgud-pat-hash)
-)
-
-(defun setup-bt-vars(debugger-name)
- "Sets up globals temp-cmdbuf and temp-bt with command buffer
-for DEBUGGER-NAME"
- (setq temp-cmdbuf (generate-new-buffer "*cmdbuf-test*"))
- (setq temp-bt (generate-new-buffer "*bt-test*"))
- (with-current-buffer temp-cmdbuf
- (switch-to-buffer temp-cmdbuf)
- (realgud-cmdbuf-init temp-cmdbuf debugger-name
- (gethash debugger-name realgud-pat-hash))
-
- (switch-to-buffer nil)
- ))
-
-
-(defun setup-bt(debugger-name string)
- "Sets up globals temp-cmdbuf and temp-bt with command buffer
-for DEBUGGER-NAME and initializes it to STRING"
- (setup-bt-vars debugger-name)
- (with-current-buffer temp-bt
- (realgud-backtrace-mode temp-cmdbuf)
- (goto-char (point-min))
- (setq buffer-read-only nil)
- (insert string)
- (font-lock-fontify-buffer)
- ;; Newer emacs's use:
- (goto-char (point-min))
- )
- temp-bt
-)
-
-(provide 'realgud-bt-helper)
diff --git a/packages/realgud/test/gcd.js b/packages/realgud/test/gcd.js
deleted file mode 100644
index 901bb96..0000000
--- a/packages/realgud/test/gcd.js
+++ /dev/null
@@ -1,44 +0,0 @@
-//!/usr/bin/env node
-var util = require("util");
-require("console");
-
-function ask(question, format, callback) {
- var stdin = process.stdin, stdout = process.stdout;
-
- stdin.resume();
- stdout.write(question + ": ");
-
- stdin.once('data', function(data) {
- data = data.toString().trim();
-
- if (format.test(data)) {
- callback(data);
- } else {
- stdout.write("It should match: "+ format +"\n");
- ask(question, format, callback);
- }
- });
-}
-
-// GCD. We assume positive numbers
-function gcd(a, b) {
- // Make: a <= b
- if (a > b) {
- var temp = a;
- a = b;
- b = temp;
- }
-
- if (a <= 0) { return null };
-
- if (a == 1 || b-a == 0) {
- return a;
- }
- return gcd(b-a, a);
-}
-
-var a = parseInt(process.argv[0]) || 24,
- b = parseInt(process.argv[0]) || 5;
-
-console.log(util.format("The GCD of %d and %d is %d", a, b, gcd(a, b)));
-process.exit();
diff --git a/packages/realgud/test/gcd.pl b/packages/realgud/test/gcd.pl
deleted file mode 100644
index df476a8..0000000
--- a/packages/realgud/test/gcd.pl
+++ /dev/null
@@ -1,21 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-
-# GCD. We assume positive numbers
-sub gcd($$);
-sub gcd($$)
-{
- my ($a, $b) = @_;
- # Make: a <= b
- ($a, $b) = ($b, $a) if ($a > $b);
-
- return undef if $a <= 0;
- return $a if ($a == 1) or ($b-$a == 0);
- return gcd($b-$a, $a);
-}
-
-die sprintf "Need two integer arguments, got %d", scalar(@ARGV) unless
- @ARGV == 2;
-my ($a, $b) = @ARGV[0,1];
-printf "The GCD of %d and %d is %d\n", $a, $b, gcd($a, $b);
diff --git a/packages/realgud/test/gcd.py b/packages/realgud/test/gcd.py
deleted file mode 100755
index e64f284..0000000
--- a/packages/realgud/test/gcd.py
+++ /dev/null
@@ -1,41 +0,0 @@
-#!/usr/bin/python
-"""Greatest Common Divisor
-
-Some characterstics of this program used for testing check_args() does
-not have a 'return' statement.
-
-check_args() raises an uncaught exception when given the wrong number
-of parameters.
-
-"""
-import sys
-
-def check_args():
- if len(sys.argv) != 3:
- # Rather than use sys.exit let's just raise an error
- raise Exception("Need to give two numbers")
- for i in range(2):
- try:
- sys.argv[i+1] = int(sys.argv[i+1])
- except ValueError:
- print("** Expecting an integer, got: %s" % repr(sys.argv[i]))
- sys.exit(2)
-
-def gcd(a,b):
- """ GCD. We assume positive numbers"""
-
- # Make: a <= b
- if a > b:
- (a, b) = (b, a)
-
- if a <= 0:
- return None
- if a == 1 or b-a == 0:
- return a
- return gcd(b-a, a)
-
-if __name__=='__main__':
- check_args()
-
- (a, b) = sys.argv[1:3]
- print("The GCD of %d and %d is %d" % (a, b, gcd(a, b)))
diff --git a/packages/realgud/test/gcd.rb b/packages/realgud/test/gcd.rb
deleted file mode 100755
index c780a31..0000000
--- a/packages/realgud/test/gcd.rb
+++ /dev/null
@@ -1,19 +0,0 @@
-#!/usr/bin/env ruby
-
-# GCD. We assume positive numbers
-def gcd(a, b)
- # Make: a <= b
- if a > b
- a, b = [b, a]
- end
-
- return nil if a <= 0
-
- if a == 1 or b-a == 0
- return a
- end
- return gcd(b-a, a)
-end
-
-a, b = ARGV[0..1].map {|arg| arg.to_i}
-puts "The GCD of %d and %d is %d" % [a, b, gcd(a, b)]
diff --git a/packages/realgud/test/gcd.sh b/packages/realgud/test/gcd.sh
deleted file mode 100755
index 497f33b..0000000
--- a/packages/realgud/test/gcd.sh
+++ /dev/null
@@ -1,25 +0,0 @@
-#!/usr/bin/env bash
-# Greatest Common Divisor in POSIX shell using Euclid's algorithm. On
-# return, variable gcd_value is set and is the gcd of parameters $1
-# and $2. The GCD of a negative number is the same as the GCD of its
-# absolute value, since a negative number is -1 times its positive
-# value. Negative numbers are set when there is an error; -1 is set
-# when the wrong number of parameters are given.
-gcd() {
- typeset -i a=$1
- typeset -i b=$2
- if (( a > b )) ; then
- a=$b
- b=$1
- fi
- if (( a == 1 || (b-a) == 0)) ; then
- gcd_value=$a
- return 0
- fi
- typeset -i c
- ((c=b-a))
- gcd $c $a
-}
-
-gcd $1 $2
-echo $gcd_value
diff --git a/packages/realgud/test/gdb/bar.sh b/packages/realgud/test/gdb/bar.sh
deleted file mode 100755
index 6c961d1..0000000
--- a/packages/realgud/test/gdb/bar.sh
+++ /dev/null
@@ -1,2 +0,0 @@
-#!/bin/sh
-echo This Should get selected 3rd
diff --git a/packages/realgud/test/gdb/baz b/packages/realgud/test/gdb/baz
deleted file mode 100755
index e69de29..0000000
diff --git a/packages/realgud/test/gdb/baz.c b/packages/realgud/test/gdb/baz.c
deleted file mode 100644
index e69de29..0000000
diff --git a/packages/realgud/test/gdb/foo b/packages/realgud/test/gdb/foo
deleted file mode 100755
index e69de29..0000000
diff --git a/packages/realgud/test/gdb/foo.c b/packages/realgud/test/gdb/foo.c
deleted file mode 100644
index e69de29..0000000
diff --git a/packages/realgud/test/gdb/test2/bar.sh
b/packages/realgud/test/gdb/test2/bar.sh
deleted file mode 100755
index 6c961d1..0000000
--- a/packages/realgud/test/gdb/test2/bar.sh
+++ /dev/null
@@ -1,2 +0,0 @@
-#!/bin/sh
-echo This Should get selected 3rd
diff --git a/packages/realgud/test/gdb/test2/baz.c
b/packages/realgud/test/gdb/test2/baz.c
deleted file mode 100644
index e69de29..0000000
diff --git a/packages/realgud/test/make-check-filter.rb
b/packages/realgud/test/make-check-filter.rb
deleted file mode 100644
index 508c8f6..0000000
--- a/packages/realgud/test/make-check-filter.rb
+++ /dev/null
@@ -1,24 +0,0 @@
-#!/usr/bin/env ruby
-# Use this to cut out the crud from make check.
-# Use like this:
-# make check 2>&1 | ruby ../make-check-filter.rb
-# See Makefile.am
-pats = ["^(?:Loading",
- '(re)?make\[',
- "Making check in",
- '\(cd \.\.',
- "make -C",
- "Test-Unit",
- "Fontifying",
- "`flet'",
- '\s*$',
- '##[<>]+$'
- ].join('|') + ')'
-# puts pats
-skip_re = /#{pats}/
-
-while gets()
- next if $_.encode!('UTF-8', 'binary',
- invalid: :replace, undef: :replace, replace: '') =~
skip_re
- puts $_
-end
diff --git a/packages/realgud/test/node_modules/gcd.js/gcd.js
b/packages/realgud/test/node_modules/gcd.js/gcd.js
deleted file mode 100644
index 6d7ce32..0000000
--- a/packages/realgud/test/node_modules/gcd.js/gcd.js
+++ /dev/null
@@ -1,47 +0,0 @@
-//!/usr/bin/env node
-var util = require("util");
-require("console");
-
-function ask(question, format, callback) {
- var stdin = process.stdin, stdout = process.stdout;
-
- stdin.resume();
- stdout.write(question + ": ");
-
- stdin.once('data', function(data) {
- data = data.toString().trim();
-
- if (format.test(data)) {
- callback(data);
- } else {
- stdout.write("It should match: "+ format +"\n");
- ask(question, format, callback);
- }
- });
-}
-
-// GCD. We assume positive numbers
-function gcd(a, b) {
- // Make: a <= b
- if (a > b) {
- var temp = a;
- a = b;
- b = temp;
- }
-
- if (a <= 0) { return null };
-
- if (a == 1 || b-a == 0) {
- return a;
- }
- return gcd(b-a, a);
-}
-
-var a=24;
-
-ask("GCD of 24 and", /^\d+$/, function(b_str) {
- var b = parseInt(b_str, 10);
- console.log(util.format("The GCD of %d and %d is %d", a, b,
- gcd(a, b)));
- process.exit();
-});
diff --git a/packages/realgud/test/node_modules/gcd.js/package.json
b/packages/realgud/test/node_modules/gcd.js/package.json
deleted file mode 100644
index 06a4cee..0000000
--- a/packages/realgud/test/node_modules/gcd.js/package.json
+++ /dev/null
@@ -1,12 +0,0 @@
-{
- "name": "emacs-dbgr",
- "private": false,
- "version": "1.0.0",
- "description": "Debugging is going to be realgud.",
- "repository": "https://github.com/rocky/emacs-dbgr",
- "dependencies": {},
- "devDependencies": {},
- "scripts": {
- "start": "node --debug gcd.js"
- }
-}
diff --git a/packages/realgud/test/regexp-helper.el
b/packages/realgud/test/regexp-helper.el
deleted file mode 100644
index 01dc7d2..0000000
--- a/packages/realgud/test/regexp-helper.el
+++ /dev/null
@@ -1,50 +0,0 @@
-(require 'test-simple)
-(load-file "../realgud/common/buffer/command.el")
-
-(eval-when-compile
- (defvar helper-bps)
- (defvar helper-loc)
- (defvar helper-tb)
- (defvar prompt-pat)
-)
-
-(declare-function realgud-loc-pat-regexp 'realgud-backtrace-mode)
-(declare-function realgud-cmdbuf-info-loc-regexp 'realgud-buffer-command)
-(declare-function test-simple-start 'test-simple)
-
-
-(defun setup-regexp-vars(pat-hash)
- (setq helper-bps (gethash "brkpt-set" pat-hash))
- (setq helper-loc (gethash "loc" pat-hash))
- (setq helper-tb (gethash "lang-backtrace" pat-hash))
-)
-
-(defun loc-match(text var)
- "Match TEXT against regexp field VAR"
- (string-match (realgud-loc-pat-regexp var) text)
-)
-
-(defun bp-loc-match(text)
- (string-match (realgud-loc-pat-regexp helper-bps) text)
-)
-
-(defun tb-loc-match(text)
- (string-match (realgud-loc-pat-regexp helper-tb) text)
-)
-
-(defun cmdbuf-loc-match(text dbgr)
- "Match TEXT against cmdbuf-info-loc field VAR"
- (string-match (realgud-cmdbuf-info-loc-regexp dbgr) text)
- )
-
-(defun prompt-match(prompt-str &optional num-str fmt-str)
- (unless fmt-str (setq fmt-str "debugger prompt %s"))
- (assert-equal 0 (string-match (realgud-loc-pat-regexp prompt-pat)
- prompt-str)
- (format fmt-str prompt-str))
- (cond (num-str
- (assert-equal num-str (substring prompt-str
- (match-beginning 1) (match-end 1))))
- ('t 't))
- )
-(provide 'realgud-regexp-helper)
diff --git a/packages/realgud/test/test-bashdb.el
b/packages/realgud/test/test-bashdb.el
deleted file mode 100644
index 6dac5ad..0000000
--- a/packages/realgud/test/test-bashdb.el
+++ /dev/null
@@ -1,60 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(require 'load-relative)
-(load-file "../realgud/debugger/bashdb/bashdb.el")
-(load-file "../realgud/debugger/bashdb/core.el")
-(load-file "../realgud/common/core.el")
-(load-file "../realgud/common/lang.el")
-
-(declare-function realgud:expand-file-name-if-exists 'realgud-core)
-
-(eval-when-compile
- (defvar test:run-process-save)
- (defvar realgud:bashdb-minibuffer-history)
- )
-
-(declare-function bashdb-parse-cmd-args 'realgud:bashdb)
-(declare-function bashdb-suggest-invocation 'realgud:bzshdb)
-(declare-function realgud:bashdb 'realgud:bashdb)
-(declare-function __FILE__ 'load-relative)
-
-(test-simple-start)
-(make-local-variable 'realgud:bashdb-minibuffer-history)
-(setq realgud:bashdb-minibuffer-history nil)
-
-;; Save value realgud:run-process and change it to something we want
-(setq test:run-process-save (symbol-function 'realgud:run-process))
-(defun realgud:run-process(debugger-name script-filename cmd-args
- minibuf-history
- &optional no-reset)
- "Fake realgud:run-process used in testing"
- (note
- (format "%s %s %s" debugger-name script-filename cmd-args))
- (assert-equal "bashdb" debugger-name "debugger name gets passed")
- (let ((expanded-name
- (realgud:expand-file-name-if-exists "./gcd.sh")))
- (assert-equal expanded-name script-filename "file name check")
- (assert-equal (list "-l" (expand-file-name ".") expanded-name "3" "5")
- (cdr cmd-args) "command args listified")
- ))
-
-(note "bashdb-parse-cmd-args")
-(assert-equal (list nil '("bashdb")
- (list (realgud:expand-file-name-if-exists "foo")) nil)
- (bashdb-parse-cmd-args '("bashdb" "foo")))
-(assert-equal (list nil '("bashdb")
- (list (realgud:expand-file-name-if-exists "program.sh")
- "foo") nil)
- (bashdb-parse-cmd-args
- '("bashdb" "program.sh" "foo")))
-(with-current-buffer (find-file "gcd.sh")
- (shell-script-mode)
- (assert-matches "bashdb .*gcd.sh$" (bashdb-suggest-invocation "bashdb")))
-
-(realgud:bashdb "bashdb -l . ./gcd.sh 3 5")
-;; Restore the old value of realgud:run-process
-(fset 'realgud:run-process test:run-process-save)
-
-(end-tests)
diff --git a/packages/realgud/test/test-bp.el b/packages/realgud/test/test-bp.el
deleted file mode 100644
index ae6047e..0000000
--- a/packages/realgud/test/test-bp.el
+++ /dev/null
@@ -1,59 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(require 'load-relative)
-(load-file "../realgud/common/bp.el")
-(declare-function realgud-bp-remove-icons 'realgud-bp)
-
-(eval-when-compile
- (defvar temp-srcbuf)
-)
-
-
-(test-simple-start)
-
-(note "breakpoints")
-
-(set (make-local-variable 'temp-srcbuf)
- (generate-new-buffer "*srcbuf-test*"))
-(with-current-buffer temp-srcbuf
- (insert "abc\ndef\n")
- (note "breakpoint reset")
- (realgud-bp-remove-icons (point-min) (point-max))
- (assert-equal 0 (length (overlays-in (point-min) (point-max)))
- "Should not have any breakpoints in buffer")
- )
- ;; (note "breakpoint set")
- ;; (realgud-bp-put-icon (point-min) 't 1 temp-srcbuf)
- ;; (realgud-bp-put-icon (point-max) nil 2 temp-srcbuf)
- ;; (assert-equal 2 (length (overlays-in (point-min) (point-max)))
- ;; (format
- ;; "Should find breakpoints in buffer %s"
- ;; temp-srcbuf))
- ;; (let* ((ov-list (overlays-in (point-min) (point-min)))
- ;; (ov (car-safe ov-list))
- ;; (before-string)
- ;; )
- ;; (assert-equal 1 (length ov-list)
- ;; "Should find 1 breakpoint at (point-min)")
- ;; (setq before-string (overlay-get ov 'before-string))
- ;; (assert-equal 1 (get-text-property 0 'realgud-bptno before-string)
- ;; "Should find breakpoint number 1 in overlay's before-string")
- ;; (assert-equal t (get-text-property 0 'enabled before-string)
- ;; "Breakpoint 1 should be enabled")
- ;; )
- ;; (let* ((ov-list (overlays-in (point-max) (point-max)))
- ;; (ov (car-safe ov-list))
- ;; (before-string)
- ;; )
- ;; (assert-equal 1 (length ov-list)
- ;; "Should find 1 breakpoint at (point-max)")
- ;; (setq before-string (overlay-get ov 'before-string))
- ;; (assert-equal 2 (get-text-property 0 'realgud-bptno before-string)
- ;; "Should find breakpoint number 1 in overlay's before-string")
- ;; (assert-equal nil (get-text-property 0 'enabled before-string)
- ;; "Breakpoint 1 should be disabled")
- ;; )
-
-(end-tests)
diff --git a/packages/realgud/test/test-bt-pdb.el
b/packages/realgud/test/test-bt-pdb.el
deleted file mode 100644
index e5ee8a8..0000000
--- a/packages/realgud/test/test-bt-pdb.el
+++ /dev/null
@@ -1,45 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(require 'load-relative)
-(load-file "./bt-helper.el")
-(load-file "../realgud/debugger/pdb/init.el")
-
-(declare-function setup-bt 'realgud-bt-helper)
-(declare-function __FILE__ 'load-relative)
-
-(test-simple-start)
-
-(eval-when-compile
- (defvar temp-bt)
-)
-
-
-(setq temp-bt
- (setup-bt "pdb"
- "->0 gcd(a=3, b=5) called from file '/test/gcd.py' at line 28
-##1 <module> execfile() file '/test/gcd.py' at line 41
-"))
-
-(with-current-buffer temp-bt
- (switch-to-buffer temp-bt)
- (goto-char (point-min))
- (dolist (pair
- '(
- ("->" . realgud-backtrace-number )
- ("gc" . font-lock-function-name-face )
- ("(" . font-lock-variable-name-face )
- ("/test" . realgud-file-name)
- ("2" . realgud-line-number)
- ("##" . realgud-backtrace-number)
- ("/test" . realgud-file-name)
- ("4" . realgud-line-number)
- ))
- (search-forward (car pair))
- (assert-eql (cdr pair)
- (get-text-property (point) 'face))
- )
- )
-
-(end-tests)
diff --git a/packages/realgud/test/test-bt-rdebug.el
b/packages/realgud/test/test-bt-rdebug.el
deleted file mode 100644
index f3c4d25..0000000
--- a/packages/realgud/test/test-bt-rdebug.el
+++ /dev/null
@@ -1,47 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(require 'load-relative)
-(load-file "./bt-helper.el")
-(load-file "../realgud/debugger/rdebug/init.el")
-
-(declare-function setup-bt 'realgud-bt-helper)
-(declare-function __FILE__ 'load-relative)
-
-(test-simple-start)
-
-(eval-when-compile
- (defvar temp-bt)
-)
-
-(setq temp-bt
- (setup-bt "rdebug"
- "--> #0 Object.gcd(a#Fixnum, b#Fixnum)
- at line /test/gcd.rb:6
- #1 at line /test/gcd.rb:19
-"))
-
-(with-current-buffer temp-bt
- (switch-to-buffer temp-bt)
- (goto-char (point-min))
- (dolist (pair
- '(
- ("#" . realgud-backtrace-number )
- ("Objec" . font-lock-constant-face )
- ("gc" . font-lock-function-name-face )
- ("(" . font-lock-variable-name-face )
- ("Fixnu" . font-lock-constant-face )
- ("/test" . realgud-file-name)
- (":" . realgud-line-number)
- ("#" . realgud-backtrace-number)
- ("/test" . realgud-file-name)
- (":" . realgud-line-number)
- ))
- (search-forward (car pair))
- (assert-equal (cdr pair)
- (get-text-property (point) 'face))
- )
- )
-
-(end-tests)
diff --git a/packages/realgud/test/test-bt-trepan.el
b/packages/realgud/test/test-bt-trepan.el
deleted file mode 100644
index 0bc5e6e..0000000
--- a/packages/realgud/test/test-bt-trepan.el
+++ /dev/null
@@ -1,49 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(require 'load-relative)
-(load-file "./bt-helper.el")
-(load-file "../realgud/debugger/trepan/init.el")
-
-(declare-function setup-bt 'realgud-bt-helper)
-(declare-function __FILE__ 'load-relative)
-
-(test-simple-start)
-
-(eval-when-compile
- (defvar temp-bt)
-)
-
-(setq temp-bt
- (setup-bt "trepan"
- "--> #0 METHOD Object#gcd(a, b) in file /test/gcd.rb at line 4
- #1 TOP Object#<top /gcd.rb> in file /test/gcd.rb
- at line 19
-"))
-
-(with-current-buffer temp-bt
- (switch-to-buffer temp-bt)
- (goto-char (point-min))
- (dolist (pair
- '(
- ("#" . realgud-backtrace-number )
- ("METHO" . font-lock-keyword-face )
- ("Objec" . font-lock-constant-face )
- ("#" . font-lock-function-name-face )
- ("(" . font-lock-variable-name-face )
- ("/test" . realgud-file-name)
- ("line " . realgud-line-number)
- ("#" . realgud-backtrace-number)
- ("Objec" . font-lock-constant-face )
- ("<top" . font-lock-variable-name-face)
- ("/test" . realgud-file-name)
- ("line " . realgud-line-number)
- ))
- (search-forward (car pair))
- (assert-equal (cdr pair)
- (get-text-property (point) 'face))
- )
- )
-
-(end-tests)
diff --git a/packages/realgud/test/test-bt-trepan2.el
b/packages/realgud/test/test-bt-trepan2.el
deleted file mode 100644
index e1be16e..0000000
--- a/packages/realgud/test/test-bt-trepan2.el
+++ /dev/null
@@ -1,77 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(require 'load-relative)
-(load-file "./bt-helper.el")
-(load-file "./regexp-helper.el")
-(load-file "../realgud/debugger/trepan2/init.el")
-
-(declare-function setup-bt 'realgud-bt-helper)
-(declare-function setup-regexp-vars 'regexp-helper)
-(declare-function __FILE__ 'load-relative)
-
-(test-simple-start)
-
-(eval-when-compile
- (defvar temp-bt)
- (defvar realgud-pat-bt)
- (defvar realgud:trepan2-pat-hash)
-)
-
-(setq temp-bt
- (setup-bt "trepan2"
- "->0 gcd(a=3, b=5) called from file '/test/gcd.py' at line 28
-##1 <module> execfile() file '/test/gcd.py' at line 41
-"))
-
-(with-current-buffer temp-bt
- (switch-to-buffer temp-bt)
- (goto-char (point-min))
- (dolist (pair
- '(
- ("->" . realgud-backtrace-number )
- ("gc" . font-lock-function-name-face )
- ("(" . font-lock-variable-name-face )
- ("/test" . realgud-file-name)
- ("2" . realgud-line-number)
- ("##" . realgud-backtrace-number)
- ("/test" . realgud-file-name)
- ("4" . realgud-line-number)
- ))
- (search-forward (car pair))
- (assert-equal (cdr pair)
- (get-text-property (point) 'face))
- )
- )
-
-
-(setup-regexp-vars realgud:trepan2-pat-hash)
-(setq realgud-pat-bt (gethash "debugger-backtrace"
- realgud:trepan2-pat-hash))
-
-
-(let* ((triple
- (realgud:backtrace-add-text-properties
- realgud-pat-bt ""
- "->0 gcd(a=3, b=5) called from file '/test/gcd.py' at line 28
-##1 <module> exec() '/test/gcd.py' at line 41"
- "->"))
- (string-with-props (car triple)))
- (dolist (pair
- '(
- ("->0" . (0 . 28) )
- ("##1" . (1 . 41) )
- ))
- (string-match (car pair) string-with-props)
- (assert-equal (cddr pair)
- (realgud-loc-line-number (get-text-property
- (match-beginning 0) 'loc
- string-with-props)))
-
- (assert-equal (cadr pair)
- (get-text-property
- (match-beginning 0) 'frame-num
- string-with-props))))
-
-(end-tests)
diff --git a/packages/realgud/test/test-bt-trepan3k.el
b/packages/realgud/test/test-bt-trepan3k.el
deleted file mode 100644
index d3d3d0f..0000000
--- a/packages/realgud/test/test-bt-trepan3k.el
+++ /dev/null
@@ -1,43 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(require 'load-relative)
-(load-file "./bt-helper.el")
-(load-file "../realgud/debugger/trepan2/init.el")
-
-(declare-function setup-bt 'realgud-bt-helper)
-(declare-function __FILE__ 'load-relative)
-
-(test-simple-start)
-
-(eval-when-compile
- (defvar temp-bt)
-)
-
-(setq temp-bt
- (setup-bt "trepan2"
- "->0 gcd(a=3, b=5) called from file '/test/gcd.py' at line 28
-##1 <module> execfile() file '/test/gcd.py' at line 41
-"))
-
-(with-current-buffer temp-bt
- (switch-to-buffer temp-bt)
- (goto-char (point-min))
- (dolist (pair
- '(
- ("->" . realgud-backtrace-number )
- ("gc" . font-lock-function-name-face )
- ("(" . font-lock-variable-name-face )
- ("/test" . realgud-file-name)
- ("2" . realgud-line-number)
- ("##" . realgud-backtrace-number)
- ("/test" . realgud-file-name)
- ("4" . realgud-line-number)
- ))
- (search-forward (car pair))
- (assert-equal (cdr pair)
- (get-text-property (point) 'face))
- )
- )
-(end-tests)
diff --git a/packages/realgud/test/test-bt-zshdb.el
b/packages/realgud/test/test-bt-zshdb.el
deleted file mode 100644
index fdbc2e7..0000000
--- a/packages/realgud/test/test-bt-zshdb.el
+++ /dev/null
@@ -1,38 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(require 'load-relative)
-(load-file "./bt-helper.el")
-(load-file "../realgud/debugger/zshdb/init.el")
-
-(declare-function setup-bt 'realgud-bt-helper)
-(declare-function __FILE__ 'load-relative)
-
-(test-simple-start)
-
-(eval-when-compile
- (defvar temp-bt)
-)
-
-(setq temp-bt
- (setup-bt "zshdb"
- "->0 in file `/test/autogen.sh' at line 2
-##1 /test/autogen.sh called from file `/usr/local/bin/zshdb' at line 121
-"))
-(with-current-buffer temp-bt
- (switch-to-buffer temp-bt)
- (goto-char (point-min))
- (dolist (pair
- '(
- ("->" . realgud-backtrace-number )
- ("/test" . realgud-file-name)
- ("line " . realgud-line-number)
- ))
- (search-forward (car pair))
- (assert-equal (cdr pair)
- (get-text-property (point) 'face))
- )
- )
-
-(end-tests)
diff --git a/packages/realgud/test/test-buf-bt.el
b/packages/realgud/test/test-buf-bt.el
deleted file mode 100644
index 2ef06db..0000000
--- a/packages/realgud/test/test-buf-bt.el
+++ /dev/null
@@ -1,27 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'load-relative)
-(require 'test-simple)
-(require 'font-lock)
-
-
-(load-file "../realgud/common/buffer/command.el")
-(load-file "../realgud/common/buffer/backtrace.el")
-
-(declare-function realgud-get-buffer-base-name 'realgud-command)
-
-(test-simple-start)
-
-(note "realgud-buffer-backtrace")
-
-(assert-equal "abc" (realgud-get-buffer-base-name "*abc*")
- "remove buffer stars")
-
-(assert-equal "abc" (realgud-get-buffer-base-name "abc")
- "no buffer stars")
-
-(assert-equal "abc" (realgud-get-buffer-base-name "*abc shell*")
- "remove buffer stars and shell")
-
-(end-tests)
diff --git a/packages/realgud/test/test-buf-cmd.el
b/packages/realgud/test/test-buf-cmd.el
deleted file mode 100644
index 48aa2ee..0000000
--- a/packages/realgud/test/test-buf-cmd.el
+++ /dev/null
@@ -1,57 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(load-file "../realgud/common/buffer/command.el")
-(load-file "../realgud/debugger/trepan/init.el")
-(declare-function realgud-cmdbuf-init 'realgud-buffer-command)
-(declare-function realgud-cmdbuf-command-string 'realgud-buffer-command)
-(declare-function realgud-cmdbuf-info-cmd-args= 'realgud-buffer-command)
-(declare-function realgud-cmdbuf-debugger-name 'realgud-buffer-command)
-(declare-function realgud-cmdbuf-info-srcbuf-list 'realgud-buffer-command)
-(declare-function realgud-cmdbuf-add-srcbuf 'realgud-buffer-command)
-(declare-function realgud-cmdbuf? 'realgud-buffer-command)
-
-(test-simple-start)
-
-(eval-when-compile
- (defvar temp-cmdbuf)
- (defvar realgud-pat-hash)
- (defvar realgud-cmdbuf-info)
-)
-
-(assert-nil (realgud-cmdbuf? (current-buffer))
- "realgud-cmdbuf? before init")
-
-(assert-equal nil (realgud-cmdbuf-command-string (current-buffer))
- "realgud-cmdbuf-command-string - uninit")
-(setq temp-cmdbuf (generate-new-buffer "*cmdbuf-test*"))
-(assert-t (realgud-cmdbuf-init temp-cmdbuf "trepan"
- (gethash "trepan" realgud-pat-hash))
- "realgud-cmdbuf-init")
-
-(with-current-buffer temp-cmdbuf
- (switch-to-buffer temp-cmdbuf)
- (realgud-cmdbuf-info-cmd-args= '("command" "args"))
- (assert-equal "command args"
- (realgud-cmdbuf-command-string temp-cmdbuf))
- (assert-equal "trepan"
- (realgud-cmdbuf-debugger-name))
- (assert-equal nil
- (realgud-cmdbuf-info-srcbuf-list
- realgud-cmdbuf-info)
- "srcbuf-list should start out nil")
- (realgud-cmdbuf-add-srcbuf (current-buffer) temp-cmdbuf)
- (assert-equal (list (current-buffer))
- (realgud-cmdbuf-info-srcbuf-list
- realgud-cmdbuf-info)
- "should have added one item to srcbuf-list")
- (realgud-cmdbuf-add-srcbuf (current-buffer) temp-cmdbuf)
- (assert-equal (list (current-buffer))
- (realgud-cmdbuf-info-srcbuf-list
- realgud-cmdbuf-info)
- "Second source buffer same as first; should have added still
only one item.")
- (switch-to-buffer nil)
- )
-
-(end-tests)
diff --git a/packages/realgud/test/test-common-helper.el
b/packages/realgud/test/test-common-helper.el
deleted file mode 100644
index 396edc6..0000000
--- a/packages/realgud/test/test-common-helper.el
+++ /dev/null
@@ -1,30 +0,0 @@
-(eval-when-compile (require 'cl-lib))
-(require 'test-simple)
-(load-file "../realgud/common/helper.el")
-
-(declare-function realgud-struct-field-setter 'realgud-helper)
-(declare-function realgud:debugger-name-transform 'realgud-helper)
-(declare-function __FILE__ 'load-relative)
-
-
-(test-simple-start)
-
-(eval-when-compile
- (defvar realgud-test-info)
-)
-
-(cl-defstruct realgud-test-info name)
-(realgud-struct-field-setter "realgud-test-info" "name")
-
-(set (make-local-variable 'realgud-test-info)
- (make-realgud-test-info :name "foo"))
-
-(note "setter macro works")
-(assert-t (functionp 'realgud-test-info-name=))
-(assert-equal "foo" (realgud-test-info-name= "foo"))
-
-(note "realgud:debugger-name-transform")
-(assert-equal "trepan" (realgud:debugger-name-transform "trepan"))
-;; (assert-equal "realgud:gdb" (realgud:debugger-name-transform "gdb"))
-
-(end-tests)
diff --git a/packages/realgud/test/test-core.el
b/packages/realgud/test/test-core.el
deleted file mode 100644
index d3e6ca2..0000000
--- a/packages/realgud/test/test-core.el
+++ /dev/null
@@ -1,98 +0,0 @@
-;; -*- lexical-binding:t -*-
-
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(eval-when-compile (defvar trepan-core))
-
-(declare-function __FILE__ 'load-relative)
-(setq trepan-core "../realgud/debugger/trepan/core.el")
-(load-file "../realgud/common/core.el")
-
-(declare-function realgud:expand-file-name-if-exists 'realgud-core)
-(declare-function realgud-parse-command-arg, 'realgud-core)
-(declare-function realgud:trepan-parse-cmd-args 'realgud:trepan)
-
-;; We use a specific language to test core. Here we use trepan.
-(load-file "../realgud/debugger/trepan/core.el")
-
-(test-simple-start)
-
-;; FIXME: Add a test of relgud-exec-shell where
-;; we have two invocation of different files that canonicalize
-;; to the same buffer. Make sure the buffers are distinct.
-;; For example: bashdb /etc/profile should not match
-;; bashdb /tmp/profile
-
-(note "realgud:expand-file-name-if-exists")
-
-(assert-equal (realgud:expand-file-name-if-exists "file-not-here")
- "file-not-here" "no expansion when expanded file doesn't exist")
-
-(assert-equal (realgud:expand-file-name-if-exists ".")
- (expand-file-name "."))
-
-(note "realgud-parse-...")
-
-(let ((opt-two-args '("0" "C" "e" "E" "F" "i")))
- (assert-equal '(("-0" "a") nil)
- (realgud-parse-command-arg '("-0" "a") '() opt-two-args)
- "Two args found, none remain afterwards though.")
-
- (assert-equal
- '(("-5") ("a" "-0"))
- (realgud-parse-command-arg '("-5" "a" "-0") '()
- opt-two-args)
- "One arg not found.")
-
- (assert-equal
- '((nil) nil)
- (realgud-parse-command-arg '() '() opt-two-args)
- "Degenerate case - no args"
- )
-
- (assert-equal
- '(("--port" "123") ("bar"))
- (realgud-parse-command-arg
- '("--port" "123" "bar") '("-port") '())
- "two mandatory args"
- )
-
- (assert-equal
- '(("/usr/bin/ruby1.9" "-W") ("trepan") ("foo") nil)
- (realgud:trepan-parse-cmd-args
- '("/usr/bin/ruby1.9" "-W" "trepan" "foo"))
- "Separate Ruby with its arg from debugger and its arg.")
-
- (assert-equal
- '(("ruby1.9" "-T3") ("trepan" "--port" "123") ("bar") nil)
- (realgud:trepan-parse-cmd-args
- '("ruby1.9" "-T3" "trepan" "--port" "123" "bar"))
- "Ruby with two args and trepan with two args")
-
- (assert-equal
- '(nil ("trepan" "--port" "1" "--annotate=3")
- ("foo" "a") t)
- (realgud:trepan-parse-cmd-args
- '("trepan" "--port" "1" "--annotate=3" "foo" "a"))
- "trepan with annotate args")
-
- (assert-equal
- '(nil ("trepan" "--port" "123")
- ("foo" "--emacs" "a") nil)
- (realgud:trepan-parse-cmd-args
- '("trepan" "--port" "123" "foo" "--emacs" "a"))
- "trepan with --emacs in the wrong place")
-
- (assert-equal
- '(("ruby" "-I/usr/lib/ruby")
- ("trepan" "-h" "foo" "--emacs")
- ("baz") t)
- (realgud:trepan-parse-cmd-args
- '("ruby" "-I/usr/lib/ruby" "trepan" "-h" "foo"
- "--emacs" "baz"))
- "trepan with emacs")
- )
-
-(end-tests)
diff --git a/packages/realgud/test/test-file.el
b/packages/realgud/test/test-file.el
deleted file mode 100644
index e9129d4..0000000
--- a/packages/realgud/test/test-file.el
+++ /dev/null
@@ -1,128 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(load-file "../realgud/common/loc.el")
-(load-file "../realgud/common/file.el")
-
-;; Note the below line number is tested so it must match what's listed
-;; below.
-(declare-function __FILE__ 'load-relative)
-
-(declare-function realgud:file-loc-from-line 'realgud-file)
-(declare-function realgud:file-line-count 'realgud-file)
-(declare-function realgud:file-column-from-string 'realgud-file)
-(declare-function realgud-loc? 'realgud-loc)
-
-(declare-function realgud-loc-line-number 'realgud-loc)
-(declare-function realgud-loc-column-number 'realgud-loc)
-(declare-function realgud-loc-filename 'realgud-loc)
-
-(test-simple-start)
-
-(eval-when-compile
- (defvar realgud-file-remap)
- (defvar test-filename)
- (defvar test-file-loc)
- (defvar remap-filename)
- (defvar old-compilation-find-file)
-)
-
-(clrhash realgud-file-remap)
-
-(setq old-compilation-find-file (symbol-function 'compilation-find-file))
-
-(setq test-filename (symbol-file 'test-simple))
-
-(note "realgud:file-line-count")
-
-(assert-nil
- (realgud:file-line-count "not-found-file")
- "File not found")
-
-(assert-t (integerp (realgud:file-line-count test-filename))
- "File found")
-
-
-(note "realgud:file-loc-from-line")
-
-(fset 'compilation-find-file (lambda(mark test-filename opt)
- (get-buffer "*scratch*")))
-
-(save-excursion
- ;; NOTE: this calls compilation-find-file which prompts for a file
- ;; (assert-equal
- ;; "File named `not-found-file' not readable"
- ;; (realgud:file-loc-from-line
- ;; "not-found-file" 5 (make-marker))
- ;; )
-
- (assert-t (stringp (realgud:file-loc-from-line test-filename 5.5))
- "invalid real line number")
-
- (assert-t (stringp (realgud:file-loc-from-line test-filename -1))
- "negative number")
-
- (note "realgud:file-loc-from-line information")
-
- (assert-t (stringp (realgud:file-loc-from-line test-filename 10001))
- "Line number too large for file")
-
- (setq test-file-loc (realgud:file-loc-from-line (__FILE__) 5 nil ";; Note"))
- (assert-t (realgud-loc? test-file-loc)
- "Ok loc creation - no cmd marker")
-
- (assert-t (realgud-loc?
- (realgud:file-loc-from-line test-filename 30 (make-marker)))
- "Ok loc creation - cmd marker")
-
- (assert-equal 5 (realgud-loc-line-number test-file-loc))
-
- ;; FIXME: don't know why this fails in batch
- ;; (assert-equal 0 (realgud-loc-column-number test-file-loc))
-
- (assert-equal (__FILE__) (realgud-loc-filename test-file-loc))
-
- (note "realgud:file-loc-from-line remapping")
-
- (setq remap-filename " bogus remap-filename.el")
-
- ;; (assert-equal
- ;; (format "File named `%s' not readable" remap-filename)
- ;; (realgud:file-loc-from-line
- ;; remap-filename 5 (make-marker))
- ;; )
- )
-
-
-(puthash remap-filename test-filename realgud-file-remap)
-
-(assert-t (realgud-loc?
- (realgud:file-loc-from-line remap-filename 30))
- "Ok loc creation with remap - no cmd marker")
-
-;; FIXME: don't know why this fails in batch
-;; (assert-equal
-;; 18
-;; (realgud:file-column-from-string (__FILE__) 7 "__FILE__")
-;; "Should find string in file/line and get column"
-;; )
-
-(assert-nil
- (realgud:file-column-from-string (__FILE__) 5 "__FILE__")
- "Should not find string at this line in located file"
- )
-
-(assert-nil
- (realgud:file-column-from-string (concat (__FILE__) "FOO") 7 "__FILE__")
- "Should not find file"
- )
-
-(assert-nil
- (realgud:file-column-from-string (__FILE__) 10000 "__FILE__")
- "Should not find line in file at all"
- )
-
-(fset 'compilation-find-file old-compilation-find-file)
-
-(end-tests)
diff --git a/packages/realgud/test/test-gdb-core.el
b/packages/realgud/test/test-gdb-core.el
deleted file mode 100644
index 8aabe69..0000000
--- a/packages/realgud/test/test-gdb-core.el
+++ /dev/null
@@ -1,66 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(load-file "../realgud/debugger/gdb/core.el")
-
-(declare-function realgud:gdb-parse-cmd-args 'realgud-gdb-core)
-
-(test-simple-start)
-
-(note "invoke gdb without command line arguments")
-(assert-equal '(("gdb") nil nil nil)
- (realgud:gdb-parse-cmd-args
- '("gdb")))
-
-(note "invoke gdb with annotate command line parameter")
-(assert-equal '(("gdb" "--annotate" "1") nil nil t)
- (realgud:gdb-parse-cmd-args
- '("gdb" "--annotate" "1")))
-
-(note "invoke gdb with annotate command line parameter and file")
-(assert-equal '(("gdb" "--annotate" "1") nil ("file.c") t)
- (realgud:gdb-parse-cmd-args
- '("gdb" "--annotate" "1" "file.c")))
-
-(note "invoke gdb with annotate command line parameter and pid")
-(assert-equal '(("gdb" "--annotate" "1" "-p") nil ("4812") t)
- (realgud:gdb-parse-cmd-args
- '("gdb" "--annotate" "1" "-p" "4812")))
-
-(note "invoke gdb with pid")
-(assert-equal '(("gdb" "-p") nil ("4511") nil)
- (realgud:gdb-parse-cmd-args
- '("gdb" "-p" "4511")))
-
-(eval-when-compile
- (defvar test:warn-save)
- (defvar last-mess)
-)
-
-(setq test:warn-save (symbol-function 'warn))
-
-(note "Stripping --interpreter=mi option")
-(defun warn (mess &optional args)
- "Fake realgud:run-process used in testing"
- (setq last-mess mess)
- )
-
-(setq last-mess nil)
-(assert-equal '(("gdb" "-p") nil ("1955") nil)
- (realgud:gdb-parse-cmd-args
- '("gdb" "--interpreter=mi" "-p" "1955")))
-
-(assert-nil (null last-mess))
-(setq last-mess nil)
-
-(assert-equal '(("gdb" "-p") nil ("1954") nil)
- (realgud:gdb-parse-cmd-args
- '("gdb" "-i" "mi" "-p" "1954")))
-
-;; Restore the old value of realgud:run-process
-(assert-nil (null last-mess))
-(fset 'warn test:warn-save)
-
-
-(end-tests)
diff --git a/packages/realgud/test/test-gdb.el
b/packages/realgud/test/test-gdb.el
deleted file mode 100644
index cf07cec..0000000
--- a/packages/realgud/test/test-gdb.el
+++ /dev/null
@@ -1,68 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(require 'load-relative)
-(load-file "../realgud/common/buffer/command.el")
-(load-file "../realgud/debugger/gdb/core.el")
-(load-file "./regexp-helper.el")
-
-(eval-when-compile
- (defvar realgud:gdb-minibuffer-history)
- (defvar test:realgud-gdb-executable-save)
- (defvar test:realgud-minibuffer-history-save)
-)
-
-(declare-function realgud:gdb-suggest-invocation 'realgud:bashdb)
-(declare-function __FILE__ 'require-relative)
-
-(test-simple-start)
-
-;; Save value realgud:run-process and change it to something we want
-(setq test:realgud-gdb-executable-save (symbol-function
'realgud:gdb-executable))
-(setq test:realgud-minibuffer-history-save realgud:gdb-minibuffer-history)
-
-(defun realgud:gdb-executable (filename)
- "Mock function for testing"
- (cond ((equal filename "bar.sh") 7)
- ((equal filename "foo") 8)
- ((equal filename "baz") 8)
- (t 3)))
-
-(defun gdb-test()
- (note "realgud:gdb-suggest-invocation")
- (setq realgud:gdb-minibuffer-history nil)
- (let ((my-directory (file-name-directory (__FILE__))))
- (save-excursion
- (note "Test preference to buffer editing")
- (setq default-directory
- (concat my-directory "gdb"))
- (find-file-literally "foo.c")
- (assert-equal "gdb foo" (realgud:gdb-suggest-invocation)
- "Should find file sans extension - foo")
- (find-file-literally "baz.c")
- (assert-equal "gdb baz" (realgud:gdb-suggest-invocation)
- "Should find file sans extension - baz")
- )
- (save-excursion
- (note "Pick up non-sans executable")
- (setq default-directory
- (concat my-directory "gdb/test2"))
- ;; (assert-equal "gdb bar.sh" (realgud:gdb-suggest-invocation))
- (setq realgud:gdb-minibuffer-history '("gdb testing"))
- (setq default-directory
- (concat my-directory "gdb/test2"))
- (assert-equal "gdb testing" (realgud:gdb-suggest-invocation)
- "After setting minibuffer history - takes precidence")
- )
- (setq default-directory my-directory)
- )
- )
-(gdb-test)
-(end-tests)
-
-;; Restore the old values.
-;; You might have to run the below if you run this interactively.
-(fset 'realgud:gdb-executable test:realgud-gdb-executable-save)
-(setq realgud:gdb-minibuffer-history test:realgud-minibuffer-history-save)
-(setq default-directory (file-name-directory (__FILE__)))
diff --git a/packages/realgud/test/test-gub-core.el
b/packages/realgud/test/test-gub-core.el
deleted file mode 100644
index cab0b0b..0000000
--- a/packages/realgud/test/test-gub-core.el
+++ /dev/null
@@ -1,22 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(load-file "../realgud/debugger/gub/core.el")
-
-(declare-function __FILE__ 'load-relative)
-(declare-function gub-parse-cmd-args 'realgud-gub-core)
-
-(test-simple-start)
-
-(note "form(s) involving gub.sh shell script")
-(assert-equal '("gub.sh" ("--gub=\"-I\"") ("./gcd.go" "3" "5"))
- (gub-parse-cmd-args
- '("gub.sh" "--gub=\"-I\"" "--" "./gcd.go" "3" "5")))
-
-(note "form(s) involving underlying tortoise interpreter")
-(assert-equal '("tortoise" ("-run" "-gub=" "-interp=SS") ("./gcd.go" "3" "5"))
- (gub-parse-cmd-args
- '("tortoise" "-run" "-gub=" "-interp=SS" "--" "./gcd.go" "3"
"5")))
-
-(end-tests)
diff --git a/packages/realgud/test/test-ipdb.el
b/packages/realgud/test/test-ipdb.el
deleted file mode 100644
index 77b32aa..0000000
--- a/packages/realgud/test/test-ipdb.el
+++ /dev/null
@@ -1,40 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(require 'load-relative)
-(load-file "../realgud/debugger/ipdb/ipdb.el")
-
-(eval-when-compile (defvar test:run-process-save))
-
-(declare-function ipdb-parse-cmd-args 'realgud:ipdb-core)
-(declare-function realgud:ipdb 'realgud:ipdb)
-(declare-function __FILE__ 'load-relative)
-
-(test-simple-start)
-
-;; Save value realgud:run-process and change it to something we want
-(setq test:run-process-save (symbol-function 'realgud:run-process))
-(defun realgud:run-process(debugger-name script-filename cmd-args
- minibuffer-histroy &optional no-reset)
- "Fake realgud:run-process used in testing"
- (note
- (format "%s %s %s" debugger-name script-filename cmd-args))
- (assert-equal "ipdb" debugger-name "debugger name gets passed")
- (assert-equal (expand-file-name "./gcd.py") script-filename "file name
check")
- (assert-equal '("3" "5") (cddr cmd-args) "command args listified")
- (generate-new-buffer "*cmdbuf-test*")
- )
-
-(note "ipdb-parse-cmd-args")
-(assert-equal (list nil '("ipdb") (list (expand-file-name "foo")) nil)
- (ipdb-parse-cmd-args '("ipdb" "foo")))
-(assert-equal (list nil '("ipdb") (list (expand-file-name "program.py") "foo")
nil)
- (ipdb-parse-cmd-args
- '("ipdb" "program.py" "foo")))
-
-(realgud:ipdb "ipdb ./gcd.py 3 5")
-;; Restore the old value of realgud:run-process
-(fset 'realgud:run-process test:run-process-save)
-
-(end-tests)
diff --git a/packages/realgud/test/test-jdb.el
b/packages/realgud/test/test-jdb.el
deleted file mode 100644
index 881b60d..0000000
--- a/packages/realgud/test/test-jdb.el
+++ /dev/null
@@ -1,18 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(require 'load-relative)
-(load-file "../realgud/debugger/jdb/core.el")
-(test-simple-start)
-
-(declare-function __FILE__ 'load-relative)
-(declare-function realgud:jdb-parse-cmd-args 'realgud:jdb-core)
-(declare-function realgud:jdb-dot-to-slash 'realgud:jdb-core)
-
-(assert-equal '("jdb" nil ("./TestMe.java"))
- (realgud:jdb-parse-cmd-args '("jdb" "./TestMe.java")))
-(assert-equal "mcb/pcingola/SnpEff/main"
- (realgud:jdb-dot-to-slash "mcb.pcingola.SnpEff.main"))
-
-(end-tests)
diff --git a/packages/realgud/test/test-lang.el
b/packages/realgud/test/test-lang.el
deleted file mode 100644
index 72f775c..0000000
--- a/packages/realgud/test/test-lang.el
+++ /dev/null
@@ -1,65 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(require 'load-relative)
-
-(eval-when-compile
- (defvar elisp-file)
- (defvar elisp-buffer)
-)
-
-(set (make-local-variable 'elisp-file)
- "../realgud/common/core.el")
-
-(load-file "../realgud/common/lang.el")
-(test-simple-start)
-
-(declare-function realgud-suggest-lang-file 'realgud-lang)
-(declare-function realgud:suggest-file-from-buffer 'realgud-lang)
-(declare-function realgud-lang-mode? 'realgud-lang)
-(declare-function __FILE__ 'load-relative)
-
-(note "realgud-lang-mode?")
-
-(assert-nil
- (realgud-lang-mode? elisp-file "ruby")
- "realgud-lang-mode? with Lisp file")
-
-
-(save-excursion
- (find-file "./gcd.rb")
- (assert-t
- (realgud-lang-mode? "./gcd.rb" "ruby")
- "realgud-lang-mode? with Ruby file")
- )
-
-
-(assert-equal "gcd.rb"
- (realgud-suggest-lang-file "ruby" "\\.rb$")
- "realgud-suggest-lang-file"
- )
-
-(assert-equal "default.bogus"
- (realgud-suggest-lang-file "bogus" "\\.bogus$" "default.bogus")
- "realgud-suggest-lang-file"
- )
-
-(assert-t (file-exists-p (realgud-suggest-lang-file "bogus" "\\.bogus$")))
-
-(note "realgud:suggest-file-from-buffer")
-
-
-(with-current-buffer
- (setq elisp-buffer (find-file "./test-dbgr.el"))
- (set (make-local-variable 'major-mode)
- 'emacs-lisp-mode)
- (message "set major mode to %s" major-mode)
- )
-(assert-equal (buffer-file-name elisp-buffer)
- (realgud:suggest-file-from-buffer
- "emacs-lisp"
- (list elisp-buffer))
- "realgud-lang-mode? with Lisp file")
-
-(end-tests)
diff --git a/packages/realgud/test/test-loc-regexp-gub.el
b/packages/realgud/test/test-loc-regexp-gub.el
deleted file mode 100644
index e6c4746..0000000
--- a/packages/realgud/test/test-loc-regexp-gub.el
+++ /dev/null
@@ -1,63 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(require 'load-relative)
-(load-file "./regexp-helper.el")
-(load-file "../realgud/common/regexp.el")
-(load-file "../realgud/debugger/gub/init.el")
-
-(declare-function realgud-cmdbuf-info-loc-regexp 'realgud-buffer-command)
-(declare-function cmdbuf-loc-match 'realgud-regexp)
-(declare-function realgud-loc-pat-regexp 'realgud-regexp)
-(declare-function realgud-loc-pat-file-group 'realgud-regexp)
-(declare-function realgud-loc-pat-line-group 'realgud-regexp)
-(declare-function realgud-cmdbuf-info-file-group 'realgud-regexp)
-(declare-function realgud-cmdbuf-info-line-group 'realgud-regexp)
-(declare-function realgud-cmdbuf-info 'realgud-regexp)
-(declare-function make-realgud-cmdbuf-info 'realgud-regexp)
-(declare-function __FILE__ 'load-relative)
-
-(test-simple-start)
-
-(eval-when-compile
- (defvar dbg-name)
- (defvar realgud-pat-hash)
- (defvar loc-pat)
- (defvar test-dbgr)
- (defvar test-text)
-)
-
-;; Some setup usually done in setting up the buffer.
-;; We customize this for the debugger trepan. Others may follow.
-;; FIXME: encapsulate this.
-(setq dbg-name "gub")
-(setq loc-pat (gethash "loc" (gethash dbg-name realgud-pat-hash)))
-
-(setq test-dbgr (make-realgud-cmdbuf-info
- :debugger-name dbg-name
- :loc-regexp (realgud-loc-pat-regexp loc-pat)
- :file-group (realgud-loc-pat-file-group loc-pat)
- :line-group (realgud-loc-pat-line-group loc-pat)))
-
-
-(setq test-text "interp/testdata/square.go:15:6")
-(assert-t (numberp (cmdbuf-loc-match test-text test-dbgr)) "basic location")
-
-(note "extract file name")
-(assert-equal 0 (cmdbuf-loc-match test-text test-dbgr))
-(assert-equal "interp/testdata/square.go"
- (match-string (realgud-cmdbuf-info-file-group test-dbgr)
- test-text))
-
-(assert-equal "15"
- (match-string
- (realgud-cmdbuf-info-line-group test-dbgr)
- test-text) "extract line number")
-
-(setq test-text " interp/testdata/square.go:15:6")
-(assert-nil (numberp (cmdbuf-loc-match test-text test-dbgr))
- "location starts with blank")
-
-
-(end-tests)
diff --git a/packages/realgud/test/test-loc-regexp-nodejs.el
b/packages/realgud/test/test-loc-regexp-nodejs.el
deleted file mode 100644
index f9b647d..0000000
--- a/packages/realgud/test/test-loc-regexp-nodejs.el
+++ /dev/null
@@ -1,115 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(load-file "./regexp-helper.el")
-(load-file "../realgud/common/regexp.el")
-(load-file "../realgud/debugger/nodejs/init.el")
-
-(declare-function realgud-cmdbuf-info-loc-regexp 'realgud-buffer-command)
-(declare-function cmdbuf-loc-match 'realgud-regexp-helper)
-(declare-function realgud-loc-pat-regexp 'realgud-regexp)
-(declare-function realgud-loc-pat-file-group 'realgud-regexp)
-(declare-function realgud-loc-pat-line-group 'realgud-regexp)
-(declare-function realgud-cmdbuf-info-file-group 'realgud-regexp)
-(declare-function realgud-cmdbuf-info-line-group 'realgud-regexp)
-(declare-function realgud-cmdbuf-info 'realgud-regexp)
-(declare-function make-realgud-cmdbuf-info 'realgud-regexp)
-(declare-function realgud-loc-pat-num 'realgud-regexp)
-(declare-function test-simple-start 'test-simple)
-(declare-function assert-t 'test-simple)
-(declare-function assert-equal 'test-simple)
-(declare-function note 'test-simple)
-(declare-function end-tests 'test-simple)
-(declare-function realgud-loc-pat-char-offset-group 'realgud:nodejs-init)
-
-(test-simple-start)
-
-(eval-when-compile
- (defvar file-group)
- (defvar frame-re)
- (defvar line-group)
- (defvar num-group)
- (defvar col-group)
- (defvar test-pos)
- (defvar bt-re)
- (defvar dbg-name)
- (defvar realgud-pat-hash)
- (defvar loc-pat)
- (defvar test-dbgr)
- (defvar test-s1)
- (defvar realgud-pat-bt)
- (defvar realgud:nodejs-pat-hash)
-)
-
-; Some setup usually done in setting up the buffer.
-; We customize this for the debugger trepan. Others may follow.
-; FIXME: encapsulate this.
-(setq dbg-name "nodejs")
-(setq loc-pat (gethash "loc" (gethash dbg-name realgud-pat-hash)))
-
-(setq test-dbgr (make-realgud-cmdbuf-info
- :debugger-name dbg-name
- :loc-regexp (realgud-loc-pat-regexp loc-pat)
- :file-group (realgud-loc-pat-file-group loc-pat)
- :line-group (realgud-loc-pat-line-group loc-pat)))
-
-
-(note "debugger-backtrace")
-(setq realgud-pat-bt (gethash "debugger-backtrace"
- realgud:nodejs-pat-hash))
-(setq test-s1
- "#0 module.js:380:17
-#1 Module._compile module2.js:456:26
-#2 Module._extensions..js module.js:474:10
-#3 Module.load module.js:356:32
-")
-
-(setq bt-re (realgud-loc-pat-regexp realgud-pat-bt))
-(setq num-group (realgud-loc-pat-num realgud-pat-bt))
-(setq file-group (realgud-loc-pat-file-group realgud-pat-bt))
-(setq line-group (realgud-loc-pat-line-group realgud-pat-bt))
-(setq col-group (realgud-loc-pat-char-offset-group realgud-pat-bt))
-(assert-equal 0 (string-match bt-re test-s1))
-(assert-equal "0" (substring test-s1
- (match-beginning num-group)
- (match-end num-group)))
-(assert-equal "module.js"
- (substring test-s1
- (match-beginning file-group)
- (match-end file-group)))
-(assert-equal "380"
- (substring test-s1
- (match-beginning line-group)
- (match-end line-group)))
-(assert-equal "17" (substring test-s1
- (match-beginning col-group)
- (match-end col-group)))
-
-(setq test-pos (match-end 0))
-(assert-equal 19 (string-match bt-re test-s1 test-pos))
-
-(setq test-s1
- "#1 Module._compile module2.js:456:26
-#2 Module._extensions..js module.js:474:10
-#3 Module.load module.js:356:32
-")
-(assert-equal 0 (string-match bt-re test-s1))
-
-(assert-equal "1" (substring test-s1
- (match-beginning num-group)
- (match-end num-group)))
-(assert-equal "module2.js"
- (substring test-s1
- (match-beginning file-group)
- (match-end file-group)))
-(assert-equal "456"
- (substring test-s1
- (match-beginning line-group)
- (match-end line-group)))
-(assert-equal "26" (substring test-s1
- (match-beginning col-group)
- (match-end col-group)))
-(setq test-pos (match-end 0))
-(assert-equal 36 test-pos)
-
-(end-tests)
diff --git a/packages/realgud/test/test-loc-regexp-trepan.el
b/packages/realgud/test/test-loc-regexp-trepan.el
deleted file mode 100644
index d8fd898..0000000
--- a/packages/realgud/test/test-loc-regexp-trepan.el
+++ /dev/null
@@ -1,83 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(require 'load-relative)
-(load-file "./regexp-helper.el")
-(load-file "../realgud/common/regexp.el")
-(load-file "../realgud/debugger/trepan/init.el")
-
-(declare-function realgud-cmdbuf-info-loc-regexp 'realgud-buffer-command)
-(declare-function cmdbuf-loc-match 'realgud-regexp)
-(declare-function realgud-loc-pat-regexp 'realgud-regexp)
-(declare-function realgud-loc-pat-file-group 'realgud-regexp)
-(declare-function realgud-loc-pat-line-group 'realgud-regexp)
-(declare-function realgud-cmdbuf-info-file-group 'realgud-regexp)
-(declare-function realgud-cmdbuf-info-line-group 'realgud-regexp)
-(declare-function realgud-cmdbuf-info 'realgud-regexp)
-(declare-function make-realgud-cmdbuf-info 'realgud-regexp)
-(declare-function __FILE__ 'load-relative)
-
-(test-simple-start)
-
-(eval-when-compile
- (defvar dbg-name)
- (defvar realgud-pat-hash)
- (defvar loc-pat)
- (defvar test-dbgr)
- (defvar test-text)
-)
-
-;; Some setup usually done in setting up the buffer.
-;; We customize this for the debugger trepan. Others may follow.
-;; FIXME: encapsulate this.
-(setq dbg-name "trepan")
-(setq loc-pat (gethash "loc" (gethash dbg-name realgud-pat-hash)))
-
-(setq test-dbgr (make-realgud-cmdbuf-info
- :debugger-name dbg-name
- :loc-regexp (realgud-loc-pat-regexp loc-pat)
- :file-group (realgud-loc-pat-file-group loc-pat)
- :line-group (realgud-loc-pat-line-group loc-pat)))
-
-(setq test-text "-- (/usr/local/bin/irb:9 @2)")
-(assert-t (numberp (cmdbuf-loc-match test-text test-dbgr)) "basic location")
-
-(note "extract file name")
-(assert-equal 0 (cmdbuf-loc-match test-text test-dbgr))
-(assert-equal "/usr/local/bin/irb"
- (match-string (realgud-cmdbuf-info-file-group test-dbgr)
- test-text))
-
-(assert-equal "9"
- (match-string
- (realgud-cmdbuf-info-line-group test-dbgr)
- test-text) "extract line number")
-
-(setq test-text "-> (<internal:lib/rubygems/custom_require>:28 remapped
/usr/lib/ruby/gems/1.9.1/gems/data/custom_require.rb:28 @2)")
-(assert-t (numberp (cmdbuf-loc-match test-text test-dbgr)) "remapped location")
-
-(assert-equal 0 (cmdbuf-loc-match test-text test-dbgr))
-(assert-equal "/usr/lib/ruby/gems/1.9.1/gems/data/custom_require.rb"
- (match-string (realgud-cmdbuf-info-file-group test-dbgr)
- test-text) "extract remapped file name")
-
-(assert-equal "28"
- (match-string
- (realgud-cmdbuf-info-line-group test-dbgr)
- test-text) "extract remapped line number")
-
-(setq test-text "C> (/tmp/c-func.rb:2)")
-(assert-t (numberp (cmdbuf-loc-match test-text test-dbgr)) "basic location for
C fn")
-
-(assert-equal 0 (cmdbuf-loc-match test-text test-dbgr))
-(assert-equal "/tmp/c-func.rb"
- (match-string (realgud-cmdbuf-info-file-group test-dbgr)
- test-text) "extract file name for C fn")
-
-(assert-equal "2"
- (match-string
- (realgud-cmdbuf-info-line-group test-dbgr)
- test-text) "extract line number for C fn")
-
-(end-tests)
diff --git a/packages/realgud/test/test-loc-regexp-trepanpl.el
b/packages/realgud/test/test-loc-regexp-trepanpl.el
deleted file mode 100644
index e56325d..0000000
--- a/packages/realgud/test/test-loc-regexp-trepanpl.el
+++ /dev/null
@@ -1,128 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(load-file "./regexp-helper.el")
-(load-file "../realgud/common/regexp.el")
-(load-file "../realgud/debugger/trepan.pl/init.el")
-
-(declare-function realgud-cmdbuf-info-loc-regexp 'realgud-buffer-command)
-(declare-function cmdbuf-loc-match 'realgud-regexp-helper)
-(declare-function realgud-loc-pat-regexp 'realgud-regexp)
-(declare-function realgud-loc-pat-file-group 'realgud-regexp)
-(declare-function realgud-loc-pat-line-group 'realgud-regexp)
-(declare-function realgud-cmdbuf-info-file-group 'realgud-regexp)
-(declare-function realgud-cmdbuf-info-line-group 'realgud-regexp)
-(declare-function realgud-cmdbuf-info 'realgud-regexp)
-(declare-function make-realgud-cmdbuf-info 'realgud-regexp)
-(declare-function realgud-loc-pat-num 'realgud-regexp)
-(declare-function test-simple-start 'test-simple)
-(declare-function assert-t 'test-simple)
-(declare-function assert-equal 'test-simple)
-(declare-function note 'test-simple)
-(declare-function end-tests 'test-simple)
-
-(test-simple-start)
-
-(eval-when-compile
- (defvar file-group)
- (defvar frame-re)
- (defvar line-group)
- (defvar num-group)
- (defvar test-pos)
- (defvar dbg-name)
- (defvar realgud-pat-hash)
- (defvar loc-pat)
- (defvar test-dbgr)
- (defvar test-s1)
- (defvar realgud-pat-bt)
- (defvar realgud:trepanpl-pat-hash)
-)
-
-; Some setup usually done in setting up the buffer.
-; We customize this for the debugger trepan. Others may follow.
-; FIXME: encapsulate this.
-(setq dbg-name "trepan.pl")
-(setq loc-pat (gethash "loc" (gethash dbg-name realgud-pat-hash)))
-
-(setq test-dbgr (make-realgud-cmdbuf-info
- :debugger-name dbg-name
- :loc-regexp (realgud-loc-pat-regexp loc-pat)
- :file-group (realgud-loc-pat-file-group loc-pat)
- :line-group (realgud-loc-pat-line-group loc-pat)))
-
-
-(setq test-s1 "-- main::(../example/gcd.pl:18)")
-(assert-t (numberp (cmdbuf-loc-match test-s1 test-dbgr)) "basic location")
-
-(assert-equal 0 (cmdbuf-loc-match test-s1 test-dbgr))
-
-(note "extract location fields")
-(assert-equal "../example/gcd.pl"
- (match-string (realgud-cmdbuf-info-file-group test-dbgr)
- test-s1))
-
-(assert-equal "18"
- (match-string
- (realgud-cmdbuf-info-line-group test-dbgr)
- test-s1) "extract line number")
-
-
-(note "Test with hex location")
-(setq test-s1 "-- File::Basename::(/usr/share/perl/5.14/File/Basename.pm:284
@0x8918b70)")
-(assert-t (numberp (cmdbuf-loc-match test-s1 test-dbgr)) "basic location")
-(assert-equal 0 (cmdbuf-loc-match test-s1 test-dbgr))
-
-(assert-equal "/usr/share/perl/5.14/File/Basename.pm"
- (match-string (realgud-cmdbuf-info-file-group test-dbgr)
- test-s1))
-
-(assert-equal "284"
- (match-string
- (realgud-cmdbuf-info-line-group test-dbgr)
- test-s1) "extract line number")
-
-
-(note "debugger-backtrace")
-(setq realgud-pat-bt (gethash "debugger-backtrace"
- realgud:trepanpl-pat-hash))
-(setq test-s1
- "--> #0 @ = File::Basename::fileparse('/usr/local/bin/trepan.pl') in
- file `/usr/share/perl/5.18.2/File/Basename.pm' at line 107
- #1 @ = File::Basename::dirname('/usr/local/bin/trepan.pl') in
- file `/usr/share/perl/5.18.2/File/Basename1.pm' at line 294
- #2 file `/usr/local/bin/trepan.pl' at line 11
-")
-(setq frame-re (realgud-loc-pat-regexp realgud-pat-bt))
-(setq num-group (realgud-loc-pat-num realgud-pat-bt))
-(setq file-group (realgud-loc-pat-file-group realgud-pat-bt))
-(setq line-group (realgud-loc-pat-line-group realgud-pat-bt))
-(assert-equal 0 (string-match frame-re test-s1))
-(assert-equal "0" (substring test-s1
- (match-beginning num-group)
- (match-end num-group)))
-(assert-equal "/usr/share/perl/5.18.2/File/Basename.pm"
- (substring test-s1
- (match-beginning file-group)
- (match-end file-group)))
-(assert-equal "107"
- (substring test-s1
- (match-beginning line-group)
- (match-end line-group)))
-(setq test-pos (match-end 0))
-
-(assert-equal 127 (string-match frame-re test-s1 test-pos))
-(assert-equal "1" (substring test-s1
- (match-beginning num-group)
- (match-end num-group)))
-(assert-equal "/usr/share/perl/5.18.2/File/Basename1.pm"
- (substring test-s1
- (match-beginning file-group)
- (match-end file-group)))
-(assert-equal "294"
- (substring test-s1
- (match-beginning line-group)
- (match-end line-group)))
-(setq test-pos (match-end 0))
-(assert-equal 254 test-pos)
-
-(end-tests)
diff --git a/packages/realgud/test/test-loc.el
b/packages/realgud/test/test-loc.el
deleted file mode 100644
index 3a9510a..0000000
--- a/packages/realgud/test/test-loc.el
+++ /dev/null
@@ -1,63 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(load-file "../realgud/common/buffer/source.el")
-(load-file "../realgud/common/loc.el")
-
-(declare-function __FILE__ 'load-relative)
-(declare-function make-realgud-loc 'realgud-loc)
-(declare-function realgud-loc-cmd-marker 'realgud-loc)
-(declare-function realgud-loc-line-number 'realgud-loc)
-(declare-function realgud-loc-marker 'realgud-loc)
-(declare-function realgud-loc-marker= 'realgud-loc)
-
-(test-simple-start)
-
-(save-current-buffer
-
- ;; Below, we need to make sure current-buffer has an associated
- ;; file with it.
- (find-file (symbol-file 'test-simple))
-
- (note "location field extraction")
- (let* ((buff (current-buffer))
- (filename (buffer-file-name buff))
- (source-marker (point-marker))
- (cmd-marker (point-marker))
- (good-loc (make-realgud-loc
- :filename filename
- :line-number 5
- :marker source-marker
- :cmd-marker cmd-marker
- ))
- (good-loc2 (make-realgud-loc
- :filename filename
- :line-number 6
- :marker source-marker
- :cmd-marker cmd-marker
- ))
- ;; (good-loc3 (realgud-loc-current buff cmd-marker))
- )
-
- (assert-equal 5 (realgud-loc-line-number good-loc) "line-number
extraction")
-
- (assert-equal source-marker (realgud-loc-marker good-loc)
- "source code marker extraction")
-
-
- (assert-equal cmd-marker (realgud-loc-cmd-marker good-loc)
- "command process marker extraction")
-
-
- (realgud-loc-marker= good-loc2 source-marker)
- (assert-equal source-marker (realgud-loc-marker good-loc2)
- "marker set")
-
- ))
-
-(end-tests)
-
-; TODO: add test for debug-loc-goto, e.g.
-;(realgud-loc-goto (realgud-loc-new "/tmp/bashdb.diff" 8))
-;(realgud-loc-goto (realgud-loc-new "/tmp/bashdb.diff" 8) 'other-window 1)
diff --git a/packages/realgud/test/test-lochist.el
b/packages/realgud/test/test-lochist.el
deleted file mode 100644
index b684339..0000000
--- a/packages/realgud/test/test-lochist.el
+++ /dev/null
@@ -1,114 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(load-file "../realgud/common/loc.el")
-(load-file "../realgud/common/lochist.el")
-(load-file "../realgud/common/buffer/helper.el")
-
-(declare-function __FILE__ 'load-relative)
-(declare-function make-realgud-loc 'realgud-loc)
-(declare-function make-realgud-loc-his 'realgud-loc)
-(declare-function realgud-loc-hist-add 'realgud-lochist)
-(declare-function realgud-loc-hist-ring 'realgud-lochist)
-(declare-function realgud-loc-hist-item 'realgud-lochist)
-(declare-function realgud-loc-hist-position 'realgud-lochist)
-(declare-function realgud-loc-hist-index 'realgud-lochist)
-(declare-function realgud-loc-hist-newest 'realgud-lochist)
-(declare-function realgud:buffer-line-no-props 'realgud-buffer-helper)
-(declare-function make-realgud-loc-hist 'realgud-lochist)
-(declare-function ring-length 'ring)
-
-(declare-function realgud-get-cmdbuf-from-srcbuf 'realgud-buffer-helper)
-
-(test-simple-start)
-
-;;; (defun setup()
-;;; (lexical-let ((loc-hist (make-realgud-loc-hist))
-;;; (filename (buffer-file-name (current-buffer)))
-;;; (loc (realgud-loc-current)))
-;;; (realgud-loc-hist-add loc-hist loc)))
-;;; ;; (message "aa ring-index %s"
-;;; ;; (realgud-loc-hist-index loc-hist))))
-
-;;; (setup)
-
-
-;; FIXME: redo tests, so we don't have to almost duplicate and
-;; dummy realgud-loc-current.
-(defun realgud-loc-current(&optional source-buffer cmd-marker)
- "Create a location object for the point in the current buffer.
- If SOURCE-BUFFER is not given, take the current buffer as the
- source buffer."
- (interactive "")
- (unless source-buffer
- (setq source-buffer (current-buffer)))
- ;;(unless (realgud-srcbuf? source-buffer)
- ;; (error "%s is not a realgud source buffer" source-buffer))
- (unless cmd-marker
- (setq cmd-marker
- (realgud-get-cmdbuf-from-srcbuf source-buffer))
- )
- (with-current-buffer source-buffer
- (let ((mark (point-marker))
- (text (realgud:buffer-line-no-props)))
- (make-realgud-loc
- :filename (buffer-file-name source-buffer)
- :column-number (current-column)
- :line-number (line-number-at-pos)
- :source-text text
- :marker mark
- :cmd-marker cmd-marker
- )
- )))
-
-
-(let ((saved-buffer (current-buffer)))
- ; Below, we need to make sure current-buffer has an associated
- ; file with it.
- (find-file (symbol-file 'test-simple))
-
- (note "location ring initialization and fields access")
- (let* ((loc-hist (make-realgud-loc-hist))
- (source-buffer (current-buffer))
- (cmd-marker (point-marker))
- (filename (buffer-file-name (current-buffer)))
- (loc (realgud-loc-current source-buffer cmd-marker)))
-
- (assert-t (ring-p (realgud-loc-hist-ring loc-hist))
- "get ring component for a new history ring")
-
-
- (assert-equal -1 (realgud-loc-hist-position loc-hist)
- "ring position for an empty history ring is -1")
-
-
- (assert-nil (realgud-loc-hist-item loc-hist)
- "get item for an empty history ring")
-
- (realgud-loc-hist-add loc-hist loc)
- (assert-equal loc (realgud-loc-hist-item loc-hist)
- "add an item to an empty history ring")
-
-
- (assert-equal 1 (ring-length
- (realgud-loc-hist-ring loc-hist))
- "One item in history ring")
-
- (assert-equal 1 (realgud-loc-hist-index loc-hist)
- "ring index in history ring is 1")
-
- ;; (realgud-loc-hist-add loc-hist loc)
- ;; (assert-equal 1 (ring-length
- ;; (realgud-loc-hist-ring loc-hist) )
- ;; "duplicate item added is ignored")
-
-
- (assert-equal 1 (realgud-loc-hist-index loc-hist)
- "ring index in history ring after dup ignore is still 1")
-
- (assert-equal -1 (realgud-loc-hist-newest loc-hist) "Set to newest
position")
-
- ))
-
-(end-tests)
diff --git a/packages/realgud/test/test-nodejs.el
b/packages/realgud/test/test-nodejs.el
deleted file mode 100644
index e6ab3bb..0000000
--- a/packages/realgud/test/test-nodejs.el
+++ /dev/null
@@ -1,37 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(load-file "../realgud/debugger/nodejs/nodejs.el")
-
-(eval-when-compile (defvar test:run-process-save))
-
-(declare-function nodejs-parse-cmd-args 'realgud:nodejs)
-(declare-function nodejs 'realgud:nodejs)
-(declare-function __FILE__ 'load-relative)
-
-(test-simple-start)
-
-;; Save value realgud:run-process and change it to something we want
-(setq test:run-process-save (symbol-function 'realgud:run-process))
-(defun realgud:run-process(debugger-name script-filename cmd-args
- minibuf-history &optional no-reset)
- "Fake realgud:run-process used in testing"
- (note
- (format "%s %s %s" debugger-name script-filename cmd-args))
- (assert-equal "node" debugger-name "debugger name gets passed")
- (let ((expanded-name (expand-file-name "./gcd.js")))
- (assert-equal expanded-name script-filename "file name check")
- ))
-
-(note "nodejs-parse-cmd-args")
-(assert-equal (list '("node" "debug") nil '("foo"))
- (nodejs-parse-cmd-args '("node" "debug" "foo")))
-
-;; FIXME: need to mock remove-ansi-schmutz in realgud:nodejs
-;; (realgud:nodejs "node debug ./gcd.js 3 5")
-
-;; Restore the old value of realgud:run-process
-(fset 'realgud:run-process test:run-process-save)
-
-(end-tests)
diff --git a/packages/realgud/test/test-pdb.el
b/packages/realgud/test/test-pdb.el
deleted file mode 100644
index b6694e2..0000000
--- a/packages/realgud/test/test-pdb.el
+++ /dev/null
@@ -1,39 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(require 'load-relative)
-(load-file "../realgud/debugger/pdb/pdb.el")
-
-(eval-when-compile (defvar test:run-process-save))
-
-(declare-function pdb-parse-cmd-args 'realgud:pdb-core)
-(declare-function realgud:pdb 'realgud:pdb)
-(declare-function __FILE__ 'load-relative)
-
-(test-simple-start)
-
-;; Save value realgud:run-process and change it to something we want
-(setq test:run-process-save (symbol-function 'realgud:run-process))
-(defun realgud:run-process(debugger-name script-filename cmd-args
- minibuffer-histroy &optional no-reset)
- "Fake realgud:run-process used in testing"
- (note
- (format "%s %s %s" debugger-name script-filename cmd-args))
- (assert-equal "pdb" debugger-name "debugger name gets passed")
- (assert-equal (expand-file-name "./gcd.py") script-filename "file name
check")
- (assert-equal '("3" "5") (cddr cmd-args) "command args listified")
- )
-
-;; (note "pdb-parse-cmd-args")
-;; (assert-equal (list nil '("pdb") (list (expand-file-name "foo")) nil)
-;; (pdb-parse-cmd-args '("pdb" "foo")))
-;; (assert-equal (list nil '("pdb") (list (expand-file-name "program.py")
"foo") nil)
-;; (pdb-parse-cmd-args
-;; '("pdb" "program.py" "foo")))
-
-(realgud:pdb "pdb ./gcd.py 3 5")
-;; Restore the old value of realgud:run-process
-(fset 'realgud:run-process test:run-process-save)
-
-(end-tests)
diff --git a/packages/realgud/test/test-perldb.el
b/packages/realgud/test/test-perldb.el
deleted file mode 100644
index 90b4fef..0000000
--- a/packages/realgud/test/test-perldb.el
+++ /dev/null
@@ -1,26 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(load-file "../realgud/debugger/perldb/perldb.el")
-
-(declare-function realgud:perldb-parse-cmd-args 'realgud:perldb)
-(declare-function realgud:perldb 'realgud:perldb)
-(declare-function __FILE__ 'load-relative)
-
-(declare-function realgud-perldb-parse-cmd-args 'realgud-perldb)
-(test-simple-start)
-
-(note "realgud:perldb-parse-cmd-args")
-(assert-equal (list
- '("perl" "-W" "-d") nil
- (list (expand-file-name"gcd.rb") "a" "b"))
- (realgud:perldb-parse-cmd-args
- '("perl" "-W" "-d" "gcd.rb" "a" "b")))
-(assert-equal (list
- '("perl5.10.1" "-C" "/tmp" "-d") nil
- (list (expand-file-name "gcd.rb")))
- (realgud:perldb-parse-cmd-args
- '("perl5.10.1" "-C" "/tmp" "-d" "gcd.rb")))
-
-(end-tests)
diff --git a/packages/realgud/test/test-rdebug.el
b/packages/realgud/test/test-rdebug.el
deleted file mode 100644
index 20a7d22..0000000
--- a/packages/realgud/test/test-rdebug.el
+++ /dev/null
@@ -1,45 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(require 'load-relative)
-(load-file "../realgud/debugger/rdebug/rdebug.el")
-(declare-function rdebug-get-script-name 'realgud-rdebug)
-(declare-function __FILE__ 'load-relative)
-(test-simple-start)
-
-(note "rdebug-get-script-name")
-(assert-equal '("foo" nil)
- (rdebug-get-script-name '("rdebug" "foo")))
-(assert-equal '("foo" nil)
- (rdebug-get-script-name '("rdebug" "-m" "foo")))
-(assert-equal '("foo" t)
- (rdebug-get-script-name
- '("rdebug" "--emacs" "3" "foo")))
-(assert-equal '("foo" t)
- (rdebug-get-script-name
- '("myrdebug" "--annotate=1" "foo")))
-(assert-equal '("foo" t)
- (rdebug-get-script-name
- '("ruby" "rdebug" "--annotate" "1" "foo")))
-(assert-equal '("foo" nil)
- (rdebug-get-script-name
- '("/usr/bin/ruby19" "rdebug"
- "--emacs-basic" "foo")))
-(assert-equal '("foo" nil)
- (rdebug-get-script-name '("rdbg.rb" "foo")))
-(assert-equal '("rdbg.rb" nil)
- (rdebug-get-script-name
- '("rdebug" "rdbg.rb" "foo")))
-(assert-equal '("foo" t)
- (rdebug-get-script-name
- '("rdebug" "-A" "1" "foo")))
-(assert-equal '("foo" nil)
- (rdebug-get-script-name
- '("rdebug" "--include" "me" "-n" "foo")))
-(assert-equal '("foo" nil)
- (rdebug-get-script-name
- '("rdebug" "--server" "-d" "--host"
- "localhost" "foo" "-1")))
-
-(end-tests)
diff --git a/packages/realgud/test/test-realgud.el
b/packages/realgud/test/test-realgud.el
deleted file mode 100644
index a86c354..0000000
--- a/packages/realgud/test/test-realgud.el
+++ /dev/null
@@ -1,40 +0,0 @@
-;; Manually run these tests as follows:
-;;
-;; emacs --batch --no-site-file --no-splash \
-;; --script setup.el --chdir PACAKGESDIR/realgud \
-;; -l test/test-realgud.el -f ert-run-tests-batch-and-exit
-;;
-;; where setup.el looks something like:
-;; (let ((elpa-dir (expand-file-name "~/.emacs.d/elpa")))
-;; (add-to-list 'load-path (concat elpa-dir "/test-simple-20170117.411"))
-;; (add-to-list 'load-path (concat elpa-dir "/load-relative-20160716.438"))
-;; (add-to-list 'load-path (concat elpa-dir "/loc-changes-20160801.1008")))
-
-(defun realgud-test-helper()
- (delq nil
- (mapcar (lambda (x) (and (string-match-p
"^\\(realgud:\\|realgud-\\)" (symbol-name x)) x))
- features)))
-
-(ert-deftest test-feature-unload()
-
- ;; no realgud features exist by default
- (should (= 0 (length (realgud-test-helper))))
- (should-not (member 'realgud-pdb features))
-
- (load-file "realgud.el") ; manually load the first time
-
- ;; we should now have realgud features;
- (should-not (= 0 (length (realgud-test-helper))))
- (should (member 'realgud-pdb features))
- ;; test at least 1 by name
- (should (member 'realgud-pdb features))
-
- ;; unload all and test
- (let ((removed (realgud:unload-features)))
- (should-not (= 0 (length removed)))) ; check that we return removed
values
- (let ((removed (realgud:unload-features))) ; should not err out if called on
empty.
- (should (= 0 (length removed))))
-
- (realgud:load-features) ; load and test
- (should-not (= 0 (length (realgud-test-helper))))
- (should (member 'realgud-pdb features)))
diff --git a/packages/realgud/test/test-regexp-bashdb.el
b/packages/realgud/test/test-regexp-bashdb.el
deleted file mode 100644
index 5e34b0f..0000000
--- a/packages/realgud/test/test-regexp-bashdb.el
+++ /dev/null
@@ -1,126 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(require 'load-relative)
-(load-file "../realgud/debugger/bashdb/init.el")
-(load-file "./regexp-helper.el")
-
-(declare-function loc-match 'realgud-helper)
-(declare-function prompt-match 'regexp-helper)
-(declare-function realgud-loc-pat-num 'realgud-regexp)
-(declare-function realgud-loc-pat-regexp 'realgud-regexp)
-(declare-function realgud-loc-pat-file-group 'realgud-regexp)
-(declare-function realgud-loc-pat-line-group 'realgud-regexp)
-(declare-function __FILE__ 'load-relative)
-
-(test-simple-start)
-
-(eval-when-compile
- (defvar file-group)
- (defvar frame-re)
- (defvar line-group)
- (defvar num-group)
- (defvar test-pos)
- (defvar prompt-pat)
- (defvar realgud:bashdb-pat-hash)
- (defvar realgud-pat-bt)
- (defvar test-s1)
- (defvar test-text)
- (defvar brkpt-del)
- (defvar bp-del-pat)
- (defvar bp-enable-pat)
- (defvar bp-disable-pat)
-)
-
-(set (make-local-variable 'bp-del-pat)
- (gethash "brkpt-del" realgud:bashdb-pat-hash))
-
-(set (make-local-variable 'bp-enable-pat)
- (gethash "brkpt-enable" realgud:bashdb-pat-hash))
-
-(set (make-local-variable 'bp-disable-pat)
- (gethash "brkpt-disable" realgud:bashdb-pat-hash))
-
-(note "bashdb prompt matching")
-(set (make-local-variable 'prompt-pat)
- (gethash "prompt" realgud:bashdb-pat-hash))
-(prompt-match "bashdb<10> " "10")
-(prompt-match "bashdb<(5)> " "5" "subshell prompt %s")
-(prompt-match "bashdb<<1>> " "1" "nested debug prompt %s")
-
-(note "debugger-backtrace")
-(setq realgud-pat-bt (gethash "debugger-backtrace"
- realgud:bashdb-pat-hash))
-(setq test-s1
- "->0 in file `/etc/apparmor/functions' at line 24
-##1 source(\"/etc/apparmor/functions\") called from file
`/etc/init.d/apparmor' at line 35
-##2 source(\"/etc/init.d/apparmor\") called from file `/usr/local/bin/bashdb'
at line 140
-##3 main() called from file `/bin/bashdb' at line 0
-")
-(setq frame-re (realgud-loc-pat-regexp realgud-pat-bt))
-(setq num-group (realgud-loc-pat-num realgud-pat-bt))
-(setq file-group (realgud-loc-pat-file-group realgud-pat-bt))
-(setq line-group (realgud-loc-pat-line-group realgud-pat-bt))
-(assert-equal 0 (string-match frame-re test-s1))
-(assert-equal "0" (substring test-s1
- (match-beginning num-group)
- (match-end num-group)))
-(assert-equal "/etc/apparmor/functions"
- (substring test-s1
- (match-beginning file-group)
- (match-end file-group)))
-(assert-equal "24"
- (substring test-s1
- (match-beginning line-group)
- (match-end line-group)))
-(setq test-pos (match-end 0))
-
-(assert-equal 49 (string-match frame-re test-s1 test-pos))
-(assert-equal "1" (substring test-s1
- (match-beginning num-group)
- (match-end num-group)))
-(assert-equal "/etc/init.d/apparmor"
- (substring test-s1
- (match-beginning file-group)
- (match-end file-group)))
-(assert-equal "35"
- (substring test-s1
- (match-beginning line-group)
- (match-end line-group)))
-(setq test-pos (match-end 0))
-(assert-equal 138 (string-match frame-re test-s1 test-pos))
-(assert-equal "2" (substring test-s1
- (match-beginning num-group)
- (match-end num-group)))
-(assert-equal "/usr/local/bin/bashdb"
- (substring test-s1
- (match-beginning file-group)
- (match-end file-group)))
-(assert-equal "140"
- (substring test-s1
- (match-beginning line-group)
- (match-end line-group)))
-(setq test-pos (match-end 0))
-(assert-equal 226 (string-match frame-re test-s1 test-pos))
-(assert-equal "3" (substring test-s1
- (match-beginning num-group)
- (match-end num-group)))
-(assert-equal "/bin/bashdb"
- (substring test-s1
- (match-beginning file-group)
- (match-end file-group)))
-
-(note "breakpoint delete matching")
-(setq test-text "Deleted breakpoint 1\n")
-(assert-t (numberp (loc-match test-text bp-del-pat)) "breakpoint delete
matching")
-
-(note "breakpoint enable matching")
-(setq test-text "Breakpoint entry 4 enabled.\n")
-(assert-t (numberp (loc-match test-text bp-enable-pat)) "breakpoint enable
matching")
-
-(note "breakpoint disable matching")
-(setq test-text "Breakpoint entry 2 disabled.\n")
-(assert-t (numberp (loc-match test-text bp-disable-pat)) "breakpoint disable
matching")
-
-(end-tests)
diff --git a/packages/realgud/test/test-regexp-gdb.el
b/packages/realgud/test/test-regexp-gdb.el
deleted file mode 100644
index b649e78..0000000
--- a/packages/realgud/test/test-regexp-gdb.el
+++ /dev/null
@@ -1,112 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(require 'load-relative)
-(load-file "../realgud/common/buffer/command.el")
-(load-file "../realgud/debugger/gdb/init.el")
-(load-file "./regexp-helper.el")
-
-(declare-function __FILE__ 'load-relative)
-
-(test-simple-start)
-
-(eval-when-compile
- (defvar dbg-name) (defvar realgud-pat-hash) (defvar realgud-bt-pat)
- (defvar loc-pat) (defvar prompt-pat) (defvar test-s1)
- (defvar file-group) (defvar line-group) (defvar test-pos)
- (defvar test-dbgr) (defvar test-text) (defvar realgud-bt-re)
- (defvar realgud:gdb-pat-hash)
-)
-
-; Some setup usually done in setting up the buffer.
-; We customize this for this debugger.
-; FIXME: encapsulate this.
-(setq dbg-name "gdb")
-
-(setq loc-pat (gethash "loc" (gethash dbg-name realgud-pat-hash)))
-(setq test-dbgr (make-realgud-cmdbuf-info
- :debugger-name dbg-name
- :loc-regexp (realgud-loc-pat-regexp loc-pat)
- :file-group (realgud-loc-pat-file-group loc-pat)
- :line-group (realgud-loc-pat-line-group loc-pat)))
-
-;; FIXME: we get a void variable somewhere in here when running
-;; even though we define it in lexical-let. Dunno why.
-;; setq however will workaround this.
-(setq test-text "/home/rocky/c/ctest.c:80:2000:beg:0x8048748>")
-(note "traceback location matching")
-
-(assert-t (numberp (cmdbuf-loc-match test-text test-dbgr)) "basic location")
-(assert-equal "/home/rocky/c/ctest.c"
- (match-string (realgud-cmdbuf-info-file-group test-dbgr)
- test-text) "extract file name")
-(assert-equal "80"
- (match-string (realgud-cmdbuf-info-line-group test-dbgr)
- test-text) "extract line number")
-(note "debugger-backtrace")
-(setq realgud-bt-pat (gethash "debugger-backtrace"
- realgud:gdb-pat-hash))
-(setq test-s1
- "#0 main (argc=2, argv=0xbffff564, envp=0xbffff570) at main.c:935
-#1 0xb7e9f4a5 in *__GI___strdup (s=0xbffff760 \"/tmp/remake/remake\") at
strdup.c:42
-#2 0x080593ac in main (argc=2, argv=0xbffff5a4, envp=0xbffff5b0)
- at main.c:952
-#46 0xb7f51b87 in vm_call_cfunc (th=0x804d188, reg_cfp=0xb7ba9e88, num=0,
- recv=157798080, blockptr=0x0, me=0x80d12a0) at vm_insnhelper.c:410
-")
-(setq realgud-bt-re (realgud-loc-pat-regexp realgud-bt-pat))
-(setq file-group (realgud-loc-pat-file-group realgud-bt-pat))
-(setq line-group (realgud-loc-pat-line-group realgud-bt-pat))
-(assert-equal 0 (string-match realgud-bt-re test-s1))
-(assert-equal "main.c"
- (substring test-s1
- (match-beginning file-group)
- (match-end file-group)))
-(assert-equal "935"
- (substring test-s1
- (match-beginning line-group)
- (match-end line-group)))
-
-(setq test-pos (match-end 0))
-(assert-equal 65 test-pos)
-(assert-equal 65 (string-match realgud-bt-re test-s1 test-pos))
-(assert-equal "strdup.c"
- (substring test-s1
- (match-beginning file-group)
- (match-end file-group)))
-(assert-equal "42"
- (substring test-s1
- (match-beginning line-group)
- (match-end line-group)))
-
-(setq test-pos (match-end 0))
-(assert-equal 149 test-pos)
-(assert-equal 149 (string-match realgud-bt-re test-s1 test-pos))
-(assert-equal "main.c"
- (substring test-s1
- (match-beginning file-group)
- (match-end file-group)))
-(assert-equal "952"
- (substring test-s1
- (match-beginning line-group)
- (match-end line-group)))
-
-(setq test-pos (match-end 0))
-(assert-equal 233 test-pos)
-(assert-equal 233 (string-match realgud-bt-re test-s1 test-pos))
-(assert-equal "vm_insnhelper.c"
- (substring test-s1
- (match-beginning file-group)
- (match-end file-group)))
-(assert-equal "410"
- (substring test-s1
- (match-beginning line-group)
- (match-end line-group)))
-
-(note "prompt")
-(set (make-local-variable 'prompt-pat)
- (gethash "prompt" realgud:gdb-pat-hash))
-(prompt-match "(gdb) ")
-
-(end-tests)
diff --git a/packages/realgud/test/test-regexp-gub.el
b/packages/realgud/test/test-regexp-gub.el
deleted file mode 100644
index 0240a05..0000000
--- a/packages/realgud/test/test-regexp-gub.el
+++ /dev/null
@@ -1,65 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(load-file "../realgud/common/buffer/command.el")
-(load-file "../realgud/debugger/gub/init.el")
-(load-file "./regexp-helper.el")
-
-(test-simple-start)
-
-(declare-function __FILE__ 'load-relative)
-
-(eval-when-compile
- (defvar dbg-name)
- (defvar realgud:gub-pat-hash)
- (defvar panic-tb)
- (defvar test-tb)
- (defvar prompt-pat)
- (defvar test-dbgr)
- (defvar test-text)
-)
-
-; Some setup usually done in setting up the buffer.
-; We customize this for this debugger.
-; FIXME: encapsulate this.
-(setq dbg-name "gub")
-
-(note "gub prompt")
-(set (make-local-variable 'prompt-pat)
- (gethash "prompt" realgud:gub-pat-hash))
-(prompt-match "gub[0]: ")
-(prompt-match "gub[20]: ")
-(prompt-match "address@hidden: ")
-
-(setup-regexp-vars realgud:gub-pat-hash)
-(set (make-local-variable 'test-tb)
- (gethash "lang-backtrace" realgud:gub-pat-hash))
-
-(note "go lang traceback")
-(setq test-text "/usr/local/go/src/pkg/runtime/panic.c:482 (0x805c956)")
-
-(assert-t (numberp (tb-loc-match test-text)) "go traceback location")
-(assert-equal "/usr/local/go/src/pkg/runtime/panic.c"
- (match-string (realgud-loc-pat-file-group test-tb)
- test-text) "extract traceback file name")
-(assert-equal "482"
- (match-string (realgud-loc-pat-line-group test-tb)
- test-text) "extract traceback line number")
-
-(note "panic traceback")
-(setq test-text "
/tmp/github.com/rocky/ssa-interp/eval/selectorexpr.go:18 +0x9f")
-
-(set (make-local-variable 'panic-tb)
- (gethash "panic-backtrace" realgud:gub-pat-hash))
-
-(assert-t (numberp (string-match (realgud-loc-pat-regexp panic-tb) test-text))
- "go panic location")
-(assert-equal "/tmp/github.com/rocky/ssa-interp/eval/selectorexpr.go"
- (match-string (realgud-loc-pat-file-group test-tb)
- test-text) "extract panic traceback file name")
-(assert-equal "18"
- (match-string (realgud-loc-pat-line-group test-tb)
- test-text) "extract panic traceback line number")
-
-(end-tests)
diff --git a/packages/realgud/test/test-regexp-ipdb.el
b/packages/realgud/test/test-regexp-ipdb.el
deleted file mode 100644
index a9a74cc..0000000
--- a/packages/realgud/test/test-regexp-ipdb.el
+++ /dev/null
@@ -1,108 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(load-file "../realgud/debugger/ipdb/init.el")
-(load-file "./regexp-helper.el")
-
-(declare-function __FILE__ 'load-relative)
-(declare-function loc-match 'realgud-helper)
-(declare-function prompt-match 'regexp-helper)
-(declare-function realgud-loc-pat-file-group 'realgud-regexp)
-(declare-function realgud-loc-pat-line-group 'realgud-regexp)
-
-(test-simple-start)
-
-(eval-when-compile
- (defvar loc-pat) (defvar prompt-pat) (defvar realgud:ipdb-pat-hash)
- (defvar tb-pat) (defvar test-text) (defvar prompt-str)
- (defvar bps-pat)
-)
-
-(set (make-local-variable 'bps-pat)
- (gethash "brkpt-set" realgud:ipdb-pat-hash))
-
-(set (make-local-variable 'loc-pat)
- (gethash "loc" realgud:ipdb-pat-hash))
-
-(set (make-local-variable 'prompt-pat)
- (gethash "prompt" realgud:ipdb-pat-hash))
-
-(set (make-local-variable 'tb-pat)
- (gethash "lang-backtrace" realgud:ipdb-pat-hash))
-
-;; FIXME: we get a void variable somewhere in here when running
-;; even though we define it in lexical-let. Dunno why.
-;; setq however will workaround this.
-(setq test-text
- " File \"/usr/lib/python2.6/code.py\", line 281, in raw_input")
-(note "traceback location matching")
-
-(assert-t (numberp (loc-match test-text tb-pat)) "basic traceback location")
-
-(assert-equal "/usr/lib/python2.6/code.py"
- (match-string (realgud-loc-pat-file-group tb-pat)
- test-text))
-
-(setq test-text
- " File \"/usr/lib/python2.6/code.py\", line 281, in raw_input")
-(loc-match test-text tb-pat)
-(assert-equal "281"
- (match-string (realgud-loc-pat-line-group tb-pat)
- test-text) "extract line number")
-
-(note "breakpoint location matching")
-
-(setq test-text "Breakpoint 1 at /src/git/code/gcd.py:13")
-(assert-t (numberp (loc-match test-text bps-pat))
- "basic breakpoint location")
-
-(assert-equal "/src/git/code/gcd.py"
- (match-string (realgud-loc-pat-file-group
- bps-pat)
- test-text)
- "extract breakpoint file name")
-
-
-(assert-equal "13"
- (match-string (realgud-loc-pat-line-group
- bps-pat)
- test-text) "extract breakpoint line number")
-
-;; (set test-text "(c:\\working\\python\\helloworld.py:30): <module>")
-;;
-;; (assert-t (numberp (loc-match test-text loc-pat)) "MS DOS position
location")
-;; ;;
-;; (assert-equal "c:\\working\\python\\helloworld.py"
-;; (match-string (realgud-loc-pat-file-group loc-pat)
-;; test-text)
-;; (format "Failing file group is %s"
-;; (realgud-loc-pat-file-group tb-pat))
-;; "extract file name")
-;; (assert-equal "30"
-;; (match-string (realgud-loc-pat-line-group loc-pat)
-;; test-text) "extract line number")
-
-(setq test-text "> /usr/bin/ipython(24)<module>")
-(assert-t (numberp (loc-match test-text loc-pat)) "position location")
-(assert-equal "/usr/bin/ipython"
- (match-string (realgud-loc-pat-file-group loc-pat)
- test-text)
- (format "Failing file group is %s"
- (realgud-loc-pat-file-group tb-pat)))
-(assert-equal "24"
- (match-string (realgud-loc-pat-line-group
- loc-pat)
- test-text)
- "extract line number")
-
-
-(note "prompt matching")
-(set (make-local-variable 'prompt-str) "ipdb> ")
-(prompt-match prompt-str nil "debugger prompt: %s")
-(setq prompt-str "ipdb")
-(assert-nil (numberp (loc-match prompt-str prompt-pat))
- (format "%s %s" "invalid debugger prompt"
- prompt-str))
-
-(end-tests)
diff --git a/packages/realgud/test/test-regexp-java.el
b/packages/realgud/test/test-regexp-java.el
deleted file mode 100644
index ae77ba3..0000000
--- a/packages/realgud/test/test-regexp-java.el
+++ /dev/null
@@ -1,41 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(load-file "../realgud/lang/java.el")
-(load-file "./regexp-helper.el")
-
-(declare-function __FILE__ 'load-relative)
-(declare-function prompt-match 'regexp-helper)
-
-(test-simple-start)
-
-(eval-when-compile
- (defvar loc-pat) (defvar realgud:flake8-msg-loc-pat)
- (defvar test-text)
- )
-
-;; FIXME: we get a void variable somewhere in here when running
-;; even though we define it in lexical-let. Dunno why.
-;; setq however will workaround this.
-(note "maven testing")
-
-(setq test-text
- "[ERROR] /Users/rocky/pymaven/LexumoIndexer.java:[203,26] error: ';'
expected")
-
-(assert-t (numberp (loc-match test-text realgud-maven-error-loc-pat))
- "maven error")
-
-(assert-equal "/Users/rocky/pymaven/LexumoIndexer.java"
- (match-string (realgud-loc-pat-file-group
realgud-maven-error-loc-pat)
- test-text))
-
-(assert-equal "203"
- (match-string (realgud-loc-pat-line-group
realgud-maven-error-loc-pat)
- test-text))
-
-(assert-equal "26"
- (match-string (realgud-loc-pat-char-offset-group
realgud-maven-error-loc-pat)
- test-text))
-
-(end-tests)
diff --git a/packages/realgud/test/test-regexp-jdb.el
b/packages/realgud/test/test-regexp-jdb.el
deleted file mode 100644
index efac100..0000000
--- a/packages/realgud/test/test-regexp-jdb.el
+++ /dev/null
@@ -1,78 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(load-file "../realgud/common/buffer/command.el")
-(load-file "../realgud/debugger/jdb/init.el")
-(load-file "./regexp-helper.el")
-
-(declare-function __FILE__ 'load-relative)
-(declare-function prompt-match 'regexp-helper)
-
-(eval-when-compile
- (defvar dbg-name) (defvar realgud-pat-hash) (defvar loc-pat)
- (defvar test-dbgr) (defvar test-text) (defvar prompt-pat)
- (defvar realgud:jdb-pat-hash)
-)
-
-(test-simple-start)
-
-(note "jdb prompt matching")
-(set (make-local-variable 'prompt-pat)
- (gethash "prompt" realgud:jdb-pat-hash))
-(prompt-match "main[1] " "1" "most common main prompt")
-(prompt-match "main[2] " "2" "main prompt up a level")
-(prompt-match "> " nil "no loc prompt")
-
-
-; Some setup usually done in setting up the buffer.
-; We customize this for this debugger.
-; FIXME: encapsulate this.
-(setq dbg-name "jdb")
-
-(setq loc-pat (gethash "loc" (gethash dbg-name realgud-pat-hash)))
-(setq test-dbgr (make-realgud-cmdbuf-info
- :debugger-name dbg-name
- :loc-regexp (realgud-loc-pat-regexp loc-pat)
- :file-group (realgud-loc-pat-file-group loc-pat)
- :line-group (realgud-loc-pat-line-group loc-pat)))
-
-;; FIXME: we get a void variable somewhere in here when running
-;; even though we define it in lexical-let. Dunno why.
-;; setq however will workaround this.
-(let ((text "Breakpoint hit: \"thread=main\", TestMe.main(), line=7 bci=0"))
-
- (note "traceback location matching")
-
- (assert-t (numberp (cmdbuf-loc-match text test-dbgr)) "breakpoint location")
- (assert-equal "7"
- (match-string (realgud-cmdbuf-info-line-group test-dbgr)
- text) "extract line number from breakpoint"))
-
-(let ((text "Step completed: \"thread=main\", TestMe.main(), line=71 bci=0"))
- (assert-t (numberp (cmdbuf-loc-match text test-dbgr)) "breakpoint location")
- (assert-equal "71"
- (match-string (realgud-cmdbuf-info-line-group test-dbgr)
- text) "extract line number from step"))
-
-;; (note "debugger-backtrace")
-;; (setq realgud-bt-pat (gethash "debugger-backtrace"
-;; realgud:jdb-pat-hash))
-;; (setq s1
-;; " [1] java.lang.Class.getDeclaredMethods0 (native method)
-;; [2] java.lang.Class.privateGetDeclaredMethods (Class.java:2,570)
-;; [3] java.lang.Class.getMethod0 (Class.java:2,813)
-;; [4] java.lang.Class.getMethod (Class.java:1,663)
-;; [5] sun.launcher.LauncherHelper.getMainMethod (LauncherHelper.java:494)
-;; [6] sun.launcher.LauncherHelper.checkAndLoadMain (LauncherHelper.java:486)
-;; ")
-;; (setq realgud-bt-re (realgud-loc-pat-regexp realgud-bt-pat))
-;; (setq file-group (realgud-loc-pat-file-group realgud-bt-pat))
-;; (setq line-group (realgud-loc-pat-line-group realgud-bt-pat))
-;; (assert-equal 0 (string-match realgud-bt-re s1))
-;; (assert-equal "570"
-;; (substring s1
-;; (match-beginning line-group)
-;; (match-end line-group)))
-
-(end-tests)
diff --git a/packages/realgud/test/test-regexp-nodejs.el
b/packages/realgud/test/test-regexp-nodejs.el
deleted file mode 100644
index c4ea10d..0000000
--- a/packages/realgud/test/test-regexp-nodejs.el
+++ /dev/null
@@ -1,74 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(load-file "../realgud/debugger/nodejs/init.el")
-(load-file "./regexp-helper.el")
-
-(declare-function realgud-cmdbuf-info-loc-regexp 'realgud-buffer-command)
-(declare-function cmdbuf-loc-match 'realgud-regexp)
-(declare-function loc-match 'realgud-helper)
-(declare-function prompt-match 'regexp-helper)
-(declare-function realgud-loc-pat-num 'realgud-regexp)
-(declare-function realgud-loc-pat-regexp 'realgud-regexp)
-(declare-function realgud-loc-pat-file-group 'realgud-regexp)
-(declare-function realgud-loc-pat-line-group 'realgud-regexp)
-(declare-function make-realgud-cmdbuf-info 'realgud-regexp)
-(declare-function realgud-cmdbuf-info-file-group 'realgud-regexp)
-(declare-function realgud-cmdbuf-info-line-group 'realgud-regexp)
-(declare-function __FILE__ 'load-relative)
-
-(test-simple-start)
-
-(eval-when-compile
- (defvar dbg-name)
- (defvar loc-pat)
- (defvar bt-pat)
- (defvar prompt-pat)
- (defvar realgud:nodejs-pat-hash)
- (defvar realgud-pat-hash)
- (defvar test-dbgr)
- (defvar test-text)
- (defvar test-s1)
-)
-
-(note "nodejs prompt matching")
-(set (make-local-variable 'prompt-pat)
- (gethash "prompt" realgud:nodejs-pat-hash))
-(prompt-match "debug> ")
-(prompt-match "[1G[0Jdebug> [8G[1G[0Kconnecting... ok")
-
-(note "nodejs location matching")
-(setq dbg-name "nodejs")
-(setq loc-pat (gethash "loc" (gethash dbg-name realgud-pat-hash)))
-
-(setq test-dbgr (make-realgud-cmdbuf-info
- :debugger-name dbg-name
- :loc-regexp (realgud-loc-pat-regexp loc-pat)
- :file-group (realgud-loc-pat-file-group loc-pat)
- :line-group (realgud-loc-pat-line-group loc-pat)))
-
-(setq test-text "break in test/fixtures/break-in-module/main.js:1\n")
-(assert-t (numberp (cmdbuf-loc-match test-text test-dbgr)) "basic location")
-
-(string-match (realgud-cmdbuf-info-loc-regexp test-dbgr) test-text)
-(assert-equal "test/fixtures/break-in-module/main.js"
- (match-string (realgud-cmdbuf-info-file-group test-dbgr)
- test-text) "extract file name")
-
-(string-match (realgud-cmdbuf-info-loc-regexp test-dbgr) test-text)
-(assert-equal "1"
- (match-string
- (realgud-cmdbuf-info-line-group test-dbgr)
- test-text) "extract line number")
-
-(note "debugger-backtrace")
-(setq test-text
- "#0 module.js:380:17
-")
-
-(set (make-local-variable
- 'bt-pat)
- (gethash "debugger-backtrace" realgud:nodejs-pat-hash))
-
-(end-tests)
diff --git a/packages/realgud/test/test-regexp-pdb.el
b/packages/realgud/test/test-regexp-pdb.el
deleted file mode 100644
index dfb72af..0000000
--- a/packages/realgud/test/test-regexp-pdb.el
+++ /dev/null
@@ -1,107 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(load-file "../realgud/debugger/pdb/init.el")
-(load-file "./regexp-helper.el")
-
-(declare-function __FILE__ 'load-relative)
-(declare-function prompt-match 'regexp-helper)
-
-(test-simple-start)
-
-(eval-when-compile
- (defvar loc-pat) (defvar prompt-pat) (defvar realgud:pdb-pat-hash)
- (defvar tb-pat) (defvar test-text) (defvar prompt-str)
- (defvar bps-pat)
-)
-
-(set (make-local-variable 'bps-pat)
- (gethash "brkpt-set" realgud:pdb-pat-hash))
-
-(set (make-local-variable 'loc-pat)
- (gethash "loc" realgud:pdb-pat-hash))
-
-(set (make-local-variable 'prompt-pat)
- (gethash "prompt" realgud:pdb-pat-hash))
-
-(set (make-local-variable 'tb-pat)
- (gethash "lang-backtrace" realgud:pdb-pat-hash))
-
-;; FIXME: we get a void variable somewhere in here when running
-;; even though we define it in lexical-let. Dunno why.
-;; setq however will workaround this.
-(setq test-text
- " File \"/usr/lib/python2.6/code.py\", line 281, in raw_input")
-(note "traceback location matching")
-
-(assert-t (numberp (loc-match test-text tb-pat)) "basic traceback location")
-
-(assert-equal "/usr/lib/python2.6/code.py"
- (match-string (realgud-loc-pat-file-group tb-pat)
- test-text))
-
-(setq test-text
- " File \"/usr/lib/python2.6/code.py\", line 281, in raw_input")
-(loc-match test-text tb-pat)
-(assert-equal "281"
- (match-string (realgud-loc-pat-line-group tb-pat)
- test-text) "extract line number")
-
-(note "breakpoint location matching")
-
-(setq test-text "Breakpoint 1 at /src/git/code/gcd.py:13")
-(assert-t (numberp (loc-match test-text bps-pat))
- "basic breakpoint location")
-
-(assert-equal "/src/git/code/gcd.py"
- (match-string (realgud-loc-pat-file-group
- bps-pat)
- test-text)
- "extract breakpoint file name")
-
-
-(assert-equal "13"
- (match-string (realgud-loc-pat-line-group
- bps-pat)
- test-text) "extract breakpoint line number")
-
-;; (set test-text "(c:\\working\\python\\helloworld.py:30): <module>")
-;;
-;; (assert-t (numberp (loc-match test-text loc-pat)) "MS DOS position
location")
-;; ;;
-;; (assert-equal "c:\\working\\python\\helloworld.py"
-;; (match-string (realgud-loc-pat-file-group loc-pat)
-;; test-text)
-;; (format "Failing file group is %s"
-;; (realgud-loc-pat-file-group tb-pat))
-;; "extract file name")
-;; (assert-equal "30"
-;; (match-string (realgud-loc-pat-line-group loc-pat)
-;; test-text) "extract line number")
-
-(setq test-text "> /usr/bin/ipython(24)<module>")
-(assert-t (numberp (loc-match test-text loc-pat)) "position location")
-(assert-equal "/usr/bin/ipython"
- (match-string (realgud-loc-pat-file-group loc-pat)
- test-text)
- (format "Failing file group is %s"
- (realgud-loc-pat-file-group tb-pat)))
-(assert-equal "24"
- (match-string (realgud-loc-pat-line-group
- loc-pat)
- test-text)
- "extract line number")
-
-
-(note "prompt matching")
-(set (make-local-variable 'prompt-str) "(Pdb) ")
-(prompt-match prompt-str nil "debugger prompt: %s")
-(setq prompt-str "((Pdb)) ")
-(prompt-match prompt-str nil "nested debugger prompt: %s")
-(setq prompt-str "Pdb) ")
-(assert-nil (numberp (loc-match prompt-str prompt-pat))
- (format "%s %s" "invalid debugger prompt"
- prompt-str))
-
-(end-tests)
diff --git a/packages/realgud/test/test-regexp-perldb.el
b/packages/realgud/test/test-regexp-perldb.el
deleted file mode 100644
index 71ac0b6..0000000
--- a/packages/realgud/test/test-regexp-perldb.el
+++ /dev/null
@@ -1,207 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(load-file "../realgud/common/buffer/command.el")
-(load-file "../realgud/lang/perl.el")
-(load-file "../realgud/debugger/perldb/init.el")
-(load-file "./regexp-helper.el")
-
-(declare-function __FILE__ 'load-relative)
-(declare-function prompt-match 'regexp-helper)
-(declare-function cmdbuf-loc-match 'realgud-regexp)
-
-(test-simple-start)
-
-(eval-when-compile
- (defvar dbg-name)
- (defvar realgud:perldb-pat-hash)
- (defvar realgud-pat-hash)
- (defvar panic-tb)
- (defvar loc-pat)
- (defvar test-pos)
- (defvar prompt-pat)
- (defvar test-dbgr)
- (defvar carp-bt-re)
- (defvar file-group)
- (defvar line-group)
- (defvar test-text)
- (defvar lang-bt-pat)
- (defvar lang-bt-re)
- (defvar realgud-bt-pat)
- (defvar realgud-bt-re)
- (defvar test-s1)
- (defvar realgud-perl-ignore-file-re)
-)
-
-; Some setup usually done in setting up the buffer.
-; We customize this for this debugger.
-; FIXME: encapsulate this.
-(setq dbg-name "perldb")
-(set (make-local-variable 'loc-pat)
- (gethash "loc" (gethash dbg-name realgud-pat-hash)))
-(set (make-local-variable 'prompt-pat)
- (gethash "prompt" realgud:perldb-pat-hash))
-
-(setq test-dbgr (make-realgud-cmdbuf-info
- :debugger-name dbg-name
- :loc-regexp (realgud-loc-pat-regexp loc-pat)
- :file-group (realgud-loc-pat-file-group loc-pat)
- :alt-line-group (realgud-loc-pat-alt-line-group loc-pat)
- :alt-file-group (realgud-loc-pat-alt-file-group loc-pat)
- :line-group (realgud-loc-pat-line-group loc-pat)
- :text-group (realgud-loc-pat-text-group loc-pat)
- ))
-
-(note "prompt")
-(prompt-match " DB<2> " "2")
-(prompt-match "[pid=6489->6502] DB<1> " "1")
-
-(setq test-text "((eval 1006)[../example/eval.pl:5])")
-(assert-equal 1 (string-match realgud:perldb-loc-eval-regexp
- test-text)
- "perldb eval loc matching")
-
-(assert-equal "../example/eval.pl"
- (match-string (realgud-cmdbuf-info-alt-file-group test-dbgr)
- test-text)
- "extract file name when we have source text")
-
-(assert-equal "5"
- (match-string (realgud-cmdbuf-info-alt-line-group test-dbgr)
- test-text))
-
-(assert-equal 0 (string-match realgud-perl-ignore-file-re
- "(eval 1006)[../example/eval.pl:5]")
- "perldb file ignore matching")
-
-(setq test-text "main::(/usr/bin/latex2html:102):\n")
-
-(assert-t (numberp (cmdbuf-loc-match test-text test-dbgr)) "basic location")
-(assert-equal "/usr/bin/latex2html"
- (match-string (realgud-cmdbuf-info-file-group test-dbgr)
- test-text)
- "extract file name")
-
-(setq test-text
"File::Basename::dirname(/usr/share/perl/5.16.0/File/Basename.pm:284): my $path
= shift;
-")
-
-(assert-t (numberp (cmdbuf-loc-match test-text test-dbgr))
- "location with source")
-(assert-equal "/usr/share/perl/5.16.0/File/Basename.pm"
- (match-string (realgud-cmdbuf-info-file-group test-dbgr)
- test-text)
- "extract file name when we have source text")
-(assert-equal "284"
- (match-string (realgud-cmdbuf-info-line-group test-dbgr)
- test-text)
- "extract line number when we have source text")
-(assert-equal "my $path = shift;"
- (match-string (realgud-cmdbuf-info-text-group test-dbgr)
- test-text)
- "extract source text")
-
-(setq test-text "main::((eval 6)[eval.pl:5]:2): $x = 2;")
-
-(assert-t (numberp (cmdbuf-loc-match test-text test-dbgr)) "eval location")
-
-(assert-equal "eval.pl"
- (match-string (realgud-cmdbuf-info-alt-file-group test-dbgr)
- test-text)
- "extract eval file name")
-
-(assert-equal "5"
- (match-string (realgud-cmdbuf-info-alt-line-group test-dbgr)
- test-text) "extract line number")
-
-(note "location for with CODE in it")
-(setq test-text "main::CODE(0x9407ac8)(l2hconf.pm:6):\n")
-(assert-t (numberp (cmdbuf-loc-match test-text test-dbgr)))
-(assert-equal "l2hconf.pm"
- (match-string (realgud-cmdbuf-info-file-group test-dbgr)
- test-text))
-(assert-equal "6"
- (match-string (realgud-cmdbuf-info-line-group test-dbgr)
- test-text))
-
-(note "debugger-backtrace")
-(setq realgud-bt-pat (gethash "debugger-backtrace"
- realgud:perldb-pat-hash))
-(setq test-s1
- "$ = main::top_navigation_panel called from file `./latex2html' line 7400
-p")
-(setq realgud-bt-re (realgud-loc-pat-regexp realgud-bt-pat))
-(setq file-group (realgud-loc-pat-file-group realgud-bt-pat))
-(setq line-group (realgud-loc-pat-line-group realgud-bt-pat))
-(assert-equal 30 (string-match realgud-bt-re test-s1))
-(assert-equal "./latex2html"
- (substring test-s1
- (match-beginning file-group)
- (match-end file-group)))
-(assert-equal "7400"
- (substring test-s1
- (match-beginning line-group)
- (match-end line-group)))
-
-(note "debugger-errmsg")
-(setq realgud-bt-pat (gethash "perl-errmsg"
- realgud:perldb-pat-hash))
-(setq test-s1
- "Use of uninitialized value $lines[0] in join or string at
bin/../lib/LineCache.pm line 548.")
-(setq realgud-bt-re (realgud-loc-pat-regexp realgud-bt-pat))
-(setq file-group (realgud-loc-pat-file-group realgud-bt-pat))
-(setq line-group (realgud-loc-pat-line-group realgud-bt-pat))
-(assert-equal 54 (string-match realgud-bt-re test-s1))
-(assert-equal "bin/../lib/LineCache.pm"
- (substring test-s1
- (match-beginning file-group)
- (match-end file-group)))
-(assert-equal "548"
- (substring test-s1
- (match-beginning line-group)
- (match-end line-group)))
-
-(note "carp-backtrace")
-(setq test-s1
- " at /tmp/foo.pl line 7
- main::__ANON__('Illegal division by zero at /tmp/foo.pl line 4.\x{a}')
called at foo2.pl line 5
- main::foo(3) called at foo3.pl line 8
-")
-(setq lang-bt-pat (gethash "lang-backtrace"
- realgud:perldb-pat-hash))
-(setq carp-bt-re (realgud-loc-pat-regexp lang-bt-pat))
-(setq file-group (realgud-loc-pat-file-group lang-bt-pat))
-(setq line-group (realgud-loc-pat-line-group lang-bt-pat))
-(assert-equal 0 (string-match carp-bt-re test-s1))
-(assert-equal "/tmp/foo.pl"
- (substring test-s1
- (match-beginning file-group)
- (match-end file-group)))
-(assert-equal "7"
- (substring test-s1
- (match-beginning line-group)
- (match-end line-group)))
-(setq test-pos (match-end 0))
-
-(assert-equal 22 (string-match carp-bt-re test-s1 test-pos))
-(assert-equal "foo2.pl"
- (substring test-s1
- (match-beginning file-group)
- (match-end file-group)))
-(assert-equal "5"
- (substring test-s1
- (match-beginning line-group)
- (match-end line-group)))
-
-(setq test-pos (match-end 0))
-(assert-equal 119 (string-match carp-bt-re test-s1 test-pos))
-(assert-equal "foo3.pl"
- (substring test-s1
- (match-beginning file-group)
- (match-end file-group)))
-(assert-equal "8"
- (substring test-s1
- (match-beginning line-group)
- (match-end line-group)))
-
-(end-tests)
diff --git a/packages/realgud/test/test-regexp-python.el
b/packages/realgud/test/test-regexp-python.el
deleted file mode 100644
index 35301c2..0000000
--- a/packages/realgud/test/test-regexp-python.el
+++ /dev/null
@@ -1,64 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(load-file "../realgud/lang/python.el")
-(load-file "./regexp-helper.el")
-
-(declare-function __FILE__ 'load-relative)
-(declare-function prompt-match 'regexp-helper)
-
-(test-simple-start)
-
-(eval-when-compile
- (defvar loc-pat) (defvar realgud:flake8-msg-loc-pat)
- (defvar test-text)
- )
-
-;; FIXME: we get a void variable somewhere in here when running
-;; even though we define it in lexical-let. Dunno why.
-;; setq however will workaround this.
-(note "flake8 testing")
-
-(setq test-text
- "uncompyle6/parsers/parse3.py:441:17: W503 line break before binary
operator")
-
-(assert-t (numberp (loc-match test-text realgud-flake8-msg-loc-pat))
- "flake8 warning")
-
-(assert-equal "uncompyle6/parsers/parse3.py"
- (match-string (realgud-loc-pat-file-group
realgud-flake8-msg-loc-pat)
- test-text))
-
-(assert-equal "441"
- (match-string (realgud-loc-pat-line-group
realgud-flake8-msg-loc-pat)
- test-text))
-
-(assert-equal "17"
- (match-string (realgud-loc-pat-char-offset-group
realgud-flake8-msg-loc-pat)
- test-text))
-
-(setq test-text
- "/uncompyle6/main.py:53:1: E303 too many blank lines (3)")
-
-
-(assert-t (numberp (loc-match test-text realgud-flake8-msg-loc-pat))
- "flake8 error")
-
-(assert-equal "/uncompyle6/main.py"
- (match-string (realgud-loc-pat-file-group
realgud-flake8-msg-loc-pat)
- test-text))
-
-(assert-equal "53"
- (match-string (realgud-loc-pat-line-group
realgud-flake8-msg-loc-pat)
- test-text))
-
-(assert-equal "1"
- (match-string (realgud-loc-pat-char-offset-group
realgud-flake8-msg-loc-pat)
- test-text))
-
-;; FIXME add pytest testing
-;; (note "pytest testing")
-
-
-(end-tests)
diff --git a/packages/realgud/test/test-regexp-rdebug.el
b/packages/realgud/test/test-regexp-rdebug.el
deleted file mode 100644
index 16fc074..0000000
--- a/packages/realgud/test/test-regexp-rdebug.el
+++ /dev/null
@@ -1,55 +0,0 @@
-;; -*- lexical-binding:t -*-
-
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(load-file "../realgud/debugger/rdebug/init.el")
-(load-file "./regexp-helper.el")
-
-(test-simple-start)
-
-(eval-when-compile
- (defvar helper-bps)
- (defvar helper-tb)
- (defvar prompt-pat)
- (defvar rails-bt)
- (defvar realgud-rdebug-pat-hash)
- (defvar test-text)
-)
-
-(setup-regexp-vars realgud-rdebug-pat-hash)
-(setq rails-bt (gethash "rails-backtrace" realgud-rdebug-pat-hash))
-
-;; FIXME: we get a void variable somewhere in here when running
-;; even though we define it in lexical-let. Dunno why.
-;; setq however will workaround this.
-(setq test-text " from /usr/local/bin/irb:12:in `<main>'")
-(note "traceback location matching")
-(let ((text " from /usr/local/bin/irb:12:in `<main>'"))
- (assert-t (numberp (loc-match text helper-tb)) "basic traceback location")
- (assert-equal "/usr/local/bin/irb"
- (match-string (realgud-loc-pat-file-group helper-tb)
- text)
- "extract traceback file name")
- (assert-equal "12"
- (match-string (realgud-loc-pat-line-group helper-tb)
- text) "extract traceback line number")
- )
-
-(let ((text "Breakpoint 1 file /usr/bin/irb, line 10\n"))
- (assert-t (numberp (loc-match text helper-bps)) "basic breakpoint location")
- (assert-equal "/usr/bin/irb"
- (match-string (realgud-loc-pat-file-group helper-bps)
- text) "extract breakpoint file name")
- (assert-equal "10"
- (match-string (realgud-loc-pat-line-group helper-bps)
- text) "extract breakpoint line number")
- )
-
-(note "prompt")
-(set (make-local-variable 'prompt-pat)
- (gethash "prompt" realgud-rdebug-pat-hash))
-(prompt-match "(rdb:1) ")
-
-(end-tests)
diff --git a/packages/realgud/test/test-regexp-remake.el
b/packages/realgud/test/test-regexp-remake.el
deleted file mode 100644
index e6e69b0..0000000
--- a/packages/realgud/test/test-regexp-remake.el
+++ /dev/null
@@ -1,75 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(load-file "../realgud/debugger/remake/init.el")
-(load-file "./regexp-helper.el")
-
-(test-simple-start)
-
-(eval-when-compile
- (defvar prompt-pat) (defvar frame-pat) (defvar frame-re)
- (defvar loc-pat) (defvar prompt-pat) (defvar test-text)
- (defvar file-group) (defvar line-group) (defvar test-pos)
- (defvar num-pat) (defvar num-group) (defvar realgud:remake-pat-hash)
-)
-
-(declare-function prompt-match 'regexp-helper)
-(declare-function realgud-loc-pat-num 'realgud-regexp)
-(declare-function realgud-loc-pat-regexp 'realgud-regexp)
-(declare-function realgud-loc-pat-file-group 'realgud-regexp)
-(declare-function realgud-loc-pat-line-group 'realgud-regexp)
-
-(set (make-local-variable 'prompt-pat)
- (gethash "prompt" realgud:remake-pat-hash))
-(set (make-local-variable 'frame-pat)
- (gethash "debugger-backtrace" realgud:remake-pat-hash))
-
-(note "remake prompt")
-(prompt-match "remake<10> " "10")
-(prompt-match "remake<<1>> " "1" "recursive remake %s")
-
-(note "remake debugger-backtrace")
-(setq test-text
- "=>#0 Makefile.in at /tmp/Makefile:216
- #1 Makefile at /tmp/Makefile:230
-")
-
-(set (make-local-variable 'frame-re)
- (realgud-loc-pat-regexp frame-pat))
-(set (make-local-variable 'num-group)
- (realgud-loc-pat-num frame-pat))
-(set (make-local-variable 'file-group)
- (realgud-loc-pat-file-group frame-pat))
-(set (make-local-variable 'line-group)
- (realgud-loc-pat-line-group frame-pat))
-
-(assert-equal 0 (string-match frame-re test-text))
-(assert-equal "0" (substring test-text
- (match-beginning num-group)
- (match-end num-group)))
-(assert-equal "/tmp/Makefile"
- (substring test-text
- (match-beginning file-group)
- (match-end file-group)))
-(assert-equal "216"
- (substring test-text
- (match-beginning line-group)
- (match-end line-group)))
-(set (make-local-variable 'test-pos)
- (match-end 0))
-
-(assert-equal 39 (string-match frame-re test-text test-pos))
-(assert-equal "1" (substring test-text
- (match-beginning num-group)
- (match-end num-group)))
-(assert-equal "/tmp/Makefile"
- (substring test-text
- (match-beginning file-group)
- (match-end file-group)))
-(assert-equal "230"
- (substring test-text
- (match-beginning line-group)
- (match-end line-group)))
-
-(end-tests)
diff --git a/packages/realgud/test/test-regexp-ruby.el
b/packages/realgud/test/test-regexp-ruby.el
deleted file mode 100644
index a2392b1..0000000
--- a/packages/realgud/test/test-regexp-ruby.el
+++ /dev/null
@@ -1,43 +0,0 @@
-;; -*- lexical-binding:t -*-
-
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-;; Don't have a pat-hash for ruby, so we need something that pulls in
-;; Ruby.
-(load-file "./regexp-helper.el")
-(load-file "../realgud/debugger/rdebug/init.el")
-
-(test-simple-start)
-
-(setq bt (gethash "rails-backtrace" realgud-rdebug-pat-hash))
-
-;; FIXME: we get a void variable somewhere in here when running
-;; even though we define it in lexical-let. Dunno why.
-;; setq however will workaround this.
-(setq text "/tmp/rails-2.3.5/lib/tasks/databases.rake:360")
-
-(let ((text "/tmp/rails-2.3.5/lib/tasks/databases.rake:360"))
-
- (assert-t (numberp (loc-match text bt)) "basic traceback location")
- (assert-equal "/tmp/rails-2.3.5/lib/tasks/databases.rake"
- (match-string (realgud-loc-pat-file-group bt)
- text) "extract traceback file name")
- (assert-equal "360"
- (match-string (realgud-loc-pat-line-group bt)
- text) "extract traceback line number")
- )
-
-(let ((text
- "/tmp/gems/rake-0.8.7/lib/rake.rb:597:in `invoke_with_call_chain'"))
-
- (assert-t (numberp (loc-match text bt)) "traceback location with in")
- (assert-equal "/tmp/gems/rake-0.8.7/lib/rake.rb"
- (match-string (realgud-loc-pat-file-group bt)
- text) "extract traceback file name 2")
- (assert-equal "597"
- (match-string (realgud-loc-pat-line-group bt)
- text) "extract breakpoint line number 2")
- )
-
-(end-tests)
diff --git a/packages/realgud/test/test-regexp-trepan.el
b/packages/realgud/test/test-regexp-trepan.el
deleted file mode 100644
index 5712c61..0000000
--- a/packages/realgud/test/test-regexp-trepan.el
+++ /dev/null
@@ -1,150 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(load-file "../realgud/debugger/trepan/init.el")
-(load-file "./regexp-helper.el")
-
-(test-simple-start)
-
-(eval-when-compile
- (defvar bps-pat)
- (defvar ctrl-pat)
- (defvar dbg-bt-pat)
- (defvar file-group)
- (defvar frame-re)
- (defvar lang-bt-pat)
- (defvar line-group)
- (defvar num-group)
- (defvar test-pos)
- (defvar prompt-pat)
- (defvar prompt-str)
- (defvar tb-loc-match)
- (defvar test-dbgr)
- (defvar test-s1)
- (defvar test-text)
- (defvar realgud:trepan-pat-hash)
-)
-
-(declare-function loc-match 'realgud-helper)
-(declare-function prompt-match 'regexp-helper)
-(declare-function realgud-loc-pat-file-group 'realgud-regexp)
-(declare-function realgud-loc-pat-line-group 'realgud-regexp)
-(declare-function realgud-loc-pat-num 'realgud-regexp)
-(declare-function realgud-loc-pat-regexp 'realgud-regexp)
-
-(set (make-local-variable 'bps-pat)
- (gethash "brkpt-set" realgud:trepan-pat-hash))
-(set (make-local-variable 'dbg-bt-pat)
- (gethash "debugger-backtrace" realgud:trepan-pat-hash))
-(set (make-local-variable 'prompt-pat)
- (gethash "prompt" realgud:trepan-pat-hash))
-(set (make-local-variable 'lang-bt-pat)
- (gethash "lang-backtrace" realgud:trepan-pat-hash))
-(set (make-local-variable 'ctrl-pat)
- (gethash "control-frame" realgud:trepan-pat-hash))
-
-;; FIXME: we get a void variable somewhere in here when running
-;; even though we define it in lexical-let. Dunno why.
-;; setq however will workaround this.
-(set (make-local-variable 'test-text)
- " from /usr/local/bin/irb:12:in `<main>'")
-
-(note "traceback location matching")
-
-(setq test-text " from /usr/local/bin/irb:12:in `<main>'")
-
-(assert-t (numberp (loc-match test-text lang-bt-pat))
- "basic traceback location")
-(assert-equal "/usr/local/bin/irb"
- (match-string (realgud-loc-pat-file-group lang-bt-pat) test-text)
- "extract traceback file name")
-
-(assert-equal "12"
- (match-string (realgud-loc-pat-line-group
- lang-bt-pat) test-text)
- "extract traceback line number")
-
-(note "debugger-backtrace")
-(set (make-local-variable 'test-s1)
- "--> #0 METHOD Object#require(path) in file <internal:lib/require> at
line 28
- #1 TOP Object#<top /tmp/linecache.rb> in file /tmp/linecache.rb
-")
-
-(set (make-local-variable 'frame-re)
- (realgud-loc-pat-regexp dbg-bt-pat))
-(set (make-local-variable 'num-group)
- (realgud-loc-pat-num dbg-bt-pat))
-(set (make-local-variable 'file-group)
- (realgud-loc-pat-file-group dbg-bt-pat))
-(set (make-local-variable 'line-group)
- (realgud-loc-pat-line-group dbg-bt-pat))
-
-(assert-equal 0 (string-match frame-re test-s1))
-(assert-equal "0" (substring test-s1
- (match-beginning num-group)
- (match-end num-group)))
-(assert-equal "<internal:lib/require>"
- (substring test-s1
- (match-beginning file-group)
- (match-end file-group)))
-(assert-equal "28"
- (substring test-s1
- (match-beginning line-group)
- (match-end line-group)))
-(setq test-pos (match-end 0))
-
-(assert-equal 77 (string-match frame-re test-s1 test-pos))
-(assert-equal "1" (substring test-s1
- (match-beginning num-group)
- (match-end num-group)))
-(assert-equal "/tmp/linecache.rb"
- (substring test-s1
- (match-beginning file-group)
- (match-end file-group)))
-
-(note "prompt")
-(prompt-match "(trepan): ")
-(prompt-match "((trepan)): " nil "nested debugger prompt: %s")
-(prompt-match "((address@hidden)): " "@55" "nested debugger prompt with addr:
%s")
-(prompt-match "((address@hidden)): " "@main"
- "nested debugger prompt with method: %s")
-(setq prompt-str "trepan:")
-(assert-nil (loc-match prompt-str prompt-pat)
- (format "invalid prompt %s" prompt-str))
-
-
-(note "control-frame")
-(assert-equal 0 (loc-match
- "c:0026 p:0181 s:0136 b:0136 l:000135 d:000135 METHOD
/trepan-0.0.1/app/frame.rb:132 "
- ctrl-pat)
- )
-(assert-equal 0 (loc-match
- "c:0030 p:0041 s:0144 b:0144 l:00226c d:00226c METHOD
/gems/trepan-0.0.1/processor/eval.rb:15 "
- ctrl-pat)
- )
-(assert-equal 0 (loc-match
- "c:0015 p:0139 s:0070 b:0070 l:000063 d:000069 BLOCK
/gems/app/core.rb:121"
- ctrl-pat)
- )
-
-(setq test-text "Breakpoint 1 set at VM offset 2 of instruction sequence
\"<top /usr/local/bin/irb>\",
- line 9 in file /usr/local/bin/irb.
-")
-
-
-(assert-t (numberp (loc-match test-text bps-pat))
- "basic breakpoint location")
-
-
-(assert-equal "/usr/local/bin/irb"
- (match-string (realgud-loc-pat-file-group
- bps-pat) test-text)
- "extract breakpoint file name")
-
-(assert-equal "9"
- (match-string (realgud-loc-pat-line-group
- bps-pat) test-text)
- "extract breakpoint line number")
-
-(end-tests)
diff --git a/packages/realgud/test/test-regexp-trepan2.el
b/packages/realgud/test/test-regexp-trepan2.el
deleted file mode 100644
index 15ed531..0000000
--- a/packages/realgud/test/test-regexp-trepan2.el
+++ /dev/null
@@ -1,167 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(require 'load-relative)
-(load-file "./regexp-helper.el")
-(load-file "../realgud/debugger/trepan2/init.el")
-
-(declare-function loc-match 'realgud-helper)
-(declare-function prompt-match 'regexp-helper)
-(declare-function realgud-loc-pat-num 'realgud-regexp)
-(declare-function realgud-loc-pat-regexp 'realgud-regexp)
-(declare-function realgud-loc-pat-file-group 'realgud-regexp)
-(declare-function realgud-loc-pat-line-group 'realgud-regexp)
-(declare-function __FILE__ 'load-relative)
-(declare-function setup-regexp-vars 'regexp-helper)
-(declare-function realgud-loc-pat-text-group 'realgud-trepan2-init)
-
-
-(test-simple-start)
-
-(eval-when-compile
- (defvar file-group)
- (defvar frame-re)
- (defvar line-group)
- (defvar num-group)
- (defvar test-pos)
- (defvar test-s1)
- (defvar helper-tb)
- (defvar helper-bps)
- (defvar prompt-pat)
- (defvar realgud-pat-bt)
- (defvar helper-loc)
- (defvar realgud:trepan2-pat-hash)
- (defvar trepan2-text)
-)
-
-(note "prompt matching")
-
-(set (make-local-variable 'prompt-pat)
- (gethash "prompt" realgud:trepan2-pat-hash))
-
-(prompt-match "(trepan2) ")
-
-(setup-regexp-vars realgud:trepan2-pat-hash)
-
-(note "debugger-backtrace")
-(setq realgud-pat-bt (gethash "debugger-backtrace"
- realgud:trepan2-pat-hash))
-(setq test-s1
- "##0 gcd(a=3, b=5) called from file '/tmp/test/gcd.py' at line 31
-->1 <module> exec()
- '/tmp/test/gcd2.py' at line 41
-")
-(setq frame-re (realgud-loc-pat-regexp realgud-pat-bt))
-(setq num-group (realgud-loc-pat-num realgud-pat-bt))
-(setq file-group (realgud-loc-pat-file-group realgud-pat-bt))
-(setq line-group (realgud-loc-pat-line-group realgud-pat-bt))
-(assert-equal 0 (string-match frame-re test-s1))
-(assert-equal "0" (substring test-s1
- (match-beginning num-group)
- (match-end num-group)))
-(assert-equal "/tmp/test/gcd.py"
- (substring test-s1
- (match-beginning file-group)
- (match-end file-group)))
-(assert-equal "31"
- (substring test-s1
- (match-beginning line-group)
- (match-end line-group)))
-(setq test-pos (match-end 0))
-
-(assert-equal 64 (string-match frame-re test-s1 test-pos))
-(assert-equal "1" (substring test-s1
- (match-beginning num-group)
- (match-end num-group)))
-(assert-equal "/tmp/test/gcd2.py"
- (substring test-s1
- (match-beginning file-group)
- (match-end file-group)))
-(assert-equal "41"
- (substring test-s1
- (match-beginning line-group)
- (match-end line-group)))
-(setq test-pos (match-end 0))
-(assert-equal 120 test-pos)
-
-(setq helper-tb (gethash "lang-backtrace" realgud:trepan2-pat-hash))
-
-(note "traceback location matching")
-(setq test-s1
- " File \"/usr/lib/python2.6/code.py\", line 281, in raw_input")
-
-(assert-t (numberp (loc-match test-s1 helper-tb))
- "basic traceback location")
-
-(assert-equal "/usr/lib/python2.6/code.py"
- (match-string (realgud-loc-pat-file-group helper-tb)
- test-s1)
- (format "extract file - failing file group is %s"
- (realgud-loc-pat-file-group helper-tb)))
-(assert-equal "281"
- (match-string (realgud-loc-pat-line-group helper-tb)
- test-s1) "extract line number")
-
-(note "breakpoint location matching")
-
-(setq test-s1
- "Breakpoint 1 set at line 13 of file /src/git/code/gcd.py")
-
-(assert-t (numberp (loc-match test-s1 helper-bps))
- "basic breakpoint location")
-(assert-equal "/src/git/code/gcd.py"
- (match-string (realgud-loc-pat-file-group helper-bps)
- test-s1) "extract breakpoint file name")
-(assert-equal "13"
- (match-string (realgud-loc-pat-line-group helper-bps)
- test-s1)
- "extract breakpoint line number")
-(setq test-s1 "(c:\\working\\python\\helloworld.py:30): <module>")
-(assert-t (numberp (loc-match test-s1 helper-loc))
- "MS DOS position location")
-(assert-equal "c:\\working\\python\\helloworld.py"
- (match-string (realgud-loc-pat-file-group helper-loc)
- test-s1)
- (format "extract file - Failing file group is %s"
- (realgud-loc-pat-file-group helper-tb)))
-(assert-equal "30"
- (match-string (realgud-loc-pat-line-group helper-loc)
- test-s1) "extract line number")
-
-(setq test-s1 "(/usr/bin/ipython:24 @31): <module>")
-(assert-t (numberp (loc-match test-s1 helper-loc))
- "position location")
-(assert-equal "/usr/bin/ipython"
- (match-string (realgud-loc-pat-file-group helper-loc)
- test-s1)
- (format "extract-file - failing file group is %s"
- (realgud-loc-pat-file-group helper-tb)))
-(assert-equal "24"
- (match-string (realgud-loc-pat-line-group helper-loc)
- test-s1)
- "extract line number")
-
-(setq test-s1
- "(/tmp/eval_stringzDKTfr.py:1 remapped <string>): <module>")
-(assert-t (numberp (loc-match test-s1 helper-loc)) "position location")
-(assert-equal "/tmp/eval_stringzDKTfr.py"
- (match-string (realgud-loc-pat-file-group helper-loc)
- test-s1)
- (format "extract-file name - failing file group is %s"
- (realgud-loc-pat-file-group helper-tb)))
-(assert-equal "1"
- (match-string (realgud-loc-pat-line-group helper-loc)
- test-s1) "extract line number")
-
-(note "source text")
-
-(setq test-s1
- "(/usr/local/bin/trepan2:4): <module>\n-- 4 [34mimport[39;49;00m
[39;49;00m[04m[36msys[39;49;00m\n(trepan2) ")
-(assert-t (numberp (loc-match test-s1 helper-loc)) "source location")
-(assert-equal
- "[34mimport[39;49;00m [39;49;00m[04m[36msys[39;49;00m"
- (match-string (realgud-loc-pat-text-group helper-loc)
- test-s1) "extract source text")
-
-(end-tests)
diff --git a/packages/realgud/test/test-regexp-trepan3k.el
b/packages/realgud/test/test-regexp-trepan3k.el
deleted file mode 100644
index 1c60d52..0000000
--- a/packages/realgud/test/test-regexp-trepan3k.el
+++ /dev/null
@@ -1,167 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(require 'load-relative)
-(load-file "./regexp-helper.el")
-(load-file "../realgud/debugger/trepan3k/init.el")
-
-(declare-function loc-match 'realgud-helper)
-(declare-function prompt-match 'regexp-helper)
-(declare-function realgud-loc-pat-num 'realgud-regexp)
-(declare-function realgud-loc-pat-regexp 'realgud-regexp)
-(declare-function realgud-loc-pat-file-group 'realgud-regexp)
-(declare-function realgud-loc-pat-line-group 'realgud-regexp)
-(declare-function __FILE__ 'load-relative)
-(declare-function setup-regexp-vars 'regexp-helper)
-(declare-function realgud-loc-pat-text-group 'realgud-trepan3k-init)
-
-
-(test-simple-start)
-
-(eval-when-compile
- (defvar file-group)
- (defvar frame-re)
- (defvar line-group)
- (defvar num-group)
- (defvar test-pos)
- (defvar test-s1)
- (defvar helper-tb)
- (defvar helper-bps)
- (defvar prompt-pat)
- (defvar realgud-pat-bt)
- (defvar helper-loc)
- (defvar realgud:trepan3k-pat-hash)
- (defvar trepan3k-text)
-)
-
-(note "prompt matching")
-
-(set (make-local-variable 'prompt-pat)
- (gethash "prompt" realgud:trepan3k-pat-hash))
-
-(prompt-match "(trepan3k) ")
-
-(setup-regexp-vars realgud:trepan3k-pat-hash)
-
-(note "debugger-backtrace")
-(setq realgud-pat-bt (gethash "debugger-backtrace"
- realgud:trepan3k-pat-hash))
-(setq test-s1
- "##0 gcd(a=3, b=5) called from file '/tmp/test/gcd.py' at line 31
-->1 <module> exec()
- '/tmp/test/gcd2.py' at line 41
-")
-(setq frame-re (realgud-loc-pat-regexp realgud-pat-bt))
-(setq num-group (realgud-loc-pat-num realgud-pat-bt))
-(setq file-group (realgud-loc-pat-file-group realgud-pat-bt))
-(setq line-group (realgud-loc-pat-line-group realgud-pat-bt))
-(assert-equal 0 (string-match frame-re test-s1))
-(assert-equal "0" (substring test-s1
- (match-beginning num-group)
- (match-end num-group)))
-(assert-equal "/tmp/test/gcd.py"
- (substring test-s1
- (match-beginning file-group)
- (match-end file-group)))
-(assert-equal "31"
- (substring test-s1
- (match-beginning line-group)
- (match-end line-group)))
-(setq test-pos (match-end 0))
-
-(assert-equal 64 (string-match frame-re test-s1 test-pos))
-(assert-equal "1" (substring test-s1
- (match-beginning num-group)
- (match-end num-group)))
-(assert-equal "/tmp/test/gcd2.py"
- (substring test-s1
- (match-beginning file-group)
- (match-end file-group)))
-(assert-equal "41"
- (substring test-s1
- (match-beginning line-group)
- (match-end line-group)))
-(setq test-pos (match-end 0))
-(assert-equal 120 test-pos)
-
-(setq helper-tb (gethash "lang-backtrace" realgud:trepan3k-pat-hash))
-
-(note "traceback location matching")
-(setq test-s1
- " File \"/usr/lib/python2.6/code.py\", line 281, in raw_input")
-
-(assert-t (numberp (loc-match test-s1 helper-tb))
- "basic traceback location")
-
-(assert-equal "/usr/lib/python2.6/code.py"
- (match-string (realgud-loc-pat-file-group helper-tb)
- test-s1)
- (format "extract file - failing file group is %s"
- (realgud-loc-pat-file-group helper-tb)))
-(assert-equal "281"
- (match-string (realgud-loc-pat-line-group helper-tb)
- test-s1) "extract line number")
-
-(note "breakpoint location matching")
-
-(setq test-s1
- "Breakpoint 1 set at line 13 of file /src/git/code/gcd.py")
-
-(assert-t (numberp (loc-match test-s1 helper-bps))
- "basic breakpoint location")
-(assert-equal "/src/git/code/gcd.py"
- (match-string (realgud-loc-pat-file-group helper-bps)
- test-s1) "extract breakpoint file name")
-(assert-equal "13"
- (match-string (realgud-loc-pat-line-group helper-bps)
- test-s1)
- "extract breakpoint line number")
-(setq test-s1 "(c:\\working\\python\\helloworld.py:30): <module>")
-(assert-t (numberp (loc-match test-s1 helper-loc))
- "MS DOS position location")
-(assert-equal "c:\\working\\python\\helloworld.py"
- (match-string (realgud-loc-pat-file-group helper-loc)
- test-s1)
- (format "extract file - Failing file group is %s"
- (realgud-loc-pat-file-group helper-tb)))
-(assert-equal "30"
- (match-string (realgud-loc-pat-line-group helper-loc)
- test-s1) "extract line number")
-
-(setq test-s1 "(/usr/bin/ipython:24): <module>")
-(assert-t (numberp (loc-match test-s1 helper-loc))
- "position location")
-(assert-equal "/usr/bin/ipython"
- (match-string (realgud-loc-pat-file-group helper-loc)
- test-s1)
- (format "extract-file - failing file group is %s"
- (realgud-loc-pat-file-group helper-tb)))
-(assert-equal "24"
- (match-string (realgud-loc-pat-line-group helper-loc)
- test-s1)
- "extract line number")
-
-(setq test-s1
- "(/tmp/eval_stringzDKTfr.py:1 remapped <string>): <module>")
-(assert-t (numberp (loc-match test-s1 helper-loc)) "position location")
-(assert-equal "/tmp/eval_stringzDKTfr.py"
- (match-string (realgud-loc-pat-file-group helper-loc)
- test-s1)
- (format "extract-file name - failing file group is %s"
- (realgud-loc-pat-file-group helper-tb)))
-(assert-equal "1"
- (match-string (realgud-loc-pat-line-group helper-loc)
- test-s1) "extract line number")
-
-(note "source text")
-
-(setq test-s1
- "(/usr/local/bin/trepan3k:4): <module>\n-- 4 [34mimport[39;49;00m
[39;49;00m[04m[36msys[39;49;00m\n(trepan3k) ")
-(assert-t (numberp (loc-match test-s1 helper-loc)) "source location")
-(assert-equal
- "[34mimport[39;49;00m [39;49;00m[04m[36msys[39;49;00m"
- (match-string (realgud-loc-pat-text-group helper-loc)
- test-s1) "extract source text")
-
-(end-tests)
diff --git a/packages/realgud/test/test-regexp-trepanjs.el
b/packages/realgud/test/test-regexp-trepanjs.el
deleted file mode 100644
index d26102d..0000000
--- a/packages/realgud/test/test-regexp-trepanjs.el
+++ /dev/null
@@ -1,94 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(load-file "../realgud/debugger/trepanjs/init.el")
-(load-file "./regexp-helper.el")
-
-(declare-function realgud-cmdbuf-info-loc-regexp 'realgud-buffer-command)
-(declare-function cmdbuf-loc-match 'realgud-regexp)
-(declare-function loc-match 'realgud-helper)
-(declare-function prompt-match 'regexp-helper)
-(declare-function realgud-loc-pat-num 'realgud-regexp)
-(declare-function realgud-loc-pat-regexp 'realgud-regexp)
-(declare-function realgud-loc-pat-file-group 'realgud-regexp)
-(declare-function realgud-loc-pat-line-group 'realgud-regexp)
-(declare-function make-realgud-cmdbuf-info 'realgud-regexp)
-(declare-function realgud-cmdbuf-info-file-group 'realgud-regexp)
-(declare-function realgud-cmdbuf-info-line-group 'realgud-regexp)
-(declare-function __FILE__ 'load-relative)
-(declare-function setup-regexp-vars 'regexp-helper)
-
-(test-simple-start)
-
-(eval-when-compile
- (defvar dbg-name)
- (defvar loc-pat)
- (defvar bt-pat)
- (defvar prompt-pat)
- (defvar realgud:trepanjs-pat-hash)
- (defvar realgud-pat-hash)
- (defvar helper-bps)
- (defvar test-dbgr)
- (defvar test-text)
- (defvar test-s1)
-)
-
-(setup-regexp-vars realgud:trepanjs-pat-hash)
-
-(note "trepanjs prompt matching")
-(set (make-local-variable 'prompt-pat)
- (gethash "prompt" realgud:trepanjs-pat-hash))
-(prompt-match "(trepanjs) ")
-(prompt-match "[1G[0J(trepanjs) [8G[1G[0Kconnecting... ok")
-
-(note "trepanjs location matching")
-(setq dbg-name "trepanjs")
-(setq loc-pat (gethash "loc" (gethash dbg-name realgud-pat-hash)))
-
-(setq test-dbgr (make-realgud-cmdbuf-info
- :debugger-name dbg-name
- :loc-regexp (realgud-loc-pat-regexp loc-pat)
- :file-group (realgud-loc-pat-file-group loc-pat)
- :line-group (realgud-loc-pat-line-group loc-pat)))
-
-(setq test-text "break in test/fixtures/break-in-module/main.js at line
1:23\n")
-(assert-t (numberp (cmdbuf-loc-match test-text test-dbgr)) "basic location")
-
-(string-match (realgud-cmdbuf-info-loc-regexp test-dbgr) test-text)
-(assert-equal "test/fixtures/break-in-module/main.js"
- (match-string (realgud-cmdbuf-info-file-group test-dbgr)
- test-text) "extract file name")
-
-(string-match (realgud-cmdbuf-info-loc-regexp test-dbgr) test-text)
-(assert-equal "1"
- (match-string
- (realgud-cmdbuf-info-line-group test-dbgr)
- test-text) "extract line number")
-
-(note "breakpoint location matching")
-
-(setq test-text
- "Breakpoint 2 set in file /tmp/gcd.js, line 2.
-")
-
-(assert-t (numberp (loc-match test-text helper-bps))
- "basic breakpoint location")
-(assert-equal "/tmp/gcd.js"
- (match-string (realgud-loc-pat-file-group helper-bps)
- test-text) "extract breakpoint file name")
-(assert-equal "2"
- (match-string (realgud-loc-pat-line-group helper-bps)
- test-text)
- "extract breakpoint line number")
-
-(note "debugger-backtrace")
-(setq test-text
- "##1 in file /tmp/test/gcd.js at line 2:12"
-)
-
-(set (make-local-variable
- 'bt-pat)
- (gethash "debugger-backtrace" realgud:trepanjs-pat-hash))
-
-(end-tests)
diff --git a/packages/realgud/test/test-regexp-trepanpl.el
b/packages/realgud/test/test-regexp-trepanpl.el
deleted file mode 100644
index 00e0242..0000000
--- a/packages/realgud/test/test-regexp-trepanpl.el
+++ /dev/null
@@ -1,115 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(require 'load-relative)
-(load-file "../realgud/debugger/trepan.pl/init.el")
-(load-file "./regexp-helper.el")
-
-(eval-when-compile
- (defvar realgud:trepanpl-pat-hash)
- (defvar prompt-str)
- (defvar test-dbgr)
- (defvar carp-bt-re)
- (defvar file-group)
- (defvar line-group)
- (defvar test-text)
- (defvar dbg-bt-pat)
- (defvar bps-pat)
- (defvar realgud-bt-pat)
- (defvar brkpt-del)
- (defvar bp-del-pat)
- (defvar bp-enable-pat)
- (defvar bp-disable-pat)
- (defvar realgud-perl-ignnore-file-re)
-)
-(declare-function __FILE__ 'load-relative)
-
-(test-simple-start)
-
-(set (make-local-variable 'helper-bps)
- (gethash "brkpt-set" realgud:trepanpl-pat-hash))
-(set (make-local-variable 'prompt)
- (gethash "prompt" realgud:trepanpl-pat-hash))
-(set (make-local-variable 'helper-tb)
- (gethash "lang-backtrace" realgud:trepanpl-pat-hash))
-
-
-(set (make-local-variable 'bp-del-pat)
- (gethash "brkpt-del" realgud:trepanpl-pat-hash))
-
-(set (make-local-variable 'bp-enable-pat)
- (gethash "brkpt-enable" realgud:trepanpl-pat-hash))
-
-(set (make-local-variable 'bp-disable-pat)
- (gethash "brkpt-disable" realgud:trepanpl-pat-hash))
-
-(note "prompt matching")
-(set (make-local-variable 'prompt-pat)
- (gethash "prompt" realgud:trepanpl-pat-hash))
-(prompt-match "(trepanpl): ")
-(prompt-match "((trepanpl)): " nil "nested debugger prompt: %s")
-(setq prompt-str "trepanpl:")
-(assert-nil (loc-match prompt-str prompt-pat)
- (format "invalid prompt %s" prompt-str))
-
-(setq test-text "Breakpoint 2 set in /tmp/File/Basename.pm at line 215")
-
-(assert-t (numberp (bp-loc-match test-text))
- "basic breakpoint location")
-(assert-equal "/tmp/File/Basename.pm"
- (match-string (realgud-loc-pat-file-group helper-bps)
- test-text)
- "extract breakpoint file name"
- )
-(assert-equal "215"
- (match-string (realgud-loc-pat-line-group helper-bps)
- test-text)
- "extract breakpoint line number"
- )
-
-(setq test-text "Breakpoint 1 set in (eval 1177)[/Eval.pm:94] at line 5")
-(assert-t (numberp (bp-loc-match test-text)) "eval breakpoint location")
-(setq bps-pat
- (gethash "brkpt-set" realgud:trepanpl-pat-hash))
-(setq dbg-bt-pat
- (gethash "debugger-backtrace" realgud:trepanpl-pat-hash))
-(setq prompt-pat
- (gethash "prompt" realgud:trepanpl-pat-hash))
-(setq lang-bt-pat
- (gethash "lang-backtrace" realgud:trepanpl-pat-hash))
-
-(note "prompt")
-(prompt-match "(trepanpl): ")
-(prompt-match "((trepanpl)): " nil "nested debugger prompt: %s")
-
-(setq test-text "Breakpoint 1 set in /tmp/gcd.pl at line 9")
-
-(assert-t (numberp (loc-match test-text bps-pat))
- "basic breakpoint location")
-
-
-(assert-equal "/tmp/gcd.pl"
- (match-string (realgud-loc-pat-file-group
- bps-pat) test-text)
- "extract breakpoint file name")
-
-(assert-equal "9"
- (match-string (realgud-loc-pat-line-group
- bps-pat) test-text)
- "extract breakpoint line number")
-
-;; (note "breakpoint delete matching")
-;; (setq test-text "Deleted breakpoint 1.\n")
-;; (assert-t (numberp (loc-match test-text bp-del-pat)) "breakpoint delete
matching")
-
-(note "breakpoint enable matching")
-(setq test-text "Breakpoint 4 enabled.\n")
-(assert-t (numberp (loc-match test-text bp-enable-pat)) "breakpoint enable
matching")
-
-
-(note "breakpoint disable matching")
-(setq test-text "Breakpoint 2 disabled.\n")
-(assert-t (numberp (loc-match test-text bp-disable-pat)) "breakpoint disable
matching")
-
-(end-tests)
diff --git a/packages/realgud/test/test-regexp-zshdb.el
b/packages/realgud/test/test-regexp-zshdb.el
deleted file mode 100644
index 1ffecad..0000000
--- a/packages/realgud/test/test-regexp-zshdb.el
+++ /dev/null
@@ -1,118 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(load-file "../realgud/debugger/zshdb/init.el")
-(load-file "./regexp-helper.el")
-
-(declare-function loc-match 'realgud-helper)
-(declare-function prompt-match 'regexp-helper)
-(declare-function realgud-loc-pat-num 'realgud-regexp)
-(declare-function realgud-loc-pat-regexp 'realgud-regexp)
-(declare-function realgud-loc-pat-file-group 'realgud-regexp)
-(declare-function realgud-loc-pat-line-group 'realgud-regexp)
-(declare-function __FILE__ 'load-relative)
-
-(test-simple-start)
-
-(eval-when-compile
- (defvar file-group)
- (defvar frame-re)
- (defvar line-group)
- (defvar num-group)
- (defvar test-pos)
- (defvar prompt-pat)
- (defvar realgud:zshdb-pat-hash)
- (defvar realgud-pat-bt)
- (defvar test-s1)
- (defvar test-text)
- (defvar brkpt-del)
- (defvar bp-del-pat)
-)
-
-(set (make-local-variable 'bp-del-pat)
- (gethash "brkpt-del" realgud:zshdb-pat-hash))
-
-(setq prompt-pat (gethash "prompt" realgud:zshdb-pat-hash))
-(setq frame-pat (gethash "debugger-backtrace" realgud:zshdb-pat-hash))
-
-(set (make-local-variable 'bp-del-pat)
- (gethash "brkpt-del" realgud:zshdb-pat-hash))
-
-(set (make-local-variable 'bp-enable-pat)
- (gethash "brkpt-enable" realgud:zshdb-pat-hash))
-
-(set (make-local-variable 'bp-disable-pat)
- (gethash "brkpt-disable" realgud:zshdb-pat-hash))
-
-(note "zshdb prompt matching")
-(prompt-match "zshdb<10> " "10")
-(prompt-match "zshdb<(5)> " "5" "subshell prompt %s")
-(prompt-match "zshdb<<1>> " "1" "nested debug prompt %s")
-
-(note "zshdb frame matching")
-
-(note "debugger-backtrace")
-(setq test-s1
- "->0 in file `/etc/apparmor/functions' at line 24
-##1 /etc/apparmor/functions called from file `/etc/init.d/apparmor' at line 35
-##2 /etc/init.d/apparmor called from file `/usr/local/bin/zshdb' at line 129
-")
-(setq frame-re (realgud-loc-pat-regexp frame-pat))
-(setq num-group (realgud-loc-pat-num frame-pat))
-(setq file-group (realgud-loc-pat-file-group frame-pat))
-(setq line-group (realgud-loc-pat-line-group frame-pat))
-(assert-equal 0 (string-match frame-re test-s1))
-(assert-equal "0" (substring test-s1
- (match-beginning num-group)
- (match-end num-group)))
-(assert-equal "/etc/apparmor/functions"
- (substring test-s1
- (match-beginning file-group)
- (match-end file-group)))
-(assert-equal "24"
- (substring test-s1
- (match-beginning line-group)
- (match-end line-group)))
-(setq test-pos (match-end 0))
-
-(assert-equal 49 (string-match frame-re test-s1 test-pos))
-(assert-equal "1" (substring test-s1
- (match-beginning num-group)
- (match-end num-group)))
-(assert-equal "/etc/init.d/apparmor"
- (substring test-s1
- (match-beginning file-group)
- (match-end file-group)))
-(assert-equal "35"
- (substring test-s1
- (match-beginning line-group)
- (match-end line-group)))
-(setq test-pos (match-end 0))
-(assert-equal 128 (string-match frame-re test-s1 test-pos))
-(assert-equal "2" (substring test-s1
- (match-beginning num-group)
- (match-end num-group)))
-(assert-equal "/usr/local/bin/zshdb"
- (substring test-s1
- (match-beginning file-group)
- (match-end file-group)))
-(assert-equal "129"
- (substring test-s1
- (match-beginning line-group)
- (match-end line-group)))
-
-(note "breakpoint delete matching")
-(setq test-text "Deleted breakpoint 1\n")
-(assert-t (numberp (loc-match test-text bp-del-pat)) "breakpoint delete
matching")
-
-(note "breakpoint enable matching")
-(setq test-text "Breakpoint entry 4 enabled.\n")
-(assert-t (numberp (loc-match test-text bp-enable-pat)) "breakpoint enable
matching")
-
-
-(note "breakpoint disable matching")
-(setq test-text "Breakpoint entry 2 disabled.\n")
-(assert-t (numberp (loc-match test-text bp-disable-pat)) "breakpoint disable
matching")
-
-(end-tests)
diff --git a/packages/realgud/test/test-regexp.el
b/packages/realgud/test/test-regexp.el
deleted file mode 100644
index 0cdde95..0000000
--- a/packages/realgud/test/test-regexp.el
+++ /dev/null
@@ -1,79 +0,0 @@
-;; -*- lexical-binding:t -*-
-
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'load-relative)
-(require 'test-simple)
-(load-file "../realgud/common/buffer/command.el")
-(load-file "../realgud/debugger/trepan/init.el")
-(load-file "./regexp-helper.el")
-
-(declare-function cmdbuf-loc-match 'realgud-regexp)
-(declare-function make-realgud-cmdbuf-info 'realgud-regexp)
-(declare-function realgud-cmdbuf-info 'realgud-regexp)
-(declare-function realgud-cmdbuf-info-file-group 'realgud-regexp)
-(declare-function realgud-cmdbuf-info-line-group 'realgud-regexp)
-(declare-function realgud-loc-pat-file-group 'realgud-regexp)
-(declare-function realgud-loc-pat-line-group 'realgud-regexp)
-(declare-function realgud-loc-pat-regexp 'realgud-regexp)
-(declare-function __FILE__ 'load-relative)
-
-(test-simple-start)
-
-(eval-when-compile
- (defvar dbg-name)
- (defvar realgud-pat-hash)
- (defvar loc-pat)
- (defvar test-dbgr)
-)
-
-; Some setup usually done in setting up the buffer.
-; We customize this for the debugger trepan. Others may follow.
-; FIXME: encapsulate this.
-(setq dbg-name "trepan")
-(setq loc-pat (gethash "loc" (gethash dbg-name realgud-pat-hash)))
-
-(setq test-dbgr (make-realgud-cmdbuf-info
- :debugger-name dbg-name
- :loc-regexp (realgud-loc-pat-regexp loc-pat)
- :file-group (realgud-loc-pat-file-group loc-pat)
- :line-group (realgud-loc-pat-line-group loc-pat)))
-
-
-(let ((text ".. (./dbgr.rb:73)")
- (text2 "C> ((eval):1 via /tmp/eval2.rb:2)")
- (text3 "-- (<internal:prelude>:28 remapped prelude.rb:28)")
- (text4 "--
(/src/external-vcs/dbgrr/processor/command/info_subcmd/registers_subcmd/dfp.rb:2)\nrequire_relative
%w(.. .. base subsubcmd)\n")
- )
-
- (assert-t (numberp (cmdbuf-loc-match text test-dbgr)) "basic location")
- (assert-equal "./dbgr.rb"
- (match-string (realgud-cmdbuf-info-file-group test-dbgr)
- text) "extract file name")
- (assert-equal "73"
- (match-string (realgud-cmdbuf-info-line-group test-dbgr)
- text) "extract line number")
- (assert-t (numberp (cmdbuf-loc-match text4 test-dbgr)) "more complex
location")
-
-
- ;; Now try 'via'
- (assert-t (numberp (cmdbuf-loc-match text2 test-dbgr)) "basic 'via'
location")
- (assert-equal "/tmp/eval2.rb"
- (match-string (realgud-cmdbuf-info-file-group test-dbgr)
- text2)
- "extract via file name")
- (assert-equal "2" (match-string (realgud-cmdbuf-info-line-group test-dbgr)
- text2)
- "extract via line number")
-
- ;; Now try remap
- (assert-t (numberp (cmdbuf-loc-match text3 test-dbgr)) "basic 'via'
location")
-
- ;;
- (setq text "--> #0 METHOD Object#square(x) in file ./trepan.rb at line 73")
- (assert-nil (numberp (cmdbuf-loc-match text test-dbgr)) "unmatched location")
-
- )
-
-(end-tests)
diff --git a/packages/realgud/test/test-remake-core.el
b/packages/realgud/test/test-remake-core.el
deleted file mode 100644
index 1f76d22..0000000
--- a/packages/realgud/test/test-remake-core.el
+++ /dev/null
@@ -1,38 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(load-file "../realgud/debugger/remake/core.el")
-
-(declare-function __FILE__ 'load-relative)
-(declare-function remake-parse-cmd-args 'realgud-remake-core)
-(declare-function remake-suggest-Makefile 'realgud-remake-core)
-(declare-function remake-suggest-file-priority 'realgud-remake-core)
-
-(test-simple-start)
-
-(assert-equal (list "remake" (expand-file-name "Makefile")
- (list "-X" "-f" (expand-file-name "Makefile")))
- (remake-parse-cmd-args
- '("remake" "-X" "-f" "Makefile"))
- "remake-parse-cmd-args")
-
-(assert-equal "Makefile" (remake-suggest-Makefile) "remake-suggest-Makefile")
-
-(assert-equal 2 (remake-suggest-file-priority "foo")
- "remake-file-suggest-priority")
-(let ((buffer (get-file-buffer "Makefile.am")))
- (if buffer (kill-buffer buffer))
- (assert-equal 2 (remake-suggest-file-priority "Makefile.am"))
- (setq buffer (find-file-noselect "Makefile.am"))
- (assert-equal 5 (remake-suggest-file-priority "Makefile.am"))
- (kill-buffer buffer)
- (setq buffer (get-file-buffer "Makefile"))
- (if buffer (kill-buffer buffer))
- (assert-equal 6 (remake-suggest-file-priority "Makefile"))
- (setq buffer (find-file-noselect "Makefile"))
- (assert-equal 8 (remake-suggest-file-priority "Makefile"))
- (kill-buffer buffer)
- )
-
-(end-tests)
diff --git a/packages/realgud/test/test-remake.el
b/packages/realgud/test/test-remake.el
deleted file mode 100644
index f441932..0000000
--- a/packages/realgud/test/test-remake.el
+++ /dev/null
@@ -1,37 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(load-file "../realgud/common/core.el") ;; for realgud-exec-shell
-(load-file "../realgud/debugger/remake/remake.el")
-
-(eval-when-compile (defvar my-buf))
-
-(declare-function realgud:remake 'realgud:remake)
-(declare-function __FILE__ 'load-relative)
-
-(test-simple-start)
-
-(defun realgud-exec-shell (debugger-name script-filename program
- &optional no-reset &rest args)
- "Mock for realgud-exec-shell. We copy the part of the real realgud-exec-shell
-file-name-directory that was failing"
- (let ((cmdproc-buffer (get-buffer-create "foo"))
- (starting-directory
- (or (file-name-directory script-filename)
- default-directory "./")))
- (start-process "my-process" cmdproc-buffer "sleep" "10000")
- cmdproc-buffer
- )
- )
-
-(note "can deal with no Makefile name")
-;; If realgud:remake is successful we switch buffers
-(setq my-buf (current-buffer))
-;; FIXME:
-;; (realgud:remake "remake --debugger")
-;; (assert-t (not (eq (current-buffer) my-buf)))
-;; (delete-process "foo")
-;; (switch-to-buffer my-buf)
-
-(end-tests)
diff --git a/packages/realgud/test/test-send.el
b/packages/realgud/test/test-send.el
deleted file mode 100644
index 5337a41..0000000
--- a/packages/realgud/test/test-send.el
+++ /dev/null
@@ -1,69 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-
-(load-file "../realgud/common/send.el")
-(load-file "../realgud/common/regexp.el")
-(load-file "../realgud/debugger/trepan/init.el")
-
-(declare-function realgud-get-srcbuf 'realgud-buffer-source)
-(declare-function realgud-srcbuf-init 'realgud-buffer-source)
-(declare-function realgud-cmdbuf-init 'realgud-buffer-command)
-(declare-function realgud-command 'realgud-buffer-cmds)
-(declare-function realgud-expand-format 'realgud-send)
-
-(test-simple-start)
-
-(eval-when-compile
- (defvar temp-cmdbuf nil)
- (defvar realgud-pat-hash)
- (defvar file-name)
-)
-
-(defun setup ()
- (setq temp-cmdbuf (generate-new-buffer "*cmdbuf-test*"))
- (realgud-cmdbuf-init temp-cmdbuf "trepan" (gethash "trepan"
realgud-pat-hash))
- (realgud-srcbuf-init (current-buffer) temp-cmdbuf)
-)
-
-(defun tear-down()
- (kill-buffer temp-cmdbuf)
-)
-
-(dolist (str '("abc" "100%" "I feel %% today"))
- (assert-equal str (realgud-expand-format str "format no expand characters")))
-
-
-(assert-equal "line 5" (realgud-expand-format "line %p" 5)
- "format %l - with arg")
-(assert-equal "line " (realgud-expand-format "line %p")
- "format %l - without arg")
-
-(assert-equal "hi, rocky!"
- (realgud-expand-format "h%s!" "i, rocky")
- "format %s")
-
-(assert-equal "\"\\\"fake\\\" news\"!"
- (realgud-expand-format "%q!" "\"fake\" news"))
-
-(setup)
-;; Current buffer is now set up as a source buffer
-(setq file-name (buffer-file-name))
-(note "File formatting")
-(if (and file-name (realgud-get-srcbuf (current-buffer)))
- (dolist
- (pair
- (list
- (cons "%d" (file-name-directory file-name))
- (cons "%x" file-name)
- (cons "%X" (expand-file-name file-name))
- (cons "%f" "test-send.el")
- (cons "%F" "test-send")))
- (assert-equal (cdr pair) (realgud-expand-format (car pair)))))
-(tear-down)
-
-
-(assert-raises error (realgud-command "testing"))
-
-(end-tests)
diff --git a/packages/realgud/test/test-shortkey.el
b/packages/realgud/test/test-shortkey.el
deleted file mode 100644
index 5f599d9..0000000
--- a/packages/realgud/test/test-shortkey.el
+++ /dev/null
@@ -1,40 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(require 'load-relative)
-(load-file "../realgud/common/shortkey.el")
-(load-file "../realgud/common/buffer/command.el")
-(declare-function realgud-cmdbuf-init 'realgud-buffer-command)
-(declare-function realgud-shortkey-mode-setup 'realgud-shortkey)
-(declare-function realgud-get-short-key-mode-map 'realgud-shortkey)
-
-(eval-when-compile
- (defvar temp-cmdbuf)
- (defvar debugger-name)
- (defvar realgud-pat-hash)
- (defvar test-keymap)
- (defvar nodejs-short-key-mode-map)
-)
-
-(declare-function __FILE__ 'load-relative)
-
-(test-simple-start)
-
-(note "realgud-shortkey")
-(assert-raises error (realgud-shortkey-mode-setup))
-(assert-nil (realgud-get-short-key-mode-map (current-buffer)))
-
-(note "realgud-get-short-key-mode-map")
-
-(setq temp-cmdbuf (generate-new-buffer "*cmdbuf-test*"))
-(setq debugger-name "nodejs")
-(load-file "../realgud/debugger/nodejs/nodejs.el")
-(realgud-cmdbuf-init temp-cmdbuf debugger-name
- (gethash debugger-name realgud-pat-hash))
-(setq test-keymap (realgud-get-short-key-mode-map temp-cmdbuf))
-(assert-t (keymapp test-keymap)
- "realgud-get-short-key-mode-map returns keymap")
-(assert-equal test-keymap nodejs-short-key-mode-map
- "realgud-get-short-key-mode-map returns nodejs-short-key-mode-map")
-(end-tests)
diff --git a/packages/realgud/test/test-srcbuf.el
b/packages/realgud/test/test-srcbuf.el
deleted file mode 100644
index a910c42..0000000
--- a/packages/realgud/test/test-srcbuf.el
+++ /dev/null
@@ -1,72 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(load-file "../realgud/common/buffer/source.el")
-(load-file "../realgud/common/buffer/command.el")
-(load-file "../realgud/debugger/trepan/init.el")
-(load-file "../realgud/debugger/trepan/track-mode.el")
-
-(declare-function realgud-cmdbuf-init 'realgud-buffer-command)
-(declare-function realgud-srcbuf-init 'realgud-buffer-source)
-(declare-function __FILE__ 'load-relative)
-
-(declare-function realgud-srcbuf? 'realgud-buffer-source)
-(declare-function realgud-srcbuf-loc-p 'realgud-loc)
-(declare-function realgud-srcbuf-info-debugger-name 'realgud-loc)
-(declare-function realgud-srcbuf-info-cmdproc 'realgud-track)
-(declare-function realgud-srcbuf-init-or-update 'realgud-track)
-
-(test-simple-start)
-
-(eval-when-compile
- (defvar realgud-pat-hash)
- (defvar realgud-srcbuf-info)
- (defvar temp-srcbuf)
- (defvar test-filename)
-)
-
-(defvar temp-cmdbuf nil)
-(defun tear-down()
- (kill-buffer temp-cmdbuf)
- (kill-buffer temp-srcbuf)
-)
-
-(defun setup ()
- (setq temp-cmdbuf (generate-new-buffer "*cmdbuf-test*"))
- (realgud-cmdbuf-init temp-cmdbuf "trepan" (gethash "trepan"
realgud-pat-hash))
- (setq temp-srcbuf (find-file-noselect "./gcd.rb"))
-)
-
-(assert-nil (realgud-srcbuf? (current-buffer)) "realgud-srcbuf? before init")
-(setq realgud-srcbuf-info nil)
-(assert-nil (realgud-srcbuf? (current-buffer))
- "realgud-srcbuf? before init - but nil")
-
-(note "realgud-srcbuf-init")
-(setup)
-(realgud-srcbuf-init temp-srcbuf temp-cmdbuf)
-
-(assert-t (realgud-srcbuf? temp-srcbuf)
- "realgud-srcbuf? after init")
-
-(assert-equal temp-cmdbuf
- (with-current-buffer temp-srcbuf
- (realgud-srcbuf-info-cmdproc realgud-srcbuf-info)))
-
-(realgud-srcbuf-init-or-update temp-srcbuf temp-cmdbuf)
-(assert-equal temp-cmdbuf
- (with-current-buffer temp-srcbuf
- (realgud-srcbuf-info-cmdproc realgud-srcbuf-info))
- "realgud-srcbuf-init-or-update - update")
-
-(kill-buffer temp-srcbuf)
-(setq temp-srcbuf (find-file-noselect "./gcd.rb"))
-(realgud-srcbuf-init-or-update temp-srcbuf temp-cmdbuf)
-(assert-equal temp-cmdbuf
- (with-current-buffer temp-srcbuf
- (realgud-srcbuf-info-cmdproc realgud-srcbuf-info))
- "realgud-srcbuf-init-or-update - init")
-(tear-down)
-
-(end-tests)
diff --git a/packages/realgud/test/test-track-mode.el
b/packages/realgud/test/test-track-mode.el
deleted file mode 100644
index 7128e6d..0000000
--- a/packages/realgud/test/test-track-mode.el
+++ /dev/null
@@ -1,66 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(require 'comint)
-(load-file "../realgud/debugger/trepan/trepan.el")
-(load-file "../realgud/common/buffer/command.el")
-(load-file "../realgud/common/track-mode.el")
-(load-file "../realgud/common/backtrace-mode.el")
-
-(declare-function realgud-cmdbuf-init 'realgud-buffer-command)
-(declare-function realgud-srcbuf-init 'realgud-buffer-source)
-(declare-function __FILE__ 'load-relative)
-
-(test-simple-start)
-
-(defvar realgud-pat-hash)
-(defvar temp-cmdbuf nil)
-
-(declare-function trepan-track-mode 'realgud:trepan)
-(declare-function realgud-track-mode-vars 'realgud-track-mode)
-(declare-function realgud-backtrace-mode 'realgud-backtrace-mode)
-
-(defun setup ()
- (setq temp-cmdbuf (generate-new-buffer "*cmdbuf-test*"))
- ;; (start-process "test-track-mode" temp-cmdbuf nil)
- (start-process "test-track-mode" temp-cmdbuf "/bin/sh")
-
- (realgud-cmdbuf-init temp-cmdbuf "trepan" (gethash "trepan"
realgud-pat-hash))
- (with-current-buffer temp-cmdbuf
- (comint-mode)
- (trepan-track-mode 't))
- (realgud-srcbuf-init (current-buffer) temp-cmdbuf)
-)
-
-(defun tear-down()
- (kill-buffer temp-cmdbuf)
-)
-
-(setup)
-
-;; Current buffer is now set up as a source buffer
-
-(with-current-buffer temp-cmdbuf
- (switch-to-buffer temp-cmdbuf)
- (dolist (fn '(realgud-track-hist-newest
- realgud-track-hist-newer
- realgud-track-hist-older
- realgud-track-hist-oldest))
- (assert-nil (null (where-is-internal fn))
- (format "track-functions-mapped-to-keys %s" fn))
- )
- (switch-to-buffer nil)
- )
-
-(note "track-mode-vars")
-(makunbound 'foo-track-mode)
-(makunbound 'foo-track-mode-map)
-(realgud-track-mode-vars "foo")
-(dolist (var '("foo-track-mode-map" "foo-track-mode"))
- (let ((var-sym (intern var)))
- (assert-t (boundp var-sym))
- (assert-t (stringp (get var-sym 'variable-documentation)))
- ))
-
-(end-tests)
diff --git a/packages/realgud/test/test-track.el
b/packages/realgud/test/test-track.el
deleted file mode 100644
index b8882ca..0000000
--- a/packages/realgud/test/test-track.el
+++ /dev/null
@@ -1,196 +0,0 @@
-;; -*- lexical-binding:t -*-
-
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(load-file "../realgud/common/track.el")
-(load-file "../realgud/common/core.el")
-(load-file "../realgud/common/loc.el")
-(load-file "../realgud/common/utils.el")
-(load-file "../realgud/debugger/trepan/core.el")
-(load-file "../realgud/debugger/trepan/init.el")
-(load-file "../realgud/debugger/pdb/core.el")
-(load-file "../realgud/debugger/pdb/init.el")
-(load-file "../realgud/debugger/pdb/track-mode.el")
-
-(declare-function __FILE__ 'load-relative)
-(declare-function realgud-cmdbuf-init
'realgud-buffer-command)
-(declare-function realgud-loc-filename 'realgud-loc)
-(declare-function realgud-loc-p 'realgud-loc)
-(declare-function realgud-loc-line-number 'realgud-loc)
-(declare-function realgud:track-from-region 'realgud-track)
-(declare-function realgud-track-loc 'realgud-track)
-(declare-function realgud-track-loc-remaining 'realgud-track)
-(declare-function realgud-track-selected-frame 'realgud-track)
-(declare-function realgud-track-termination? 'realgud-track)
-(declare-function realgud:get-eval-output 'realgud-track)
-(declare-function realgud:get-output-command 'realgud-track)
-(declare-function realgud:eval-command-p 'realgud-track)
-(declare-function realgud-set-command-name-hash-to-buffer-local 'realgud-track)
-(declare-function realgud:truncate-eval-message 'realgud-track)
-(declare-function realgud:track-add-breakpoint 'realgud-track)
-(declare-function realgud-track-bp-loc 'realgud-track)
-(declare-function realgud:track-remove-breakpoints 'realgud-track)
-
-
-(test-simple-start)
-
-(eval-when-compile
- (defvar bp-loc)
- (defvar bp-num)
- (defvar debugger-bp-output)
- (defvar debugger-output)
- (defvar line-number)
- (defvar realgud-command-name-hash)
- (defvar realgud-pat-hash)
- (defvar test-buffer)
- (defvar test-command-hash)
- (defvar test-command-name-hash)
- (defvar test-filename)
-)
-
-;; Some setup usually done in setting up the buffer.
-;; We customize this for the debugger trepan. Others may follow.
-;; FIXME: encapsulate this.
-(makunbound 'realgud-cmdbuf-info)
-
-;; FIXME/WARNING the below is customized for trepan
-(realgud-cmdbuf-init (current-buffer) "trepan"
- (gethash "trepan" realgud-pat-hash))
-
-(setq test-filename (symbol-file 'test-simple))
-(setq line-number 7)
-(setq debugger-output (format "-> (%s:%d)\nrequire 'foo'\n(trepan):\n"
- test-filename line-number))
-(let ((loc (realgud-track-loc debugger-output nil)))
- (assert-t (realgud-loc-p loc) "loc extracted")
- (assert-equal "(trepan):\n"
- (realgud-track-loc-remaining debugger-output)
- "loc-remaining")
- (assert-equal test-filename (realgud-loc-filename loc)
- "loc filename extracted")
- (assert-equal line-number (realgud-loc-line-number loc)
- "loc line-number extracted")
- )
-
-(note "realgud-track-selected-frame")
-(setq debugger-output "up
---> #1 TOP Object#<top /usr/local/bin/irb> in file /usr/local/bin/irb at line 9
- (/usr/local/bin/irb:9 @11)
-require irb'
-")
-(assert-equal 1 (realgud-track-selected-frame debugger-output))
-
-(setq debugger-output "
---> #0 TOP Object#<top /usr/local/bin/irb> in file /usr/local/bin/irb at line 9
- (/usr/local/bin/irb:9 @11)
-require irb'
-")
-(assert-equal 0 (realgud-track-selected-frame debugger-output))
-
-(setq debugger-output "
-<- (<internal:lib/rubygems/custom_require>:38 remapped
/usr/local/lib/ruby/gems/1.9.1/gems/trepanning-0.1.3.dev/data/custom_require.rb:38
@16)
-R=> false
-end
-")
-(assert-nil (realgud-track-selected-frame debugger-output))
-
-
-(note "realgud-track-termination?")
-(setq debugger-output "-- (/usr/local/bin/irb:9 @2)
-require 'irb'
-")
-(assert-nil (realgud-track-termination? debugger-output))
-(setq debugger-output "Really quit? (N/y) y
-trepan: That's all, folks...
-")
-(assert-t (realgud-track-termination? debugger-output))
-
-
-(note "realgud:get-eval-output")
-(assert-equal "'cow'" (realgud:get-eval-output "eval 'cow'\n'cow'\n(pdb)"))
-(assert-equal "" (realgud:get-eval-output "weird output"))
-
-(note "realgud:get-output-command")
-(assert-equal "eval bang" (realgud:get-output-command "eval bang\noutput"))
-(assert-equal "" (realgud:get-output-command ""))
-
-(note "realgud:eval-command-p")
-(setq test-command-name-hash (make-hash-table :test 'equal))
-(set (make-local-variable 'realgud-command-name-hash) test-command-name-hash)
-
-;; We haven't set "eval" in command-name-hash so this should fail
-(assert-nil (realgud:eval-command-p "eval 'cow'\n'cow'\n(pdb)"))
-
-(puthash "eval" "eval" test-command-name-hash)
-(assert-t (realgud:eval-command-p "eval 'cow'\n'cow'\n(pdb)"))
-(assert-nil (realgud:eval-command-p "next 1"))
-
-(note "realgud-set-command-name-hash-to-buffer-local")
-(setq test-command-hash (make-hash-table :test 'equal))
-(puthash "eval" "!%s" test-command-hash)
-(realgud-set-command-name-hash-to-buffer-local test-command-hash)
-(assert-equal "!" (gethash "eval" (buffer-local-value
'realgud-command-name-hash (current-buffer))))
-
-(note "realgud:truncate-eval-message")
-(let ((realgud-eval-message-print-length 500))
- (assert-equal (realgud:truncate-eval-message (make-string 501 ?x))
(make-string 500 ?x)))
-(let ((realgud-eval-message-print-length 500))
- (assert-equal (realgud:truncate-eval-message "cat") "cat"))
-
-
-(note "realgud:track-remove-breakpoints")
-(with-temp-file "test_file.py"
- (insert "if 1:\n x = x + 1\n"))
-
-(setq test-buffer (find-file "test_file.py"))
-(realgud-cmdbuf-init test-buffer "pdb"
- (gethash "pdb" realgud-pat-hash))
-
-(setq bp-num 1)
-(setq debugger-bp-output (format "Breakpoint %d at %s:%d\n"
- bp-num buffer-file-name 1))
-
-(setq debugger-bp-delete-output (format "Deleted breakpoint %d at %s:%d\n"
- bp-num buffer-file-name 1))
-(save-excursion
- (let ((num-overlays (length (overlays-in 0 (point-max)))))
- (realgud:track-add-breakpoint debugger-bp-output nil test-buffer)
- (assert-equal (+ 1 num-overlays) (length (overlays-in 0 (point-max))))
- (realgud:track-remove-breakpoints debugger-bp-delete-output nil
test-buffer)
- (assert-equal num-overlays (length (overlays-in 0 (point-max))))))
-(kill-buffer "test_file.py")
-(delete-file "test_file.py")
-
-;; (setq debugger-bp-output (format "Breakpoint %d set at line %d\n\tin file
%s.\n"
-;; bp-num line-number test-filename))
-;; (setq bp-loc (realgud-track-bp-loc debugger-bp-output nil))
-;; (setq bp-num 2)
-
-;; (specify "bp-loc extracted"
-;; (message "output: %s" debugger-bp-output)
-;; (message "bp-loc: %s" bp-loc)
-;; (message "bp-num: %d" bp-num)
-;; (assert-t (realgud-loc-p bp-loc))
-;; (assert-equal bp-num (realgud-loc-num bp-loc)))
-
-;; (specify "realgud-track-divert-prompt"
-;; (realgud-cmdbuf-info-divert-output?= 't)
-;; (setq realgud-track-divert-string "")
-;; (setq text
-;; "--> #0 TOP Object#<top /usr/local/bin/irb> in file
/usr/local/bin/irb at line 9\n(trepan): ")
-;; (setq realgud-last-output-start (point-max))
-;; (realgud-track-divert-prompt text (current-buffer) (point-max))
-;; (assert-equal "--> #0 TOP Object#<top /usr/local/bin/irb> in file
/usr/local/bin/irb at line 9\n"
-;; realgud-track-divert-string)
-;; (assert-equal nil (realgud-sget 'cmdbuf-info 'divert-output?))
-;; )
-
-(makunbound 'realgud-cmdbuf-info)
-(assert-raises error
- (realgud:track-from-region (point-min)
- (point-max))
- "invalid cmdbuf")
-
-(end-tests)
diff --git a/packages/realgud/test/test-trepan2.el
b/packages/realgud/test/test-trepan2.el
deleted file mode 100644
index 6197357..0000000
--- a/packages/realgud/test/test-trepan2.el
+++ /dev/null
@@ -1,45 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(load-file "../realgud/debugger/trepan2/trepan2.el")
-(load-file "../realgud/debugger/trepan2/core.el")
-(load-file "../realgud.el")
-
-(declare-function trepan2-parse-cmd-args 'realgud:trepan2)
-(declare-function realgud:trepan2-find-file 'realgud:trepan2-core)
-(declare-function __FILE__ 'load-relative)
-
-
-(test-simple-start)
-
-(note "trepan2-parse-cmd-args")
-
-(assert-equal '(nil ("trepan2") ("foo") nil)
- (trepan2-parse-cmd-args '("trepan2" "foo")))
-(assert-equal '(nil ("trepan2" "-n") ("foo") nil)
- (trepan2-parse-cmd-args '("trepan2" "-n" "foo")))
-(assert-equal '(("/usr/bin/python") ("trepan2" "--different")
- ("foo") nil)
- (trepan2-parse-cmd-args
- '("/usr/bin/python" "trepan2"
- "--different" "foo")))
-(assert-equal '(nil ("program.py") ("foo") nil)
- (trepan2-parse-cmd-args '("program.py" "foo")))
-(assert-equal '(nil ("trepan2") ("program.py" "foo") nil)
- (trepan2-parse-cmd-args
- '("trepan2" "program.py" "foo")))
-
-(note "realgud:trepan2-find-file")
-(assert-nil (realgud:trepan2-find-file "<string>")
- "Should ignore psuedo file")
-
-(eval-when-compile
- (defvar test-python-file))
-
-(set (make-local-variable 'test-python-file)
- (concat (file-name-directory (__FILE__)) "gcd.py"))
-(assert-equal test-python-file (realgud:trepan2-find-file test-python-file)
- "Should ignore psuedo file")
-
-(end-tests)
diff --git a/packages/realgud/test/test-trepan3k.el
b/packages/realgud/test/test-trepan3k.el
deleted file mode 100644
index 758ad86..0000000
--- a/packages/realgud/test/test-trepan3k.el
+++ /dev/null
@@ -1,37 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(load-file "../realgud/debugger/trepan3k/trepan3k.el")
-(declare-function trepan3k-parse-cmd-args 'realgud:trepan3k)
-(declare-function __FILE__ 'require-relative)
-
-(test-simple-start)
-
-(note "trepan3k-parse-cmd-args")
-
-(assert-equal '(nil ("trepan3k") ("foo") nil)
- (trepan3k-parse-cmd-args '("trepan3k" "foo")))
-(assert-equal '(nil ("trepan3k" "-n") ("foo") nil)
- (trepan3k-parse-cmd-args '("trepan3k" "-n" "foo")))
-(assert-equal '(nil ("trepan3k" "--annotate=1") ("foo") t)
- (trepan3k-parse-cmd-args
- '("trepan3k" "--annotate=1" "foo")))
-(assert-equal '(nil ("mytrepan3k" "--annotate=1") ("foo") t)
- (trepan3k-parse-cmd-args
- '("mytrepan3k" "--annotate=1" "foo")))
-(assert-equal '(("python") ("trepan3k" "--annotate") ("1" "foo") t)
- (trepan3k-parse-cmd-args
- '("python" "trepan3k" "--annotate" "1" "foo")))
-(assert-equal '(("/usr/bin/python") ("trepan3k" "--different")
- ("foo") nil)
- (trepan3k-parse-cmd-args
- '("/usr/bin/python" "trepan3k"
- "--different" "foo")))
-(assert-equal '(nil ("program.py") ("foo") nil)
- (trepan3k-parse-cmd-args '("program.py" "foo")))
-(assert-equal '(nil ("trepan3k") ("program.py" "foo") nil)
- (trepan3k-parse-cmd-args
- '("trepan3k" "program.py" "foo")))
-
-(end-tests)
diff --git a/packages/realgud/test/test-trepanpl.el
b/packages/realgud/test/test-trepanpl.el
deleted file mode 100644
index 6b5c807..0000000
--- a/packages/realgud/test/test-trepanpl.el
+++ /dev/null
@@ -1,50 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(load-file "../realgud/common/buffer/command.el")
-(load-file "../realgud/debugger/trepan.pl/trepanpl.el")
-
-(eval-when-compile (defvar test:run-process-save))
-
-(declare-function realgud:trepanpl-parse-cmd-args 'realgud:trepanpl)
-(declare-function realgud:trepan.pl 'realgud:trepanpl)
-(declare-function __FILE__ 'require-relative)
-
-(test-simple-start)
-
-;; Save value realgud:run-process and change it to something we want
-(setq test:run-process-save (symbol-function 'realgud:run-process))
-(defun realgud:run-process(debugger-name script-filename cmd-args
- minibuf-history
- &optional no-reset)
- "Fake realgud:run-process used in testing"
- (note
- (format "%s %s %s" debugger-name script-filename cmd-args))
- (assert-equal "trepan.pl" debugger-name "debugger name gets passed")
- (let ((expanded-name (expand-file-name "./gcd.pl")))
- (assert-equal expanded-name script-filename "file name check")
- (assert-equal (list "-I" (expand-file-name ".") expanded-name "3" "5")
- (cdr cmd-args) "command args listified")
- )
- nil ;; Make sure trepanpl doesn't try to do anything with cmdbuf
- )
-
-(note "realgud:trepanpl-parse-cmd-args")
-(assert-equal (list nil '("trepan.pl") '("foo"))
- (realgud:trepanpl-parse-cmd-args '("trepan.pl" "foo")))
-(assert-equal (list '("perl5.8") '("trepan.pl") '("foo"))
- (realgud:trepanpl-parse-cmd-args '("perl5.8" "trepan.pl" "foo")))
-(assert-equal (list nil '("trepan.pl") '("program.pl" "foo"))
- (realgud:trepanpl-parse-cmd-args
- '("trepan.pl" "program.pl" "foo")))
-(assert-equal (list nil '("trepan.pl") (list (expand-file-name "gcd.pl")
"foo"))
- (realgud:trepanpl-parse-cmd-args
- '("trepan.pl" "gcd.pl" "foo")))
-
-(realgud:trepan.pl "trepanpl -I . ./gcd.pl 3 5")
-
-;; Restore the old value of realgud:run-process
-(fset 'realgud:run-process test:run-process-save)
-
-(end-tests)
diff --git a/packages/realgud/test/test-utils.el
b/packages/realgud/test/test-utils.el
deleted file mode 100644
index 3fc0f42..0000000
--- a/packages/realgud/test/test-utils.el
+++ /dev/null
@@ -1,53 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(require 'comint)
-(require 'eshell)
-(require 'shell)
-
-(load-file "../realgud/common/utils.el")
-
-(declare-function realgud:flatten 'realgud-utils)
-(declare-function realgud:strip 'realgud-regexp)
-(declare-function __FILE__ 'load-relative)
-(declare-function realgud:canonic-major-mode 'realgud-utils)
-(declare-function realgud:join-string 'realgud-utils)
-
-(test-simple-start)
-
-(eval-when-compile
- (defvar test-realgud:features)
-)
-
-(note "realgud:strip")
-(assert-equal "abc" (realgud:strip "abc"))
-(assert-equal "def" (realgud:strip "\n def\t "))
-
-(note "realgud:join-string")
-(assert-equal "a b c" (realgud:join-string '("a" "b" "c") " "))
-
-(note "realgud:flatten")
-(assert-equal '(abc) (realgud:flatten '(abc)))
-(assert-equal '(abc def h i j) (realgud:flatten '(abc (def (h) i) j)))
-
-(note "realgud:canonic-major-mode")
-
-(assert-raises error (realgud:canonic-major-mode)
- "Not in eshell, comint or shell-mode")
-
-(with-temp-buffer
- (comint-mode)
- (assert-equal 'comint (realgud:canonic-major-mode)))
-
-(with-temp-buffer
- (eshell-mode)
- (assert-equal 'eshell (realgud:canonic-major-mode)))
-
-;; (with-temp-buffer
-;; (start-process "bogus" (current-buffer) "sleep" "1")
-;; (shell-mode)
-;; (assert-equal 'comint (realgud:canonic-major-mode))
-;; )
-
-(end-tests)
diff --git a/packages/realgud/test/test-zshdb.el
b/packages/realgud/test/test-zshdb.el
deleted file mode 100644
index a908777..0000000
--- a/packages/realgud/test/test-zshdb.el
+++ /dev/null
@@ -1,60 +0,0 @@
-;; Press C-x C-e at the end of the next line to run this file test
non-interactively
-;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
(locate-library "test-simple.elc")) buffer-file-name)
-
-(require 'test-simple)
-(load-file "../realgud/debugger/zshdb/zshdb.el")
-(load-file "../realgud/common/core.el")
-
-(declare-function realgud:expand-file-name-if-exists 'realgud-core)
-
-(eval-when-compile
- (defvar test:run-process-save)
- (defvar realgud:zshdb-minibuffer-history)
- )
-
-(declare-function zshdb-parse-cmd-args 'realgud:zshdb)
-(declare-function zshdb-suggest-invocation 'realgud:zshdb)
-(declare-function realgud:zshdb 'realgud:zshdb)
-(declare-function __FILE__ 'require-relative)
-
-(test-simple-start)
-(make-local-variable 'realgud:zshdb-minibuffer-history)
-(setq realgud:zshdb-minibuffer-history nil)
-
-;; Save value realgud:run-process and change it to something we want
-(setq test:run-process-save (symbol-function 'realgud:run-process))
-(defun realgud:run-process(debugger-name script-filename cmd-args
- minibuf-history
- &optional no-reset)
- "Fake realgud:run-process used in testing"
- (note
- (format "%s %s %s" debugger-name script-filename cmd-args))
- (assert-equal "zshdb" debugger-name "debugger name gets passed")
- (let ((expanded-name
- (realgud:expand-file-name-if-exists "./gcd.sh")))
- (assert-equal expanded-name script-filename "file name check")
- (assert-equal (list expanded-name "3" "5")
- (cdr cmd-args) "command args listified")
- )
- (current-buffer)
- )
-
-(note "zshdb-parse-cmd-args")
-(assert-equal (list nil '("zshdb")
- (list (realgud:expand-file-name-if-exists "foo")) nil)
- (zshdb-parse-cmd-args '("zshdb" "foo")))
-(assert-equal (list nil '("zshdb")
- (list (realgud:expand-file-name-if-exists "program.sh")
- "foo") nil)
- (zshdb-parse-cmd-args
- '("zshdb" "program.sh" "foo")))
-
-(with-current-buffer (find-file "gcd.sh")
- (shell-script-mode)
- (assert-matches "zshdb .*gcd.sh$" (zshdb-suggest-invocation "zshdb")))
-
-(realgud:zshdb "zshdb ./gcd.sh 3 5")
-;; Restore the old value of realgud:run-process
-(fset 'realgud:run-process test:run-process-save)
-
-(end-tests)