Subversion Repositories wimsdev

#!/usr/bin/perl

## create the file public_html/bases/sys/css_classes from the css of public_html/themes/standard

## use in documentation

use warnings;

use strict;

#use Text::Balanced qw (extract_bracketed extract_tagged);

my $dir="public_html/themes/_css";

my $outfile="public_html/bases/sys/css_classes";

my $TEXT=" ";###generated by bin/css.pl - do not change by hand \n;

my $file='utilities.css' ;

##$TEXT  .= "\n!!generated from file : $file\n";

my $text=treate_file("$dir/$file");

$TEXT .= "\n$text";

out($outfile, $TEXT) ;

sub treate_file { my ($file)=@_;

  my $test=0; my $text="";

  open(IN, $file) ;

  while(<IN>) {

    my $line = $_;

    next if !($line =~ /\/*\s*@/) ;

    $line =~ s,\/\*\s*@,,g ;

    $line =~ s,\*\/,,g ;

    $text .= $line ;

  }

  close(IN);

  $text

}

sub out { my ($bloc, $text) = @_;

  open  (OUT, ">$bloc") ;

  print OUT $text ; close OUT;

}