GetLibs.vbs update that now supports compiling the libs and selecting core or Mod_exosip libs. Default behavior is still the same, still to do is removing all the libs from the solution file and adding in pre-build events to auto download and build the appropriate libs.

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@75 d0543943-73ff-0310-b7d9-9358b9ac24b2

w32/vsnet/GetLibs.vbs

@@ -1,61 +1,245 @@
-On Error Resume Next
+'On Error Resume Next
 Set WshShell = CreateObject("WScript.Shell")
 Set FSO = CreateObject("Scripting.FileSystemObject")
 Set WshSysEnv = WshShell.Environment("SYSTEM")
 Set xml = CreateObject("Microsoft.XMLHTTP")
 Set oStream = createobject("Adodb.Stream")
+Set objArgs = WScript.Arguments
+Dim vcver, DevEnv
+BuildRelease=False
+BuildDebug=False
+BuildCore=False
+BuildModExosip=false
 
 ScriptDir=Left(WScript.ScriptFullName,Len(WScript.ScriptFullName)-Len(WScript.ScriptName))
 
 LibDestDir=Showpath(ScriptDir & "..\..\libs")
 UtilsDir=Showpath(ScriptDir & "Tools")
-
 GetTarGZObjects UtilsDir
-If Not FSO.FolderExists(LibDestDir & "osip") Then
+GetDevEnv
-	WgetUnTarGz "http://www.antisip.com/download/libosip2-2.2.1.tar.gz", LibDestDir
+Wscript.echo "Detected Visual Studio DevEnv: " & DevEnv
-	RenameFolder LibDestDir & "libosip2-2.2.1", "osip"
+
-'	FSO.CopyFile Utilsdir & "osipparser2.vcproj", LibDestDir & "osip\platform\vsnet\", True
+If objArgs.Count >=2 Then
-	Upgrade Utilsdir & "osipparser2.vcproj", LibDestDir & "osip\platform\vsnet\osipparser2.vcproj"
+	Select Case objArgs(1)
-	Upgrade LibDestDir & "osip\platform\vsnet\osip2.vcproj", LibDestDir & "osip\platform\vsnet\osip2.vcproj"
+		Case "Release"		
+			BuildRelease=True
+		Case "Debug"   
+			BuildDebug=True
+		Case "All"   
+			BuildRelease=True
+			BuildDebug=True
+	End Select
 End If
 
-If Not FSO.FolderExists(LibDestDir & "libeXosip2") Then 
+If objArgs.Count >=1 Then
-	WgetUnTarGz "http://www.antisip.com/download/libeXosip2-1.9.1-pre17.tar.gz", LibDestDir
+	Select Case objArgs(0)
-	RenameFolder LibDestDir & "libeXosip2-1.9.1-pre17", "libeXosip2"
+		Case "Core"		
-	Upgrade Utilsdir & "eXosip.vcproj", LibDestDir & "libeXosip2\platform\vsnet\eXosip.vcproj"
+			BuildCore=True
+		Case "Mod_Exosip"   
+			BuildModExosip=True
+		Case Else
+			BuildCore=True
+			BuildModExosip=True
+	End Select
+Else
+	BuildCore=True
+	BuildModExosip=True
 End If
 
-If Not FSO.FolderExists(LibDestDir & "jthread-1.1.2") Then 
+
-	WgetUnTarGz "http://research.edm.luc.ac.be/jori/jthread/jthread-1.1.2.tar.gz", LibDestDir
+If BuildCore Then
+	BuildLibs_Core BuildDebug, BuildRelease
 End If
 
-If Not FSO.FolderExists(LibDestDir & "jrtplib") Then 
+If BuildModExosip Then
-	WgetUnTarGz "http://research.edm.luc.ac.be/jori/jrtplib/jrtplib-3.3.0.tar.gz", LibDestDir
+	BuildLibs_ModExosip BuildDebug, BuildRelease
-	RenameFolder LibDestDir & "jrtplib-3.3.0", "jrtplib"
 End If
 
+WScript.Echo "Complete"
+
+Sub BuildLibs_Core(BuildDebug, BuildRelease)
 	If Not FSO.FolderExists(LibDestDir & "apr") Then 
 		WgetUnTarGz "ftp://ftp.wayne.edu/apache/apr/apr-1.2.2.tar.gz", LibDestDir
+		If Not FSO.FolderExists(LibDestDir & "apr-1.2.2") Then
+			Wscript.echo "Unable to get SQLite from default download location, Trying backup location:"
+			WgetUnTarGz "http://www.sofaswitch.org/mikej/apr-1.2.2.tar.gz", LibDestDir
+		End If
 		RenameFolder LibDestDir & "apr-1.2.2", "apr"
 		Unix2dos LibDestDir & "apr\libapr.dsp"
 		Upgrade LibDestDir & "apr\libapr.dsp", LibDestDir & "apr\libapr.vcproj"
 	End If 
+	If FSO.FolderExists(LibDestDir & "apr") Then 
+		If BuildDebug Then
+			If Not FSO.FileExists(LibDestDir & "apr\Debug\libapr-1.lib") Then 
+				BuildViaDevEnv LibDestDir & "apr\libapr.vcproj", "Debug"
+			End If
+		End If
+		If BuildRelease Then
+			If Not FSO.FileExists(LibDestDir & "apr\Release\libapr-1.lib") Then 
+				BuildViaDevEnv LibDestDir & "apr\libapr.vcproj", "Release"
+			End If
+		End If
+	Else
+		Wscript.echo "Unable to download APR"
+	End If 
 	
 	If Not FSO.FolderExists(LibDestDir & "sqlite") Then 
 		WgetUnZip "http://www.sqlite.org/sqlite-source-3_2_7.zip", LibDestDir 
+		If Not FSO.FolderExists(LibDestDir & "sqlite-source-3_2_7") Then
+			Wscript.echo "Unable to get SQLite from default download location, Trying backup location:"
+			WgetUnTarGz "http://www.sofaswitch.org/mikej/sqlite-source-3_2_7.zip", LibDestDir
+		End If
 		RenameFolder LibDestDir & "sqlite-source-3_2_7", "sqlite"
-	Upgrade Utilsdir & "sqlite.vcproj", LibDestDir & "sqlite\sqlite.vcproj"
+		FSO.CopyFile Utilsdir & "sqlite.vcproj", LibDestDir & "sqlite\", True
+	'	Upgrade Utilsdir & "sqlite.vcproj", LibDestDir & "sqlite\sqlite.vcproj"
+	End If
+	If FSO.FolderExists(LibDestDir & "sqlite") Then 
+		If BuildDebug Then
+			If Not FSO.FileExists(LibDestDir & "sqlite\Debug\sqlite.lib") Then 
+				UpgradeViaDevEnv LibDestDir & "sqlite\sqlite.vcproj"
+				BuildViaDevEnv LibDestDir & "sqlite\sqlite.vcproj", "Debug"
+			End If
+		End If
+		If BuildRelease Then
+			If Not FSO.FileExists(LibDestDir & "sqlite\Release\sqlite.lib") Then 
+				UpgradeViaDevEnv LibDestDir & "sqlite\sqlite.vcproj"
+				BuildViaDevEnv LibDestDir & "sqlite\sqlite.vcproj", "Release"
+			End If
+		End If
+	Else
+		Wscript.echo "Unable to download SQLite"
+	End If 
+End Sub
+
+Sub BuildLibs_ModExosip(BuildDebug, BuildRelease)
+
+	If Not FSO.FolderExists(LibDestDir & "osip") Then
+		WgetUnTarGz "http://www.antisip.com/download/libosip2-2.2.1.tar.gz", LibDestDir
+		If Not FSO.FolderExists(LibDestDir & "libosip2-2.2.1") Then
+			Wscript.echo "Unable to get osip from default download location, Trying backup location:"
+			WgetUnTarGz "http://www.sofaswitch.org/mikej/libosip2-2.2.1.tar.gz", LibDestDir
+		End If
+		RenameFolder LibDestDir & "libosip2-2.2.1", "osip"
+		FSO.CopyFile Utilsdir & "osipparser2.vcproj", LibDestDir & "osip\platform\vsnet\", True
+	End If
+	If FSO.FolderExists(LibDestDir & "osip") Then 
+		If BuildDebug Then
+			If Not FSO.FileExists(LibDestDir & "osip\platform\vsnet\Debug\osip2.lib") Then 
+				UpgradeViaDevEnv LibDestDir & "osip\platform\vsnet\osip.sln"
+				BuildViaDevEnv LibDestDir & "osip\platform\vsnet\osip.sln", "Debug"
+			End If
+		End If
+		If BuildRelease Then
+			If Not FSO.FileExists(LibDestDir & "osip\platform\vsnet\Release\osip2.lib") Then 
+				UpgradeViaDevEnv LibDestDir & "osip\platform\vsnet\osip.sln"
+				BuildViaDevEnv LibDestDir & "osip\platform\vsnet\osip.sln", "Release"
+			End If
+		End If
+	Else
+		Wscript.echo "Unable to download Osip"
 	End If 
 
-WScript.Echo "Download Complete"
+	If Not FSO.FolderExists(LibDestDir & "libeXosip2") Then 
+		WgetUnTarGz "http://www.antisip.com/download/libeXosip2-1.9.1-pre17.tar.gz", LibDestDir
+		If Not FSO.FolderExists(LibDestDir & "libeXosip2-1.9.1-pre17") Then
+			Wscript.echo "Unable to get eXosip from default download location, Trying backup location:"
+			WgetUnTarGz "http://www.sofaswitch.org/mikej/libeXosip2-1.9.1-pre17.tar.gz", LibDestDir
+		End If
+		RenameFolder LibDestDir & "libeXosip2-1.9.1-pre17", "libeXosip2"
+		FSO.CopyFile Utilsdir & "eXosip.vcproj", LibDestDir & "libeXosip2\platform\vsnet\", True
+	End If
+	If FSO.FolderExists(LibDestDir & "libeXosip2") Then 
+		If BuildDebug Then
+			If Not FSO.FileExists(LibDestDir & "libeXosip2\platform\vsnet\Debug\exosip.lib") Then 
+				UpgradeViaDevEnv LibDestDir & "libeXosip2\platform\vsnet\exosip.vcproj"
+				BuildViaDevEnv LibDestDir & "libeXosip2\platform\vsnet\exosip.vcproj", "Debug"
+			End If
+		End If
+		If BuildRelease Then
+			If Not FSO.FileExists(LibDestDir & "libeXosip2\platform\vsnet\Release\exosip.lib") Then 
+				UpgradeViaDevEnv LibDestDir & "libeXosip2\platform\vsnet\exosip.vcproj"
+				BuildViaDevEnv LibDestDir & "libeXosip2\platform\vsnet\exosip.vcproj", "Release"
+			End If
+		End If
+	Else
+		Wscript.echo "Unable to download exosip"
+	End If 
+
+	If Not FSO.FolderExists(LibDestDir & "jthread-1.1.2") Then 
+		WgetUnTarGz "http://research.edm.luc.ac.be/jori/jthread/jthread-1.1.2.tar.gz", LibDestDir
+		If Not FSO.FolderExists(LibDestDir & "jthread-1.1.2") Then
+			Wscript.echo "Unable to get JThread from default download location, Trying backup location:"
+			WgetUnTarGz "http://www.sofaswitch.org/mikej/jthread-1.1.2.tar.gz", LibDestDir
+		End If
+	End If
+	
+	If Not FSO.FolderExists(LibDestDir & "jrtplib") Then 
+		WgetUnTarGz "http://research.edm.luc.ac.be/jori/jrtplib/jrtplib-3.3.0.tar.gz", LibDestDir
+		If Not FSO.FolderExists(LibDestDir & "jrtplib-3.3.0") Then
+			Wscript.echo "Unable to get JRTPLib from default download location, Trying backup location:"
+			WgetUnTarGz "http://www.sofaswitch.org/mikej/jrtplib-3.3.0.tar.gz", LibDestDir
+		End If
+		RenameFolder LibDestDir & "jrtplib-3.3.0", "jrtplib"
+	End If
+	If FSO.FolderExists(LibDestDir & "jrtplib") And FSO.FolderExists(LibDestDir & "jthread-1.1.2") And FSO.FolderExists(LibDestDir & "jrtp4c")Then 
+		If BuildDebug Then
+			If Not FSO.FileExists(LibDestDir & "jrtp4c\w32\Debug\jrtp4c.lib") Then 
+				UpgradeViaDevEnv LibDestDir & "jrtp4c\w32\jrtp4c.sln"
+				BuildViaDevEnv LibDestDir & "jrtp4c\w32\jrtp4c.sln", "Debug"
+			End If
+		End If
+		If BuildRelease Then
+			If Not FSO.FileExists(LibDestDir & "jrtp4c\w32\Release\jrtp4c.lib") Then 
+				UpgradeViaDevEnv LibDestDir & "jrtp4c\w32\jrtp4c.sln"
+				BuildViaDevEnv LibDestDir & "jrtp4c\w32\jrtp4c.sln", "Release"
+			End If
+		End If
+	Else
+		Wscript.echo "Unable to download JRtplib"
+	End If 
+
+
+End Sub
+
+Sub UpgradeViaDevEnv(ProjectFile)
+	Set oExec = WshShell.Exec(Chr(34) & DevEnv & Chr(34) & " " & Chr(34) & ProjectFile & Chr(34) & " /Upgrade ")
+	Do While oExec.Status <> 1
+	WScript.Sleep 100
+	Loop
+End Sub
+
+Sub BuildViaDevEnv(ProjectFile, BuildType)
+	Wscript.echo "Building : " & ProjectFile & " Config type: " & BuildType
+	Set oExec = WshShell.Exec(Chr(34) & DevEnv & Chr(34) & " " & Chr(34) & ProjectFile & Chr(34) & " /Build " & BuildType)
+	Do While oExec.Status <> 1
+	WScript.Sleep 100
+	Loop
+End Sub
+
+Sub GetDevEnv()
+	If WshSysEnv("VS80COMNTOOLS")<> "" Then 
+		vcver = "8"
+		DevEnv=Showpath(WshSysEnv("VS80COMNTOOLS")&"..\IDE\") & "devenv"
+	Else If WshSysEnv("VS71COMNTOOLS")<> "" Then
+		vcver = "7"
+		DevEnv=Showpath(WshSysEnv("VS71COMNTOOLS")&"..\IDE\") & "devenv"
+	Else
+		Wscript.Echo("Did not find any Visual Studio .net 2003 or 2005 on your machine")
+		WScript.Quit(1)
+	End If
+	End If
+End Sub
+
 
 Sub RenameFolder(FolderName, NewFolderName)
+On Error Resume Next
 	Set Folder=FSO.GetFolder(FolderName)
 	Folder.Name = NewFolderName
+On Error GoTo 0
 End Sub
 
 Sub Upgrade(OldFileName, NewFileName)
-
+On Error Resume Next
 	If WshSysEnv("VS80COMNTOOLS")<> "" Then 
 		Set vcProj = CreateObject("VisualStudio.VCProjectEngine.8.0")
 	Else If WshSysEnv("VS71COMNTOOLS")<> "" Then
@@ -70,15 +254,15 @@ Sub Upgrade(OldFileName, NewFileName)
 '	WScript.Echo("Converting: "+ OldFileName)
 	
 	Set vcProject = vcProj.LoadProject(OldFileName)
-'	If Not FSO.FileExists(vcProject.ProjectFile) Then
+	If Not FSO.FileExists(vcProject.ProjectFile) Then
 		'   // specify name and location of new project file
 		vcProject.ProjectFile = NewFileName
-'	End If
 	'   // call the project engine to save this off. 
 	'   // when no name is shown, it will create one with the .vcproj name
 	vcProject.Save()
+	End If
 '	WScript.Echo("New Project Name: "+vcProject.ProjectFile+"")
-
+On Error GoTo 0
 End Sub
 
 
@@ -150,7 +334,7 @@ Sub UnTarGZ(TGZfile, DestFolder)
 
 	Set objTAR = WScript.CreateObject("XStandard.TAR")
 	Set objGZip = WScript.CreateObject("XStandard.GZip")
-'	wscript.echo("Extracting: " & TGZfile)
+	wscript.echo("Extracting: " & TGZfile)
 	objGZip.Decompress TGZfile, Destfolder
 	objTAR.UnPack Left(TGZfile, Len(TGZfile)-3), Destfolder
 	
@@ -163,7 +347,7 @@ Sub UnZip(Zipfile, DestFolder)
 Dim objZip
 Set objZip = WScript.CreateObject("XStandard.Zip")
 objZip.UnPack Zipfile, DestFolder
-Set objZip = Nothing
+'Set objZip = Nothing
 End Sub
 
 
@@ -174,7 +358,7 @@ Sub Wget(URL, DestFolder)
 	filename=Right(URL,strlength-StartPos)
 	If Right(DestFolder, 1) <> "\" Then DestFolder = DestFolder & "\" End If
 
-'	Wscript.echo("Downloading: " & URL)
+	Wscript.echo("Downloading: " & URL)
 	xml.Open "GET", URL, False
 	xml.Send