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

SQLite: Initial support for installation.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2016-03-20 11:49:37 +00:00
parent 77dcc46157
commit 934ee3597a
1 changed files with 49 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
repository/Grafoscopio/GrafoscopioBrowser.class.st
View File

@ -63,8 +63,9 @@ GrafoscopioBrowser class >> configurePandoc [
{ #category : #configuration } { #category : #configuration }
GrafoscopioBrowser class >> configureSettings [ GrafoscopioBrowser class >> configureSettings [
"Stablish several 'global' settings according to to image location and the operative system. For the moment we're gonna use hardcoded paths, "I stablish several 'global' settings according to to image location and the operative system.
but in the future this will be a smarter method finding the proper external tool and setting up it." For the moment we're gonna use hardcoded paths, but in the future this will be a smarter method finding
the proper external tool and setting up it."
draftsLocation := FileSystem disk workingDirectory / 'Grafoscopio' / 'Drafts'. draftsLocation := FileSystem disk workingDirectory / 'Grafoscopio' / 'Drafts'.
draftsLocation ensureCreateDirectory. draftsLocation ensureCreateDirectory.
@ -114,6 +115,52 @@ GrafoscopioBrowser class >> downloadTutorial [
] asJob run. ] asJob run.
] ]
{ #category : #'graphical interface' }
GrafoscopioBrowser class >> downloadingFrom: downloadUrl withMessage: aString into: location [
[: bar |
bar title: aString.
[ZnClient new
get: downloadUrl;
signalProgress: true;
downloadTo: location.
]
on: HTTPProgress
do: [ :progress |
progress isEmpty ifFalse: [ bar current: progress percentage ].
progress resume ].
] asJob run.
]
{ #category : #configuration }
GrafoscopioBrowser class >> installSQLite32Bits [
"I dowload the SQLite binary for the hosting platform, uncompress it and made it available as with the name
NBSQLite is wating for"
| binaryUrl sha1 |
"fossil := (FileSystem disk workingDirectory parent / 'Platform' / 'Linux' / 'Programs' / 'Fossil'/ 'fossil') fullName."
Smalltalk platform name = 'unix'
ifTrue: [
binaryUrl := 'http://sqlite.org/2016/sqlite-tools-linux-x86-3110100.zip'.
sha1 := '21a80cefa91d5de50256996fc55990a027c350fd'].
Smalltalk platform name = 'Win32'
ifTrue: [
binaryUrl := 'http://sqlite.org/2016/sqlite-dll-win32-x86-3110100.zip'.
sha1 := 'cfd6f64ba1fb5de1ccf8321e29764c690c25e0a0'].
Smalltalk platform name = 'Mac OS'
ifTrue: [
binaryUrl := 'http://sqlite.org/2016/sqlite-tools-osx-x86-3110100.zip'.
sha1 := 'c78b3b92bd37554694d2f73dbecfef1902c15ba7'].
self
downloadingFrom: binaryUrl
withMessage: 'Descargando SQLite...'
into: (FileSystem disk workingDirectory parent / 'bin') asFileReference.
ZipArchive new
readFrom: (binaryUrl splitOn: '/') last;
extractAllTo: (FileSystem disk workingDirectory parent / 'bin') asFileReference.
]
{ #category : #'graphical interface' } { #category : #'graphical interface' }
GrafoscopioBrowser class >> messageAbout [ GrafoscopioBrowser class >> messageAbout [
"Shows the author, license, sponsors and main contributors to the project and point to further documentation on the web" "Shows the author, license, sponsors and main contributors to the project and point to further documentation on the web"