Copy stuff over from FSharpx

Author: forki

README.md

@@ -1,31 +1,25 @@
-[![Issue Stats](http://issuestats.com/github/fsprojects/ProjectScaffold/badge/issue)](http://issuestats.com/github/fsprojects/ProjectScaffold)
-[![Issue Stats](http://issuestats.com/github/fsprojects/ProjectScaffold/badge/pr)](http://issuestats.com/github/fsprojects/ProjectScaffold)
+[![Issue Stats](http://issuestats.com/github/fsprojects/FSharpx.Async/badge/issue)](http://issuestats.com/github/fsprojects/FSharpx.Async)
+[![Issue Stats](http://issuestats.com/github/fsprojects/FSharpx.Async/badge/pr)](http://issuestats.com/github/fsprojects/FSharpx.Async)
 
-# ProjectScaffold
+# FSharpx:Async [![NuGet Status](http://img.shields.io/nuget/v/FSharpx.Async.svg?style=flat)](https://www.nuget.org/packages/FSharpx.Async/)
 
-This project can be used to scaffold a prototypical .NET solution including file system layout and tooling. This includes a build process that: 
+**FSharpx.Async** is a collections of async helpers for F#. 
 
-* updates all AssemblyInfo files
-* compiles the application and runs all test projects
-* generates [SourceLinks](https://github.com/ctaggart/SourceLink)
-* generates API docs based on XML document tags
-* generates [documentation based on Markdown files](http://fsprojects.github.io/ProjectScaffold/writing-docs.html)
-* generates [NuGet](http://www.nuget.org) packages
-* and allows a simple [one step release process](http://fsprojects.github.io/ProjectScaffold/release-process.html).
+See [the home page](http://fsprojects.github.io/FSharpx.Async/) for details. The home page can be [edited, forked or cloned](https://github.com/fsprojects/FSharpx.Async/tree/gh-pages)
+Please contribute to this project. Don't ask for permission, just fork the repository and send pull requests.
 
-In order to start the scaffolding process run 
+Please also join the [F# Open Source Group](http://fsharp.github.com)
 
-    $ build.cmd // on windows    
-    $ build.sh  // on mono
-    
-Read the [Getting started tutorial](http://fsprojects.github.io/ProjectScaffold/index.html#Getting-started) to learn more.
+# Build Status
 
-Documentation: http://fsprojects.github.io/ProjectScaffold
+Head (branch ``master``), Windows Server 2012 (Appveyor)  [![Build status](https://ci.appveyor.com/api/projects/status/jv6nki3vm2s6bmj6?svg=true)](https://ci.appveyor.com/project/SteffenForkmann/fsharpx-async)
 
-## Maintainer(s)
+Head (branch ``master``), OSX (Travis)  [![Build status](https://travis-ci.org/fsprojects/FSharpx.Async.svg?branch=master)](https://travis-ci.org/fsprojects/FSharpx.Async)
+
+# Maintainer(s)
 
 - [@forki](https://github.com/forki)
-- [@pblasucci](https://github.com/pblasucci)
-- [@sergey-tihon](https://github.com/sergey-tihon)
+- [@mausch](https://github.com/mausch)
+- [@panesofglass](https://github.com/panesofglass)
 
 The default maintainer account for projects under "fsprojects" is [@fsgit](https://github.com/fsgit) - F# Community Project Incubation Space (repo management)

RELEASE_NOTES.md

@@ -1,13 +1,2 @@
-### 1.0 - Unreleased
-* More awesome stuff coming
-* Added SourceLink for Source Indexing PDB
-
-#### 0.5.1-beta - November 6 2013
-* Improved quality of solution-wide README.md files
- 
-#### 0.5.0-beta - October 29 2013
-* Improved quality of solution-wide README.md files
-
-#### 0.0.1-beta - October 24 2013
-* Changed name from fsharp-project-scaffold to FSharp.ProjectScaffold
-* Initial release
+### 1.9.6 - 23.02.2015
+* Copied stuff from FSharpx

docs/content/index.fsx

@@ -27,7 +27,7 @@ This example demonstrates using a function defined in this sample library.
 
 *)
 #r "FSharpx.Async.dll"
-open FSharpx.Async
+open FSharpx.Control
 
 printfn "hello = %i" <| Library.hello 0
 

src/FSharpx.Async/Agent.fs

@@ -0,0 +1,8 @@
+// ----------------------------------------------------------------------------
+// F# async extensions (Agent.fs)
+// (c) Tomas Petricek, 2011, Available under Apache 2.0 license.
+// ----------------------------------------------------------------------------
+namespace FSharpx.Control
+
+/// Type alias for F# mailbox processor type
+type Agent<'T> = MailboxProcessor<'T>

src/FSharpx.Async/Async.fs

@@ -0,0 +1,66 @@
+// ----------------------------------------------------------------------------
+// F# async extensions
+// (c) Tomas Petricek, David Thomas 2012, Available under Apache 2.0 license.
+// ----------------------------------------------------------------------------
+namespace FSharpx.Control
+open System
+open System.Threading
+
+// ----------------------------------------------------------------------------
+
+[<AutoOpen>]
+module AsyncExtensions = 
+    type Microsoft.FSharp.Control.Async with 
+
+      /// Creates an asynchronous workflow that runs the asynchronous workflow
+      /// given as an argument at most once. When the returned workflow is 
+      /// started for the second time, it reuses the result of the 
+      /// previous execution.
+      static member Cache (input:Async<'T>) = 
+          let agent = Agent<AsyncReplyChannel<_>>.Start(fun agent -> async {
+              let! repl = agent.Receive()
+              let! res = input
+              repl.Reply(res)
+              while true do
+                  let! repl = agent.Receive()
+                  repl.Reply(res) })
+
+          async { return! agent.PostAndAsyncReply(id) }
+
+      /// Starts the specified operation using a new CancellationToken and returns
+      /// IDisposable object that cancels the computation. This method can be used
+      /// when implementing the Subscribe method of IObservable interface.
+      static member StartDisposable(op:Async<unit>) =
+          let ct = new System.Threading.CancellationTokenSource()
+          Async.Start(op, ct.Token)
+          { new IDisposable with 
+              member x.Dispose() = ct.Cancel() }
+
+#if NET40
+
+      /// Starts a non-generic Task with the cancellationToken and returns an
+      /// Async<unit> containing the result.
+      static member AwaitTask(task:Tasks.Task, ?cancellationToken) =
+          let cancel = defaultArg cancellationToken Async.DefaultCancellationToken
+          Async.AwaitTask <| task.ContinueWith<unit>((fun t -> ()), cancel)
+
+      /// Starts a Task<'a> with the timeout and cancellationToken and
+      /// returns a Async<a' option> containing the result.  If the Task does
+      /// not complete in the timeout interval, or is faulted None is returned.
+      static member TryAwaitTask(task:Tasks.Task<_>, ?timeout, ?cancellationToken) =
+          let timeout = defaultArg timeout Timeout.Infinite
+          let cancel = defaultArg cancellationToken Async.DefaultCancellationToken
+          async {
+              return
+                if task.Wait(timeout, cancel) && not task.IsCanceled && not task.IsFaulted
+                then Some task.Result
+                else None }
+
+    /// Implements an extension method that overloads the standard
+    /// 'Bind' of the 'async' builder. The new overload awaits on 
+    /// a standard .NET task
+    type Microsoft.FSharp.Control.AsyncBuilder with
+        member x.Bind(t:Tasks.Task<'T>, f:'T -> Async<'R>) : Async<'R> = async.Bind(Async.AwaitTask t, f)
+        member x.Bind(t:Tasks.Task, f:unit -> Async<'R>)   : Async<'R> = async.Bind(Async.AwaitTask t, f)
+
+#endif