Browse Source
git-svn-id: svn://svn.sharpdevelop.net/sharpdevelop/trunk@298 1ccf3a8d-04fe-1044-b7c0-cef0b8235c61shortcuts
8 changed files with 56 additions and 106 deletions
Binary file not shown.
@ -1,40 +0,0 @@ |
|||||||
Dim WshShell |
|
||||||
Set WshShell = CreateObject("WScript.Shell") |
|
||||||
WshShell.CurrentDirectory = GetSetupPath() |
|
||||||
|
|
||||||
WScript.Echo "Installing shared assemblies into the GAC" & vbCrLf |
|
||||||
|
|
||||||
WScript.Echo "ICSharpCode.SharpZipLib.dll" |
|
||||||
RegisterInGAC "..\ICSharpCode.SharpZipLib.dll" |
|
||||||
|
|
||||||
WScript.Echo "NUnit.Core.dll" |
|
||||||
RegisterInGAC "..\nunit.core.dll" |
|
||||||
|
|
||||||
WScript.Echo "NUnit.Framework.dll" |
|
||||||
RegisterInGAC "..\nunit.framework.dll" |
|
||||||
|
|
||||||
Execute "BuildHelpIndex.exe" |
|
||||||
|
|
||||||
' SHARED FUNCTIONS |
|
||||||
|
|
||||||
Public Sub RegisterInGAC(strAssemblyRelativePath) |
|
||||||
Execute "..\tools\gacutil2.exe /i:" & strAssemblyRelativePath |
|
||||||
End Sub |
|
||||||
|
|
||||||
Public Sub Execute(strProgram) |
|
||||||
Dim oExec |
|
||||||
|
|
||||||
Set oExec = WshShell.Exec(strProgram) |
|
||||||
|
|
||||||
Do While oExec.Status = 0 |
|
||||||
WScript.Sleep 100 |
|
||||||
Loop |
|
||||||
|
|
||||||
WScript.Echo oExec.StdOut.ReadAll |
|
||||||
End Sub |
|
||||||
|
|
||||||
Public Function GetSetupPath() |
|
||||||
Dim strSetupDirPath |
|
||||||
strSetupDirPath = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\")) |
|
||||||
GetSetupPath = strSetupDirPath |
|
||||||
End Function |
|
||||||
@ -1,38 +0,0 @@ |
|||||||
Dim WshShell |
|
||||||
Set WshShell = CreateObject("WScript.Shell") |
|
||||||
WshShell.CurrentDirectory = GetSetupPath() |
|
||||||
|
|
||||||
WScript.Echo "Removing shared assemblies from the GAC" & vbCrLf |
|
||||||
|
|
||||||
WScript.Echo "ICSharpCode.SharpZipLib.dll" |
|
||||||
RemoveFromGAC "..\ICSharpCode.SharpZipLib.dll" |
|
||||||
|
|
||||||
WScript.Echo "NUnit.Core.dll" |
|
||||||
RemoveFromGAC "..\nunit.core.dll" |
|
||||||
|
|
||||||
WScript.Echo "NUnit.Framework.dll" |
|
||||||
RemoveFromGAC "..\nunit.framework.dll" |
|
||||||
|
|
||||||
' SHARED FUNCTIONS |
|
||||||
|
|
||||||
Public Sub RemoveFromGAC(strAssemblyRelativePath) |
|
||||||
Execute "..\tools\gacutil2.exe /u:" & strAssemblyRelativePath |
|
||||||
End Sub |
|
||||||
|
|
||||||
Public Sub Execute(strProgram) |
|
||||||
Dim oExec |
|
||||||
|
|
||||||
Set oExec = WshShell.Exec(strProgram) |
|
||||||
|
|
||||||
Do While oExec.Status = 0 |
|
||||||
WScript.Sleep 100 |
|
||||||
Loop |
|
||||||
|
|
||||||
WScript.Echo oExec.StdOut.ReadAll |
|
||||||
End Sub |
|
||||||
|
|
||||||
Public Function GetSetupPath() |
|
||||||
Dim strSetupDirPath |
|
||||||
strSetupDirPath = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\")) |
|
||||||
GetSetupPath = strSetupDirPath |
|
||||||
End Function |
|
||||||
Loading…
Reference in new issue