anchor.diff:                      xmlPath <- Calc.xmlPath
                       language <- Calc
                       processLang graph Calc.tokenize Calc.parse lexerErrors.Add  addError Calc.translate Calc.printAstToDot
  -                (*| JSON -> 
  +                | JSON -> 
                       xmlPath <- JSON.xmlPath
                       language <- JSON
                       processLang graph JSON.tokenize JSON.parse lexerErrors.Add  addErrorJSON JSON.translate JSON.printAstToDot
                   | TSQL -> 
                       xmlPath <- TSQL.xmlPath
                       language <- TSQL
  -                    processLang graph TSQL.tokenize TSQL.parse lexerErrors.Add  addErrorTSQL TSQL.translate TSQL.printAstToDot*)
  +                    processLang graph TSQL.tokenize TSQL.parse lexerErrors.Add  addErrorTSQL TSQL.translate TSQL.printAstToDot
               )
   
           lexerErrors, parserErrors
  
positive.code:             let treeNodeList = translate nextTree errors :> seq<ITreeNode>
              treeNodeList.ToTreeNodeCollection().First()
  
      member this.GetForestWithToken range = 
          let translate = 
              match language with
  
negative.code:                 | e -> 
                      brs.[0].back_ref.GetDocumentRange())
          ranges    
  
  //(provider: ICSharpContextActionDataProvider) = 
      member this.Process () = 
          let parserErrors = new ResizeArray<_>()
  