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

SQLite: moving files. Next cleaning leftovers and maybe starting a new object to model external apps handling (SQLite, fossil and pandoc)

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2016-03-21 11:09:04 +00:00
parent 64ab651a82
commit 7d32f4eb1d
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -137,7 +137,7 @@ 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"
| packageUrl sha1 localPath packageName | | packageUrl sha1 localPath packageZipName |
localPath := FileSystem disk workingDirectory parent / 'bin'. localPath := FileSystem disk workingDirectory parent / 'bin'.
Smalltalk platform name = 'unix' Smalltalk platform name = 'unix'
@ -156,10 +156,12 @@ GrafoscopioBrowser class >> installSQLite32Bits [
downloadingFrom: packageUrl downloadingFrom: packageUrl
withMessage: 'Descargando SQLite...' withMessage: 'Descargando SQLite...'
into: localPath asFileReference. into: localPath asFileReference.
packageName := (packageUrl splitOn: '/') last. packageZipName := (packageUrl splitOn: '/') last.
ZipArchive new ZipArchive new
readFrom: (localPath / packageName); readFrom: (localPath / packageZipName);
extractAllTo: localPath asFileReference. extractAllTo: localPath asFileReference.
(localPath / (packageZipName copyReplaceAll: '.zip' with: '')) children do: [:file | file moveTo: (localPath / file basenameWithIndicator) ]
] ]
{ #category : #'graphical interface' } { #category : #'graphical interface' }