Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

removed .svn dirs

  • Loading branch information...
commit ee964a4037ce2339a4177d8c5a4c33962e8deae4 1 parent a102487
@mark-moseley mark-moseley authored
Showing with 0 additions and 9,311 deletions.
  1. +0 −2  emacs/.svn/README.txt
  2. +0 −10 emacs/.svn/dir-prop-base
  3. +0 −10 emacs/.svn/dir-props
  4. 0  emacs/.svn/empty-file
  5. +0 −233 emacs/.svn/entries
  6. +0 −1  emacs/.svn/format
  7. +0 −1  emacs/.svn/prop-base/Makefile.am.svn-base
  8. +0 −5 emacs/.svn/prop-base/rdebug-annotate.el.svn-base
  9. +0 −5 emacs/.svn/prop-base/rdebug-breaks.el.svn-base
  10. +0 −5 emacs/.svn/prop-base/rdebug-cmd.el.svn-base
  11. +0 −5 emacs/.svn/prop-base/rdebug-core.el.svn-base
  12. +0 −5 emacs/.svn/prop-base/rdebug-dbg.el.svn-base
  13. +0 −5 emacs/.svn/prop-base/rdebug-error.el.svn-base
  14. +0 −1  emacs/.svn/prop-base/rdebug-fns.el.svn-base
  15. +0 −5 emacs/.svn/prop-base/rdebug-frames.el.svn-base
  16. +0 −5 emacs/.svn/prop-base/rdebug-gud.el.svn-base
  17. +0 −5 emacs/.svn/prop-base/rdebug-help.el.svn-base
  18. +0 −1  emacs/.svn/prop-base/rdebug-info.el.svn-base
  19. +0 −5 emacs/.svn/prop-base/rdebug-layouts.el.svn-base
  20. +0 −5 emacs/.svn/prop-base/rdebug-locring.el.svn-base
  21. +0 −5 emacs/.svn/prop-base/rdebug-output.el.svn-base
  22. +0 −5 emacs/.svn/prop-base/rdebug-regexp.el.svn-base
  23. +0 −5 emacs/.svn/prop-base/rdebug-secondary.el.svn-base
  24. +0 −5 emacs/.svn/prop-base/rdebug-shortkey.el.svn-base
  25. +0 −5 emacs/.svn/prop-base/rdebug-source.el.svn-base
  26. +0 −5 emacs/.svn/prop-base/rdebug-track.el.svn-base
  27. +0 −5 emacs/.svn/prop-base/rdebug-varbuf.el.svn-base
  28. +0 −5 emacs/.svn/prop-base/rdebug-vars.el.svn-base
  29. +0 −5 emacs/.svn/prop-base/rdebug-watch.el.svn-base
  30. +0 −1  emacs/.svn/prop-base/rdebug.el.svn-base
  31. +0 −1  emacs/.svn/props/Makefile.am.svn-work
  32. +0 −5 emacs/.svn/props/rdebug-annotate.el.svn-work
  33. +0 −5 emacs/.svn/props/rdebug-breaks.el.svn-work
  34. +0 −5 emacs/.svn/props/rdebug-cmd.el.svn-work
  35. +0 −5 emacs/.svn/props/rdebug-core.el.svn-work
  36. +0 −5 emacs/.svn/props/rdebug-dbg.el.svn-work
  37. +0 −5 emacs/.svn/props/rdebug-error.el.svn-work
  38. +0 −1  emacs/.svn/props/rdebug-fns.el.svn-work
  39. +0 −5 emacs/.svn/props/rdebug-frames.el.svn-work
  40. +0 −5 emacs/.svn/props/rdebug-gud.el.svn-work
  41. +0 −5 emacs/.svn/props/rdebug-help.el.svn-work
  42. +0 −1  emacs/.svn/props/rdebug-info.el.svn-work
  43. +0 −5 emacs/.svn/props/rdebug-layouts.el.svn-work
  44. +0 −5 emacs/.svn/props/rdebug-locring.el.svn-work
  45. +0 −5 emacs/.svn/props/rdebug-output.el.svn-work
  46. +0 −5 emacs/.svn/props/rdebug-regexp.el.svn-work
  47. +0 −5 emacs/.svn/props/rdebug-secondary.el.svn-work
  48. +0 −5 emacs/.svn/props/rdebug-shortkey.el.svn-work
  49. +0 −5 emacs/.svn/props/rdebug-source.el.svn-work
  50. +0 −5 emacs/.svn/props/rdebug-track.el.svn-work
  51. +0 −5 emacs/.svn/props/rdebug-varbuf.el.svn-work
  52. +0 −5 emacs/.svn/props/rdebug-vars.el.svn-work
  53. +0 −5 emacs/.svn/props/rdebug-watch.el.svn-work
  54. +0 −1  emacs/.svn/props/rdebug.el.svn-work
  55. +0 −130 emacs/.svn/text-base/Makefile.am.svn-base
  56. +0 −385 emacs/.svn/text-base/rdebug-annotate.el.svn-base
  57. +0 −407 emacs/.svn/text-base/rdebug-breaks.el.svn-base
  58. +0 −92 emacs/.svn/text-base/rdebug-cmd.el.svn-base
  59. +0 −502 emacs/.svn/text-base/rdebug-core.el.svn-base
  60. +0 −62 emacs/.svn/text-base/rdebug-dbg.el.svn-base
  61. +0 −79 emacs/.svn/text-base/rdebug-error.el.svn-base
  62. +0 −111 emacs/.svn/text-base/rdebug-fns.el.svn-base
  63. +0 −230 emacs/.svn/text-base/rdebug-frames.el.svn-base
  64. +0 −242 emacs/.svn/text-base/rdebug-gud.el.svn-base
  65. +0 −104 emacs/.svn/text-base/rdebug-help.el.svn-base
  66. +0 −83 emacs/.svn/text-base/rdebug-info.el.svn-base
  67. +0 −180 emacs/.svn/text-base/rdebug-layouts.el.svn-base
  68. +0 −118 emacs/.svn/text-base/rdebug-locring.el.svn-base
  69. +0 −106 emacs/.svn/text-base/rdebug-output.el.svn-base
  70. +0 −118 emacs/.svn/text-base/rdebug-regexp.el.svn-base
  71. +0 −260 emacs/.svn/text-base/rdebug-secondary.el.svn-base
  72. +0 −175 emacs/.svn/text-base/rdebug-shortkey.el.svn-base
  73. +0 −568 emacs/.svn/text-base/rdebug-source.el.svn-base
  74. +0 −392 emacs/.svn/text-base/rdebug-track.el.svn-base
  75. +0 −150 emacs/.svn/text-base/rdebug-varbuf.el.svn-base
  76. +0 −125 emacs/.svn/text-base/rdebug-vars.el.svn-base
  77. +0 −132 emacs/.svn/text-base/rdebug-watch.el.svn-base
  78. +0 −326 emacs/.svn/text-base/rdebug.el.svn-base
  79. +0 −2  emacs/test/.svn/README.txt
  80. 0  emacs/test/.svn/empty-file
  81. +0 −103 emacs/test/.svn/entries
  82. +0 −1  emacs/test/.svn/format
  83. +0 −1  emacs/test/.svn/prop-base/elk-test.el.svn-base
  84. +0 −1  emacs/test/.svn/prop-base/test-annotate.el.svn-base
  85. +0 −1  emacs/test/.svn/prop-base/test-cmd.el.svn-base
  86. +0 −1  emacs/test/.svn/prop-base/test-core.el.svn-base
  87. +0 −1  emacs/test/.svn/prop-base/test-fns.el.svn-base
  88. +0 −1  emacs/test/.svn/prop-base/test-frames.el.svn-base
  89. +0 −1  emacs/test/.svn/prop-base/test-gud.el.svn-base
  90. +0 −1  emacs/test/.svn/prop-base/test-indent.el.svn-base
  91. +0 −1  emacs/test/.svn/prop-base/test-regexp.el.svn-base
  92. +0 −1  emacs/test/.svn/prop-base/test-shortkey.el.svn-base
  93. +0 −1  emacs/test/.svn/props/elk-test.el.svn-work
  94. +0 −1  emacs/test/.svn/props/test-annotate.el.svn-work
  95. +0 −1  emacs/test/.svn/props/test-cmd.el.svn-work
  96. +0 −1  emacs/test/.svn/props/test-core.el.svn-work
  97. +0 −1  emacs/test/.svn/props/test-fns.el.svn-work
  98. +0 −1  emacs/test/.svn/props/test-frames.el.svn-work
  99. +0 −1  emacs/test/.svn/props/test-gud.el.svn-work
  100. +0 −1  emacs/test/.svn/props/test-indent.el.svn-work
  101. +0 −1  emacs/test/.svn/props/test-regexp.el.svn-work
  102. +0 −1  emacs/test/.svn/props/test-shortkey.el.svn-work
  103. +0 −242 emacs/test/.svn/text-base/elk-test.el.svn-base
  104. +0 −103 emacs/test/.svn/text-base/test-annotate.el.svn-base
  105. +0 −116 emacs/test/.svn/text-base/test-cmd.el.svn-base
  106. +0 −104 emacs/test/.svn/text-base/test-core.el.svn-base
  107. +0 −65 emacs/test/.svn/text-base/test-fns.el.svn-base
  108. +0 −62 emacs/test/.svn/text-base/test-frames.el.svn-base
  109. +0 −35 emacs/test/.svn/text-base/test-gud.el.svn-base
  110. +0 −58 emacs/test/.svn/text-base/test-indent.el.svn-base
  111. +0 −144 emacs/test/.svn/text-base/test-regexp.el.svn-base
  112. +0 −61 emacs/test/.svn/text-base/test-shortkey.el.svn-base
  113. +0 −2  lib/.svn/README.txt
  114. 0  lib/.svn/empty-file
  115. +0 −31 lib/.svn/entries
  116. +0 −1  lib/.svn/format
  117. +0 −1  lib/.svn/prop-base/ChangeLog.svn-base
  118. +0 −1  lib/.svn/prop-base/ruby-debug-base.rb.svn-base
  119. +0 −1  lib/.svn/props/ChangeLog.svn-work
  120. +0 −1  lib/.svn/props/ruby-debug-base.rb.svn-work
  121. +0 −1,065 lib/.svn/text-base/ChangeLog.svn-base
  122. +0 −298 lib/.svn/text-base/ruby-debug-base.rb.svn-base
  123. +0 −2  test/base/.svn/README.txt
  124. 0  test/base/.svn/empty-file
  125. +0 −49 test/base/.svn/entries
  126. +0 −1  test/base/.svn/format
  127. +0 −5 test/base/.svn/prop-base/base.rb.svn-base
  128. +0 −5 test/base/.svn/prop-base/binding.rb.svn-base
  129. +0 −5 test/base/.svn/prop-base/catchpoint.rb.svn-base
  130. +0 −1  test/base/.svn/prop-base/load.rb.svn-base
  131. +0 −5 test/base/.svn/props/base.rb.svn-work
  132. +0 −5 test/base/.svn/props/binding.rb.svn-work
  133. +0 −5 test/base/.svn/props/catchpoint.rb.svn-work
  134. +0 −1  test/base/.svn/props/load.rb.svn-work
  135. +0 −74 test/base/.svn/text-base/base.rb.svn-base
  136. +0 −31 test/base/.svn/text-base/binding.rb.svn-base
  137. +0 −26 test/base/.svn/text-base/catchpoint.rb.svn-base
  138. +0 −40 test/base/.svn/text-base/load.rb.svn-base
  139. +0 −2  test/cli/.svn/README.txt
  140. 0  test/cli/.svn/empty-file
  141. +0 −16 test/cli/.svn/entries
  142. +0 −1  test/cli/.svn/format
  143. +0 −2  test/cli/commands/.svn/README.txt
  144. 0  test/cli/commands/.svn/empty-file
  145. +0 −25 test/cli/commands/.svn/entries
  146. +0 −1  test/cli/commands/.svn/format
  147. +0 −1  test/cli/commands/.svn/prop-base/catchpoint_test.rb.svn-base
  148. +0 −1  test/cli/commands/.svn/props/catchpoint_test.rb.svn-work
  149. +0 −36 test/cli/commands/.svn/text-base/catchpoint_test.rb.svn-base
  150. +0 −2  test/cli/commands/unit/.svn/README.txt
  151. 0  test/cli/commands/unit/.svn/empty-file
  152. +0 −22 test/cli/commands/unit/.svn/entries
  153. +0 −1  test/cli/commands/unit/.svn/format
  154. +0 −1  test/cli/commands/unit/.svn/prop-base/regexp.rb.svn-base
  155. +0 −1  test/cli/commands/unit/.svn/props/regexp.rb.svn-work
  156. +0 −42 test/cli/commands/unit/.svn/text-base/regexp.rb.svn-base
  157. +0 −2  test/data/.svn/README.txt
  158. 0  test/data/.svn/empty-file
  159. +0 −697 test/data/.svn/entries
  160. +0 −1  test/data/.svn/format
  161. +0 −1  test/data/.svn/prop-base/annotate.cmd.svn-base
  162. +0 −1  test/data/.svn/prop-base/annotate.right.svn-base
  163. +0 −1  test/data/.svn/prop-base/break_bad.cmd.svn-base
  164. +0 −1  test/data/.svn/prop-base/break_bad.right.svn-base
  165. +0 −1  test/data/.svn/prop-base/break_loop_bug.cmd.svn-base
  166. +0 −1  test/data/.svn/prop-base/break_loop_bug.right.svn-base
  167. +0 −1  test/data/.svn/prop-base/breakpoints.cmd.svn-base
  168. +0 −1  test/data/.svn/prop-base/breakpoints.right.svn-base
  169. +0 −1  test/data/.svn/prop-base/catch.cmd.svn-base
  170. +0 −1  test/data/.svn/prop-base/catch.right.svn-base
  171. +0 −1  test/data/.svn/prop-base/condition.cmd.svn-base
  172. +0 −1  test/data/.svn/prop-base/condition.right.svn-base
  173. +0 −1  test/data/.svn/prop-base/ctrl.cmd.svn-base
  174. +0 −1  test/data/.svn/prop-base/ctrl.right.svn-base
  175. +0 −1  test/data/.svn/prop-base/display.cmd.svn-base
  176. +0 −1  test/data/.svn/prop-base/display.right.svn-base
  177. +0 −1  test/data/.svn/prop-base/dollar-0.right.svn-base
  178. +0 −1  test/data/.svn/prop-base/dollar-0a.right.svn-base
  179. +0 −1  test/data/.svn/prop-base/dollar-0b.right.svn-base
  180. +0 −1  test/data/.svn/prop-base/edit.cmd.svn-base
  181. +0 −1  test/data/.svn/prop-base/edit.right.svn-base
  182. +0 −1  test/data/.svn/prop-base/emacs_basic.cmd.svn-base
  183. +0 −1  test/data/.svn/prop-base/emacs_basic.right.svn-base
  184. +0 −1  test/data/.svn/prop-base/enable.cmd.svn-base
  185. +0 −1  test/data/.svn/prop-base/enable.right.svn-base
  186. +0 −1  test/data/.svn/prop-base/finish.cmd.svn-base
  187. +0 −1  test/data/.svn/prop-base/finish.right.svn-base
  188. +0 −1  test/data/.svn/prop-base/frame.cmd.svn-base
  189. +0 −1  test/data/.svn/prop-base/frame.right.svn-base
  190. +0 −1  test/data/.svn/prop-base/help.cmd.svn-base
  191. +0 −1  test/data/.svn/prop-base/help.right.svn-base
  192. +0 −1  test/data/.svn/prop-base/history.right.svn-base
  193. +0 −1  test/data/.svn/prop-base/info-thread.cmd.svn-base
  194. +0 −1  test/data/.svn/prop-base/info-thread.right.svn-base
  195. +0 −1  test/data/.svn/prop-base/info-var-bug2.cmd.svn-base
  196. +0 −1  test/data/.svn/prop-base/info-var-bug2.right.svn-base
  197. +0 −1  test/data/.svn/prop-base/info-var.cmd.svn-base
  198. +0 −1  test/data/.svn/prop-base/info-var.right.svn-base
  199. +0 −1  test/data/.svn/prop-base/info.cmd.svn-base
  200. +0 −1  test/data/.svn/prop-base/info.right.svn-base
  201. +0 −1  test/data/.svn/prop-base/linetrace.cmd.svn-base
  202. +0 −1  test/data/.svn/prop-base/linetrace.right.svn-base
  203. +0 −1  test/data/.svn/prop-base/linetracep.cmd.svn-base
  204. +0 −1  test/data/.svn/prop-base/linetracep.right.svn-base
  205. +0 −1  test/data/.svn/prop-base/list.cmd.svn-base
  206. +0 −1  test/data/.svn/prop-base/list.right.svn-base
  207. +0 −1  test/data/.svn/prop-base/method.cmd.svn-base
  208. +0 −1  test/data/.svn/prop-base/method.right.svn-base
  209. +0 −1  test/data/.svn/prop-base/methodsig.cmd.svn-base
  210. +0 −1  test/data/.svn/prop-base/methodsig.right.svn-base
  211. +0 −1  test/data/.svn/prop-base/noquit.right.svn-base
  212. +0 −1  test/data/.svn/prop-base/output.cmd.svn-base
  213. +0 −1  test/data/.svn/prop-base/output.right.svn-base
  214. +0 −1  test/data/.svn/prop-base/pm-bug.cmd.svn-base
  215. +0 −1  test/data/.svn/prop-base/pm-bug.right.svn-base
  216. +0 −1  test/data/.svn/prop-base/post-mortem-next.cmd.svn-base
  217. +0 −1  test/data/.svn/prop-base/post-mortem-next.right.svn-base
  218. +0 −1  test/data/.svn/prop-base/post-mortem-osx.right.svn-base
  219. +0 −1  test/data/.svn/prop-base/post-mortem.cmd.svn-base
  220. +0 −1  test/data/.svn/prop-base/post-mortem.right.svn-base
  221. +0 −1  test/data/.svn/prop-base/quit.cmd.svn-base
  222. +0 −1  test/data/.svn/prop-base/quit.right.svn-base
  223. +0 −1  test/data/.svn/prop-base/raise.cmd.svn-base
  224. +0 −1  test/data/.svn/prop-base/raise.right.svn-base
  225. +0 −1  test/data/.svn/prop-base/save.cmd.svn-base
  226. +0 −1  test/data/.svn/prop-base/save.right.svn-base
  227. +0 −5 test/data/.svn/prop-base/setshow.cmd.svn-base
  228. +0 −1  test/data/.svn/prop-base/setshow.right.svn-base
  229. +0 −1  test/data/.svn/prop-base/source.cmd.svn-base
  230. +0 −1  test/data/.svn/prop-base/source.right.svn-base
  231. +0 −1  test/data/.svn/prop-base/stepping.cmd.svn-base
  232. +0 −1  test/data/.svn/prop-base/stepping.right.svn-base
  233. +0 −1  test/data/.svn/prop-base/test-init-cygwin.right.svn-base
  234. +0 −1  test/data/.svn/prop-base/test-init-osx.right.svn-base
  235. +0 −1  test/data/.svn/prop-base/test-init.right.svn-base
  236. +0 −1  test/data/.svn/prop-base/trace.right.svn-base
  237. +0 −1  test/data/.svn/props/annotate.cmd.svn-work
  238. +0 −1  test/data/.svn/props/annotate.right.svn-work
  239. +0 −1  test/data/.svn/props/break_bad.cmd.svn-work
  240. +0 −1  test/data/.svn/props/break_bad.right.svn-work
  241. +0 −1  test/data/.svn/props/break_loop_bug.cmd.svn-work
  242. +0 −1  test/data/.svn/props/break_loop_bug.right.svn-work
  243. +0 −1  test/data/.svn/props/breakpoints.cmd.svn-work
  244. +0 −1  test/data/.svn/props/breakpoints.right.svn-work
  245. +0 −1  test/data/.svn/props/catch.cmd.svn-work
  246. +0 −1  test/data/.svn/props/catch.right.svn-work
  247. +0 −1  test/data/.svn/props/condition.cmd.svn-work
  248. +0 −1  test/data/.svn/props/condition.right.svn-work
  249. +0 −1  test/data/.svn/props/ctrl.cmd.svn-work
  250. +0 −1  test/data/.svn/props/ctrl.right.svn-work
  251. +0 −1  test/data/.svn/props/display.cmd.svn-work
  252. +0 −1  test/data/.svn/props/display.right.svn-work
  253. +0 −1  test/data/.svn/props/dollar-0.right.svn-work
  254. +0 −1  test/data/.svn/props/dollar-0a.right.svn-work
  255. +0 −1  test/data/.svn/props/dollar-0b.right.svn-work
  256. +0 −1  test/data/.svn/props/edit.cmd.svn-work
  257. +0 −1  test/data/.svn/props/edit.right.svn-work
  258. +0 −1  test/data/.svn/props/emacs_basic.cmd.svn-work
  259. +0 −1  test/data/.svn/props/emacs_basic.right.svn-work
  260. +0 −1  test/data/.svn/props/enable.cmd.svn-work
  261. +0 −1  test/data/.svn/props/enable.right.svn-work
  262. +0 −1  test/data/.svn/props/finish.cmd.svn-work
  263. +0 −1  test/data/.svn/props/finish.right.svn-work
  264. +0 −1  test/data/.svn/props/frame.cmd.svn-work
  265. +0 −1  test/data/.svn/props/frame.right.svn-work
  266. +0 −1  test/data/.svn/props/help.cmd.svn-work
  267. +0 −1  test/data/.svn/props/help.right.svn-work
  268. +0 −1  test/data/.svn/props/history.right.svn-work
  269. +0 −1  test/data/.svn/props/info-thread.cmd.svn-work
  270. +0 −1  test/data/.svn/props/info-thread.right.svn-work
  271. +0 −1  test/data/.svn/props/info-var-bug2.cmd.svn-work
  272. +0 −1  test/data/.svn/props/info-var-bug2.right.svn-work
  273. +0 −1  test/data/.svn/props/info-var.cmd.svn-work
  274. +0 −1  test/data/.svn/props/info-var.right.svn-work
  275. +0 −1  test/data/.svn/props/info.cmd.svn-work
  276. +0 −1  test/data/.svn/props/info.right.svn-work
  277. +0 −1  test/data/.svn/props/linetrace.cmd.svn-work
  278. +0 −1  test/data/.svn/props/linetrace.right.svn-work
  279. +0 −1  test/data/.svn/props/linetracep.cmd.svn-work
  280. +0 −1  test/data/.svn/props/linetracep.right.svn-work
  281. +0 −1  test/data/.svn/props/list.cmd.svn-work
  282. +0 −1  test/data/.svn/props/list.right.svn-work
  283. +0 −1  test/data/.svn/props/method.cmd.svn-work
  284. +0 −1  test/data/.svn/props/method.right.svn-work
  285. +0 −1  test/data/.svn/props/methodsig.cmd.svn-work
  286. +0 −1  test/data/.svn/props/methodsig.right.svn-work
  287. +0 −1  test/data/.svn/props/noquit.right.svn-work
  288. +0 −1  test/data/.svn/props/output.cmd.svn-work
  289. +0 −1  test/data/.svn/props/output.right.svn-work
  290. +0 −1  test/data/.svn/props/pm-bug.cmd.svn-work
  291. +0 −1  test/data/.svn/props/pm-bug.right.svn-work
  292. +0 −1  test/data/.svn/props/post-mortem-next.cmd.svn-work
  293. +0 −1  test/data/.svn/props/post-mortem-next.right.svn-work
  294. +0 −1  test/data/.svn/props/post-mortem-osx.right.svn-work
  295. +0 −1  test/data/.svn/props/post-mortem.cmd.svn-work
  296. +0 −1  test/data/.svn/props/post-mortem.right.svn-work
  297. +0 −1  test/data/.svn/props/quit.cmd.svn-work
  298. +0 −1  test/data/.svn/props/quit.right.svn-work
  299. +0 −1  test/data/.svn/props/raise.cmd.svn-work
  300. +0 −1  test/data/.svn/props/raise.right.svn-work
Sorry, we could not display the entire diff because too many files (388) changed.
View
2  emacs/.svn/README.txt
@@ -1,2 +0,0 @@
-This is a Subversion working copy administrative directory.
-Visit http://subversion.tigris.org/ for more information.
View
10 emacs/.svn/dir-prop-base
@@ -1,10 +0,0 @@
-K 10
-svn:ignore
-V 48
-.cvsignore
-*.elc
-Makefile.in
-elc-stamp
-Makefile
-
-END
View
10 emacs/.svn/dir-props
@@ -1,10 +0,0 @@
-K 10
-svn:ignore
-V 48
-.cvsignore
-*.elc
-Makefile.in
-elc-stamp
-Makefile
-
-END
View
0  emacs/.svn/empty-file
No changes.
View
233 emacs/.svn/entries
@@ -1,233 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<wc-entries
- xmlns="svn:">
-<entry
- committed-rev="917"
- name=""
- committed-date="2009-03-31T09:49:37.190724Z"
- url="svn://rubyforge.org/var/svn/ruby-debug/trunk/emacs"
- last-author="rockyb"
- kind="dir"
- uuid="453b2852-3d18-0410-866e-d09c099698e4"
- prop-time="2009-07-22T04:17:37.000000Z"
- revision="922"/>
-<entry
- name="test"
- kind="dir"/>
-<entry
- committed-rev="769"
- name="rdebug-vars.el"
- text-time="2009-07-22T04:17:37.000000Z"
- committed-date="2008-03-17T14:29:40.959460Z"
- checksum="e82dcc247a89c6a48b07613fa0616406"
- last-author="rockyb"
- kind="file"
- prop-time="2009-07-22T04:17:36.000000Z"/>
-<entry
- committed-rev="735"
- name="rdebug-frames.el"
- text-time="2009-07-22T04:17:37.000000Z"
- committed-date="2008-02-29T15:24:51.179059Z"
- checksum="d461205d1918193f369ee3611a61374e"
- last-author="rockyb"
- kind="file"
- prop-time="2009-07-22T04:17:36.000000Z"/>
-<entry
- committed-rev="821"
- name="rdebug-gud.el"
- text-time="2009-07-22T04:17:37.000000Z"
- committed-date="2008-04-25T02:54:44.576361Z"
- checksum="bb55cccfe0907418499cb44828793451"
- last-author="rockyb"
- kind="file"
- prop-time="2009-07-22T04:17:36.000000Z"/>
-<entry
- committed-rev="711"
- name="rdebug-varbuf.el"
- text-time="2009-07-22T04:17:37.000000Z"
- committed-date="2008-02-20T07:09:17.916169Z"
- checksum="8df13761c5bc028f07796463dcf48d43"
- last-author="andersl"
- kind="file"
- prop-time="2009-07-22T04:17:36.000000Z"/>
-<entry
- committed-rev="769"
- name="rdebug-fns.el"
- text-time="2009-07-22T04:17:37.000000Z"
- committed-date="2008-03-17T14:29:40.959460Z"
- checksum="c26bbc91a341d61c8b398240d01e0551"
- last-author="rockyb"
- kind="file"
- prop-time="2009-07-22T04:17:36.000000Z"/>
-<entry
- committed-rev="733"
- name="rdebug-secondary.el"
- text-time="2009-07-22T04:17:37.000000Z"
- committed-date="2008-02-29T04:34:44.347129Z"
- checksum="3f715d3ea2331ae4717b37b329774ba3"
- last-author="rockyb"
- kind="file"
- prop-time="2009-07-22T04:17:36.000000Z"/>
-<entry
- committed-rev="711"
- name="rdebug-help.el"
- text-time="2009-07-22T04:17:37.000000Z"
- committed-date="2008-02-20T07:09:17.916169Z"
- checksum="aec913c4fa607d2797c0bcde98c442e0"
- last-author="andersl"
- kind="file"
- prop-time="2009-07-22T04:17:36.000000Z"/>
-<entry
- committed-rev="909"
- name="rdebug-core.el"
- text-time="2009-07-22T04:17:37.000000Z"
- committed-date="2009-03-11T18:57:08.560379Z"
- checksum="c76f9350d230667473b2104cf45fd87f"
- last-author="rockyb"
- kind="file"
- prop-time="2009-07-22T04:17:36.000000Z"/>
-<entry
- committed-rev="713"
- name="rdebug-error.el"
- text-time="2009-07-22T04:17:37.000000Z"
- committed-date="2008-02-21T02:56:48.990901Z"
- checksum="d505a343e8f75702aaab368cbd52f228"
- last-author="rockyb"
- kind="file"
- prop-time="2009-07-22T04:17:36.000000Z"/>
-<entry
- committed-rev="724"
- name="rdebug-regexp.el"
- text-time="2009-07-22T04:17:37.000000Z"
- committed-date="2008-02-24T16:14:52.168106Z"
- checksum="a8f4ef492156bc1cb517d4d980bd1a06"
- last-author="rockyb"
- kind="file"
- prop-time="2009-07-22T04:17:36.000000Z"/>
-<entry
- committed-rev="711"
- name="rdebug-info.el"
- text-time="2009-07-22T04:17:37.000000Z"
- committed-date="2008-02-20T07:09:17.916169Z"
- checksum="9d2bf4ddab2f75f0fc7de55080755e4d"
- last-author="andersl"
- kind="file"
- prop-time="2009-07-22T04:17:36.000000Z"/>
-<entry
- committed-rev="702"
- name="rdebug-dbg.el"
- text-time="2009-07-22T04:17:37.000000Z"
- committed-date="2008-02-17T22:00:36.823477Z"
- checksum="c701b63f9070c9399997414f004848a9"
- last-author="rockyb"
- kind="file"
- prop-time="2009-07-22T04:17:37.000000Z"/>
-<entry
- committed-rev="917"
- name="rdebug-locring.el"
- text-time="2009-07-22T04:17:37.000000Z"
- committed-date="2009-03-31T09:49:37.190724Z"
- checksum="788e095fd1ae6e27fb569d428e1f7620"
- last-author="rockyb"
- kind="file"
- prop-time="2009-07-22T04:17:37.000000Z"/>
-<entry
- committed-rev="723"
- name="rdebug-layouts.el"
- text-time="2009-07-22T04:17:37.000000Z"
- committed-date="2008-02-24T04:51:39.150703Z"
- checksum="b0dc8fe2b754ef61c4c1ef11fba1c39d"
- last-author="rockyb"
- kind="file"
- prop-time="2009-07-22T04:17:37.000000Z"/>
-<entry
- committed-rev="711"
- name="rdebug-output.el"
- text-time="2009-07-22T04:17:37.000000Z"
- committed-date="2008-02-20T07:09:17.916169Z"
- checksum="a34988bd462f5a488750ded9b32dd578"
- last-author="andersl"
- kind="file"
- prop-time="2009-07-22T04:17:37.000000Z"/>
-<entry
- committed-rev="821"
- name="rdebug-source.el"
- text-time="2009-07-22T04:17:37.000000Z"
- committed-date="2008-04-25T02:54:44.576361Z"
- checksum="c921d1b4a3b16f4954ebee5395e15c21"
- last-author="rockyb"
- kind="file"
- prop-time="2009-07-22T04:17:37.000000Z"/>
-<entry
- committed-rev="689"
- name="rdebug.el"
- text-time="2009-07-22T04:17:37.000000Z"
- committed-date="2008-02-16T04:18:35.116067Z"
- checksum="6e365368fee4310a6527ea00ba170729"
- last-author="rockyb"
- kind="file"
- prop-time="2009-07-22T04:17:37.000000Z"/>
-<entry
- committed-rev="822"
- name="rdebug-cmd.el"
- text-time="2009-07-22T04:17:37.000000Z"
- committed-date="2008-04-27T08:28:29.802204Z"
- checksum="366ec6971ac872541fb57237af7cc5b3"
- last-author="rockyb"
- kind="file"
- prop-time="2009-07-22T04:17:37.000000Z"/>
-<entry
- committed-rev="795"
- name="Makefile.am"
- text-time="2009-07-22T04:17:37.000000Z"
- committed-date="2008-04-07T00:36:19.145079Z"
- checksum="a3e015f82f73920f66f0e7c941591d0f"
- last-author="rockyb"
- kind="file"
- prop-time="2009-07-22T04:17:37.000000Z"/>
-<entry
- committed-rev="909"
- name="rdebug-track.el"
- text-time="2009-07-22T04:17:37.000000Z"
- committed-date="2009-03-11T18:57:08.560379Z"
- checksum="8b09805b7b68269b6db7ab967dd2d3ae"
- last-author="rockyb"
- kind="file"
- prop-time="2009-07-22T04:17:37.000000Z"/>
-<entry
- committed-rev="711"
- name="rdebug-watch.el"
- text-time="2009-07-22T04:17:37.000000Z"
- committed-date="2008-02-20T07:09:17.916169Z"
- checksum="0ee265d6fdd1014d0b6204f56bec8d6a"
- last-author="andersl"
- kind="file"
- prop-time="2009-07-22T04:17:37.000000Z"/>
-<entry
- committed-rev="780"
- name="rdebug-breaks.el"
- text-time="2009-07-22T04:17:37.000000Z"
- committed-date="2008-03-21T19:04:12.921609Z"
- checksum="d33e11381d8817444c29bf54354558e7"
- last-author="rockyb"
- kind="file"
- prop-time="2009-07-22T04:17:37.000000Z"/>
-<entry
- committed-rev="807"
- name="rdebug-shortkey.el"
- text-time="2009-07-22T04:17:37.000000Z"
- committed-date="2008-04-08T19:55:37.638329Z"
- checksum="54d2af5ce933015bbafb18d792ccd8e8"
- last-author="andersl"
- kind="file"
- prop-time="2009-07-22T04:17:37.000000Z"/>
-<entry
- committed-rev="786"
- name="rdebug-annotate.el"
- text-time="2009-07-22T04:17:37.000000Z"
- committed-date="2008-04-02T00:50:27.202366Z"
- checksum="d78710e1a4c07f5a639c2469a370e239"
- last-author="rockyb"
- kind="file"
- prop-time="2009-07-22T04:17:37.000000Z"/>
-</wc-entries>
View
1  emacs/.svn/format
@@ -1 +0,0 @@
-4
View
1  emacs/.svn/prop-base/Makefile.am.svn-base
@@ -1 +0,0 @@
-END
View
5 emacs/.svn/prop-base/rdebug-annotate.el.svn-base
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
5 emacs/.svn/prop-base/rdebug-breaks.el.svn-base
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
5 emacs/.svn/prop-base/rdebug-cmd.el.svn-base
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
5 emacs/.svn/prop-base/rdebug-core.el.svn-base
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
5 emacs/.svn/prop-base/rdebug-dbg.el.svn-base
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
5 emacs/.svn/prop-base/rdebug-error.el.svn-base
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
1  emacs/.svn/prop-base/rdebug-fns.el.svn-base
@@ -1 +0,0 @@
-END
View
5 emacs/.svn/prop-base/rdebug-frames.el.svn-base
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
5 emacs/.svn/prop-base/rdebug-gud.el.svn-base
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
5 emacs/.svn/prop-base/rdebug-help.el.svn-base
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
1  emacs/.svn/prop-base/rdebug-info.el.svn-base
@@ -1 +0,0 @@
-END
View
5 emacs/.svn/prop-base/rdebug-layouts.el.svn-base
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
5 emacs/.svn/prop-base/rdebug-locring.el.svn-base
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
5 emacs/.svn/prop-base/rdebug-output.el.svn-base
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
5 emacs/.svn/prop-base/rdebug-regexp.el.svn-base
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
5 emacs/.svn/prop-base/rdebug-secondary.el.svn-base
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
5 emacs/.svn/prop-base/rdebug-shortkey.el.svn-base
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
5 emacs/.svn/prop-base/rdebug-source.el.svn-base
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
5 emacs/.svn/prop-base/rdebug-track.el.svn-base
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
5 emacs/.svn/prop-base/rdebug-varbuf.el.svn-base
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
5 emacs/.svn/prop-base/rdebug-vars.el.svn-base
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
5 emacs/.svn/prop-base/rdebug-watch.el.svn-base
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
1  emacs/.svn/prop-base/rdebug.el.svn-base
@@ -1 +0,0 @@
-END
View
1  emacs/.svn/props/Makefile.am.svn-work
@@ -1 +0,0 @@
-END
View
5 emacs/.svn/props/rdebug-annotate.el.svn-work
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
5 emacs/.svn/props/rdebug-breaks.el.svn-work
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
5 emacs/.svn/props/rdebug-cmd.el.svn-work
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
5 emacs/.svn/props/rdebug-core.el.svn-work
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
5 emacs/.svn/props/rdebug-dbg.el.svn-work
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
5 emacs/.svn/props/rdebug-error.el.svn-work
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
1  emacs/.svn/props/rdebug-fns.el.svn-work
@@ -1 +0,0 @@
-END
View
5 emacs/.svn/props/rdebug-frames.el.svn-work
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
5 emacs/.svn/props/rdebug-gud.el.svn-work
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
5 emacs/.svn/props/rdebug-help.el.svn-work
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
1  emacs/.svn/props/rdebug-info.el.svn-work
@@ -1 +0,0 @@
-END
View
5 emacs/.svn/props/rdebug-layouts.el.svn-work
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
5 emacs/.svn/props/rdebug-locring.el.svn-work
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
5 emacs/.svn/props/rdebug-output.el.svn-work
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
5 emacs/.svn/props/rdebug-regexp.el.svn-work
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
5 emacs/.svn/props/rdebug-secondary.el.svn-work
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
5 emacs/.svn/props/rdebug-shortkey.el.svn-work
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
5 emacs/.svn/props/rdebug-source.el.svn-work
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
5 emacs/.svn/props/rdebug-track.el.svn-work
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
5 emacs/.svn/props/rdebug-varbuf.el.svn-work
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
5 emacs/.svn/props/rdebug-vars.el.svn-work
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
5 emacs/.svn/props/rdebug-watch.el.svn-work
@@ -1,5 +0,0 @@
-K 12
-svn:keywords
-V 2
-Id
-END
View
1  emacs/.svn/props/rdebug.el.svn-work
@@ -1 +0,0 @@
-END
View
130 emacs/.svn/text-base/Makefile.am.svn-base
@@ -1,130 +0,0 @@
-# Copyright (C) 2007, 2008 Rocky Bernstein rocky@gnu.org
-#
-# 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 Bash; see the file COPYING. If not, write to the Free Software
-# Foundation, 59 Temple Place, Suite 330, Boston, MA 02111 USA.
-#$Id: Makefile.am,v 1.10 2007/04/13 00:59:33 rockyb Exp $
-
-lisp_files = rdebug.el \
- rdebug-annotate.el \
- rdebug-breaks.el \
- rdebug-cmd.el \
- rdebug-core.el \
- rdebug-dbg.el \
- rdebug-error.el \
- rdebug-fns.el \
- rdebug-frames.el \
- rdebug-gud.el \
- rdebug-help.el \
- rdebug-info.el \
- rdebug-layouts.el \
- rdebug-locring.el \
- rdebug-output.el \
- rdebug-regexp.el \
- rdebug-secondary.el\
- rdebug-shortkey.el \
- rdebug-source.el \
- rdebug-track.el \
- rdebug-varbuf.el \
- rdebug-vars.el \
- rdebug-watch.el
-check_DATA = test/elk-test.el \
- test/test-annotate.el \
- test/test-cmd.el \
- test/test-core.el \
- test/test-fns.el \
- test/test-gud.el \
- test/test-indent.el \
- test/test-regexp.el \
- test/test-shortkey.el
-
-EXTRA_DIST = $(lisp_files) $(check_DATA)
-ELCFILES = rdebug.elc \
- rdebug-annotate.elc \
- rdebug-breaks.elc \
- rdebug-cmd.elc \
- rdebug-core.elc \
- rdebug-dbg.elc \
- rdebug-error.elc \
- rdebug-fns.elc \
- rdebug-gud.elc \
- rdebug-frames.elc \
- rdebug-help.elc \
- rdebug-info.elc \
- rdebug-layouts.elc \
- rdebug-locring.elc \
- rdebug-output.elc \
- rdebug-regexp.elc \
- rdebug-secondary.elc \
- rdebug-shortkey.elc \
- rdebug-source.elc \
- rdebug-track.elc \
- rdebug-varbuf.elc \
- rdebug-vars.elc \
- rdebug-watch.elc
-if INSTALL_EMACS_LISP
-lisp_LISP = $(lisp_files)
-CHECK_FILES = \
- check-annotate \
- check-cmd \
- check-core \
- check-fns \
- check-frames \
- check-gud \
- check-indent \
- check-regexp \
- check-shortkey
-
-check: $(CHECK_FILES)
-
-check-annotate: rdebug-annotate.el
- (cd $(srcdir)/test && \
- $(EMACS) -batch -q -l test-annotate.el )
-
-check-cmd: rdebug-gud.el
- (cd $(srcdir)/test && \
- $(EMACS) -batch -q -l test-cmd.el )
-
-check-core: rdebug-core.el
- (cd $(srcdir)/test && \
- $(EMACS) -batch -q -l test-core.el )
-
-check-fns: rdebug-fns.el
- (cd $(srcdir)/test && \
- $(EMACS) -batch -q -l test-fns.el )
-
-check-frames: rdebug-frames.el
- (cd $(srcdir)/test && \
- $(EMACS) -batch -q -l test-frames.el )
-
-check-gud: rdebug-gud.el
- (cd $(srcdir)/test && \
- $(EMACS) -batch -q -l test-gud.el )
-
-check-indent: $(lisp_files)
- (cd $(srcdir)/test && \
- $(EMACS) -batch -q -l test-indent.el )
-
-check-regexp: rdebug-regexp.el
- (cd $(srcdir)/test && \
- $(EMACS) -batch -q -l test-regexp.el )
-
-check-shortkey: rdebug-shortkey.el
- (cd $(srcdir)/test && \
- $(EMACS) -batch -q -l test-shortkey.el )
-endif
-
-PHONY = $(CHECK_FILES)
-
-test: check
-
View
385 emacs/.svn/text-base/rdebug-annotate.el.svn-base
@@ -1,385 +0,0 @@
-;;; rdebug-annotate.el --- Ruby debugger output filtering - which
-;;; includes annotation handling.
-
-;; Copyright (C) 2008 Rocky Bernstein (rocky@gnu.org)
-;; Copyright (C) 2008 Anders Lindgren
-
-;; $Id$
-
-;; 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 GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Commentary:
-
-;; This file contains code dealing with filter of debugger output a large
-;; part of which may contain annotations.
-
-;;; Code:
-
-(require 'gud)
-(require 'gdb-ui)
-(require 'rdebug-dbg)
-(require 'rdebug-error)
-(require 'rdebug-fns)
-(require 'rdebug-info)
-(require 'rdebug-layouts)
-(require 'rdebug-locring)
-(require 'rdebug-regexp)
-(require 'rdebug-shortkey)
-(require 'rdebug-source)
-(require 'rdebug-vars)
-
-(defvar rdebug-non-annotated-text-kind nil
- "Represent what non-annotated text is.
-
-This can be:
- * nil -- plain shell output
- * :output -- output from the command being debugged
- * :info -- text for the \"info\" secondary window.
- * :message -- message the text to the echo area.
- * :cmd -- a command + result, which might go into the \"info\" window.
-
-See the function `rdebug-cmd-process' for details on :cmd.")
-
-(defvar rdebug-annotation-setup-map
- (progn
- (define-hash-table-test 'str-hash 'string= 'sxhash)
- (let ((map (make-hash-table :test 'str-hash)))
- (puthash "breakpoints" 'rdebug-setup-breakpoints-buffer map)
- ;;(puthash "error" 'rdebug-setup-error-buffer map)
- (puthash "frame" 'rdebug-setup-frame-buffer map)
- (puthash "variables" 'rdebug-setup-variables-buffer map)
- (puthash "watch" 'rdebug-setup-watch-buffer map)
- (puthash "output" 'rdebug-setup-output-buffer map)
- (puthash "info" 'rdebug-setup-info-buffer map)
- (puthash "help" 'rdebug-setup-secondary-window-help-buffer map)
- map)))
-
-(defun rdebug-temp-show (text)
- "Arrange to show string as in sort of temporary way. Perhaps like a tooltip"
- (tooltip-show text))
-
-(defun rdebug-marker-filter-next-item (string)
- "The next item for the rdebug marker filter to process.
-
-Return (item . rest) or nil."
- (rdebug-debug-message "ACC: %S" string)
- (cond
- ;; Empty line, we're done.
- ((equal (length string) 0)
- nil)
- ;; A single ^Z, this could become a new annotation, so lets stop here.
- ((string= string "\032")
- nil)
- ;; A half-baked annotation, lets stop here.
- ((and (string-match "^\032\032" string)
- (not (string-match "\n" string)))
- nil)
- (t
- (let ((split-point
- (cond ((string-match "\032\032" string)
- (let ((beg (match-beginning 0)))
- (if (equal beg 0)
- (if (string-match "^\032\032" string 2)
- (match-beginning 0)
- (length string))
- beg)))
- ((eq (elt string (- (length string) 1)) ?\32)
- -1)
- (t
- (length string)))))
- (cons (substring string 0 split-point) (substring string split-point))))))
-
-;; There's no guarantee that Emacs will hand the filter the entire
-;; marker at once; it could be broken up across several strings. We
-;; might even receive a big chunk with several markers in it. If we
-;; receive a chunk of text which looks like it might contain the
-;; beginning of a marker, we save it here between calls to the
-;; filter.
-(defun gud-rdebug-marker-filter (string)
- "Filter function for process output of the rdebug Ruby debugger."
- (rdebug-debug-enter "gud-rdebug-marker-filter:"
- (rdebug-debug-message "GOT: %S" string)
- (if rdebug-non-annotated-text-kind
- (rdebug-debug-message " Text is %S" rdebug-non-annotated-text-kind))
- (setq gud-marker-acc (concat gud-marker-acc string))
- (rdebug-debug-message "TOT: %S" gud-marker-acc)
- (let ((shell-output "") ; Output to debugger shell window.
- (done nil)
- item)
- ;; The following loop peels of one "item" at a time. An item is
- ;; a un-annotated section or an annotation. (This is taken care
- ;; of by the `rdebug-marker-filter-next-item' function.)
- ;;
- ;; An Annotation can be a one-liner (where anything following
- ;; the annotation is treated as un-annotated text) or a full
- ;; annotation (which stretches to the next annotation).
- ;;
- ;; The concept of one-liners (no phun intended) is to allow
- ;; continuous output, a "starting" annotation simply sets up the
- ;; environment for sending lines to the output window, any text
- ;; following it right now, or in later chunks of data, is
- ;; redirected to the output window.
- (while (and (not done)
- (let ((pair (rdebug-marker-filter-next-item gud-marker-acc)))
- (rdebug-debug-message "Next item: %S" pair)
- (and pair
- (progn
- (setq item (car pair))
- (setq gud-marker-acc (cdr pair))
- t))))
- ;; Note: Regexp:s are greedy, i.e. the char parts wins over
- ;; the .* part.
- (if (not (string-match "^\032\032\\([-a-z]*\\).*\n" item))
- ;; Non-annotated text (or the content of one-liners) goes
- ;; straight into the debugger shell window, or to the
- ;; output window.
- (cond ((and (eq rdebug-non-annotated-text-kind :output)
- rdebug-use-separate-io-buffer)
- (rdebug-process-annotation "starting" item))
- ((eq rdebug-non-annotated-text-kind :info)
- (rdebug-process-annotation "info" item))
- (t
- (if (eq rdebug-non-annotated-text-kind :cmd)
- (rdebug-cmd-process item))
- (setq shell-output (concat shell-output item))))
- ;; Handle annotation.
- (let* ((line-end (match-end 0))
- (name (match-string 1 item))
- ;; "prompt" is needed to handle "quit" in the shell correctly.
- (one-liner
- (member name
- '("" "exited" "source" "prompt" "starting")))
- (next-annotation (string-match "\032\032"
- gud-marker-acc)))
- ;; For one-liners, shuffle some text back to the accumulator.
- (when one-liner
- (setq gud-marker-acc (concat (substring item line-end)
- gud-marker-acc))
- (setq item (substring item 0 line-end)))
- (if (or next-annotation
- one-liner)
- ;; ok, annotation complete, process it and remove it
- (let* ((contents (substring item line-end))
- (old-kind rdebug-non-annotated-text-kind))
- (rdebug-debug-message "Name: %S Content: %S Kind: %S"
- name contents
- rdebug-non-annotated-text-kind)
-
- ;; This is a global state flag, this allows us to
- ;; redirect any further text to the output buffer.
- (set
- (make-local-variable 'rdebug-non-annotated-text-kind)
- (cond ((string= name "starting")
- :output)
- ((string= name "prompt")
- (rdebug-cmd-clear)
- :cmd)
- ((string= name "exited")
- ;; Create a fake command whose output we
- ;; handle in the cmd system. (We might not
- ;; receive all of the message at once, we we
- ;; need some kind of accumukator, which the
- ;; cmd system provides.)
- (setq rdebug-inferior-status "exited")
- (rdebug-cmd-clear)
- (setq rdebug-call-queue
- (cons '("***exited***" :message)
- rdebug-call-queue))
- :cmd)
- (t nil)))
-
- (when (and (eq old-kind :cmd)
- (not (eq rdebug-non-annotated-text-kind :cmd)))
- (rdebug-debug-message
- "New kind: %S" rdebug-non-annotated-text-kind)
- (rdebug-cmd-done))
-
- ;; Process the annotation.
- (cond ((string= name "starting")
- (setq rdebug-inferior-status "running"))
- ((string= name "stopped")
- (setq rdebug-inferior-status "stopped"))
- ((string= name "exited")
- (setq rdebug-inferior-status "exited"))
- ((string= name "pre-prompt")
- ;; Strip of the trailing \n (this is probably
- ;; a bug in processor.rb).
- (if (string= (substring contents -1) "\n")
- (setq contents (substring contents 0 -1)))
- (if (string-match "post-mortem" contents)
- (setq rdebug-inferior-status "crashed"))
- (setq shell-output (concat shell-output contents)))
- ((string= name "source")
- (if (string-match gud-rdebug-marker-regexp item)
- ;; Extract the frame position from the marker.
- (setq gud-last-frame
- (cons (match-string 1 item)
- (string-to-number
- (match-string 2 item))))))
- (t (rdebug-process-annotation name contents))))
- ;; This is not a one-liner, and we haven't seen the next
- ;; annotation, so we have to treat this as a partial
- ;; annotation. Save it and hope that the we can process
- ;; it the next time we're called.
- (setq gud-marker-acc (concat item gud-marker-acc))
- (setq done t)))))
-
- (when gud-last-frame
- ;; Display the source file where we want it, gud will only pick
- ;; an arbitrary window.
- (rdebug-pick-source-window)
- (rdebug-set-frame-arrow (gud-find-file (car gud-last-frame)))
- (if (equal 0 rdebug-frames-current-frame-number)
- (rdebug-locring-add gud-last-frame
- rdebug-source-location-ring)))
- (rdebug-short-key-mode-maybe-activate)
-
- (unless (string= shell-output "")
- (rdebug-debug-message "Output: %S" shell-output))
- (rdebug-debug-message "REM: %S" gud-marker-acc)
-
- shell-output)))
-
-(defun rdebug-process-annotation (name contents)
- "Called after `gud-rdebug-marker-filter' found a complete
-`name' annotation with string `contents'. Send it to the right
-place for processing."
- (rdebug-debug-enter (format "rdebug-process-annotation %s" name)
- ;; Ruby-debug uses the name "starting" for process output (just like
- ;; GDB). However, it's better to present the buffer as "output" to
- ;; the user. Ditto for "display" and "watch".
- (cond ((string= name "starting")
- (setq name "output"))
- ((string= name "display")
- (setq name "watch"))
- ((string= name "stack")
- (setq name "frame"))
- ((string= name "error-begin")
- (setq name "error")))
- ;; New "info"
- (if (string= name "exited")
- (setq name "info"))
- (if (string= name "error")
- (rdebug-errmsg contents))
- (let ((setup-func (gethash name rdebug-annotation-setup-map)))
- (when setup-func
- (let ((buf (rdebug-get-buffer name gud-target-name))
- ;; Buffer local, doesn't survive the buffer change.
- (comint-buffer gud-comint-buffer))
- (with-current-buffer buf
- (setq buffer-read-only t)
- (let ((inhibit-read-only t))
- (set (make-local-variable 'rdebug-current-line-number)
- (line-number-at-pos))
- (set (make-local-variable 'gud-last-frame) gud-last-frame)
- (if rdebug-accumulative-buffer
- (goto-char (point-max))
- (erase-buffer))
- (insert contents)
- (funcall setup-func buf comint-buffer))))))
- (cond ((and (string= name "info")
- (not (string= contents "")))
- (save-selected-window
- (rdebug-display-info-buffer))))))
-
-
-;; ------------------------------------------------------------
-;; Mode line displayer.
-;;
-
-;; The variable rdebug-mode-line-process uses this to generate the
-;; actual string to display.
-(defun rdebug-display-inferior-status ()
- "Return a (propertized) string, or nil, to be displayed in the mode line."
- (if (and gud-comint-buffer
- (buffer-name gud-comint-buffer)
- (get-buffer-process gud-comint-buffer)
- rdebug-inferior-status)
- (let ((s rdebug-inferior-status))
- (cond ((string= rdebug-inferior-status "running")
- (setq s (propertize s 'face font-lock-type-face)))
- (t
- (setq s (propertize s 'face font-lock-warning-face))))
- (concat ":" s))
- ;; No process, don't display anything.
- nil))
-
-;; ------------------------------------------------------------
-;; Command output parser.
-;;
-
-(defvar rdebug-cmd-acc ""
- "The accumulated output of the current command.
-
-Note, on some systems the external process echoes the command,
-which is included in the output.")
-
-;; Called when a new command starts.
-(defun rdebug-cmd-clear ()
- "Called when the Rdebug filter find the start of a new commands."
- (rdebug-debug-enter "rdebug-cmd-clear"
- (setq rdebug-cmd-acc "")))
-
-;; Called with command output, this can be called any number of times.
-(defun rdebug-cmd-process (s)
- "Called when the Rdebug filter find the command output.
-This may be called any number of times."
- (rdebug-debug-enter (format "rdebug-cmd-process %S" s)
- (setq rdebug-cmd-acc (concat rdebug-cmd-acc s))))
-
-;; Called when command has finished.
-(defun rdebug-cmd-done ()
- "Called when the Rdebug filter find the end of a commands."
- (rdebug-debug-enter "rdebug-cmd-done"
- ;; car-safe is used since rdebug-call-queue can be empty.
- (let ((entry (car-safe rdebug-call-queue))
- (text rdebug-cmd-acc))
- (when entry
- (rdebug-debug-message "Entry: %S Acc:%S" rdebug-call-queue rdebug-cmd-acc)
- (setq rdebug-call-queue (cdr rdebug-call-queue))
- (let ((saved-cmd (car entry))
- (options (cdr entry)))
- ;; In cast the external process echoed the actual command,
- ;; remove it.
- (when (and (>= (length text)
- (length saved-cmd))
- (string= saved-cmd (substring text 0 (length saved-cmd))))
- (setq text (substring text (+ 1 (length saved-cmd)))))
- (rdebug-debug-message "Text: %S" text)
- ;; Optionally display the result.
- (if (memq :tooltip options)
- (rdebug-temp-show text))
- (if (memq :info options)
- (rdebug-process-annotation "info" text))
- (when (memq :message options)
- ;; Remove trailing newlines (chomp).
- (while (and (> (length text) 0)
- (eq (elt text (- (length text) 1)) ?\n))
- (setq text (substring text 0 -1)))
- (message text)))))))
-
-
-;; -------------------------------------------------------------------
-;; The end.
-;;
-
-(provide 'rdebug-annotate)
-
-;;; Local variables:
-;;; eval:(put 'rdebug-debug-enter 'lisp-indent-hook 1)
-;;; End:
-
-;;; rdebug-annotate.el ends here
View
407 emacs/.svn/text-base/rdebug-breaks.el.svn-base
@@ -1,407 +0,0 @@
-;;; rdebug-breaks.el --- This file contains code dealing with the Ruby
-;;; debugger's breakpoints and the breakpoint secondary buffer.
-
-;; Copyright (C) 2008 Rocky Bernstein (rocky@gnu.org)
-;; Copyright (C) 2008 Anders Lindgren
-
-;; $Id$
-
-;; 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 GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Commentary:
-
-;; This file contains code dealing with the breakpoints and the
-;; breakpoints secondary buffer.
-
-;;; Code:
-
-(require 'rdebug-dbg)
-(require 'rdebug-gud)
-(require 'rdebug-regexp)
-(require 'rdebug-secondary)
-(require 'rdebug-source)
-(require 'rdebug-vars)
-
-(defun rdebug-display-breakpoints-buffer ()
- "Display the rdebug breakpoints buffer."
- (interactive)
- (rdebug-display-secondary-buffer "breakpoints"))
-
-(defvar rdebug-breakpoint-mode-map
- (let ((map (make-sparse-keymap)))
- (define-key map [double-mouse-1] 'rdebug-goto-breakpoint-mouse)
- (define-key map [mouse-2] 'rdebug-goto-breakpoint-mouse)
- (define-key map [mouse-3] 'rdebug-goto-breakpoint-mouse)
- (define-key map "t" 'rdebug-toggle-breakpoint)
- (define-key map "i" 'rdebug-add-breakpoint-condition)
- (define-key map [insert] 'rdebug-add-breakpoint-condition)
- (rdebug-populate-digit-keys map)
- (define-key map [(control m)] 'rdebug-goto-breakpoint)
- (define-key map [?d] 'rdebug-delete-breakpoint)
- (rdebug-populate-secondary-buffer-map map)
-
- ;; --------------------
- ;; The "Breakpoints window" submenu.
- (let ((submenu (make-sparse-keymap)))
- (define-key-after map [menu-bar debugger breakpoints]
- (cons "Breakpoints window" submenu)
- 'placeholder))
-
- (define-key map [menu-bar debugger breakpoints toggle]
- '(menu-item "Toggle breakpoint" rdebug-toggle-breakpoint))
-
- (define-key map [menu-bar debugger breakpoints goto]
- '(menu-item "Goto breakpoint" rdebug-goto-breakpoint))
-
- (define-key map [menu-bar debugger breakpoints delete]
- '(menu-item "Delete breakpoint" rdebug-delete-breakpoint))
-
- map)
- "Keymap to navigate/set/enable rdebug breakpoints.")
-
-;; Here the "anchored match" method is used, see `font-lock-keywords'
-;; for details.
-(defvar rdebug-breakpoint-font-lock-keywords
- '(("\\([0-9]+\\) +\\(\\(n\\)\\|\\(y\\)\\) +at "
- (1 font-lock-constant-face)
- (3 font-lock-type-face nil t) ; t = ok if not present
- (4 font-lock-warning-face nil t) ; ditto.
- ;; File name and line
- ("\\(.*\\):\\([0-9]+\\)$"
- nil ; Preform (not used)
- nil ; Postfrom (not used)
- (1 font-lock-warning-face)
- (2 font-lock-constant-face))
- ;; Class:function
- ("\\(.*\\):\\([a-zA-Z_].+\\)$"
- nil ; Preform (not used)
- nil ; Postfrom (not used)
- (1 font-lock-type-face)
- (2 font-lock-function-name-face))))
- "Rules for coloring the rdebug breakpoints buffer.")
-
-(defun rdebug-breakpoint-mode ()
- "Major mode for displaying breakpoints in the `rdebug' Ruby debugger.
-
-\\{rdebug-breakpoint-mode-map}"
- (kill-all-local-variables)
- (setq major-mode 'rdebug-breakpoint-mode)
- (setq mode-name "RDEBUG Breakpoints")
- (use-local-map rdebug-breakpoint-mode-map)
- (setq buffer-read-only t)
- (set (make-local-variable 'rdebug-secondary-buffer) t)
- (setq mode-line-process 'rdebug-mode-line-process)
- (set (make-local-variable 'font-lock-defaults)
- '(rdebug-breakpoint-font-lock-keywords))
- (run-mode-hooks 'rdebug-breakpoint-mode-hook))
-
-
-(defun rdebug-setup-breakpoints-buffer (buf comint-buffer)
- "Detect breakpoint lines and set up keymap and mouse navigation.
-Argument BUF is the buffer to set up.
-Argument COMINT-BUFFER is the assocaited gud process buffer."
- (rdebug-debug-enter "rdebug-setup-breakpoints-buffer"
- (with-current-buffer buf
- (let ((inhibit-read-only t)
- (old-line-number (buffer-local-value 'rdebug-current-line-number
- buf)))
- (rdebug-breakpoint-mode)
- (goto-char (point-min))
- (while (not (eobp))
- (let ((b (line-beginning-position)) (e (line-end-position)))
- (when (string-match rdebug-breakpoint-regexp
- (buffer-substring b e))
- (add-text-properties b e
- (list 'mouse-face 'highlight
- 'keymap rdebug-breakpoint-mode-map)))
- (forward-line)))
- (goto-line old-line-number)))
- (rdebug-breakpoint-parse-and-update-cache)
- (rdebug-breakpoint-update-icons (rdebug-breakpoint-all))))
-
-
-(defvar rdebug-breakpoint-cache '()
- "The cached return value of `rdebug-breakpoint-all'.
-
-Buffer-local to the debugger shell window.")
-
-
-;; Implementation note: If Emacs could talk directly to the Ruby
-;; debugger, this would be roughly "Debugger.breakpoints". Since we
-;; currently can't do that we parse the content of the breakpoints
-;; window.
-;;
-;; Note: The :function kind is not yet implemented.
-(defun rdebug-breakpoint-parse-and-update-cache ()
- "Build up the return value of `rdebug-breakpoint-all'."
- (save-excursion
- (goto-char (point-min))
- (let ((res '()))
- (while (not (eobp))
- (when (looking-at rdebug-breakpoint-regexp)
- (push (list :file
- ;; Break point number
- (string-to-number (match-string 1))
- ;; Enabled
- (string= (match-string 2) "y")
- ;; File name
- (file-truename
- (match-string-no-properties 3))
- ;; Line number
- (string-to-number (match-string 4)))
- res))
- (forward-line 1))
- ;; The result goes into a buffer-local variable in the debugger
- ;; shell. (This ensures that this would work in a multi-session
- ;; environment.)
- (if gud-comint-buffer
- (with-current-buffer gud-comint-buffer
- (set (make-local-variable 'rdebug-breakpoint-cache)
- (nreverse res)))))))
-
-
-(defun rdebug-breakpoint-all ()
- "Return a list of all breakpoints.
-
-Each entry in the list is on the form:
-
- (:file number enabled file line)
-
-or
-
- (:function number enabled class function)"
- (and gud-comint-buffer
- (buffer-local-value 'rdebug-breakpoint-cache gud-comint-buffer)))
-
-
-(defun rdebug-file-and-line-arg ()
- "Return the current file and line number as a list."
- (save-excursion
- (beginning-of-line)
- (list (buffer-file-name) (+ 1 (count-lines (point-min) (point))))))
-
-(defun rdebug-breakpoint-on-line (file line)
- "Return a list of the breakpoints on the file FILE and current source LINE."
- (let ((res '()))
- (dolist (entry (rdebug-breakpoint-all))
- (if (and (eq (nth 0 entry) :file)
- (string= (nth 3 entry) file)
- (equal (nth 4 entry) line))
- (push entry res)))
- res))
-
-
-(defun rdebug-toggle-source-breakpoint (file line)
- "Toggle break point in FILE on current source LINE."
- (interactive (rdebug-file-and-line-arg))
- (cond ((eq major-mode 'rdebug-breakpoint-mode)
- (rdebug-delete-breakpoint))
- ((null file)
- ;; Do nothing.
- )
- (t
- (let ((bps (rdebug-breakpoint-on-line file line)))
- (if bps
- (gud-call (format "delete %s" (nth 1 (car bps))))
- (gud-call (format "break %s:%d" file line)))))))
-
-
-(defun rdebug-toggle-source-breakpoint-enabled (file line)
- "Enable or disable a breakpoint in FILE on the current source LINE."
- (interactive (rdebug-file-and-line-arg))
- (cond ((eq major-mode 'rdebug-breakpoint-mode)
- (rdebug-toggle-breakpoint))
- ((null file)
- ;; Do nothing.
- )
- (t
- (let ((bps (rdebug-breakpoint-on-line file line)))
- (if bps
- ;; Note: If the line contains more than one simply use the
- ;; first one.
- (let ((entry (car bps)))
- (if (nth 2 entry)
- (gud-call (format "disable %s" (nth 1 entry)))
- (gud-call (format "enable %s" (nth 1 entry)))))
- (gud-call (format "break %s:%d" file line)))))))
-
-
-;; ---------------------------------------------------------
-;; Commands of the rdebug breakpoints buffer.
-;;
-
-(defun rdebug-delete-breakpoint (&optional pt)
- "Deletes the breakpoint at PT in the breakpoints buffer."
- (interactive "d")
- (save-excursion
- (if pt
- (goto-char pt))
- (let ((s (buffer-substring (line-beginning-position) (line-end-position))))
- (when (string-match rdebug-breakpoint-regexp s)
- (let ((bpnum (substring s (match-beginning 1) (match-end 1))))
- (gud-call (format "delete %s" bpnum)))))))
-
-(defun rdebug-goto-breakpoint (pt)
- "Displays the location in a source file of the selected breakpoint.
-Argument PT indicates the file and line where the breakpoint should be set."
- (interactive "d")
- (save-excursion
- (goto-char pt)
- (let ((s (buffer-substring (line-beginning-position) (line-end-position))))
- (when (string-match rdebug-breakpoint-regexp s)
- (rdebug-display-line
- (substring s (match-beginning 3) (match-end 3))
- (string-to-number (substring s (match-beginning 4) (match-end 4))))
- ))))
-
-
-(defun rdebug-goto-breakpoint-mouse (event)
- "Displays the location in a source file of the selected breakpoint."
- (interactive "e")
- (with-current-buffer (window-buffer (posn-window (event-end event)))
- (rdebug-goto-breakpoint (posn-point (event-end event)))))
-
-
-(defun rdebug-get-breakpoint-number (pt)
- "Return the current breakpoint number in the breakpoint secondary window or nil if none found."
- (interactive "d")
- (save-excursion
- (goto-char pt)
- (let ((s (buffer-substring (line-beginning-position) (line-end-position))))
- (if (string-match rdebug-breakpoint-regexp s)
- (substring s (match-beginning 1) (match-end 1))
- nil))))
-
-(defun rdebug-toggle-breakpoint (&optional pt)
- "Toggle the breakpoint at PT in the breakpoints buffer."
- (interactive "d")
- (save-excursion
- (if pt
- (goto-char pt))
- (let ((s (buffer-substring (line-beginning-position) (line-end-position))))
- (when (string-match rdebug-breakpoint-regexp s)
- (let* ((enabled
- (string= (substring s (match-beginning 2) (match-end 2)) "y"))
- (cmd (if enabled "disable" "enable"))
- (bpnum (substring s (match-beginning 1) (match-end 1))))
- (gud-call (format "%s breakpoint %s" cmd bpnum)))))))
-
-(defun rdebug-add-breakpoint-condition (pt)
- "Add an expression as a condition to the break `rdebug' Ruby debugger."
- (interactive "d")
- (let ((bpnum (rdebug-get-breakpoint-number pt))
- (expr (read-string "Ruby expression for breakpoint condition: ")))
- (if bpnum
- (gud-call (format "condition %s %s" bpnum expr))
- (message "Breakpoint number not found"))))
-
-
-;; -----------------------------------------------
-;; Breakpoint icon support.
-;;
-
-;; This is a trivial implementation, it has the following shortcomings:
-;;
-;; * It assumes that the buffer content doesn't change, if it does it
-;; will not be able to remove the icon.
-;;
-;; * No support for displaying an icon in a newly opened file.
-;;
-;; * It has no support for more than one session.
-
-;; Note: This is implemented on top of `gdb-ui'. In the future, it
-;; would be better if that code is generalized.
-
-(require 'gdb-ui)
-
-;; This is a local variable, should not be placed in rdebug-vars.el.
-(defvar rdebug-breakpoint-icons-current-state nil)
-
-(defun rdebug-breakpoint-remove-icon (entry)
- "Remove the the source buffer the fringe breakpoint icon breakpoint ENTRY."
- (if (eq (nth 0 entry) :file)
- (let ((buf (find-buffer-visiting (nth 3 entry))))
- (if buf
- (save-current-buffer
- (set-buffer buf)
- (save-excursion
- (goto-line (nth 4 entry))
- (gdb-remove-breakpoint-icons (point) (point))))))))
-
-(defun rdebug-breakpoint-remove-all-icons ()
- "Remove all breakpoint fringe icons."
- (interactive)
- (dolist (entry rdebug-breakpoint-icons-current-state)
- (rdebug-breakpoint-remove-icon entry))
- (setq rdebug-breakpoint-icons-current-state nil))
-
-
-(defun rdebug-breakpoint-add-icon (entry)
- (if (eq (nth 0 entry) :file)
- (let ((buf (find-buffer-visiting (nth 3 entry))))
- (if buf
- (save-current-buffer
- (set-buffer buf)
- (save-excursion
- (goto-line (nth 4 entry))
- ;; Workaround for bug in `gdb-ui'. (It checks
- ;; `left-fringe-width' but it doesn't interpret the
- ;; `nil' value correctly.
- (let ((gdb-buffer-fringe-width (car (window-fringes))))
- (gdb-put-breakpoint-icon (nth 2 entry)
- (number-to-string (nth 1 entry))))))))))
-
-(defun rdebug-breakpoint-list-member (file line list)
- (let ((res nil))
- (dolist (entry list)
- (if (and (equal file (nth 3 entry))
- (equal line (nth 4 entry)))
- (setq res t)))
- res))
-
-;; bpts has the same representation as returned by `rdebug-breakpoint-all'.
-(defun rdebug-breakpoint-update-icons (bpts)
- ;; Make sure there are is only one reference for each line.
- (let ((state '()))
- ;; An enabled breakpoint take precedence.
- (dolist (enabled '(t nil))
- (dolist (bpt bpts)
- (if (and (eq (nth 0 bpt) :file)
- (eq (nth 2 bpt) enabled)
- (not (rdebug-breakpoint-list-member
- (nth 3 bpt) (nth 4 bpt) state)))
- (setq state (cons bpt state)))))
- (dolist (entry rdebug-breakpoint-icons-current-state)
- (unless (member entry state)
- (rdebug-breakpoint-remove-icon entry)))
- (dolist (entry state)
- (unless (member entry rdebug-breakpoint-icons-current-state)
- (rdebug-breakpoint-add-icon entry)))
- (setq rdebug-breakpoint-icons-current-state state)))
-
-;; -------------------------------------------------------------------
-;; The end.
-;;
-
-(provide 'rdebug-breaks)
-
-;;; Local variables:
-;;; eval:(put 'rdebug-debug-enter 'lisp-indent-hook 1)
-;;; End:
-
-(provide 'rdebug-breaks)
-
-;;; rdebug-breaks.el ends here
View
92 emacs/.svn/text-base/rdebug-cmd.el.svn-base
@@ -1,92 +0,0 @@
-;;; rdebug-cmd.el --- Ruby debugger command buffer
-
-;; Copyright (C) 2008 Rocky Bernstein (rocky@gnu.org)
-;; Copyright (C) 2008 Anders Lindgren
-
-;; $Id$
-
-;; 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 GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Commentary:
-
-;; See the manual and the file `rdebug.el' for more information.
-
-;; This file contains code dealing primarily with the command buffer.
-
-;;; Code:
-
-(require 'ring)
-(require 'rdebug-locring)
-
-(defun rdebug-command-initialization ()
- "Initialization of command buffer common to `rdebug' and`rdebug-track-attach'."
-
- ;; This opens up "Gud" menu, which isn't used since we've got our
- ;; own "Debugger" menu.
- ;; (set (make-local-variable 'gud-minor-mode) 'rdebug)
-
- (set (make-local-variable 'rdebug-call-queue) '())
- (set (make-local-variable 'rdebug-original-read-only) buffer-read-only)
- (make-local-variable 'rdebug-source-location-ring-size) ; ...to global val.
- (set (make-local-variable 'rdebug-source-location-ring)
- (make-ring rdebug-source-location-ring-size))
- (make-local-variable 'rdebug-source-location-ring-index)
- (rdebug-locring-clear)
-
- (gud-def gud-args "info args" "a"
- "Show arguments of current stack frame.")
- (gud-def gud-break "break %d%f:%l""\C-b"
- "Set breakpoint at current line.")
- (gud-def gud-cont "continue" "\C-r"
- "Continue with display.")
- (gud-def gud-down "down %p" "<"
- "Down N stack frames (numeric arg).")
- (gud-def gud-finish "finish" "\C-f"
- "Finish executing current function.")
- (gud-def gud-source-resync "up 0" "\C-l"
- "Show current source window")
- (gud-def gud-remove "clear %d%f:%l" "\C-d"
- "Remove breakpoint at current line")
- (gud-def gud-quit "quit" "Q"
- "Quit debugger.")
-
- (gud-def gud-statement "eval %e" "\C-e"
- "Execute Ruby statement at point.")
- (gud-def gud-tbreak "tbreak %d%f:%l" "\C-t"
- "Set temporary breakpoint at current line.")
- (gud-def gud-up "up %p"
- ">" "Up N stack frames to a newer frame (numeric arg).")
- (gud-def gud-where "where"
- "T" "Show stack trace.")
-
- (local-set-key [M-insert] 'rdebug-internal-short-key-mode)
- (local-set-key [M-down] 'rdebug-locring-newer)
- (local-set-key [M-up] 'rdebug-locring-older)
- (local-set-key [M-S-down] 'rdebug-locring-newest)
- (local-set-key [M-S-up] 'rdebug-locring-oldest)
- ;; (local-set-key "\C-i" 'gud-gdb-complete-command)
- (local-set-key "\C-c\C-n" 'comint-next-prompt)
- (local-set-key "\C-c\C-p" 'comint-previous-prompt))
-
-;; stopping location motion routines.
-
-(provide 'rdebug-cmd)
-
-;;; Local variables:
-;;; eval:(put 'rdebug-debug-enter 'lisp-indent-hook 1)
-;;; End:
-
-;;; rdebug-cmd.el ends here
View
502 emacs/.svn/text-base/rdebug-core.el.svn-base
@@ -1,502 +0,0 @@
-;;; rdebug-core.el --- Core parts of the Ruby debugger user
-;;; interface. It pulls in other parts of the debugger.
-
-;; Copyright (C) 2006, 2007, 2008 Rocky Bernstein (rocky@gnu.org)
-;; Copyright (C) 2007, 2008 Anders Lindgren
-
-;; $Id$
-
-;; 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 GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Commentary:
-
-;; See the manual and the file `rdebug.el' for more information.
-
-;; This file implements the core of the debugger.
-
-;;; Code:
-
-;; -------------------------------------------------------------------
-;; Consistency checks.
-;;
-
-(if (< emacs-major-version 22)
- (error
- "This version of rdebug.el needs at least Emacs 22 or greater - you have version %d"
- emacs-major-version))
-
-
-;; -------------------------------------------------------------------
-;; Dependencies.
-;;
-
-(require 'gud)
-(require 'cl)
-
-(require 'rdebug)
-(require 'rdebug-annotate)
-(require 'rdebug-dbg)
-(require 'rdebug-cmd)
-(require 'rdebug-layouts)
-(require 'rdebug-source)
-(require 'rdebug-regexp)
-(require 'rdebug-vars)
-
-(defun rdebug-get-script-name (args)
- "Parse command line ARGS.
-
-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)))))
-
-;; -------------------------------------------------------------------
-;; Window configuration state support.
-;;
-
-(defun rdebug-set-window-configuration-state (state &optional dont-restore)
- "Change window configuration state.
-
-Two states are supported, `original' and `debugger'.
-
-When `dont-restore' is non-nil, the old window layout is not
-restored. This is used when a new layout is being drawn, for
-example when the debugger starts."
- (rdebug-debug-message "Setting state to %s (was %s)"
- state rdebug-window-configuration-state)
- (when (not (eq state rdebug-window-configuration-state))
- ;; Save the previous state.
- (cond ((not (eq rdebug-window-configuration-state 'original))
- (setq rdebug-debugger-window-configuration
- (current-window-configuration)))
- ((eq rdebug-window-configuration-state 'original)
- (setq rdebug-original-window-configuration
- (current-window-configuration))))
- (unless dont-restore
- ;; Switch to the saved state,
- (cond
- ((not (eq state 'original))
- (if rdebug-debugger-window-configuration
- (set-window-configuration rdebug-debugger-window-configuration)))
- ((eq state 'original)
- (if rdebug-original-window-configuration
- (set-window-configuration rdebug-original-window-configuration)))))
- (setq rdebug-window-configuration-state state)))
-
-
-;; have to bind rdebug-file-queue before installing the kill-emacs-hook
-(defvar rdebug-file-queue nil
- "Queue of Makefile temp files awaiting execution.
-Currently-active file is at the head of the list.")
-
-(defun rdebug-goto-traceback-line (pt)
- "Display the location PT in a source file of the Ruby traceback line."
- (interactive "d")
- (save-excursion
- (goto-char pt)
- (let ((s (buffer-substring (line-beginning-position) (line-end-position)))
- (gud-comint-buffer (current-buffer)))
- (when (string-match rdebug-traceback-line-re s)
- (rdebug-display-line
- (substring s (match-beginning 1) (match-end 1))
- (string-to-number (substring s (match-beginning 2) (match-end 2))))
- ))))
-
-(defun rdebug-goto-dollarbang-traceback-line (pt)
- "Display the location PT in a source file of the Ruby $! traceback line."
- (interactive "d")
- (save-excursion
- (goto-char pt)
- (let ((s (buffer-substring (line-beginning-position) (line-end-position)))
- (gud-comint-buffer (current-buffer)))
- (when (string-match rdebug-dollarbang-traceback-line-re s)
- (rdebug-display-line
- (substring s (match-beginning 1) (match-end 1))
- (string-to-number (substring s (match-beginning 2) (match-end 2))))
- ))))
-
-;; -------------------------------------------------------------------
-;; Secondary buffers.
-;;
-
-(require 'rdebug-secondary)
-(require 'rdebug-breaks)
-(require 'rdebug-frames)
-(require 'rdebug-help)
-(require 'rdebug-output)
-(require 'rdebug-varbuf)
-(require 'rdebug-watch)
-
-
-;; -------------------------------------------------------------------
-;; Windows.
-;;
-
-(defun rdebug-setup-windows (&optional erase)
- "Create the debugger user interface window layout.
-
-If ERASE is non-nil, the content of the windows are erased
-\(this does not apply to accumulative windows).
-
-This function displays the source file (or, in some cases, a
-buffer list) and creates the window layout. The variable
-`rdebug-window-layout-function' controls the function that is
-used to perform the actual layout.
-
-This is only used when `rdebug-many-windows' is non-nil."
- (rdebug-debug-enter "rdebug-setup-windows"
- (rdebug-set-window-configuration-state 'debugger t)
- (pop-to-buffer gud-comint-buffer)
- (maphash
- (lambda (name func)
- (if erase
- (let ((buf (rdebug-get-existing-buffer name gud-target-name)))
- (if buf
- (with-current-buffer buf
- (let ((inhibit-read-only t))
- (erase-buffer))))))
- (rdebug-process-annotation name ""))
- rdebug-annotation-setup-map)
- (let ((buf
- (cond (gud-last-last-frame
- (gud-find-file (car gud-last-last-frame)))
- (gud-target-name
- (gud-find-file gud-target-name)))))
- ;; Put a buffer in window if we can't find a source file.
- (unless buf (setq buf (get-buffer-create "*scratch*")))
- (funcall rdebug-window-layout-function buf gud-target-name))))
-
-
-(defun rdebug-setup-windows-initially ()
- "Like `rdebug-setup-windows', but erase the content of accumulative windows.
-This is called when the debugger starts."
- (rdebug-setup-windows t))
-
-
-(defun rdebug-restore-debugger-window-layout ()
- "Restore the initial ruby debugger window layout."
- (interactive)
- (when rdebug-many-windows
- (rdebug-setup-windows)))
-
-(defun rdebug-display-debugger-window-configuration ()
- "Switch from the \"original\" to the \"debugger\" window layout.
-
-The rdebug debugger remembers, and can switch between, two window layouts:
- * original -- the window layout when the debugger was started.
- * debugger -- the window layout of the debugger, plus all changes made
- since the debugger started.
-
-The check-marks in the \"Window Layout\" menu indicates the
-active window layout.
-
-The function `rdebug-display-original-window-configuration'
-switch to the \"original\" window configuration.
-
-The function `rdebug-restore-debugger-window-layout' restores the
-window layout to the state it was when the debugger started."
- (interactive)
- (rdebug-set-window-configuration-state 'debugger)
- (message
- "Type `M-x rdebug-display-original-window-configuration RET' to restore."))
-
-
-;;This function is called upon quitting the debugger and
-;;`rdebug-many-windows' is not nil. See also
-;;`rdebug-display-debugger-window-configuration'."
-
-(defun rdebug-display-original-window-configuration ()
- "Switch from the \"debugger\" to the \"original\" window layout.
-
-The rdebug debugger remembers, and can switch between, two window layouts:
- * original -- the window layout when the debugger was started.
- * debugger -- the window layout of the debugger, plus all changes made
- since the debugger started.
-
-The check-marks in the \"Window Layout\" menu indicates the
-active window layout.
-
-The function `rdebug-display-debugger-window-configuration'
-switch to the \"debugger\" window configuration."
- (interactive)
- (rdebug-set-window-configuration-state 'original)
- (message
- "Type `M-x rdebug-display-debugger-window-configuration RET' to restore."))
-
-
-;; -------------------------------------------------------------------
-;; The `rdebug' command and support functions.
-;;
-
-(defun rdebug-process-sentinel (process event)
- "Restore the original window configuration when the debugger process exits."
- (rdebug-debug-enter "rdebug-process-sentinel"
- (rdebug-debug-message "status=%S event=%S state=%S"
- (process-status process)
- event
- rdebug-window-configuration-state)
- (gud-sentinel process event)
- ;; This will "flush" the last annotation. Especially "output"
- ;; (a.k.a. "starting") annotations don't have an end markers, if
- ;; the last command printed something.
- (if (string= event "finished\n")
- (gud-rdebug-marker-filter "\032\032\n"))
- ;; When the debugger process exited, when the comint buffer has no
- ;; buffer process (nil). When the debugger processes is replaced
- ;; with another process we should not restore the window
- ;; configuration.
- (when (and (or (eq rdebug-restore-original-window-configuration t)
- (and (eq rdebug-restore-original-window-configuration :many)
- rdebug-many-windows))
- (or (rdebug-dead-process-p)
- (eq process (get-buffer-process gud-comint-buffer)))
- (eq rdebug-window-configuration-state 'debugger)
- (not (eq (process-status process) 'run)))
- (rdebug-internal-short-key-mode-off)
- (rdebug-set-window-configuration-state 'original)
- (rdebug-reset-keymaps))))
-
-
-;; Perform initializations common to all debuggers.
-;; The first arg is the specified command line,
-;; which starts with the program to debug.
-;; The other three args specify the values to use
-;; for local variables in the debugger buffer.
-(defun rdebug-common-init (rdebug-buffer-name rdebug-cmd-buffer target-name
- program args
- marker-filter
- &optional find-file)
- "Perform initializations common to all debuggers.
-
-RDEBUG-BUFFER-NAME is the specified command line, which starts
-with the program to debug. PROGRAM, ARGS and MARKER-FILTER
-specify the values to use for local variables in the debugger
-buffer."
- (if rdebug-cmd-buffer
- (progn
- (pop-to-buffer rdebug-cmd-buffer)
- (when (and rdebug-cmd-buffer (get-buffer-process rdebug-cmd-buffer))
- (error "This program is already being debugged"))
- (apply 'make-comint rdebug-buffer-name program nil args)
- (or (bolp) (newline)))
- (pop-to-buffer (setq rdebug-cmd-buffer
- (apply 'make-comint rdebug-buffer-name program nil
- args))))
-
- ;; Since comint clobbered the mode, we don't set it until now.
- (gud-mode)
- (set (make-local-variable 'gud-target-name) target-name)
- (set (make-local-variable 'gud-marker-filter) marker-filter)
- (set (make-local-variable 'gud-minor-mode) 'rdebug)
- (set (make-local-variable 'gud-last-frame) nil)
- (set (make-local-variable 'gud-last-last-frame) nil)
-
- (let ((buffer-process (get-buffer-process (current-buffer))))
- (if buffer-process
- (progn
- (set-process-filter buffer-process 'gud-filter)
- (set-process-sentinel buffer-process 'gud-sentinel))))
- (gud-set-buffer))
-
-;;;###autoload
-(defun rdebug (command-line)
- "Invoke the rdebug Ruby debugger and start the Emacs user interface.
-
-String COMMAND-LINE specifies how to run rdebug.
-
-By default, the \"standard\" user window layout looks like the following:
-
-+----------------------------------------------------------------------+
-| Toolbar |
-+-----------------------------------+----------------------------------+
-| Debugger shell | Variables buffer |
-+-----------------------------------+----------------------------------+
-| | |
-| Source buffer | Output buffer |
-| | |
-+-----------------------------------+----------------------------------+
-| Stack Frame buffer | Breakpoints buffer |
-+-----------------------------------+----------------------------------+
-
-The variable `rdebug-window-layout-function' can be
-customized so that another layout is used. In addition to a
-number of predefined layouts it's possible to define a function
-to perform a custom layout.
-
-If `rdebug-many-windows' is nil, only a traditional debugger
-shell and source window is opened.
-
-The directory containing the debugged script becomes the initial
-working directory and source-file directory for your debugger.
-
-The custom variable `gud-rdebug-command-name' sets the command
-and options used to invoke rdebug."
- (interactive
- (let ((init (buffer-file-name)))
- (setq init (and init
- (file-name-nondirectory init)))
- (list (gud-query-cmdline 'rdebug init))))
- (rdebug-debug-enter "rdebug"
- (rdebug-set-window-configuration-state 'debugger t)
- ;; Parse the command line and pick out the script name and whether
- ;; --annotate has been set.
- (let* ((words (with-no-warnings
- (split-string-and-unquote command-line)))
- (script-name-annotate-p (rdebug-get-script-name
- (gud-rdebug-massage-args "1" words)))
- (target-name (file-name-nondirectory (car script-name-annotate-p)))
- (annotate-p (cadr script-name-annotate-p))
- (cmd-buffer-name (format "rdebug-cmd-%s" target-name))
- (rdebug-cmd-buffer-name (format "*%s*" cmd-buffer-name))
- (rdebug-cmd-buffer (get-buffer rdebug-cmd-buffer-name))
- (program (car words))
- (args (cdr words))
- (gud-chdir-before-run nil))
-
- ;; `gud-rdebug-massage-args' needs whole `command-line'.
- ;; command-line is refered through dynamic scope.
- (rdebug-common-init cmd-buffer-name rdebug-cmd-buffer target-name
- program args
- 'gud-rdebug-marker-filter
- 'gud-rdebug-find-file)
- (setq comint-process-echoes t)
-
- (setq rdebug-inferior-status "running")
-
- (rdebug-command-initialization)
-
- ;; Setup exit callback so that the original frame configuration
- ;; can be restored.
- (let ((process (get-buffer-process gud-comint-buffer)))
- (when process
- (unless (equal rdebug-line-width 120)
- (gud-call (format "set width %d" rdebug-line-width)))
- (set-process-sentinel process
- 'rdebug-process-sentinel)))
-
-
- ;; Add the buffer-displaying commands to the Gud buffer,
- ;; FIXME: combine with code in rdebug-track.el; make common
- ;; command buffer mode map.
- (let ((prefix-map (make-sparse-keymap)))
- (define-key (current-local-map) gud-key-prefix prefix-map)
- (define-key prefix-map "t" 'rdebug-goto-traceback-line)
- (define-key prefix-map "!" 'rdebug-goto-dollarbang-traceback-line)
- (rdebug-populate-secondary-buffer-map-plain prefix-map))
-
- (rdebug-populate-common-keys (current-local-map))
- (rdebug-populate-debugger-menu (current-local-map))
-
- (setq comint-prompt-regexp (concat "^" rdebug-input-prompt-regexp))
- (setq paragraph-start comint-prompt-regexp)
-
- (setcdr (assq 'rdebug-debugger-support-minor-mode minor-mode-map-alist)
- rdebug-debugger-support-minor-mode-map-when-active)
- (when rdebug-many-windows
- (rdebug-setup-windows-initially))
-
- (run-hooks 'rdebug-mode-hook))))
-
-
-(defadvice gud-reset (before rdebug-reset)
- "Rdebug cleanup - remove debugger's internal buffers (frame, breakpoints, etc.)."
- (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))))
-(ad-activate 'gud-reset)
-
-(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 rdebug-customize ()
- "Use `customize' to edit the settings of the `rdebug' debugger."
- (interactive)
- (customize-group 'rdebug))
-
-
-;; -------------------------------------------------------------------
-;; The end.
-;;
-
-(provide 'rdebug-core)
-
-;;; Local variables:
-;;; eval:(put 'rdebug-debug-enter 'lisp-indent-hook 1)
-;;; End:
-
-;;; rdebug-core.el ends here
View
62 emacs/.svn/text-base/rdebug-dbg.el.svn-base
@@ -1,62 +0,0 @@
-;;; rdebug-dbg.el --- Ruby debugger frames buffer
-
-;; Copyright (C) 2008 Rocky Bernstein (rocky@gnu.org)
-;; Copyright (C) 2008 Anders Lindgren
-
-;; $Id$
-
-;; 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 GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Commentary:
-
-;; See the manual and the file `rdebug.el' for more information.
-
-;; This file contains internal debug trace support.
-
-;;; Code:
-
-(require 'rdebug-vars)
-
-(defun rdebug-debug-message (&rest args)
- (if rdebug-debug-active
- (let ((buf (get-buffer-create "*Xrdebug*")))
- (with-current-buffer buf
- (save-excursion
- (goto-char (point-max))
- ;; 32 = space.
- (insert (make-string (* 4 rdebug-debug-depth) 32))
- (insert (apply #'format args))
- (insert "\n"))))))
-
-
-(defmacro rdebug-debug-enter (str &rest body)
- (declare (indent 1) (debug t))
- `(progn
- (rdebug-debug-message "--> %s" ,str)
- (setq rdebug-debug-depth (+ rdebug-debug-depth 1))
- (unwind-protect
- (progn
- ,@body)
- (setq rdebug-debug-depth (max 0 (- rdebug-debug-depth 1)))
- (rdebug-debug-message "<-- %s" ,str))))
-
-(provide 'rdebug-dbg)
-
-;;; Local variables:
-;;; eval:(put 'rdebug-debug-enter 'lisp-indent-hook 1)
-;;; End:
-
-;;; rdebug-dbg.el ends here
View
79 emacs/.svn/text-base/rdebug-error.el.svn-base
@@ -1,79 +0,0 @@
-;;; rdebug-error.el --- Ruby debugger error buffer
-
-;; Copyright (C) 2008 Rocky Bernstein (rocky@gnu.org)
-;; Copyright (C) 2008 Anders Lindgren
-
-;; $Id$
-
-;; 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