Offray
/
Grafoscopio
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merging changes from 226 and improving detection of hashes for last version of files. 

Should the warning be more visible?
This commit is contained in:
Offray Vladimir Luna Cárdenas 2016-10-06 20:27:32 +00:00
parent 052d8523c7
commit 5272b45710
2 changed files with 50 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
repository/Grafoscopio/ExternalApp.class.st
View File

@ -17,6 +17,14 @@ Class {
#category : #'Grafoscopio-Model'
}
{ #category : #installation }
ExternalApp class >> compareHashFor: aFileName with: aSHAString [
aSHAString = (SHA1 new hashMessage: aFileName asFileReference binaryReadStream contents) hex
ifFalse: [ ^ false ]
ifTrue: [ ^ true ].
]
{ #category : #configuration }
ExternalApp class >> configureFossil [
"Stablish where is located pandoc according to the operative system and/or the input of the user"
@ -41,14 +49,6 @@ ExternalApp class >> configurePandoc [
]
{ #category : #installation }
ExternalApp class >> file: aFileName hasHash: aSHAString [
aSHAString = (SHA1 new hashMessage: aFileName asFileReference binaryReadStream contents) hex
ifFalse: [ ^ false ]
ifTrue: [ ^ true ].
]
{ #category : #installation }
ExternalApp class >> installSQLite32Bits [
"I dowload the SQLite binary for the hosting platform, uncompress it and made it available as with the name

42
repository/Grafoscopio/FossilRepo.class.st Normal file
View File

@ -0,0 +1,42 @@
"
I model a fossil repository. For details about fossil see:
http://fossil-scm.org/
"
Class {
#name : #FossilRepo,
#superclass : #Object,
#instVars : [
'url'
],
#category : #'Grafoscopio-Model'
}
{ #category : #'as yet unclassified' }
FossilRepo >> jsonDataFor: aFileName [
^ NeoJSONReader fromString: (self jsonStringFor: aFileName)
]
{ #category : #'as yet unclassified' }
FossilRepo >> jsonStringFor: aFileName [
| queryForJSONData |
queryForJSONData := self url addPathSegments: #('json' 'finfo').
queryForJSONData queryAt: 'name' put: aFileName.
^ (ZnEasy get: queryForJSONData) contents.
]
{ #category : #'as yet unclassified' }
FossilRepo >> lastHashNumberFor: aFileName [
(self jsonDataFor: aFileName) at: 'payload' ifAbsent: [ self inform: 'Key not found, verify the file name you are looking in this repository'. ^ self ].
^ (((self jsonDataFor: aFileName) at: 'payload') at: 'checkins') first at: 'uuid'
]
{ #category : #accessing }
FossilRepo >> url [
^ url
]
{ #category : #accessing }
FossilRepo >> url: aString [
url := aString asUrl
]