// derived.beh -- Mark derived parts.
// $Id: derived.beh,v 1.1 1998/03/11 22:27:49 dougo Exp $

Program {
  /** For each accessor defined in a behavior file, mark the
      associated part in the class graph as derived. */
  private void markDerivedParts() to Accessor {
    (@ ClassDef def; @) before ClassDef (@ def = host; @)
    before Accessor (@
      Part part = def.getPartFromPartName(host.get_partname());
      if (part != null) part.markDerived();
    @)
  }
}