Traits - vilinski/nemerle GitHub Wiki

trait TCircle[T] {
  require {
    Radius () : int;
    Rotate (x : int) : T;
  }

  provide {
    Diameter () : int
    {
      Radius () * 2
    }

    RevRotate (x : int) : T
    {
      Rotate (-x)
    }
  }
}

interface TCircle[T] 
  where T : TCircle[T] 
{
  Radius () : int;
  Rotate (x : int) : T;
  Diameter () : int;
  RevRotate (x : int) : T;

  static impl_Diameter (_this : T) : int
  {
    _this.Radius () * 2
  }
  
  static impl_RevRotate (_this : T, x : int) : T
  {
    _this.Rotate (-x)
  }
}

class SomeCircle 
{
  uses TCircle;
  public Radius () : int { 42 }
  public Rotate (_ : x) : SomeCircle { this }
}

class SomeCircle : TCircle[SomeCircle] 
{
  public Radius () : int { 42 }
  public Rotate (_ : x) : SomeCircle { this }
  public Diameter () : int { TCircle[SomeCircle].impl_Diameter (this) }
  public RevRotate (x : int) : int { 
    TCircle[SomeCircle].impl_RevRotate (this, x) 
  }
}