라켓 하위 클래스의 바인딩 자동 상속

Question

부모 클래스의 메서드와 필드를 모두 사용하는 여러 하위 클래스가 있습니다. 이것을 처리하는 "올바른"방법이 있습니까?

지금까지 각 하위 클래스에 (inherit method1 method2 ...)을 사용했습니다.

부모 클래스가 하위 클래스가 바인딩을 상속하도록 강제 할 수있는 방법을 vain에서 검색했습니다. 잘못된 스타일 일 수 있습니다.

라켓이나 OOP에는별로 익숙하지 않습니다.

Answer 1

inherit을 사용하지 않아도 메소드가 상속됩니다. 수퍼 클래스에서 메서드를 호출하려면 (send this method arg1 ...)을 사용할 수 있습니다. 클래스 양식 내에 양식 (inherit method)이 있으면이 메소드를 본문 안의 양식 (method arg1 ...)으로 사용할 수 있습니다. 이것은 단지 편리한 속기 일뿐만 아니라 (send this method)보다 더 효율적입니다.

상속받을 패키지 이름을 알지 못하지만 약간의 매크로로 자신 만의 롤백을 할 수 있습니다. 다음은 예입니다.

(define-syntax (inherit-from-car stx) 
    (datum->syntax stx '(inherit wash buy sell))) 

(define car% (class object% 
       (define/public (wash) (display "Washing\n")) 
       (define/public (buy) (display "Buying\n")) 
       (define/public (sell) (display "Selling\n")) 
       (super-new))) 

(define audi% (class car% (super-new) 
       (inherit-from-car) 
       (define/public (wash-and-sell) 
        (wash) 
        (sell)))) 

(define a-car (new audi%)) 
(send a-car wash-and-sell)