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

SQLite support: fixing local paths bug.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2016-03-20 12:21:01 +00:00
parent bab57e514c
commit 64ab651a82
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -137,27 +137,29 @@ GrafoscopioBrowser class >> installSQLite32Bits [
"I dowload the SQLite binary for the hosting platform, uncompress it and made it available as with the name "I dowload the SQLite binary for the hosting platform, uncompress it and made it available as with the name
NBSQLite is wating for" NBSQLite is wating for"
| binaryUrl sha1 | | packageUrl sha1 localPath packageName |
localPath := FileSystem disk workingDirectory parent / 'bin'.
Smalltalk platform name = 'unix' Smalltalk platform name = 'unix'
ifTrue: [ ifTrue: [
binaryUrl := 'http://sqlite.org/2016/sqlite-tools-linux-x86-3110100.zip'. packageUrl := 'http://sqlite.org/2016/sqlite-tools-linux-x86-3110100.zip'.
sha1 := '21a80cefa91d5de50256996fc55990a027c350fd']. sha1 := '21a80cefa91d5de50256996fc55990a027c350fd'].
Smalltalk platform name = 'Win32' Smalltalk platform name = 'Win32'
ifTrue: [ ifTrue: [
binaryUrl := 'http://sqlite.org/2016/sqlite-dll-win32-x86-3110100.zip'. packageUrl := 'http://sqlite.org/2016/sqlite-dll-win32-x86-3110100.zip'.
sha1 := 'cfd6f64ba1fb5de1ccf8321e29764c690c25e0a0']. sha1 := 'cfd6f64ba1fb5de1ccf8321e29764c690c25e0a0'].
Smalltalk platform name = 'Mac OS' Smalltalk platform name = 'Mac OS'
ifTrue: [ ifTrue: [
binaryUrl := 'http://sqlite.org/2016/sqlite-tools-osx-x86-3110100.zip'. packageUrl := 'http://sqlite.org/2016/sqlite-tools-osx-x86-3110100.zip'.
sha1 := 'c78b3b92bd37554694d2f73dbecfef1902c15ba7']. sha1 := 'c78b3b92bd37554694d2f73dbecfef1902c15ba7'].
self self
downloadingFrom: binaryUrl downloadingFrom: packageUrl
withMessage: 'Descargando SQLite...' withMessage: 'Descargando SQLite...'
into: (FileSystem disk workingDirectory parent / 'bin') asFileReference. into: localPath asFileReference.
packageName := (packageUrl splitOn: '/') last.
ZipArchive new ZipArchive new
readFrom: (binaryUrl splitOn: '/') last; readFrom: (localPath / packageName);
extractAllTo: (FileSystem disk workingDirectory parent / 'bin') asFileReference. extractAllTo: localPath asFileReference.
] ]
{ #category : #'graphical interface' } { #category : #'graphical interface' }