Add signature files for taskSeq and builders, plus utils, hide debug stuff etc

Author: abelbraaksma

src/FSharp.Control.TaskSeq/AssemblyInfo.fs

@@ -0,0 +1,8 @@
+namespace TaskSeq.Tests
+
+open System.Runtime.CompilerServices
+
+// ensure the test project has access to the internal types
+[<assembly: InternalsVisibleToAttribute("FSharp.Control.TaskSeq.Test")>]
+
+do ()

src/FSharp.Control.TaskSeq/DebugUtils.fs

@@ -0,0 +1,55 @@
+namespace FSharp.Control
+
+open System.Threading.Tasks
+open System
+open System.Diagnostics
+open System.Threading
+
+type Debug =
+
+    [<DefaultValue(false)>]
+    static val mutable private verbose: bool option
+
+    /// Setting from environment variable TASKSEQ_LOG_VERBOSE, which,
+    /// when set, enables (very) verbose printing of flow and state
+    static member private getVerboseSetting() =
+        match Debug.verbose with
+        | None ->
+            let verboseEnv =
+                try
+                    match Environment.GetEnvironmentVariable "TASKSEQ_LOG_VERBOSE" with
+                    | null -> false
+                    | x ->
+                        match x.ToLowerInvariant().Trim() with
+                        | "1"
+                        | "true"
+                        | "on"
+                        | "yes" -> true
+                        | _ -> false
+
+                with _ ->
+                    false
+
+            Debug.verbose <- Some verboseEnv
+            verboseEnv
+
+        | Some setting -> setting
+
+    /// Private helper to log to stdout in DEBUG builds only
+    [<Conditional("DEBUG")>]
+    static member private print value =
+        match Debug.getVerboseSetting () with
+        | false -> ()
+        | true ->
+            // don't use ksprintf here, because the compiler does not remove all allocations due to
+            // the way PrintfFormat types are compiled, even if we set the Conditional attribute.
+            let ct = Thread.CurrentThread
+            printfn "%i (%b): %s" ct.ManagedThreadId ct.IsThreadPoolThread value
+
+    /// Log to stdout in DEBUG builds only
+    [<Conditional("DEBUG")>]
+    static member logInfo(str) = Debug.print str
+
+    /// Log to stdout in DEBUG builds only
+    [<Conditional("DEBUG")>]
+    static member logInfo(str, data) = Debug.print $"%s{str}{data}"

src/FSharp.Control.TaskSeq/FSharp.Control.TaskSeq.fsproj

@@ -26,14 +26,27 @@ Generates optimized IL code through the new resumable state machines, and comes
     <SymbolPackageFormat>snupkg</SymbolPackageFormat>
   </PropertyGroup>
 
+  <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|AnyCPU'">
+    <OtherFlags></OtherFlags>
+  </PropertyGroup>
+
+  <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|AnyCPU'">
+    <OtherFlags></OtherFlags>
+    <Tailcalls>True</Tailcalls>
+  </PropertyGroup>
+
   <ItemGroup>
     <Content Include="..\..\release-notes.txt" Link="release-notes.txt" />
     <None Include="..\..\assets\taskseq-icon.png">
       <Pack>True</Pack>
       <PackagePath>\</PackagePath>
     </None>
     <None Include="..\..\assets\nuget-package-readme.md" Pack="true" PackagePath="" />
+    <Compile Include="AssemblyInfo.fs" />
+    <Compile Include="DebugUtils.fs" />
+    <Compile Include="Utils.fsi" />
     <Compile Include="Utils.fs" />
+    <Compile Include="TaskSeqBuilder.fsi" />
     <Compile Include="TaskSeqBuilder.fs" />
     <Compile Include="TaskSeqInternal.fs" />
     <Compile Include="TaskSeq.fsi" />