added catch exclusion filters

GeorgeJahad · Mar 26, 2011 · 93522aa · 93522aa
1 parent 98ed7c8
commit 93522aa
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/src/cdt/core.clj b/src/cdt/core.clj
@@ -126,16 +126,17 @@
 
 (expose cdtu/conn cdtu/vm cdtu/vm cdtu/continue-vm cdtu/list-threads cdtu/cf
         cdtu/print-threads cdtu/all-thread-groups cdtu/get-thread-from-id
-        cdtu/cdt-display-msg cdtu/CDT-DISPLAY-MSG cdtu/continue-thread
+        cdtu/cdt-display-msg cdtu/set-display-msg cdtu/continue-thread
 
         cdte/set-handler cdte/bp-list cdte/catch-list
         cdte/stepi cdte/step cdte/step-over cdte/finish cdte/ct cdte/set-catch
         cdte/delete-catch cdte/get-thread-from-event cdte/exception-event?
         cdte/exception-handler cdte/breakpoint-handler
         cdte/step-handler cdte/create-thread-start-request
+        cdte/set-catch-exclusion-filter-strings
 
         cdtb/print-bps cdtb/line-bp cdtb/delete-all-breakpoints cdtb/set-bp
-        cdtb/delete-bp
+        cdtb/set-bp-sym cdtb/delete-bp
 
         cdtr/locals cdtr/safe-reval cdtr/reval cdtr/reval-display)
 
diff --git a/src/cdt/utils.clj b/src/cdt/utils.clj
@@ -61,6 +61,8 @@
 (defn cf [] @current-frame)
 
 (defonce CDT-DISPLAY-MSG (atom false))
+(defn set-display-msg [val]
+  (reset! CDT-DISPLAY-MSG val))
 
 (defn cdt-display-msg [s]
   (condp = @CDT-DISPLAY-MSG