!752

concepts.

// A name defined by a string
concept Name {
  S name;
  S saidByWhom;
  long saidWhen;
  
  *() {}
  *(S *name, S *saidByWhom, long *saidWhen) { change(); }
}

// Convert a name to a snippet ID
concept Name2Program extends IdentificationTask {
  new Ref input;
  S outSnippetID;
  
  *() {}
  *(Concept input, S outSnippetID) {
    this.input.set(input);
    this.outSnippetID = outSnippetID;
    change();
  }
}

// Let's validate stuff so it can be used.
concept Validate {
  new Ref object;
  
  *() {}
  *(Concept object) {
    this.object.set(object);
  }
}

p {
}