ラケットサブクラスでのバインディングの自動継承

Question

親クラスのメソッドとフィールドをすべて使用するいくつかのサブクラスを持つクラスがあります。これを処理する "正しい"方法はありますか？

これまで私は(inherit method1 method2 ...)を各サブクラスで使用してきました。

私は、親クラスがサブクラスにバインディングを継承させる方法をvainで検索しましたが、それは悪いスタイルかもしれないことを理解しています。

Racketや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)