From 934ee3597ad98ce5a385c53a1fbd2bdc5c022474 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Sun, 20 Mar 2016 11:49:37 +0000
Subject: [PATCH] SQLite: Initial support for installation.

---
 .../Grafoscopio/GrafoscopioBrowser.class.st   | 51 ++++++++++++++++++-
 1 file changed, 49 insertions(+), 2 deletions(-)

diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st
index 77217cc..e1ad42a 100644
--- a/repository/Grafoscopio/GrafoscopioBrowser.class.st
+++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st
@@ -63,8 +63,9 @@ GrafoscopioBrowser class >> configurePandoc [
 
 { #category : #configuration }
 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,
-	but in the future this will be a smarter method finding the proper external tool and setting up it."
+	"I stablish several 'global' settings according to to image location and the operative system. 
+	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 ensureCreateDirectory.
@@ -114,6 +115,52 @@ GrafoscopioBrowser class >> downloadTutorial [
 	] 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' }
 GrafoscopioBrowser class >> messageAbout [
 	"Shows the author, license, sponsors and main contributors to the project and point to further documentation on the web"