[API] add overload for Dependencies.Init

integrationtests/Paket.IntegrationTests/InitSpecs.fs

@@ -54,4 +54,21 @@ let ``#1240 current bootstrapper should work``() =
     |> shouldEqual true
 
     File.Exists(scenarioTempPath "i001240-bootstrapper" </> "paket.exe")
-    |> shouldEqual true
+    |> shouldEqual true
+
+[<Test>]
+let ``#1041 init api``() = 
+    let tempScenarioDir = scenarioTempPath "i001041-init-api"
+
+    let url = "http://my.test/api"
+    let source = Paket.PackageSources.PackageSource.NuGetV2Source(url)
+
+    Paket.Dependencies.Init(tempScenarioDir, [source], [ "download_license: true" ], false)
+
+    let depsPath = tempScenarioDir </> "paket.dependencies"
+    File.Exists(depsPath) |> shouldEqual true
+
+    let lines = File.ReadAllText(depsPath)
+
+    StringAssert.Contains(url, lines);
+    StringAssert.Contains("download_license: true", lines);

src/Paket.Core/PackageAnalysis/Environment.fs

@@ -81,18 +81,19 @@ module PaketEnv =
         environment.LockFile
         |> failIfNone (LockFileNotFound environment.RootDirectory)
 
-    let init (directory : DirectoryInfo) =
+    let initWithContent sources additional (directory : DirectoryInfo) =
         match locatePaketRootDirectory directory with
         | Some rootDirectory when rootDirectory.FullName = directory.FullName -> 
             Logging.tracefn "Paket is already initialized in %s" rootDirectory.FullName
             ok ()
         | _ -> 
-            let sources = [PackageSources.DefaultNuGetSource]
-            let serialized = 
+            let sourcesSerialized = 
                 (sources
                 |> List.map (string >> DependenciesFileSerializer.sourceString))
                 @ [""]
                 |> Array.ofList
+
+            let serialized = Array.append sourcesSerialized (additional |> Array.ofList)
 
             let mainGroup = 
                 { Name = Constants.MainDependencyGroup
@@ -102,11 +103,15 @@ module PaketEnv =
                   Packages = []
                   RemoteFiles = [] }
             let groups = [Constants.MainDependencyGroup, mainGroup] |> Map.ofSeq
-                
+
             let dependenciesFile = 
                 DependenciesFile(
                     Path.Combine(directory.FullName, Constants.DependenciesFileName),
                     groups,
                     serialized)
 
-            dependenciesFile.ToString() |> saveFile dependenciesFile.FileName
+            dependenciesFile.ToString() |> saveFile dependenciesFile.FileName
+
+    let init (directory : DirectoryInfo) =
+        let sources = [PackageSources.DefaultNuGetSource]
+        initWithContent sources [] directory

src/Paket.Core/PublicAPI.fs

@@ -87,6 +87,25 @@ type Dependencies(dependenciesFileName: string) =
         deps.DownloadLatestBootstrapper()
 #endif
 
+    /// Initialize paket.dependencies file in the given directory
+    static member Init(directory, sources, additional, downloadBootstrapper) =
+        let directory = DirectoryInfo(directory)
+
+        RunInLockedAccessMode(
+            directory.FullName,
+            fun () ->
+                PaketEnv.initWithContent sources additional directory
+                |> returnOrFail
+        )
+
+#if !NO_BOOTSTRAPPER
+        if downloadBootstrapper then
+            let deps = Dependencies.Locate(directory.FullName)
+            deps.DownloadLatestBootstrapper()
+#else
+        ignore downloadBootstrapper
+#endif
+
     /// Converts the solution from NuGet to Paket.
     static member ConvertFromNuget(force: bool,installAfter: bool, initAutoRestore: bool,credsMigrationMode: string option, ?directory: DirectoryInfo) : unit =
         let dir = defaultArg directory (DirectoryInfo(Directory.GetCurrentDirectory()))