kenmirrors/freeswitch
1
0
Fork 0
mirror of https://github.com/signalwire/freeswitch.git synced 2025-04-24 19:52:35 +00:00
Code Issues Projects Releases Wiki Activity

msvc get svnversion if it is not available to create switch_version.h.

Browse Source 
git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@339 d0543943-73ff-0310-b7d9-9358b9ac24b2
This commit is contained in:
Michael Jerris 2006-01-13 02:12:40 +00:00
parent 980a1ec470
commit 50b00fff3b
1 changed files with 43 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

69
w32/vsnet/GetLibs.vbs
View File

@ -1,4 +1,4 @@
On Error Resume Next 'On Error Resume Next
' ************** ' **************
' Initialization ' Initialization
' ************** ' **************
@ -101,31 +101,7 @@ End If
' ****************** ' ******************
If BuildCore Then If BuildCore Then
'http://www.sofaswitch.org/mikej/svnversion.zip CreateSwitchVersion
VersionCmd="svnversion " & quote & FreeswitchDir & "." & quote & " -n"
Set MyFile = fso.CreateTextFile(UtilsDir & "tmpVersion.Bat", True)
MyFile.WriteLine("@" & VersionCmd)
MyFile.Close
Set oExec = WshShell.Exec(UtilsDir & "tmpVersion.Bat")
Do
strFromProc = OExec.StdOut.ReadLine()
VERSION=strFromProc
Loop While Not OExec.StdOut.atEndOfStream
sLastVersion = ""
Set fOrgFile = FSO.OpenTextFile(UtilsDir & "lastversion", ForReading, FailIfNotExist, OpenAsASCII)
sLastVersion = fOrgFile.ReadLine()
fOrgFile.Close
If VERSION <> sLastVersion Then
Set MyFile = fso.CreateTextFile(UtilsDir & "lastversion", True)
MyFile.WriteLine(VERSION)
MyFile.Close
FSO.CopyFile FreeswitchDir & "src\include\switch_version.h.in", FreeswitchDir & "src\include\switch_version.h", true
FindReplaceInFile FreeswitchDir & "src\include\switch_version.h", "@SVN_VERSION@", VERSION
End If
If Not FSO.FolderExists(LibDestDir & "include") Then If Not FSO.FolderExists(LibDestDir & "include") Then
FSO.CreateFolder(LibDestDir & "include") FSO.CreateFolder(LibDestDir & "include")
@ -604,6 +580,47 @@ End Sub
' Utility Subroutines ' Utility Subroutines
' ******************* ' *******************
Sub CreateSwitchVersion()
Dim sLastFile
Const OverwriteIfExist = -1
Const ForReading = 1
If Not FSO.FolderExists(UtilsDir & "svnversion") Then
FSO.CreateFolder(UtilsDir & "svnversion")
End If
VersionCmd="svnversion " & quote & FreeswitchDir & "." & quote & " -n"
Set MyFile = fso.CreateTextFile(UtilsDir & "svnversion\tmpVersion.Bat", True)
MyFile.WriteLine("@" & VersionCmd)
MyFile.Close
Set oExec = WshShell.Exec(UtilsDir & "svnversion\tmpVersion.Bat")
Do
strFromProc = OExec.StdOut.ReadLine()
VERSION=strFromProc
Loop While Not OExec.StdOut.atEndOfStream
If VERSION = "" Then
WgetUnZip "http://www.sofaswitch.org/mikej/svnversion.zip", UtilsDir
Set oExec = WshShell.Exec(UtilsDir & "svnversion\tmpVersion.Bat")
Do
strFromProc = OExec.StdOut.ReadLine()
VERSION=strFromProc
Loop While Not OExec.StdOut.atEndOfStream
End If
sLastVersion = ""
Set sLastFile = FSO.OpenTextFile(UtilsDir & "lastversion", ForReading, true, OpenAsASCII)
If Not sLastFile.atEndOfStream Then
sLastVersion = sLastFile.ReadLine()
End If
sLastFile.Close
If VERSION <> sLastVersion Then
Set MyFile = fso.CreateTextFile(UtilsDir & "lastversion", True)
MyFile.WriteLine(VERSION)
MyFile.Close
FSO.CopyFile FreeswitchDir & "src\include\switch_version.h.in", FreeswitchDir & "src\include\switch_version.h", true
FindReplaceInFile FreeswitchDir & "src\include\switch_version.h", "@SVN_VERSION@", VERSION
End If
End Sub
Sub UpgradeViaDevEnv(ProjectFile) Sub UpgradeViaDevEnv(ProjectFile)
Set oExec = WshShell.Exec(quote & DevEnv & quote & " " & quote & ProjectFile & quote & " /Upgrade ") Set oExec = WshShell.Exec(quote & DevEnv & quote & " " & quote & ProjectFile & quote & " /Upgrade ")
Do While oExec.Status <> 1 Do While oExec.Status <> 1