remove command line args define
This commit is contained in:
Родитель
4dc422ce9d
Коммит
d2d8aeafac
|
@ -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
|
||||
|
|
Загрузка…
Ссылка в новой задаче