Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Through filters #76

Draft
wants to merge 2 commits into
base: main
Choose a base branch
from
Draft
Changes from 1 commit
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Next Next commit
wip through filters
Closes #73
  • Loading branch information
LinqLover committed Apr 29, 2022
commit a2fe4f00d0c824a8884b20ebfdebe68cd957ddb2
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
*TraceDebugger-Core-testing
tdbIsOrHasSender: aContext

^ (self tdbIdentical: aContext) or: [self hasSender: aContext tdbproxyYourself]
Original file line number Diff line number Diff line change
@@ -6,6 +6,7 @@
"tdbFullStack" : "ct 2/8/2022 19:26",
"tdbHandlerContexts" : "ct 3/19/2022 20:36",
"tdbHasHome:" : "ct 11/30/2021 22:52",
"tdbIsOrHasSender:" : "ct 3/23/2022 22:20",
"tdbIsSignalContext" : "ct 3/21/2022 16:34",
"tdbIsUnhandledSignalContext" : "ct 3/21/2022 16:34",
"tdbLivingHomeSuchThat:" : "ct 3/13/2022 01:13",
Original file line number Diff line number Diff line change
@@ -0,0 +1,12 @@
private
streamChildrenForFilter: filter aboveHome: startContext on: aStream

self children do: [:child |
(((child contextAtTime: child minTimeIndex) home in: [:childHome | startContext tdbIsOrHasSender: childHome])
and: [filter value: child originalContext])
ifTrue: [aStream nextPut: child]
ifFalse:
[child
streamChildrenForFilter: filter
aboveHome: startContext
on: aStream]].
Original file line number Diff line number Diff line change
@@ -4,4 +4,8 @@ streamChildrenForFilter: filter on: aStream
self children do: [:child |
(filter value: child originalContext)
ifTrue: [aStream nextPut: child]
ifFalse: [child streamChildrenForFilter: filter on: aStream]].
ifFalse:
[child
streamChildrenForFilter: filter
aboveHome: self originalContext home
on: aStream]].
Original file line number Diff line number Diff line change
@@ -25,7 +25,8 @@
"printOn:" : "ct 12/1/2021 23:08",
"spaceUsed" : "ct 3/15/2022 22:01",
"streamAllContextsOn:satisfying:" : "ct 3/14/2022 19:04",
"streamChildrenForFilter:on:" : "ct 2/19/2022 16:48",
"streamChildrenForFilter:aboveHome:on:" : "ct 3/23/2022 22:28",
"streamChildrenForFilter:on:" : "ct 3/23/2022 22:26",
"traceAtTime:" : "ct 11/30/2021 20:26",
"traceAtTime:ifAbsent:" : "ct 1/26/2022 14:34",
"tracingSimulatorClass" : "ct 1/7/2022 19:58",