!7

concept Scenario {
  S name;
  LS conditions;
  LS actions;
}

cmodule Scenarios > DynCRUD<Scenario> {
  S answer(S s) null {
    new Matches m;
    if "how many scenarios"
      ret str(countConcepts(Scenario));
    if "delete scenario *" {
      S name = $1;
      if (nempty(deleteConceptsWhereCI Scenario(+name)))
        ret format("Scenario * deleted", name);
      else
        ret format("Scenario * not found", name);
    }
    if "new scenario *" {
      S name = $1;
      Scenario sc = conceptsWhereCI Scenario(+name);
      if (sc != null)
        ret format("Scenario * exists", name);
      uniqCI Scenario(+name);
      ret format("Scenario * created", name);
    }
  }
}