Merge pull request #644 from Ducasse/patch-1

Create allPackageNames.st
hpi-swa · Jun 12, 2024 · 25221dd · 25221dd
2 parents cdd3710 + 570d5d1
commit 25221dd
Show file tree

Hide file tree

Showing 8 changed files with 31 additions and 2 deletions.
diff --git a/repository/SmalltalkCI-Pharo-Core.package/SmalltalkCIPharo.class/class/classesFrom..st b/repository/SmalltalkCI-Pharo-Core.package/SmalltalkCIPharo.class/class/classesFrom..st
@@ -13,7 +13,10 @@ classesFrom: aDictionary
 				commandLineHandler addPackagesMatching: each to: packages ].
 			packages do: [ :each |
 				| package |
-				package := (Smalltalk at: #RPackageOrganizer) default packageNamed: each.
-				classes addAll: package definedClasses ] ].
+				package := self
+					packageNamed: each
+					ifAbsent: [ nil ].
+				package ifNotNil: [
+					classes addAll: package definedClasses ] ] ].
 
 	^ classes	
diff --git a/repository/SmalltalkCI-Pharo-Core.package/SmalltalkCIPharo13.class/class/allPackageNames.st b/repository/SmalltalkCI-Pharo-Core.package/SmalltalkCIPharo13.class/class/allPackageNames.st
@@ -0,0 +1,3 @@
+class organization
+allPackageNames
+	^ (Smalltalk globals at: #PackageOrganizer) default packageNames
diff --git a/...sitory/SmalltalkCI-Pharo-Core.package/SmalltalkCIPharo13.class/class/codeCoverageClass.st b/...sitory/SmalltalkCI-Pharo-Core.package/SmalltalkCIPharo13.class/class/codeCoverageClass.st
@@ -0,0 +1,4 @@
+compatibility
+codeCoverageClass
+
+	^ Smalltalk at: #SCIPharo13CodeCoverage
diff --git a/...y/SmalltalkCI-Pharo-Core.package/SmalltalkCIPharo13.class/class/packageNamed.ifAbsent..st b/...y/SmalltalkCI-Pharo-Core.package/SmalltalkCIPharo13.class/class/packageNamed.ifAbsent..st
@@ -0,0 +1,3 @@
+class organization
+packageNamed: aString ifAbsent: errorBlock
+	^ (Smalltalk at: #PackageOrganizer) default packageNamed: aString ifAbsent: errorBlock
diff --git a/repository/SmalltalkCI-Pharo-Core.package/SmalltalkCIPharo13.class/methodProperties.json b/repository/SmalltalkCI-Pharo-Core.package/SmalltalkCIPharo13.class/methodProperties.json
@@ -1,6 +1,8 @@
 {
 	"class" : {
+		"allPackageNames" : "MaxLeske 6/11/2024 20:01",
 		"codeCoverageClass" : "MaxLeske 4/29/2024 19:25",
+		"packageNamed:ifAbsent:" : "MaxLeske 6/11/2024 20:01",
 		"isPlatformCompatible" : "MaxLeske 4/29/2024 19:25"},
 	"instance" : {
 		 } }
diff --git a/.../SmalltalkCI-Pharo-Coverage-Core.package/SCIPharo13CodeCoverage.class/README.md b/.../SmalltalkCI-Pharo-Coverage-Core.package/SCIPharo13CodeCoverage.class/README.md
diff --git a/...CI-Pharo-Coverage-Core.package/SCIPharo13CodeCoverage.class/class/packageNameForClass..st b/...CI-Pharo-Coverage-Core.package/SCIPharo13CodeCoverage.class/class/packageNameForClass..st
@@ -0,0 +1,3 @@
+compatibility
+packageNameForClass: aClass
+	^ ((Smalltalk at: #PackageOrganizer) default packageOf: aClass) name
diff --git a/...tory/SmalltalkCI-Pharo-Coverage-Core.package/SCIPharo13CodeCoverage.class/properties.json b/...tory/SmalltalkCI-Pharo-Coverage-Core.package/SCIPharo13CodeCoverage.class/properties.json
@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "",
+	"super" : "SCIPharo12CodeCoverage",
+	"category" : "SmalltalkCI-Pharo-Coverage-Core",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "SCIPharo13CodeCoverage",
+	"type" : "normal"
+}