REFERENCES +=\

-r:$(bootstrapdir)FSharp.Core.dll\

-r:Mono.Security.dll\

-r:$(monolibdir)System.Runtime.Remoting.dll\

-r:$(monolibdir)System.Windows.Forms.dll

REFERENCES +=\

-r:$(outdir)FSharp.Core.dll\

-r:Mono.Security.dll\

-r:$(monolibdir)System.Runtime.Remoting.dll\

-r:$(monolibdir)System.Drawing.dll\

-r:$(monolibdir)System.Windows.Forms.dll

|> main3

|> main4

letoutput= ResizeArray()

{new TextWriter()with

lock output(fun()->

#if SILVERLIGHT

output.Add(isOut, None,c))

output.Add(isOut,(try Some System.Console.ForegroundColorwith_-> None),c))

memberx.Encoding= Encoding.UTF8}

#if FX_ATLEAST_SILVERLIGHT_50

do ignore outWriter

do System.Console.SetOut(outWritertrue)

do System.Console.SetError(outWriterfalse)

memberx.GetTextAndClear()= lock output(fun()->letres= output.ToArray()in output.Clear(); res)

#if SILVERLIGHT

inherit MarshalByRefObject()

match System.Environment.OSVersion.Platformwith

| PlatformID.Win32NT| PlatformID.Win32S| PlatformID.Win32Windows| PlatformID.WinCE->true

static letdomainName=if onWindowsthen Environment.GetEnvironmentVariable"USERDOMAIN"else""

static letuserName= Environment.GetEnvironmentVariable(if onWindowsthen"USERNAME"else"USER")

static letbaseChannelName=if runningOnMonothen"FSCChannelMono"else"FSCChannel"

static letchannelName= baseChannelName+"_"+ domainName+"_"+ userName

static letserverName=if runningOnMonothen"FSCServerMono"else"FSCSever"

letoutputCollector=new OutputCollector()

letagent= MailboxProcessor<_>.Start(fun inbox->

let!(pwd,argv,reply:AsyncReplyChannel<_>)= inbox.Receive()

if!progressthen printfn"server agent: got compilation request, argv =%A" argv

Environment.CurrentDirectory<- pwd

letcreateErrorLogger=(fun tcConfigB-> ErrorLoggerThatQuitsAfterMaxErrors(tcConfigB, exiter))

mainCompile(argv,true, exiter,createErrorLogger);

if!progressthen printfn"server: finished compilation request, argv =%A" argv

with e->

if!progressthen printfn"server: finished compilation request with errors, argv =%A" argv

errorRecoveryNoRange e

letoutput= outputCollector.GetTextAndClear()

reply.Reply(output, exitCode)

GC.Collect(3)

if inbox.CurrentQueueLength=0&& GC.GetTotalMemory(true)>200L*1024L*1024Lthen

Environment.Exit0

while serverExistsdo

if!progressthen printfn"server: startup thread sleeping..."

System.Threading.Thread.Sleep1000

if!progressthen printfn"server: got compilation request, (pwd, argv) =%A"(pwd, argv)

agent.PostAndReply(fun reply->(pwd,argv,reply))

serverExists<-false

letlease=(base.InitializeLifetimeService():?> ILease)

if(lease.CurrentState= LeaseState.Initial)then

lease.InitialLeaseTime<- TimeSpan.FromDays(1.0);

lease.SponsorshipTimeout<- TimeSpan.FromMinutes(2.0);

lease.RenewOnCallTime<- TimeSpan.FromDays(1.0);

box lease

progress:= condition"FSHARP_SERVER_PROGRESS"

if!progressthen printfn"server: initializing server object"

letserver=new FSharpCompilationServer(exiter)

letchan=new Ipc.IpcChannel(channelName)

ChannelServices.RegisterChannel(chan,false);

RemotingServices.Marshal(server,serverName)|> ignore

if runningOnMonothen

letmonoPosix= System.Reflection.Assembly.Load("Mono.Posix, Version=2.0.0.0, Culture=neutral, PublicKeyToken=0738eb9f132ed756")

letmonoUnixFileInfo= monoPosix.GetType("Mono.Unix.UnixFileSystemInfo")

letsocketName= Path.Combine(FileSystem.GetTempPathShim(), channelName)

letfileEntry= monoUnixFileInfo.InvokeMember("GetFileSystemEntry",(BindingFlags.InvokeMethod||| BindingFlags.Static||| BindingFlags.Public),null,null,[| box socketName|],System.Globalization.CultureInfo.InvariantCulture)

monoUnixFileInfo.InvokeMember("set_FileAccessPermissions",(BindingFlags.InvokeMethod||| BindingFlags.Instance||| BindingFlags.Public),null, fileEntry,[| box0x00000180|],System.Globalization.CultureInfo.InvariantCulture)|> ignore

#if DEBUG

printfn"server: good, set permissions on socket name '%s'" socketName

letfileEntry= monoUnixFileInfo.InvokeMember("GetFileSystemEntry",(BindingFlags.InvokeMethod||| BindingFlags.Static||| BindingFlags.Public),null,null,[| box socketName|],System.Globalization.CultureInfo.InvariantCulture)

letcurrPermissions= monoUnixFileInfo.InvokeMember("get_FileAccessPermissions",(BindingFlags.InvokeMethod||| BindingFlags.Instance||| BindingFlags.Public),null, fileEntry,[||],System.Globalization.CultureInfo.InvariantCulture)|> unbox<int>

if!progressthen printfn"server: currPermissions = '%o' (octal)" currPermissions

with e->

#if DEBUG

printfn"server: failed to set permissions on socket, perhaps on windows? Is is not needed there."

server.Run()

Activator.GetObject(typeof<FSharpCompilationServer>,"ipc://"+ channelName+"/"+ serverName)

:?> FSharpCompilationServer

letpwd= System.Environment.CurrentDirectory

letclient= FSharpCompilationServer.ConnectToServer()

if!progressthen printfn"client: attempting to connect to existing service (1)"

client.Ping()|> ignore

if!progressthen printfn"client: connected to existing service"

Some client

if runningOnMonothen

match System.Environment.GetEnvironmentVariable("FSC_MONO")with

if onWindowsthen

Path.Combine(Path.GetDirectoryName(typeof<Object>.Assembly.Location),@"..\..\..\bin\mono.exe"),false

| path-> path,false

ProcessStartInfo(FileName= shellName,

Arguments= fscServerExe+" /server",

CreateNoWindow=true,

UseShellExecute= useShellExecute)

ProcessStartInfo(FileName=fscServerExe,

Arguments="/server",

CreateNoWindow=true,

UseShellExecute=false)

letcmdProcess=new Process(StartInfo=procInfo)

cmdProcess.Start()|> ignore

cmdProcess.EnableRaisingEvents<-true;

if nRemaining=0then

None

if!progressthen printfn"client: attempting to connect to existing service (2)"

client.Ping()|> ignore

if!progressthen printfn"client: connected to existing service"

Some client

System.Threading.Thread.Sleep50

tryAcccesServer(nRemaining-1)

tryAcccesServer20

match clientOptwith

| Some client->

if!progressthen printfn"client: calling client.Compile(%A)" argv

try client.Compile(pwd, argv)

with e->

printfn"server error:%s"(e.ToString())

raise(Error(FSComp.SR.fscRemotingError(), rangeStartup))

if!progressthen printfn"client: returned from client.Compile(%A), res =%d" argv exitCode

use holder=

tryletoriginalConsoleColor= Console.ForegroundColor

{new System.IDisposablewithmemberx.Dispose()= Console.ForegroundColor<- originalConsoleColor}

let mutableprevConsoleColor=try Console.ForegroundColorwith_-> ConsoleColor.Black

for(isOut, consoleColorOpt, c:char)in outputdo

trymatch consoleColorOptwith

| Some consoleColor->

if prevConsoleColor<> consoleColorthen

Console.ForegroundColor<- consoleColor;

| None->()

c|>(if isOutthen System.Console.Out.Writeelse System.Console.Error.Write)

Some exitCode

with err->

letsb= System.Text.StringBuilder()

OutputErrorOrWarning(pwd,true,false,ErrorStyle.DefaultErrors,true) sb(PhasedError.Create(err,BuildPhase.Compile))

eprintfn"%s"(sb.ToString())

None

| None->

None