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 
};