Subversion Repositories wimsdev

Rev

Rev 11931 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 11931 Rev 13026
Line 3... Line 3...
3 
## use in documentation
 3 
## use in documentation
4 
use warnings;
 4 
use warnings;
5 
use strict;
 5 
use strict;
6 
#use Text::Balanced qw (extract_bracketed extract_tagged);
 6 
#use Text::Balanced qw (extract_bracketed extract_tagged);
7 
 
 7 
 
8 
 
 - 
 
9 
 my $dir="public_html/themes/_css";
 8 
my $dir="public_html/themes/_css";
10 
 my $outfile="public_html/bases/sys/css_classes";
 9 
my $outfile="public_html/bases/sys/css_classes";
11 
 my $TEXT=" ";###generated by bin/css.pl - do not change by hand \n;
 10 
my $TEXT=" ";###generated by bin/css.pl - do not change by hand \n;
12 
 my $file='utilities.css' ;
 11 
my $file='utilities.css' ;
13 
 ##$TEXT  .= "\n!!generated from file : $file\n";
 12 
##$TEXT  .= "\n!!generated from file : $file\n";
14 
 my $text=treate_file("$dir/$file");
 13 
my $text=treate_file("$dir/$file");
15 
 $TEXT .= "\n$text";
 14 
$TEXT .= "\n$text";
16 
 out($outfile, $TEXT) ;
 15 
out($outfile, $TEXT) ;
17 
 
 16 
 
18 
sub treate_file { my ($file)=@_;
 17 
sub treate_file { my ($file)=@_;
19 
 my $test=0; my $text="";
 18 
  my $test=0; my $text="";
20 
 open(IN, $file) ;
 19 
  open(IN, $file) ;
21 
  while(<IN>) {
 20 
  while(<IN>) {
22 
    my $line = $_;
 21 
    my $line = $_;
23 
    next if !($line =~ /\/*\s*@/) ;
 22 
    next if !($line =~ /\/*\s*@/) ;
24 
    $line =~ s,\/\*\s*@,,g ;
 23 
    $line =~ s,\/\*\s*@,,g ;
25 
    $line =~ s,\*\/,,g ;
 24 
    $line =~ s,\*\/,,g ;
26 
    $text .= $line ;
 25 
    $text .= $line ;
27 
 }
 26 
  }
28 
 close(IN);
 27 
  close(IN);
29 
 $text
 28 
  $text
30 
}
 29 
}
31 
sub out { my ($bloc, $text) = @_;
 30 
sub out { my ($bloc, $text) = @_;
32 
  open  (OUT, ">$bloc") ;
 31 
  open  (OUT, ">$bloc") ;
33 
  print OUT $text ; close OUT;
 32 
  print OUT $text ; close OUT;
34 
}
 33 
}