remove command line args define

This commit is contained in:
KevinRansom 2016-03-15 20:26:35 -07:00
Родитель 4dc422ce9d
Коммит d2d8aeafac
2 изменённых файлов: 0 добавлений и 9 удалений

Просмотреть файл

@ -67,10 +67,7 @@ type InteractiveSession() =
let mutable evLoop = (new SimpleEventLoop() :> IEventLoop)
let mutable showIDictionary = true
let mutable showDeclarationValues = true
#if FX_NO_GETCOMMANDLINEARG
#else
let mutable args = System.Environment.GetCommandLineArgs()
#endif
let mutable fpfmt = "g10"
let mutable fp = (System.Globalization.CultureInfo.InvariantCulture :> System.IFormatProvider)
let mutable printWidth = 78
@ -93,13 +90,10 @@ type InteractiveSession() =
member self.ShowIDictionary with get() = showIDictionary and set v = showIDictionary <- v
member self.AddedPrinters with get() = addedPrinters and set v = addedPrinters <- v
#if FX_NO_GETCOMMANDLINEARG
#else
[<CodeAnalysis.SuppressMessage("Microsoft.Performance", "CA1819:PropertiesShouldNotReturnArrays")>]
member self.CommandLineArgs
with get() = args
and set v = args <- v
#endif
member self.AddPrinter(printer : 'T -> string) =
addedPrinters <- Choice1Of2 (typeof<'T>, (fun (x:obj) -> printer (unbox x))) :: addedPrinters

Просмотреть файл

@ -43,15 +43,12 @@ type InteractiveSession =
member internal AddedPrinters : Choice<(System.Type * (obj -> string)),
(System.Type * (obj -> obj))> list
#if FX_NO_GETCOMMANDLINEARG
#else
/// <summary>The command line arguments after ignoring the arguments relevant to the interactive
/// environment and replacing the first argument with the name of the last script file,
/// if any. Thus 'fsi.exe test1.fs test2.fs -- hello goodbye' will give arguments
/// 'test2.fs', 'hello', 'goodbye'. This value will normally be different to those
/// returned by System.Environment.GetCommandLineArgs.</summary>
member CommandLineArgs : string [] with get,set
#endif
/// <summary>Gets or sets a the current event loop being used to process interactions.</summary>
member EventLoop: IEventLoop with get,set