public Option <ServerLicense> RenewServerLicense(ServerLicense serverLicense)
{
lock (_syncLock)
{
var serverSlot = _serverSlots
.Find(s => s.ID == serverLicense.ID)
.AssertSome($"Trying to renew license for defunct server {serverLicense.ID}");
if (!serverSlot.IsFree)
{
return(None);
}
var renewedServerLicense = new ServerLicense(
serverSlot.ID,
serverSlot.Server,
serverSlot.MCSimExecutors,
(sl) => ExpireLicense(serverSlot, sl)
);
serverSlot.IsFree = false;
_serverLicenses.OnNext((renewedServerLicense, HasExpired: false));
Log.Debug($"Renewed license for server {serverSlot.ID}");
return(renewedServerLicense);
}
}
public Option <ServerLicense> RequestServer()
{
lock (_syncLock)
{
var freeServerSlot = _serverSlots.Find(s => s.IsFree);
return(freeServerSlot.Match(
serverSlot =>
{
var serverLicense = new ServerLicense(
serverSlot.ID,
serverSlot.Server,
serverSlot.MCSimExecutors,
(sl) => ExpireLicense(serverSlot, sl)
);
serverSlot.IsFree = false;
_serverLicenses.OnNext((serverLicense, HasExpired: false));
Log.Debug($"Issued license for server {serverSlot.ID}");
return Some(serverLicense);
},
() =>
{
_mreServerSlots.Reset();
return None;
}));
}
}
private static async Task <Arr <SimInput> > EvaluateNonScalarsAsync(
SimInput seriesInput,
SimInput defaultInput,
ServerLicense serverLicense,
CancellationToken cancellationToken
)
{
var nonScalarParameters = seriesInput.SimParameters.Filter(p =>
{
var parameter = defaultInput.SimParameters.GetParameter(p.Name);
var isNonScalarEdit = p.Value != parameter.Value && IsNaN(p.Scalar);
return(isNonScalarEdit);
});
if (nonScalarParameters.IsEmpty)
{
return(Array(seriesInput));
}
RequireTrue(serverLicense.IsCurrent);
var client = await serverLicense.GetRClientAsync(cancellationToken);
var evaluationTasks = nonScalarParameters
.Map(async p => new
{
Parameter = p,
Evaluation = await client.EvaluateNumDataAsync(p.Value, cancellationToken)
});
var evaluations = (await Task.WhenAll(evaluationTasks)).ToArr();
var invalid = evaluations.Filter(a => a.Evaluation.Length != 1);
if (!invalid.IsEmpty)
{
throw new InvalidOperationException(
"Parameter values failed to produce single-column output: " +
Join(", ", invalid.Map(e => e.Parameter.Name))
);
}
var singleColumns = evaluations
.Map(e => new { e.Parameter, Sequence = e.Evaluation[0].Data });
var nParameters = singleColumns.Count;
var maxSequenceLength = singleColumns.Max(a => a.Sequence.Count);
var serieInputs = Range(0, maxSequenceLength).Map(i =>
{
var parameters = singleColumns.Map(
a => a.Parameter.With(a.Sequence[i % a.Sequence.Count])
);
return(seriesInput.With(parameters));
});
return(serieInputs.ToArr());
}
private async Task <OutputRequest> FulfilRequestAsync(
Simulation simulation,
SimInput seriesInput,
ServerLicense serverLicense,
bool persist,
CancellationToken cancellationToken)
{
var serieInputs = await EvaluateNonScalarsAsync(
seriesInput,
simulation.SimConfig.SimInput,
serverLicense,
cancellationToken
);
Log.Debug($"Evaluating non-scalar parameter values produced n={serieInputs.Count} series");
var useExec = simulation.SimConfig.SimCode.Exec.IsAString();
async Task <(SimInput SerieInput, NumDataTable Serie, bool Persist, OutputOrigin OutputOrigin)> AcquireSerieDataAsync(SimInput serieInput)
{
if (simulation.HasData(serieInput))
{
Log.Debug($"{nameof(SimData)} retrieving data");
var retrieved = simulation.LoadData(serieInput);
return(serieInput, retrieved, false, OutputOrigin.Storage);
}
Log.Debug($"{nameof(SimData)} generating data");
var serieConfig = simulation.SimConfig.With(serieInput);
NumDataTable serie;
var stopWatch = Stopwatch.StartNew();
if (simulation.IsRSimulation())
{
var client = await serverLicense.GetRClientAsync(cancellationToken);
if (useExec)
{
var pathToCodeFile = simulation.PathToCodeFile;
RequireFile(pathToCodeFile);
await client.RunExecAsync(pathToCodeFile, serieConfig, cancellationToken);
serie = await client.TabulateExecOutputAsync(serieConfig, cancellationToken);
}
else
{
var pathToCodeFile = simulation.PopulateTemplate(serieConfig.SimInput.SimParameters);
await client.SourceFileAsync(pathToCodeFile, cancellationToken);
serie = await client.TabulateTmplOutputAsync(serieConfig, cancellationToken);
}
}
else
{
var mcsimExecutor = serverLicense.GetMCSimExecutor(simulation);
var numDataTable = mcsimExecutor.Execute(serieConfig.SimInput.SimParameters);
RequireNotNull(numDataTable, "MCSim execution failed");
serie = numDataTable;
}
stopWatch.Stop();
var msElapsed = 1000L * stopWatch.ElapsedTicks / Stopwatch.Frequency;
lock (_syncLock)
{
if (!_executionIntervals.TryGetValue(simulation, out SimExecutionInterval? executionInterval))
{
executionInterval = new SimExecutionInterval(simulation);
executionInterval.Load();
_executionIntervals.Add(simulation, executionInterval);
}
executionInterval.AddInterval(msElapsed);
}
return(serieInput, serie, persist, OutputOrigin.Generation);
}
var outputs = (await Task.WhenAll(serieInputs.Map(AcquireSerieDataAsync))).ToArr();
var outputsRequiringPersistence = outputs
.Filter(t =>
{
var didAdd = _outputs.TryAdd(
(t.SerieInput.Hash, simulation),
SimDataOutput.Create(simulation, t.SerieInput, t.Serie, t.OutputOrigin, DateTime.UtcNow, t.Persist)
);
return(didAdd && t.Persist);
});
if (!outputsRequiringPersistence.IsEmpty)
{
_mreDataService.Set();
}
return(OutputRequest.Create(
seriesInput,
outputs.Map(t => t.SerieInput)
));
}