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 @@
@@ -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 @@
@@ -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