SQLite support: fixing local paths bug.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2016-03-20 12:21:01 +00:00
parent bab57e514c
commit 64ab651a82

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
NBSQLite is wating for"
| binaryUrl sha1 |
| packageUrl sha1 localPath packageName |
localPath := FileSystem disk workingDirectory parent / 'bin'.
Smalltalk platform name = 'unix'
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'].
Smalltalk platform name = 'Win32'
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'].
Smalltalk platform name = 'Mac OS'
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'].
self
downloadingFrom: binaryUrl
downloadingFrom: packageUrl
withMessage: 'Descargando SQLite...'
into: (FileSystem disk workingDirectory parent / 'bin') asFileReference.
into: localPath asFileReference.
packageName := (packageUrl splitOn: '/') last.
ZipArchive new
readFrom: (binaryUrl splitOn: '/') last;
extractAllTo: (FileSystem disk workingDirectory parent / 'bin') asFileReference.
readFrom: (localPath / packageName);
extractAllTo: localPath asFileReference.
]
{ #category : #'graphical interface' }