Subversion Repositories wimsdev

Rev

Rev 12580 | Rev 13732 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12580 Rev 13084
Line 51... Line 51...
51
 
51
 
52
sub t { my ($c1,$c2,$L)=@_; $L->{$c1}=$c2};
52
sub t { my ($c1,$c2,$L)=@_; $L->{$c1}=$c2};
53
 
53
 
54
sub treate { my ($c)= @_ ;
54
sub treate { my ($c)= @_ ;
55
  return if ((!$c) || ($c =~ /#/));
55
  return if ((!$c) || ($c =~ /#/));
-
 
56
  # print "\ntraitement du fichier $c";
56
  open(INN, $c);
57
  open(INN, $c);
57
  my $text = <INN> ;
58
  my $text = <INN> ;
58
  close(INN) ;
59
  close(INN) ;
59
  "\n/*! from $c */\n$text" ;
60
  "\n/*! from $c */\n$text" ;
60
};
61
};