open FSharp.Data

type packages = XmlProvider<"""<?xml version="1.0" encoding="utf-8"?>
<packages>
  <package id="Machine.Fakes.RhinoMocks" version="2.3.0" targetFramework="net462" />
  <package id="Machine.Specifications" version="0.9.3" targetFramework="net462" />
  <package id="Machine.Specifications.Should" version="0.7.2" targetFramework="net462" />
  <package id="RhinoMocks" version="3.6.1" targetFramework="net462" />
</packages>""">

[<EntryPoint>]
let main argv =
    let p =
        packages.Load(argv.[0]).Packages
        |> Seq.map (fun x -> sprintf "\"Install-Package %s -version %s -ProjectName %A\"" x.Id x.Version.Value argv.[1])
        |> String.concat ","
    printfn "%s" p
    0


// run program: program.exe "path to packages.config file" "project name"
// copy result
// Open Package.Manager.Console
// assign to $packages copied result -> $packages = ...
// run: $packages | foreach { Invoke-Expression $_ }