project.Disconnect()

letinvalidPathChars= set(Path.GetInvalidPathChars())

letisPathWellFormed(path:string)=not(String.IsNullOrWhiteSpace path)&& path|> Seq.forall(fun c->not(Set.contains c invalidPathChars))

base.Initialize()

lethashSetIgnoreCase x=new HashSet<string>(x, StringComparer.OrdinalIgnoreCase)

letupdatedFiles= site.SourceFilesOnDisk()|> hashSetIgnoreCase

letworkspaceFiles= project.GetCurrentDocuments()|> Seq.map(fun file-> file.FilePath)|> hashSetIgnoreCase

HashSet(paths|> Seq.filter isPathWellFormed, StringComparer.OrdinalIgnoreCase)

letupdatedFiles= site.SourceFilesOnDisk()|> wellFormedFilePathSetIgnoreCase

letworkspaceFiles= project.GetCurrentDocuments()|> Seq.map(fun file-> file.FilePath)|> wellFormedFilePathSetIgnoreCase

let mutableupdated= forceUpdate

for filein updatedFilesdo

ifnot(workspaceFiles.Contains(file))then

projectContext.AddSourceFile(file)

updated<-true

for filein workspaceFilesdo

ifnot(updatedFiles.Contains(file))then

projectContext.RemoveSourceFile(file)

updated<-true

letupdatedRefs= site.AssemblyReferences()|>hashSetIgnoreCase

letworkspaceRefs= project.GetCurrentMetadataReferences()|> Seq.map(fun ref-> ref.FilePath)|>hashSetIgnoreCase

letupdatedRefs= site.AssemblyReferences()|>wellFormedFilePathSetIgnoreCase

letworkspaceRefs= project.GetCurrentMetadataReferences()|> Seq.map(fun ref-> ref.FilePath)|>wellFormedFilePathSetIgnoreCase

for refin updatedRefsdo

ifnot(workspaceRefs.Contains(ref))then

projectContext.AddMetadataReference(ref, MetadataReferenceProperties.Assembly)

for refin workspaceRefsdo

ifnot(updatedRefs.Contains(ref))then

projectContext.RemoveMetadataReference(ref)