// Open the namespace with InteractiveChecker type

open FSharp.Compiler.SourceCodeServices

open FSharp.Compiler.QuickParse

let checker = FSharpChecker.Create()

let parseWithTypeInfo (file, input) =

let input = FSharp.Compiler.Text.SourceText.ofString input

let checkOptions, _errors = checker.GetProjectOptionsFromScript(file, input) |> Async.RunSynchronously

let parsingOptions, _errors = checker.GetParsingOptionsFromProjectOptions(checkOptions)

let untypedRes = checker.ParseFile(file, input, parsingOptions) |> Async.RunSynchronously

match checker.CheckFileInProject(untypedRes, file, 0, input, checkOptions) |> Async.RunSynchronously with

| FSharpCheckFileAnswer.Succeeded(res) -> untypedRes, res

| res -> failwithf "Parsing did not finish... (%A)" res

let input =

"""

let inputLines = input.Split('\n')

let file = "/home/user/Test.fsx"

let identTokenTag = FSharpTokenTag.Identifier

let untyped, parsed = parseWithTypeInfo (file, input)

let tip = parsed.GetToolTipText(2, 7, inputLines.[1], [ "foo" ], identTokenTag)

printfn "%A" tip

let partialName = GetPartialLongNameEx(inputLines.[4], 23)

let decls =

parsed.GetDeclarationListInfo(Some untyped, 5, inputLines.[4], partialName, (fun () -> []))

|> Async.RunSynchronously

for item in decls.Items do

printfn " - %s" item.Name