Commitfcd8746

authored and

committed

Clear XmlDoc caches after closing a solution

1 parent6ebbd2c commitfcd8746Copy full SHA for fcd8746

File tree

+14

-5

lines changed

+14

-5

lines changed

Lines changed: 1 addition & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -85,6 +85,7 @@ type internal ServiceProvider(getService:Type->obj) =`
`85`	`85`	`membersp.TextManager:IVsTextManager=downcast(getService(typeof<SVsTextManager>))`
`86`	`86`	`membersp.Rdt:IVsRunningDocumentTable=downcast(getService(typeof<SVsRunningDocumentTable>))`
`87`	`87`	`membersp.XmlService:IVsXMLMemberIndexService=downcast(getService(typeof<SVsXMLMemberIndexService>))`
	`88`	`+membersp.DTE:EnvDTE.DTE=downcast(getService(typeof<SDTE>))`
`88`	`89`	`static memberStub= ServiceProvider(fun _t->raise(Error.UseOfUnitializedServiceProvider))`
`89`	`90`
`90`	`91`	`/// Isolate VsTextManager as much as possible to ease transition into new editor architecture`

Lines changed: 10 additions & 2 deletions

Original file line number	Diff line number	Diff line change
`@@ -6,6 +6,9 @@ open System`
`6`	`6`	`openSystem.Text`
`7`	`7`	`openSystem.Collections.Generic`
`8`	`8`	`openInternal.Utilities.Collections`
	`9`	`+openMicrosoft.VisualStudio`
	`10`	`+openEnvDTE`
	`11`	`+openEnvDTE80`
`9`	`12`	`openMicrosoft.VisualStudio.Shell.Interop`
`10`	`13`	`openMicrosoft.FSharp.Compiler.SourceCodeServices`
`11`	`14`
`@@ -27,9 +30,14 @@ module internal XmlDocumentation =`
`27`	`30`	`else xml`
`28`	`31`
`29`	`32`	`/// Provide Xml Documentation`
`30`		`-typeProvider(xmlIndexService:IVsXMLMemberIndexService)=`
	`33`	`+typeProvider(xmlIndexService:IVsXMLMemberIndexService,dte: DTE)=`
`31`	`34`	`/// Index of assembly name to xml member index.`
`32`	`35`	`let mutablexmlCache=new AgedLookup<string,IVsXMLMemberIndex>(10,areSame=(fun(x,y)-> x= y))`
	`36`	`+`
	`37`	`+letevents= dte.Events:?> Events2`
	`38`	`+letsolutionEvents= events.SolutionEvents`
	`39`	`+do solutionEvents.add_AfterClosing(fun()->`
	`40`	`+ xmlCache.Clear())`
`33`	`41`
`34`	`42`	`letHasTrailingEndOfLine(sb:StringBuilder)=`
`35`	`43`	`if sb.Length=0thentrue`
`@@ -188,7 +196,7 @@ module internal XmlDocumentation =`
`188`	`196`	`with e->`
`189`	`197`	`Assert.Exception(e)`
`190`	`198`	`reraise()`
`191`		`-`
	`199`	`+`
`192`	`200`	`/// Append an XmlCommnet to the segment.`
`193`	`201`	`letAppendXmlComment(documentationProvider:IdealDocumentationProvider,segment:StringBuilder,xml,showExceptions,showParameters,paramName)=`
`194`	`202`	`match xmlwith`

Lines changed: 2 additions & 2 deletions

Original file line number	Diff line number	Diff line change
`@@ -5,12 +5,12 @@ open System`
`5`	`5`	`openSystem.Text`
`6`	`6`	`openMicrosoft.VisualStudio.Shell.Interop`
`7`	`7`	`openMicrosoft.FSharp.Compiler.SourceCodeServices`
`8`		`-`
	`8`	`+openEnvDTE`
`9`	`9`
`10`	`10`	`moduleinternalXmlDocumentation=`
`11`	`11`	`typeProvider=`
`12`	`12`	`interface IdealDocumentationProvider`
`13`		`-new: xmlIndexService:IVsXMLMemberIndexService-> Provider`
	`13`	`+new: xmlIndexService:IVsXMLMemberIndexService* dte: DTE-> Provider`
`14`	`14`
`15`	`15`	`/// Build a data tip text string with xml comments injected.`
`16`	`16`	`valBuildDataTipText:IdealDocumentationProvider* DataTipText-> string`

Lines changed: 1 addition & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -1593,7 +1593,7 @@ and [<Guid(FSharpConstants.languageServiceGuidString)>]`
`1593`	`1593`	`Source.CreateSource(fls, buffer, fls.GetColorizer(buffer), fileChangeEx)`
`1594`	`1594`	`ls.Initialize`
`1595`	`1595`	`(sp,`
`1596`		`-(XmlDocumentation.Provider(sp.XmlService):> IdealDocumentationProvider),`
	`1596`	`+(XmlDocumentation.Provider(sp.XmlService, sp.DTE):> IdealDocumentationProvider),`
`1597`	`1597`	`(preferences:> LanguagePreferences),`
`1598`	`1598`	`enableStandaloneFileIntellisense,`
`1599`	`1599`	`createSource)`

Comments

(0)