semantics: add missing dictionary method

hpi-swa-lab · Jun 19, 2024 · 414de1b · 414de1b
1 parent ea3c1af
commit 414de1b
Show file tree

Hide file tree

Showing 5 changed files with 21 additions and 2 deletions.
diff --git a/...lkExtras-Semantics.package/Dictionary.extension/instance/talkSemanticWithValuesSorted..st b/...lkExtras-Semantics.package/Dictionary.extension/instance/talkSemanticWithValuesSorted..st
@@ -0,0 +1,12 @@
+*SqueakInboxTalkExtras-Semantics-Core-sorting
+talkSemanticWithValuesSorted: aSortBlockOrNil
+
+	| sorted |
+	sorted := OrderedDictionary new: self size.
+	(self associations sorted:
+		(aSortBlockOrNil
+			ifNil: [[:someAssoc :otherAssoc | someAssoc value <= otherAssoc value]]
+			ifNotNil: [[:someAssoc :otherAssoc | aSortBlockOrNil value: someAssoc value value: otherAssoc value]]))
+		do: [:assoc |
+			sorted add: assoc].
+	^ sorted
diff --git a/packages/SqueakInboxTalkExtras-Semantics.package/Dictionary.extension/methodProperties.json b/packages/SqueakInboxTalkExtras-Semantics.package/Dictionary.extension/methodProperties.json
@@ -0,0 +1,5 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"talkSemanticWithValuesSorted:" : "ct 6/20/2024 01:06" } }
diff --git a/packages/SqueakInboxTalkExtras-Semantics.package/Dictionary.extension/properties.json b/packages/SqueakInboxTalkExtras-Semantics.package/Dictionary.extension/properties.json
@@ -0,0 +1,2 @@
+{
+	"name" : "Dictionary" }
diff --git a/...boxTalkExtras-Semantics.package/TalkSemanticAgent.class/instance/searchExact.semantic..st b/...boxTalkExtras-Semantics.package/TalkSemanticAgent.class/instance/searchExact.semantic..st
@@ -38,7 +38,7 @@ searchExact: exactTerms semantic: semanticTerms
 	sum := Dictionary new.
 	semanticResults do: [:ea |
 		ea keysAndValuesDo: [:k :v | sum at: k put: (sum at: k ifAbsent: [0]) + v]].
-	sum := (sum withValuesSorted: #yourself descending) keys.
+	sum := (sum talkSemanticWithValuesSorted: #yourself descending) keys.
 
 	results := (searchers gather: [:searcher | searcher filter: sum]) withoutDuplicates.
 

diff --git a/...ges/SqueakInboxTalkExtras-Semantics.package/TalkSemanticAgent.class/methodProperties.json b/...ges/SqueakInboxTalkExtras-Semantics.package/TalkSemanticAgent.class/methodProperties.json
@@ -10,4 +10,4 @@
 		"inbox:" : "ct 6/19/2024 17:10",
 		"initializeConversation:" : "ct 6/8/2024 00:28",
 		"openResults:" : "ct 6/7/2024 21:04",
-		"searchExact:semantic:" : "ct 6/19/2024 17:59" } }
+		"searchExact:semantic:" : "ct 6/20/2024 01:06" } }