build/tools/intern_css_imports.pl

   1 #!/usr/bin/perl
   2 my $in_comment = 0;
   3 while (<>) {
   4     chomp;
   5     if (/^\s*\@import\s+url\((['"])([^'"]+)\1\)/) {
   6         print `$0 $2`
   7     } else {
   8         s#(/\*).*?(\*/|$)##g;
   9         $in_comment = 1 if ($1 && !$2);
  10         s#(/\*|^).*?(\*/)##g;
  11         $in_comment = 0 if ($2);
  12         s/\s+$//;
  13         s/^\s+//;
  14         print "$_\n" unless ($in_comment || /^\s*$/)
  15     }
  16 }