MultisetToWolframModelEvolutionObject.m

Package["SetReplace`"]

PackageImport["GeneralUtilities`"]

declareTypeTranslation[toWolframModelEvolutionObject,
                       SetReplaceType[MultisetSubstitutionSystem, 0],
                       SetReplaceType[WolframModelEvolutionObject, 2]];

toWolframModelEvolutionObject[Multihistory[_, data_]] := WolframModelEvolutionObject[<|
  "Version" -> 2,
  "Rules" -> Normal @ checkNotMissing[data["Rules"]],
  "MaxCompleteGeneration" -> Missing[],
  "TerminationReason" -> Switch[data["TerminationReason"],
    "Complete", "FixedPoint",
    "MaxEvents", "MaxEvents",
    _, throw[Failure["corruptMultisetMultihistory", <||>]]],
  "AtomLists" -> Normal @ checkNotMissing[data["Expressions"]],
  "EventRuleIDs" -> Normal @ checkNotMissing[data["EventRuleIndices"]],
  "EventInputs" -> Normal @ checkNotMissing[data["EventInputs"]],
  "EventOutputs" -> Normal @ checkNotMissing[data["EventOutputs"]],
  "EventGenerations" -> Normal @ checkNotMissing[data["EventGenerations"]]
|>];

declareMessage[
  General::corruptMultisetMultihistory,
  "MultisetSubstitutionSystem Multihistory is corrupt in `expr`. Use MultisetSubstitutionSystem and a generator " <>
  "function such as GenerateMultihistory to generate MultisetSubstitutionSystem Multihistory objects."];

checkNotMissing[_ ? MissingQ] := throw[Failure["corruptMultisetMultihistory", <||>]];
checkNotMissing[arg_] := arg;