using System;

using System.Collections.Generic;

using System.Text;

using System.GAC;

//// Artinsoft

//// Author: Mauricio Rojas orellabac@gmail.com mrojas@artinsoft.com

//// This program uses the undocumented GAC API to perform a simple install of an assembly in the GAC

namespace AddAssemblyToGAC

{

    class Program

    {

        static void Main(string[] args)

        {

            // Create an FUSION_INSTALL_REFERENCE struct and fill it with data

            FUSION_INSTALL_REFERENCE[] installReference = new FUSION_INSTALL_REFERENCE[1];

            installReference[0].dwFlags = 0;

            // Using opaque scheme here

            installReference[0].guidScheme = System.GAC.AssemblyCache.FUSION_REFCOUNT_OPAQUE_STRING_GUID;

            installReference[0].szIdentifier = "My Pretty Aplication Identifier";

            installReference[0].szNonCannonicalData= "My other info";

            // Get an IAssemblyCache interface

            IAssemblyCache pCache = AssemblyCache.CreateAssemblyCache();

            String AssemblyFilePath = args[0];

            if (!System.IO.File.Exists(AssemblyFilePath))

            {

                Console.WriteLine("Hey! Please use a valid path to an assembly, assembly was not found!");

            }

            int result = pCache.InstallAssembly(0, AssemblyFilePath,installReference);

            //NOTE recently someone reported a problem with this code and I tried this:

            // int result = pCache.InstallAssembly(0, AssemblyFilePath,null); and it worked. I think is a marshalling issue I will probably review it later

            Console.WriteLine("Process returned " + result);

            Console.WriteLine("Done!");

        }

    }

}

<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">

<!-- make sure that the Assembly is in a place where msbuild can find it, a simple way is just to put it 

in the same directory of your .proj file -->

<UsingTask TaskName="SomeUsefulTasks.MSBuild.RemoveCOMReference"    
  AssemblyFile="SomeUsefulTasks.dll"/> 

<UsingTask TaskName="SomeUsefulTasks.MSBuild.FixOutputPath"         
  AssemblyFile="SomeUsefulTasks.dll"/> 

<UsingTask TaskName="SomeUsefulTasks.MSBuild.AddProjectReference"   
  AssemblyFile="SomeUsefulTasks.dll"/> 

<UsingTask TaskName="SomeUsefulTasks.MSBuild.AddSimpleReference"    
  AssemblyFile="SomeUsefulTasks.dll"/> 

<UsingTask TaskName="SomeUsefulTasks.MSBuild.ChangeProjectBuildSetting"    
  AssemblyFile="SomeUsefulTasks.dll"/> 

   <ItemGroup>

    <VSProjects Include="$(Start)\**\*.*proj" />

  </ItemGroup>

<!--

Run with 
MSBUILD SampleProject.proj /target:COMReference /p:Start="C:\MyCode"

-->

  <Target Name="COMReference">

    <RemoveCOMReference SourceFiles="@(VSProjects)" ComReferenceName="MSXML2" />

  </Target> 

<!-- 

Adds a project reference  

Run with 

MSBUILD SampleProject.proj /target:AddProjectReference /p:Start="C:\MyCode" /p:ProjectPath="C:\MyCode\MyNewSuperProject\Project1.csproj"

-->

   <Target Name="AddProjectReference">

      <AddProjectReference SourceFiles="@(VSProjects)"  AbsolutePathToProject="$(ProjectPath)"/>

   </Target> 

<!-- 
Adds a reference to a standard assembly 

Run with 

MSBUILD SampleProject.proj /target:AddSimpleReference /p:Start="C:\MyCode" /p:Reference="System.EnterpriseServices"   

-->

<Target Name="AddSimpleReference">

      <AddSimpleReference SourceFiles="@(VSProjects)" Reference="$(Reference)" />

</Target> 

<!-- 
Resets the OutputPaths to .\bin\Debug and .\bin\Release 

Run with 

MSBUILD SampleProject.proj /target:FixOutput /p:Start="C:\MyCode" /p:Reference="System.EnterpriseServices"   

-->

<Target Name="FixOutput">

    <FixOutputPath SourceFiles="@(VSProjects)"  />

</Target> 

<!-- 

Adds a reference to a standard assembly 

There are several options here for example to set the project debug info to pdb-only do this:

Run with 

MSBUILD SampleProject.proj /target:ChangeSettingToPDBOnly /p:Start="C:\MyCode" 

Or run with 

MSBUILD SampleProject.proj /target:ChangeSettingAddAConstant /p:Start="C:\MyCode" 

Or run with 

MSBUILD SampleProject.proj /target:SettingComInterop /p:Start="C:\MyCode" 

-->

<Target Name="ChangeSettingToPDBOnly">

      <ChangeProjectBuildSetting 

          SourceFiles="@(VSProjects)" 

          ConfigurationType="All" 

          Setting="DebugType" 

          NewValue="pdbonly" />

</Target> 

<Target Name="ChangeSettingAddAConstant">

      <ChangeProjectBuildSetting 

          SourceFiles="@(VSProjects)" 

          ConfigurationType="All" 

          Setting="DefineConstants" 

          NewValue="MYNEWVAL" 

          Add="True"/>

</Target> 

<Target Name="SettingComInterop">

      <ChangeProjectBuildSetting 

          SourceFiles="@(VSProjects)" 

          ConfigurationType="All" 

          Setting="RegisterForComInterop" 

         NewValue="true" />

</Target> 

</Project>

        private static string EvaluateRelativePath(string mainDirPath, string absoluteFilePath)

        {

            string[]

            firstPathParts = 

             mainDirPath.Trim(Path.DirectorySeparatorChar).Split(Path.DirectorySeparatorChar);

            string[]

            secondPathParts = 

             absoluteFilePath.Trim(Path.DirectorySeparatorChar).Split(Path.DirectorySeparatorChar);

            int sameCounter = 0;

            for (int i = 0; i < Math.Min(firstPathParts.Length,secondPathParts.Length); i++)

            {

                if (

                !firstPathParts[i].ToLower().Equals(secondPathParts[i].ToLower()))

                {

                    break;

                }

                sameCounter++;

            }

            if (sameCounter == 0)

            {

                return absoluteFilePath;

            }

            string newPath = String.Empty;

            for (int i = sameCounter; i < firstPathParts.Length; i++)

            {

                if (i > sameCounter)

                {

                    newPath += Path.DirectorySeparatorChar;

                }

                newPath += "..";

            }

            if (newPath.Length == 0)

            {

                newPath = ".";

            }

            for (int i = sameCounter; i < secondPathParts.Length; i++)

            {

                newPath += Path.DirectorySeparatorChar;

                newPath += secondPathParts[i];

            }

            return newPath;

        }

            String test = EvaluateRelativePath(@"E:\Source_Code\Code\ProjectsGroup1\Project1", @"E:\Source_Code\Code\ProjecstGroup2\Project2");

//This will genearate something like ..\..\ProjectGroup2\Project2

Public Sub FormatSolution()
     Dim sol As Solution = DTE.Solution
     For i As Integer = 1 To sol.Projects.Count
          FormatProject(sol.Projects.Item(i))
     Next
End Sub 

Private Sub FormatProject(ByVal proj as Project)

     For i As Integer = 1 To proj.ProjectItems.Count
          FormatProjectItem(proj.ProjectItems.Item(i))
     Next
End Sub

Private Sub FormatProjectItem(ByVal projectItem As ProjectItem)

     If projectItem.Kind = Constants.vsProjectItemKindPhysicalFile Then

          If projectItem.Name.LastIndexOf(".cs") = projectItem.Name.Length - 3 Then
               Dim window As Window = projectItem.Open(Constants.vsViewKindCode)
               window.Activate()
               projectItem.Document.DTE.ExecuteCommand("Edit.FormatDocument")
               window.Close(vsSaveChanges.vsSaveChangesYes)
          End If
     End If

'Be sure to format all of the ProjectItems.
     If Not projectItem.ProjectItems Is Nothing Then
          For i As Integer = 1 To projectItem.ProjectItems.Count
               FormatProjectItem(projectItem.ProjectItems.Item(i))
          Next
     End If

'Format the SubProject if it exists.

     If Not projectItem.SubProject Is Nothing Then
          FormatProject(projectItem.SubProject)
     End If
End Sub