projects
/
transitory.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
SCPL: logos and TPac templates
[transitory.git]
/
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
}