Local Importer release in main

LICENSE

@@ -0,0 +1,21 @@
+MIT License
+
+Copyright (c) 2026 Moosetechnology
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.

src/BaselineOfGitLabHealth/BaselineOfGitLabHealth.class.st

@@ -49,18 +49,19 @@ BaselineOfGitLabHealth >> defineDependencies: spec [
 
 	spec
 		baseline: 'GitlabAPI'
-		with: [
-		spec repository: 'github://Evref-BL/Gitlab-Pharo-API:main' ].
-
-		spec
+		with: [ spec repository: 'github://Evref-BL/Gitlab-Pharo-API:main' ].
+
+	spec
 		baseline: 'GithubAPI'
-		with: [
-		spec repository: 'github://Evref-BL/github-Pharo-API:main' ].
+		with: [ spec repository: 'github://Evref-BL/github-Pharo-API:main' ].
 
 	spec
 		baseline: 'BitbucketPharoAPI'
 		with: [
-		spec repository: 'github://Evref-BL/Bitbucket-Pharo-API:main' ]
+		spec repository: 'github://Evref-BL/Bitbucket-Pharo-API:main' ].
+	spec
+		baseline: 'GitBridge'
+		with: [ spec repository: 'github://jecisc/GitBridge:v1.0.2/src' ]
 ]
 
 { #category : #baselines }
@@ -102,7 +103,10 @@ BaselineOfGitLabHealth >> defineGroups: spec [
 			   'GitLabHealth-Visualization' 'GitLabProjectHealth-Model-Importer'
 			   'GitProjectHealth-Model-Importer-Tests'
 			   'BitBucketHealth-Model-Importer'
-			   'BitBucketHealth-Model-Importer-Tests' ).
+			   'BitBucketHealth-Model-Importer-Tests'
+			   'GitProjectHealth-Model-LocalImporter'
+			   'GitProjectHealth-Model-LocalImporter-Tests'
+			   'GitProjectHealth-Model-MixedImporter' ).
 	spec group: 'default' with: #( 'Core' )
 ]
 
@@ -129,15 +133,22 @@ BaselineOfGitLabHealth >> defineJiraConnector: spec [
 
 { #category : #baselines }
 BaselineOfGitLabHealth >> definePackages: spec [
-
 	"generic"
+
 	spec
 		package: 'GitProjectHealth-Model-Importer'
 		with: [ spec requires: #( 'GitLabHealth-Model' ) ].
 	spec
 		package: 'GitProjectHealth-Model-Importer-Tests'
 		with: [ spec requires: #( 'GitProjectHealth-Model-Importer' ) ].
 
+	"test utility"
+	spec
+		package: 'GitProjectHealth-Bridge'
+		with: [ spec requires: #( 'GitBridge' ) ].
+
+
+
 	"model"
 	spec
 		package: 'GitLabHealth-Model';
@@ -178,6 +189,21 @@ BaselineOfGitLabHealth >> definePackages: spec [
 		package: 'GitHubHealth-Model-Importer-Tests'
 		with: [ spec requires: #( 'GitHubHealth-Model-Importer' ) ].
 
+	"local"
+	spec package: 'GitProjectHealth-Model-LocalImporter' with: [
+		spec requires:
+			#( 'GitProjectHealth-Model-Importer'
+			   'GitLabHealth-Model-Extension' ) ].
+	"mixed"
+	spec
+		package: 'GitProjectHealth-Model-MixedImporter'
+		with: [ spec requires: #( 'GitProjectHealth-Model-Importer' ) ].
+
+
+
+	spec package: 'GitProjectHealth-Model-LocalImporter-Tests' with: [
+		spec requires: #( 'GitProjectHealth-Model-LocalImporter'
+			   'GitProjectHealth-Bridge' ) ].
 
 	"model extension"
 	spec

src/BitBucketHealth-Model-Importer/BitBucketModelImporter.class.st

@@ -1,9 +1,6 @@
 Class {
 	#name : #BitBucketModelImporter,
 	#superclass : #GitModelImporter,
-	#instVars : [
-		'withInitialCommits'
-	],
 	#category : #'BitBucketHealth-Model-Importer'
 }
 
@@ -754,15 +751,3 @@ BitBucketModelImporter >> parseUserIntoGLHUser: userDictionnary [
 		  id: (userDictionnary at: #id);
 		  username: (userDictionnary at: #name)
 ]
-
-{ #category : #accessing }
-BitBucketModelImporter >> withInitialCommits [
-
-	^ withInitialCommits
-]
-
-{ #category : #accessing }
-BitBucketModelImporter >> withInitialCommits: anObject [
-
-	withInitialCommits := anObject
-]

src/GitHubHealth-Model-Importer/GithubModelImporter.class.st

@@ -71,8 +71,8 @@ GithubModelImporter >> completeImportedProject: aGLHProject [
 	aGLHProject repository: GLHRepository new.
 	self glhModel add: aGLHProject repository.
 
-	self importPipelinesOfProject: aGLHProject.
-	self importBranchesOf: aGLHProject.
+	self importAllPipelinesOfProject: aGLHProject.
+	self importBranchesOfProject: aGLHProject.
 	self withCommitsSince ifNotNil: [ :withCommitSince | "If not nil, it means we have to import commit"
 		| commits |
 		commits := self importCommitsOfProject: aGLHProject.
@@ -271,7 +271,6 @@ GithubModelImporter >> configureReaderForPipeline: reader [
 	reader
 		for: GLHPipeline
 		do: [ :mapping | "mapping mapInstVar: #status to: #conclusion."
-
 		(mapping mapInstVar: #created_at) valueSchema: DateAndTime.
 		(mapping mapInstVar: #updated_at) valueSchema: DateAndTime.
 
@@ -286,8 +285,7 @@ GithubModelImporter >> configureReaderForPipeline: reader [
 				mapProperty: #conclusion
 				getter: [ :object | #ignore ]
 				setter: [ :object :value |
-					(object status isNil and: [ value isNotNil ]) ifTrue: [
-						object status: value ] ].
+					value ifNotNil: [ object status: value ] ].
 
 			mapping
 				mapProperty: #run_started_at
@@ -343,6 +341,20 @@ GithubModelImporter >> ensureGroupNamed: aGroupName [
 		  ifNone: [ self glhModel newGroupNamed: aGroupName ]
 ]
 
+{ #category : #'import - pipelines' }
+GithubModelImporter >> importAllPipelinesOfProject: project [
+
+	"add the pipeline (actions runs) in the project"
+
+	| pipelinesResult ghApiPipelineOverview |
+	pipelinesResult := self repoApi actions
+		                   getLatestForRepo: project name
+		                   ofOwner: project group name.
+	ghApiPipelineOverview := self parsePipelinesResult: pipelinesResult.
+	ghApiPipelineOverview workflow_runs do: [ :pipeline | 
+		project addPipeline: pipeline ]
+]
+
 { #category : #'import - branches' }
 GithubModelImporter >> importBranchesOf: aGLHProject [
 	"add the pipeline (actions runs) in the project"
@@ -379,7 +391,7 @@ GithubModelImporter >> importBranchesOf: aGLHProject [
 	^ branches
 ]
 
-{ #category : #'import - repositories' }
+{ #category : #'import - branches' }
 GithubModelImporter >> importBranchesOfProject: aGLHProject [
 	"add the pipeline (actions runs) in the project"
 
@@ -817,15 +829,21 @@ GithubModelImporter >> importPipelinesOfMergeRequest: aGLHMergeRequest [
 
 { #category : #'import - pipelines' }
 GithubModelImporter >> importPipelinesOfProject: project [
-
 	"add the pipeline (actions runs) in the project"
 
 	| pipelinesResult ghApiPipelineOverview |
+	self
+		deprecated:
+		'Use importAllPipelinesOfProject: instead of current one'
+		on: '1 September 2026'
+		in:
+		'Pharo-12.0.0+SNAPSHOT.build.1571.sha.cf5fcd22e66957962c97dffc58b0393b7f368147 (64 Bit)'.
+
 	pipelinesResult := self repoApi actions
 		                   getLatestForRepo: project name
 		                   ofOwner: project group name.
 	ghApiPipelineOverview := self parsePipelinesResult: pipelinesResult.
-	ghApiPipelineOverview workflow_runs do: [ :pipeline | 
+	ghApiPipelineOverview workflow_runs do: [ :pipeline |
 		project addPipeline: pipeline ]
 ]
 

src/GitLabHealth-Model-Analysis-Tests/GLPHImporterMock.class.st

@@ -56,8 +56,15 @@ GLPHImporterMock >> glhModel: anObject [
 ]
 
 { #category : #'import - repositories' }
-GLPHImporterMock >> importBranchesOf: aGLHProject [ 
-	^ aGLHProject repository branches . 
+GLPHImporterMock >> importBranchesOf: aGLHProject [
+
+	self deprecated: #'It has been deprecated'
+]
+
+{ #category : #'import - repositories' }
+GLPHImporterMock >> importBranchesOfProject: aGLHProject [
+
+	^ aGLHProject repository branches
 ]
 
 { #category : #'import - commits' }

src/GitLabHealth-Model-Analysis-Tests/GitAnalyzerTest.class.st

@@ -60,17 +60,19 @@ GitAnalyzerTest >> testAnalyseAmandment [
 	mondayCommit -> tuesdayCommit -> wednesdayCommit
 	"
 	wednesdayCommit := glhImporter
-		                   importCommitOfProject: projects first
-		                   withId:
-		                   'f298ec312f81032b611a890f993d98096ab3bbc1'.
+		                   importCommit:
+		                   'f298ec312f81032b611a890f993d98096ab3bbc1'
+		                   ofProject: projects first.
 
 	mondayCommit := glhImporter
-		                importCommitOfProject: projects first
-		                withId: '8a6f665118e6fcfa468d7cce1a7e944ba65812ab'.
+		                importCommit:
+		                '8a6f665118e6fcfa468d7cce1a7e944ba65812ab'
+		                ofProject: projects first.
 
 	tuesdayCommit := glhImporter
-		                 importCommitOfProject: projects first
-		                 withId: '2c7308c727560dd425ef78f9a95ca7650d164bed'.
+		                 importCommit:
+		                 '2c7308c727560dd425ef78f9a95ca7650d164bed'
+		                 ofProject: projects first.
 
 	myCommits := {
 		             mondayCommit.
@@ -135,18 +137,19 @@ GitAnalyzerTest >> testChurnMetric [
 
 	"commit chain: mondayCommit -> tuesdayCommit -> wednesdayCommit "
 	wednesdayCommit := glhImporter
-		                   importCommitOfProject: projects first
-		                   withId:
-		                   'f298ec312f81032b611a890f993d98096ab3bbc1'.
+		                   importCommit:
+		                   'f298ec312f81032b611a890f993d98096ab3bbc1'
+		                   ofProject: projects first.
 
 	mondayCommit := glhImporter
-		                importCommitOfProject: projects first
-		                withId: '8a6f665118e6fcfa468d7cce1a7e944ba65812ab'.
+		                importCommit:
+		                '8a6f665118e6fcfa468d7cce1a7e944ba65812ab'
+		                ofProject: projects first.
 
 	tuesdayCommit := glhImporter
-		                 importCommitOfProject: projects first
-		                 withId: '2c7308c727560dd425ef78f9a95ca7650d164bed'.
-
+		                 importCommit:
+		                 '2c7308c727560dd425ef78f9a95ca7650d164bed'
+		                 ofProject: projects first.
 
 	myCommits := {
 		             mondayCommit.

src/GitLabHealth-Model-Analysis/ActiveBranchesProjectMetric.class.st

@@ -41,7 +41,5 @@ ActiveBranchesProjectMetric >> description [
 { #category : #loading }
 ActiveBranchesProjectMetric >> load [
 
-	^ projectBranches := self
-		                  loadBranchesSince: (period at: #since)
-		                  until: (period at: #until)
+	^ projectBranches := self loadAllBranches
 ]

src/GitLabHealth-Model-Analysis/GLHFile.extension.st

@@ -0,0 +1,26 @@
+Extension { #name : #GLHFile }
+
+{ #category : #'*GitLabHealth-Model-Analysis' }
+GLHFile >> degreeOfAuthorship [
+
+	^ GLPDegreeOfAuthorshipAnalyzer new
+		  glhFile: self;
+		  compute
+]
+
+{ #category : #'*GitLabHealth-Model-Analysis' }
+GLHFile >> degreeOfAuthorshipAuthors [
+	"the most restrictive computation"
+
+	^ GLPDegreeOfAuthorshipAnalyzer new
+		  glhFile: self;
+		  computeFileAuthors
+]
+
+{ #category : #'*GitLabHealth-Model-Analysis' }
+GLHFile >> mainAuthor [
+
+	^ (GLPDegreeOfAuthorshipAnalyzer new
+		  glhFile: self;
+		  compute)
+]

src/GitLabHealth-Model-Analysis/GLPDegreeOfAuthorshipAnalyzer.class.st

@@ -0,0 +1,67 @@
+"
+Given a `GLHFile` I provide the normalized DOA values with their user.
+I also provide an utility that filters the one considered as real author based on k = 0.75
+
+(value comes from the [A Novel Approach for Estimating Truck Factors](https://arxiv.org/pdf/1604.06766) research paper)
+"
+Class {
+	#name : #GLPDegreeOfAuthorshipAnalyzer,
+	#superclass : #Object,
+	#instVars : [
+		'glhFile',
+		'rawResults',
+		'normalizedResults'
+	],
+	#category : #'GitLabHealth-Model-Analysis-TruckFactor'
+}
+
+{ #category : #accessing }
+GLPDegreeOfAuthorshipAnalyzer >> authorshipThreshold [
+
+	^ 0.75
+]
+
+{ #category : #accessing }
+GLPDegreeOfAuthorshipAnalyzer >> baseKnowledge [
+
+	^ 3.293
+]
+
+{ #category : #accessing }
+GLPDegreeOfAuthorshipAnalyzer >> compute [
+
+	| authors  |
+	authors := self glhFile diffs
+		           collect: [ :diff | diff commit commitCreator ]
+		           as: Set.
+	rawResults := (self glhFile mooseModel allWithType: GLHUser)
+		           collect: [ :author |
+			           author -> (GLPUserDegreeOfAuthorshipAnalyzer new
+				            glhFile: self glhFile;
+				            glhUser: author;
+				            compute) ]
+		           as: Dictionary.
+	normalizedResults := AIMinMaxNormalizer new normalize: rawResults.
+	^ normalizedResults
+]
+
+{ #category : #accessing }
+GLPDegreeOfAuthorshipAnalyzer >> computeFileAuthors [
+	"we consider a developer as an author of a file if its resulting normalized DOA is greater than a threshold k and its absolute DOA is not lower than a value m."
+
+	^ self compute associationsSelect: [ :assoc |
+		  assoc value >= self authorshipThreshold and: [
+			  (rawResults at: assoc key) >= self baseKnowledge ] ]
+]
+
+{ #category : #accessing }
+GLPDegreeOfAuthorshipAnalyzer >> glhFile [
+
+	^ glhFile
+]
+
+{ #category : #accessing }
+GLPDegreeOfAuthorshipAnalyzer >> glhFile: anObject [
+
+	glhFile := anObject
+]