System.Data.SQLite

@ECHO OFF

SETLOCAL

SET MYDIR=%~dp0
SET REGROOT=SOFTWARE\Microsoft\VisualStudio\8.0

:ParseCmdLine

IF "%1"=="" GOTO Main
IF "%1"=="/regroot" IF NOT "%~2"=="" SET REGROOT=%~2& SHIFT & GOTO NextCmdLine
IF "%1"=="/xmlpath" IF NOT "%~2"=="" SET XMLPATH=%~f2& SHIFT & GOTO NextCmdLine
IF "%1"=="/?" GOTO Help
GOTO Help

:NextCmdLine

SHIFT
GOTO ParseCmdLine

:Main

ECHO Installing DDEX Data Provider for SQLite
ECHO   VS Registry Root: %REGROOT%
ECHO   SQLite.DLL Path:  %MYDIR%..\

IF NOT EXIST "..\System.Data.SQLite.DLL" ECHO The ..\System.Data.SQLite.DLL could not be found.& GOTO End

CScript //D "%MYDIR%\Install.vbs" //NoLogo "%REGROOT%" "%MYDIR%"

GOTO End

:Help

ECHO DDEX Data Provider for SQLite Installation
ECHO   Usage: install [/?] [/regroot ^<regroot^>]

:End

ECHO Done!

ENDLOCAL

Main

Sub Main()

   Dim WshShell
   Set WshShell = WScript.CreateObject("WScript.Shell")

   Dim GacPath
   Dim oExec
   GacPath = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\.NETFramework\sdkInstallRootv2.0")

   Dim fso
   Set fso = WScript.CreateObject("Scripting.FileSystemObject")

   Dim myDir
   myDir = fso.GetParentFolderName(WScript.ScriptFullName)
   
   Set oExec = WshShell.Exec(GacPath & "\bin\gacutil.exe -u System.Data.SQLite")
   Do While oExec.Status = 0
     WScript.Sleep(100)
   Loop
   
   oExec.StdOut.ReadAll()
   
   Set oExec = WshShell.Exec(GacPath & "\bin\gacutil.exe -if ..\System.Data.SQLite.DLL")
   Do While oExec.Status = 0
     WScript.Sleep(100)
   Loop
   oExec.StdOut.ReadAll()

   Dim gacEntry
   
   Set oExec = WshShell.Exec(GacPath & "\bin\gacutil.exe -nologo -l System.Data.SQLite")
   Do While oExec.Status = 0
     WScript.Sleep(100)
   Loop   
   oExec.StdOut.SkipLine
   gacEntry = oExec.StdOut.ReadLine()
   oExec.StdOut.ReadAll()
   
   Dim regRoot
   regRoot = WScript.Arguments(0)
   If Right(regRoot, 1) = "\" Then
      regRoot = Left(regRoot, Len(regRoot) - 1)
   End If

   Dim xmlPath
   xmlPath = fso.GetAbsolutePathName(WScript.Arguments(1))
   If Right(xmlPath, 1) = "\" Then
      xmlPath = Left(xmlPath, Len(xmlPath) - 1)
   End If

   Dim regFile
   Dim genRegFile
   Dim regFileContents
   Set regFile = fso.OpenTextFile(myDir & "\SQLiteDesigner.reg", 1)
   Set genRegFile = fso.CreateTextFile(myDir & "\SQLiteDesigner.gen.reg", true)
   regFileContents = regFile.ReadAll()
   regFileContents = Replace(regFileContents, "%REGROOT%", regRoot)
   regFileContents = Replace(regFileContents, "%XMLPATH%", Replace(xmlPath, "\", "\\"))
   genRegFile.Write(regFileContents)
   genRegFile.Close()
   regFile.Close()

   Set oExec = WshShell.Exec("regedit /s """ & myDir & "\SQLiteDesigner.gen.reg""")
   Do While oExec.Status = 0
      WScript.Sleep(100)
   Loop
   oExec.StdOut.ReadAll()

   fso.DeleteFile(myDir & "\SQLiteDesigner.gen.reg")

   Dim machineConfigFile
   Dim machineConfig
   
   machineConfigFile = fso.GetSpecialFolder(WindowsFolder).Path & "\Microsoft.NET\Framework\v2.0.50727\CONFIG\machine.config"
   Set machineConfig = CreateObject("Microsoft.XMLDOM")
   machineConfig.load machineConfigFile
   
   Dim xmlNode
   Dim xmlParent
   
   Set xmlNode = machineConfig.selectSingleNode("configuration/system.data/DbProviderFactories/add[@invariant=""System.Data.SQLite""]")
   If xmlNode Is Nothing Then
     Set xmlParent = machineConfig.selectSingleNode("configuration/system.data/DbProviderFactories")
     Set xmlNode = machineConfig.createNode(1, "add", "")
     xmlNode.attributes.setNamedItem(machineConfig.createAttribute("name"))
     xmlNode.attributes.setNamedItem(machineConfig.createAttribute("invariant"))
     xmlNode.attributes.setNamedItem(machineConfig.createAttribute("description"))
     xmlNode.attributes.setNamedItem(machineConfig.createAttribute("type"))
     xmlParent.appendChild xmlNode
   End If
   
   xmlNode.attributes.getNamedItem("name").value = "SQLite Data Provider"
   xmlNode.attributes.getNamedItem("invariant").value = "System.Data.SQLite"
   xmlNode.attributes.getNamedItem("description").value = ".Net Framework Data Provider for SQLite"
   xmlNode.attributes.getNamedItem("type").value = "System.Data.SQLite.SQLiteFactory," & gacEntry

   machineConfig.save machineConfigFile
End Sub

@ECHO OFF

@INSTALL.CMD /regroot SOFTWARE\Microsoft\VWDExpress\8.0

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\%REGROOT%\DataProviders\{0EBAAB6E-CA80-4b4a-8DDF-CBE6BF058C70}]
@=".NET Framework Data Provider for SQLite"
"Codebase"="%XMLPATH%\\SQLite.Designer.DLL"
"InvariantName"="System.Data.SQLite"
"Technology"="{77AB9A9D-78B9-4ba7-91AC-873F5338F1D2}"

[HKEY_LOCAL_MACHINE\%REGROOT%\DataProviders\{0EBAAB6E-CA80-4b4a-8DDF-CBE6BF058C70}\SupportedObjects]

[HKEY_LOCAL_MACHINE\%REGROOT%\DataProviders\{0EBAAB6E-CA80-4b4a-8DDF-CBE6BF058C70}\SupportedObjects\DataConnectionProperties]

[HKEY_LOCAL_MACHINE\%REGROOT%\DataProviders\{0EBAAB6E-CA80-4b4a-8DDF-CBE6BF058C70}\SupportedObjects\DataConnectionSupport]
@="SQLite.Designer.SQLiteDataConnectionSupport"

[HKEY_LOCAL_MACHINE\%REGROOT%\DataProviders\{0EBAAB6E-CA80-4b4a-8DDF-CBE6BF058C70}\SupportedObjects\DataObjectSupport]

[HKEY_LOCAL_MACHINE\%REGROOT%\DataProviders\{0EBAAB6E-CA80-4b4a-8DDF-CBE6BF058C70}\SupportedObjects\DataViewSupport]

[HKEY_LOCAL_MACHINE\%REGROOT%\DataSources\{0EBAAB6E-CA80-4b4a-8DDF-CBE6BF058C71}]
@="SQLite Database File"

[HKEY_LOCAL_MACHINE\%REGROOT%\DataSources\{0EBAAB6E-CA80-4b4a-8DDF-CBE6BF058C71}\SupportingProviders]

[HKEY_LOCAL_MACHINE\%REGROOT%\DataSources\{0EBAAB6E-CA80-4b4a-8DDF-CBE6BF058C71}\SupportingProviders\{0EBAAB6E-CA80-4b4a-8DDF-CBE6BF058C70}]

Installation Instructions
-------------------------

For Visual Studio 2005 (full versions):
  Run the INSTALL.CMD batch file to install the designer into the registry

For Visual Web Developer Express Edition:
  Run the INSTALLVWDEXPRESS.CMD batch file to install the designer into the registry