F # управление ссылками при компиляции из скрипта fsx - PullRequest
Новая
       46

F # управление ссылками при компиляции из скрипта fsx

0 голосов
/ 24 мая 2019

Мне нужно взаимодействовать с SharePoint (на месте) и решил попробовать F #. Это или должно быть достаточно просто, чтобы я делал это только с помощью инструментов CLI.

Мне удалось взаимодействовать с сайтом и получить необходимую информацию. Я боролся с необходимой DLL, но в итоге 

#if INTERACTIVE
#r @"C:\Program Files\Common Files\Microsoft Shared\Web Server Extensions\15\ISAPI\Microsoft.SharePoint.Client.dll"
#r @"C:\Program Files\Common Files\Microsoft Shared\Web Server Extensions\15\ISAPI\Microsoft.SharePoint.Client.Runtime.dll"

// seems to be required
#r @"[...]\Microsoft.Online.SharePoint.Client.Tenant.dll.15.0.4615.1001\Microsoft.Online.SharePoint.Client.Tenant.dll"

#r @"[...]\SharePointPnPCoreOnline.3.8.1904\lib\net45\OfficeDevPnP.Core.dll"

#endif

работал с Fsi REPL или Fsi script.fsx, но я не могу его скомпилировать, как файл fs, так и с помощью скрипта fsx.

Мой код, скажем: 

open Microsoft.SharePoint.Client;;

let main () = 
    let authnManager = OfficeDevPnP.Core.AuthenticationManager()
    printfn "%A" authnManager
    0

main()

Запуск с помощью fsi: 

PS> fsi script.fsx
OfficeDevPnP.Core.AuthenticationManager #OK!

Попытка скомпилировать: 

PowerShell>  fsc --warn:5 -r "C:\Program Files\Common Files\Microsoft Shared\Web Server Extensions\15\ISAPI\Microsoft.SharePoint.Client.dll" `
>>      -r "C:\Program Files\Common Files\Microsoft Shared\Web Server Extensions\15\ISAPI\Microsoft.SharePoint.Client.Runtime.dll" `
>>      -r "absolute\path\to\Microsoft.Online.SharePoint.Client.Tenant.dll.15.0.4615.1001\Microsoft.Online.SharePoint.Client.Tenant.dll" `
>>      -r "absolute\path\to\SharePointPnPCoreOnline.3.8.1904\lib\net45\OfficeDevPnP.Core.dll"  .\script.fsx
Microsoft (R) F# Compiler version 10.4.0 for F# 4.6
Copyright (c) Microsoft Corporation. All Rights Reserved.

> .\script.exe

Exception non gérée (unmanaged exception) : System.IO.FileNotFoundException: 
Impossible de charger le fichier ou l'assembly 'OfficeDevPnP.Core,
Version=3.8.1904.0, Culture=neutral, PublicKeyToken=5e633289e95c321a'
ou une de ses dépendances. Le fichier spécifié est introuvable.
   à Script.main()
   à <StartupCode$script>.$Script$fsx.main@()

Почему эта разница? Что мне не хватает? Как загрузить ссылки с помощью fsc (поскольку в nuget установлено довольно много транзитивных зависимостей)? Они должны управляться как с помощью fsc, так и с помощью fsi! (Если нет особых проблем с OfficeDevPnP.Core.dll ...)

1 Ответ

1 голос
/ 24 мая 2019

Я думаю, что библиотеки DLL, на которые ссылаются через #r в F # Interactive, должны быть в порядке зависимости. Таким образом, если библиотеки DLL SharePoint зависят от библиотеки OfficeDevPnp, то сначала необходимо обратиться к библиотеке DLL OfficeDevPnp (ее строка #r должна предшествовать строкам SharePoint #r). Вам нужно будет сбросить интерактивный сеанс после загрузки библиотек DLL, чтобы загрузить их в правильном порядке.

В общем, загрузка зависимостей пакетов в F # интерактив довольно сложна. Есть некоторые инструменты F #, такие как Paket , на которые вы можете взглянуть, которые могут немного облегчить вашу жизнь. Другой вариант, если у вас уже есть проект Visual Studio с нужными ссылками, это использовать его для генерации ссылок на пакеты для вашего файла сценария. Вы можете прочитать файл .fsproj и сгенерировать операторы #r из ссылок, используемых проектом. Примерно так может работать: 

#r "System.Xml"
#r "System.Xml.Linq"

open System
open System.IO
open System.Linq
open System.Xml.Linq

let inline isNotNull o = o |> isNull |> not

let private getProject path =
    Directory.EnumerateFiles(path, "*.*proj") |> Seq.head |> XDocument.Load    

let generateDlls path =
    let projectFile = getProject path
    let references =
        projectFile.Descendants <| XName.Get("HintPath", "http://schemas.microsoft.com/developer/msbuild/2003")
        |> Seq.filter (fun reference -> reference.Value.ToLower().EndsWith(".dll"))
        |> Seq.filter (fun reference -> reference.Value.StartsWith("$") |> not)
        |> Seq.map (fun reference -> reference.Value)
    let projects =
        projectFile.Descendants <| XName.Get("ProjectReference", "http://schemas.microsoft.com/developer/msbuild/2003")
        |> Seq.map (fun reference -> reference.Elements(XName.Get("Name", "http://schemas.microsoft.com/developer/msbuild/2003")).SingleOrDefault())
        |> Seq.filter (fun nameElement -> nameElement |> isNotNull)
        |> Seq.map (fun nameElement -> nameElement.Value)
        |> Seq.map (fun reference -> sprintf "../%s/bin/debug/%s.dll" reference reference)

    references 
    |> Seq.append projects
    |> Seq.iter (fun reference -> printfn "#r @\"%s\"" reference)
...