Fossil timeline stores all parents info.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2015-06-15 08:56:18 +00:00
parent 264193be5e
commit 553d8b8552

View File

@ -38,12 +38,12 @@ FossilTimeline >> commits: anObject [
FossilTimeline >> importFromUrl: aJsonFileUrl [
"Imports all commits stored in aJsonFileUrl and converts them in a collection of FossilCommit objects"
| commitsDict |
| commitsDict parents i |
"Extracting data"
commitsDict := ((NeoJSONReader fromString: (aJsonFileUrl asUrl retrieveContents asString)) at: 'payload') at: 'timeline'.
"Transforming the data"
"Adding all commits except the first one who has no parents"
self commits: (commitsDict collect: [:commit |
FossilCommit new
uuid: (commit at: 'uuid');
@ -51,8 +51,13 @@ FossilTimeline >> importFromUrl: aJsonFileUrl [
timestamp: (commit at: 'timestamp');
user: (commit at: 'user');
comment: (commit at: 'comment');
"parents: (commit at: 'parents');"
tags: (commit at: 'tags')]).
"Adding parents for all commits except the first one who has no parents"
parents := commitsDict allButLast collect: [:each | (each at: 'parents')].
i := 0.
self commits allButLastDo: [:commit |
i := i + 1.
commit parents: (parents at: i)]
]
{ #category : #'as yet unclassified' }