Squeak: Constructor Parameters Method のカテゴライズ

ケント・ベック "ケント・ベックの Smalltalk ベストプラクティス・パターン", シンプル・デザインへの宝石集, 梅澤真史, 小黒直樹, 皆川誠, 森島みどり 訳, ピアソン・エデュケーション, 2003, ISBN4-89471-754-9, pp. 27-29, (Kent Beck "Smalltalk Best Practice Patterns", 1997) で取り上げられている Constructor Parameters Method の例．

  add: (MethodCategorizationRule when:           [:aMethodReference |           (aMethodReference actualClass             compiledMethodAt: aMethodReference methodSymbol) isReturnField             or:               [| prefix |              prefix := 'set'.              (prefix , '*' match: aMethodReference methodSymbol asString) and:                   [| aSymbol |                  aSymbol := aMethodReference methodSymbol asString copyUpToLast: $:.                  aSymbol := aSymbol copyFrom: prefix size + 1 to: aSymbol size.                  aSymbol at: 1 put: (aSymbol at: 1) asLowercase.                  aMethodReference actualClass instVarNames includes: aSymbol]]]        categorizeIn: #private);

なんて汚いソースだ…… orz．