Because sometimes the comments are so bad, they just have to go!

punt-comments.el

(defun punt-comments ()
  (interactive)
  (goto-char (point-min))
  (while (re-search-forward "/\\*\\|//" nil t)
    (let ((start (match-beginning 0)))
      (if (string= (match-string 0) "/*")
          (if (search-forward "*/" nil t)
              (delete-region start (point)))
        (delete-region start (line-end-position))))))