diff --git a/repository/Grafoscopio/FossilBranch.class.st b/repository/Grafoscopio/FossilBranch.class.st deleted file mode 100644 index 79c4940..0000000 --- a/repository/Grafoscopio/FossilBranch.class.st +++ /dev/null @@ -1,29 +0,0 @@ -" -I store all the commits under a branch name in a timeline for a fossil repository - -Public API and Key Messages - -- message one -- message two -- what is the way to create instances is a plus. - - One simple example is simply gorgeous. - -Internal Representation and Key Implementation Points. - - Instance Variables - commits: - name: - - - Implementation Points -" -Class { - #name : #FossilBranch, - #superclass : #Object, - #instVars : [ - 'name', - 'commits' - ], - #category : #'Grafoscopio-ExternalTools' -} diff --git a/repository/Grafoscopio/FossilCommit.class.st b/repository/Grafoscopio/FossilCommit.class.st deleted file mode 100644 index 38d1430..0000000 --- a/repository/Grafoscopio/FossilCommit.class.st +++ /dev/null @@ -1,133 +0,0 @@ -" -I'm FossilCommit the representation of a commit in the history of a fossil repository. - -I store the data of a single fossil commit, to help in the interaction with external fossil repositories and the -internal smalltalk objects. I was created to facilitate graphical representation of fossil repositorires inside Roassal. - -For the Collaborators Part: State my main collaborators and one line about how I interact with them. - -Public API and Key Messages - -- message one -- message two -- what is the way to create instances is a plus. - - One simple example is simply gorgeous. - -Internal Representation and Key Implementation Points. - - Instance Variables - comment: - isLeaf: - parents: - tags: - timestamp: - type: - user: - uuid: - - - Implementation Points -" -Class { - #name : #FossilCommit, - #superclass : #Object, - #instVars : [ - 'isLeaf', - 'type', - 'timestamp', - 'user', - 'uuid', - 'comment', - 'parents', - 'tags' - ], - #category : #'Grafoscopio-ExternalTools' -} - -{ #category : #accessing } -FossilCommit >> comment [ - ^ comment -] - -{ #category : #accessing } -FossilCommit >> comment: anObject [ - comment := anObject -] - -{ #category : #initializing } -FossilCommit >> initialize [ - "Creates an empty commit" - - super initialize. -] - -{ #category : #accessing } -FossilCommit >> isLeaf [ - ^ isLeaf -] - -{ #category : #accessing } -FossilCommit >> isLeaf: anObject [ - isLeaf := anObject -] - -{ #category : #accessing } -FossilCommit >> parents [ - ^ parents -] - -{ #category : #accessing } -FossilCommit >> parents: anObject [ - parents := anObject -] - -{ #category : #accessing } -FossilCommit >> tags [ - ^ tags -] - -{ #category : #accessing } -FossilCommit >> tags: anObject [ - tags := anObject -] - -{ #category : #accessing } -FossilCommit >> timestamp [ - ^ timestamp -] - -{ #category : #accessing } -FossilCommit >> timestamp: anObject [ - timestamp := anObject -] - -{ #category : #accessing } -FossilCommit >> type [ - ^ type -] - -{ #category : #accessing } -FossilCommit >> type: anObject [ - type := anObject -] - -{ #category : #accessing } -FossilCommit >> user [ - ^ user -] - -{ #category : #accessing } -FossilCommit >> user: anObject [ - user := anObject -] - -{ #category : #accessing } -FossilCommit >> uuid [ - ^ uuid -] - -{ #category : #accessing } -FossilCommit >> uuid: anObject [ - uuid := anObject -] diff --git a/repository/Grafoscopio/FossilTimeline.class.st b/repository/Grafoscopio/FossilTimeline.class.st deleted file mode 100644 index 17eb3ec..0000000 --- a/repository/Grafoscopio/FossilTimeline.class.st +++ /dev/null @@ -1,74 +0,0 @@ -" -I store all commits in a fossil timeline. - -- message one -- message two -- what is the way to create instances is a plus. - - One simple example is simply gorgeous. - -Internal Representation and Key Implementation Points. - - Instance Variables - commits: - - - Implementation Points -" -Class { - #name : #FossilTimeline, - #superclass : #Object, - #instVars : [ - 'commits' - ], - #category : #'Grafoscopio-ExternalTools' -} - -{ #category : #accessing } -FossilTimeline >> commits [ - ^ commits -] - -{ #category : #accessing } -FossilTimeline >> commits: anObject [ - commits := anObject -] - -{ #category : #'as yet unclassified' } -FossilTimeline >> importFromUrl: aJsonFileUrl [ - "Imports all commits stored in aJsonFileUrl and converts them in a collection of FossilCommit objects" - - | commitsDict | - - "Extracting data" - commitsDict := ((NeoJSONReader fromString: (aJsonFileUrl asUrl retrieveContents asString)) at: 'payload') at: 'timeline'. - - "Adding all commits except the first one who has no parents" - self commits: (commitsDict collect: [:commit | - FossilCommit new - uuid: (commit at: 'uuid'); - type: (commit at: 'type'); - timestamp: (commit at: 'timestamp'); - user: (commit at: 'user'); - comment: (commit at: 'comment'); - tags: (commit at: 'tags')]). - "Adding parents for all commits except the first one who has no parents" - self commits allButLastDo: [:commit | - commit parents: ( - "Seach for every parent in the commitsDict and adding it as parent to the commit properties" - commits select: [:each | each uuid = (((commitsDict at: 1) at: 'parents') at: 1)])] -] - -{ #category : #'as yet unclassified' } -FossilTimeline >> initialize [ - "comment stating purpose of message" - - super initialize -] - -{ #category : #accessing } -FossilTimeline >> parentsFor: aCommit [ - "Returns the elements which are parents for aCommit" - - ^ self commits select: [:commit | commit uuid = (aCommit parents at: 1)] -]