コメントの削除 in Smalltalk DouKaku?

コメントの削除

ソースコードからコメント部分を削除するプログラム decomment を書いてください．
すくなくとも，decomment を記述したのと同じ言語で書かれているソースコードが
扱えるようにしてください．

post comment

Posted feedbacks - Smalltalk

Squeak Smalltalk で。

与えられた Smalltalk コードを抽象構文木に落とし、それに含まれるコメントノードを削除してから文字列に戻して出力しました（実際は、抽象構文木の初回出力時にそこからコメントノードが削除される副作用を流用）。

| decomment |
decomment := [:sourceStr |
    | dummySel tree |
    dummySel := 'dummy '.
    tree := Parser new
        parse: (dummySel, sourceStr) readStream
        class: UndefinedObject
        noPattern: false
        context: nil
        notifying: nil
        ifFail: [^nil]. 
    (tree printString; printString) allButFirst: dummySel size].

^decomment value: '"comment1" ^ self "comment2"'   "=> '    ^ self' "

DouKaku?

コメントの削除

Posted feedbacks - Smalltalk

Index

Feed

Other

Link

Pathtraq