Skip to content
Draft
Show file tree
Hide file tree
Changes from all commits
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
15 changes: 7 additions & 8 deletions src/GitHubHealth-Model-Importer/GithubModelImporter.class.st
Original file line number Diff line number Diff line change
Expand Up @@ -157,10 +157,11 @@ GithubModelImporter >> configureReaderForDiff: reader [
GithubModelImporter >> configureReaderForGroup: reader [

super configureReaderForGroup: reader.

reader
for: GLHGroup
do: [ :mapping | mapping mapInstVar: #web_url to: #html_url ]

reader for: GLHGroup do: [ :mapping |
mapping mapInstVar: #web_url to: #html_url.
mapping mapInstVar: #name to: #login.
mapping mapInstVar: #display_name to: #name ]
]

{ #category : #'private - configure reader' }
Expand Down Expand Up @@ -853,7 +854,7 @@ GithubModelImporter >> importPullRequestsOfProject: aProject [
GithubModelImporter >> importRepositoriesOfGroup: groupResult [
"Github Repository = GLHProject"

| reposResult itemsPerPage pageNumber reposFound repos |
| itemsPerPage pageNumber reposFound repos |
itemsPerPage := 100.
pageNumber := 1.
('Extract all repositories of ' , groupResult name) recordInfo.
Expand All @@ -868,16 +869,14 @@ GithubModelImporter >> importRepositoriesOfGroup: groupResult [
reposFound addAll: repos.
[ repos size = itemsPerPage ] whileTrue: [
pageNumber := pageNumber + 1.
('Extract issues from ' , reposFound size printString , ' to '
('Extract commits from ' , reposFound size printString , ' to '
, (reposFound size + itemsPerPage) printString) recordInfo.
repos := self parseArrayOfProject: (self repoApi organizations
getRepositoriesOfOrganization: groupResult name
perPage: itemsPerPage
page: pageNumber).
reposFound addAll: repos ].

reposResult := self repoApi organizations
getRepositoriesOfOrganization: groupResult name.
Comment on lines -879 to -880
Copy link
Copy Markdown
Member Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Looks like dead code?

groupResult projects addAll: reposFound.
self glhModel addAll: groupResult projects.
groupResult projects do: [ :project |
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -363,7 +363,8 @@ GLHMetamodelGenerator >> groupProperties [
group property: #web_url type: #String.
group property: #description type: #String.
group property: #visibility type: #String.
group property: #avatar_url type: #String
group property: #avatar_url type: #String.
group property: #display_name type: #String
]

{ #category : #issues }
Expand Down
4 changes: 3 additions & 1 deletion src/GitLabHealth-Model-Importer/GitlabModelImporter.class.st
Original file line number Diff line number Diff line change
Expand Up @@ -279,7 +279,9 @@ GitlabModelImporter >> configureReaderForGroup: reader [
super configureReaderForGroup: reader.

reader for: GLHGroup do: [ :mapping |
(mapping mapInstVar: #projects) valueSchema: #ArrayOfProject ]
(mapping mapInstVar: #projects) valueSchema: #ArrayOfProject.
mapping mapInstVar: #name to: #path.
mapping mapInstVar: #display_name to: #name ]
]

{ #category : #'private - configure reader' }
Expand Down
26 changes: 21 additions & 5 deletions src/GitLabHealth-Model/GLHGroup.class.st
Original file line number Diff line number Diff line change
Expand Up @@ -23,6 +23,7 @@ A GitLab Group
|---|
| `avatar_url` | `String` | nil | |
| `description` | `String` | nil | |
| `display_name` | `String` | nil | |
| `id` | `Number` | nil | |
| `name` | `String` | nil | Basic name of the entity, not full reference.|
| `visibility` | `String` | nil | |
Expand All @@ -35,14 +36,15 @@ Class {
#traits : 'FamixTNamedEntity',
#classTraits : 'FamixTNamedEntity classTrait',
#instVars : [
'#id => FMProperty',
'#web_url => FMProperty',
'#description => FMProperty',
'#visibility => FMProperty',
'#avatar_url => FMProperty',
'#description => FMProperty',
'#display_name => FMProperty',
'#group => FMOne type: #GLHGroup opposite: #subGroups',
'#id => FMProperty',
'#projects => FMMany type: #GLHProject opposite: #group',
'#subGroups => FMMany type: #GLHGroup opposite: #group',
'#group => FMOne type: #GLHGroup opposite: #subGroups'
'#visibility => FMProperty',
'#web_url => FMProperty'
],
#category : #'GitLabHealth-Model-Entities'
}
Expand Down Expand Up @@ -103,6 +105,20 @@ GLHGroup >> description: anObject [
description := anObject
]

{ #category : #accessing }
GLHGroup >> display_name [

<FMProperty: #display_name type: #String>
<generated>
^ display_name
]

{ #category : #accessing }
GLHGroup >> display_name: anObject [
<generated>
display_name := anObject
]

{ #category : #accessing }
GLHGroup >> group [
"Relation named: #group type: #GLHGroup opposite: #subGroups"
Expand Down
Loading