@@ -98,35 +98,20 @@ namespace Microsoft.FSharp.Control
9898static member AsyncAppendText ( path ) = UnblockViaNewThread( fun () -> System.IO.File.AppendText( path))
9999static member AsyncOpenRead ( path ) = UnblockViaNewThread( fun () -> System.IO.File.OpenRead( path))
100100static member AsyncOpenWrite ( path ) = UnblockViaNewThread( fun () -> System.IO.File.OpenWrite( path))
101- #if FX_ NO_ FILE_ OPTIONS
102- static member AsyncOpen ( path , mode ,? access ,? share ,? bufferSize ) =
103- #else
104101static member AsyncOpen ( path , mode ,? access ,? share ,? bufferSize ,? options ) =
105- #endif
106102let access = match accesswith Some v-> v| None-> System.IO.FileAccess.ReadWrite
107103let share = match sharewith Some v-> v| None-> System.IO.FileShare.None
108- #if ! FX_ NO_ FILE_ OPTIONS
109104let options = match optionswith Some v-> v| None-> System.IO.FileOptions.None
110- #endif
111105let bufferSize = match bufferSizewith Some v-> v| None-> 0x1000
112106 UnblockViaNewThread( fun () ->
113- #if FX_ NO_ FILE_ OPTIONS
114- new System.IO.FileStream( path, mode, access, share, bufferSize))
115- #else
116107new System.IO.FileStream( path, mode, access, share, bufferSize, options))
117- #endif
118108
119109static member OpenTextAsync ( path ) = System.IO.File.AsyncOpenText( path)
120110static member AppendTextAsync ( path ) = System.IO.File.AsyncAppendText( path)
121111static member OpenReadAsync ( path ) = System.IO.File.AsyncOpenRead( path)
122112static member OpenWriteAsync ( path ) = System.IO.File.AsyncOpenWrite( path)
123- #if FX_ NO_ FILE_ OPTIONS
124- static member OpenAsync ( path , mode ,? access ,? share ,? bufferSize ) =
125- System.IO.File.AsyncOpen( path, mode, ?access= access, ?share= share,? bufferSize= bufferSize)
126- #else
127113static member OpenAsync ( path , mode ,? access ,? share ,? bufferSize ,? options ) =
128114 System.IO.File.AsyncOpen( path, mode, ?access= access, ?share= share,? bufferSize= bufferSize,? options= options)
129- #endif
130115
131116[<AutoOpen>]
132117module StreamReaderExtensions =