Comment detail

コメントの削除 (Nested Flatten)
Scheme で書きました。 read で読み込んで write で書き出せばコメントを消すことができます。 但し、タブや改行まで消えてしまいます。 これ以外の方法で実装しようとするとパーサを書き直すことになり大変ですので、この方法に Pretty Printer を組み合わせるのが現実的な回答だと思います。
1
2
3
4
5
6
7
8
(define decomment (lambda ()
  (let loop ((s (read)))
    (if (not (eof-object? s))
      (begin (write s) (newline) (loop (read)))))))

(define main (lambda (args)
  (decomment)
  0))

Index

Feed

Other

Link

Pathtraq

loading...