package Iotta::Copp::CClean;
use strict;
require Iotta::Elem;
our @ISA = ("Iotta::Elem");

sub run {
	my $self = shift;
	my $m = shift;
	my $d = shift;
	$d =~ s!(\#if 0\n).*?(\#endif /\* 0 \*/\n)!!gsm;
	$d =~ s!/\*.*?\*/!!gsm;
	$d =~ s#//.*?$##gsm;
	$self->next->run ($m, $d) if ($self->next);
	return 0;
}

sub initialize {
	my $self = shift;
	$self->SUPER::initialize (@_);
}

1;